PC Toledo

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)

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