este es el codigo: STAT FUNC ExportarTodos() *----------------------------- LOCAL oGraph1, oBar,oDlg,oFnt1,oFnt2 LOCAL oGraph2,oShape LOCAL aVenta:={} LOCAL nTotReg:=0 LOCAL ntotal:=0 Local ntotVenta:=0 Local nMes,ndia LOCAL aGets := Array( 30 ) Local I Local nValor:=0 Local ...
Antonio, with TRANSPARENT clause in dialog I have now a little problem. DEFINE DIALOG oDlg RESOURCE "lis_de" FONT oFnt2 COLOR CLR_RED , nColore TRANSPARENT If the dbf vieved by twbrowse object contains a few records the bottom of the dialog is of the same color of dialog itself. ...
... the twbrose has 16 obiejcts: button, get, btnbmp etc. etc. I declare it in this way: DEFINE DIALOG oDlg RESOURCE "lis_de" FONT oFnt2 I use Pelles to create it! For a Windows I have to use these jind of commands @ 1 , 1 GET oGet VAR cGet instead of REDEFINE gET oGet VAR cGet ...
... *-------------------- Local cPuerto:="LPT1" Local oPrn,fila,copia,pagina,I,linea,nRow,oPen1,oFnt1,oFnt2,oFnt3,oFnt4,oFnt5 Local nTotVenta:=0 Local nLargo:=Len(aDatos) oPrn:=TDosPrn():New(cPuerto) oPrn:command( "27","67", "33" ...
... Return Nil ****************************************************************** Static Function aImpresora(cTexto, lChkBox, nCopias) local oFnt1, oFnt2, oFnt3, oFnt4, oFnt5 local nlinea:=75, nAncho:=2600 local nSeparacion:=19, nSaltoLinea:=60 local nColumna:=1000 local nCentro:=1400 local Imagen1:="logos\Aguila.bmp" ...
Hola Manuel, Ojala sea esto lo que andas buscando, como poner con treport un dato vertical, prueba esto : Local oFnt,oFnt2,oPen1,oReport,oFont9,oFont10 DEFINE FONT oFnt NAME "Arial" SIZE 0,-10 DEFINE FONT oFnt2 NAME "Arial" SIZE 0,-8 NESCAPEMENT 900 DEFINE FONT oFont9 NAME "Arial" ...
... LOCAL LstCol := 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())) ...
... No way, this is my source code PrnSetSize( 650, 250 ) PRINTER oPrt Preview DEFINE FONT oFnt1 NAME "ARIAL" SIZE 0,-6 OF oPrt BOLD DEFINE FONT oFnt2 NAME "ARIAL" SIZE 0,-8 OF oPrt BOLD DEFINE FONT oFnt3 NAME "ARIAL" SIZE 0,-9 OF oPrt BOLD oTxtFile = TTxtFile():New(cFile,0) oTxtFile:GOTOP() ...
... oPrn End End Define Font oFnt Name "Arial" Size 0,-8 OF oPrn Define Font oFnt1 Name "Arial" Size 0,-6 OF oPrn Nescapement 45 * 100 Define Font oFnt2 Name "Arial" SIZE 0,-12 BOLD OF oPrn Define Font oFnt3 Name "Arial" Size 0,-6 OF oPrn Bold oPrn : SetPage( DMPAPER_USER ) // DMPAPER_USER 256 ...
... #DEFINE bitmaps curdir()+"\bitmaps" DEFINE FONT oFnt NAME "Arial" SIZE 0,12 DEFINE FONT oFnt2 NAME "Arial" SIZE 0,12 BOLD DEFINE WINDOW _oWND TITLE "Prueba Foro FWPPC" USE (data+"\clientes.dbf") ALIAS ...
... la impresion en vertical PrnSetSize( 2100, 2970 ) //Tamaño de la pagina DEFINE FONT oFnt1 NAME "Arial" SIZE 0,-7 BOLD OF oPrn DEFINE FONT oFnt2 NAME "Arial" SIZE 0,-13 BOLD OF oPrn DEFINE FONT oFnt3 NAME "Arial" SIZE 0,-15 BOLD OF oPrn DEFINE FONT oFnt4 NAME "Arial" SIZE 0,-24 BOLD OF ...
... LOCAL LstCol := 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())) ...