FiveTech Software tech support forums

De nada estimado Joao

Para evitar ésto nLinea := nLinea + 1.00
Usa: LASTROW nLinea

@ nLinea, nColumn PRINT TO oPrn TEXT cTxt1 SIZE nAncho, nAlto CM FONT oBold LASTROW nLinea
// nLinea := nLinea + 1.00 //ya no es necesario


Gracias estimado. Simplesmente PERFECTO!! Thank you very much ...

De nada estimado Joao

Para evitar ésto nLinea := nLinea + 1.00
Usa: LASTROW nLinea

DEFINE BRUSH oBr color rgb( 204, 255, 153 )
...
UTILPRN ::oUtil Self:nLinea, 1.3 SAY " " + DToC( aDatos[ nItem ][ 1 ] ) FONT ::oFnt2 BRUSH oBr WIDTH 18.2 shadow .T.

Buenas tardes, amigos

Tengo lo siguiente:

nLinea:=1
cLinea:=alltrim(STR(nLinea))

lc1:="<field name='lxc1'>"

Quiero sustituir el carácter x con el contenido de cLinea
para que me quedara así:
lc1:="<field name='l1c1'>"

Hago lo siguiente (qué seguro que lo estoy haciendo mal, porque no me ...

... e a UtilPrn, ótimas classes. Para gerar código de barras com elas e a barlib do caetano, faço assim:

::Salto()
aCoord := ::oPrn:Cmtr2Pix( ::nLinea, 1.00 )

INT25( aCoord[ 1 ], aCoord[2], AllTrim( cCodigo_Barra ), ::oPrn, .F., 0, .T., 0.30, 1.20 ...

Lo solucione instalando el font code128 y usando de la siguiente manera:

Define Font oFC128 name 'CODE 128' size 0,-14 of oPr
UTILPRN oUtils nLinea,nColum+12 SAY oDBCheq:Barra FONT oFC128

La única contra de esto es que se debe instalar en cada maquina del cliente dicho font.
Espero les sirva.
Saludos

Gabriel thanks
I have this :
nLinea is totale of records

nPageLines := 0
nElemenLines:= 6
nBloqueLine := 1

nEntero := INT( nLinea / 6 )
nFraccion := ( nLinea / 6 ) - nEntero
nFraccion := IF( nFraccion > 0, 1, 0 )
nPageLines:= nEntero + nFraccion


the problemis on second or thirs times the up button ...

... way you did it--loading the entire file into memory then parsing it, rather than reading each line from the disk.

Your coding mistake is here:

nLinea :=MLCOUNT(cTexto)

Should be:

nLinea :=MLCOUNT(cTexto, 81) // was missing the line length

I would also suggest setting cTexto to nil right after ...

... into a array having only one field of 81 space

atest:= { Space(81) }

I made this but it make error

cFile:="level1.txt"
ctext:= Memoread(cFile)
nLinea :=MLCOUNT(cTexto)

for n=1 to nLinea
cLinea:=MEMOLINE(cTexto,81,n)
AADD(atest,ALLTRIM(cLinea))
next

the error
It make error because it count ...

Te paso la version corregida y probada.

Function HNetView()
Local aPCs:={}
Local cTexto,nLinea,cLinea,Q

WAITRUN( "cmd.exe /c net view > PCs.txt" , .t.)

cTexto :=MEMOREAD( "PCs.txt" )
nLinea :=MLCOUNT(cTexto)

FOR Q=1 TO nLinea // Arranca de la línea 4 (De todos modos probalo)
cLinea:=MEMOLINE ...

Sorry,

I use this command :

hOldFnt := SelectObject( hDc, oFont:hFont )

ExtTextOut( hDc, nLinea, 22, {nLinea,22,nLinea+16,22+nwidth}, aText[nCont,1] )


I not remeber but exit a selectobject command to make trasparent ...


I'm trying to create a class to simulate for read a book ...

http&#58 ...

Amigos:

Como decía el master, para rizar el rizo, yo lo haría así:

Crear mi tabla con los campos siguientes

nLinea nTramo nCosto Index por nLinea
1 100 ,20
2 99 ,30
3 99 ,40
5 99 ,50

Y el código sería así:
nSaldo := nConsumo &#40;303&#41;nImporte := 0.00Ir al Pincipio de la tablaDBGOTOP&#40 ...

Amigos:

Como decía el master, para rizar el rizo, yo lo haría así:

Crear mi tabla con los campos siguientes

nLinea nTramo nCosto Index por nLinea
1 100 ,20
2 99 ,30
3 99 ,40
5 99 ,50

Y el código sería así:
nSaldo := nConsumo &#40;303&#41;nImporte := 0.00Ir al Pincipio de la tablaDBGOTOP&#40 ...

... NumberFormat", "@" )

oHoja:Cells( nFound, nCol ):Borders():LineStyle := 1
oHoja:Cells( nFound, nCol ):Borders( 8 ):LineStyle := 1

oHoja:Cells( nLinea, 3 ):AddComment()
oHoja:Cells( nLinea, 3 ):Comment:Text( AllTrim(oTdbfFamili:Obsefact) )

oHoja:Columns( 1 ):ColumnWidth := 6
oHoja:Columns( 2 ...

... New( cpuerto,LARCHIVO ) //iniciamos el objeto tdosprn.
oPrn:command( INICIAPRN ) // iniciamos la impresora
oPrn:Command( oPrn:cCompress )
oPrn:nLinea := 1 // Inicializamos nuestro contador de Renglones // una modificacion que le hice a la clase

else
if vSelecImpre = .T.
if vTVistPre = .T ...