FiveTech Software tech support forums

... "porc_iva" ):Value / 100 ) + 1 ), 2 ) * oRS1:Fields( "cotiza" ):Value, 14, 2 ) , ; oRS1:Fields( "um" ):Value , ; dtoc( oRS1:Fields( "Fec_modi" ):Value) ; headers "Discont", "Código", "Cód.Barra" , ; oemtoansi( "Descripci¢n" ...

... 1 ] picture "@x" redefine say oEmail var xEmail id 104 of ofld1:aDialogs[ 1 ] picture "@x" redefine say oFecha_Ini var dtoc( xFecha_Ini ) id 105 of ofld1:aDialogs[ 1 ] redefine say oFecha_Fin var dtoc( xFecha_Fin ) id 106 of ofld1:aDialogs[ 1 ] redefine say oCriterio ...

... oMensaje:Refresh() //msginfo(str(Clifor->Codcliente,4),'Cliente') if prow == 0 prow+=nrowstep oPrn:Say(prow, pcol*4 ,'Fecha de Emisión: ' + dtoc( date() ),oCour_n_10) ...... prow+=nrowstep*1.5 endif select DetVtaF DetVtaF->(DbGoTop()) if DetVtaF->Cliente#0 oPrn:Say(prow, pcol*6 ,CliFor->RazonSoc,oCour_b_10) ...

... local aBmp := { "TildeR.bmp", "TildeA.bmp", "TildeV.bmp" } Private oBar2 acampos := {|| {str(Corregir->Numero,4),dtoc(Corregir->FechaError),Corregir->Tema,if(Corregir->Estado=1,aBtms[1], if(Corregir->Estado=2,aBtms[2],aBtms[3]) ),left(Corregir->Detalle,35),' ...

... := "Upload" hQuery["path"] := "eguarda/php/" hQuery["recipient"] := "" EmiCte := Dtoc(oArqCto:DTEMIS) LocXml := Alltrim(oConfCte:P_AUTORI)+Substr(EmiCte,4,2)+Substr(EmiCte,7,4)+"\"+Alltrim(oArqCto:CHAVESEFAZ)+; "-ProcCTe.xml" ...

Jimmy, If i put a date in a TGET, I always change the date to a string by using DTOC(). I can give the picture to my date anyway I want and in the VALID clause, I can link a function which checks if the date is correct or not. Afterwards, I change the string back ...

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

......

... EVAL() ACTION of BTNBMP --- i have ask why DTPICKER and GET have "same" Position @ nRow, 70 as you need a String, not Date, you can use DTOC() to "validate" if a String "is" a Date use CTOD()

... ] := hJson[ "vessel" ][ "vesselIMONumber" ] aRow[ FLD_POL ] := cPol aRow[ FLD_POLNAME ] := cPolName aRow[ FLD_ETD ] := DTOC(dEtd) aRow[ FLD_ETDTIME ] := cEtdTime aRow[ FLD_POUL ] := hCall[ "facility" ][ "UNLocationCode" ] aRow[ FLD_POULNAME ] := hCall[ ...

... con la libreria Filexls de Ramon Avendaño Para pasar a excel con esta libreria yo hago: Para una fecha: @ nFila, nCol XLS SAY "Fecha:" + DTOC( Date() ) OF oXls Para un texto: @ nFila, nCol XLS SAY OemToAnsi( cText ) OF oXls Para un número, antes tengo que dar formato: DEFINE XLS FORMAT ...

... cQuery += "Fac.numero_documento, " cQuery += "Fac.fecha_documento, " cQuery += "Fac.fecha_vencimiento, " dHoy:=subs(dToc(_dFechaDeHoy),7,4)+"/"+subs(dToc(_dFechaDeHoy),4,2)+"/"+subs(dToc(_dFechaDeHoy),1,2) cQuery += "DATEDIFF('"+dHoy+"', ...

... 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 ISWINXP() ...

... dbf ? I made @ nRow, ncol Say oSay[9] Prompt "Data Iniziale: " of oDlg SIZE 200,14 PIXEL FONT oBold @ nRow, nCol+100 Say oSay[10] Prompt dtoc(oDbf:data) of oDlg SIZE 200,14 PIXEL FONT oFont nRow+=40 @ nRow, ncol SCROLLBAR oScrollInizio HORIZONTAL SIZE 400,20 PIXEL OF oDlg ; RANGE 1,oDbf:OrdKeyCount() ...

... "Shipping@mycompany.com" Local cPassWord := "mypassword" Local cFrom := "Shipping@mycompany.com" Local cSubject := DtoC( Date() ) + "-" + Time() + ", SPF Test for EMail" Local cToAddr := "byron.hopp@gmail.com" Local cCC := "bhopp@matrixcomputer.com" ...

... you mentioned Sql Native .. MS Access has a bit different syntax .. you have to put # around your date variables "[InvoiceDate] >= #"+dtoc(lDate)+"# And [InvoiceDate] <= #"+dtoc(hDate)+"#" Otherwise "[InvoiceDate] >= '"+DTOC(LDATE)+"' ...