EICPO400-EICPO400 - PE Geral

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