Histórico da Página

Descrição

Rotina Automática EECAP100 - Atualização do Pedido de Exportação

Observações

Esta rotina permite a inclusão do pedido de exportação (Capa/ Item) de forma automática.

Exemplos

User Function EECAP100Inc()
Local aItens := {}
Local aDadosAuto := {} // Array com os dados a serem enviados pela MsExecAuto() para gravação automática dos itens do ativo
Local aCab := {

{'EE7_FILIAL'

,'01'

,NIL},;

{'EE7_IMPORT'

,'001'

,NIL

},;

{'EE7_IMLOJA'

,'01'

,NIL},;

{'EE7_IMPODE'

,"IMPORTADOR"

,NIL},;

{'EE7_FORN'

,'001'

,NIL},;

{'EE7_FOLOJA'

,'01'

,NIL},;

{'EE7_FORNDE'

,"FORNECEDOR"

,NIL};

{'EE7_IDIOMA'

,"INGLES-INGLES"

,NIL};

{'EE7_CONDPA'

,'001'

,NIL};

{'EE7_DIASPA'

,'30'

,NIL};

{'EE7_DESCPA'

,"COND.PAGAMENTO"

,NIL};

{'EE7_MPGEXP'

,'003'

,NIL};

{'EE7_DSCMPE'

,"COBRANCA"

,NIL};

{'EE7_INCOTE'

,'FOB'

,NIL};

{'EE7_MOEDA'

,'US$'

,NIL};

{'EE7_FRPPCC'

,'PP'

,NIL};

{'EE7_VIA'

,'02'

,NIL};

{'EE7_VIA_DE'

,"VIA

TRANSP."

,NIL};

{'EE7_ORIGEM'

,'AGA'

,NIL};

{'EE7_DSCORI'

,"ACEGUA-RS"

,NIL};

{'EE7_DEST'

,'VYX'

,NIL};

{'EE7_DSCDES'

,"VITORIA-ES"

,NIL};

{'EE7_PAISET'

,'105'

,NIL};

{'EE7_TIPTRA'

,'1'

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

{

{'EE8_COD_1'

,'0001'

,

NIL},;

{'EE8_VMDES'

,"CARRO"

,

NIL},;

{'EE8_FORN'

,'001'

,

NIL},;

{'EE8_FOLOJA'

,'01'

,

NIL},;

{'EE8_SLDINI'

,

10

,

NIL},;

{'EE8_EMBAL1'

,

'001'

,

NIL},;

{'EE8_QE'

,

1

,

NIL},;

{'EE8_QTDM1'

,

10

,

NIL},;

{'EE8_PSLQUN'

,

2

,

NIL},;

{'EE8_POSIPI'

,

01011010

,

NIL},;

{'EE8_PRECO'

,

10

,

NIL}})

MSExecAuto(

{

|X,Y,Z

|

EECAP100

(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 (EE7).

aItens

Array

contendo

os

campos

dos

itens

(EE8).

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

NIL

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

EECAP100.PRW