Como passar o nº de parcelas no Clisitef

[giovanedl]

Bom dia a todos. 

 

Queria pedir ajuda de vocês sobre como passar o numero de parcelas para o Clisitef, estou fazendo a parte de homologação mas não estou conseguindo fazer essa parte de parcelas pois não sei aonde eu passo esses parametros.

Se alguem tiver algum exemplo ou uma dica de como se faz seria de muita ajuda. 

 

Obs: Estou consumindo os métodos direto da  DLL CliSiTef32I

 

Desde já obrigado. 

[Juliomar Marchetti]

Boa tarde.

utilize o componente do ACBrTEFD e lá tem os eventos programados

[Joas Vilas Boas Fernandes]

Em 29/11/2019 at 09:23, giovanedl disse:

Bom dia a todos. 

 

Queria pedir ajuda de vocês sobre como passar o numero de parcelas para o Clisitef, estou fazendo a parte de homologação mas não estou conseguindo fazer essa parte de parcelas pois não sei aonde eu passo esses parametros.

Se alguem tiver algum exemplo ou uma dica de como se faz seria de muita ajuda. 

 

Obs: Estou consumindo os métodos direto da  DLL CliSiTef32I

 

Desde já obrigado. 

Eu utilizo assim:

no procedimento ACBrTEFDCliSiTefObtemCampo verifico o campo passado por parâmetro:

       if (TipoCampo = 505) then
         AForm.Edit1.Text := IntToStr(iNParcelas);

[giovanedl]

Em 02/12/2019 at 15:14, Juliomar Marchetti disse:

Boa tarde.

utilize o componente do ACBrTEFD e lá tem os eventos programados

Olá, então é que nesse projeto não podemos usar, estou meio que fazendo a mão mas eu estou lendo o projeto do ACBrTEFD que esta no Git e com base nos eventos já programados estou fazendo o meu projeto.

Mas já esta dando uma luz sobre quais passos seguir. 

Minha maior dúvida era como passar a informação mas agora estou entendo como funciona, estou fazendo a coleta dos dados e passando através do próprio buffer ai esta indo. 

 

Em 02/12/2019 at 16:02, Joas Vilas Boas Fernandes disse:

Eu utilizo assim:

no procedimento ACBrTEFDCliSiTefObtemCampo verifico o campo passado por parâmetro:

       if (TipoCampo = 505) then
         AForm.Edit1.Text := IntToStr(iNParcelas);

Olá Joas, então é que nesse projeto não podemos usar, estou meio que fazendo a mão mas eu estou lendo o projeto do ACBrTEFD que esta no Git e com base nos eventos já programados estou fazendo o meu projeto.

Mas já esta dando uma luz sobre quais passos seguir. 

Minha maior dúvida era como passar a informação mas agora estou entendo como funciona, estou fazendo a coleta dos dados e passando através do próprio buffer ai esta i

[giovanedl]

Em 02/12/2019 at 16:02, Joas Vilas Boas Fernandes disse:

Eu utilizo assim:

no procedimento ACBrTEFDCliSiTefObtemCampo verifico o campo passado por parâmetro:

       if (TipoCampo = 505) then
         AForm.Edit1.Text := IntToStr(iNParcelas);

    Case 512
                msgLog = msgLog & " **** Numero do cartao"
                Dim _sNumeroCartao As String = InputBox("Insira o número do cartão: ", "SITEF")
                bufferSolicitaCampo = Encoding.ASCII.GetBytes(_sNumeroCartao & vbNullChar)
Como estou fazendo a Coleta nesse caso é do Numero do cartão, mas esta servindo pra coletar todos os outros dados,  Eu coletando o dado transformo ele em Byte() e retorno ele pra Funcão ContinuaSitefInterativo.

 

Editado 11 Dezembro, 2019 por giovanedl
Erro na digitação

[Hetosoft Sistemas]

Onde eu consigo a lista pra saber que numero corresponde à cada campo?

Gostaria de alterar o TipoParcelamento e o TipoTransacao.

[EMBarbosa]

2 horas atrás, hetoandrade disse:

Onde eu consigo a lista pra saber que numero corresponde à cada campo?

Gostaria de alterar o TipoParcelamento e o TipoTransacao.

Você precisa verificar no manual da certificadora.