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. 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