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

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