EICFI400 - Financeiro Importação

Descriçã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)

Local nTaxaNova := 2,8 //Exemplo taxa nova

If cParam == "FI400EDIT_ATIT"

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

EndIf

If cParam == "MUDA_TAXA"

If nTaxa > 0
MsgInfo("Entrou no ponto de entrada 'MUDA_TAXA', Taxa Atual: "+nTaxa+"Taxa nova: "+nTaxaNova+".")
EndIF

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

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

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

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
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.
MUDA_TAXA	String	Parâmetro que permite a alteração da taxa que será utilizada na compensaçã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 de exclusão das despesas.
nTaxaPE	Lógico	Private	Sim	Taxa que será utilizada na compensação no contas a pagar

Programa Fonte

EICFI400.PRW

Árvore de páginas

EICFI400 - Financeiro Importação