Jump to content
Fivewin Brasil

kapiaba

Membros
 View Profile  See their activity

  • Posts

    24,540

  • Joined

  • Last visited

  • Days Won

    282

 Content Type 

Posts posted by kapiaba

  8. Problamas no valid da dialog

    in Programação

    Posted

    43 minutos atrás, Marca disse:

    Puts.  O fonte onde acontece isso é gigante João. 
    Mais uma vez q. saiu do valid da dialog concorda q. não poderia mais executar a rotina por já ter saido dela ?

     

    Você não consegue simular como um DEMO pequeno? 

  10. Problamas no valid da dialog

    in Programação

    Posted

    O título está erado: Problamas no valid da dialog o problema é na lógica. E porquê você grava no ON INIT e não na SAÍDA da FUNÇAO(), trenzinho feio da pohha que tú fez, hein? melhore isso.

    Grave ao entrar antes do DEFINE DIALOG e na saida do ACTIVATE DIALOG para ver o que o corre.

    Regards, saludos.

  14. ref api

    in Programação

    Posted

    eu acho, que este modo de programação, não funciona mais com I.E. ou google e sim, somente com WEBVIEW(Microsoft Edge), já vá se acostumando com CURL(), maior pé no $aco para eu dominar isso em xHarbour, leia desde o inicio para ver se entende esse "trem".

    https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43685&hilit=curl&sid=cf863a9a2816ec56a1b3bea94fdbedae&start=60

    Não me aprofundei, pois não uso, só queria tentar "dominar", não entendi muita coisa... kkkkk

    Regards, saludos.

  15. ref api

    in Programação

    Posted

    Tente fazer imitando este exemplo, senão você tá laskado, vai ter que aprender a usar CURL(). 

    

// C:\FHH\SAMPLES\ADHEMAR3.PRG

#include "fivewin.ch"

Function Main()

   Local cJSon, cRespuesta := "", oSoap, cToken
   
   cToken:= "TokenApi eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJJUlJJQk9MSVZJQSIsImNvZGlnb1Npc3RlbWEiOiI3NzExNEIyMERGQTRBRkI0NDFCMjVGNyIsIm5pdCI6Ikg0c0lBQUFBQUFBQUFETTBNYlV3TURNd01nRUFJc2g0VUFrQUFBQT0iLCJpZCI6NDI5MDgsImV4cCI6MTY4ODA4MzIwMCwiaWF0IjoxNjg0Nzc4NzcxLCJuaXREZWxlZ2FkbyI6MTQ1ODA2MDI0LCJzdWJzaXN0ZW1hIjoiU0ZFIn0.EgEF0lslzpnGkuFE05LazGbsKSkH98yN9B6fch5AEHL0On-mFtmld-3GaGahjP5n76DIbP3HECuktFY3xQ6pjQ"
 
   // oSoap = CreateObject("MSXML2.ServerXMLHTTP.6.0")

   #ifdef __XHARBOUR__

      Try

         Try
            oSoap := CreateObject( 'Microsoft.XMLHTTP' )
         Catch
            oSoap := CreateObject( 'MSXML2.XMLHTTP' )
         End

      Catch

         MsgInfo( 'Erro na Criação do Serviço' )

         RETURN NIL

      End

   #else

      Try

         Try
            oSoap := win_OleCreateObject( 'MSXML2.XMLHTTP' )
         Catch
            oSoap := win_OleCreateObject( 'Microsoft.XMLHTTP' )
         End

      Catch

         MsgInfo( 'Erro na Criação do Serviço! Com Harbour', 'Atenção!' )

         RETURN NIL

      End

   #endif
 
   cJson:='<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:siat="https://siat.impuestos.gob.bo/">'+CRLF
   cJson+='<soapenv:Header/>'+CRLF
   cJson+=' <soapenv:Body>'+CRLF
   cJson+='  <siat:cufd>'+CRLF
   cJson+='   <SolicitudCufd>'+CRLF
   cJson+='     <codigoAmbiente>2</codigoAmbiente>'+CRLF
   cJson+='     <codigoModalidad>1</codigoModalidad>'+CRLF
   cJson+='     <!--Optional:-->'+CRLF
   cJson+='    <codigoPuntoVenta>0</codigoPuntoVenta>'+CRLF
   cJson+='    <codigoSistema>77114B20DFA4AFB441B25F7</codigoSistema>'+CRLF
   cJson+='    <codigoSucursal>0</codigoSucursal>'+CRLF
   cJson+='    <cuis>3A5218DE</cuis>'+CRLF
   cJson+='    <nit>145806024</nit>'+CRLF
   cJson+='   </SolicitudCufd>'+CRLF
   cJson+='  </siat:cufd>'+CRLF
   cJson+=' </soapenv:Body>'+CRLF
   cJson+='</soapenv:Envelope>'+CRLF
 
   oSoap:Open( "POST","https://siat.impuestos.gob.bo/", .F. )
   // oSoap:SetRequestHeader( "apikey", cToken )
   oSoap:Send( cJson )

   // cRespuesta:=oSoap:responseText

   IF oSoap:STATUS != 200

      MsgStop( AllTrim( Str( oSoap:Status ) ) + " - " + oSoap:StatusText, "Erro" )

      RETURN NIL

   ENDIF

   WHILE oSoap:ReadyState != 4

      SYSREFRESH()

      oSoap:WaitForResponse( 1000 )

   END

   // ? cRespuesta

   cRespuesta := oSoap:ResponseBody()

   IF FILE( "ADHEMAR.txt" )
      ERASE ADHEMAR.txt
   ENDIF

   MemoWrit('ADHEMAR.txt', cRespuesta)
     
