syspel

ola pessoal 

ja vasculei tudo e nao achei nada para comsumir um api,tentei curl so da erro falta o ch

tem muita gente dizendo que funciou o deles mas nao vi nada que funciona testei todos os

exemplo e nao funcioou

e agora

carlos fwh 2111 xharb 123 

ola pessoal ainda nao consequi colocar um pdf no sint

todos os exemplos que testei so da erros nao funciona

que coisa,nao tem nada que funciona ?

obrig

carlos

fwh2111 xharb 123 dbfs 

Application
===========
   Path and name: C:\api\carlo.exe (32 bits)
   Size: 4,367,360 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20200226)
   FiveWin  version: FWH 21.11
   C compiler version: Borland/Embarcadero C++ 7.3 (32-bit)
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 1 secs 
   Error occurred at: 02/19/24, 09:46:10
   Error description: Error MSXML2.ServerXMLHTTP.6.0/3  DISP_E_MEMBERNOTFOUND: LASTERRORMESSAGE
   Args:

Stack Calls
===========
   Called from:  => TOLEAUTO:LASTERRORMESSAGE( 0 )
   Called from: carlo.prg => FENVIAARQUIVO( 70 )
   Called from: carlo.prg => AVPI102( 12 )

System
======
   CPU type: Intel(R) Core(TM)2 Duo CPU     E7300  @ 2.66GHz 2666 Mhz
   Hardware memory: 3318 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 7
      1 ,                                                                                                     
      2 , C:\Windows\system32\SHLWAPI.dll                                                                     
      3 Altern�ncia de tarefas, C:\api\jair.exe                                                                                     
      4 DDE Server Window, C:\Windows\system32\OLE32.DLL                                                                       
      5 GDI+ Window, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.24542_none_5c0717c7a00ddc 
      6 MCI command handling window, C:\Windows\system32\WINMM.DLL                                                                       
      7 Program Manager, C:\Windows\system32\SHELL32.dll                                                                     

Variables in use
================
   Procedure     Type   Value
   ==========================
   TOLEAUTO:LASTERRORMESSAGE
     Local   1:    U    
     Local   2:    C    "MSXML2.ServerXMLHTTP.6.0"
   FENVIAARQUIVO
     Param   1:    C    "99999999999"
     Param   2:    C    "08124858000100"
     Param   3:    C    "joao carlos"
     Param   4:    C    ".\func0001.JPG"
     Local   1:    O    Class: TOLEAUTO
     Local   2:    C    "{ "id_client": 99999999999"id_company": 08124858000100"Id_employee": joao carlos"File": .\func0001.JPG }"
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    C    "Erro no processo post:"
   AVPI102
     Local   1:    C    "99999999999"
     Local   2:    C    "08124858000100"
     Local   3:    C    "joao carlos"
     Local   4:    C    ".\func0001.JPG"
     Local   5:    C    ""

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFCDX
   DBFNTX

DataBases in use
================

Classes in use:
===============
     1 ERROR
     2 HASHENTRY
     3 HBCLASS
     4 TOLEAUTO
     5 HBOBJECT
     6 TREG32
     7 TSTRUCT

Memory Analysis
===============
      685 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes

obrigado

ola pessoal preciso de mandar estas informacao para um api

tenho esse exemplo abaixo mais as informacao nao chega la na pagina

alguem pode ajudar aonde estou errando neste script o api e post

obrigado pela ajuda 

#Include "Fivewin.ch"
//--------------------------------

function main()
local pCpf     := "99999999999" 
local pCnpj    := "08124858000100"
local pNome    := "joao carlos" 
local pArquivo := ".\func0001.JPG"
local cRetorno := ""
cRetorno := fEnviaArquivo( pCpf, pCnpj, pNome, pArquivo )
SysRefresh()
 MsgInfo( cRetorno )
MemoWrit(".\carlos.txt", cRetorno )

return .t.
*------------------------------------------------------------------------------*

*------------------------------------------------------------------------------*
* Analista : maniel
*
* Objetivo : Enviar Arquivo 
*------------------------------------------------------------------------------*
Function fEnviaArquivo( pCpf, pCnpj, pNome, pArquivo )
Local oHttp , cTexto :=""
Try
   oHttp := CreateObject( 'MSXML2.XMLHTTP' )
