Salve salve....
Ponto de entrada FINA460A- ( Liquidação de Ctas Receber )
FINA460A-FINA460A- PE MVC Liquidação de Ctas Receber
#INCLUDE "TOTVS.CH" /*/{Protheus.doc} FINA460A PE MVC Liquidação de Ctas Receber @type function @author Eurai Rapelli @since 2023.01.01 /*/ User Function FINA460A() Local aParam := PARAMIXB as array Local xRet := .T. AS Variant Private oUAObj := Nil as object Private cIdPonto := '' as character Private cIdModel := '' as character Private cClasse := '' as character Private cCRLF := CRLF as character Begin Sequence If aParam <> NIL oUAObj := aParam[1] cIdPonto := aParam[2] cIdModel := IIf( oUAObj <> NIL, oUAObj:GetId(), aParam[3] ) cClasse := IIf( oUAObj <> NIL, oUAObj:ClassName(), '' ) If cIdPonto == 'MODELPOS' ElseIf cIdPonto == 'MODELPRE' ElseIf cIdPonto == 'FORMPRE' ElseIf cIdPonto == 'FORMPOS' //cMsg := 'Chamada na validação total do formulário.' + CRLF //cMsg += 'ID ' + cIdModel + CRLF //lRet := ApMsgYesNo( cMsg + 'Continua ?' ) ElseIf cIdPonto == 'FORMLINEPRE' //If aParam[5] == 'DELETE' //cMsg := 'Chamada na pre validação da linha do formulário. ' + CRLF //cMsg += 'Onde esta se tentando deletar a linha' + CRLF //cMsg += 'ID ' + cIdModel + CRLF //lRet := ApMsgYesNo( cMsg + 'Continua ?' ) //EndIf ElseIf cIdPonto == 'FORMLINEPOS' //cMsg := 'Chamada na validação da linha do formulário.' + CRLF //cMsg += 'ID ' + cIdModel + CRLF //lRet := ApMsgYesNo( cMsg + 'Continua ?' ) ElseIf cIdPonto == 'MODELCOMMITTTS' //ApMsgInfo('Chamada apos a gravação total do modelo e dentro da transação.') ElseIf cIdPonto == 'MODELCOMMITNTTS' // Break //Retirar MdlCOMNTTS(oObj) ElseIf cIdPonto == 'FORMCOMMITTTSPRE' //ApMsgInfo('Chamada antes da gravação da tabela do formulário.') ElseIf cIdPonto == 'FORMCOMMITTTSPOS' //ApMsgInfo('Chamada apos a gravação da tabela do formulário.') ElseIf cIdPonto == 'MODELCANCEL' //cMsg := 'Deseja Realmente Sair ?' //lRet := ApMsgYesNo( cMsg ) ElseIf cIdPonto == 'BUTTONBAR' //lRet := { {'Salvar', 'SALVAR', { || Alert( 'Salvou' ) } } } EndIf Endif End Sequence Return( xRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima