Salve salve....
Ponto de entrada EICPO400- ( Programa de Manutencao de P.O. de Nacionalizacao)
EICPO400-EICPO400 - PE Geral
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} EICPO400
PE Geral. PE GRVSC7
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function EICPO400()
Local cPonto := ''
Local xRet := .T.
If ValType(PARAMIXB) == "C"
cPonto := PARAMIXB
ElseIf ValType(PARAMIXB) == "A"
cPonto := PARAMIXB[01]
Endif
If cPonto == 'PO400GRAVAPC_ITEM'
//SW3->W3_ZZTES
ElseIf cPonto == 'GRAVA_DESPESAS'
SW3->W3_XXXXX := M->W2_XXX
ElseIf cPonto == 'GRV_WORK_COM_SW1'
Work->W3_XITEM := SW1->W1_XITEM
ElseIf cPonto == 'ANTES_TELA_ITEM'
If SW1->( dbseek( xFilial("SW1")+AvKey(TCC,"W1_CC")+AvKey(TSi_Num,"W1_SI_NUM") ) )
M->W2_XXXX := SW1->W1_XXXX
Endif
ElseIf cPonto == 'SI_REF'
If SW1->( dbseek( xFilial("SW1")+AvKey(TCC,"W1_CC")+AvKey(TSi_Num,"W1_SI_NUM") ) )
M->W2_XXXX := SW1->W1_XXXX
Endif
ElseIf cPonto == 'GRAVA_SC7'
ElseIf cPonto == 'PO400GRAVAPC_ITEM'
aAdd(aItensPo,{"C7_TES", cTes , Nil})
EndIf
Return( xRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima
