Histórico da Página

Veja também
Descrição	EICFI400 - Financeiro Importação
Observações	Utilizado durante a rotina de manutenção do Financeiro do Easy Import Control.

:

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

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

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

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	Carácter	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	Carácter	Ponto de entrada que retorna um array vindo do ParamIXB[2]. Esse array possui os RECNOs das despesas baixadas.
FI400_ESTORNO_BAIXA_PA	Carácter	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[3], 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 seja estornada. Retorna .F., caso contrário. O elemento aDespesas[3][2], retornaria o o código do título do financeiro, após a integração.
FI400Est_Desp	Carácter	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.

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.

Programa Fonte

EICFI400.PRW

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão 7

Chave