ram_bh

Marcelo, Mais uma: quando a Dialog é ativada gostaria que o foco fosse no ListBox. Já tentei o comando oBrw:SetFocus() antes do Activate Dialog mas não funcionou. Alguma dica? Obrigado!

Caro Marcelo, Bem lembrado... Havia esquecido da cláusula On Change... Obrigado e um abraço! Rodrigo Melo

Olás! Com o código abaixo quero atualizar o conteúdo do GET a cada movimentação do ListBox. Como fazer? //... DEFINE DIALOG oDlg RESOURCE "TAB_PRO" OF oWnd oDlg:lHelpIcon := .F. REDEFINE GET oCod_Pro VAR cCod_Pro ID 101 OF oDlg Valid Ver_(1) MESSAGE OemToAnsi("Informe o c¢digo do programa") REDEFINE GET oTit_Pro VAR cTit_Pro ID 102 OF oDlg Valid Ver_(2) MESSAGE OemToAnsi("Informe o t¡tulo do programa") REDEFINE GET oDes_Pro VAR cDes_Pro ID 103 OF oDlg Valid Ver_(3) MESSAGE OemToAnsi("Informe a descri‡Æo do programa") REDEFINE LISTBOX oBrw ; FIELDS Tab_Pro->Cod_Pro,; Tab_Pro->Tit_Pro,; Tab_Pro->Des_Pro; ID 104 ; OF oDlg; HEADERS OemToAnsi("C¢digo"),; OemToAnsi("T¡tulo"),; OemToAnsi("Descri‡Æo"); ALIAS "TAB_PRO" ; ON LEFT DBLCLICK Alt_(2); ON RIGHT CLICK Alt_(1) REDEFINE BUTTON oBtn_Alt ID 8100 OF oDlg ACTION (Alt_(2),oBrw:Refresh(),oBrw:SetFocus()) REDEFINE BUTTON oBtn_Nov ID 8200 OF oDlg ACTION (Alt_(1),oBrw:Refresh(),oBrw:SetFocus()) REDEFINE BUTTON oBtn_Exc ID 8300 OF oDlg ACTION (Exc_(),oBrw:Refresh(),oBrw:SetFocus()) REDEFINE BUTTON oBtn_Gra ID 8400 OF oDlg ACTION (Gra_(),oBrw:Refresh(),oBrw:SetFocus()) REDEFINE BUTTON oBtn_Ret ID 8500 OF oDlg ACTION oDlg:End() CANCEL oCod_Pro:Disable() oTit_Pro:Disable() oDes_Pro:Disable() oBtn_Gra:Disable() oBrw:bKeyDown := { |nKey| If(nKey=13,(Nov_(2),oBrw:SetFocus()),; (oBrw:Refresh(),oBrw:SetFocus())) } oBrw:Refresh() oBrw:SetFocus() ACTIVATE DIALOG oDlg ON INIT (Nov_(2),oBrw:SetFocus()) Tab_Pro->(DbCloseArea()) //... A função Nov_() recupera as informações da tabela para as variáveis (opcao 2) ou inicializa sem conteúdo (opcao 1). A função Alt_() ativa o GET das variáveis, com a opcao 1 não é ativado o GET no código (que é chave primária). Tentei usar oBrw:bKeyDown mas não consegui ou não estou sabendo usa-la. Agradeço qualquer ajuda. Rodrigo Melo Clip53 / FW24 / WS Belo Horizonte

