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)
===============
<<attachment: winmail.dat>>
