wanderso

Obrigado pela resposta, estava pensando em fazer isso, uma função para informar o node e a tag e fazer a leitura linha a linha mesmo. Valeu!

Olá pessoal, Tenho o seguinte xml que é retornado pelo sefaz quando faço uma consulta de uma chave de um Mdf-e. Necessito ler e pegar alguns valores para gravar no banco de dados. Utilizo a xml do harbour para pesquisar mas no caso do xml em questão existem 3 tags com o mesmo nome que é o nProt, como quero pegar o último deles a função xmlNode := xmlIter:Find('nProt') não funciona já que me retorna o valor do primeiro achado. Sei que poderia percorrer linha a linha mas não existe algo mais rápido e eficaz? Obrigado. <?xml version="1.0"?> -<retConsSitMDFe versao="1.00" xmlns="http://www.portalfiscal.inf.br/mdfe"> <tpAmb>1</tpAmb> <verAplic>RS20170502153044</verAplic> <cStat>101</cStat> <xMotivo>Cancelamento de MDF-e homologado</xMotivo> <cUF>52</cUF> -<protMDFe versao="1.00" xmlns="http://www.portalfiscal.inf.br/mdfe"> -<infProt Id="MDFe952170000152757"> <tpAmb>1</tpAmb> <verAplic>RS20161212154033</verAplic> <chMDFe>52170108766660000190580020000000951931162383</chMDFe> <dhRecbto>2017-01-16T10:33:57</dhRecbto> <nProt>952170000152757</nProt> <digVal>Er88UgvkA2D7MhD6ySwlrCGOOqE=</digVal> <cStat>100</cStat> <xMotivo>Autorizado o uso do MDF-e</xMotivo> </infProt> </protMDFe> -<procEventoMDFe versao="1.00" xmlns="http://www.portalfiscal.inf.br/mdfe"> -<eventoMDFe versao="1.00" xmlns="http://www.portalfiscal.inf.br/mdfe"> -<infEvento Id="ID1101115217010876666000019058002000000095193116238301"> <cOrgao>52</cOrgao> <tpAmb>1</tpAmb> <CNPJ>08766660000190</CNPJ> <chMDFe>52170108766660000190580020000000951931162383</chMDFe> <dhEvento>2017-01-16T10:51:59</dhEvento> <tpEvento>110111</tpEvento> <nSeqEvento>1</nSeqEvento> -<detEvento versaoEvento="1.00"> -<evCancMDFe> <descEvento>Cancelamento</descEvento> <nProt>952170000152757</nProt> <xJust>ERRO DE DIGITACAO</xJust> </evCancMDFe> </detEvento> </infEvento> -<Signature xmlns="http://www.w3.org/2000/09/xmldsig#"> -<SignedInfo> <CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/> <SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/> -<Reference URI="#ID1101115217010876666000019058002000000095193116238301"> -<Transforms> <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/> <Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/> </Transforms> <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/> <DigestValue>kRHoHMLxxZrA0EyBM3EnlDHS8bQ=</DigestValue> </Reference> </SignedInfo> <SignatureValue>cwfUdY8cH5r2ShMlpoP7NWqDS/OBWq7JCzmReNXY3lrHVNNLB4AYmMzI8WnrW6Z560GzOiy4cPJ7Q/egoyAxVBagRbqA7aSr2BzAH2e76wKWqm52+hkqBnb+1Q/J0aL7h2i/X9CAQF6l6+fOA3TotCYpiyfqVdFV88eB3nDveydViNYdwsXk1lVfuwFcXIpegAi9lgN3SGz0/K1/5+FXOFijvHfARt9KYimXXAPWpN5wk8S6ECG4gkwIXAwIhdFI5AciHol2sAX6uL8oUBxouTZnw+ipFpnSoK26dbcIy3iYL8qOMrlJaCNNly1vxO/Du2PJmDj9+Bvm8ybQdBiRrg==</SignatureValue> -<KeyInfo> -<X509Data> <X509Certificate>MIIIYTCCBkmgAwIBAgIQfYPG/2S8JT5uW+riAKpTajANBgkqhkiG9w0BAQsFADB0MQswCQYDVQQGEwJCUjETMBEGA1UEChMKSUNQLUJyYXNpbDEtMCsGA1UECxMkQ2VydGlzaWduIENlcnRpZmljYWRvcmEgRGlnaXRhbCBTLkEuMSEwHwYDVQQDExhBQyBDZXJ0aXNpZ24gTXVsdGlwbGEgRzUwHhcNMTYwNTA5MDAwMDAwWhcNMTcwNTA4MjM1OTU5WjCB2TELMAkGA1UEBhMCQlIxEzARBgNVBAoUCklDUC1CcmFzaWwxITAfBgNVBAsUGEF1dGVudGljYWRvIHBvciBBUiBDZXJ0YTEbMBkGA1UECxQSQXNzaW5hdHVyYSBUaXBvIEExMRYwFAYDVQQLFA1JRCAtIDEwMzQ3NDA1MS4wLAYDVQQDEyVMSU5LIFRSQU5TUE9SVEVTIEUgTE9HSVNUSUNBIExUREEgRVBQMS0wKwYJKoZIhvcNAQkBFh5jb250YXRvQGxpbmt0cmFuc3BvcnRlcy5jb20uYnIwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQCipwobrqIN041DvkHb+6dt3jZMSgY3kMTyXo6PPsJ98PoQIMhxR5SmTORuDWPAAbaaz54YT+CrTp0BGo2qwR7mWbwhsmjr6L6rWcLJajgEjJV/QRBITASzXw5SxdAz3o7ipFgvxTSPeJptsTyw0IdoDWMWlZXb3lSec3/LGzBAjbnPooH8ncK7g+AS142t274mjOpmRqRvQ0lpCd6Dgmha2QThwgWtNkC6q7RtTEyi7oDSQUljgVwQ7mWlhqNWsCOcyoDd697wzSioyxW0emFt9IcXtSJ6K7s85/4vLSFwIVI9n9uW/eZzIzYx6z7rb+9GwKhOO3cJBOVRvbgFXWWLAgMBAAGjggOHMIIDgzCBzQYDVR0RBIHFMIHCoD0GBWBMAQMEoDQEMjA0MDkxOTY5NDM5NzcwNDkxMDAwMDAwMDAwMDAwMDAwMDAwMDAwMTU2MTk0OFNTUEdPoC0GBWBMAQMCoCQEIlNFUkdJTyBKT1NFIFBJUkVTIE1BQ0hBRE8gQlJBR0FOQ0GgGQYFYEwBAwOgEAQOMDg3NjY2NjAwMDAxOTCgFwYFYEwBAwegDgQMMDAwMDAwMDAwMDAwgR5jb250YXRvQGxpbmt0cmFuc3BvcnRlcy5jb20uYnIwCQYDVR0TBAIwADAfBgNVHSMEGDAWgBSdUM+9/yTKr7Ez6xfiQnqOaSqOUzAOBgNVHQ8BAf8EBAMCBeAwgYkGA1UdIASBgTB/MH0GBmBMAQIBCzBzMHEGCCsGAQUFBwIBFmVodHRwOi8vaWNwLWJyYXNpbC5jZXJ0aXNpZ24uY29tLmJyL3JlcG9zaXRvcmlvL2RwYy9BQ19DZXJ0aXNpZ25fTXVsdGlwbGEvRFBDX0FDX0NlcnRpU2lnbk11bHRpcGxhLnBkZjCCASUGA1UdHwSCARwwggEYMFygWqBYhlZodHRwOi8vaWNwLWJyYXNpbC5jZXJ0aXNpZ24uY29tLmJyL3JlcG9zaXRvcmlvL2xjci9BQ0NlcnRpc2lnbk11bHRpcGxhRzUvTGF0ZXN0Q1JMLmNybDBboFmgV4ZVaHR0cDovL2ljcC1icmFzaWwub3V0cmFsY3IuY29tLmJyL3JlcG9zaXRvcmlvL2xjci9BQ0NlcnRpc2lnbk11bHRpcGxhRzUvTGF0ZXN0Q1JMLmNybDBboFmgV4ZVaHR0cDovL3JlcG9zaXRvcmlvLmljcGJyYXNpbC5nb3YuYnIvbGNyL0NlcnRpc2lnbi9BQ0NlcnRpc2lnbk11bHRpcGxhRzUvTGF0ZXN0Q1JMLmNybDAdBgNVHSUEFjAUBggrBgEFBQcDAgYIKwYBBQUHAwQwgaAGCCsGAQUFBwEBBIGTMIGQMGQGCCsGAQUFBzAChlhodHRwOi8vaWNwLWJyYXNpbC5jZXJ0aXNpZ24uY29tLmJyL3JlcG9zaXRvcmlvL2NlcnRpZmljYWRvcy9BQ19DZXJ0aXNpZ25fTXVsdGlwbGFfRzUucDdjMCgGCCsGAQUFBzABhhxodHRwOi8vb2NzcC5jZXJ0aXNpZ24uY29tLmJyMA0GCSqGSIb3DQEBCwUAA4ICAQDGDZJBI1kVZO5rTUgNTowFT2OjxcuQ9r+K+AikW4dM8BC4JFF058XXTqpVH20lrS89We1l+QWepX+P00i9pKbVuttz36bcVeRkIgSduxNXNjIhorKDzhObfRXMQiy6z7lyItCQxrYrcJAhjDjuNPuZR3tu+Rjn0HiGJ7745fjwLj9BZRNKPNGYiSV4Pdj8oOWKdhzkDMV6luM9s4S4/tFL+y13f/l9zYXDs3S52O7tF8UhFz5YS7mQzGv0LXfeuG0o+TlxaYkgzVAEHUssqvd0mM8e5qQtBuKCkUwuEuN6sqlRziEeOPw10NMSN1zReusR7YFiopyXJQf7ta6XeszRWGVUtf7ZbOxCpMzpq4lqJV/nbF17pUPQe6fAzCriMGnLDJ4ZGpzACuLIWX6CSxIbrqRxSrqiFfkt5DJJpCRbcMG8/bSgW/0d42ImqGitJLnecb0PwooFkcQhzC9O0gstbOyqejak6PoRuhs3tYIYMzneZ/gkT/hpl7wo3aD5XsiJtRvNZvtaErQ0GTBlpTlzWMh9CaAsesJuvRWPV3oB1BdasX3XhkqSKTBZVoQDjv4I44vDKM8hvq0Xo2TF31ux28KKDLQAk9nIHo6fIffyrbejPq8nYHsrX9pm1NYW9uSAtZGLMtL5itlYa8d5GTxmcrgv5ui1gSbdzLpfmX1Xxw==</X509Certificate> </X509Data> </KeyInfo> </Signature> </eventoMDFe> -<retEventoMDFe versao="1.00" xmlns="http://www.portalfiscal.inf.br/mdfe"> -<infEvento Id="ID952170000153442"> <tpAmb>1</tpAmb> <verAplic>RS20161004163720</verAplic> <cOrgao>52</cOrgao> <cStat>135</cStat> <xMotivo>Evento registrado e vinculado ao MDF-e</xMotivo> <chMDFe>52170108766660000190580020000000951931162383</chMDFe> <tpEvento>110111</tpEvento> <xEvento>Cancelamento</xEvento> <nSeqEvento>1</nSeqEvento> <dhRegEvento>2017-01-16T10:54:00</dhRegEvento> <nProt>952170000153442</nProt> </infEvento> </retEventoMDFe> </procEventoMDFe> </retConsSitMDFe>

