Hola Antonio:
Te envio el segmento del programa, donde tengo el ingreso de un maestro, despues de ingresar y grabar un registro, necesito limpiar los datos anteriores para un nuevo ingreso.
Otra duda, que es mas aconsejable, trabajar con una DLL abierta, o ponerla como parte del EXE.
Disculta por las molestias causadas, hace muy poco que estoy ingresando al mundo de Fivewin, como todo clippero, me acostado pasar al ambiente windows.
Por tu ayuda, muchas gracias.
Miguel Rivera.
TROZO DEL PRG
Function Actuven1(lPara)
Local oCod_ven1,onom_ven1,odir_ven1,oemail1,ocom_ven1,ociu_ven1,ofon_ven1,ocel_ven1
Local oDlgEdit
If (lPara)
stor spac(3) to cod_ven1
stor spac(40) to nom_ven1
stor spac(40) to dir_ven1,email1
stor spac(20) to com_ven1,ciu_ven1,fon_ven1
stor spac(25) to cel_ven1
Else
Cod_ven1:=oDbVendedor->Cod_ven
Nom_ven1:=oDbVendedor->Nom_ven
Dir_ven1:=oDbVendedor->dir_ven
Com_ven1:=oDbVendedor->Com_ven
Ciu_ven1:=oDbVendedor->Ciu_ven
Fon_ven1:=oDbVendedor->Fon_ven
Cel_ven1:=oDbVendedor->Cel_ven
Email1:=oDbVendedor->Email
Endif
Define Cursor oCurDedo Resource "Dedo"
Do while lPara
Define Dialog oDlgEdit Resname "Vendedor"
IF lPara
Redefine Get oCod_ven1 Var Cod_ven1 Id 30 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Else
Redefine Say oCod_ven1 Prompt Cod_ven1 Id 30 Of oDlgEdit Color "w+/bg"
Endif
Redefine Get oNom_ven1 Var Nom_ven1 Id 31 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Redefine Get oDir_ven1 Var Dir_ven1 Id 32 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Redefine Get oFon_ven1 Var Fon_ven1 Id 35 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Redefine Get oCel_ven1 Var Cel_ven1 Id 36 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Redefine Get oEmail1 Var Email1 Id 37 Of oDlgEdit Update Picture "@x" Color "w+/bg"
Redefine Button Id 180 Of oDlgEdit ;
Action Graba_ven()
Redefine Button Id 150 Of oDlgEdit ;
Action (lPara:=.F.,oDlgEdit:END())
Activate Dialog oDlgEdit Centered
Enddo
return
Function Graba_ven()
If nom_ven1=spac(40).or.cod_ven1=spac(3)
MsgInfo(" ERROR, Código o Nombre Vacios ")
Return lPara:=.t.
endif
Sele a
a->(dbAppend())
Repl Cod_ven with Cod_ven1,Nom_ven with Nom_ven1,Dir_ven with Dir_ven1,;
Ciu_ven with Ciu_ven1,Com_ven with Com_ven1,Fon_ven with Fon_ven1,;
Cel_ven with Cel_ven1,Email with Email1
Dbcommit()
Dbunlock()
If (lPara)
stor spac(3) to cod_ven1
stor spac(40) to nom_ven1
stor spac(40) to dir_ven1,email1
stor spac(20) to com_ven1,ciu_ven1,fon_ven1
stor spac(25) to cel_ven1
Endif
Return
FiveTech Software tech support forums
www.FiveTechSoft.com
Problemas Limpiar Pantalla ( Para Antonio Linares)
2 posts • Page 1 of 1
Problemas Limpiar Pantalla ( Para Antonio Linares)
by Miguel Rivera » Thu Dec 07, 2006 1:49 pm
- Miguel Rivera
- Posts: 117
- Joined: Sun Oct 01, 2006 11:39 pm
Re: Problemas Limpiar Pantalla ( Para Antonio Linares)
by wmormar » Thu Dec 07, 2006 4:57 pm
Miguel Rivera wrote:Hola Antonio:
Te envio el segmento del programa, donde tengo el ingreso de un maestro, despues de ingresar y grabar un registro, necesito limpiar los datos anteriores para un nuevo ingreso.
Otra duda, que es mas aconsejable, trabajar con una DLL abierta, o ponerla como parte del EXE.
Disculta por las molestias causadas, hace muy poco que estoy ingresando al mundo de Fivewin, como todo clippero, me acostado pasar al ambiente windows.
Por tu ayuda, muchas gracias.
Miguel Rivera.
TROZO DEL PRG
Function Actuven1(lPara)
Local oCod_ven1,onom_ven1,odir_ven1,oemail1,ocom_ven1,ociu_ven1,ofon_ven1,ocel_ven1
Local oDlgEdit
If (lPara)
stor spac(3) to cod_ven1
stor spac(40) to nom_ven1
stor spac(40) to dir_ven1,email1
stor spac(20) to com_ven1,ciu_ven1,fon_ven1
stor spac(25) to cel_ven1
Else
Cod_ven1:=oDbVendedor->Cod_ven
Nom_ven1:=oDbVendedor->Nom_ven
Dir_ven1:=oDbVendedor->dir_ven
Com_ven1:=oDbVendedor->Com_ven
Ciu_ven1:=oDbVendedor->Ciu_ven
Fon_ven1:=oDbVendedor->Fon_ven
Cel_ven1:=oDbVendedor->Cel_ven
Email1:=oDbVendedor->Email
Endif
Define Cursor oCurDedo Resource "Dedo"
Do while lPara
Define Dialog oDlgEdit Resname "Vendedor"
IF lPara
Redefine Get oCod_ven1 Var Cod_ven1 Id 30 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Else
Redefine Say oCod_ven1 Prompt Cod_ven1 Id 30 Of oDlgEdit Color "w+/bg"
Endif
Redefine Get oNom_ven1 Var Nom_ven1 Id 31 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Redefine Get oDir_ven1 Var Dir_ven1 Id 32 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Redefine Get oFon_ven1 Var Fon_ven1 Id 35 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Redefine Get oCel_ven1 Var Cel_ven1 Id 36 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Redefine Get oEmail1 Var Email1 Id 37 Of oDlgEdit Update Picture "@x" Color "w+/bg"
Redefine Button Id 180 Of oDlgEdit ;
Action Graba_ven()
Redefine Button Id 150 Of oDlgEdit ;
Action (lPara:=.F.,oDlgEdit:END())
Activate Dialog oDlgEdit Centered
Enddo
return
Function Graba_ven()
If nom_ven1=spac(40).or.cod_ven1=spac(3)
MsgInfo(" ERROR, Código o Nombre Vacios ")
Return lPara:=.t.
endif
Sele a
a->(dbAppend())
Repl Cod_ven with Cod_ven1,Nom_ven with Nom_ven1,Dir_ven with Dir_ven1,;
Ciu_ven with Ciu_ven1,Com_ven with Com_ven1,Fon_ven with Fon_ven1,;
Cel_ven with Cel_ven1,Email with Email1
Dbcommit()
Dbunlock()
If (lPara)
stor spac(3) to cod_ven1
stor spac(40) to nom_ven1
stor spac(40) to dir_ven1,email1
stor spac(20) to com_ven1,ciu_ven1,fon_ven1
stor spac(25) to cel_ven1
Endif
Return
Miguel,
Puedes intentarlo de esta manera:
- Code: Select all Expand view
STATIC oCod_ven1, onom_ven1, odir_ven1, oemail1, ocom_ven1, ociu_ven1, ofon_ven1, ocel_ven1
STATIC oDlgEdit
Function Actuven1(lPara)
If (lPara)
stor spac(3) to cod_ven1
stor spac(40) to nom_ven1
stor spac(40) to dir_ven1,email1
stor spac(20) to com_ven1,ciu_ven1,fon_ven1
stor spac(25) to cel_ven1
Else
Cod_ven1:=oDbVendedor->Cod_ven
Nom_ven1:=oDbVendedor->Nom_ven
Dir_ven1:=oDbVendedor->dir_ven
Com_ven1:=oDbVendedor->Com_ven
Ciu_ven1:=oDbVendedor->Ciu_ven
Fon_ven1:=oDbVendedor->Fon_ven
Cel_ven1:=oDbVendedor->Cel_ven
Email1:=oDbVendedor->Email
Endif
Define Cursor oCurDedo Resource "Dedo"
Define Dialog oDlgEdit Resname "Vendedor"
IF lPara
Redefine Get oCod_ven1 Var Cod_ven1 Id 30 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Else
Redefine Say oCod_ven1 Prompt Cod_ven1 Id 30 Of oDlgEdit Color "w+/bg"
Endif
Redefine Get oNom_ven1 Var Nom_ven1 Id 31 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Redefine Get oDir_ven1 Var Dir_ven1 Id 32 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Redefine Get oFon_ven1 Var Fon_ven1 Id 35 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Redefine Get oCel_ven1 Var Cel_ven1 Id 36 Of oDlgEdit Update Picture "@!" Color "w+/bg"
Redefine Get oEmail1 Var Email1 Id 37 Of oDlgEdit Update Picture "@x" Color "w+/bg"
Redefine Button Id 180 Of oDlgEdit ;
Action Graba_ven()
Redefine Button Id 150 Of oDlgEdit ;
Action (lPara:=.F.,oDlgEdit:END())
Activate Dialog oDlgEdit Centered
return
Function Graba_ven()
If nom_ven1=spac(40).or.cod_ven1=spac(3)
MsgInfo(" ERROR, Código o Nombre Vacios ")
Return lPara:=.t.
endif
Sele a
a->(dbAppend())
Repl Cod_ven with Cod_ven1,Nom_ven with Nom_ven1,Dir_ven with Dir_ven1,;
Ciu_ven with Ciu_ven1,Com_ven with Com_ven1,Fon_ven with Fon_ven1,;
Cel_ven with Cel_ven1,Email with Email1
Dbcommit()
Dbunlock()
If (lPara)
stor spac(3) to cod_ven1
stor spac(40) to nom_ven1
stor spac(40) to dir_ven1,email1
stor spac(20) to com_ven1,ciu_ven1,fon_ven1
stor spac(25) to cel_ven1
oCod_ven1:refresh()
oNom_ven1:refresh()
oDir_ven1:refresh()
oCom_ven1:refresh()
oCiu_ven1:refresh()
oFon_ven1:refresh()
oCel_ven1:refresh()
oEmail1:refresh()
Endif
Return
Espero te ayude
Saludos
William, Morales
Saludos
méxico.sureste
Saludos
méxico.sureste
-
wmormar - Posts: 1074
- Joined: Fri Oct 07, 2005 10:41 pm
- Location: México
2 posts • Page 1 of 1
Return to FiveWin para CA-Clipper
Who is online
Users browsing this forum: No registered users and 13 guests