Problemas Limpiar Pantalla ( Para Antonio Linares)

Problemas Limpiar Pantalla ( Para Antonio Linares)

Postby Miguel Rivera » Thu Dec 07, 2006 1:49 pm

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 Rivera
 
Posts: 117
Joined: Sun Oct 01, 2006 11:39 pm

Re: Problemas Limpiar Pantalla ( Para Antonio Linares)

Postby 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
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México


Return to FiveWin para CA-Clipper

Who is online

Users browsing this forum: No registered users and 2 guests