Catch
   oHttp := CreateObject( 'Microsoft.XMLHTTP' )
End

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 += ' }' 

try
   oHttp:Send( cTexto )
catch
   MsgInfo( "Erro no processo post:" + oHttp:lastErrorMessage())
end

Return oHttp:ResponseBody
*------------------------------------------------------------------------------*

carlos Syspel

bcc 730 fwh2111 dbfs cloud

ola pessoal 

eu uso nas nuvems, eu rpm e um site la da bahia que eu uso roda todos os meus sistema sem fazer 

nenhuma modificacao  e muito rapido 

vcs deveria testar 

ai bbs  55 7791781181

carlos syspel

preciso de madar,subir para meu site arquivo pdf

pelo modulo programaveis

alguem tem algums exemplos que funciona

testei varios mais nao funciona

obrigado

fhw2111 xharb 123 dbf  

colo que coloca uma imagem aqui ele so aceita 1k

que droga e apanhador de imagem

carlos

e isto mesmo a vivo bloqueia vc deve falar na vivo para liber

ok

carlos

fwh12111 xdev xharb 123 dbf

ola boa tarde 

crie um atalho no desktop window

escreve mstsc.exe em seguida ele vai pedir o ip

192.99.237.155  

Ailton  usuario

senha 12Rpm34$

roda ate com 30 usuario

mais a microsof tambem tem este servico  paga 297,00 por mes

eu uso do carinha bbs pg 100

carlos 

fwh2111 xharb 123 dbfs

Estou Rodandando minha Aplicacao em Nuvens sem mudar uma linha nao tem limite de usuario

chama Rpm (nuvens) sem precisar mudar bancos de Dados

Carlos

Syspel

Fwh2111 Xharbour 123 dbfs

ola boa tarde

preciso colocar um um valor dentro de uma variave chamada value

no simpes nacional 

e no titulo valor interno 

exemplo abaixo

<h3 class="title"><span class="glyphicon glyphicon-chevron-right"></span>Receita Bruta Total do Período de Apuração</h3>
    <form method="post" action="/SimplesNacional/Aplicacoes/ATSPO/pgdasd2018.app/declaracao/processarRpa">
        <p>Receita bruta total do período de apuração observado o critério do REGIME DE COMPETÊNCIA (R$)</p>
        <div class="row" style="margin-top: 15px">
            <div class="col-md-6 col-sm-12 col-xs-12">
                <label for="rpa-i">Receitas no mercado interno:</label>
                <div class="input-group">
                   

<span class="input-group-addon">R$</span>
                    <input type="text" class="form-control input-sm money-allowEmpty " aria-describedby="rpa-comp-i" name="rpaCompInt"
                       style="width:60%" maxlength="13" value="">    //;;aqui

                </div>
            </div>
            <div class="col-md-6 col-sm-12 col-xs-12">
                <label for="rpa-e">Receitas no mercado externo:</label>
                <div class="input-group">
                    <span class="input-group-addon">R$</span>
                    <input type="text" class="form-control input-sm money-allowEmpty " aria-describedby="rpa-comp-e" name="rpaCompExt" 
                       style="width:60%" maxlength="13" value="">
                </div>
            </div>

        </div>

 ate aqui deu certo

         oOle:All:Item("ctl00$ContentPlaceHolder$txtCNPJ",0):Value:= f_cnpj  //cert
           oOle:All:Item("ctl00$ContentPlaceHolder$txtCPFResponsavel",0):Value:= f_cpf  //certo

aqui nao da certo

  esta e a variavel com valor rpacompint

           oOle:All:Item("ctl00$ContentPlaceHolder$txtname=rpaCompInt",0):Value:= Rpacompint

alguem pode me ajudar

obrigado

carlos 

fhw2111 xharbour 123  dbf  

ola pessoal 

preciso ajuda dos universitario

preciso entrar pelo  sistema no simples nacional pelo edge

alguem pode me ajudar

deste ja obrigado

carlos 

fhw2111 xharbour 123 dbf 

ola amigo e la painel  contas de usuario 

la win7,win, win10

ok

