Favor, Necesito Ayuda

Post Reply
Miguel Rivera
Posts: 117
Joined: Sun Oct 01, 2006 11:39 pm

Favor, Necesito Ayuda

Post by Miguel Rivera »

Hola Amigos:

No se como limpiar la pantalla despues de ingresar y grabar un registro, para el siguiente registro, sigue mostrando los datos anteriores.

Otra duda, que es mas aconsejable, trabajar con una DLL abierta, o ponerla como parte del EXE.

Disculpen 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
User avatar
leandro
Posts: 958
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Contact:

Amigo..

Post by leandro »

1- No se como limpiar la pantalla despues de ingresar y grabar un registro, para el siguiente registro, sigue mostrando los datos anteriores.

Lo que debes hacer primero es limpiar las variables

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

Luego actualizas el dialogo..

oDlgEdit :update()

2-> Otra duda, que es mas aconsejable, trabajar con una DLL abierta, o ponerla como parte del EXE.

Amigo las dos tienen sus ventajas, yo he usado las dos opciones y hasta ahora han funcionado a la perfeccion. Pero ultimamente me ha gustado incluirla dentro del exe, para hacer mas facil aquello de las actualizaciones a los clientes.

Espero te sirva
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
Miguel Rivera
Posts: 117
Joined: Sun Oct 01, 2006 11:39 pm

Re: Amigo..

Post by Miguel Rivera »

Leandro:

Muchas Gracias, funciono de maravilla.

Miguel Rivera
leandro wrote:1- No se como limpiar la pantalla despues de ingresar y grabar un registro, para el siguiente registro, sigue mostrando los datos anteriores.

Lo que debes hacer primero es limpiar las variables

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

Luego actualizas el dialogo..

oDlgEdit :update()

2-> Otra duda, que es mas aconsejable, trabajar con una DLL abierta, o ponerla como parte del EXE.

Amigo las dos tienen sus ventajas, yo he usado las dos opciones y hasta ahora han funcionado a la perfeccion. Pero ultimamente me ha gustado incluirla dentro del exe, para hacer mas facil aquello de las actualizaciones a los clientes.

Espero te sirva
Post Reply