FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
validar una fecha en un ciclo repetitivo....
Discupen tengo un problemita al pasar de una tabla informacion fechas, de echo son varios campos pero solo dos de ellos le agrege una condicion para que verificara que si no esta vacio le pase el valor; en caso contario lo deje en blanco hice un bucle por ser varios registros.
este es el codigo Aun si yo cambiara value por tbClienteDetfechaFinal.AsDateTime :=''; me sige el error. Cual seria la manera para que quedara vacio el campo si es que es null vacio. me falta algun parametro. les agradesco Última edición por roman fecha: 24-05-2005 a las 20:38:53. Razón: agregar etiquetas [delphi] para mayor legibilidad |
#3
|
|||
|
|||
ya lo comprobe y no funciona poner un null, compile el programa y no me da error alguno pero al ejecutarse ese procedimiento me dice:
'Invalid varian type conversion' Tambien comprobe haciendo un cambio de value por AsDateTime y aun da ese error invalid varian... por que hace esto ? Última edición por marcoszorrilla fecha: 24-05-2005 a las 21:41:08. |
#4
|
||||
|
||||
Cita:
Intenta poner NullStrictConvert := false al principio del procedimiento. // Saludos |
#5
|
||||
|
||||
__________________
Guía de Estilo de los Foros Cita:
|
#6
|
|||
|
|||
Saludos ya quedo con el metodo Clear agregandole para pasar fechas nulas,
y por que con este bucle me pasa los datos pero le falta el ultimo registro de donde se toman los datos de origen. tengo mi tabla con 1517 registros y me copio 1516 en la tabla de destino. este el codigo completo: try tbClienteOrigen.open; tbClienteOrigen.first; tbClienteDet.open; While not tbClienteOrigen.Eof do begin tbClienteDet.append; tbClienteDetID.value:=tbClienteOrigenID.value; tbClienteDetAnotacion.value.=tbClienteOrigenAnotacion.value; if not tbClienteOrigenFechaInicio.isnull then tbClienteDetfechaInicio.value:= tbClienteOrigenFechaInicio.value else tbClienteDetfechaInicio.Clear; if not tbClienteOrigenFechaFinal.Isnull then tbClienteDetfechaFinal.value:= tbClienteOrigenFechaFinal.value; else tbClienteDetfechaFinal.clear; tbClienteDetActivo.value:='A'; tbClienteDet.post; tbClienteOrigen.next; end finally tbClienteDet.close; tbClienteOrigen.close; end; |
#7
|
||||
|
||||
No alcanzo a ver el error
Pero haciendo un pequeño paréntesis te comento que ni Marco ni yo entramos a editar tu mensaje para colorear cada palabra reservada. Cuando publiques código delphi basta que lo encierres entre etiquetas [ delphi ] y [ /delphi ] (sin los espacios al lado de los corchetes) para que se coloree automágicamente además de que así se preservan las indentaciones. // Saludos |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|