Em 08/04/2014 at 10:36, Valdir disse:

Olá Eduardo e amigos...

Já há alguns anos venho usando os drives ODBC para acessar os arquivos DBF ao gerar Relatórios no meu Sistema.

Até o momento, nunca tive problemas em usar o "{Microsoft dBASE Driver (*.dbf)}", seja no "Win XP, Vista e Win7" e no "Win8" ainda não testei.

Para isso, tenho apenas que configurar corretamente a "Fontes de Dados (ODBC)" nas Ferramentas Administrativas do Windows.

Espero ter ajudado.

abração.

ola pessoal bom dia 

alguems se atreve a me explicar como funciona o 

neorounter network  explore  como usa

parece muito e barato 

grato

ailton

fwh 2101 dbfs xcollden

ola vande eu preciso deste socketes para rodar com xharbour

oque vc fez com harbour ?

qual a lib que vc usou

ailton

ailtonsather@gmail.com

obrigado

obrigado kapi mais uso xHarbour ele da aqueles mutao de erros os cara tao compilando com harbour

o pepino de capri e no xharbour

obrigado abrassos

carlos

syspel

fhw2101 dbfs xhaar 123

bom tarde pessoal

gostaria de compilar leto com xharTESTE1.PRGbour e um pequeno exemplo

obrigado

carlos

syspel

SACFWH.LNK

obrigado garoto

carlos 

ok amigo nao tem um exemplo

obrigado

ola meus querido

algeum sabe como mudar a cor do balao de mensagem ele assume yellom

que mudar para blue

obrigado

carlos

fwh1805  dbf etc tal

ok garoto obrigado

carlos 

Application
===========
   Path and name: C:\Rh\FPM.EXE (32 bits)
   Size: ********* bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20180715)
   FiveWin  version: FWH 18.05
   C compiler version: Borland/Embarcadero C++ 7.3 (32-bit)
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 2 mins 9 secs 
   Error occurred at: 19/09/2019, 09:40:05
   Error description: Error InternetExplorer.Application/0  S_OK: HWND
   Args:

