João Cezar

Olá Alguém tem a classe TFirebird do Rodrigo Moreno para xHarbour 123 com Bcc 7, tentei contato com ele, mas ele não respondeu meus emails, sei que tem uma classe nova, estou precisando urgente dela.

Olá Preciso percorrer todos itens de um TreeView verificando o cPrompt e o GetCheck para poder gravar em uma tabela, Tentei fazendo um FOR para verificar os itens que foram selecionados, mas está pegando apenas os itens do primeiro nivel como faço para verificar os subitens ou demais niveis ? Segue exemplo de como tentei fazer: FOR nItem := 1 TO LEN( oTree:aItems ) MsgInfo( "nItem="+cSTR(nItem)+CRLF+; "oTree:cPrompt="+cSTR(oTree:aItems[ nItem ]:cPrompt)+CRLF+; "oTree:GetCheck[nItem]="+cSTR(oTree:aItems[ nItem ]:GetCheck() ) ) NEXT

Olá Kapiaba O problema não é a porta não, o acesso é pela porta 21 no LOCAWEB, o engraçado é que o mesmo fonte compilado com o Fwh 12.01 funciona correto.

Olá estou tentando fazer um download do ftp hospedado na locaweb tem hora que funciona tem hora que retorna o codigo de erro 501-Server cannot accept argument, alguem saberia me dizer porque desse erro ? Estou usando o Fwh 14.09 + xHarbour 1.2.3

Olá Jackson Vc saberia me informar como fazer isso dentro *.fr3

Caros colegas, Gostaria de alterar q qtde de colunas de etiquetas no fast em tempo de execução para nao ser preciso ter varios arquivos, Gostaria de saber se tem uma propriedade que faça isso tentei da forma abaixo mas não existe esta propriedade. IF oPadraoEtiq:nAt==1 // "1 Coluna 50x30mm" oFrPrn:LoadFromFile(cPathRel + "EtiquetasProdutosCol50x30mm.fr3") oFrPrn:Columns := 1 // não existe esta propriedade ELSEIF oPadraoEtiq:nAt==2 // "2 Coluna 50x30mm" oFrPrn:LoadFromFile(cPathRel + "EtiquetasProdutosCol50x30mm.fr3") oFrPrn:Columns := 2 // não existe esta propriedade ELSEIF oPadraoEtiq:nAt==3 // "3 Coluna 50x30mm" oFrPrn:LoadFromFile(cPathRel + "EtiquetasProdutosCol50x30mm.fr3") oFrPrn:Columns := 3 // não existe esta propriedade ELSEIF oPadraoEtiq:nAt==4 // "4 Coluna 50x30mm" oFrPrn:LoadFromFile(cPathRel + "EtiquetasProdutosCol50x30mm.fr3") oFrPrn:Columns := 4 // não existe esta propriedade ELSEIF oPadraoEtiq:nAt==5 // "1 Coluna 89x25mm" oFrPrn:LoadFromFile(cPathRel + "EtiquetasProdutosCol89x25mm.fr3") oFrPrn:Columns := 1 // não existe esta propriedade ELSEIF oPadraoEtiq:nAt==6 // "2 Coluna 89x25mm" oFrPrn:LoadFromFile(cPathRel + "EtiquetasProdutosCol89x25mm.fr3") oFrPrn:Columns := 2 // não existe esta propriedade ELSEIF oPadraoEtiq:nAt==7 // "3 Coluna 89x25mm" oFrPrn:LoadFromFile(cPathRel + "EtiquetasProdutosCol89x25mm.fr3") oFrPrn:Columns := 3 // não existe esta propriedade ELSEIF oPadraoEtiq:nAt==8 // "4 Coluna 89x25mm" oFrPrn:LoadFromFile(cPathRel + "EtiquetasProdutosCol89x25mm.fr3") oFrPrn:Columns := 4 // não existe esta propriedade ENDIF

Valeu JmSilva, vou testar e reporto.

Olá Como faço para gravar uma string encryptada em um campo de uma tabela do firebird usando o sqlrdd ? Qdo gravo fica truncando a string.

Estou usando a classe Timprime do Rafa com fwh1309 e xharbour123, está dando erro, parece que não consegue inicializar os objetos que estão dentro da classe, até a versão do fwh1201 e xharbour121 funcionou normalmente. Alguem usa essa classe com fwh13 em diante ?

Essa aplicação, como estou migrando do clipper para fwh + xharbour ainda tem muita coisa em clipper então para manter a compatibilidade tenho de usar ainda o DBFNTX, a minha tabela de produtos já tem 15 indices criado então não posso criar mais indices fixos, como é uma pesquisa por descrição do produto eu uso o indice já criado apenas por descrição e faço um ORDSCOP a medida que o usuario vai digitando letra a letra, por isso não posso ficar criando indice temporario a cada letra que o usuario digitar.

Olá Tenho uma consulta de produtos com opção de filtro onde escolho 1-Produtos em Estoque ou 2-Produtos sem Estoque ou 3-Todos Produtos, tentei usar o setfilter() ficou lento em rede, não posso criar indices fixos nem temporarios, pensei em usar o metodo bskip do browse, mas não estou conseguindo fazer funcionar, alguem poderia me dar um exemplo ? Segue o que estou fazendo: oBrwConsul:bSkip := { | nRecs | SkipEstoq( nRadio, cAlias, nRecs ) } ... ... ... FUNCTION SkipEstoq( nRadio, cAlias, nRecords ) LOCAL nSkipped DEFAULT nRecords := 1 IF nRadio == 1 IF (cAlias)->PrEstq <= 0 ; IF( nRecords < 0, nRecords--, nRecords++ ); ENDIF ELSEIF nRadio == 2 IF (cAlias)->PrEstq > 0 ; IF( nRecords < 0, nRecords--, nRecords++ ) ; ENDIF ENDIF nSkipped := (cAlias)->( DbSkipper( nRecords ) ) RETURN nSkipped

Olá Tenho uma tabela no firebird com campos tipo smallint, ao fazer um select na tabela usando o sqlrdd o result set do campo está retornando o campo como se fosse do tipo logico. Alguem já testou isso, se eu mudo o tipo para int retorna correto mas com smallint, retorna errado. João Cezar - Goiânia/GO. joao.cezar@cultura.com.br FWH 11.05 - xHARBOUR 1.2.1 - WorkShop.Exe

Olá Tenho uma tabela no firebird com campos tipo smallint, ao fazer um select na tabela usando o sqlrdd o result set do campo está retornando o campo como se fosse do tipo logico. Alguem já testou isso, se eu mudo o tipo para int retorna correto mas com smallint, retorna errado. João Cezar - Goiânia/GO. joao.cezar@cultura.com.br FWH 11.05 - xHARBOUR 1.2.1 - WorkShop.Exe

Erro resolvido, dentro do xml havia conteudo com & e no xml não pode. João Cezar - Goiânia/GO. joao.cezar@cultura.com.br FWH 11.05 - xHARBOUR 1.2.1 - WorkShop.Exe

Olá Estou usando a classe TXmlDocument para tratar arquivos xml para a rede pbm Pharmalink, qdo uso o metodo xmlDoc:READ( Memoread( cArq ) ) está dando erro nro 5 que é xml mal formado, gostaria de saber como faço para saber qual a tag está com erro ou qual a ultima tag correta tentei tratar da xmlDoc:oErrorNode:cName mas ele está retornando nil. João Cezar - Goiânia/GO. joao.cezar@cultura.com.br FWH 11.05 - xHARBOUR 1.2.1 - WorkShop.Exe