Árvore de páginas

Versões comparadas

Chave

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

Descrição

EICFI400 - Financeiro Importação

Observações

Utilizado durante a rotina de manutenção do Financeiro do Easy Import Control.

Veja também

http://tdn.totvs.com/pages/releaseview.action?pageId=6806905

https://tdn.totvs.com/display/public/mp/EICFI400

Exemplos

User Function EICFI400()

Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,"")) Local aDespesas
Local cMsg
Local i
Local line := CHR(13)+CHR(10)

If cParam == "FI400EDIT_ATIT"

MsgInfo("Entrou no ponto de entrada:'FI400EDIT_ATIT'.")

EndIf


// Mostra uma mensagem das despesas baixadas


IF ParamIXB[1] == "FI400_POS_BAIXA_PA_OK"

cMsg := "Despesas baixadas: " + line

aDespesas := ParamIXB[2]

For i := 1 To Len(aDespesas)

SWD->(dbGoTo(aDespesas[i]))

cMsg += SWD->WD_HAWB + " - " + SWD->WD_DESPESA + line

Next

MsgInfo(cMsg)

EndIf


// Mostra uma mensagem das despesas estornadas


IF ParamIXB[1] == "FI400_ESTORNO_BAIXA_PA"

cMsg := "Despesas estornadas: " + line
aDespesas := ParamIXB[2]

For i := 1 To Len(aDespesas)

SWD->(dbGoTo(aDespesas[i][1]))
cMsg += SWD->WD_HAWB + " - " + SWD->WD_DESPESA + " - " + aDespesas[i][2] + " - " + cValToChar(aDespesas[i][3]) + line

Next
MsgInfo(cMsg)

EndIf


IF ParamIXB[1] == "FI400Est_Desp"

cMsg := "Despesa estornada: " + line
cMsg += SWD->WD_HAWB + " - " + SWD->WD_DESPESA + " - "
MsgInfo(cMsg)

EndIf


If cParam == "FI400ARRAY_BAIXA"

nPos:= AScan(aBaixa, {|x| x[1] == "CAMPO_PROCURADO"}) //vide também: https://tdn.totvs.com/display/public/PROT/ADV0021_FUN_Exemplo+Rotina+Automatica+FINA080

If nPos > 0

aBaixa[nPos][2]:= "Novo Valor"

EndIf

EndIf


If cParam == "APOS_GRAVACAO_TIT"

MsgInfo("Origem: " + cOriRdm + "; Tipo do título: " + cTipoRdm + "; tipo de geração automática: " + iif(lAutRdm, "sim.", "não."))

EndIf


If cParam == "FI400INCTIT"
   MsgInfo("Ponto de Entrada 'FI400INCTIT'." + CHR(13)+CHR(10) + "M->E2_NUM := 1234567890")
   M->E2_NUM := "1234567890"

   M->E2_VENCTO := dDataBase

   M->E2_VENCREA := dDataBase

   M->E2_TXMOEDA := 1
EndIf


If cParam == "ANTES_INC_TIT_INV"

/* exemplo de customização

If Empty(M→W6_DT_EMB

lGeraTitInv:= .F.

EndIf

fim do exemplo */

EndIf


if cParam == "POS_VER_LIQ" //Ativado antes da gravaçãd da invoice

     lAltdInv := .T.

     AADD(aAltInv,"INVOICE         FORN01") //invoice + fornecedor + loja

EndIf


if cParam == "FI400POS_DI_INICIO" //Ativado antes da gravaçãd do desembaraço

     lAltdInv := .T.

     AADD(aAltInv,"INVOICE         FORN01") //invoice + fornecedor + loja

EndIf


If cParam == "MAN_EXC_DESP"

If  TRB->WD_DESPESA == "901"

lValid:= .F.

EndIf

EndIf


Return Nil

Preview

Veja também


Idioma

Português(Brasil)

Versões

12.1.7

Sistemas Operacionais Suportados

Windows

Compatível com as Bases de Dados

Topconnect

Updates


Parâmetros


Nome

Tipo

Descrição

Default 

Obrigatório 

Referência 

FI400EDIT_ATIT

String

Objetivo deste ponto de entrada é permitir a customização do Array aTit que envia as informações para a tabela SE2 de títulos a pagar no módulo Financeiro(SIGAFIN).









FI400_POS_BAIXA_PA_OK

String

Ponto de entrada que retorna um array vindo do ParamIXB[2]. Esse array possui os RECNOs das despesas baixadas.









FI400_ESTORNO_BAIXA_PA

String

Ponto de entrada que retorna um array vindo do ParamIXB[2]. Esse array possui os RECNOs das despesas possivelmente estornadas. Se por exemplo, a variável aDespesas := ParamIXB[2], para saber o RECNO da terceira despesa do array, basta acessar aDespesas[3][1]. Para saber se a despesa [3] foi estornada, então, acessar aDespesas[3][3]. O elemento aDespesas[3][3] retorna .T., caso foi estornada. Retorna .F., caso contrário.

O elemento aDespesas[3][2], retorna o código do título do financeiro, após a integração.











FI400Est_Desp

String

Este ponto de entrada para cada despesa que está sendo estornada. Não é garantido que a despesa foi estornada, ao passar por este ponto de entrada.









