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

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 IR PARA A LISTA DE TÓPICOSProgramaçã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.