FiveTech Software tech support forums

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")

... dEnd nEle++ nId++ lVar := FALSE oChk := nil If dDay >= dFrom .AND. dDay <= dTo Redefine CheckBox oChk Var lVar Id nId of oDlg oChk:SetText( PadL( Day(dDay),2,"0" ) ) oChk:cargo := dDay oChk:SetCheck( FALSE ) Else Redefine CheckBox oChk Var lVar Id nId of oDlg oChk:Hide() Endif ...

... Assign variable to array If lFirst oVar_AA[t,01] := aVar_AA[t,01] := "Last Update : "+Left(Time(),5) oVar_AA[t,02] := aVar_AA[t,02] := PadL(CDoW(CToD(AllTrim(P6_AAAA->CDay_07))),17) oVar_AA[t,03] := aVar_AA[t,03] := PadL(CDoW(CToD(AllTrim(P6_AAAA->CDay_06))),17) oVar_AA[t,04] ...

... Assign variable to array If lFirst oVar_AA[t,01] := aVar_AA[t,01] := "Last Update : "+Left(Time(),5) oVar_AA[t,02] := aVar_AA[t,02] := PadL(CDoW(CToD(AllTrim(P6_AAAA->CDay_07))),17) oVar_AA[t,03] := aVar_AA[t,03] := PadL(CDoW(CToD(AllTrim(P6_AAAA->CDay_06))),17) oVar_AA[t,04] ...

It is possible to align a text on the left inside a tooltip

I have already tried with justLeft, Justright, pad, padright, padleft,padl,padr functions without success

Es posible alinear un texto a la izquierda dentro de una información sobre herramientas

Ya he probado con justLeft, Justright, pad, padright, padleft,padl,padr funcion

... ejemplo: 162.16 (Pero el codigo son 4 digitos con ceros a la izquierda , si no los introuzco relleno con 0 ). // ??? NO COMPRENDO ??cCodigo := PadL( SubStr( AllTrim( cNombre ), nPos + 1, Len( AllTrim( cNombre ) ) - nPos ), 4, "0" )  El nPos ...

José Luis:

Ahh, entiendo.

Solo una idea, en lugar de tratar de quitar los espacios a no_pedido agrégalos
a npedido con PADL(), así igualas los valores.

Aunque en mi personal opinión, cuando los valores son alfanuméricos el control EDIT
lo debes poner con ajuste a la izquierda.

Saludos

Chat_id := 12345
cChiaveId := PADL ( Upper( alltrim(str(Chat_Id)) ), 20, SPACE(1) )
o PADR(...) ?

... V"+odb1:cversion+" "+odb1:descrip+if(lsize," "+odb1:SIZE,"")+" "+odb1:unit+" "+padl(cvaltochar(ROUND(odb1:qty,nqtydec+1)),nqtylen," ")+" "+odb1:mem+" "+odb1:position) odb1:SKIP() enddo oWnd1:oClient:=oTree ...

Pad(<exp>,<nLength>,[<cFillChar>])->cPaddedString PadC(<exp>,<nLength>,[<cFillChar>])->cPaddedString PadL(<exp>,<nLength>,[<cFillChar>])->cPaddedString PadLeft(<cString>,<nLength>,[<xChar>])->cResult PadLeft(<cString>,<nLength>,[<xChar>])->cResult ...

Pad(<exp>,<nLength>,[<cFillChar>])->cPaddedString PadC(<exp>,<nLength>,[<cFillChar>])->cPaddedString PadL(<exp>,<nLength>,[<cFillChar>])->cPaddedString PadLeft(<cString>,<nLength>,[<xChar>])->cResult PadLeft(<cString>,<nLength>,[<xChar>])->cResult ...

... Os_IsWinNT Os_IsWinNT351 Os_IsWinNT4 Os_IsWinVISTA Os_IsWinXP Os_IsWtsClient Os_NetRegOk OS_NetVRedirOk Os_VersionInfo OutErr OutStd Pad PadC PadL PadLeft PadLeft PadR Payment PCol PCount Periods Pi PosAlpha PosChar PosDel PosDiff PosEqual PosIns PosLower PosRange PosRepl PosUpper Prgexptoval ...

Buenos dias Antonio, ya las agregue pero salen estos errores: :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406) Copyright 1999-2009, h...

... ) local n, __nClassH, __odatabase local cFromClass := upper( FromClass:ClassName() ) cClsName := "TMY" + Upper( if( empty( cClsName ), ; PadL( len( __aHCls ), 7, "0" ), Alltrim( cClsName ) ) ) if ( n := AScan( __aHCls, { |aClass| aClass[ 1 ] == cClsName } ) ) == 0 _HB_CLASS ...