Rotina Automática EICSI400 - Atualização da Solicitação de Importação

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. Executar o update UIEXECAUTO

Exemplos

User Function EICSI400Inc()
Local aItens := {}
Local aDadosAuto := {} // Array com os dados a serem enviados pela MsExecAuto() para gravação automá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 gravação automá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 inconsistência na execuçã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

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