Histórico da Página

...

Os campos dos Anexos para geração do Pedido de Aquisição são listados abaixo:

Título	Campo	Tipo	Tam.	Dec.	Obrigatório	Observação
Filial	EL2_FILIAL	Caracter	2	0	Sim	Filial do Sistema (xFilial)
Pedido	EL2_PROCES	Caracter	15	0	Sim	Mesmo que da capa (EJW)
Numero da DI	EL2_DI	Caracter	15	0	Sim	Numero da DI. Inserir apenas números. Não colocar espaço, barra ou o traço.
Numero do RE	EL2_RE	Caracter	12	0	Sim	Numero do RE. Inserir apenas números. Não colocar espaço, barra ou o traço. Somente utilizar este campo quando o parametro MV_ESS0027 = 10.
Sequencia do Produto	EL2_SEQPRC	Caracter	4	0	Sim	Numero do item no processo. Podem ser inclusos até 9999 itens no processo sem aumentar o tamanho deste campo. Somente utilizar este campo quando o parametro MV_ESS0027 = 10.
Sequencia do Documento	EL2_SEQDOC	Caracter	2	0	Sim	Numero do Documento do Processo. Podem ser inclusos até 99 documentos no processo sem aumentar o tamanho deste campo.

A operação de execução é definida conforme abaixo:

...

Exemplo de Inclusão de Pedido de Aquisição via ExecAuto

*------------------------------------------*
User Function ExecPedAquis()
*------------------------------------------*
Local aCab := {}, aItem := {}, aItens := {}, aAnexo := {}, aAnexos := {}
Local nOpc := 3
Private lMsErroAuto := .F.

/******* Montagem dos Arrays *******/
// CAPA (aCab)
aAdd(aCab, {"EJW_FILIAL" , xFilial("EJW") , NIL})
aAdd(aCab, {"EJW_PROCES" , GetSXENum("EJW", "EJW_PROCES") , NIL})
aAdd(aCab, {"EJW_ORIGEM" , "EXECAUTO" , NIL})
aAdd(aCab, {"EJW_DTPROC" , dDataBase , NIL})
aAdd(aCab, {"EJW_EXPORT" , "EXP01" , NIL})
aAdd(aCab, {"EJW_LOJEXP" , "01" , NIL})
aAdd(aCab, {"EJW_MOEDA" , "US$" , NIL})
aAdd(aCab, {"EJW_CONDPG" , "1" , NIL})
aAdd(aCab, {"EJW_COMPL" , "Geração via ExecAuto" , NIL})

// ITENS (aItens)
aAdd(aItem, {"EJX_FILIAL" , xFilial("EJW") , NIL})
aAdd(aItem, {"EJX_PROCES" , aCab[2][2] , NIL})
aAdd(aItem, {"EJX_SEQPRC" , "0001" , NIL})
aAdd(aItem, {"EJX_ITEM" , "PRD-01" , NIL})
aAdd(aItem, {"EJX_NBS" , "101011000" , NIL})
aAdd(aItem, {"EJX_PAIS" , "249" , NIL})
aAdd(aItem, {"EJX_MODO" , "1" , NIL})
aAdd(aItem, {"EJX_DTPRIN" , CTOD("01/01/2016") , NIL})
aAdd(aItem, {"EJX_DTPRFI" , CTOD("31/12/2016") , NIL})
aAdd(aItem, {"EJX_DTINI" , CTOD("01/01/2016") , NIL})
aAdd(aItem, {"EJX_QTDE" , 40 , NIL})
aAdd(aItem, {"EJX_PRCUN" , 30.00 , NIL})
aAdd(aItem, {"EJX_TX_MOE" , 2.49 , NIL})
aAdd(aItem, {"EJX_COMPL" , "Geração via ExecAuto" , NIL})
aAdd(aItens,aItem)

// ANEXOS (aAnexos)
aAdd(aAnexo, {"EL2_FILIAL" , xFilial("EJW") , NIL})
aAdd(aAnexo, {"EL2_PROCES" , aCab[2][2] , NIL})
aAdd(aAnexo, {"EL2_DIRE" , "16012645212" , NIL})
aAdd(aAnexo, {"EL2_SEQDOC" , "01" , NIL})
aAdd(aAnexo, {"EL2_SEQPRC" , "0001" , NIL})
aAdd(aAnexos,aAnexo)

/******* Execução do ExecAuto *******/
MSExecAuto({|a,b,c,d| EICPS400(a,b,c,d)}, aCab, aItens, aAnexos, nOpc)

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

Return NIL

...

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão Atual

Chave