PC Toledo

Código: Selecionar todos

     cDestino := 'C:\ACBrNFeMonitor\'
     cDestino := cDestino+'sainfe.txt'
   //Aqui um do while básico!
      EsperaResposta(cDestino)
      
     msginfo(cString := memoread(cDestino))
     fErase(cDestino)
     return cString

Código: Selecionar todos

**********************
Function ChkRetornoNFE
**********************
*
*
Local oDlg, oFont,cDestino
If en->(dbseek('DIR'+'ACBRNFE'))
   cDestino := alltrim(en->dados)
Else
   cDestino := 'C:\ACBrNFeMonitor\'
EndIf
cDestino := cDestino+'sainfe.txt'

Private cTempo,oTempo,lAchou := .f.
PREPARE FONT oFont NAME "MS Sans Serif" WIDTH 0 HEIGHT -15
INIT DIALOG oDlg CLIPPER TITLE "Resposta SEFAZ NFE" Font oFont AT 0,0 SIZE 400,90 STYLE DS_CENTER +WS_SYSMENU+WS_VISIBLE

  @ 10,10 say "Aguarde.. Esperando Retorno da SEFAZ..." size 290,20
   cTempo := time()
  @ 300,10 say oTempo Caption transform(cTempo,'99:99:99') size 70,20

  oDlg:bActivate := {||EsperaResposta(cDestino)}

oDlg:Activate(  )

if lAchou
     msginfo(cString := memoread(cDestino))
    // VerRelatorio(cFile)
     fErase(cDestino)
endif

return cString

******************************
Function EsperaResposta(cFile)
******************************
*
*
Do while .t.

     cTempo:= Time()
     oTempo:SetText(cTempo,'99:99:99')
     if file(cFile)
        lAchou := .t.
        exit
     endif
     inkey(.8)

      if GetKeyState(VK_ESCAPE) < 0
         exit
      endif

enddo

EndDialog()
return .t.