FiveTech Software tech support forums

... los dias que tienen TAREAS, sigue mostrando los del mes inicial aun cuando los dias numericos han cambiado, me explico.

lo tengo definido asi:

@ nLin, nColu BTNBMP ;
PROMPT Str( Day( dWork ), 2 ) SIZE 20, 20 FONT oFont4 ; //size 12,12 NOBORDER
FILENAME if(nColu=15,"RojoClaro20.Bmp",if(Tareas ...

... Agosto ',;
'Septiembre',;
'Octubre ',;
'Noviembre ',;
'Diciembre '}
local aDays := {"Dom","Lun","Mar","Mie","Jue","Vie","Sab"}
local nLin := 0
local nColu := 0



DEFAULT dDate := Date(), cPrompt := "Seleccione Una Fecha"
//FOR nMonth = 1 to 12
// AADD( aMonths, cMonth(TToD( "01 ...

... new screen and new parameters added
SourceEdit( @<cSource>, <cTitle>, <nClrBack>, <nTop>, <nLeft>, <nBottom>, <nRight>,;
<nClrText>, <cFile>, <nLin>, <lRead>, <oDlg>, <lMnu>, <pDoc>, <nLex>, <bSetup>,;
<nSizeFont>, <lBold>, <bInit>, <lLoad>, <lModal>, <bExec>, <oMenu> )

lLoad : load Dll need ...

... el pamaño de Archivo es de 501 kb y si uso PRINT pesa 24501 kb

PRINT aPrn FILE cFile //NAME "cTitulo" PREVIEW
if Empty( aPrn:hDC )
//return nil // Printer was not installed or ready
endif
.......
PAGE
...
...
aPrn:Say( ::nLin*::Rlinha, xCol*::Rcolha ,Daimp,nTipfte )

ENDPAGE
ENDPRINT

... TEXTRIGHT ACTION InsGopMult(oLbx,oQuery)

etc,etc......


//--------------------------// Inserta linea
Function InsGopMult(oLbx,oQuery)
LOCAL nLin := oQuery:lin

oServer:Query("INSERT INTO gopmult (lin) VALUES ('"+cValToChar(nLin)+"')")

if oServer:lError
MsgInfo(oServer:Error)
endif ...

... NumeraPag(oPrn,oFont,nRowStep,nColStep)
Local x
Local nPaginas := Len( oPrn:aMeta )
Local aFicheros := oPrn:aMeta
Local nCol := 70*nColStep
Local nLin := 64*nRowStep

if nPaginas <= 1 // Solamente una pagina
Return Nil
endif

oPrn:aMeta := {}

FOR x := 1 TO nPaginas
PAGE
oPrn:ImportWMF ...

... mano Muhisimas Gracias desde la Republica Bolivariana de Venezuela

Cruz Alfredo Oses
FWH 9.04 xHarbour Bcc55

*--
FUNCTION CONTRATOS()
*--
LOCAL nLin, nFil, nAncho, nLargo, nPie
LOCAL oBar, oFont, oFolder, oBrow, oTabs, oCol
LOCAL oWndMain, nRegis := Space(05), cTable
LOCAL nCont := 0
*--
IF ...

... eso sí, todo junto como si las lineas de separación no existieran, y eso que pongo un msginfo que me vaya diciendo que valor tiene la variable nLin que es la que uso para imprimir las líneas.

En la cabecera del listado, cuando sale de ella, esa variable tiene un valor de 7, despues va ...

Willi

Se me pasaba comentarte esto :

Inicio mi variable nLin con valor de 3, y cuando despues del oPrn:EndPage() la reiniciaba con 4, esto ya lo corregí a 3

... esta lista y asi poder tomar las medidas pertinentes, enseguida pongo parte del codigo de mi aplicación :

FUNCTION PrintFac(lModal, oDlg)

LOCAL nLin, nLinMax
LOCAL oPrn, cTitulo
LOCAL nSub, nDescto1, nDescto2, nImporte, nSub2, nIva, nTotal
LOCAL cMone, TotLet
LOCAL i, des, NumLineas
LOCAL ...

... de la dbf.
2- Defino la cantidad maxima de lineas de la hoja (en tu caso 54) y agrego las que faltan a la dbf, para completar.

nMaxLineas:=54
nLin := (cAlias)->(Reccount()) // ó dbEval({|| nLin+=1})

if nLin < nMaxLineas
While nLin < nMaxLineas
DbAppend()
nLin+=1
Enddo
endif

IF oReport ...

... tdosprn ?


Pos funciona em todas as matriciais menos nela


oPrn := MaTDosPrn():New( cTemp )
oPrn:StartPage()
SetPrc(00,00)

oPrn:Say(nLin,00,&(oPub:PrnNeg) + Left(Setup->Empresa,37) + &(oPub:PrnNegF) ) // Recolocar xdata
nLin++
oPrn:Say(nLin,00,&(oPub:PrnPeq) + "DATA:" + DToC(xData ...

... oprn:saycm(10,10, valor)
engpage
endprint

A veces lo puedo hacer en ciertas impresora utilizando el font Courier. pero la mayoria de las veces no me da resultado.


saludos


erick

Prueba así:

oPrn:CmSay(nlin+0.4,15.5, TRANSFORM(nTotaIngresos, "@E 999,999,999.99"),oFont1,NIL,NIL,NIL,1)

... lNeedCmp := .t.
endif
oMemo:AdjClient()
oMemo:bChange = { |nKey| ChkMemo(nKey,oMemo), oRow:SetText( "Row: " + ;
LTrim( Str( oMemo:nLine ) ) ),;
oCol:SetText( "Col: " + ;
LTrim( Str( oMemo:nLineCol ) ) ) }
Eval( oMemo:bChange )

ACTIVATE WINDOW odlge ON INIT ( busca2Script ...

... lNeedCmp := .t.
endif
oMemo:AdjClient()
oMemo:bChange = { |nKey| ChkMemo(nKey,oMemo), oRow:SetText( "Row: " + ;
LTrim( Str( oMemo:nLine ) ) ),;
oCol:SetText( "Col: " + ;
LTrim( Str( oMemo:nLineCol ) ) ) }
Eval( oMemo:bChange )

ACTIVATE WINDOW odlge ON INIT ( busca2Script ...