TEF dedicado GP Direção

[Gilberto M Silva]

Olá pessoal,

estou implementando o TEF dedicado no meu aplicativo usando o GP Direção, da Direção Client D-TEF. Estou com problema que é o seguinte: Abro o cupom pra fazer uma venda, passo o item, forma de pagto, cartão passo o valor da venda

e mando o camando para abrir o GP Direção só que nesse momento tenho que parar meu aplicativo para que os dados do cartão sejam digitados após ser aprovado imprimindo e voltar para a aplicação. Eu estou fazendo da seguinte forma, só que não pode:

Código: Selecionar todos

               CRIA_CRT() &&gera intpos.001 com o comando CRT 

               TOTCART:=STRZERO(VLR_PAG,12,0)

               RUN COPY INTPOS.001 C:\TEF_DIAL\REQ > NULL  &&copia o intpos.001 para puxar o GP

               VAR_BUFFER_COMANDO := "2024;C:\TEF_DIAL\RESP\INTPOS.001;60;1;"

               COMUNICA_COM_ECF(VAR_BUFFER_COMANDO)

               R_INTP:= SubStr(VAR_BUFFER_RETORNO,00,4)

               SAVE SCREEN TO DARUMA

               VAR_BUFFER_COMANDO := "2022;DARUMA;"

               COMUNICA_COM_ECF(VAR_BUFFER_COMANDO)

               IF R_INTP<>" 001"

                  MENSAGE('Erro ao esperar arquivo..')

                  LIMPA22()

                  LOOP

               ENDIF

               @22,02 SAY "Apos preencher os dados do cartao pressione qualquer tecla.."  (não pode ter essa mensagem)

               INKEY(0)  (eu preciso substituir esse comando)

como faço para ficar esperando que o GP direção feche e a aplicação continuar o curso???

tem outro comando que não seja o inkey(0), um comando que eu possa implementar para ficar esperando que o GP saia fora e volte para a aplicação??



Grato,

Att,

Gilberto

[fladimir]

Colega se esse TEF funcionar semelhante ao discado ele irá criar um arquivo de retorno, vc pode monitorar a criação desse arquivo e aguardar mais x segundos e assumir o controle...

Código: Selecionar todos

//-- Fica no laço enquanto não tiver o arquivo, ou seja, fica esperando pelo arquivo até 7s.
      TFIM := seconds() + 7
      lEstourouTempoEspera := .F. 
      do while !FILE(ArqRetorno) 
          IF (seconds() > TFIM) 
               lEstourouTempoEspera := .T.       
               exit
          ENDIF 
          millisec(20)
      enddo
      IF lEstourouTempoEspera .AND. !File( ArqRetorno )
          ALERT("Timeout, refaça a operação")
       ENDIF
       IF File( ArqRetorno )
           //Continua operações TEF
       ENDIF

[]´s

[Gilberto M Silva]

beleza, funcionou, fiz a certificação tef dedicado, certificação remota, sem sair de casa, 2 dias de testes tudo ok, já recebi a documentação da Cielo, tudo em clipper 5,2, a solução TEF uso o GP Dierção.

[Gilberto M Silva]

Agora rumo a HOMOLOGAÇÃO PAF-ECF, fazendo acertos finais para enfrentar a homologação UNP/RN,

[fladimir]

Q bom Gilberto parabéns... poderia disponibilizar o link de como encontrar informações para fazer esta homologação remota conforme descreveu sem se deslocar e etc... e se possível o custo e demais informações q ajude a mim e demais colegas q precisarem?

[]´s

[Imatech]

Olá Fladimir !

GP Direção: deve ser o nosso velho conhecido Gerenciador Padrão da SoftwareExpress


http://www.softwareexpress.com.br/ArqCl ... efdial.htm





Gerenciador Padrão - Versão 3.0

Gerenciador Padrão (http://www.softwareexpress.com.br/ArqCl ... Padrao.zip)

Guia Técnico (http://www.softwareexpress.com.br/ArqCl ... 032010.zip)

Pagamento com múltiplos cartões (http://www.softwareexpress.com.br/ArqCl ... artoes.zip)






Módulo Redecard - Versão 5.0.0

Disco Instalação (http://www.softwareexpress.com.br/ArqCl ... decard.zip)

Roteiro de Pré Homologação (http://www.softwareexpress.com.br/ArqCl ... %20TEF.zip)

Manual de Configuração (http://www.softwareexpress.com.br/ArqCl ... 05.0.0.zip)


etc...

[fladimir]

Colega obrigado pela resposta... a proposito qual o teu nome...

Mas observe na postagem do Gilberto q o mesmo homologou sem sair de casa e essa modalidade q vc postou pelo q sei tenho q ir até SP.

beleza, funcionou, fiz a certificação tef dedicado, certificação remota, sem sair de casa, 2 dias de testes tudo ok, já recebi a documentação da Cielo, tudo em clipper 5,2, a solução TEF uso o GP Dierção.

[]´s

[Gilberto M Silva]

Olá fladimir,
o jovemxxx ja passou os endereços dos arquivos, o GP Direção a versao atual é 8.1.27, só complementando quem quiser mais informações entra em contato com a Belinda: belinda@direcao.com ou suporte.integracao@direcao.com ou fone:(11)2102-9999. em anexo arquivo com algumas informações
Att,
Gilberto

[Gilberto M Silva]

O endereço de skype do coordenador da certificação é reginaldo.certified, ele te passa as informações para certificação, e a Belinda como mencionei anterior sobre o GP Direção.

[lucimauro]

Gilberto voce pode dizer tambem a questão de custo,quando sai para homologar.

[Gilberto M Silva]

baixe o arquivo que coloquei em anexo acima Descrições e Planos de Pagamentos por Processos.pdf nele tem todas as informações necessárias para fazer a certificação remota e preços. Preço presencial = 700,00, preço remoto = 900,00 foi o que eu paguei, e remoto com pre-certificação = 1.200,00. com pre-certificação voce contrata antes de fazer a certificação; o analista passa com você pra ver se tem pendências,se ter faz os acertos depois mais dois dias para a certificação você acompanha tudo pelo remoto, a certificadora disponibiliza uma maquina virtual para voce fazer a instalação e configuração do seu aplicativo pelo teamViewer. voce acompanha todos os testes se quiser centado na frente do seu PC tomando um suco.
se não quiser fica online com o analista pelo skype e ele vai te passando o processo dos testes, quem fez a certificação do meu aplicativo foi o Emerson Almeida (analista) skype emerson.certified

[fladimir]

Valeu Gilberto e demais colegas... obrigado pelas informações...

[]´s

[Gilberto M Silva]

Aplicativo homologado PAF-ECF UnP Natal-RN totalmente em clipper 5.2.
valeu galera, pela preciosa ajuda que tive dos colegas aqui do forum. :-Y

[ANDRIL]

Aplicativo homologado PAF-ECF UnP Natal-RN totalmente em clipper 5.2

Parabéns Gilberto!
Abraços

[acmpsoft]

boa noite,

o que você para comunicar com a ECF no PAF(dll mesmo, acbrmoniror)?


Antonio