Van
-
Posts
24 -
Joined
-
Last visited
-
Days Won
2
Posts posted by Van
-
-
Rapazes, bom dia !
Grata pelas sugestões e dicas
-
Oi, Kapiaba e Sistem...
Muito obrigada pela imensa boa vontade em me ajudar...
O programa já funcionou antes, então acredito que o problema não esteja na versão do fivewin...
Vou batalhar um pouco mais na questão do ambiente e suas atualizações...
Vocês são gente muito boa... obrigada mesmo...
e vamos deixar a rotina aí pro caso de alguém precisar...
-
Veja se acha o erro... noisemaupraxuxu... kkkkkkkkkkkkkkk
#include "fivewin.ch" FUNCTION testa_envio() LOCAL CRESPOSTA, SUSER, SPASSWORD, CWEBSERVICE, WARQUIVO, OTXT, NLINHAS LOCAL CLINHA, X, AAA, SCONTEUDO, OSERVER LOCAL strXml := "" LOCAL strret cResposta := "" sUser := "teste" sPassword := "Eu92KAQ10p79VPu7t87X" cWebService := "https://hom.crdc.com.br:8443/api/formalizacao/v1?wsdl/" // aaa = curdrive() + ":\" + ALLTRIM(CURDIR()) + "\" // erro aaa := CurDrive() + ":\" + CurDir( CurDrive() ) + "\" // ? aaa warquivo := aaa + "arquivoxmlcrdc.xml" IF FILE( warquivo ) // NADA A FAZER ELSE ? "CADE O ARQUIVO VAN?", aaa, wArquivo RETURN NIL ENDIF oTxt := TTxtFile():New( warquivo ) nLinhas := oTxt:nTLines oTxt:Gotop() cLinha := oTxt:cLine FOR x = 1 TO nlinhas cLinha += alltrim( oTxt:cLine ) oTxt:Skip( 1 ) NEXT oTxt:Close() sconteudo = cLinha // <<<<<====== conteúdo do XML que será passado //============================================================== // rotina sugerida no fórum //1) Criar o servidor Try oServer := CreateObject( "Msxml2.ServerXMLHTTP" ) Catch MsgInfo( 'Erro na Criação do Serviço' ) RETURN NIL End //2) Abrir o servidor oServer:Open( "POST", cWebService, .F. ) //3) Adicionar o request header oServer:SetRequestHeader( "Content-Type", "application/json" ) oServer:SetRequestHeader( "Username" , "&sUser" ) oServer:SetRequestHeader( "Password" , "&sPassword" ) msginfo( oServer:readyState ) //<<<<<<====== voltou com status = 1 try oServer:Send( sConteudo ) // <<<<<======= envia o XML WHILE oServer:readyState != 4 // <<<<<======= nem entrou aqui.. já saiu pelo catch oServer:WaitForResponse( 500 ) end cResposta := oServer:responseText // <<<<<======= resposta do webservice msginfo( cresposta ) catch MsgInfo( 'Erro no Send' ) end RETURN( .T. ) // FIM - By kapiaba da peste. kkkkkkkkkkkkkkkkkkkkkkk
bad boy... rs
Mas, o arquivo está lá no diretório, e o #include está no programa principal...
Acabei de printar o conteúdo a ser enviado antes do send()...
Ou é alguma outra coisa que eu não vi??? aiai... rs...
-
Deveria retornar isso?
Exatamente...
Então o problema não está na rotina e sim no ambiente...
O que pode estar interferindo para que eu não consiga mandar o arquivo ??? em todas as máquinas que testei obtive o erro...
Van´s case... rs...
-
Esta senha está correta?
Sim... Usuário e senha que foram usados na homologação...
-
Kapiaba, não deu certo...
Sistem, o status voltou como 1 antes do Send() e em seguida já saiu pelo catch (mensagem de erro no SEND)
Estou anexando o XML de testes nesta postagem caso alguém queira dar uma olhada
Minha rotina está assim neste momento:
//=================================================================
static function testa_envio()
LOCAL strXml := ""
local strretcResposta = ""
sUser := "teste"
sPassword := "Eu92KAQ10p79VPu7t87X"cWebService := "https://hom.crdc.com.br:8443/api/formalizacao/v1?wsdl/"
aaa = curdrive() + ":\" + ALLTRIM(CURDIR()) + "\"
warquivo = aaa + "arquivoxmlcrdc.xml"oTxt := TTxtFile():New( warquivo )
nLinhas := oTxt:nTLines
oTxt:Gotop()
cLinha := oTxt:cLinefor x=1 to nlinhas
cLinha += alltrim(oTxt:cLine)
oTxt:Skip(1)
next
oTxt:Close()sconteudo = cLinha // <<<<<====== conteúdo do XML que será passado
//==============================================================
// rotina sugerida no fórum//1) Criar o servidor
Try
oServer := CreateObject("Msxml2.ServerXMLHTTP")
Catch
MsgInfo( 'Erro na Criação do Serviço' )
RETURN NIL
End//2) Abrir o servidor
oServer:Open( "POST", cWebService, .F. )//3) Adicionar o request header
oServer:SetRequestHeader("Content-Type","application/json")
oServer:SetRequestHeader( "Username" , "&sUser")
oServer:SetRequestHeader( "Password" , "&sPassword")msginfo(oServer:readyState) //<<<<<<====== voltou com status = 1
try
oServer:Send( sConteudo ) // <<<<<======= envia o XML
While oServer:readyState != 4 // <<<<<======= nem entrou aqui.. já saiu pelo catch
oServer:WaitForResponse(500)
endcResposta := oServer:responseText // <<<<<======= resposta do webservice
msginfo(cresposta)catch
MsgInfo( 'Erro no Send' )
endReturn .t.
-
Van, esse XML de envio, é do que mesmo? Tem certeza que é nesse portal?
Oi, Kapiaba...
Sim, a URL está correta.
É o envio de operações de fomento para assinatura digital.... Eu já fiz todo o processo de homologação com essa empresa. e tudo funcionou direitinho.
Quando fui implantar no cliente obtive o erro (da primeira postagem)... Vim testar novamente no meu computador e deu o erro aqui também...
Por isso estou tão sem rumo, era algo que estava funcionando e agora não está mais e eu não tenho idéia do porquê.
A rotina é bastante simples, mas, resolveu engasgar no SEND().
Será que tem alguma forma de obter algum detalhamento do erro que está acontecendo?
PS - Por desencargo de consciência, tentei enviar um XML para a URL em produção e o erro persistiu.
-
Boa tarde ,
vc testou com MSXML2.ServerXMLHTTP.6.0 msxml6.dll
João, boa tarde !
Acabei de testar e nada... não dá erro na criação do serviço e nem nos requestheader... só dá erro no Send...
Tentei, novamente hoje pela manhã, em um computador com o MSXML2.ServerXMLHTTP.4.0 e deu o mesmo problema.
Já conferi a minha rotina milhares de vezes... não consigo ver erro algum...
Desanimando aqui... não sei mais o que tentar...
-
Boa tarde,
Veja se ajuda :
Executar novamente o comando Regsvr32 em um prompt de comando com privilégios elevados
regsvr32 /u msxml6.dll
regsvr32 msxml6.dll
Oi, João,
Fiz e obteve êxito nos dois comandos, mas, o problema persiste.
O problema está no Send()... o objeto está sendo criado normalmente e os requests também não dão erro...
será que existe alguma outra forma de tentar enviar o XML ?
Grata pela sugestão.
-
Oi, Sistem,
Verifiquei as opções de internet agora, estão como o seu quadro.
O programa foi testado no meu cliente que também usa o windows 7 / SP1 e em outro computador com o windows 10, obtendo o mesmo erro.
Parece que o meu programa bichou de repente... Tudo estava funcionando perfeitamente antes... Por isso estou tão confusa.
O problema está no Send()... todo o resto passa sem problema.
-
Oi, Kapiaba,
#define FWVERSION "FWHX 2.6 April 2005"
#define FWDESCRIPTION "FiveWin for xHarbour"É antiguinho, mas, não creio que o problema esteja na versão do Fivewin, pois como comentei anteriormente, tudo já funcionou aqui.
Consegui inclusive finalizar todos os testes com a empresa que irei consumir o webservice.
É alguma outra coisa que está pegando...
-
já tentou:
CreateObject("Msxml2.ServerXMLHTTP.3.0")
CreateObject("msxml2.XMLHTTP.6.0")
Amigos, boa tarde !
Postanto o resultado dos testes:
Com o MDAC 2.7 SP1 - alterei o objeto para
CreateObject("Msxml2.ServerXMLHTTP.3.0"), o programa não dá erro na criação porémcontinuei obtendo o erro:Error occurred at: 03/05/19, 11:25:21
Error description: Error Msxml2.ServerXMLHTTP.3.0/14 DISP_E_BADPARAMCOUNT: SENDInstalei o MSXML 4.0 Parser SP3 - alterei o objeto para
CreateObject("Msxml2.ServerXMLHTTP.4.0"), conforme orientação no site da Microsoft,o programa não dá erro na criação, porém oerro persiste:Error occurred at: 03/05/19, 11:57:30
Error description: Error Msxml2.ServerXMLHTTP.4.0/14 DISP_E_BADPARAMCOUNT: SENDO que mais me intriga é que tudo já funcionou, anteriormente, no meu computador.
Será que há algum ajuste de configuração de internet que deva ser verificado?
O que pode ter interferido para que começasse a dar esse erro ?
Caso alguém tenha mais alguma idéia, fico muito grata, pois estou bem perdida... rs...
-
já tentou:
CreateObject("Msxml2.ServerXMLHTTP.3.0")
CreateObject("msxml2.XMLHTTP.6.0")
Sistem, bom dia !
Vou tentar e posto o resultado aqui.
Obrigada.
-
Veja se não é isso:
#include "FiveWin.ch" FUNCTION testa_envio() LOCAL strXml := "", cResposta sUser := "teste" sPassword := "Eu92KAQ10p79VPu7t87X" cWebService := "https://hom.crdc.com.br:8443/api/formalizacao/v1?wsdl/" //aaa = curdrive() + ":\" + ALLTRIM( CURDIR() ) + "\" // novas versoes AAA := GETCURDIR() //warquivo = aaa + "arquivoxmlcrdc.xml" warquivo = aaa + "crdc.xml" oTxt := TTxtFile():New( warquivo ) nLinhas := oTxt:nTLines oTxt:Gotop() cLinha := oTxt:cLine FOR x = 1 TO nlinhas cLinha += alltrim( oTxt:cLine ) oTxt:Skip( 1 ) NEXT oTxt:Close() sconteudo = cLinha // <<<<<====== conteúdo do XML que será passado // rotina do fórum #ifdef __XHARBOUR__ // xHarbour Try oServer := CreateObject( "MSXML2.XMLHTTP" ) Catch MsgInfo( 'Erro na Criação do Serviço' ) RETURN NIL End //2) Abrir o servidor oServer:Open( "POST", cWebService, .F. ) //3) Adicionar o request header oServer:SetRequestHeader("Content-Type","application/json") oServer:SetRequestHeader( "Username" , "&sUser") oServer:SetRequestHeader( "Password" , "&sPassword") oServer:Send(sconteudo) cResposta := oServer:responseText // <<<<<======= resposta do webservice msginfo(cresposta) #endif return .t.Oi, Kapiaba, o #include "Fivewin.ch" está no programa principal que chama essa rotina...
Mas, acredito que não seja isso porque o programa já funcionou anteriormente.
Eu acho que o problema está em atualizações a serem feitas... só não sei mais o que deve ser atualizado...
-
Duda: A senhora tem um CERTIFICADO DIGITAL válido na máquina?
Tenho sim... com vencimento em abril de 2020...
-
Amigos, boa tarde !
Continuo com dificuldades para resolver o problema no envio do XML.
O pior é que agora, o que funcionava no meu computador, também está dando erro. Perdi todas as referências que tinha para o funcionamento da rotina.
Segue abaixo a rotina que estou utilizando, após sugestão do Kapiaba e logo abaixo, o log do erro que estou obtendo.
Não sei mais o que olhar, atualizar, verificar... rs...
Agradeço por qualquer orientação / sugestão.
//=================================== rotina que envia os dados ===================================
static function testa_envio()LOCAL strXml := ""
sUser := "teste"
sPassword := "Eu92KAQ10p79VPu7t87X"cWebService := "https://hom.crdc.com.br:8443/api/formalizacao/v1?wsdl/"
aaa = curdrive() + ":\" + ALLTRIM(CURDIR()) + "\"
warquivo = aaa + "arquivoxmlcrdc.xml"oTxt := TTxtFile():New( warquivo )
nLinhas := oTxt:nTLines
oTxt:Gotop()
cLinha := oTxt:cLinefor x=1 to nlinhas
cLinha += alltrim(oTxt:cLine)
oTxt:Skip(1)
next
oTxt:Close()sconteudo = cLinha // <<<<<====== conteúdo do XML que será passado
// rotina do fórum#ifdef __XHARBOUR__ // xHarbour
Try
oServer := CreateObject( "MSXML2.XMLHTTP" )
Catch
MsgInfo( 'Erro na Criação do Serviço' )
RETURN NIL
End
//2) Abrir o servidor
oServer:Open( "POST", cWebService, .F. )//3) Adicionar o request header
oServer:SetRequestHeader("Content-Type","application/json")
oServer:SetRequestHeader( "Username" , "&sUser")
oServer:SetRequestHeader( "Password" , "&sPassword")
oServer:Send(sconteudo)cResposta := oServer:responseText // <<<<<======= resposta do webservice
#endif
msginfo(cresposta)
return .t.
//============================= Aqui, o log do erro obtido: ========================================
Application
===========
Path and name: C:\abin\Ninety\jsf\jsf_fw\Dados\SISFIN.exe (32 bits)
Size: 5,099,520 bytes
Time from start: 0 hours 0 mins 6 secs
Error occurred at: 02/05/19, 15:56:10
Error description: Error MSXML2.XMLHTTP/3 DISP_E_MEMBERNOTFOUND: SEND
Args:
[ 1] = C <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:for="http://iduplicata.wba.com.br/formalizacao/"><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:for="http://iduplicata.wba.com.br/formalizacao/"><soapenv:Header/><soapenv:Body><for:formalizarOperacao><!--Optional:--><envioOperacao xmlns="http://iduplicata.wba.com.br/formalizacao/" id="20181605"><operacao><numero>20181605</numero><diferencialCompra>63.17</diferencialCompra><diferencialCompraComposto>63.17</diferencialCompraComposto><valorBruto>305.00</valorBruto><valorLiquido>283.40</valorLiquido><valorPago>283.40</valorPago><valorRetencao>0.00</valorRetencao><valorRegresso>0.00</valorRegresso><valorCreditos>0.00</valorCreditos><valorRecompra>0.00</valorRecompra><contrato><numeroContrato>552935</numeroContrato><sequenciaContrato>56</sequenciaContrato><firmadoEm>2017-05-12T00:00:00-03:00</firmadoEm><assinadoEm>2017-05-12T00:00:00-03:00</assinadoEm><numeroContratoAditivo>56</numeroContratoAditivo></contrato><taxas><adValorem>0.60</adValorem><outrasTaxas>0.00</outrasTaxas></taxas><impostos><PIS>0.00</PIS><COFINS>0.00</COFINS><CSLL>0.00</CSLL><IOF>4.01</IOF><aliquotaIOFRetido>4.01</aliquotaIOFRetido><IOFAoDia>0.51</IOFAoDia><aliquotaIOFRetidoAoDia>0.06</aliquotaIOFRetidoAoDia><IRRF>0.00</IRRF><ISS>0.00</ISS><CPMF>0.00</CPMF></impostos><pagamentos><pagamento><numeroBanco>237</numeroBanco><nomeBanco>BANCO BRADESCO S.A.</nomeBanco><codigoAgencia>201</codigoAgencia><numeroContaCorrente>19752</numeroContaCorrente><CNPJContaCorrente>64763774000157</CNPJContaCorrente><valor>818.33</valor></pagamento></pagamentos><tarifas><servicoBancario>0.00</servicoBancario><cheques>0.00</cheques><titulos>9.00</titulos></tarifas><tarifasEsporadicas><tarifaEsporadica><codigoOperacao>TT</codigoOperacao><descricao>TARIFA DE TED</descricao><valor>15.00</valor></tarifaEsporadica></tarifasEsporadicas></operacao><consultora><CNPJ>96425574000180</CNPJ><nome>BZA</nome><enderecoConsultora><logradouro>RANGEL PESTANA</logradouro><numero>828</numero><bairro>CENTRO</bairro><cidade>JUNDIAI</cidade><UF>SP</UF><CEP>13201000</CEP><pais>BRASIL</pais></enderecoConsultora><IE>ISENTO</IE><IM>ISENTO</IM><email>rodrigoteste@testedirectcred.com.br</email><partes><parte><cpf>28718601812</cpf><nome>Fabio Rocha</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte><parte><cpf>31300961830</cpf><nome>Rodrigo Weber</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte></partes></consultora><cedente><CNPJ>01859325000197</CNPJ><nome>Cedente teste bilhetagem</nome><enderecoCedente><pais>BRASIL</pais></enderecoCedente><IE>224046448117</IE><email>fabianoteste@testepisosazulejos.com.br</email><partes><parte><cpf>28718601812</cpf><nome>Fabio Rocha</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte><parte><cpf>31300961830</cpf><nome>Rodrigo Weber</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte></partes></cedente><titulos><titulo tipo="DUPLICATA"><numero>20181205</numero><chaveNfe/><numeroNotaFiscal>651674882</numeroNotaFiscal><serieNotaFiscal>001</serieNotaFiscal><numeroControleParticipante>017784/0001</numeroControleParticipante><pracaPagamento>BOTUCATU</pracaPagamento><descontoComercial>0.00</descontoComercial><dataLimiteDesconto>2018-10-10T00:00:00-03:00</dataLimiteDesconto><abatimento>0.00</abatimento><dataVencimento>2018-07-15T00:00:00-03:00</dataVencimento><dataEmissao>2018-09-30T00:00:00-03:00</dataEmissao><valor>305.00</valor><valorLiquido>283.40</valorLiquido><sacado><CNPJ>00178029890</CNPJ><nome>JOSE JAIR FRONER</nome><enderecoSacado><logradouro>RUA 37,10</logradouro><numero>1</numero><bairro>ALVORADA DA BARRA</bairro><cidade>BOTUCATU</cidade><UF>SP</UF><CEP>18617890</CEP><pais>BRASIL</pais></enderecoSacado><IE>ISENTO</IE><IM>ISENTO</IM></sacado></titulo></titulos><titulosRecompra/></envioOperacao></for:formalizarOperacao></soapenv:Body></soapenv:Envelope>Stack Calls
===========
Called from TOLEAUTO:SEND(0)
Called from TESTA_ENVIO(104)
Called from TESTCRDC(44)
Called from (b)BUILDMENU(989)
Called from TMENU:COMMAND(407)
Called from TWINDOW:COMMAND(929)
Called from TMDIFRAME:COMMAND(225)
Called from TMDIFRAME:HANDLEEVENT(0)
Called from _FWH(3109)
Called from WINRUN(0)
Called from TMDIFRAME:ACTIVATE(878)
Called from MAIN(246)System
======
CPU type: Pentium IV 1866 Mhz
Hardware memory: 2048 megsFree System resources: 90 %
GDI resources: 90 %
User resources: 90 %Compiler version: xHarbour build 0.99.3 Intl. (SimpLex)
Windows version: 6.1, Build 7601 Service Pack 1Windows total applications running: 35
1
2 Iniciar
3 MSCTFIME UI
4 Default IME
5 Lista de Atalhos
6 Network Flyout
7 Alternância de tarefas
8 CiceroUIWndFrame
9 TF_FloatingLangBar_WndTitle
10 SISFIN - [Versão 1.0] -
11 go - JSF
12 Prompt de Comando
13 FiveTech Software tech support forums • View topic - Sending and Receiving XML Data - Opera
14 SleepDetectorServiceWindowClass
15 BluetoothNotificationAreaIconWindowClass
16 MS_WebcheckMonitor
17 apptitle
18 Menu Iniciar
19 CCleaner - FREE FOR HOME USE
20 HiddenFaxWindow
21 Media Center SSO
22 Medidor de Bateria
23 Task Host Window
24 MCI command handling window
25 DDE Server Window
26 DWM Notification Window
27 Windows 7
28 GDI+ Window
29 TaskEng - Processo de Mecanismo do Agendador de Tarefas
30 AvgSecureLineTrayIcon
31 CAvgTrayIcon
32 ACBrMonitorPLUS 1.2.0.12
33 Error - Bloco de notas
34 MED CX - unregistered - [C:\abin\Ninety\jsf\jsf_fw\Sistemas\prgs\testCRDC.prg]
35 Program ManagerVariables in use
================
Procedure Type Value
==========================
TOLEAUTO:SEND
Param 1: C "<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:for="http://iduplicata.wba.com.br/formalizacao/"><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:for="http://iduplicata.wba.com.br/formalizacao/"><soapenv:Header/><soapenv:Body><for:formalizarOperacao><!--Optional:--><envioOperacao xmlns="http://iduplicata.wba.com.br/formalizacao/" id="20181605"><operacao><numero>20181605</numero><diferencialCompra>63.17</diferencialCompra><diferencialCompraComposto>63.17</diferencialCompraComposto><valorBruto>305.00</valorBruto><valorLiquido>283.40</valorLiquido><valorPago>283.40</valorPago><valorRetencao>0.00</valorRetencao><valorRegresso>0.00</valorRegresso><valorCreditos>0.00</valorCreditos><valorRecompra>0.00</valorRecompra><contrato><numeroContrato>552935</numeroContrato><sequenciaContrato>56</sequenciaContrato><firmadoEm>2017-05-12T00:00:00-03:00</firmadoEm><assinadoEm>2017-05-12T00:00:00-03:00</assinadoEm><numeroContratoAditivo>56</numeroContratoAditivo></contrato><taxas><adValorem>0.60</adValorem><outrasTaxas>0.00</outrasTaxas></taxas><impostos><PIS>0.00</PIS><COFINS>0.00</COFINS><CSLL>0.00</CSLL><IOF>4.01</IOF><aliquotaIOFRetido>4.01</aliquotaIOFRetido><IOFAoDia>0.51</IOFAoDia><aliquotaIOFRetidoAoDia>0.06</aliquotaIOFRetidoAoDia><IRRF>0.00</IRRF><ISS>0.00</ISS><CPMF>0.00</CPMF></impostos><pagamentos><pagamento><numeroBanco>237</numeroBanco><nomeBanco>BANCO BRADESCO S.A.</nomeBanco><codigoAgencia>201</codigoAgencia><numeroContaCorrente>19752</numeroContaCorrente><CNPJContaCorrente>64763774000157</CNPJContaCorrente><valor>818.33</valor></pagamento></pagamentos><tarifas><servicoBancario>0.00</servicoBancario><cheques>0.00</cheques><titulos>9.00</titulos></tarifas><tarifasEsporadicas><tarifaEsporadica><codigoOperacao>TT</codigoOperacao><descricao>TARIFA DE TED</descricao><valor>15.00</valor></tarifaEsporadica></tarifasEsporadicas></operacao><consultora><CNPJ>96425574000180</CNPJ><nome>BZA</nome><enderecoConsultora><logradouro>RANGEL PESTANA</logradouro><numero>828</numero><bairro>CENTRO</bairro><cidade>JUNDIAI</cidade><UF>SP</UF><CEP>13201000</CEP><pais>BRASIL</pais></enderecoConsultora><IE>ISENTO</IE><IM>ISENTO</IM><email>rodrigoteste@testedirectcred.com.br</email><partes><parte><cpf>28718601812</cpf><nome>Fabio Rocha</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte><parte><cpf>31300961830</cpf><nome>Rodrigo Weber</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte></partes></consultora><cedente><CNPJ>01859325000197</CNPJ><nome>Cedente teste bilhetagem</nome><enderecoCedente><pais>BRASIL</pais></enderecoCedente><IE>224046448117</IE><email>fabianoteste@testepisosazulejos.com.br</email><partes><parte><cpf>28718601812</cpf><nome>Fabio Rocha</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte><parte><cpf>31300961830</cpf><nome>Rodrigo Weber</nome><email>fabianoteste@testepisoazuleijos.com.br</email><conjunto>false</conjunto><tipo>Representante</tipo></parte></partes></cedente><titulos><titulo tipo="DUPLICATA"><numero>20181205</numero><chaveNfe/><numeroNotaFiscal>651674882</numeroNotaFiscal><serieNotaFiscal>001</serieNotaFiscal><numeroControleParticipante>017784/0001</numeroControleParticipante><pracaPagamento>BOTUCATU</pracaPagamento><descontoComercial>0.00</descontoComercial><dataLimiteDesconto>2018-10-10T00:00:00-03:00</dataLimiteDesconto><abatimento>0.00</abatimento><dataVencimento>2018-07-15T00:00:00-03:00</dataVencimento><dataEmissao>2018-09-30T00:00:00-03:00</dataEmissao><valor>305.00</valor><valorLiquido>283.40</valorLiquido><sacado><CNPJ>00178029890</CNPJ><nome>JOSE JAIR FRONER</nome><enderecoSacado><logradouro>RUA 37,10</logradouro><numero>1</numero><bairro>ALVORADA DA BARRA</bairro><cidade>BOTUCATU</cidade><UF>SP</UF><CEP>18617890</CEP><pais>BRASIL</pais></enderecoSacado><IE>ISENTO</IE><IM>ISENTO</IM></sacado></titulo></titulos><titulosRecompra/></envioOperacao></for:formalizarOperacao></soapenv:Body></soapenv:Envelope>"
TESTA_ENVIO
Local 1: C ""
TESTCRDC
(b)BUILDMENU
Param 1: O Class: TMENUITEM
TMENU:COMMAND
Param 1: N 20176
Local 1: O Class: TMENU
Local 2: O Class: TMENUITEM
TWINDOW:COMMAND
Param 1: N 20176
Param 2: N 0
Local 1: O Class: TMDIFRAME
Local 2: N 0
Local 3: N 20176
Local 4: N 0
TMDIFRAME:COMMAND
Param 1: N 20176
Param 2: N 0
Local 1: O Class: TMDIFRAME
Local 2: L .F.
TMDIFRAME:HANDLEEVENT
Param 1: N 273
Param 2: N 20176
Param 3: N 0
_FWH
Param 1: N 0
Param 2: N 273
Param 3: N 20176
Param 4: N 0
Param 5: N 1
Local 1: O Class: TMDIFRAME
WINRUN
Param 1: N 852574
TMDIFRAME:ACTIVATE
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: B {|| ... }
Param 7: U
Param 8: B {|| ... }
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: B {|| ... }
Param 18: U
Param 19: U
Local 1: O Class: TMDIFRAME
Local 2: U
Local 3: U
MAIN
Local 1: C "F"
Local 2: C "PDFCreator"
Local 3: L .F.Linked RDDs
===========
DBF
DBFDBT
DBFNTX
MYSQLDataBases in use
================Classes in use:
===============
1 HBCLASS
2 HBOBJECT
3 TSISTEMA
4 TFONT
5 TCURSOR
6 TWINDOW
7 TCONTROL
8 TICON
9 TBRUSH
10 TMDIFRAME
11 TMENU
12 TMENUITEM
13 TMDICLIENT
14 TBAR
15 TRECT
16 TBTNBMP
17 TMSGBAR
18 TMSGITEM
19 TTIMER
20 TDIALOG
21 TSAY
22 TGET
23 TBTNGET
24 GET
25 TCLIPGET
26 TBUTTON
27 TFILE
28 TTXTFILE
29 TOLEAUTO
30 ERRORMemory Analysis
===============
326 Static variablesDynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes -
Bom dia.
Verifique se o computador está com todas as atualizações em dia.
Está retornando que foi encontrado um parâmetro incorreto na formação do
XML.
Abraços.
Bom dia, Valdir...
Também estou apostando em atualizações ou algum ajuste de ambiente...
Vou verificar com o cliente, também...
Grata,
-
Oi, Kapiaba, vou tentar sim...
Mas não entendo porque no meu computador tudo funciona perfeitamente e no outro não... :/
Alguma idéia?
-
Na verdade, a minha dúvida é com relação ao ambiente, pois no meu computador tudo está funcionando perfeitamente.
Será que é preciso fazer algum ajuste no computador do meu cliente, nas opções de internet, ou pode ter a interferência de algum anti-vírus ???
Grata,
Minha rotina:
//1) Criar o servidor
http := CreateObject( "MSXML2.ServerXMLHTTP" )//2) Abrir o servidor
http:Open( "POST", cWebService, .F. ) // <<<<======== contém a URL//3) Adicionar o request header
http:SetRequestHeader("Content-Type","application/json")
http:SetRequestHeader( "Username" , "&sUser") // <<<<<=== envia usuário
http:SetRequestHeader( "Password" , "&sPassword") // <<<<<=== envia senha//4) Enviar a requisição:
http:send( sConteudo ) // <<<<<======= envia o arquivo//5) Obter a resposta:
cResposta := http:responseText // <<<<<======= resposta do webservice -
Amigos, estou me deparando com a seguinte situação:
Ao consumir um webservice no meu computador, tudo funciona perfeitamente (windows 7/32 SP1).
O mesmo programa no computador do cliente, também com windows 7/32 SP1 está dando o seguinte erro:
Error MSXML2.ServerXMLHTTP/14 DISP_E_BADPARAMCOUNT: SEND
Ou seja, o XML não está "saindo" do meu cliente.
Alguém tem sugestões do que precisa ser "ajustado" ou corrigido ? Acredito que seja algum ajuste de configuração de internet, ou algo por esse caminho, pois aqui tudo funciona perfeitamente... o XML é enviado e obtenho resposta do webservice normalmente.
Estou sem idéia de por onde começar... Agradeço qualquer orientação.
-
-
Boa tarde !
Tentei usar essa rotina para codificar um arquivo PDF em base64 e já na compilação deu o erro:
Error: Unresolved external '_hb_retc_null' referenced from C:\Empresa\SISTEMAS\LIB\TIP.LIB|base64
Alguma idéia de como resolver esse erro na compilação ?
Grata.
Error MSXML2.ServerXMLHTTP/14 DISP_E_BADPARAMCOUNT: SEND
in Programação
Posted
Oi, Ricardo, boa tarde !
Agradeço pela resposta. Finalmente localizamos o problema no meu cliente.
A empresa que fará a assinatura, havia me passado a informação errada, de que essa porta 8443 do webservice, não checava a certificação, por ser uma porta para testes, portanto, não achamos que o problema poderia estar aí. Ao limpar os certificados expirados e deixar somente os certificados válidos, tudo começou a funcionar conforme o esperado.
Agradeço as orientações, paciência e sugestões de todos.