Salve salve....
Ponto de entrada EICOP110- ( Manutencao de Apropriacao de CFO)
EICOP110-EICOP110 - PE Geral
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} EICOP110
PE Geral
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function EICOP110()
Local cPonto := ''
Local xRet := .T.
Local aAreaSB5 := {}
If ValType(PARAMIXB) == "C"
cPonto := PARAMIXB
ElseIf ValType(PARAMIXB) == "A"
cPonto := PARAMIXB[01]
Endif
If cPonto == "GRAVA_WORK"
aAreaSB5 := SB5->(GetArea())
SB5->(dbSetOrder(1))
If SB5->(dbSeek(xFilial("SB5")+SW7->W7_COD_I)) .AND. !Empty(SB5->B5_ZZOPERA)
Work->WKOPERACA := SB5->B5_ZZOPERA
EndIf
RestArea(aAreaSB5)
EndIf
Return( xRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima