Eroni

Amigo, seu fonte está muito incompleto, ou entao faltando arquivo de cabecalho especifico, assim nao tem nem como testar. (48) 3045-1575 xHarbour, FWH & MySql

Rone, testei oDlg:Setfocus() mas não funciona, e os controles do dialogo não funcionam, se testar o código que coloquei dá pra ver. Abraço. (48) 3045-1575 xHarbour, FWH & MySql

Boa tarde, se alguém já usou dialogo dentro de window, poderia me dar uma luz, sobre como focar no dialogo? Código abaixo: #include "FiveWin.ch" STATIC oFld function Main() local oBar local oWnd DEFINE WINDOW oWnd From 00,00 to 400,500 TITLE "Teste Eroni" PIXEL COLORS CLR_WHITE,CLR_WHITE DEFINE BUTTONBAR oBar SIZE 33, 33 _3D OF oWnd DEFINE BUTTON OF oBar FILE "..\bitmaps\dlg.bmp" MESSAGE "Criar nova aba" ACTION StartFolder( 2,oWnd,oBar ) ACTIVATE WINDOW oWnd on init StartFolder( 1,oWnd,oBar ) return nil function StartFolder( nOpc,oWnd,oBar ) local oBtn local oDlg local oGet local cGet := Space(10) if nOpc == 1 // STYLE nOr( WS_CHILD ) DEFINE DIALOG oDlg OF oWnd STYLE nOr( WS_CHILD ) FROM oWnd:nTop+oBar:nHeight, 1 TO oWnd:nHeight, oWnd:nWidth PIXEL COLOR CLR_BLACK, CLR_BLUE @ 0,0 FOLDER oFld PROMPTS "Teste 1 aba" OF oDlg // @ 1,1 GET oGet var cGet OF oFld @ 120, 10 BUTTON oBtn PROMPT "Fechar" OF oDlg SIZE 45, 16 ACTION oDlg:End() PIXEL ACTIVATE DIALOG oDlg NOWAIT else oFld:AddItem( "Mais um" ) oFld:Refresh() endif return nil (48) 3045-1575 xHarbour, FWH & MySql

Boa tarde, se alguém já usou dialogo dentro de window, poderia me dar uma luz, sobre como focar no dialogo? Código abaixo: #include "FiveWin.ch" STATIC oFld function Main() local oBar local oWnd DEFINE WINDOW oWnd From 00,00 to 400,500 TITLE "Teste Eroni" PIXEL COLORS CLR_WHITE,CLR_WHITE DEFINE BUTTONBAR oBar SIZE 33, 33 _3D OF oWnd DEFINE BUTTON OF oBar FILE "..\bitmaps\dlg.bmp" MESSAGE "Criar nova aba" ACTION StartFolder( 2,oWnd,oBar ) ACTIVATE WINDOW oWnd on init StartFolder( 1,oWnd,oBar ) return nil function StartFolder( nOpc,oWnd,oBar ) local oBtn local oDlg local oGet local cGet := Space(10) if nOpc == 1 // STYLE nOr( WS_CHILD ) DEFINE DIALOG oDlg OF oWnd STYLE nOr( WS_CHILD ) FROM oWnd:nTop+oBar:nHeight, 1 TO oWnd:nHeight, oWnd:nWidth PIXEL COLOR CLR_BLACK, CLR_BLUE @ 0,0 FOLDER oFld PROMPTS "Teste 1 aba" OF oDlg // @ 1,1 GET oGet var cGet OF oFld @ 120, 10 BUTTON oBtn PROMPT "Fechar" OF oDlg SIZE 45, 16 ACTION oDlg:End() PIXEL ACTIVATE DIALOG oDlg NOWAIT else oFld:AddItem( "Mais um" ) oFld:Refresh() endif return nil (48) 3045-1575 xHarbour, FWH & MySql

Sem mais stress, agradecendo ao Willian, resolvido com a classe dele, link: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17800. Abraços a todos. (48) 3045-1575 xHarbour, FWH & MySql

Obrigado sistem, mas também não não é isso, usei frequentemente 10000 de valor. (48) 3045-1575 xHarbour, FWH & MySql

Testado e na mesma, obrigado. (48) 3045-1575 xHarbour, FWH & MySql

citação:Bom dia .. Tente disparar o timer no On Init da Dialog.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. id=quote>id=quote>Já foi feito, mas obrigado mesmo assim, estou desconfiado que poderia ser alguma coisa com SQLRDD que é o que diferencia o exemp0lo simples da aplicação. (48) 3045-1575 xHarbour, FWH & MySql

