Edu

Boa tarde João! Você teria um exemplo de conexão com o banco?

Obrigado Kleyber.

Bom dia amigos, Alguém poderia me informar se é possível trabalhar com o banco de dados SQL SERVER usando a SQLLIB? Se puder postar um exemplo de como fazer... Obrigado.

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 xml oXml:= TXMLDocument():New() * Cabecalho oXml:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_PI , 'xml',, 'version="1.0" encoding="UTF-8"' )) * Tag Principal do arquivo oNode:= TxmlNode():New( HBXML_TYPE_TAG , 'eSocial' ) oNode2:= TxmlNode():New( HBXML_TYPE_TAG , 'evtTabLotacao' ) oNode3:= TxmlNode():New( HBXML_TYPE_TAG , 'id' ) oNode3:cData:= ::nID oNode2:AddBelow(oNode3) oNode:AddBelow(oNode2) oXml:oRoot:AddBelow(oNode) // Add a tag eSocial * Cria o arquivo hFile := FCREATE( ".\evS-1020.xml" ) IF hFile != -1 oXml:Write( hFile , HBXML_STYLE_INDENT + HBXML_STYLE_THREESPACES ) Fclose( hFile ) ELSE MsgInfo("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 xml oXml:= TXMLDocument():New() * Cabecalho oXml:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_PI , 'xml',, 'version="1.0" encoding="UTF-8"' )) * comentario oXml:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_COMMENT ,,, 'Evento S-1020 - Tabela de Lotacao' )) * Tag Principal do arquivo oNode:= TxmlNode():New( HBXML_TYPE_TAG , 'eSocial' ) oNode2:= TxmlNode():New( HBXML_TYPE_TAG , 'evtTabLotacao' ) oNode3:= TxmlNode():New( HBXML_TYPE_TAG , 'id' ) oNode3:cData:= ::nID oNode2:AddBelow(oNode3) oNode:AddBelow(oNode2) oXml:oRoot:AddBelow(oNode) // Add a tag eSocial * Cria o arquivo hFile := FCREATE( ".\evS-1020.xml" ) IF hFile != -1 oXml:Write( hFile , HBXML_STYLE_INDENT + HBXML_STYLE_THREESPACES ) Fclose( hFile ) ELSE MsgInfo("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. Syntax ResizeBmp( hBitmap, nWidth, nHeight, lMaxRes ) –> hResizedBitmap Parameters hBitmap -> The handle of the bitmap to resize nWidth, nHeight -> The new dimensions of the resized bitmap to create lMaxRes -> Resizes it using the max quality as possible Abraç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 Pesquisa REDEFINE 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 xBrowse LOCAL wPalavra:= UPPER(ALLTRIM(wDigitado)) nPos := ASCAN(cProd ,{|X| IF(wPalavra $ Substr(X[1],1,LEN(wPalavra)) , .T. , .F. )}) IF nPos > 0 lStbx2:nArrayAt:= nPos ENDIF lStbx2: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.