Ariston Santos

Mudei de idéia. Vou salvar o array em um banco de dados. Lembrei que o programa vai rodar em ambiente de rede com MySQL e eu não quero ter que compartilhar nehuma pasta para procurar de arquivos. Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib

Salvar array em arquivo eu já consegui. Fiz assim: cNotas := TOSTRING(aLisNot) MemoWrit( ".\ba"+STRZERO(oIt01,6)+".txt", cNotas ) Agora só falta conseguir coloar o conteúdo de ".\ba"+STRZERO(oIt01,6)+".txt" em um array. Alguém pode me ajudar? Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib

Eu tive o mesmo problemas e resolvi dando um Refresh() na dialog. Exemplo: REDEFINE SBUTTON oSbt2 PROMPT "&Alterar" ID 102 OF oArec FILE ".\bitmaps\abrir.bmp" W97 ACTION (EditRcb(.f., oLista), MsgRun("Calculando. Aguarde...","Calculando. Aguarde...",{||CntCalcTot(oArec)}), oArec:Refresh()) WHEN ! mVazio COLORS CLR_BLUE,{nBtClr,CLR_WHITE,3} Ariston

Oi, amigos. Como faço para salvar um array em um arquivo de texto, e obter os dados posteriormente para um array? Por exemplo: tenho aArray := {"João", "Pedro", "Alguém"} Quero salver este conteúdo em arquivo, e restaurá-lo posteriormente para um Array. Existe alguma função própria para fazer isso? Grato! Ariston Santos. Ariston

Oi, amigos. Como faço para salvar um array em um arquivo de texto, e obter os dados posteriormente para um array? Por exemplo: tenho aArray := {"João", "Pedro", "Alguém"} Quero salver este conteúdo em arquivo, e restaurá-lo posteriormente para um Array. Existe alguma função própria para fazer isso? Grato! Ariston Santos. Ariston

Se o problema for o aparecimento da janelinha chata do DOS, use o compando WaitRun(arqlot.bat, 0) (Veja a sintaxe correta em SAMPLES) que ela não aparecerá mais. Ariston

Baixe a sbutton.lib link abaixo: http://www.fivewin.com.br/Dicas/638TSBUTTON.zip Ariston

Alguem poderia postar aqui um modelo de filtro para MySQL que atenda os seguintes critérios? cNome := "JOSE ARISTON" dInic := CTOD("20/05/2006") dFina := CTOD("24/05/2006") Estou fazendo assim: cFilter := "clie_nome = "+cNome" AND clie_data >= "+dInic+" AND clie_data <= "+dFina SQLFILTER(cFilter) Mas não funcionou. O que fiz de errado? Ariston

Alguem poderia postar aqui um modelo de filtro para MySQL que atenda os seguintes critérios? cNome := "JOSE ARISTON" dInic := CTOD("20/05/2006") dFina := CTOD("24/05/2006") Estou fazendo assim: cFilter := "clie_nome = "+cNome" AND clie_data >= "+dInic+" AND clie_data <= "+dFina SQLFILTER(cFilter) Mas não funcionou. O que fiz de errado? Ariston

Alguem poderia postar aqui um modelo de filtro para MySQL que atenda os seguintes critérios? cNome := "JOSE ARISTON" dInic := CTOD("20/05/2006") dFina := CTOD("24/05/2006") Estou fazendo assim: cFilter := "clie_nome = "+cNome" AND clie_data >= "+dInic+" AND clie_data <= "+dFina SQLFILTER(cFilter) Mas não funcionou. O que fiz de errado? Ariston

Alguem poderia postar aqui um modelo de filtro para MySQL que atenda os seguintes critérios? cNome := "JOSE ARISTON" dInic := CTOD("20/05/2006") dFina := CTOD("24/05/2006") Estou fazendo assim: cFilter := "clie_nome = "+cNome" AND clie_data >= "+dInic+" AND clie_data <= "+dFina SQLFILTER(cFilter) Mas não funcionou. O que fiz de errado? Ariston

Alguem poderia postar aqui um modelo de filtro para MySQL que atenda os seguintes critérios? cNome := "JOSE ARISTON" dInic := CTOD("20/05/2006") dFina := CTOD("24/05/2006") Estou fazendo assim: cFilter := "clie_nome = "+cNome" AND clie_data >= "+dInic+" AND clie_data <= "+dFina SQLFILTER(cFilter) Mas não funcionou. O que fiz de errado? Ariston

