#INCLUDE 'PROTHEUS.CH' #INCLUDE "FWMVCDEF.CH" //*************************************************************** //Ponto de entrada MA580F2V antes de deletar o documento de saída //#Par01 - F2_FILIAL do registro posicionado //#Par02 - F2_CLIENTE do registro posicionado //#Par03 - F2_LOJA do registro posicionado //#Par04 - F2_DOC do registro posicionado //#Par05 - F2_SERIE do registro posicionado //#Par06 - F2_TIPO do registro posicionado //#Par07 - F2_ESPECIE do registro posicionado //*Return - Informa se deleta o registro .T. ou não .F. //***************************************************************
User Function MA580F2V()
Local cFilSF2 := PARAMIXB[1] Local cCliSF2 := PARAMIXB[2] Local cLojSF2 := PARAMIXB[3] Local cDocSF2 := PARAMIXB[4] Local cSerSF2 := PARAMIXB[5] Local cTipSF2 := PARAMIXB[6] Local cEspSF2 := PARAMIXB[7] Local lDeleta := .T.
If cCliSF2 == "FATU01" .And. cTipSF2 == "D" lDeleta := .F. EndIf
Return(lDeleta) |