AfterRolColChange
Publicado por bibiana (5 intervenciones) el 05/09/2007 21:03:37
estoy programando este metodo y necesito enviar una variable a un modo_grabar de tipo logico para que este modo entienda y me permita modificar.
Aclaro que el modo grabar tienen tambien el codigo de modo_nuevo osea de insertar.....
Este es mi codigo donde necesito recibir la variable
* Lea lo que tiene
cNombreGrupo=thisform.txtNombreGrupo.Value
cCodigo=thisform.txtCodigo.Value
lSubgrupos=thisform.chkSubgrupos.Value
********** Modo Grabar************************************************
* Abrir la tabla por segunda vez
IF USED('terceros_grupos')==.T.
SELECT terceros_grupos
use
ENDIF
* Abrir una tabla por primera vez
USE ('terceros_grupos') IN 0 ALIAS terceros_grupos
thisform.grdGrupos.RecordSource='terceros_grupos'
SELECT terceros_grupos
***************** Insertar ****************************************
*Llevelo a
INSERT INTO terceros_grupos (nombre,cod_grupo,subgrupos)VALUES (ALLTRIM(cNombreGrupo),ALLTRIM(cCodigo),lSubgrupos)
*Inicializar
thisform.txtNombreGrupo.Value=""
thisform.txtCodigo.Value=""
thisform.chkSubgrupos.Value=.F.
***************** Modificar ***************************************
aqui necesito modificar los datos que recibo.................
thisform.Refresh
Aclaro que el modo grabar tienen tambien el codigo de modo_nuevo osea de insertar.....
Este es mi codigo donde necesito recibir la variable
* Lea lo que tiene
cNombreGrupo=thisform.txtNombreGrupo.Value
cCodigo=thisform.txtCodigo.Value
lSubgrupos=thisform.chkSubgrupos.Value
********** Modo Grabar************************************************
* Abrir la tabla por segunda vez
IF USED('terceros_grupos')==.T.
SELECT terceros_grupos
use
ENDIF
* Abrir una tabla por primera vez
USE ('terceros_grupos') IN 0 ALIAS terceros_grupos
thisform.grdGrupos.RecordSource='terceros_grupos'
SELECT terceros_grupos
***************** Insertar ****************************************
*Llevelo a
INSERT INTO terceros_grupos (nombre,cod_grupo,subgrupos)VALUES (ALLTRIM(cNombreGrupo),ALLTRIM(cCodigo),lSubgrupos)
*Inicializar
thisform.txtNombreGrupo.Value=""
thisform.txtCodigo.Value=""
thisform.chkSubgrupos.Value=.F.
***************** Modificar ***************************************
aqui necesito modificar los datos que recibo.................
thisform.Refresh
Valora esta pregunta


0