Olás! Com o código abaixo quero atualizar o conteúdo do GET a cada movimentação do ListBox. Como fazer? //... DEFINE DIALOG oDlg RESOURCE "TAB_PRO" OF oWnd oDlg:lHelpIcon := .F. REDEFINE GET oCod_Pro VAR cCod_Pro ID 101 OF oDlg Valid Ver_(1) MESSAGE OemToAnsi("Informe o c¢digo do programa") REDEFINE GET oTit_Pro VAR cTit_Pro ID 102 OF oDlg Valid Ver_(2) MESSAGE OemToAnsi("Informe o t¡tulo do programa") REDEFINE GET oDes_Pro VAR cDes_Pro ID 103 OF oDlg Valid Ver_(3) MESSAGE OemToAnsi("Informe a descri‡Æo do programa") REDEFINE LISTBOX oBrw ; FIELDS Tab_Pro->Cod_Pro,; Tab_Pro->Tit_Pro,; Tab_Pro->Des_Pro; ID 104 ; OF oDlg; HEADERS OemToAnsi("C¢digo"),; OemToAnsi("T¡tulo"),; OemToAnsi("Descri‡Æo"); ALIAS "TAB_PRO" ; ON LEFT DBLCLICK Alt_(2); ON RIGHT CLICK Alt_(1) REDEFINE BUTTON oBtn_Alt ID 8100 OF oDlg ACTION (Alt_(2),oBrw:Refresh(),oBrw:SetFocus()) REDEFINE BUTTON oBtn_Nov ID 8200 OF oDlg ACTION (Alt_(1),oBrw:Refresh(),oBrw:SetFocus()) REDEFINE BUTTON oBtn_Exc ID 8300 OF oDlg ACTION (Exc_(),oBrw:Refresh(),oBrw:SetFocus()) REDEFINE BUTTON oBtn_Gra ID 8400 OF oDlg ACTION (Gra_(),oBrw:Refresh(),oBrw:SetFocus()) REDEFINE BUTTON oBtn_Ret ID 8500 OF oDlg ACTION oDlg:End() CANCEL oCod_Pro:Disable() oTit_Pro:Disable() oDes_Pro:Disable() oBtn_Gra:Disable() oBrw:bKeyDown := { |nKey| If(nKey=13,(Nov_(2),oBrw:SetFocus()),; (oBrw:Refresh(),oBrw:SetFocus())) } oBrw:Refresh() oBrw:SetFocus() ACTIVATE DIALOG oDlg ON INIT (Nov_(2),oBrw:SetFocus()) Tab_Pro->(DbCloseArea()) //... A função Nov_() recupera as informações da tabela para as variáveis (opcao 2) ou inicializa sem conteúdo (opcao 1). A função Alt_() ativa o GET das variáveis, com a opcao 1 não é ativado o GET no código (que é chave primária). Tentei usar oBrw:bKeyDown mas não consegui ou não estou sabendo usa-la. Agradeço qualquer ajuda. Rodrigo Melo Clip53 / FW24 / WS Belo Horizonte

Olás! Estou participando de um projeto para desenvolvimento de uma aplicação que vai substituir uma outra que será devolvida por questões de contrato. Esta aplicação precisa acessar o banco de dados Firebird 1.5 e que neste momento está sendo migrado para a versão 2.0. Será utilizado xHarbou como tecnologia de programação. O que posso ou devo utilizar para acessar este banco? Obrigado! Rodrigo Melo Informatica Personalizada Belo Horizonte / MG

Olás! Estou participando de um projeto para desenvolvimento de uma aplicação que vai substituir uma outra que será devolvida por questões de contrato. Esta aplicação precisa acessar o banco de dados Firebird 1.5 e que neste momento está sendo migrado para a versão 2.0. Será utilizado xHarbou como tecnologia de programação. O que posso ou devo utilizar para acessar este banco? Obrigado! Rodrigo Melo Informatica Personalizada Belo Horizonte / MG

Olás! Quando vou fazer o preview de um relatório, usando TXTPreview, o WinXP está apresentando a seguinte mensagem: "O subsistema Win16 não tem recursos suficientes para continuar a ser executado. Clique em OK, feche seus aplicativos e reinicie seu computador." Alguém pode me ajudar? A aplicação é compilada com Clipper 5.2 e FW 2.2. Obrigado! Rodrigo Melo BH - MG Editado por - ram_bh on 04/12/2006 11:50:47

Olás! Quando vou fazer o preview de um relatório, usando TXTPreview, o WinXP está apresentando a seguinte mensagem: "O subsistema Win16 não tem recursos suficientes para continuar a ser executado. Clique em OK, feche seus aplicativos e reinicie seu computador." Alguém pode me ajudar? A aplicação é compilada com Clipper 5.2 e FW 2.2. Obrigado! Rodrigo Melo BH - MG Editado por - ram_bh on 04/12/2006 11:50:47

Caro João Santos, Obrigado pelas dicas. Estive de férias por um período e só agora pude ler. Estou com dúvidas entre Firebird 2 e MySQL 5... Vou testar o sistema nos dois bancos. Um abraço! Rodrigo Melo

Olás! Alguém utiliza FiveWin com FireBird? Qual a forma de acesso ao banco de dados? Obrigado! Rodrigo Melo FW24 / Clip53 / BL70 / WinXP

Olás! Alguém utiliza FiveWin com FireBird? Qual a forma de acesso ao banco de dados? Obrigado! Rodrigo Melo FW24 / Clip53 / BL70 / WinXP

