Edu
-
Posts
126 -
Joined
-
Last visited
-
Days Won
3
Posts posted by Edu
-
-
-
Prezados,
Bom dia.
Estou criando um arquivo xml e não estou conseguindo alterar o cabeçalho com a codificação desejada.
Já pesquisei e não encontrei uma solução.
Segue o código:
* Cria novo documento xmloXml:= TXMLDocument():New()* CabecalhooXml:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_PI , 'xml',, 'version="1.0" encoding="UTF-8"' ))* Tag Principal do arquivooNode:= TxmlNode():New( HBXML_TYPE_TAG , 'eSocial' )oNode2:= TxmlNode():New( HBXML_TYPE_TAG , 'evtTabLotacao' )oNode3:= TxmlNode():New( HBXML_TYPE_TAG , 'id' )oNode3:cData:= ::nIDoNode2:AddBelow(oNode3)oNode:AddBelow(oNode2)oXml:oRoot:AddBelow(oNode) // Add a tag eSocial* Cria o arquivohFile := FCREATE( ".\evS-1020.xml" )IF hFile != -1oXml:Write( hFile , HBXML_STYLE_INDENT + HBXML_STYLE_THREESPACES )Fclose( hFile )ELSEMsgInfo("Falha ao criar o arquivo de envio do evento S-1020", "Atenção")ENDIF******************************************************Resultado:<?xml version="1.0"?><?xml version="1.0" encoding="UTF-8"?><eSocial><evtTabLotacao><id>0001</id></evtTabLotacao></eSocial> -
Prezados,
Bom dia.
Estou criando um arquivo xml e não estou conseguindo alterar o cabeçalho com a codificação desejada.
Já pesquisei e não encontrei uma solução.
Segue o código:
* Cria novo documento xmloXml:= TXMLDocument():New()* CabecalhooXml:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_PI , 'xml',, 'version="1.0" encoding="UTF-8"' ))* comentariooXml:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_COMMENT ,,, 'Evento S-1020 - Tabela de Lotacao' ))* Tag Principal do arquivooNode:= TxmlNode():New( HBXML_TYPE_TAG , 'eSocial' )oNode2:= TxmlNode():New( HBXML_TYPE_TAG , 'evtTabLotacao' )oNode3:= TxmlNode():New( HBXML_TYPE_TAG , 'id' )oNode3:cData:= ::nIDoNode2:AddBelow(oNode3)oNode:AddBelow(oNode2)oXml:oRoot:AddBelow(oNode) // Add a tag eSocial* Cria o arquivohFile := FCREATE( ".\evS-1020.xml" )IF hFile != -1oXml:Write( hFile , HBXML_STYLE_INDENT + HBXML_STYLE_THREESPACES )Fclose( hFile )ELSEMsgInfo("Falha ao criar o arquivo de envio do evento S-1020", "Atenção")ENDIF******************************************************Resultado:<?xml version="1.0"?><?xml version="1.0" encoding="UTF-8"?><eSocial><evtTabLotacao><id>0001</id></evtTabLotacao></eSocial> -
Obrigado pela resposta amigo!
Resolvido!
Aproveitando a ocasião, procurei por esta função "resizebmp()" e descobri que se passar o quarto parametro = .t.
a imagem não perde qualidade. Você pode implementar na sua função também.
ResizeBmp( hBitmap, nWidth, nHeight, lMaxRes ) –> hResizedBitmap
hBitmap -> The handle of the bitmap to resizenWidth, nHeight -> The new dimensions of the resized bitmap to createlMaxRes -> Resizes it using the max quality as possibleAbraço.
-
Bom dia amigos!
Gostaria de saber se há um jeito de redimensionar um bitmap para colocar na coluna de um xBrowse, pois os arquivos de imagens podem estar com tamanhos diferentes
e eu queria estabelecer um tamanho padrão.
-
Obrigado pela resposta amigos!
Acho que vou ter que aumentar o tamanho das linhas para compensar.
-
Bom dia amigos!
Alguém sabe se é possível diminuir o tamanho do record selector do xbrowse. Pois tive que diminuir o tamanho das linhas, mas após isto, ao navegar o record selector "borra" as linhas.
Obs.: Já tentei através do método = oBrw:nRecSelWidth , porém não acontece nada.
-
Ao clicar no header de cada coluna, organiza de acordo com o índice.Exemplo:oBrw:aCols[1]:bLClickHeader := {|| cDbf->(DBSETORDER(1)), oBrw:GoTop(), oBrw:Refresh()}oBrw:aCols[2]:bLClickHeader := {|| cDbf->(DBSETORDER(2)), oBrw:GoTop(), oBrw:Refresh()}
-
Bom dia amigos!
Alguém sabe se é possível diminuir o tamanho do record selector do xbrowse. Pois tive que diminuir o tamanho das linhas, mas após isto, ao navegar o record selector "borra" as linhas.
Obs.: Já tentei através do método = oBrw:nRecSelWidth , porém não acontece nada.
-
Boa tarde!
Estou migrando o Fivewin da versão 8.04 para a 11.09 + xHarbour 1.2.1 e Bcc5.8.2 e estou tendo problemas ao compilar.
Arquivo error.log: module: vcinfob.prg was compiled into pcode version 9, this version of xHarbour expects version 10.
Obs.: O sistema utiliza a lib ViaCoral. Tem algum jeito de substituir o objeto infobar por outro nativo?
Grato.
-
Obrigado pelas repostas pessoal!
-
Boa tarde!
Temos sistema de folha de pagamento completo incluindo e-Social.
Nossos contatos:
comercial@cyclonet.com.br
gerencial@cyclonet.com.br
telefone: 21 2625-0863 / 21 2625-0620
-
Boa tarde!
Estou migrando o Fivewin da versão 8.04 para a 11.09 + xHarbour 1.2.1 e Bcc5.8.2 e estou tendo problemas ao compilar.
Arquivo error.log: module: vcinfob.prg was compiled into pcode version 9, this version of xHarbour expects version 10.
Obs.: O sistema utiliza a lib ViaCoral. Tem algum jeito de substituir o objeto infobar por outro nativo?
Grato.
-
Bom dia amigos!
Alguém conseguiu transformar um Preview em documento do Word ou planilha do Excel, utilizando as classes TWord e TExcel?
Grato.
-
Bom dia.
Você pode travar o registro usando o comando SELECT ... FOR UPDATE.
Ex: cSql:= "SELECT * FROM tbl_os WHERE id = ' "+STR(numeroOs)+" ' FOR UPDATE"
-
Obrigado pela resposta Kapiaba mas eu resolvi de outro modo.
Inclusive eu já tinha visto estes posts, não consegui resolver antes talvez por causa da minha versão do fivewin, que é 8.04.
Segue a solução talvez seja do interesse de vocês:
* Campo de PesquisaREDEFINE GET oGet4001 VAR wNomeProduto ID 4001 OF oDlg UPDATE ;ON CHANGE( ::Assign(), PesquisaNoVetorXbr(wNomeProduto,lStbx2) )************************************************************************************************************FUNCTION PesquisaNoVetorXbr(wDigitado, lStbx2)* Pesquisa no vetor e posiciona no xBrowseLOCAL wPalavra:= UPPER(ALLTRIM(wDigitado))nPos := ASCAN(cProd ,{|X| IF(wPalavra $ Substr(X[1],1,LEN(wPalavra)) , .T. , .F. )})IF nPos > 0lStbx2:nArrayAt:= nPosENDIFlStbx2:Refresh()lStbx2:Update()RETURN .T.********************************************************************************************* -
Bom dia amigos!
Estou tentando fazer uma pesquisa sensitiva no xBrowse com array digitando num GET o conteúdo da pesquisa.
Já procurei nas postagens antigas mas ainda não consegui solucionar.
Se alguém puder me ajudar ficarei grato.
-
Resolvido!
Obrigado.
-
Boa tarde,
Tem algum jeito de fazer uma pesquisa incremental no xbrowse com array, digitando através de um get?
-
A página é a do provedor WebIss que tem a funcionalidade de emitir notas fiscais de serviços eletrônica - NFS-e.
Eu queria preencher 03 campos desta página para consultar a nota gerada. Segue o link abaixo:
http://www3.webiss.com.br/rjniteroi/FormVerificarNFE.aspx?Login=ANONIMO&idRec=verificarnfse&tipo=
Todavia, obrigado por sua resposta. Será de grande valia!
-
Prezados, bom dia!
Gostaria de saber se há um jeito de preencher campos de uma página na web através da url ou do código fonte.
Pesquisei mas só achei no delphi, que faz através do TWebBrowser.
-
Bom dia!
Estou fazendo uma funçao em um sistema para abrir arquivos txt.
Então gostaria de saber como é que eu posso gravar o caminho do diretorio desses arquivos, para trazer como default. E criar um vetor com os nomes dos arquivos e mostra-los em um listbox.
Desde ja agradeço pela atenção.
-
Bom dia!
Estou fazendo uma funçao em um sistema para abrir arquivos txt.
Então gostaria de saber como é que eu posso gravar o caminho do diretorio desses arquivos, para trazer como default. E criar um vetor com os nomes dos arquivos e mostra-los em um listbox.
Desde ja agradeço pela atenção.
-
Boa noite a todos.
Queria saber como colocar imagem no fundo de uma DIALOG.
Desde já fico grato pela atenção.
Conexão com banco de dados SQL SERVER via Sqllib [Resolvido]
in Programação
Posted
Obrigado Kleyber.