EXECAUTO EICPO400 - EIC Incluir Purchase Order

Salve salve....

EXECAUTO EICPO400 - EIC Purchase Order

Precisa existir a SI (Unidade requisitante) 

#INCLUDE "TOTVS.CH"



User Function RMFATA01()
Local aCTBA040                := {} as array
Local aCab  		:= {} as array
	Local aItem 		:= {} as array
	Local aTmp  		:= {} as array
	Local cItem 		:= '' as character

	Private lMsErroAuto := .F. as logical


	SW2->(DbSelectArea("SW2"))//posicionamento da tabela
	SW2->(DbSetOrder(1))//setando a ordem
	SW2->(MsSeek(xFIlial("SW2")+"W2_PO_NUM",.T.))//posicionando onde ele vai iniciar
	SW2->(DbSkip(-1))//pegando o ultimo item da tabela

	cItem := SW2->W2_PO_NUM
	cItem := Right( Soma1(cItem), 15 )

	AADD(aCab,{"W2_PO_NUM"  , cItem         ,NIL } )
	AADD(aCab,{"W2_PO_DT"   , dDatabase     ,NIL } )
	AADD(aCab,{"W2_FORN"    , "000001"     ,NIL } )
	AADD(aCab,{"W2_FORLOJ"  , "01"          ,NIL } )
	AADD(aCab,{"W2_COMPRA"  , "001"         ,NIL } )
	AADD(aCab,{"W2_IMPORT"  , "01"          ,NIL } )
	AADD(aCab,{"W2_AGENTE"  , "001"         ,NIL } )
	AADD(aCab,{"W2_TIPO_EM" , "01"          ,NIL } ) 
	AADD(aCab,{"W2_ORIGEM"  , "BRS"         ,NIL } ) 
	AADD(aCab,{"W2_DEST"    , "BLM"         ,NIL } ) 
	AADD(aCab,{"W2_INCOTER" , "FOB"         ,NIL } )  
	AADD(aCab,{"W2_FREPPCC" , "PP"          ,NIL } )
	AADD(aCab,{"W2_COND_PA" , "001 "        ,NIL } )
	AADD(aCab,{"W2_MOEDA"   , "US$"         ,NIL } )
	AADD(aCab,{"W2_DT_PAR"  , dDatabase     ,NIL } )
	AADD(aCab,{"W2_PARID_U" , 1,000000      ,NIL } )
	AADD(aCab,{"W2_E_LC"    , "2"           ,NIL } )


    aTmp    := {}
	aAdd(aTmp, {"W3_COD_I"      , "PRODUTO_0000001 "    , NIL } )
	aAdd(aTmp, {"W3_CC"         , "00001"          , NIL } )
	aAdd(aTmp, {"W3_REG"        , 1                     , NIL } )
	aAdd(aTmp, {"W3_PRECO"      , 2.00000               , NIL } )
	aAdd(aTmp, {"W3_FABR"       , "000002 "             , NIL } )
	aAdd(aTmp, {"W3_FORN"       , "000002 "             , NIL } )
	aAdd(aTmp, {"W3_QTDE"       , 100.000       , NIL } )
	aAdd(aTmp, {"W3_DT_EMB"     , dDatabase     , NIL } )
	aAdd(aTmp, {"W3_DT_ENTR"    , dDatabase+2   , NIL } )
	aAdd(aTmp, {"W3_SALDO_Q"    , 0.000         , NIL } )
    aAdd( aItem, aTmp )

	MSExecAuto({|UA,ER,UD,RA| EICPO400(UA,ER,UD,RA)},NIL,aCab,aItem,3) //Inclusão
	If lMsErroAuto
		MOSTRAERRO()
	Else
		FWAlertSuccess( 'OK', 'EICPO400' )
	Endif

Return( Nil )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima