Histórico da Página

||Descrição|| Rotina Automática EICSI400 - Atualização da Solicitação de Importação  
||Observações|| Esta rotina permite a inclusão da Solicitação de Importação (Capa - SW0/ Item - SW1) de forma automática.
||Exemplos||User Function EICSI400Inc()
Local aItens := \{\}
Local aDadosAuto := \{\} // Array com os dados a serem enviados pela MsExecAuto() para gravacaogravação automaticaautomática dos itens do ativo 
Local aCab := \{ \{'W0_CC' ,'001' ,NIL},; 
\{'W0_CCDESC' ,"PRODUTOS" ,NIL},; 
\{'W0_NUM' ,"0060" ,NIL},; 
\{'W0_DT' ,dDataBase ,NIL},; 
\{'W0_COMPRA' ,'001' ,NIL},; 
\{'W0_MOEDA' , 'US$' , NIL},;
\{'W0_POLE' , '01' , NIL},;
\{'W0_POLEDE' , "CENTRO" , NIL},;
// Array com os dados a serem enviados pela MsExecAuto() para gravacaogravação automaticaautomática da capa do bem 
Private lMsHelpAuto := .f. // Determina se as mensagens de help devem ser direcionadas para o arq. de log
Private lMsErroAuto := .f. // Determina se houve alguma inconsistenciainconsistência na execucaoexecução da rotina 
aAdd(aItens,\{ \{'W1_COD_I' ,'0001' , NIL\},;
\{'W1_COD_DES' ,"CARRO" , NIL},; 
\{'W1_FABR' ,'001' , NIL},; 
\{'W1_FABLOJ' ,'01' , NIL},; 
\{'W1_FOR' ,'001' , NIL},;
\{'W1_FORLOJ' ,'01' , NIL},;
\{'W1_QTDE' , 10 , NIL},;
\{'W1_SALDO_Q' , 10 , NIL},;
\{'W1_PRECO' , 10 , NIL},;
MSExecAuto( \{\|X,Y,Z\| EICSI400\(X,Y,Z\)\} ,aCab ,aItens, 3) 
If lMsErroAuto 
lRetorno := .F. 
MostraErro()
Else
lRetorno:=.T.
EndIf
Return
||Preview|| 
||Veja também|| 
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus11
||Sistemas Operacionais Suportados||Windows
||Compatível com as Bases de Dados||Topconnect
||Updates|| 
||Parâmetros|| aCabec	Array	 contendo os campos do cabeçalho (SN1).
aItens	Array	 contendo os campos dos itens (SN3).
nOpc	
3- Inclusão
4- Alteração é necessário o uso do campo LINPOS para localizar o bem
5- Exclusão é necessário o uso do campo LINPOS para localizar o bem e o AUTDELETA para que seja deletado
||Retorno|| 
||Eventos de chamada do Ponto de Entrada|| 
||Variáveis|| lMsHelpAuto / lMsErroAuto
||Programa Fonte|| EICSI400.PRW