beniti

Valeu Erciley Junior Funcionou certinho, apenas corrigindo o comando: oPrinter:FillRect( {pos1, pos2, pos3, pos4}, oBrush) Obrigado!!! FW 2.7 / XH 0.99.61 / XMATE

Olá!!! Criei um oprn:box para imprimi um box cinza. Define Pen oPen1 Width 23*w of oPrn Color nRgb(230,230,230) Na visualização fica ok, , isso para fazer o relatório zebrado, só que quando mando imprimir na laser o box sai todo preto, não mantém o cinza do preview. Alguém sabe como imprimir o box em cinza na laser ? estou usando PRINT oprn NAME prntitulo PREVIEW para imprimir. Obrigado... FW 2.7 / XH 0.99.61 / XMATE

Olá!!! Criei um oprn:box para imprimi um box cinza. Define Pen oPen1 Width 23*w of oPrn Color nRgb(230,230,230) Na visualização fica ok, , isso para fazer o relatório zebrado, só que quando mando imprimir na laser o box sai todo preto, não mantém o cinza do preview. Alguém sabe como imprimir o box em cinza na laser ? estou usando PRINT oprn NAME prntitulo PREVIEW para imprimir. Obrigado... FW 2.7 / XH 0.99.61 / XMATE

Realmente o Aloisio tinha razão, eu estava tão certo que a instrução estava correta, que pulei este teste básico, pois na verdade peguei 3 selects que funcionam e fiz 1, só que coloquei Union All apenas entre o 1 e 2, esquecendo de colocar entre o select 2 e 3. Respondendo tb ao Vailton, o select ficou com 856 caracteres. Obrigado!!!! FW 2.7 / XH 0.99.61 / XMATE

Olá Montei um instrução de várias linhas na variavel CSQL, do comando: USE SQL (CSQL) ALIAS XXX VIA "MYSQL" , ele dá erro e cortar parte do final do comando, são 3 Union All, tirei o segundo e funcionou, tudo indicando um limite de tamanho, alguém já passou por isso ? abraços FW 2.7 / XH 0.99.61 / XMATE

Olá Montei um instrução de várias linhas na variavel CSQL, do comando: USE SQL (CSQL) ALIAS XXX VIA "MYSQL" , ele dá erro e cortar parte do final do comando, são 3 Union All, tirei o segundo e funcionou, tudo indicando um limite de tamanho, alguém já passou por isso ? abraços FW 2.7 / XH 0.99.61 / XMATE

Alguém conseguiu entre ontem ou hoje enviar nota de Testes ? Para mim ainda dá como servidor fora do ar. Obrigado Fernando FW 2.7 / XH 0.99.61 / XMATE

Olá Fiz a seguinte função para resolveu um problema igual ao seu. xhoras=elapmeu(datai,horai,dataf,horaf) ********************************************************** * Calcula a diferenca entre hora, levando em conta a data * isso que diferencia do elaptime, que so considera a hora ********************************************************** Function Elapmeu Para vdatai58,vhorai58,vdataf59,vhoraf59 v60=elaptime(vhorai58,vhoraf59) if vdataf59>vdatai58 //TESTA DIFERENCA ENTRE AS DATAS v59=(vdataf59-vdatai58) * 24 if vhoraf59 v59-=24 elseif vhoraf59>=vhorai58 endif v61=subs(v60,3,3) v60=val(subs(v60,1,2))+v59 v60=strzero(v60,2)+v61 endif Retu v60 //retorna hora Teste e veja se resolve. Abraços Fernando FW 2.7 / XH 0.99.61 / XMATE

Olá Washington Será que usam o Zeus para fazer a conexão Delphi com o Mysql ? Obrigado FW 2.7 / XH 0.99.61 / XMATE

Olá Migrei meus programas de clipper para xharbour, agora consigo usar o Mysql, pois compramos a Sqllib, também tem coisa que será migrada para o Fivewin e ao mesmo tempo algumas outras vão direto para Delphi. A dúvida é, posso usar xharbour com Mysql e ao mesmo tempo Delphi para acessar a mesma base ? Uma base ser acessada pelo xharbour e pelo Delphi ao mesmo tempo. Obrigado Fernando FW 2.7 / XH 0.99.61 / XMATE Editado por - beniti on 18/01/2008 07:55:23 Editado por - beniti on 19/01/2008 16:11:01

Olá Migrei meus programas de clipper para xharbour, agora consigo usar o Mysql, pois compramos a Sqllib, também tem coisa que será migrada para o Fivewin e ao mesmo tempo algumas outras vão direto para Delphi. A dúvida é, posso usar xharbour com Mysql e ao mesmo tempo Delphi para acessar a mesma base ? Uma base ser acessada pelo xharbour e pelo Delphi ao mesmo tempo. Obrigado Fernando FW 2.7 / XH 0.99.61 / XMATE Editado por - beniti on 18/01/2008 07:55:23 Editado por - beniti on 19/01/2008 16:11:01

O problema continua, foi digitação incorreta no tópico. O que fazer ? dividir o campo em outros 2 ? ou usar o custom001, desde que funcione?!! FW 2.7 / XH 0.99.61 / XMATE

Realmente errei na digitação, o correto é: str(produto,5)+subs(mes_ano,4,4)+subs(mes_ano,1,2) Agora sim, fica 200711 FW 2.7 / XH 0.99.61 / XMATE

Olá!!! Estou testando a Sqllib e me deparei com um tipo de situação que não sei melhor forma de resolver, caso você já tenha passado por isso, por favor, me ilumine. Tenho atualmente em cdx um índice assim: index on str(produto,5)+subs(mes_ano,5,4)+subs(mes_ano,1,2) Exemplo: produto 5 mes_ano=11/2007 , usando o subs eu ordeno por ano e depois mês. Para migrar isso para a sqllib eu teria que criar um índice customizado, até fiz, mas não anda dando certo, uma que não tá gravando na coluna custom001 e outra que o skip não funciona legal. Outra saida, seria eu quebrar este campo em 2 (ano e mês), mas será super trabalhoso, são centenas de prg's que atualizam ele... Enfim, espero que alguém já tenha passado por isso!!! Obrigado Fernando FW 2.7 / XH 0.99.61 / XMATE

Olá!!! Estou testando a Sqllib e me deparei com um tipo de situação que não sei melhor forma de resolver, caso você já tenha passado por isso, por favor, me ilumine. Tenho atualmente em cdx um índice assim: index on str(produto,5)+subs(mes_ano,5,4)+subs(mes_ano,1,2) Exemplo: produto 5 mes_ano=11/2007 , usando o subs eu ordeno por ano e depois mês. Para migrar isso para a sqllib eu teria que criar um índice customizado, até fiz, mas não anda dando certo, uma que não tá gravando na coluna custom001 e outra que o skip não funciona legal. Outra saida, seria eu quebrar este campo em 2 (ano e mês), mas será super trabalhoso, são centenas de prg's que atualizam ele... Enfim, espero que alguém já tenha passado por isso!!! Obrigado Fernando FW 2.7 / XH 0.99.61 / XMATE