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

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

Olá Preciso de uma função que retorne o nro da semana dentro do mês. Alguem já fez isso? Olhei dentro do help do xharbour e não encontrei nada. João Cezar - Goiânia/GO. joao.cezar@cultura.com.br FWH 11.05 - xHARBOUR 1.2.1 - WorkShop.Exe

Olá Preciso de uma função que retorne o nro da semana dentro do mês. Alguem já fez isso? Olhei dentro do help do xharbour e não encontrei nada. João Cezar - Goiânia/GO. joao.cezar@cultura.com.br FWH 11.05 - xHARBOUR 1.2.1 - WorkShop.Exe

Olá Alguém já modificou a função MsgYesNo() para que caso o usuário não esteja próximo ao pc, após 15 segundos ela se feche e o sistema continue o seu processamento? João Cezar - Goiânia/GO. joao.cezar@cultura.com.br FWH 11.05 - xHARBOUR 1.2.1 - WorkShop.Exe

Olá Alguém já modificou a função MsgYesNo() para que caso o usuário não esteja próximo ao pc, após 15 segundos ela se feche e o sistema continue o seu processamento? João Cezar - Goiânia/GO. joao.cezar@cultura.com.br FWH 11.05 - xHARBOUR 1.2.1 - WorkShop.Exe

teste João Cezar - Goiânia/GO. joao.cezar@cultura.com.br FWH 11.05 - xHARBOUR 1.2.1 - WorkShop.Exe

teste. João Cezar - Goiânia/GO. joao.cezar@cultura.com.br FWH 11.05 - xHARBOUR 1.2.1 - WorkShop.Exe

Blz, Da forma que o Luiz Claudio passou funcionou. Então eu tenho que verificar sempre o conteudo de cResultado ? João Cezar - Goiânia/GO. joao.cezar@cultura.com.br Fone: (62) 3256-4715 FWH 10.08 - xHARBOUR 1.2.1 - WorkShop.Exe

Segue as declarações da DLL Sitef: // Configuração Tef Dedicado DLL32 FUNCTION ConfiguraIntSiTefInterativoA(pResultado AS LPSTR,; pEnderecoIP AS LPSTR,; pCodigoLoja AS LPSTR,; pNumeroTerminal AS LPSTR,; pConfiguraResultado AS LPSTR) AS LONG PASCAL LIB hSitef // Inicia a Transação Tef DLL32 FUNCTION IniciaFuncaoSiTefInterativoA(pResultado AS LPSTR,; pFuncao AS LPSTR,; pValor AS LPSTR,; pCuponFiscal AS LPSTR,; pDataFiscal AS LPSTR,; pHorario AS LPSTR,; pOperador AS LPSTR,; pParamAdic AS LPSTR) AS LONG PASCAL LIB hSitef // Continua a Transação Tef DLL32 FUNCTION ContinuaFuncaoSiTefInterativoA(pResultado AS LPSTR,; pProximoComando AS LPSTR,; pTipoCampo AS LPSTR,; pTamanhoMinimo AS LPSTR,; pTamanhoMaximo AS LPSTR,; pBuffer AS LPSTR,; pTamMaxBuffer AS LPSTR,; pContinuaNavegacao AS LPSTR) AS LONG PASCAL LIB hSitef // Finaliza a Transação Tef DLL32 FUNCTION FinalizaTransacaoSiTefInterativoA(pConfirma AS LPSTR,; pNumeroCuponFiscal AS LPSTR,; pDataFiscal AS LPSTR,; pHorario AS LPSTR) AS LONG PASCAL LIB hSitef João Cezar - Goiânia/GO. joao.cezar@cultura.com.br Fone: (62) 3256-4715 FWH 10.08 - xHARBOUR 1.2.1 - WorkShop.Exe

Olá Estou desenvolvendo a comunicação do meu programa com o sitef, baixei as declarações da dll aqui do forum onde os paramentros são todos declarados com LPSTR. Gostaria de saber se as funções tem retorno ou se devo verificar o parametro presultado. Pois coloquei da seguinte forma: cResultado:=SPACE(6) cTefNroIP:="192.168.1.3" cTefNroEmpr:="00000000" cTefNroTerm:= "PV"+"000"+STRZERO(VAL(cNroPDV),3,0) nRetorno:=ConfiguraIntSiTefInterativoA(cResultado, cTefNroIP, cTefNroEmpr, cTefNroTerm, "0") Sendo que nRetorno está retornando 1 e cResultado está retornando "000000". A função IniciaFuncaoSiTefInterativoA está dando GPF vejam como estou chamando ela: nRetSitef := IniciaFuncaoSiTefInterativoA(cResultado, "0", ALLTRIM(TRANSFORM(nValCartao,"@E 999,999,999.99")), cNroCOO, DTOS(dDataHoje), cTimeSitef, cUsuario) Se puder ajudar desde já agradeço. João Cezar - Goiânia/GO. joao.cezar@cultura.com.br Fone: (62) 3256-4715 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe