Histórico da Página

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=6806906

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

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

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

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.

Programa Fonte

EICFI400.PRW

Árvore de páginas

Versões comparadas

Versão antiga 10

Nova versão 11

Chave