Search the Community
Showing results for tags 'class sintegra'.
-
Pessoal, Na rotina do sintegra, o programa mostra todos os dados relacionado ao CNPJ na tela mas não está mais fazendo o download dos dados na variável ::cRetorno. Alguém sabe como corrigir? Parece que o erro está na instrução ((( ::cRetorno := oAct:Document:Body:InnerHtml ))) Method Consulta() Class Sintegra Local oDlg, oAct Local nTimer If IsInternet() == .F. MsgStop("Sem conexão com a internet !") Return {} Else ::Clear() EndIf ::cRetorno := "" ::cError := "" ::lDownload := .F. ::lError := .F. Define Dialog oDlg From 0,0 To 600,900 Pixel Title "[ ("+::cUF+") SINTEGRA - Consultando ] -> Você pode colar o <CNPJ> no campo com o botão direito do mouse." // Style WS_CAPTION oDlg:lHelpIcon:=.F. Activate Dialog oDlg NoWait Centered oAct:=TActivex():New(oDlg,"Shell.Explorer",00,0,900,600) oAct:bOnEvent := {|cEv|If(cEv=="DownloadComplete",::DownloadComplete( oAct ),Nil)} oAct:Silent := .T. oAct:Navigate( ::cPost ) oAct:SetFocus() nTimer:=Seconds() While !::lDownload If !IsWindowVisible( oDlg:hWnd ) ::lDownload := .T. ::lError := .T. ::cError := "Consulta Cancelada !" ElseIf !IsInternet() ::lDownload := .T. ::lError := .T. ::cError := "Perda de conexao com a internet !" ElseIf( Seconds()-nTimer ) >= ::nTimeOut ::lDownload := .T. ::lError := .T. ::cError := "Tempo limite esgotado !" EndIf SysRefresh() End Try ::cRetorno := oAct:Document:Body:InnerHtml Catch oE ::lError := .T. ::cError := "Falha no recebimento dos dados!" End oDlg:End() SysRefresh() If ::lDownload .and. !::lError Return MontaSintegra(::cRetorno, ::aGru1, ::aGru2, ::cUF) Else MsgStop(::cError,"Atenção") EndIf Return {}