FiveTech Software tech support forums

... ideas aportadas y el uso de codeblock para resolver el problema. En la tabla informes contiene el campo rutainforme = "inf1_" + Dtos( dFecha ) + "-" + Substr( whoraini, 1, 2 ) + Substr(whoraini, 4, 2 ) + "-" + Substr( whorafin, 1, 2 ) + Substr(whorafin, 4, 2 ) + ...

#include 'fivewin.ch'FUNCTION test()     LOCAL whoraini, whorafin, dfecha, warchiv, oRs          FWCONNECT oCn HOST 'localhost' USER 'root' PASSWORD 'Sys' PORT 3306 DB 'prueba'     oRs:=oCn:Rowset( 'Informes' )               dfecha      := Date()  ...

#include 'fivewin.ch'FUNCTION test     LOCAL RutaInforme, whoraini, whorafin, dfecha, warchiv     dfecha      := Date()     whoraini    :='13:00:00'     whorafin    :='13:59:59'  ...

... una fórmula en un campo de texto que llamaremos oRs:RutaArchivo oRs:RutaArchivo contiene esta fórmula tal cual: ".\XLSX\inf1_" + Dtos( dFecha ) + "-" + Substr( whoraini, 1, 2 ) + Substr(whoraini, 4, 2 ) + "-" + Substr( whorafin, 1, 2 ) + Substr(whorafin, 4, 2 ) + ...

Hola
.......
SET DATE FORMAT "DD/MM/YYYY"
dFecha := DATE()
......
......
oPrn:CmSay(nRow, 1, DTOC(dFecha), oFontE)

......

... como parámetro; a lo que me refiero es que el origen se trate de variables independientes como "cCodigo", "cNombre" ó "dFecha"; hablo de pasarlos en la forma de array {cCodigo,cNombre,dFecha} para poder pasar una cantidad variable e ilimitada de parámetros, de modo ...

... El código completo del archivo es este: #include "fivewin.ch" #define OFN_ENABLESIZING 0x00800000 function ANEXA(cnum, cnom, nLibro, dfecha, cCentro, cDoc, cPrio, cClasedoc) Local cRaiz:="\COMPARTIDO\REGSAT\WINSAT\DOCUMENTAL" LOCAL CarpetaSAT:=alltrim(cnum)+"-"+alltrim(cnom) ...

Hola Antonio, te paso una función que tengo donde genero el dia de la fecha, espero y te sirva: FUNCTION Fecha( dFecha ) LOCAL cLeyenda, aDias, aMeses DEFAULT dFecha := Date() aDias := { "Domingo, ","Lunes, ","Martes, ","Miercoles, ","Jueves, ...

Hola Antonio, te paso una función que tengo donde genero el dia de la fecha, espero y te sirva: FUNCTION Fecha( dFecha ) LOCAL cLeyenda, aDias, aMeses DEFAULT dFecha := Date() aDias := { "Domingo, ","Lunes, ","Martes, ","Miercoles, ","Jueves, ...

Gracias Francisco por responder, y si a la variable dfecha le asignara el valor del campo fecha, utilizas la funcion dtos() o nada? Arturo: MYSQL (TMySql) FiveWin1204 - XHARBOUR - BCC582 cCmdSql:=  "CREATE TABLE IF NOT EXISTS ctasxcob(" ...

Gracias Francisco por responder,

y si a la variable dfecha le asignara el valor del campo fecha, utilizas la funcion dtos() o nada?

... oServer:Insert( "mitabla", aCampos, aDatos ) En el campo DATETIME probé las indicadas en este post, sin exito Probe: dFEHora:= DtoC( dFecha )+' '+cHora dFEHora:= FW_STR2DT(FW_DT2STR( dFecha )+' '+cHora) dFEHora:= StoT( DtoS( dFecha )+Left( cHora,2)+SubStr(cHora,4,2 )+Right(cHora,2 ...

... ENDIF IF ValType(uValue)="N" uValue:=ALLTRIM(STR(uValue)) ENDIF RETURN uValue STATIC FUNCTION SQLDATE(dFecha) LOCAL nD,nM,nA IF !Empty(bSqlDate) .AND. ValType(dFecha)="D" nD:=DAY(dFecha) nM:=MONTH(dFecha) nA:=YEAR(dFecha) dFecha:=EVAL(bSqlDate,nD,nM,nA) ...

Topic closed for me ????????????????????????????????????????????????????????? ColorStatus (nType, dDate ) Function ColorStatus( nType, dFecha )   local aGrad   local nClrT     := CLR_BLACK   DEFAULT nType   := 0   DO CASE      case nType = 1         aGrad := { { 1, RGB(0x9a,0xcd,0x32), ...

... KEYBOARD;  CLOCK  DEFINE MSGITEM oFecha OF oPrincipal:oMsgBar;         PROMPT FormaFecha(dFecha);         SIZE GetTextWidth(0,FormaFecha(dFecha))+2;         COLOR COLOR_AZUL,COLOR_SVERDE;  ...