FiveTech Software tech support forums

... de imprimir totales oReport:bPostEnd :={|| PoneDatos(oReport,cAlias) } ACTIVATE REPORT oReport ... ... oFont1:End() oFont2:End() oFont3:End() oPen1:End() RETURN NIL //---------------------------------------------------------- Function PoneDatos(oReport,cAlias) local nBueno:=0,nMalo:=0 (cAlias)->(dbgotop()) ...

... A VALUE IN ANY FIELD TY13 FOR A RANGE OF ACCOUNTS? */ function prnpalcmp(mquick,mvar,lFilter,nIndex) local oReport, oFont1, oFont2, oPrn, oPen1 local mforecast := "" local mfooter := "" local mbrket1 local mbrket2 local mbrket3 local mlen := 0 local newName ...

... Function Report() * oPrn:SayBitmap(400, 200, "logo.bmp", 800, 420 ) * LOCAL oFont1, oFont2, oFont3, oBmp, oPen1, oPen2 LOCAL nFila := 0 LOCAL nFila2 := 0 local no := 1 local snombre PRINT oPrn NAME "Testing the printer object from FiveWin" PREVIEW DEFINE ...

... por favor? ---------------------------------------------------------- STATIC FUNCTION I_LISTA( oRs ) LOCAL oReport, oFont1, oFont2, oFont3, oPen1, oPen2 DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-8 DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-12 BOLD DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-16 BOLD ...

... nRow += nRowStep * 1 oPrn:Say(nRow,nColStep*01,"CONTO",oFont) nRow += nRowStep * 1 oPrn:Line(nRow,nColStep*0,nRow,nColStep*190,oPen1) ENDPAGE PAGE nRow += nRowStep * 1 oPrn:Say(nRow,nColStep*1,"PROVA",oFont) nRow += nRowStep * 1 oPrn:Say(nRow,nColStep*01,"CONTO",oFont) nRow ...

... mi esce in bianco #include "FiveWin.ch" FUNCTION stclient() local oPrn, oFont local nRowStep, nColStep local nRow := 0 local nCol := 0 local oPen1 := 0 local m_pagina := 0 DEFINE PEN oPen1 WIDTH 1 COLOR CLR_BLACK PRINT oPrn NAME "Clienti" PREVIEW DEFINE FONT oFont NAME "Courier new" SIZE ...

... := 112 // ultima columna a utilizar LOCAL LstFil := 59 // ultima fila para datos LOCAL nFil1 := 0 LOCAL c, f, cMedio LOCAL oFnt1, oFnt2, oFnt3, oPen1 * LOCAL nPag := 0 LOCAL oPrn LOCAL cDate := STR( DAY( DATE() )) + " de " + ; sp_mes( MONTH( DATE() ) ) + " del " +; str(Year(DATE())) LOCAL TITULO:="LISTADO ...

... SIZE 0,-14 BOLD OF oPrn DEFINE FONT oFnt16 NAME "Arial" SIZE 0,-16 BOLD OF oPrn DEFINE BRUSH oBrush COLOR 14671839 // gris claritillo DEFINE PEN oPen1 WIDTH 5 nRowStep = oPrn:nVertRes() / 20 // We want 20 rows nColStep = oPrn:nHorzRes() / 15 // We want 15 cols //oPrn:SetPortrait() //oPrn:SetLandscape() ...

... STATIC FUNCTION BusCUSU() RETURN NIL //------------------------------------------------------------------ STATIC FUNCTION ImprimeCUSU(oOdbc) LOCAL oPen1, oPen2 LOCAL oFon1, oFon2, oFon3 LOCAL oReport Local oQueryRep Local RepCriterio:= "SELECT * from Cat_USU Order By mater, juzas" Local aDatos ...

... := 112 // ultima columna a utilizar LOCAL LstFil := 59 // ultima fila para datos LOCAL nFil1 := 0 LOCAL c, f, cMedio LOCAL oFnt1, oFnt2, oFnt3, oPen1 * LOCAL nPag := 0 LOCAL oPrn LOCAL cDate := STR( DAY( DATE() )) + " de " + ; sp_mes( MONTH( DATE() ) ) + " del " +; str(Year(DATE())) LOCAL TITULO:="LISTADO ...

... := 112 // ultima columna a utilizar LOCAL LstFil := 59 // ultima fila para datos LOCAL nFil1 := 0 LOCAL c, f, cMedio LOCAL oFnt1, oFnt2, oFnt3, oPen1 * LOCAL nPag := 0 LOCAL oPrn LOCAL cDate := STR( DAY( DATE() )) + " de " + ; sp_mes( MONTH( DATE() ) ) + " del " +; str(Year(DATE())) LOCAL TITULO:="LISTADO ...

... REPORT oReport NAME "Relatório Geral do Estoque" ; TITLE cEmpres,; "Relatório Geral do Estoque",; "",; "" ; FONT oFont1,; oFont2,; oFont3 ; PEN oPen1,; oPen2 ; HEADER "Página.: "+str(oReport:nPage,3), ; "Data: "+dtoc(date()), ; "Hora: "+time() RIGHT ; PREVIEW ..... ..... GROUP ON left(PRO->codi,2) ...

... #INCLUDE "COLORS.CH" #define PAD_LEFT 0 #define PAD_RIGHT 1 #define PAD_CENTER 2 function Main() local oPrn, oFont, oPen1 , oPen2 Local nLinI, nColI, nLinF, nColF PRINT oPrn NAME "Εκτύπωση σε LandScape..." ...

... desde 0.2,0.2 arriva, izq a 9.2 . 15 abajo , derecha en centimetros pcm := 0.2 UTILPRN oUtils MSG "" PCM,2 TO PCM + 9 , 15 ; BRUSH oBrush PEN oPen1 Pero no respeta los centímetros. Ruben Fernandez. Creo que seria lo correcto, segun tu explicacion : UTILPRN oUtils MSG "" PCM,PCM TO PCM + 9 ...

... oemtoansi("Listado de Proveedores ")+cTexto,; "" CENTERED ; FONT oFont1,; oFont2,; oFont3,oFont4,oFont5,oFont6,oFont7,oFont8,oFont9,oFont10 ; PEN oPen1,; oPen2 ; HEADER " ",; "Fecha: "+dtoc(date()),; "Hora: "+LEFT(time(),5),"","","","" ; RIGHT ; FOOTER "Pagina: "+str(oReport:nPage,3),; "" CENTERED ...