Stack Calls
===========
   Called from:  => TOLEAUTO:HWND( 0 )
   Called from: xbrowgrd.prg => ERZE( 528 )
   Called from: xbrowgrd.prg => (b)ESOCMAIN( 82 )
   Called from: .\source\internal\SKINS.PRG => FWSKINBTNLBUTTONDOWN( 237 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: dialog.prg => TDIALOG:ACTIVATE( 298 )
   Called from: xbrowgrd.prg => ESOCMAIN( 87 )
   Called from: esocial.prg => (b)ESOCIALMENU( 82 )
   Called from: btnbmp.prg => TBTNBMP:CLICK( 464 )
   Called from: btnbmp.prg => TBTNBMP:LBUTTONUP( 660 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1722 )
   Called from: btnbmp.prg => TBTNBMP:HANDLEEVENT( 1417 )
   Called from: window.prg => _FWH( 3368 )
   Called from:  => WINRUN( 0 )
   Called from: window.prg => TWINDOW:ACTIVATE( 1043 )
   Called from: fpmenu.prg => FPM02( 230 )

System
======
   CPU type: AMD Athlon(tm) II X2 250 Processor 3013 Mhz
   Hardware memory: 3071 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 11
      1 ,                                                                                                     
      2 , C:\Rh\FPM.EXE                                                                                       
      3 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_41e697 
      4 , C:\Windows\system32\SHLWAPI.dll                                                                     
      5 , C:\Windows\system32\explorerframe.dll                                                               
      6 DDE Server Window, C:\Windows\system32\OLE32.DLL                                                                       
      7 Exibir Downloads - Internet Explorer, C:\Windows\system32\ieframe.DLL                                                                     
      8 GDI+ Window, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.17514_none_72d18a4386696c 
      9 MCI command handling window, C:\Windows\system32\WINMM.DLL                                                                       
     10 MS_WebcheckMonitor, C:\Windows\system32\SHDOCVW.dll                                                                     
     11 Program Manager, C:\Windows\system32\SHELL32.dll                                                                     

Variables in use
================
   Procedure     Type   Value
   ==========================
   TOLEAUTO:HWND
     Local   1:    U    
     Local   2:    C    "InternetExplorer.Application"
   ERZE
     Local   1:    O    Class: TOLEAUTO
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    L    .T.
     Local   7:    A    Len:    2
     Local   8:    C    "C:\esocialsyspel\54026992000821\retorno\ID154026992000821201909131704100200361evtAdmissao-S2200-ret-esocial-loteevt.err"
     Local   9:    C    "https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/cpf/ImpressaoComprovante/ConsultaImpressao.asp"
     Local  10:    U    
   (b)ESOCMAIN
     Param   1:    O    Class: TBUTTON
   FWSKINBTNLBUTTONDOWN
     Param   1:    N    1573490

#Include "FiveWin.ch"
	FUNCTION Main()
	   LOCAL oOLE, cHTML, cTEXT, hWnd, cData, lIeAtivo := .F.
   LOCAL oOleDoc := Array( 2 )
   LOCAL cFile   := ""
   LOCAL cUrl:="https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/cpf/ImpressaoComprovante/ConsultaImpressao.asp"
	   IF .NOT. IsInternet()
	      MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO: NÇO Hµ CONEXÇO COM A INTERNET " )+CRLF+;
               OemToAnsi( "SAIA DO PROGRAMA E VERIFIQUE SUAS CONEXåES     " )+CRLF+;
               OemToAnsi( "DE INTERNET. ENQUANTO PERMANECER ESTA MENSAGEM " )+CRLF+;
               OemToAnsi( "NÇO TENTE ENVIAR NADA VIA INTERNET.            " )+CRLF+;
               OemtoAnsi( "FALHA NO MODEM DE INTERNET, NÇO ESTµ ATIVO.    " )+CRLF+;
               OemToAnsi( "VERIFIQUE SUAS CONEXåES DE INTERNET.      ERRO!" ),     ;
               OemToAnsi( "ALERTA MµXIMO, COMPUTADOR SEM INTERNET ATIVA.  " ) )
	      RETURN( .F. )
	   ENDIF
	   cFile := cGetFile( "*.Xml", "Seleciona o Arquivo *.XML" )
	   IF EMPTY( cfile )
	      RETURN( .F. )
	   ENDIF
	   TRY
	      oOLE := GetActiveObject( "InternetExplorer.Application" )
	      lIeAtivo := .T.
	   CATCH  // Tenta de novo
	      TRY
         oOLE := CreateObject( "InternetExplorer.Application" )
	         lIeAtivo := .T.
	      CATCH
	         Alert( "ERROR! IE not avialable." )
	         lIeAtivo := .F.
	         RETURN( .F. )
	      END
	   END
	   // Internet Explorer abriu.
   oOle:Visible   := .T.
   oOle:ToolBar   := .F.
   oOle:StatusBar := .F.
   oOle:MenuBar   := .F.
	   // oOle:Navigate( cUrl )  // receita federal
   oOle:Navigate2( cfile )
	   hWnd := oOle:hWnd
   ShowWindow(hWnd, 1 )
   BringWindowToTop(hWnd)
	   oOle := Nil
	RETURN( lIeAtivo )

obrigado garoto

 

 

 Curtir

•  
• Citar

 

 Responder

ola amigo que osso

vc sabe como abrir no chomo 

nao deu certo 

ele abre 6 vezes depois da o erro

• Moderação 

Eu fiz a alteração proposta, porém, continua dando erro:

function erze()
Local oOleDoc:=Array(2)
Local cFile:=""
s_ok:=""
oOle:=""
busy:=""
cFile:=cGetFile("*.xml", "Seleciona o Arquivo" )

if empty(cfile)
   return .f.
endif

//if ! empty(cFile)
//     waitRun("NotePad " + cfile)
//endif

         oOle:=CreateObject("InternetExplorer.Application")
         oOle:Visible  := .T. // Apresenta o Browser
         oOle:ToolBar  := .F. // Desativa a barra de ferramentas
         oOle:StatusBar:= .f. // Desativa a barra de status
         oOle:MenuBar  := .f. // desativa a barra de menu
         oOle:Navigate2(cfile)

         WHILE oOle:Busy
             syswait(.5)
         END

          CursorArrow()
          SysRefresh()

return .t.