FiveTech Software tech support forums

... forma de corregirlo pero implica modificar todas las llamadas a fechas en todos los sistemas que quiera compilar con esta nueva versión function cfecha(dFE) RETURN (fw_ttod(dFE)) El problema está en que el campo está definido en la tabla como tipo DATE y lo toma como DATETIME Y eso no sucedía ...

... Z" IF MsgYesNo("Cambiar Tasas ") BematechZ() BemaProgAlicuota( "1400") ENDIF RETURN .T. FUNCTION BemaTechZ() LOCAL cFecha:=DTOC(DATE()) LOCAL cHora :=TIME() // MsgAlert(cFecha) // MsgAlert(cHora) ? BemaReporteZeta(cFecha,cHora),"REPORTEZ" RETURN .T. FUNCTION ...

Amigos Muy buen dia. Tengo un problema muy grande. Estoy Corriendo un Programa Pequeño compilado en 32 bits, el cual corre muy bien en windows XP 32 Bits, he tenido que cambiar el computador por un Notebook I 7 Intel de 3.0 GHz y 8 GB de Ram CPU 64 Bits con Windows 10. Al copiar la carpeta con las D...

... lo primero que hiciste esta bien, solo te falto la clausula ALL luego del REPLACE REPLACE Albaran->Baseimpo WITH cimporte FOR Albaran->Fecha=cfecha .and. cnombre$Upper(Albaran->Spro) REPLACE ALL Albaran->Baseimpo WITH cimporte FOR Albaran->Fecha=cfecha .and. cnombre$Upper(Albaran->Spro)

Buenas Gracias por contestar La cuestión es que cFecha ya viene formateada como fecha, y cnombre ya viene en mayusculas, Mira la función principal de donde vienen los datos: //*********************************function modificacampo()  ...

Yo haría dos cosas, primero cambiaría cfecha por ctod(cfecha) , para convertir el campo cfecha a fecha si esta definida Albaran->Fecha como fecha segundo Upper(cnombre)$Upper(Albaran->Spro) . Vamos las pondría las dos en mayúsculas por ...

... Carga en variable el primer registro Data1:= oP:Queryavl:FieldGet( "datos" ) ********* Desglosa registro cUsuario := substr(Data1,1,4 ) cfecha :=substr(Data1,5,10 ) chora :=substr(Data1,19,10,) cPLaca :=substr(Data1,29,6) cNosae :=substr(Data1,35,10) cparada :=substr(Data1,45,20) clat ...

... ) // Extrae los datos de una sentencia GPRMC //////////////////////////////////////////////////////////// METHOD GPRMC( cCad ) CLASS TGps Local cFecha cFecha := StrToken( cCad, 10, "," ) ::cDate := Substr( cFecha, 1, 2 ) + "/"+ Substr( cFecha, 3, 2) + "/"+ Substr(cFecha, ...

... ) // Extrae los datos de una sentencia GPRMC //////////////////////////////////////////////////////////// METHOD GPRMC( cCad ) CLASS TGps Local cFecha cFecha := StrToken( cCad, 10, "," ) ::cDate := Substr( cFecha, 1, 2 ) + "/"+ Substr( cFecha, 3, 2) + "/"+ Substr(cFecha, ...

... FUNCTION CierreFiscal(cTpo) *-------------------------------------------------------------* Local s ,lResp:=.T. local cFecha := DtoC( Date() ) s:=if( cTpo='Z',"9" + SE + "Z","9" + SE + "X") If MsgYesno( '¿ Realizar Cierre '+cTpo+' ...

... FISCAL","REVISE IMPRESORA FISCAL") Logfile("c:\Vendelot\auditor.log",{"Problema IFA "+cmd}) endif ENDIF cFecha:=SubStr(StrZero(Year(DATE()),4),3,2)+; StrZero(Month(DATE()),2)+; StrZero(Day(DATE()),2) cHoraSorteo:=::NombreLoterias(aDat9[nI,1],4) cNumeroSorteo:=::NumeroSorteo(aDat9[nI,1]) ...

... FISCAL","REVISE IMPRESORA FISCAL") Logfile("c:\Vendelot\auditor.log",{"Problema IFA "+cmd}) endif ENDIF cFecha:=SubStr(StrZero(Year(DATE()),4),3,2)+; StrZero(Month(DATE()),2)+; StrZero(Day(DATE()),2) cHoraSorteo:=::NombreLoterias(aDat9[nI,1],4) cNumeroSorteo:=::NumeroSorteo(aDat9[nI,1]) ...

Hola armando buenos dias ay va la conversion, nomas faltaria validar que los numeros sean fecha estan en cfecha Function main()Local cRfc:="visaf741020tu2"          ?  valrfc(crfc)            Return NilFunction Valrfc(xrfc)Local dev:=.f.local ...

... es correcto, ambas cadenas de fechas construidas estan fallando, la idea es que hb_DtoS(dFecha) retorna una cadena "YYYYMMDD", hb_StoD(cFecha) transforma una cadena "YYYYMMDD" a formato fecha, de ello se desprende que: "2013" + "1" + "7" -> ...

... 4 o MySQL 5 Si mySql esta configurado con fecha AAAA-MM-DD Crear funcion llamada DATETOMYSQL(dFecha) /* // Aqui haces la traducción */ RETURN cFecha