FiveTech Software tech support forums

A mi me ha funcionado poniendo así:

vconcepto:=strtran(alltrim(oHoja:Cells( nrow, 5 ):Value),chr(10),CRLF)

Espero que le sirva a quien lo necesite.

Un saludo

... impermeabilización." y al pasarlo de la siguiente mamera a un campo memo en el fichero dbf lo hace obviando el intro (ALT+INTRO) vconcepto:=alltrim(oHoja:Cells( nrow, 5 ):Value) y queda así: "RETIRADA DE PAVIMENTO. Demolición del pavimento, capa de nivelación e impermeabilización existentes. ...

... Carmona ). At the moment this is how it works for me (more or less): ndummyaltura := ( ::oPrn:CmVertPhySize() / 2 ) + ( ::oPrn:CmtrGetTextWidth( AllTrim( ::oTDbfDatAmp:REGMER ), ::oFnt_Arial6V ) / 2 ) UTILPRN ::oUtil ndummyaltura, 0.5 ; SAY AllTrim(::oTDbfDatAmp:REGMER) FONT ::oFnt_Arial6V COLOR ...

... Carmona ). At the moment this is how it works for me (more or less): ndummyaltura := ( ::oPrn:CmVertPhySize() / 2 ) + ( ::oPrn:CmtrGetTextWidth( AllTrim( ::oTDbfDatAmp:REGMER ), ::oFnt_Arial6V ) / 2 ) UTILPRN ::oUtil ndummyaltura, 0.5 ; SAY AllTrim(::oTDbfDatAmp:REGMER) FONT ::oFnt_Arial6V COLOR ...

PERHAPS ??

function validaEmail(cEmail)
LOCAL pCompiled := hb_regexComp("^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$")

LOCAL cRet := .t.

IF HB_RegExMatch( pCompiled, alltrim(cEmail), .F. )


cRet := .f.
end
return cRet

... := usuari Acciones->Fecha := date() Acciones->Hora := left(time(),5) Acciones->Detalle := if(agrega,'Agregó el Material '+alltrim(cdetalle),'Modifico el Material '+alltrim(cDetalle)) dbcommitall() endif Materia->(dbsetorder(queor)) Materia->(DbGoTop()) return NIL ...

... setup: yes - no, and here it is working. Sometimes I use text from a DBF file, which is, for example, 160 characters long, and forget to apply ALLTRIM(). Then, you might have some spaces on the right. Best regards, Otto If I save my res as rc: right no: CONTROL "heute", 4001, "Static", ...

... PANEL Layout :?: --- in my modify CODE all Lines are displayed and Position of Panel3 will change    aDim = GetLabelDim( oPanel2:hWnd, alltrim(cMessage), oFonttext:hFont ) GetLabelDim() will give you "right" Size and    oFonttext:nHeight() +2 is hight of ...

hi,

Code: Select all  Expand view

(domicilio  )+Alltrim  (piso  )+Alltrim  (depto  )

a Index Expression must be "same Length" so ALLTRIM() are NOT working "in" a Index

---

it seem me that your YEAR use only 2 Digit ?
than try

Code: Select all  Expand view

SET EPOCHE TO YEAR(DATE()) -50

... 'start/end/nil')` The `addresponse` should include a `Val2Char()` function. ``` h['response'] += "{" + '"name":' + '"' + ALLTRIM(address->name) + '",' h['response'] += '"street":' + '"' + ALLTRIM(address->street) + '",' h['response'] += '"city":' ...

puedes probar esto, ver si funciona

PADL(::oQry:FieldGet( "c4"), 2, "0")

Substr( PADL(::oQry:FieldGet( "c4"), 2, "0"),1,2)

o

PADL(alltrim(::oQry:FieldGet( "c4")), 2, "0")

... Nombres :",@cPer ) WaitOn("Espere un momento por favor....",@oWait ) If cPer = Space(30) x := "" Else x := Upper(Alltrim( cPer )) EndIf cWhere := "detalle LIKE '"+x+"%'" oQry:SetFilter( cWhere ) aServer:ShowError() SysRefresh() oBrw:Refresh() ...

... Nombres :",@cPer ) WaitOn("Espere un momento por favor....",@oWait ) If cPer = Space(30) cWhere := "" Else x := Upper(Alltrim( cPer )) cWhere := "c.detalle LIKE '% ? %' " EndIf oQry:SetFilter( cWhere ,{x}) aServer:ShowError() SysRefresh() oBrw:Refresh() WaitOff( ...

... :",@cPer ) WaitOn("Espere un momento por favor....",@oWait ) If cPer = Space(30) cWhere := "" Else mWhere := {Upper(Alltrim( cPer ))} cWhere := "c.detalle LIKE '%?%'" EndIf TRY oQry:SetFilter( cWhere , mWhere) CATCH o SysRefresh() END oBrw:Refresh() WaitOff( ...

... parametro D static Function Cancella_Archivi(cDir) local adir := DIRECTORY(cDir+ "*.*" ) local i,cFile FOR i = 1 to LEN( aDir ) cFILE := ALLTRIM( aDIR[i][1] ) IF FErase(cDir+cFile ) != 0 Msginfo( FERROR() ,cfile) endif NEXT return nil