Salve salve....
Ponto de entrada EICNU400 - ( EIC - Solicitação de numerario )
Nome do Fonte: xEICNU400.tlpp
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} EICNU400
Ponto de entrada na Solicitação de numerario
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function EICNU400()
Local cPonto := ''
If ValType(PARAMIXB) == "C"
cPonto := PARAMIXB
ElseIf ValType(PARAMIXB) == "A"
cPonto := PARAMIXB[01]
Endif
If cPonto == "GRAVOU_ADI" // liberacao do numerario
//
ElseIf cPonto== "VALIDA_CANCELA_EFETIV" // cancelamento do numerario
//
ElseIf cPonto== "GRAVOU_SWD" // liberacao do numerario
RecLock("SWD", .F.)
SWD->WD_FORN := Posicione("SY5", 1, xFilial("SY5") + Posicione("SW6", 1, xFilial("SW6") + SWD->WD_HAWB, "W6_DESP"), "Y5_FORNECE")
SWD->WD_LOJA := Posicione("SY5", 1, xFilial("SY5") + Posicione("SW6", 1, xFilial("SW6") + SWD->WD_HAWB, "W6_DESP"), "Y5_LOJAF")
MsUnLock()
EndIf
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima