Campo tipo FECHA en GRID

02/09/2005 - 19:52 por Jose Manuel | Informe spam
Hola a todos. Mi duda es la siguiente: donde puede dar el formato y como
para capturar dato tipo fecha; estoy en un grid y cuando quiero grabar me
dice "dato incompatible", ademas, al querer grabar (estoy en modo edicion o
modificar) no me deja y si me crear un registro en blanco. El codigo para
grabar lo editado o modificado es el siguiente:

Case ThisForm.Bot_Agre.Caption = '\<Guardar'
ThisForm.Bot_Agre.Caption = '\<Agregar'
ThisForm.Bot_Edit.Caption = '\<Editar'
Nvo_Saldo1 = ThisForm.TxtSaldo1.Value - C->TotFact
Nvo_Saldo2 = ThisForm.TxtSaldo2.Value - C->TotFact
Select 3
APPEND BLANK
REPLACE No_Obra WITH ThisForm.CmbNo_Obra.Value
Replace Ramo With ThisForm.TxtRamo.Value
Replace Fecha WITH ThisForm.TxtFecha.Value
Replace Factura WITH ThisForm.TxtFacturas.Value
Replace Concepto WITH ThisForm.TxtConcepto.Value
Replace TotFact WITH ThisForm.TxtImporte.Value
Replace Fec_Pag WITH ThisForm.TxtFec_Pago.Value
Replace Saldo1 With Nvo_Saldo1 &&ThisForm.TxtSaldo1.Value -
TotFact
Replace Saldo2 With Nvo_Saldo2
Replace Avance With 100 *
(ThisForm.TxtAutorizado.Value-Nvo_Saldo1)/ThisForm.TxtAutorizado.Value
=TableUpdate(.T.)
ThisForm.GridOff &&Desactivo el Grid


Gracias de antemano

Preguntas similare

Leer las respuestas

#1 Esparta Palma
02/09/2005 - 21:43 | Informe spam
Solo para estar seguro, el error te lo marca en esta(s) linea(s)?

Replace Fecha WITH ThisForm.TxtFecha.Value
Replace Fec_Pag WITH ThisForm.TxtFec_Pago.Value

ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º

Espartaco Palma Martínez
SysOp http://www.PortalFox.com
México D.F.
MoBlogs!
http://weblogs.golemproject.com/esparta/
http://www.espartha.com/blog/

Jose Manuel wrote:
Hola a todos. Mi duda es la siguiente: donde puede dar el formato y como
para capturar dato tipo fecha; estoy en un grid y cuando quiero grabar me
dice "dato incompatible", ademas, al querer grabar (estoy en modo edicion o
modificar) no me deja y si me crear un registro en blanco. El codigo para
grabar lo editado o modificado es el siguiente:

Case ThisForm.Bot_Agre.Caption = '\<Guardar'
ThisForm.Bot_Agre.Caption = '\<Agregar'
ThisForm.Bot_Edit.Caption = '\<Editar'
Nvo_Saldo1 = ThisForm.TxtSaldo1.Value - C->TotFact
Nvo_Saldo2 = ThisForm.TxtSaldo2.Value - C->TotFact
Select 3
APPEND BLANK
REPLACE No_Obra WITH ThisForm.CmbNo_Obra.Value
Replace Ramo With ThisForm.TxtRamo.Value
Replace Fecha WITH ThisForm.TxtFecha.Value
Replace Factura WITH ThisForm.TxtFacturas.Value
Replace Concepto WITH ThisForm.TxtConcepto.Value
Replace TotFact WITH ThisForm.TxtImporte.Value
Replace Fec_Pag WITH ThisForm.TxtFec_Pago.Value
Replace Saldo1 With Nvo_Saldo1 &&ThisForm.TxtSaldo1.Value -
TotFact
Replace Saldo2 With Nvo_Saldo2
Replace Avance With 100 *
(ThisForm.TxtAutorizado.Value-Nvo_Saldo1)/ThisForm.TxtAutorizado.Value
=TableUpdate(.T.)
ThisForm.GridOff &&Desactivo el Grid


Gracias de antemano


Respuesta Responder a este mensaje
#2 José Ibáñez
03/09/2005 - 00:21 | Informe spam
Por lo que comentas tu problema está en estos reemplazos

Replace Fecha WITH ThisForm.TxtFecha.Value
Replace Fec_Pag WITH ThisForm.TxtFec_Pago.Value

Lo que tienes que hacer, es inicializar los valores de los objetos con
ctod('') lo que hará que cualquier dato que introduzcas en esos objetos
los considerará como tipo D (date) y al hacer el reemplazo no te volverá a
rechazar el dato


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida