FiveTech Software tech support forums

Buenos días

Gracias por la respuesta Mr. Rao disculpe el desconicimiento pero no entiendo

defino asi
PRINT oPrn FILE cNombrePdf PREVIEW

oPrn:CmSay( nFila, nColumDere,'AMBIENTE : '+cAmbiente , oFont1 )


Muchas gracias

... dias Joao No veo la forma de integrarlo 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 ...

Otra forma de hacerlo:

local nFila := -1

...

oReport:bEndLine = { || nFila += 0.5 }

COLUMN TITLE "Fila" DATA AllTrim( Str( nFila ) )

Prueba con:

local nFila := -1

y

COLUMN TITLE "Fila" DATA AllTrim( Str( nFila += 0.5 ) )

Prueba así:

local nFila := 1

...

COLUMN TITLE "Fila" DATA AllTrim( Str( nFila++ ) )

... usando Tdolphin FUNCTION Imp_Egreso() Local Estado, oPrn, oFntMedia, oFntPeque, oFntNormal, oFntNegrita, oFntGrande, II LOCAL lPrint := .F. LOCAL nFila := 0 LOCAL nDoc := 0 LOCAL Pinicial := 0 LOCAL Pfinal := 0 LOCAL fila := 0 Local aTop := Array(02), aTam := Array(02) For II = 1 to 2 aTop [II]:=0 ...

Horacio, Lo idóneo es que uses un control TBitmap. Si lo estás mostrando sobre una ventana puedes hacer: @ <nFila>, <nColumna> BITMAP oBmp OF oWnd RESOURCE "cerrar" ; ON CLICK MsgInfo( "Mi acción" ) Para un diálogo definido desde recursos: REDEFINE ...

... de clipper en modo consola. */ /* Funciones de Impresión con clase tPrint --------------------------------------- IniImp( nAncho, nLargo [, nFilas, nColumnas, cNom_spooler, lsel_imp, lpreview, lLnds ,nCopias ] ) Configura la impresión indicando: ancho y largo de páginas en cms. cantidad ...

... de clipper en modo consola. */ /* Funciones de Impresión con clase tPrint --------------------------------------- IniImp( nAncho, nLargo [, nFilas, nColumnas, cNom_spooler, lsel_imp, lpreview, lLnds ,nCopias ] ) Configura la impresión indicando: ancho y largo de páginas en cms. cantidad ...

Leandro

oBrw:Gotop()
oBrw:Skip(nFila)

Saludos,

Adhemar

... Estoy seguro que todo tiempo nuevo siempre ES mejor. Armando: Muchas gracias por tu respuesta, es exatamente lo que tu dices, elimine esa linea de nfila, y se soluciono el problema. De la misma forma, te deseo al igual que todo el foro, que tengas unas felices fiesta de fin de año, que el proximo ...

Armando:

Muchas gracias por tu respuesta, es exatamente lo que tu dices, elimine esa linea de nfila, y se soluciono el problema.

De la misma forma, te deseo al igual que todo el foro, que tengas unas felices fiesta de fin de año, que el proximo año este lleno de exitos.

FELIZ AÑO 2010.

Tu variable nFila, siempre asume el valor de Fil que se encuentra definida al inicio de tu rutina. Verifica este trozo, aparentemente aquí se encuentra tu error.. ... if nLinea>29.and.(nro_bon=cFolio).and.!eof() Endpage Page ...

... "Arial" Size 0,24 Of oPrint Bold Italic Define Pen oPen Style 0 width 5 nVertical := oPrint:nVertRes() nHorizontal := oPrint:nHorzRes() nFila := Round(nVertical/60,0) nColumna := Round(nHorizontal/80,0) Fil=nFila col=nColumna Page oPrint:Say(nFila*6,nColumna*40," Santiago, "+spac(8)+subs(a->fec_inf,1,2)+spac(11)+aMeses[val(subs(a->fec_inf,4,2))]+space(7); ...

... "Arial" Size 0,24 Of oPrint Bold Italic Define Pen oPen Style 0 width 5 nVertical := oPrint:nVertRes() nHorizontal := oPrint:nHorzRes() nFila := Round(nVertical/60,0) nColumna := Round(nHorizontal/80,0) Fil=nFila col=nColumna Page oPrint:Say(nFila*6,nColumna*40," Santiago, "+spac(8)+subs(a->fec_inf,1,2)+spac(11)+aMeses[val(subs(a->fec_inf,4,2))]+space(7); ...