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