FI400ARRAY_BAIXA

String

Executado antes da chamada da rotina automática para baixa de título a pagar (FINA080 - https://tdn.totvs.com/display/public/PROT/ADV0021_FUN_Exemplo+Rotina+Automatica+FINA080) possibilita a edição das informações que serão transmitidas na integração. Neste momento estará disponível para edição a variável aBaixa.









APOS_GRAVACAO_TIT

String

Executado após a inclusão do título a pagar, possibilita implementar customizações no processo que originou a integração e saber se a integração com o módulo SIGAFIN ocorreu









FI400INCTIT

String

Permite acessar e modificar as variáveis de memória dos dados do título financeiro a pagar que será gerado a partir das informações da parcela de câmbio ou despesa do SIGAEIC.









FI400BAIXAPA_ALTCPO

Array of Record

Possibilita a manipulação da data de vencimento na geração da invoice.










ANTES_INC_TIT_INV

String

Parâmetro do ponto de entrada EICFI400 que possibilita determinar se haverá a geração do título para a Invoice do processo - título tipo INV.









POS_VER_LIQ

String

Parâmetro do ponto de entrada EICFI400 que possibilita  indicar se  será regerado título para todas as invoices ou apenas para invoices específicas.

Este parâmetro é ativado antes da gravaçao da invoice, tanto a invoice do embarque quanto a invoice do desembaraço.











FI400POS_DI_INICIO

String

Parâmetro do ponto de entrada EICFI400 que possibilita  indicar se  será regerado título para todas as invoices ou apenas para invoices específicas.

Este parâmetro é ativado antes da gravação do embarque ou  desembaraço.











MAN_EXC_DESP

String

Parâmetro do ponto de entrada EICFI400 que possibilita desativar a validação de exclusão da despesa 901 pela rotina de despesas do desembaraço. Importante: a exclusão dos títulos da despesa 901 são excluídas pela rotina de Geração de PA no processamento padrão.








Retorno

()

Eventos de chamada do Ponto de Entrada


Variáveis


Nome

Tipo

Escopo

Pode Alterar

Descrição 

aTit

Array of Record

Privado

Sim

Utilizar conforme o exemplo: AADD(aTit,{"E2_ORIGEM" ,SE2->E2_ORIGEM            ,NIL})

ParamIXB[2]

Array of Record




Não

Array com os valores do RECNO das despesas que foram baixadas no financeiro.




Array of Record




Não

ParamIXB[2][n][1]: RECNO da despesa possivelmente estornada.

ParamIXB[2][n][2]: Código do título que foi gerado do financeiro antes de estornar.

ParamIXB[2][n][3]: Retorna .T., se foi estornado com sucesso, retorna .F., caso contrário.



aBaixa

Array of Record

Private

Sim

Disponível no ponto de entrada com o parâmetro FI400ARRAY_BAIXA, contém os dados que serão enviados para a baixa do título a pagar.

cOriRdm

String

Private

Não

Disponível no ponto de entrada com o parâmetro APOS_GRAVACAO_TIT possibilita identificar quem originou a chamada para inclusão do título a pagar

cTipoRdm

String

Private

Não

Disponível no ponto de entrada com o parâmetro APOS_GRAVACAO_TIT possibilita identificar o tipo de título a pagar que foi gerado no módulo SIGAFIN.

lAutRdm

String

Private

Não

Disponível no ponto de entrada com o parâmetro APOS_GRAVACAO_TIT possibilita identificar se a geração do título ocorreu via rotina automática (true) ou com abertura de tela (false).

lMsErroAuto e lRetF050

String

Private

Não

Disponível no ponto de entrada com o parâmetro APOS_GRAVACAO_TIT possibilita identificar se a geração do título ocorreu com sucesso. Quando for geração automática (lAutRdm true) deve ser olhada a variável lMsErroAuto e quando não for geração automática (lAutRdm false) deve ser considerada a variável lRetF050.

M->E2_(*)

Variável de Memória

Private

Sim

Disponíveis no ponto de entrada com o parâmetro FI400INCTIT possibilita verificar os dados do título carregados pelo SIGAEIC que serão mostrados na tela do título financeiro do Contas a pagar antes da confirmação para geração do título.

Verifique a existência das variáveis de memória antes de alterar o seu valor via ponto de entrada.

Vide exemplo para ter ciência de algumas das variáveis que são carregadas e que portanto permitem modificação.



cIniDocto

Caracter

Private

Sim

Variável que guarda o valor que será exibido inicialmente no campo "No Título" na tela de geração de títulos.

lGeraTitInv

Lógico

Private

Sim

Disponível no ponto de entrada com o parâmetro ANTES_INC_TIT_INV possibilita desviar a geração do título tipo INV, referente à Invoice do processo.

lAltdInv

Lógico

Private

Sim

Se alterada para  .T. todas as será regerado título para toda as invoices, se for alterado para .F. não será regerado título para nenhuma invoice.

aAltInv

Array

Private

Sim

Será regerado titulo para cada invoice do array.

lValid

Lógico

Private

Sim

Disponível no ponto de entrada com o parâmetro MAN_EXC_DESP, possibilita alterar a regra de validação das despesas.

Programa Fonte

EICFI400.PRW