PauloPJ

Será a minha primeira vez participando, gostaria muito de ir porem 29/10 estou casando rsrs.

Ola! Estou usando a libmysql.dll e SQL_FullDelete(.f.). Quando faco uma pesquisa na tabela com dbseek nao esta filtrando o Sql_Deleted=T me retornando o registro deletado, mesmo com o set dele on ativo. Alguem já passou por isso? Agradeco a ajuda de quem puder.

RESOLVIDO O problema era barberagem da Prefeitura de Petrópolis, a Tag <ws_nfe.CONSULTANOTASPROTOCOLOResponsexmlns="NFe"> , está com erro: "ws_nfe." este ponto dentro da tag que era rejeitado pela classe. Obrigado a todos

Ola Kleyber! Obrigado pela postagem Eu retirei esta linha para teste e deu o mesmo problema.

Outra coisa o XML que estou tentando ler é um XML SOAP. Será que tem diferença na interpretação do XML via a classe?

Valeu Kapiaba. Nos links que voçe postou achei uma maneira de dizer qual o erro . HB_XmlErrorDesc(oXmlDoc:nError) o erro é de caracter invalido na tag name. agora qual ??? passando o olho, tirei os : , _ , - das tags mas não resolveu.

Obrigado novamente! o Sistema é todo em Five com alguns methods de harbour e xharbour . Eu tenho isso funcionando com o XML da NFe e NFCe. o problema esta dando da importação do XML da prefeitura de Petrópolis. Como não tem um manual desta classe, eu fico as segas, para saber interpretar o erro. Fiz testes usando C# e funcionou perfeito, fui então testar no Five , eu consigo consumir o web service deles, porem quando volta o XML vem em um formato que a classe TXMLDocument() não consegue ler. Senão vou ter que criar uma classe própria para interpretar o XML. Não queria perder este tempo inventando a roda.

Obrigado ! A Variável cXML := é xml em questão. O erro que aparece é 4, é a variável do oMnuXml:nErro O que diz eu não sei , pois não achei manual contendo esta tabela de erro. // codigo fonte oMnuXml := TXMLDocument():New( cxml, HBXML_STYLE_NOESCAPE ) IF oMnuXml:nError != HBXML_ERROR_NONE Msgstop( "xml com problema " + Str( oMnuXml:nError ) ) ENDIF

Ola Colega eu utilizo assim e funciona muito bem a funcao GERAHASHQRCODE() DEVOLVE O NOME IMAGEM GRAVADA, USANDO A DLL QRCodelib.Dll exemplo: carquivo:=GERAHASHQRCODE({chave,Tipo de ambiente,data de emissao,o DIGVAL da NFe,Valor do ICMS,Valor da nota}) espero que tenha sido util. FUNC GERAHASHQRCODE(aDados) * GERA O QRCODE DA NFCE E GRAVA O ARQUIVO *********************************************************************** LOCAL CHASHQRCODE,ARQUIVOQRCODE local W_NFE_CODIGO_CSN := 'CODIGO DO CSN DA NFC-e' local W_NFE_CODIGO_ITOKEN := "000001" LOCAL cLinha cLinha := 'chNFe=' + aDados[1]+; '&nVersao=' + '100' +; '&tpAmb=' + aDados[2]+; //'&cDest=' + '' + '&dhEmi=' + Lower(str2hex(aDados[3]))+; '&vNF=' + alltrim(aDados[4])+; '&vICMS=' + alltrim(aDados[5])+; '&digVal='+ Lower(str2hex(aDados[6]))+; '&cIdToken=' + W_NFE_CODIGO_ITOKEN ChashQRCODE:=CRIA_HASHCODE(cLinha,W_NFE_CODIGO_CSN) ARQUIVOQRCODE:="TEMP\"+ALLTRIM(aDados[1])+".BMP" geraQRcode(chashQRCODE,ARQUIVOQRCODE) RETURN(ARQUIVOQRCODE) *********************************************************************** FUNC CRIA_HASHCODE(LINHA,CSC) *********************************************************************** local cUrl := 'http://www4.fazenda.rj.gov.br/consultaNFCe/QRCode?' cQrCodeHash := cUrl + linha+'&cHashQRCode=' + lower(hb_sha1(linha+csc,.f.)) return(cQrCodeHash) *********************************************************************** func geraQRcode(cCode,cFile) *********************************************************************** local qrDLL default cCode:="" default cFile:="" #define DC_CALL_STD 0x0020 oQRDLL:=LoadLibrary(W_CAMINHO_SYS+"DLL32\QRCodelib.Dll" ) nResp:=DllCall(oQRDLL,DC_CALL_STD,"FastQRCode",cCode,cFile) FreeLibrary(qrDLL) return nil