Muito interessante, você sabe se teria como informar várias localidades e ser traçado uma rota no maps com o caminho mais curto entre elas? Obrigado

Obrigado pelas dicas.

Obrigado, tentei o EmbeddedFonts mas o pdf de 40kb foi para mais de 1 mega, aí fica inviável. Vou fazer testes com as outras propriedades. Valeu mesmo!

Blz pessoal? Estou com um problema com a fastreport e não estou encontrado solução. Quando eu utilizo: FrPrn:SetProperty("PDFExport", "FileName", DirWin) para exportar um boleto gerado para pdf ele cria o pdf com a fonte um pouco diferente do preview que aparece na tela e impressão, aí o código de barras não fica legível pela leitora, se eu exibo o boleto na tela e mando imprimir fica ok mas exportando para pdf pelo programa ele muda um pouco as fontes. Se no preview eu clico em exportar para pdf ele gera corretamente também, somente dá problema quando utilizo FrPrn:SetProperty("PDFExport", "FileName", DirWin). Alguém passou por isso? Obrigado.

Li sim, mas veja bem. A partir do momento que vc incorpora e quando vc precisa abrir para alterar ele não volta a incorporar no .exe o fr3 alterado e sim vc tem que salvar uma cópia do .fr3. Aí não faz sentido, melhor é sempre ter os .fr3 em uma determinada pasta e abrir no modo design somente o usuário que tem permissão de alterar, eu faço assim.

