Prezado Garcia, Deu certo, gostaria de agradecer a voc� e a todos pela ajuda.
Antonio Ribeiro de Mendon�a Neto Ampsoft Produtos e Servi�os (011) 5071-9249 -----Mensagem original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em nome de [EMAIL PROTECTED] Enviada em: sexta-feira, 13 de junho de 2003 11:16 Para: [EMAIL PROTECTED] Assunto: [sqlwin] RES: [sqlwin] RES: [sqlwin] RES: [sqlwin] RES: [sqlwin] CDK - Defini��o de Windows Variable Caro Antonio Fiz as corre��es necess�rias ao c�digo que voc� me mandou. Coloquei ainda alguns coment�rios. Testa e me d� um retorno. Espero Ter Ajudado, Garcia. ! ---------- C�digo Alterado ---------- If CDK_App.AddTopLevelWindow( CDK_IT_DialogBox, dfsNomeDialog, CDK_Container ) ! *** Tornar Dialog Box inst�ncia de classe Call CDK_Container.SetObjectClass( 'cdlgToolPesquisa' ) ! *** T�tulo da Dialog Box Call CDK_Container.SetWindowTitle( dfsTituloDialog ) ! *** Criar Vari�vel da Classe (Mesmo sendo uma Dialog, usar CDK_IT_FormVariables) If not CDK_Container.AddObjectTo( CDK_IT_FormVariables, CDK_IT_ClassObject , "oProduto", CDK_Item ) Call SalMessageBox( 'Falha ao Tentar Instanciar Vari�vel !', 'Aten��o', MB_Ok | MB_IconStop ) Return FALSE Call CDK_Item.SetObjectClass( 'Produto' ) ! *** Criar Par�metros da Dialog (O CDK_IT_Parameters serve para manipular o parametro de fun��es ) If not CDK_Container.AddObjectTo( CDK_IT_WindowParameters, CDK_IT_Number, 'nCodigo', CDK_Item ) Call SalMessageBox( 'Falha ao Tentar Adicionar Par�metro !', 'Aten��o', MB_Ok | MB_IconStop ) Return FALSE Else Call SalMessageBox( 'Falha ao Tentar Criar Dialog Box !', 'Aten��o', MB_Ok | MB_IconStop ) Return FALSE -----Mensagem original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] nome de Antonio Ribeiro de Mendon�a Neto Enviada em: Sexta-feira, 13 de Junho de 2003 10:10 Para: [EMAIL PROTECTED] Assunto: [sqlwin] RES: [sqlwin] RES: [sqlwin] RES: [sqlwin] CDK - Defini��o de Windows Variable Prezado Garcia, Tentei aplicar o comando e aproveitei para tentar incluir tamb�m um par�metro para a dialog/form mas infelizmente n�o funcionou ! If CDK_App.AddTopLevelWindow( CDK_IT_DialogBox, dfsNomeDialog, CDK_Container ) ! *** Tornar Dialog Box inst�ncia de classe Call CDK_Container.SetObjectClass( 'cdlgToolPesquisa' ) ! *** T�tulo da Dialog Box Call CDK_Container.SetWindowTitle( dfsTituloDialog ) ! *** Criar Vari�vel da Classe (**************************************************************N�O FUNCIONOU) If not CDK_Container.AddObjectTo( CDK_IT_DialogBox , CDK_IT_ClassObject , "oProduto", CDK_Item ) Call SalMessageBox( 'Falha ao Tentar Instanciar Vari�vel !', 'Aten��o', MB_Ok | MB_IconStop ) Return FALSE Call CDK_Item.SetObjectClass( 'Produto' ) ! *** Criar Par�metros da Dialog (**************************************************************N�O FUNCIONOU) If not CDK_Container.AddObjectTo( CDK_IT_Parameters, CDK_IT_Number, 'nCodigo', CDK_Item ) Call SalMessageBox( 'Falha ao Tentar Adicionar Par�metro !', 'Aten��o', MB_Ok | MB_IconStop ) Return FALSE Else Call SalMessageBox( 'Falha ao Tentar Criar Dialog Box !', 'Aten��o', MB_Ok | MB_IconStop ) Return FALSE -----Mensagem original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em nome de Garcia Enviada em: sexta-feira, 13 de junho de 2003 08:16 Para: [EMAIL PROTECTED] Assunto: [sqlwin] RES: [sqlwin] RES: [sqlwin] CDK - Defini��o de Windows Variable Use o Seguinte c�digo: If CDK_Window.AddObjectTo(CDK_IT_FormVariables , CDK_IT_ClassObject , "oProduto", aVariavel) Call aVariavel.SetObjectClass( "Produto" ) Sendo aVariavel declarada como cdkItem Espero ter ajudado, Garcia. -----Mensagem original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] nome de Julio Cesar Dalla Rosa - AlmapBBDO Enviada em: Quinta-feira, 12 de Junho de 2003 17:22 Para: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Assunto: [sqlwin] RES: [sqlwin] CDK - Defini��o de Windows Variable Prioridade: Alta Antonio: � s� usar o nome da sua classe funcional. Por exemplo eu sempre uso o prefixo clsf_ em classes funcionais, ent�o no meu programa eu declararia ela como clsf_produto e no window variable ficaria como abaixo: Window Variables clsf_produto: oProduto number: ... string: ... abra�o, Julio. -----Mensagem original----- De: Antonio Ribeiro de Mendon�a Neto [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 11 de junho de 2003 20:56 Para: [EMAIL PROTECTED] Assunto: [sqlwin] CDK - Defini��o de Windows Variable Como declarar uma vari�vel do tipo Produto (classe funcional) na Windows Variable de uma dialog box existente ? Exemplo: Dialog Box: dlg2 Description: Tool Bar Contents Functions Window Parameters Window Variables Produto: oProduto Message Actions Grato ===============Lista de Centura SQLWindows Administrador : [EMAIL PROTECTED] [ http://www.centuraexplorer.com ] Para sair desta lista mande mensagem para: [EMAIL PROTECTED] sem nada no Subject e com o comando a seguir no corpo da msg: "unsubscribe sqlwin" (sem as aspas) =============== ===============Lista de Centura SQLWindows Administrador : [EMAIL PROTECTED] [ http://www.centuraexplorer.com ] Para sair desta lista mande mensagem para: [EMAIL PROTECTED] sem nada no Subject e com o comando a seguir no corpo da msg: "unsubscribe sqlwin" (sem as aspas) =============== ===============Lista de Centura SQLWindows Administrador : [EMAIL PROTECTED] [ http://www.centuraexplorer.com ] Para sair desta lista mande mensagem para: [EMAIL PROTECTED] sem nada no Subject e com o comando a seguir no corpo da msg: "unsubscribe sqlwin" (sem as aspas) =============== =============================================Lista de Centura SQLWindows Administrador : [EMAIL PROTECTED] [ http://www.centuraexplorer.com ] Para sair desta lista mande mensagem para: [EMAIL PROTECTED] sem nada no Subject e com o comando a seguir no corpo da msg: "unsubscribe sqlwin" (sem as aspas) =============================================