Alguem poderia postar aqui um modelo de filtro para MySQL que atenda os seguintes critérios? cNome := "JOSE ARISTON" dInic := CTOD("20/05/2006") dFina := CTOD("24/05/2006") Estou fazendo assim: cFilter := "clie_nome = "+cNome" AND clie_data >= "+dInic+" AND clie_data <= "+dFina SQLFILTER(cFilter) Mas não funcionou. O que fiz de errado? Ariston

Aproveitando o contexto? Como faço para definir o tamanho da página na Lx300? Por padrão parece que é o Carta (60 linhas) e quando dou o comando oPrn:End() o comando TEAR OFF da impressora é ativado automáticamente e o usuário pode cortar o papel. Depois, é mandar o próximo pedito que a impressora se encarrega de voltar o papel para a posição corrate e começar a impressão na linha 1. O problema, é que o pedido só usa metade do papel e eu queria que ao chegar na metade (30 linhas) a impressora desse o comando TEAR OFF (Cortar papel) automaticamente. Desta forma, o usuário não preciaria pressionar a tecla FF da impressora para cortar o papel nem a tecle LOAD/EJECT para voltar o papel novamente. Alguem me entendeu e pode me ajudar nessa? Obrigado por tudo. Ariston

Sim! É possível colocar um acelerador no SAY e o foco para o GET. Em meus programas uso isso e não encontro nenhum problema (veja ex: em www.arsoft-ap.com.br). Como fazer? Usando o método @SAY... @??,?? say "&Nome" OF oDlg PIXEL SIZE 50,10 @??,?? GET oGet VAR cNome OF oDlf SIZE 150,10 PIXEL Usando Resource WorkShop (Caption não deve ficar com ID -1 . Mude para -2, -3, ...) REDEFINE SAY oSay PROMPT "&Nome" ID -2 OF oDlg (opcional) REDEFINE GET oGet VAR cNome OF oDlg Um porém! No workshop, use a opção SET TABSTOP (aquele botão com os número 1 e 2 [12]) para definir a sequência em que os controle deve receber o foco. Esta sequência é definida automaticamente quando você cria a dialog, mas nem sempre seguem uma ordem correta, o que pode causar confusão ao teclar TAB para mudar para o próximo controle. Deixe o SAY receber o foco antes do GET (Ex: ao teclar TAB pula pro SAY, teclando TAB novamente, pula pro GET). Sabemos que SAY's não recebem foco, e é aí que mora o segredo. Quando você teclar Alt+N, o sistema enviará o FOCO para o SAY, mas como ele não recebe foco, será transferido para o próximo controle, que é o GET. Não é simples? Ariston

Oi pessoal. Estou com um problema. Não consigo usar um programa de contabilidade em Windows XP. Sempre da erro de abertura de arquivo DBF ou NTX por falta de memoria. Já alterei o AUTOEXEC.NT, CONFIG.NT mas nada faz funcionar. Já formatei a maquina e instalei o Windows novamente, mas continua dando erro. O sistema funciona em Windows 98 noutro computador, mas no XP não roda. Vocês tem algum programa que possibilite alocar memoria no Windows XP para uso de programas em MS-DOS? Se sim, podem me mandar uma cópia? Grato! Ariston Santos MSN: arsoft-ap@click21.com.br Clipper 5.3 // Fw22c // WORKSHOP // DBFCDX Ariston

Oi pessoal. Estou com um problema. Não consigo usar um programa de contabilidade em Windows XP. Sempre da erro de abertura de arquivo DBF ou NTX por falta de memoria. Já alterei o AUTOEXEC.NT, CONFIG.NT mas nada faz funcionar. Já formatei a maquina e instalei o Windows novamente, mas continua dando erro. O sistema funciona em Windows 98 noutro computador, mas no XP não roda. Vocês tem algum programa que possibilite alocar memoria no Windows XP para uso de programas em MS-DOS? Se sim, podem me mandar uma cópia? Grato! Ariston Santos MSN: arsoft-ap@click21.com.br Clipper 5.3 // Fw22c // WORKSHOP // DBFCDX Ariston

