EXECAUTO EICSI400 - EIC Solicitação de Importação

Salve salve....

EXECAUTO EICSI400 - EIC Solicitação de Importação

#INCLUDE "TOTVS.CH"



User Function RMFATA01()
Local aCabSI  		:= {} as array
	Local aItensSI 		:= {} as array

	Private lMsErroAuto := .F. as logical


	aAdd(aCabSI, {"W0__NUM"			, cW0__NUM			, Nil } )
	aAdd(aCabSI, {"W0__CC"			, '01		, Nil } )
	// aAdd(aCabSI, {"W0__POLE"		, 'BL'				, Nil } )
	aAdd(aCabSI, {"W0_COMPRA"		, '001', Nil } )
	aAdd(aCabSI, {"W0_MOEDA"		, 'US$'	, Nil } )
	aAdd(aCabSI, {"W0_SIAUTO"		, '2'	, Nil } )


aTmp    := {}
		// aAdd(aTmp, {"AUTDELETA", "S", Nil})
		If ALTERA //PRECISA PASSAR NA ALTERAÇÃO O REG
			aAdd(aTmp, {"W1_REG", 1, Nil})
		Endif
		aAdd(aTmp, {"W1_COD_I"	, 'xxx'			, Nil } )
		// aAdd(aTmp, {"W1_CC"		, '00001'				, Nil})
		// aAdd(aTmp, {"W1_FABR"	, WORK->WKFABR, Nil})
		// aAdd(aTmp, {"W1_FORN"	, '000001'				, Nil})
		// aAdd(aTmp, {"W1_FORLOJ"	, '01'					, Nil})
		aAdd(aTmp, {"W1_QTDE"	, 1			, Nil } )
		aAdd(aTmp, {"W1_PRECO"	, 1			, Nil } )
		// aAdd(aTmp, {"W1_SALDO_Q", WORK->WKSALDO_Q, Nil})
		aAdd(aTmp, {"W1_DT_EMB"	, dDatabase					, Nil } )
		aAdd(aTmp, {"W1_DTENTR_", dDatabase+2 				, Nil } )	
		aAdd( aItensSI, aTmp )



	MSExecAuto({|UA,ER,UD| EICSI400(UA,ER,UD)},aCabSI,aItensSI,3)//Inclusão
	If lMsErroAuto
		MOSTRAERRO()
	Else
		FWAlertSuccess( 'OK', 'Eurai' )
	Endif

Return( Nil )

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

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