Continuo ainda não vendo vantagem em incorporar, veja o caso de que você precisa apenas alterar o tamanho de um campo no relatório (.fr3) aí vc tem que parar o sistema do cliente para atualizar o executável? Por isso questionei se teria como com o fr3 incorporado vc poder fazer alteração no layout sem ter o .fr3 em questão, aí sim seria uma boa vantagem.

Entendi João, não vi nenhuma utilidade então em incorporar no .rc ou .res. Obrigado pela resposta.

Interessante o assunto mas se eu usar: FrPrn:DesignReport() Vai abrir o relatório para eu editar diretamente no .RES ou terei que ter o .FR3 editar e incorporar novamente no .RES? Obrigado.

Matou a charada camarada! Valeu demais!

Olá Gilmer oBrw:KeyCount() retorna 1 e oTemp072:RecCount() retorna 39 registros que seria o correto Valeu!

Olá Kapiaba, Unresolved external '_HB_FUN_CALIAS'

Sim Gilmer. oTemp072:GoTop() oBrw:GoTop() oBrw:Refresh()

Olá sim utilizo database, sim é uma arquivo temporário, inicialmente ele aparece vazio, após consultar os dados de determinada empresa eu gravo os registros neste mesmo arquivo e dou um refresh mas o xbrowse mostra somente 1 registro e como vc nota na imagem um Reccount() diz que tem mais registros. Obrigado.