Oi pessoal. Estou com um problema. Não consigo usar um programa de contabilidade em Windows XP. Sempre da erro de abertura de arquivo DBF ou NTX por falta de memoria. Já alterei o AUTOEXEC.NT, CONFIG.NT mas nada faz funcionar. Já formatei a maquina e instalei o Windows novamente, mas continua dando erro. O sistema funciona em Windows 98 noutro computador, mas no XP não roda. Vocês tem algum programa que possibilite alocar memoria no Windows XP para uso de programas em MS-DOS? Se sim, podem me mandar uma cópia? Grato! Ariston Santos MSN: arsoft-ap@click21.com.br Clipper 5.3 // Fw22c // WORKSHOP // DBFCDX Ariston

Obrigado. Vou verificar. Se não der certo, volta a solicitar ajuda de vocês. Ariston

Olá, pessoal. Essa idéia é ótima, mas concordo que as dúvidas continuem sendo postadas no forum. O motivo é que muitas vezes já consegui tirar minhas dúvidas sem ter que postar a pergunta, apenas usando o sitema de busca do forum, Pois outras já tinham exposto a mesma dúvida que eu e a resposta já estava aqui. No entanto, concordo também que numa hora de sufoco, a ajuda instatânea pelo MSN vai ajudar muito. Ariston Santos MSN: arsoft-ap@click21.com.br Clipper 5.3 / Fw2.2c / Fwh2.5 / Workshop / DBFCDX

Olá, pessoal. Estou inicando agora com o FWH2.5 e estou tando problemas na compilação. Tenho o Harbour que baixei da seção de downloads deste site e a Borland BCC55, além do FWH2.5, tentei compilar a win32.prg e outros mas, de início, falava que não estava conseguindo encontrar alguns includes (.h). Consegui corrigir o problema então deu falta de CODEPAGE.LIB. Removi a chamada a CODEPAGE.LIB do build.bat e, quando pensei que finalmente ia funcionar, acusou a ausência de várias funções do harbour. Enfim, alguem poderia, por favor, me dar umas dicas de como compilar com Fw2.5 sem problemas? Ficarei grato pela ajuda de todos. Ariston

Olá, pessoal. Estou inicando agora com o FWH2.5 e estou tando problemas na compilação. Tenho o Harbour que baixei da seção de downloads deste site e a Borland BCC55, além do FWH2.5, tentei compilar a win32.prg e outros mas, de início, falava que não estava conseguindo encontrar alguns includes (.h). Consegui corrigir o problema então deu falta de CODEPAGE.LIB. Removi a chamada a CODEPAGE.LIB do build.bat e, quando pensei que finalmente ia funcionar, acusou a ausência de várias funções do harbour. Enfim, alguem poderia, por favor, me dar umas dicas de como compilar com Fw2.5 sem problemas? Ficarei grato pela ajuda de todos. Ariston

Olá, pessoal. Estou inicando agora com o FWH2.5 e estou tando problemas na compilação. Tenho o Harbour que baixei da seção de downloads deste site e a Borland BCC55, além do FWH2.5, tentei compilar a win32.prg e outros mas, de início, falava que não estava conseguindo encontrar alguns includes (.h). Consegui corrigir o problema então deu falta de CODEPAGE.LIB. Removi a chamada a CODEPAGE.LIB do build.bat e, quando pensei que finalmente ia funcionar, acusou a ausência de várias funções do harbour. Enfim, alguem poderia, por favor, me dar umas dicas de como compilar com Fw2.5 sem problemas? Ficarei grato pela ajuda de todos. Ariston

Veja a tela do SISCOM em www.arsoft-ap.com.br. Ariston

Obrigado por tudo. A propósito, ainda estou com problemas com o CTRL+ALT+DEL (de outro tópico). Recebi algumas dicas mais ainda não consegui travar essas teclas no XP. Já testei as seguintes: 1. SysTaskChange( .F. ) // Só funciona no Windows 98 2. TravaTc() Dll32 FUNCTION TravaTc() AS VOID FROM "VoTravaTeclado" LIB "VoTravaKey.DLL" Dll32 FUNCTION LiberaTc() AS VOID FROM "VoLiberaTeclado" LIB "VoTravaKey.DLL" // Trava o teclado completo e o mouse, mas preciso de uma função que trave apenas CTRL + ALT + DEL também no XP. 3. if !lState SysParInfo( 97, 1, 0, 0 ) else SysParInfo( 97, 0, 0, 0 ) endif dll32 static function SysParInfo( uAction AS LONG, uParam AS LONG, vParam AS LONG, uWinIni AS LONG ) ; AS LONG PASCAL FROM "SystemParametersInfoA" LIB "User32.dll" Se alguem tiver alguma coisa funcional agradeço pela ajuda. Ariston