Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 7

changes.mady.by.user Guilherme Fernandes Pilan

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Camila Nogueira

Gravado em

Chave

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

...

cAlias - Tabela da capa de Câmbio. Deve vir com conteudo fixo "EEQ".
nReg - Recno da tabela: não obrigatório
nOpc - Número da operação: não obrigatório
aEEQAuto (REGISTROS) - Variavel do tipo Array com os dados de cambio
nOpcAuto (OPERAÇÃO) - Variavel do tipo Numerico responsavel por definir qual operação executar (Inclusão, Alteração, Exclusão). 
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. 

Importante ressaltar que os câmbios sempre são vinculados a uma ou mais Invoices. Desta maneira, não é possível criar parcelas de câmbio sem antes possuir uma invoice para vincula-las.

Os campos para geração de Câmbio são listados abaixo:

...

Exemplo de Inclusão de Invoice via ExecAuto

*------------------------------------------*
User Function ExecCambAuto()
*------------------------------------------*
Local aEEQAuto := {}
Local nOpcAuto := 3
Private lMsErroAuto := .F.

/******* Montagem dos Arrays *******/
// REGISTROS (aEEQAuto)
aAdd(aEEQAuto, {"EEQ_FILIAL" , xFilial("EEQ") , NIL})
aAdd(aEEQAuto, {"EEQ_TPPROC" , "V" , NIL})
aAdd(aEEQAuto, {"EEQ_PREEMB" , "V0100" , NIL})
aAdd(aEEQAuto, {"EEQ_EVENT" , "501" , NIL})
aAdd(aEEQAuto, {"EEQ_IMPORT" , "01" , NIL})
aAdd(aEEQAuto, {"EEQ_IMLOJA" , "01" , NIL})
aAdd(aEEQAuto, {"EEQ_PROCES" , "0100" , NIL})
aAdd(aEEQAuto, {"EEQ_NRINVO" , "INV540" , NIL})
aAdd(aEEQAuto, {"EEQ_PARC" , "01" , NIL})
aAdd(aEEQAuto, {"EEQ_SOURCE" , "EXECAUTO" , NIL})
aAdd(aEEQAuto, {"EEQ_VCT" , CTOD("31/12/2016") , NIL})
aAdd(aEEQAuto, {"EEQ_VL" , 50.00 , NIL})
aAdd(aEEQAuto, {"EEQ_VLSISC" , 50.00 , NIL})
aAdd(aEEQAuto, {"EEQ_MODAL" , "1" , NIL})

/******* Execução do ExecAuto *******/
MSExecAuto({|a,b,c,d,e,f| EECAF500(a,b,c,d,e,f)}, "EEQ", NIL, NIL, aEEQAuto, nOpcAuto, "V")

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

Return NIL 

 

Exemplo de Resultado da operação

...