Alessandro, Por favor, envie novamente pois meu filtro de spam estava ativado e... Obrigado! Rodrigo Melo BH - MG

Alessandro, Não encontrei a utilprn em Dicas. Você poderia enviar para meu e-mail? Obrigado! Rodrigo Melo rodrigo.amelo@gmail.com

Olás! É possível emitir etiqueta com as linhas em cores diferentes? Ex: A primeira na cor preto e a segunda em vermelho. Obrigado! FW24 / Clip53 / WinXP

Olás! É possível emitir etiqueta com as linhas em cores diferentes? Ex: A primeira na cor preto e a segunda em vermelho. Obrigado! FW24 / Clip53 / WinXP

Olá! Não conheço função para este recurso. O que recomendo é NUNCA indexar seus arquivos (DBF) sem antes exluir os antigos indices (CDX / NTX / etc). Para evitar corrupção de indices: 1) ative na sua aplicação a opção AUTOPEN (SET AUTOPEN ON) para que o arquivo CDX fique sempre atualizado conforme o DBF correspondente. 2) crie novamente o CDX após qualquer manuntenção no arquivo DBF fora de sua aplicação. Muitas vezes fazemos acertos em DBF sem estar com o CDX também aberto... No mais, um abraço! Rodrigo Melo BH - MG Editado por - ram_bh on 27/09/2006 09:11:41

Caro JHilbert, Obrigado pela dica! Comentário: Da forma apresentada a DIALOG ocupou toda a tela, inclusive as áreas da barra de botões, do menu, etc. Existe uma forma de forçar uma DIALOG a ocupar apenas o espaço livre de uma WINDOW? Rodrigo Melo BH - MG Clip53b / BL70 / FW24 / WS Editado por - ram_bh on 27/09/2006 08:52:34

Marcelo, Eu quero usar imagens que se pareçam com as teclas F1 a F12, de forma que os botões fiquem como se fossem as próprias teclas. Não quero definir "F1" como label do botão, quero que a imagem seja a própria tecla F1. Rodrigo Melo

Olás! Preciso de imagens das teclas de função F1 a F12 para usar numa barra de botões. Se alguém tiver ou puder informar onde consigo, agradeço. Um abraço! Rodrigo Melo BH - MG FW24 / Clip53b / WinXP

Olás! Preciso de imagens das teclas de função F1 a F12 para usar numa barra de botões. Se alguém tiver ou puder informar onde consigo, agradeço. Um abraço! Rodrigo Melo BH - MG FW24 / Clip53b / WinXP

Alessandro, Conforme documentação da FW, não existe a opção MAXIMIZED no comando ACTIVATED DIALOG, vejamos: ACTIVATE DIALOG objeto Dialogo CENTER, CENTERED NOWAIT, NOMODAL WHEN Función para When VALID Función para Valid ON [ LEFT ] CLICK Función para CLick ON INIT Función al iniciarse ON MOVE Función al moverse ON PAINT Función al Pintarse ON RIGHT CLICK Función al pulsar con el botón derecho O que eu quero saber é como ajustar o tamanho de uma DIALOG desenhada pelo WS, conforme a resolução da WINDOW? Obrigado! Rodrigo Melo BH - MG FW24 / Clip53b / BL70 / WinXP / WS

Alessandro, Eu queria saber é como fazer para que uma DIALOG ocupe a WINDOW completamente, independente da resolução utilizada no momento. Lembrando que esta DIALOG foi desenvolvida no Workshop. Tem como? Obrigado! Rodrigo Melo BH - MG FW24 / Clip53b / BL6

Olás! Com relação à WINDOW, tudo bem. Mas, e para que uma DIALOG ocupe toda a WINDOW, conforme a resolução da WINDOW (ou seja, ocupe a área entre a barra de botões e a barra de mensagens)? Rodrigo Melo BH - MG FW24

Olá! Você pode descrever como está compilando seu sistema? Tenho executáveis com mais de 1,5MB e que são executados em Win9x com 64M sem problemas. Rodrigo Melo BH - MG

Olás! 1) Alguém já precisou usar, ou usa, a CAPICOM.DLL? É uma DLL da Microsoft que permite acessar os dispositivos utilizados na certificação digital como token ou smartcard. 2) A FW consegue acessar DLL registradas no MS-Windows (aquelas registradas através do REGSRV32? Rodrigo Melo BH - MG Editado por - ram_bh on 18/09/2006 18:09:31