Erro ao copiar, o exemplo é assim mesmo. (48) 3045-1575 xHarbour, FWH & MySql

Bom dia, nesta véspera de natal, alguém ai já passou por uma destas, no exemplo funciona mas copiado e compilado na aplicação não funciona, código abaixo: FUNCTION Main() LOCAL oWin DEFINE window oWin DEFINE timer oTimer interval 5 action msgstop( "ok" ) Activate timer otimer Activate window oWin RETURN( NIL ) Aproveitando, um Feliz Natal a Todos. (48) 3045-1575 xHarbour, FWH & MySql Editado por - eroni on 24/12/2012 09:41:49 Editado por - eroni on 24/12/2012 09:53:40

Bom dia, nesta véspera de natal, alguém ai já passou por uma destas, no exemplo funciona mas copiado e compilado na aplicação não funciona, código abaixo: FUNCTION Main() LOCAL oWin DEFINE window oWin DEFINE timer oTimer interval 5 action msgstop( "ok" ) Activate timer otimer Activate window oWin RETURN( NIL ) Aproveitando, um Feliz Natal a Todos. (48) 3045-1575 xHarbour, FWH & MySql Editado por - eroni on 24/12/2012 09:41:49 Editado por - eroni on 24/12/2012 09:53:40

Amigo, tem muitas maneiras, porém que banco de dados se refere, sql ou dbf? (48) 3045-1575 xHarbour, FWH & MySql

Pois é, já venho a algum tempo tentando fazer isso funcionar, mas sem perspectiva, já mexi em todos os parâmetros e nada, só diz que não foi possível. Abraços. (48) 3045-1575 xHarbour, FWH & MySql

CTOAS, esta solução que usas já foi testada em Windows 7 64? Abraço. (48) 3045-1575 xHarbour, FWH & MySql

Pessoal, bom dia, sei que o objetivo deste tópico não é este, mas aproveitando que tem tanta gente boa envolvida, gostaria de saber se alguém usa a classe Tmail para envio de e-mails, caso positivo, se tem como enviar para os destinatários como cópia oculta (bcc). Grato a todos. (48) 3045-1575 xHarbour, FWH & MySql

Amigo, o meu código eu posso postar sim, porém ele é muito diferente do estilo padrão xBase usado, além de usar bibliotecas internas para manipulação de telas e objetos. Me manda um e-mail que eu envio as telas copiadas e o codigo fonte prg para voce analizar. Abraço. (48) 3045-1575 xHarbour, FWH & MySql

Sambomb, o que eu tenho controla custos, dependendo da edição da estrutura (adição/alteração/exclusão). Não tenho controle de preço de venda atrelado a estrutura. (48) 3045-1575 xHarbour, FWH & MySql

Bom, como não tenho PAF no meu sistema, não faço idéia do que é isto, mas quanto a receitas, tenho em meu sistema o cadastro da estrutura dos produtos, em formato de árvore, com niveis ilimitados, usando recursividade, uso apenas uma tabela de produtos/materiais e uma para administrar a estrutura. O relatório também tenho, com calculo de custos e tudo mais, meu sistema é voltado para industria. Especificamente vc quer ajuda para gerar o cadastro e o relatório é isso? (48) 3045-1575 xHarbour, FWH & MySql

Este controle seria para atender alguma legislação específica, ou recurso que você irá incorporar ao seu sistema? Se a ultima opção, meu sistema tem todo um aparato para este controle. Abraço. (48) 3045-1575 xHarbour, FWH & MySql Editado por - eroni on 27/12/2011 09:45:32

Gente, se alguem precisar de ajuda, podem contar comigo. Abraços. (48) 3045-1575 xHarbour, FWH & MySql

Um ótimo final de ano e que 2012 seja repleto de muita saude e realizações a todos. Eroni (48) 3045-1575 xHarbour, FWH & MySql

Amigo, meu sistema nem gera se não há movimento. (48) 3045-1575 xHarbour, FWH & MySql

Vitor, boa tarde, já enviei alguns e-mails para voce e não sei o que acontece, não recebo nenhum email de vc. msn: eroniamerico@hotmail.com skype: eroni_americo Pode add. (48) 3045-1575 xHarbour, FWH & MySql

Tem sim, é uma configuração para não abrir programas em rede sem confirmação, mas para configurar depende da versão do windows. Abraço (48) 3045-1575 xHarbour, FWH & MySql

Realmente, me expressei mal, desculpem, a ideia é quando aumentar o tamanho do get o texto nao ficar acima e um espaço em branco em baixo, acredito que não tenha como fazer mesmo. Abraços. (48) 3045-1575 xHarbour, FWH & MySql