return cRespuesta

// FIN / END

    Regards, saludos.

  16. Impressão NFe

    in Programação

    Posted

    Bom dia Sisco, rapaz, eu nunca vi essa função na minha vida. Isso é para imprimir o DANFE, ou para gerar um .PDF da NFE?

    e o que é isso? 

     Run( "Start " + cFilePdf )

    Se for para imprimir o DANFE, veja a classe do Gilmer, DANFE.PRG é essa que usamos para imprimir a NFE e para gerar o .PDF, é outro modo que se precisar, eu procuro aqui no HD e posto para você.

    abs.

    Regards, saludos.

  19. ref api

    in Programação

    Posted 

    #include "Fivewin.ch"

FUNCTION Main()

   LOCAL pCpf     := "99999999999"
   LOCAL pCnpj    := "08124858000100"
   LOCAL pNome    := "joao carlos"
   LOCAL pArquivo := ".\func0001.JPG"
   // LOCAL pArquivo := ".\LOGO.jpg"
   LOCAL cRetorno := ""

   cRetorno := fEnviaArquivo( pCpf, pCnpj, pNome, pArquivo )

   MsgInfo( cRetorno )

   MemoWrit( ".\carlos.txt", cRetorno )

RETURN NIL // .T.

// ------------------------------------------------------------------------------*
// Analista : maniel
//
// Objetivo : Enviar Arquivo
// ------------------------------------------------------------------------------*
FUNCTION fEnviaArquivo( pCpf, pCnpj, pNome, pArquivo )

   LOCAL oHttp, cTexto := ""

   #IFDEF __XHARBOUR__  // xHarbour

      Try

          oHttp:= CreateObject( "MSXML2.ServerXMLHTTP.6.0" )

      Catch

         MsgInfo('Erro na Criação do Serviço!', 'xHarbour: Atenção!')

         Return Nil
      End

   #ELSE

      Try

         oHttp:= win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0")

      Catch

         MsgInfo('Erro na Criação do Serviço!', 'Harbour: Atenção!')

         Return Nil
      End

   #ENDIF

   TRY

      oHttp:Open( 'POST', "https://api-fpm.syspel.com.br/api/recibos/", .F. )

      cTexto := '{ '
      cTexto += '"id_client": '  + pCpf
      cTexto += '"id_company": ' + pCnpj
      cTexto += '"Id_employee": ' + pNome
      cTexto += '"File": '       + pArquivo
      cTexto += ' }'

      oHttp:Send( cTexto )

   CATCH

      MsgInfo( "Erro no processo post:" + oHttp:lastErrorMessage() )

   END

RETURN( oHttp:ResponseBody )

// FIN / END

Regards, saludos.

    teste assim e reporte erros, pls.

×
×
  • Create New...