DT Criação do ponto de entrada para a geração dos cartões

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Devemos criar um ponto de entrada para que seja possível incluir campos customizados no momento da geração de cartões do TEF e POS, sendo assim possibilitando o cliente colocar mais campos que queira considerar no momento da geração do titulo.

03. SOLUÇÃO

Adicionado os pontos de entrada GTTITPOS e GTTITTEF para permitir  incluir novos campos na geração dos títulos de contas a receber das vendas realizada com cartão nas modalidades POS e TEF.

• O ponto de entrada GTTITPOS será acionado antes da chamada do ExecAuto da função FINA040, este ponto de entrada irá permitir inserir mais campos customizados  da tabela SE1 na geração do título.
  • Parâmetros do ponto de Entrada GTTITPOS:
    1. ParamIXB[1] → Array com os dados a serem gravados na tabela SE1 pelo ExecAuto da função FINA040.
    2. ParamIXB[2] → conteúdo texto contendo a chave para posicionar a tabela GQM de onde são extraídos os dados para gravação do título, a chave é composta pelos seguintes campos: GQM_FILIAL+GQM_CODGQL+GQM_CODNSU+GQM_CODAUT.
  • Retorno do ponto de Entrada GTTITPOS:
    • Array contendo todos os dados que serão gravados na tabela SE1 pelo ExecAuto da função FINA040.

#INCLUDE 'PROTHEUS.CH'

User Function GTTITPOS()
Local aDadosSE1 := ParamIXB[1]
Local cChaveGQM := ParamIXB[2]

GQM->(dbSetOrder(1))

If GQM->(dbSeek(cChaveGQM))
    AADD(aDadosSE1, {'E1_TESTE', GQM->GQM_ESTAB, NIL})
Endif

Return aDadosSE1

• O ponto de entrada GTTITTEF será acionado antes da chamada do ExecAuto da função FINA040, este ponto de entrada irá permitir inserir mais campos customizados  da tabela SE1 na geração do título.
  • Parâmetros do ponto de Entrada GTTITTEF:
    1. ParamIXB[1] → Array com os dados a serem gravados na tabela SE1 pelo ExecAuto da função FINA040.
    2. ParamIXB[2] → conteúdo texto contendo a chave para posicionar a tabela GZP de onde são extraídos os dados para gravação do título, a chave é composta pelos seguintes campos: GZP_FILIAL+GZP_CODIGO+GZP_CODBIL+GZP_ITEM
  • Retorno do ponto de Entrada GTTITTEF:
    • Array contendo todos os dados que serão gravados na tabela SE1 pelo ExecAuto da função FINA040.

#INCLUDE 'PROTHEUS.CH'

User Function GTTITTEF()
Local aDadosSE1 := ParamIXB[1]
Local cChaveGZP := ParamIXB[2]

GZP->(dbSetOrder(1))

If GZP->(dbSeek(cChaveGZP))
    AADD(aDadosSE1, {'E1_TESTE', GZP->GZP_ESTAB, NIL})
Endif

Return aDadosSE1

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

• Não há.