Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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

...