Olá Gilmer mesmo adicionando oBrw:cAlias:=" TEMP072" e o refresh ainda permanece mostrando apenas 1 registro. Algo mais que possa ser visto? Obrigado.

Ola, Tenho um xbrowse de um arquivo vazio. Quando gravo alguns registro neste arquivo e "refresco" o xbrowse me mostra somente o primeiro registro. Alguma idéia? ... oTemp072:Zap() oBrw := TXBrowse():New( oDlg ) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW oBrw:CreateFromResource( 4047 ) oBrw:nColDividerStyle := 5 //LINESTYLE_BLACK // COLUNAS oBrw:lColDividerComplete := .T. oBrw:nHeaderHeight :=30 oBrw:nStretchCol := STRETCHCOL_LAST oBrw:bClrRowFocus := { || { CLR_BLACK, RGB( 150,231,70 ) } } oBrw:cAlias("TEMP072") oBrw:l2007:=.t. oBrw:bClrSel:={ || { CLR_BLACK, RGB(185,220,255) } } oCol := oBrw:AddCol() oCol:AddResource("CHECKON") oCol:AddResource("CHECKOFF") oCol:cHeader := "" oCol:bBmpData := { || iif( TEMP072->MARCADO, 1, 2) } oCol:bStrData := nil oCol:nDataStyle := oCol:DefStyle( AL_LEFT, .T.) oCol := oBrw:AddCol() oCol:bStrData := { || TEMP072->BOLETO} oCol:cHeader := "Nº BOLETO" ........ For x = 1 to 32 oTemp072:Blank() oTemp072:Boleto := strzero(x,6,0) oTemp072:Append() oTemp072:Save() Next x oTemp072:Commit() oBrw:Refresh() <<<<<---------------------- aqui so mostra 1 registro no xbrowse Obrigado!

FrPrn := frReportManager():new() FrPrn:SetTitle("Dacte") FrPrn:SetWorkArea("ARQCTO", Select("ARQCTO")) FrPrn:SetResyncPair("ARQCTO") FrPrn:LoadFromFile("xDacte.FR3") DirWin := GetWinDir() DirWin := DirWin + "\TEMP" If ! LIsDir(DirWin) LMkDir(DirWin) Endif DirWin := DirWin+"\"+"BOLETO.PDF" FrPrn:SetProperty("PDFExport", "FileName", DirWin) FrPrn:SetProperty("PDFExport", "OpenAfterExport", .f.) FrPrn:SetProperty("PDFExport", "ShowDialog",.f.) FrPrn:PrepareReport() FrPrn:DoExport("PDFExport")

citação:Boa noite, No combobox uma escolha de 1 a 10, gravei a opção 9 por exemplo e depois se quiser consultar, é possível deixar setado a opção 9 que foi a escolhida e gravada na tela de consulta? fivewin 6.12 (FREE) - BCC55- Xharbour - Xdev - PellesC - Med. id=quote>id=quote>Sim basta vc carregar a variável que vai depois do VAR com o conteúdo que você quer que fique setado.

Olá vc pode usar qualquer função do harbour/xharbour no fast utilizando callhbfunction ou evalmacro dê uma olhada.

Ola Evaldo Vc não precisa dessa linha: hCobrebem:= LoadLibrary('.\dll\COBREBEMX.DLL') Quando vc baixa a versão do componente pra windows basta vc clicar em instalar que ele já instala e registra a dll do cobrebemx. Flw.

Olá Jef faz assim: FrPrn:SetWorkArea("TEMP1",Select("TEMP1")) FrPrn:SetWorkArea("TEMP2",Select("TEMP2")) FrPrn:SetResyncPair("TEMP1","TEMP2") FrPrn:SetMasterDetail("TEMP1", "TEMP2", {||TEMP1->NUMERO}) Neste caso o detalhe do master vai ser os itens da nota que tenha o número igual ao pedido no TEMP1. Flw.

Veja bem o .conf é o arquivo de configuração do cliente que comprou a licença e carteira do banco. No caso a dll vc pode baixar do site do cobrebem, pq sempre tem atualizações. flw.

Certo mas neste momento oBoleto:ValorDocumento := nVALTIT vc terá que verificar o valor de nVALTIT que deve estar com valor errado. flw.