Ola Pessoal! Preciso de uma ajuda para decifrar os enigmas. não consigo ler um arquivo xml usando a classe TXmlDocument():New(), da erro 4 O XML em questão é uma resposta de um web-service da prefeitura de Petrópolis. cxml:='<?xmlversion="1.0"?> <SOAP-ENV:Envelopexmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"xmlns:xsd="http://www.w3.org/2001/XMLSchema"xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> <SOAP-ENV:Body> <ws_nfe.CONSULTANOTASPROTOCOLOResponsexmlns="NFe"> <Sdt_consultanotasprotocoloout> <Retorno>true</Retorno> <Messages> <Message> <Id>OK</Id> <Type>0</Type> <Description>Notascarregadascomsucesso</Description> <LinErr>0</LinErr> </Message> </Messages> <XML_Notas> <CpfCnpj>52.878.862/0001-15</CpfCnpj> <DtIni>2014-02-12</DtIni> <DtFin>2014-02-12</DtFin> <TipoArq>0</TipoArq> <Versao>2.00</Versao> <Reg20> <Reg20Item> <TipoNf>P</TipoNf> <NumNf>45</NumNf> <SerNf>NFE</SerNf> <DtEmiNf>12/02/2014</DtEmiNf> <DtHrGerNf>12/02/201408:04:41</DtHrGerNf> <CodVernf>116F76843BE21199E8D7</CodVernf> <NumRps>49</NumRps> <SerRps>Edu</SerRps> <DtEmiRps>12/02/2014</DtEmiRps> <TipoCpfCnpjPre>J</TipoCpfCnpjPre> <CpfCnpjPre>52.878.862/0001-15</CpfCnpjPre> <RazSocPre>TesteRPSEletronicoOficinaSN</RazSocPre> <LogPre>VilaManoelFraguas</LogPre> <NumEndPre>123</NumEndPre> <ComplEndPre/> <BairroPre>Quissama</BairroPre> <MunPre>PETROPOLIS</MunPre> <SiglaUFPre>RJ</SiglaUFPre> <CepPre>25615400</CepPre> <EmailPre>comercia@rpseletronico.com.br</EmailPre> <TipoTribPre>SN</TipoTribPre> <DtAdeSN>01/01/2007</DtAdeSN> <AlqIssSN>2.50</AlqIssSN> <SitNf>1</SitNf> <DataCncNf>//00:00:00</DataCncNf> <MotivoCncNf/> <TipoCpfCnpjTom>C</TipoCpfCnpjTom> <CpfCnpjTom>CONSUMIDOR</CpfCnpjTom> <RazSocTom>ConsumidorFinal</RazSocTom> <LogTom>ConsumidorFinal</LogTom> <NumEndTom/> <ComplEndTom/> <BairroTom>ConsumidorFinal</BairroTom> <MunTom>PETROPOLIS</MunTom> <SiglaUFTom>RJ</SiglaUFTom> <CepTom>0</CepTom> <EMailTom/> <LogLocPre/> <NumEndLocPre/> <ComplEndLocPre/> <BairroLocPre/> <MunLocPre>PETROPOLIS</MunLocPre> <SiglaUFLocpre>RJ</SiglaUFLocpre> <CepLocPre>0</CepLocPre> <CodSrv>14.01</CodSrv> <DiscrSrv>Lubrifica?co,limpeza,lustra?co,revisco,cargaerecarga,conserto,restaura?co,blindagem,manuten?coeconserva?codemaquinas,veiculos,aparelhos,equipamentos,motores,elevadoresoudequalquerobjeto(excetope?asepartesempregadas,queficamglksclfjwejgwlel</DiscrSrv> <VlNFS>250.00</VlNFS> <VlDed>0.00</VlDed> <DiscrDed/> <VlBasCalc>250.00</VlBasCalc> <AlqIss>2.50</AlqIss> <VlIss>6.25</VlIss> <VlIssRet>0.00</VlIssRet> <Reg30> <Reg30Item> <TributoSigla>IR</TributoSigla> <TributoAliquota>0.00</TributoAliquota> <TributoValor>0.00</TributoValor> </Reg30Item> <Reg30Item> <TributoSigla>PIS</TributoSigla> <TributoAliquota>0.00</TributoAliquota> <TributoValor>0.00</TributoValor> </Reg30Item> <Reg30Item> <TributoSigla>COFINS</TributoSigla> <TributoAliquota>0.00</TributoAliquota> <TributoValor>0.00</TributoValor> </Reg30Item> <Reg30Item> <TributoSigla>CSLL</TributoSigla> <TributoAliquota>0.00</TributoAliquota> <TributoValor>0.00</TributoValor> </Reg30Item> <Reg30Item> <TributoSigla>INSS</TributoSigla> <TributoAliquota>0.00</TributoAliquota> <TributoValor>0.00</TributoValor> </Reg30Item> <Reg30Item> <TributoSigla>ISS</TributoSigla> <TributoAliquota>0.00</TributoAliquota> <TributoValor>0.00</TributoValor> </Reg30Item> <Reg30Item> <TributoSigla>OUTROS</TributoSigla> <TributoAliquota>0.00</TributoAliquota> <TributoValor>0.00</TributoValor> </Reg30Item> </Reg30> </Reg20Item> </Reg20> <Reg90> <QtdRegNormal>1</QtdRegNormal> <ValorNFS>250.00</ValorNFS> <ValorISS>0.00</ValorISS> <ValorDed>0.00</ValorDed> <ValorIssRet>0.00</ValorIssRet> <QtdReg30>7</QtdReg30> <ValorTributos>0.00</ValorTributos> </Reg90> </XML_Notas> </Sdt_consultanotasprotocoloout> </ws_nfe.CONSULTANOTASPROTOCOLOResponse> </SOAP-ENV:Body> </SOAP-ENV:Envelope>' oMnuXml := TXMLDocument():New( cxml, HBXML_STYLE_NOESCAPE ) IF oMnuXml:nError != HBXML_ERROR_NONE Msgstop( "xml com problema " + Str( oMnuXml:nError ) ) ENDIF DESDE JÁ AGRADEÇO A QUEM CONSEGUIR DECIFRAR O ENIGMA.

