FiveTech Software tech support forums

... "cmail=", cmail ) cdatanaix := OleGetProperty( OleGetProperty( oHoja, "Cells", nRow, 4 ), "Value" ) If Valtype( cdatanaix) = "U" cdatanaix := CToD("01/01/1900") elseIf Valtype( cdatanaix) = "C" cdatanaix := CToD(cdatanaix) EndIf Traza(1, "cdatanaix=", cdatanaix) cCognoms := OleGetProperty( ...

... "cmail=", cmail ) cdatanaix := OleGetProperty( OleGetProperty( oHoja, "Cells", nRow, 4 ), "Value" ) If Valtype( cdatanaix) = "U" cdatanaix := CToD("01/01/1900") elseIf Valtype( cdatanaix) = "C" cdatanaix := CToD(cdatanaix) EndIf Traza(1, "cdatanaix=", cdatanaix) cCognoms := OleGetProperty( ...

... <> ::aBuffer[n] cType := ::FieldType( n ) cName := ::FieldName( n ) do case case cType = "D" ::oRs:Fields( cName ):value := if(::aBuffer[n]=CTOD(""), NIL, DTOC( ::aBuffer[n] ) ) otherwise ::oRs:Fields( cName ):value := ::aBuffer[n] endcase lChange := .T. endif next endif if lChange MsgInfo( ...

... WSYMBOL 0x9A 1 #define AADD 0x9B 1 #define ASC 0x9C 1 #define AT 0x9D 1 #define CDOW 0x9E 1 #define CHR 0x9F 1 #define CMONTH 0xA0 1 #define CTOD 0xA1 1 #define DATE 0xA2 1 #define DAY 0xA3 1 #define DOW 0xA4 1 #define DTOC 0xA5 1 #define DTOS 0xA6 1 #define EMPTY 0xA7 1 #define QEXP 0xA8 ...

... la cosa, no puedo almacenar una fecha vacia via ADO. He probado : a) ::oRs:Fields(uNameField):Value:=' / / ' b) ::oRs:Fields(uNameField):Value:=ctod(' / / ') ::oRs:Fields(uNameField):Value:=ctod(' ') c) ::oRs:Fields(uNameField):Value:='NULL' d) ::oRs:Fields(uNameField):Value:=NIL e) dFec:=ctod(' ...

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 ?

... esto Esto y utilizando SQL via ADO de xHarbour, pero tengo un detalle con el manejo de fechas, al momento de remplazar una fecha vacia : dFecha:=ctod('') ::oRs:Fields('Fecha'):Value:=dFecha esto me produce el siguiente error : ADODB.Recordset:Fields/9 la operación en varios pasos genera errores. ...

... esto Esto y utilizando SQL via ADO de xHarbour, pero tengo un detalle con el manejo de fechas, al momento de remplazar una fecha vacia : dFecha:=ctod('') ::oRs:Fields('Fecha'):Value:=dFecha esto me produce el siguiente error : ADODB.Recordset:Fields/9 la operación en varios pasos genera errores. ...

... ) . Por otra parte revisando la ayuda de advantage en la seccion aof encontre esto : For example, consider the filter expression: hiredate > CTOD(‘1/19/90’) .OR. ( hiredate > CTOD(‘1/18/85’) .AND. deptnum = 15) If field "hiredate" is indexed and field "deptnum" is not, the expression will ...

I used browse class How can I set the date format for ctod() function ?

... += "TM: " + cTime + cEol //IF MsgNoYes( cMsg ) // DbCloseAll() // oWnd[01]:End() // QUIT //ENDIF // Init... cEname := _Event( cEvent ) dDate := CTOD( cMon + "/" + cDay + "/" + cYear ) SELECT impctnr SET ORDER TO TAG S1 GO TOP SEEK '001' + LEFT( cEq + SPACE(15), 15 ) IF FOUND() // Init... nCtnr++ ...