Histórico da Página

...

cAlias - Tabela da capa da Invoice. Deve vir com conteudo fixo "ELA".
nReg - Recno da tabela: não obrigatório
nOpc - Número da operação: não obrigatório
cTipo - Variável do tipo Caractere que identifica o tipo de integração. Deve vir com conteúdo fixo "A" quando Aquisição, ou "V" quando Venda.
aCab (CAPA) - Variavel do tipo Array com os dados do cabeçalho da invoice
aItens (ITENS) - Variavel do tipo Array com os dados dos itens da invoice
nOpcAuto (OPERAÇÃO) - Variavel do tipo Numerico responsavel por definir qual operação executar (Inclusão, Alteração, Exclusão).

...

Os campos dos Itens para geração do Pedido de Venda da Invoice são listados abaixo:

Título	Campo	Tipo	Tam.	Dec.	Obrigatório	Observação
Filial	ELB_FILIAL	Caracter	2	0	Sim	Filial do Sistema (xFilial)
Exportador	ELB_EXPORT	Caracter	10	0	Sim	Mesmo que da capa (ELA). Este campo deve ser utilizado apenas para Invoices e Pedidos de Aquisição.
Loja Exportador	ELB_LOJEXP	Caracter	2	0	Sim	Mesmo que da capa (ELA). Este campo deve ser utilizado apenas para Invoices e Pedidos de Aquisição.
Importador	ELB_IMPORT	Caracter	2	0	Sim	Mesmo que da capa (ELA). Este campo deve ser utilizado apenas para Invoices e Pedidos de Venda.
Loja Importador	ELB_LOJIMP	Caracter	2	0	Sim	Mesmo que da capa (ELA). Este campo deve ser utilizado apenas para Invoices e Pedidos de Venda.
Nro. Invoice	ELB_NRINVO	Caracter	20	0	Sim	Mesmo que da capa (ELA)
Processo	ELB_PROCES	Caracter	15	0	Sim	Mesmo que da capa (ELA)
Seq. Processo	ELB_SEQPRC	Caracter	4	0	Sim	Item do processo.
Valor Cambio	ELB_VLCAMB	Numerico	16	2	Não	Valor para contratação de câmbio para este item nesta invoice.
Valor Exterior	ELB_VLEXT	Numerico	16	2	Não	Valor a manter no exterior para este item nesta invoice.

...

Exemplo de desenvolvimento:

Exemplo de Inclusão de Pedido de Venda via ExecAutoInvoice via ExecAuto

*------------------------------------------*
User Function ExecInvAuto()
*------------------------------------------*
Local aCab := {}, aItem := {}, aItens := {}
Local nOpcAuto := 3
Private lMsErroAuto := .F.

/******* Montagem dos Arrays *******/
// CAPA (aCab)
aAdd(aCab, {"ELA_FILIAL" , xFilial("ELA") , NIL})
aAdd(aCab, {"EJW_IMPORT" , "01" , NIL})
aAdd(aCab, {"EJW_LOJIMP" , "01" , NIL})
aAdd(aCab, {"ELA_NRINVO" , "INV545" , NIL})
aAdd(aCab, {"ELA_PROCES" , "0100" , NIL})
aAdd(aCab, {"ELA_ORIGEM" , "EXECAUTO" , NIL})
aAdd(aCab, {"ELA_DTEMIS" , dDataBase , NIL})
aAdd(aCab, {"ELA_CONDPG" , "01" , NIL})
aAdd(aCab, {"ELA_MOEDA" , "US$" , NIL})
aAdd(aCab, {"ELA_TX_MOE" , 4 , NIL})
aAdd(aCab, {"ELA_COMPL" , "Geração via ExecAuto" , NIL})
aAdd(aCab, {"ELA_DOC" , "NF069" , NIL})
aAdd(aCab, {"ELA_SERIE" , "B" , NIL})
aAdd(aCab, {"ELA_MODELO" , "1" , NIL})

// ITENS (aItens)
aAdd(aItem, {"ELB_FILIAL" , xFilial("ELB") , NIL})
aAdd(aItem, {"ELB_PROCES" , aCab[5][2] , NIL})
aAdd(aItem, {"ELB_IMPORT" , "01" , NIL})
aAdd(aItem, {"ELB_LOJIMP" , "01" , NIL})
aAdd(aItem, {"ELB_NRINVO" , "INV540" , NIL})
aAdd(aItem, {"ELB_SEQPRC" , "0001" , NIL})
aAdd(aItem, {"ELB_VLCAMB" , 50.00 , NIL})
aAdd(aItem, {"ELB_VLEXT" , 0.00 , NIL})
aAdd(aItens,aItem)

/******* Execução do ExecAuto *******/
MSExecAuto({|a,b,c,d,e,f,g| ESSIS400(a,b,c,d,e,f,g)},"ELA", NIL, NIL, "V", aCab, aItens, nOpcAuto)

/******* Tratamento de Erro *******/
If lMsErroAuto
MostraErro()
Else
MsgInfo("Registro manipulado com sucesso.")
EndIf

Return NIL

Exemplo de Resultado da operação

Exemplo de Resultado com erros.

Image RemovedImage Added