FiveTech Software tech support forums

... ,oNom_Con ,cNom_Con Local oCod_Area,cCod_Area,oNom_Area,cNom_Area,cFte_Area Local oBoton1,oBoton2,oBoton3 Local cBoton1,cBoton2,cBoton3 Local cFecha,olbx1,Base cFecha:=date() Base:=" " Base:=Tabla->Base // ACA SE BUSCA EL NOMBRE DEL ARCHIVO DEFINE FONT oFont1 NAME "Arial" SIZE 0,-12 Bold ...

... ,oNom_Con ,cNom_Con Local oCod_Area,cCod_Area,oNom_Area,cNom_Area,cFte_Area Local oBoton1,oBoton2,oBoton3 Local cBoton1,cBoton2,cBoton3 Local cFecha,olbx1,Base cFecha:=date() Base:=" " Base:=Tabla->Base // ACA SE BUSCA EL NOMBRE DEL ARCHIVO DEFINE FONT oFont1 NAME "Arial" SIZE 0,-12 Bold ...

... a cambiar en formato (dd/mm/aa) //--------------------------------------------------------------------------// FUNCTION CambioMes(dFechaCam) LOCAL cFecha:= "DATE "+STRZERO(DAY(dFechaCam),2)+"-"+STRZERO(MONTH(dFechaCam),2)+"-"+STRZERO(YEAR(dFechaCam),4) LOCAL cFile:= ".\FECHA.BAT" LOCAL nHandle:= ...

... lchdir(cdirlocal1) dbcloseall() FtpEnvio() return nil Function FtpEnvio() local cuser,cpass,cremote,clocal,cfecha cserver:=cdirip1//direccion IP del Server FTP cuser:=cuser1//"usuario" cpass:=cpasswd1//"contraseña" cremote:=cdirremot1 // "directorio/publico/" ...

... return oMenu //----------------------------------------------------------------------------// function Entradas2() local oDlg local cPlaca local cFecha local cEmpresa local cNombre local cApellido local cTel_Fijo local cTel_Mobil local cMarca local cColorr local cLinea local cOt local cIngreso ...

... CODE 0006:1A5A 0007FH OFILTRO CODE 0006:1ADA 00079H ERRORHANDL CODE 0006:1B54 000F0H ABRIR CODE 0006:1C44 0011AH CERRARDBF CODE 0006:1D5E 000C1H CFECHA CODE 0006:1E20 00190H FDIAS CODE 0006:1FB0 00032H _SUBSTR CODE 0006:1FE2 00077H STOD CODE 0006:205A 00157H VENTANA CODE 0006:21B2 000B0H CTRLOWNDH ...

... CODE 0006:1C76 0007FH OFILTRO CODE 0006:1CF6 00079H ERRORHANDL CODE 0006:1D70 000F0H ABRIR CODE 0006:1E60 0011AH CERRARDBF CODE 0006:1F7A 000C1H CFECHA CODE 0006:203C 00190H FDIAS CODE 0006:21CC 00032H _SUBSTR CODE 0006:21FE 00077H STOD CODE 0006:2276 00157H VENTANA CODE 0006:23CE 000B0H CTRLOWNDH ...

RF wrote:

Joel Andujo wrote:
Algo que me viene a la cabeza en este momento:

dFecha := CTOD(" / / ")
cFecha := DTOC(dFecha)

¿ Sera que es sabado que pretendo matar pulgas a cañonazos ?

cFecha := " / / "

Joel Andujo wrote:
como guardo una fecha vacia ?

Algo que me viene a la cabeza en este momento:

dFecha := CTOD(" / / ")
cFecha := DTOC(dFecha)

¿ Sera que es sabado que pretendo matar pulgas a cañonazos ?

Willian gracias por contestar, asi si funciona pero la idea es
guardar una fecha vacia. Por Ejemplo :

cFecha := ' / / '
::oRs:Fields('Fecha'):Value := cFecha

como guardo una fecha vacia ?
ahi es cuando se genera el error

Saludos
Joel Andujo
[/url]

Lo haria de la siguiente manera. cFecha := DTOC(date()) ::oRs:Fields('Fecha'):Value := cFecha Así me funciona. Saludos Foro buenos dias, solicitando de su ayuda, se trata de esto Esto y utilizando SQL via ADO de xHarbour, pero tengo un detalle ...

Kronos:

Use the valid clause of the get (redefine get .... VALID Valfecha(cFecha), and in valfecha() you evaluate the date.)

Regards,

... DIALOGS "FOLDER_DATOSG" ,"FOLDER_OPMER","OPVPREVIA","ENTREGA3","ENVIOS" // This is a get that belongs to that main dialog REDEFINE GET cFecha ID 103 FONT oFont3 OF oDlg PICTURE "@d" UPDATE // This are controls that belongs to the first folder REDEFINE GET oNumdoc VAR cOcNum ID 101 FONT ...