Resolvido, o problema era na minha Dialog.prg, eu fiz modificacoes nesta classe e ela me acompanha a varias versoes do fivewin. CTRL+C CTRL+V rsrs, Apenas peguei a Dialog.prg da versão 13.9 e fiz as alteracoes que tinha na outra. VIVA funcionou, Obrigado a ajuda e dica postada ABRACOS A TODOS

É... Realmente o problema é no meu projeto.. Tem alguma classe , lib, dll, sei la, alguma coisa no projeto que esta fazendo isso, se eu compilar separado funciona , mas se eu agregar ao projeto faz o que eu disse. Bem é quebrar a cabeca... Valeu pela ajuda.

Realmente o seu esta normal, mas o meu o dialog fica por cima das abas do folder. Não entendi nada. Vou fazer outros testes pra ver o que pode ser Só da certo se eu definir as Dialogs no momento da definicao do folder, se usar o metodh Additem() da este erro..

A minha é a 13.9 Se puder me mande a folder.prg da sua versao para eu fazer um teste. testei a classe das versoes anteriores e esta com o mesmo problema.

Obrigado Kapiaba pela ajuda. O problema continua mesmo eu usando os dois exemplos acima, que tem até na pasta sample do five, esta dando o mesmo problema Quando adiciona uma nova aba no folder ele cria uma Dialog por cima de tudo, colocando na posicao 0,0 da window ou dialog principal e não dentro do folder.