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

... 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 tengo que ...

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

... 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 ...

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 BITMAP oBmp ID <nId> OF oDlg RESOURCE "cerrar ...

... 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 ...

... 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 ...

Leandro

oBrw:Gotop()
oBrw:Skip(nFila)

Saludos,

Adhemar

... 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
nFila:=fil <--- Fil viene con valor y lo entrega a nFila
nPosicion:=6 ...

... Name "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 ...

... Name "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 ...