... 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) ...
... 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( aFicheros[ ...
... 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 aumentando ...
... no 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 Contador1 ...
... 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:lCreated ...
... com a classe do 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:" ...
... 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)
... alterar o tamanho da 2º coluna. esta como o Visual basic, onde posso ter errado: #include "FiveWin.ch" function Main() local oWnd, oActiveX,nLin, I DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support" oActiveX := TActiveX():New( oWnd, "MSFlexGridLib.MSFlexGrid.1" ) oActiveX:nLeft:=10 ...