Tema: Compatibilidad versiones Delphi
Ver Mensaje Individual
  #3  
Antiguo 23-05-2019
jhonalone jhonalone is offline
Miembro
  
Registrado: sep 2007
Ubicación: Madrid
Posts: 547
Reputación: 17
jhonalone Va por buen camino
Gracias Casimiro.
No conocía esta opción.

Foto de la impresión con Seattle.

Foto de la impresion con Tokyo.

Y este es el código de impresión. Como podéis ver es una factura. (Siento que sea un poco largo...)
Código Delphi [-]
function IH(N:integer):integer;
var
   I:real;
begin

I:=Printer.Pagewidth/2892;
//I:=GetDeviceCaps(Printer.Handle,Physicalwidth)/2481;
IH:=Round(i*N);

end;

function IV(N:integer):integer;
var
   I:real;
begin  //ShowMessage('Alto = '+Printer.PageHeight.ToString);
I:=Printer.PageHeight/4125;
//I:=GetDeviceCaps(Printer.Handle,PhysicalHeight)/3507;
IV:=Round(i*N);

end;

procedure TEmpe.Imprimir;
VAR
XX, YY, Pagina, TotalPaginas:INTEGER;
SumaySigue : Double;

procedure NumeraPagina;
var
  MyRect:TrectF;
begin
with Printer.Canvas
do begin
   try
        Font.Size   := Form1.Pica.Font.Size;
        Font.Family := Form1.Pica.Font.Family;
        Font.Style  := Form1.Pica.Font.Style;
        Fill.Color :=  Form1.Pica.TextSettings.FontColor;
        MyRect.Create(IH(125),IV(Printer.PageHeight-200),ih(Printer.PageWidth-150),iv(Printer.PageHeight-100));
        FillText(MyRect, 'Página '+Pagina.ToString+' de '+TotalPaginas.ToString, false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Leading, TTextAlign.Center);
   finally
   end;
   end;
end;

procedure Resumen;
var
  MyRect:TrectF;
  v1 : Integer;
  S : String;
begin
with Printer.Canvas
do begin
   try
                               // RESUMEN DEL DETALLE


      v1 := 3000; // 3000 es el Final del detalle
      while xx < DetallaEmpe.StringGrid1.RowCount // La última línea la escribimos sola
      do begin
         // Apartados Globales

         if (DetallaEmpe.StringGrid1.Cells[2, xx] = '..................') and
            (DetallaEmpe.StringGrid1.Cells[3, xx] <> '0,00') // Descuentos y entregas a 0 no se imprimen
         then begin

              S := DetallaEmpe.StringGrid1.Cells[1, xx];
              if S.IndexOf('I.V.A.') <> -1 // Si es iva hay que darle la vuelta para evitar que el sistema trastoque la String
              then begin
                   S := S.Substring(S.Length-6,6) +' '+ S.Substring(0,7);
                   DetallaEmpe.StringGrid1.Cells[1, xx] := S;
                   end;

              S := DetallaEmpe.StringGrid1.Cells[3, xx];
              while S.Length < 10 do S := ' ' + S;  // para que todas las cantidades sean igual de anchas
              S := DetallaEmpe.StringGrid1.Cells[1, xx] + '.......' + S;

              Font.Size   := Form1.Consolas.Font.Size;
              Font.Family := Form1.Consolas.Font.Family;
              Font.Style  := Form1.Consolas.Font.Style;
              Fill.Color :=  Form1.Consolas.TextSettings.FontColor;
              MyRect.Create(IH(125),IV(v1),ih(Printer.PageWidth-150),iv(v1+100));
              FillText(MyRect, S, false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Leading, TTextAlign.Center);
              V1 := V1 + 75; // Siquiente renglon
              end;

         // Apartados de detalle de los Descuentos y las Enatregas
         if (DetallaEmpe.StringGrid1.Cells[3, xx] = '') // Descuentos y entregas a 0 no se imprimen
         then begin
             // V1 := V1 - 25; // Letra mas pequeña y más junta
              S := DetallaEmpe.StringGrid1.Cells[2, xx];

              while S.Length < 10 do S := ' ' + S;
              S := ' El ' +
                   DetallaEmpe.StringGrid1.Cells[0, xx] + ' por importe de ' + S;

              Font.Size   := Form1.Pica2.Font.Size;
              Font.Family := Form1.Pica2.Font.Family;
              Font.Style  := Form1.Pica2.Font.Style;
              Fill.Color :=  Form1.Pica2.TextSettings.FontColor;
              MyRect.Create(IH(125),IV(v1),ih(Printer.PageWidth-550),iv(v1+75));
              FillText(MyRect, S, false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Leading, TTextAlign.Center);
              if DetallaEmpe.StringGrid1.Cells[3, xx+1] = ''
              then V1 := V1 + 50 // Hay 2 ó + descuentos, o 2 ó + entregas
              else V1 := V1 + 75; // Siquiente renglon
              end;
         Inc(xx);
         end;
   finally
   end;
   end;
end;


Procedure PonerLogo;
var
  Rect : TRectF;
  Rect2: TRectF;
  Map  : FMX.Graphics.TBitmap;
begin
with Printer.Canvas
do begin
   Map := FMX.Graphics.TBitmap.Create();
   Map.LoadFromFile('Icono144x144.bmp');
   Rect := TRectF.Create(0,0,Map.Width,Map.Height);

                         // Para mover la imagen 1 y 3 (Dcha o izda)
                         //(Aumenta los mismos Px a la derecha)
                         //(Disminuye los mismos Px a la Izda)

                         // Para mover la imagen 2 y 4 (Arriba y abajo)
                         //(Aumenta los mismos Px baja)
                         //(Disminuye los mismos Px Sube)

                         // Para deformar la imagen 1 y 3 (Dcha o izda)
                         // el 1 (Si aumenta APLASTA y si disminuye ESTIRA la parte IZQUIERDA)
                         // el 3 (Si aumenta ESTIRA y si disminuye APLASTA la parte DERECHA)

                         // Para deformar la imagen 2 y 4 (Arriba y abajo)
                         // el 2 (Si aumenta APLASTA y si disminuye ESTIRA por la parte SUPERIOR)
                         // el 4 (Si aumenta ESTIRA y si disminuye APLASTA por la parte INFERIOR)

                         { 1 }{ 2 }{ 3 }{ 4 }
   Rect2 := TRectF.Create(350, 000, 765, 360);
   try
   //Printer.BeginDoc;
   DrawBitmap(Map, Rect, Rect2, 20, True);
   //Printer.EndDoc;
   finally
   Map.Free;
   end;
   end;
end;

PROCEDURE  CABECERA;
var
MyRect:TrectF;
p1,p2 : TPointF;
S, S2 : String;
Linea, CuentaLineas ,V1, V2, I: integer;
BEGIN

try //ShowMessage('Aqui');
Printer.BeginDoc;

 if PortaNombr.Chars[PortaNombr.Length - 1] = '.'  //FillText pone el punto del final al principio
 then PortaNombr := PortaNombr.Remove(PortaNombr.Length - 1,1);

 pagina:=pagina+1;

with Printer.canvas
do begin
   // Rectangulo
   MyRect.Create(IH(125),IV(1050),ih(Printer.PageWidth-150),iv(3000));
   DrawRect(MyRect, 0, 0, AllCorners, 100);

   //Lineas horizontales
   V1 := 1200;
   for I := 1 to 18
   do begin
      p1 := TPointF.Create(IH(125),IV(V1));
      p2 := TPointF.Create(ih(Printer.PageWidth-150),iv(V1));
      DrawLine(p1,p2,100);
      V1 := V1 + 100;
      end;

   // Lineas verticales
   p1 := TPointF.Create(IH(450),IV(1050));
   p2 := TPointF.Create(ih(450),iv(3000));
   DrawLine(p1,p2,100);

   p1 := TPointF.Create(IH(1975),IV(1050));
   p2 := TPointF.Create(ih(1975),iv(3000));
   DrawLine(p1,p2,100);

   p1 := TPointF.Create(IH(2350),IV(1050));
   p2 := TPointF.Create(ih(2350),iv(3000));
   DrawLine(p1,p2,100);

   // Tipo de documento
   Font.Size   := Form1.Doble.Font.Size;
   Font.Family := Form1.Doble.Font.Family;
   Font.Style  := Form1.Doble.Font.Style;
   Fill.Color :=  Form1.Doble.TextSettings.FontColor;
   MyRect.Create(IH(125),IV(100),ih(Printer.PageWidth-150),iv(200));
   FillText(MyRect, 'Trabajo en Curso', false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Center, TTextAlign.Center);

   // Comentario
   if DetallaEmpe.StringGrid1.Cells[1, 0] <> ''
   then begin
        Font.Size   := Form1.Pica.Font.Size;
        Font.Family := Form1.Pica.Font.Family;
        Font.Style  := Form1.Pica.Font.Style;
        Fill.Color :=  Form1.Pica.TextSettings.FontColor;
        MyRect.Create(IH(125),IV(200),ih(Printer.PageWidth-150),iv(300));
        FillText(MyRect, DetallaEmpe.StringGrid1.Cells[1, 0], false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Center, TTextAlign.Center);
       end;

// Títulos dee las columnas de detalla
Font.Size   := Form1.Enfatica3.Font.Size;
Font.Family := Form1.Enfatica3.Font.Family;
Font.Style  := Form1.Enfatica3.Font.Style;
Fill.Color :=  Form1.Enfatica3.TextSettings.FontColor;

MyRect.Create(IH(125),IV(1050),ih(450),iv(1200));
FillText(MyRect, 'Cantidad', false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Center, TTextAlign.Center);

MyRect.Create(IH(450),IV(1050),ih(1975),iv(1200));
FillText(MyRect, 'C o n c e p t o', false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Center, TTextAlign.Center);

MyRect.Create(IH(1975),IV(1050),ih(2350),iv(1200));
FillText(MyRect, 'Precio', false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Center, TTextAlign.Center);

MyRect.Create(IH(2350),IV(1050),ih(Printer.PageWidth-150),iv(1200));
FillText(MyRect, 'Total', false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Center, TTextAlign.Center);


                     // E M P R E S A R I O

if PortaNif <> '' // Es FACTURA
then begin
// Empresario
     PonerLogo;
     Font.Size   := Form1.Empresario.Font.Size;
     Font.Family := Form1.Empresario.Font.Family;
     Font.Style  := Form1.Empresario.Font.Style;
     Fill.Color :=  Form1.Empresario.TextSettings.FontColor;
     MyRect.Create(IH(125),IV(325+40),ih(Printer.PageWidth div 2),iv(425+40));
     FillText(MyRect, NomE , false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Trailing, TTextAlign.Center);

// Nif y Telefono
        Font.Size   := Form1.Enfatica.Font.Size;
        Font.Family := Form1.Enfatica.Font.Family;
        Font.Style  := Form1.Enfatica.Font.Style;
        Fill.Color :=  Form1.Enfatica.TextSettings.FontColor;
        MyRect.Create(IH(125),IV(450+40),ih(Printer.PageWidth-150),iv(525+40));
        FillText(MyRect, 'N.I.F: '+ NifE +
                      '   Teléf: ' + TelE.Substring(0,3)+' '+
                                     TelE.Substring(3,2)+' '+
                                     TelE.Substring(5,2)+' '+
                                     TelE.Substring(7,2) , false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Trailing, TTextAlign.Center);

// Direccion, Poblacion y provincia
     Font.Size   := Form1.Enfatica.Font.Size;
     Font.Family := Form1.Enfatica.Font.Family;
     Font.Style  := Form1.Enfatica.Font.Style;
     Fill.Color :=  Form1.Enfatica.TextSettings.FontColor;

// Direccion
        MyRect.Create(IH(125),IV(525+40),ih(Printer.PageWidth div 2),iv(600+40));
        FillText(MyRect, DirE, false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Trailing, TTextAlign.Center);
// CP
        MyRect.Create(IH(125),IV(600+40),ih(Printer.PageWidth div 2),iv(675+40));
        FillText(MyRect,PobE.Substring(0,5), {+ ' ' + ProvE} false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Trailing, TTextAlign.Center);
// Poblacion
        MyRect.Create(IH(300),IV(600+40),ih(Printer.PageWidth div 2),iv(675+40));
        FillText(MyRect,PobE.Substring(6,PobE.Length-6){+ ' ' + ProvE}, false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Trailing, TTextAlign.Center);
// Provincia
        MyRect.Create(IH(125),IV(675+40),ih(Printer.PageWidth div 2),iv(750+40));
        FillText(MyRect, ProvE, false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Trailing, TTextAlign.Center);
     end; // Si es FACTURA

                             // C L I E N T E

// Título de Cliente
     Font.Size   := Form1.Titulo.Font.Size;
     Font.Family := Form1.Titulo.Font.Family;
     Font.Style  := Form1.Titulo.Font.Style;
     Fill.Color :=  Form1.Titulo.TextSettings.FontColor;
     MyRect.Create(ih(Printer.PageWidth div 2 - 100),IV(325),ih(Printer.PageWidth -150),iv(475));
     FillText(MyRect, 'Cliente' , false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Center, TTextAlign.Center);

// Nombre del Cliente
     Font.Size   := Form1.Cliente.Font.Size;
     Font.Family := Form1.Cliente.Font.Family;
     Font.Style  := Form1.Cliente.Font.Style;
     Fill.Color :=  Form1.Cliente.TextSettings.FontColor;
     MyRect.Create(ih(Printer.PageWidth div 2)+150,IV(450),ih(Printer.PageWidth -150),iv(550));
     FillText(MyRect, PortaNombr , false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Trailing, TTextAlign.Center);



// Nif y Telefono
        Font.Size   := Form1.Enfatica2.Font.Size;
        Font.Family := Form1.Enfatica2.Font.Family;
        Font.Style  := Form1.Enfatica2.Font.Style;
        Fill.Color :=  Form1.Enfatica2.TextSettings.FontColor;
        MyRect.Create(ih(Printer.PageWidth div 2)+150,IV(550),ih(Printer.PageWidth -150),iv(600));
     if PortaNif <> ''   // Si tiene NIF
     then begin
          FillText(MyRect, 'N.I.F: '+ PortaNif +
                       '   Teléf: ' + PortaTelef.Substring(0,3)+' '+
                                      PortaTelef.Substring(3,2)+' '+
                                      PortaTelef.Substring(5,2)+' '+
                                      PortaTelef.Substring(7,2) , false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Trailing, TTextAlign.Center);

          end
     else begin
          FillText(MyRect,{ 'N.I.F: '+ PortaNif + }
                          'Teléf: ' + PortaTelef.Substring(0,3)+' '+
                                      PortaTelef.Substring(3,2)+' '+
                                      PortaTelef.Substring(5,2)+' '+
                                      PortaTelef.Substring(7,2) , false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Trailing, TTextAlign.Center);
          end;

// Direccion  (Primera linea) Si hay
   S := PortaDirec;
   V1 := 600;
   V2 := 660;
   Linea := 0;
   while S <> ''
   do begin
      Inc(Linea);
      if Linea <> 2
      then begin
           if S.IndexOf(#10) > -1 // PortaDirec no lleva #13#10 al final
           then S2 := S.Substring(0,S.IndexOf(#13))
           else S2 := S;
                if S2.Chars[S2.Length - 1] = '.'  //FillText pone el punto del final al principio
                then S2 := S2.Remove(S2.Length - 1,1);
           MyRect.Create(ih(Printer.PageWidth div 2)+150,IV(V1),ih(Printer.PageWidth -150),iv(V2));
           FillText(MyRect, S2, False, 100,[TFillTextFlag.RightToLeft], TTextAlign.Trailing, TTextAlign.Center);
           end
      else begin // Controlamos el Codigo Postal
           if S.IndexOf(#10) > -1 // PortaDirec no lleva #13#10 al final
           then S2 := S.Substring(0,S.IndexOf(#13))
           else S2 := S;
                if S2.Chars[S2.Length - 1] = '.'  //FillText pone el punto del final al principio
                then S2 := S2.Remove(S2.Length - 1,1);
           MyRect.Create(ih(Printer.PageWidth div 2)+150,IV(V1),ih(Printer.PageWidth -150),iv(V2));
           FillText(MyRect, S2.Substring(0,5), False, 100,[TFillTextFlag.RightToLeft], TTextAlign.Trailing, TTextAlign.Center);
           MyRect.Create(ih(Printer.PageWidth div 2)+300,IV(V1),ih(Printer.PageWidth -150),iv(V2));
           FillText(MyRect, S2.Substring(6,S2.Length-6), False, 100,[TFillTextFlag.RightToLeft], TTextAlign.Trailing, TTextAlign.Center);
           end;
      V1 := V2;
      V2 := V2 + 60;
      if S.IndexOf(#10) > -1 // PortaDirec no lleva #13#10 al final
      then S := S.Remove(0,S.IndexOf(#10)+1)
      else S := '';

      end;


// Numero de documento y fecha
        Font.Size   := Form1.PicaNegra.Font.Size;
        Font.Family := Form1.PicaNegra.Font.Family;
        Font.Style  := Form1.PicaNegra.Font.Style;
        Fill.Color :=  Form1.PicaNegra.TextSettings.FontColor;
        MyRect.Create(IH(125),IV(950),ih(Printer.PageWidth-150),iv(1010));
        FillText(MyRect, 'Trabajo en Curso Núm: TE'+PortaRef+'     Fecha: '+
        PortaFInic, false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Center, TTextAlign.Center);

                          // D E T A L L E

        Font.Size   := Form1.PicaNegra.Font.Size;
        Font.Family := Form1.PicaNegra.Font.Family;
        Font.Style  := Form1.PicaNegra.Font.Style;
        Fill.Color :=  Form1.PicaNegra.TextSettings.FontColor;

    v1 := 1200;
    CuentaLineas := 0;
    //xx := 1; // El 0 es el comentario  esto lo inicializamos al empezar a imprimir
    while (CuentaLineas < 18) and  // no ha completado la Pagina
          (DetallaEmpe.StringGrid1.Cells[1, xx] <> 'Total Materiales y Mano de Obra')
    do begin
        MyRect.Create(IH(125),IV(v1),ih(450),iv(v1+100));
        FillText(MyRect, DetallaEmpe.StringGrid1.Cells[0, xx], false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Leading, TTextAlign.Center);

        MyRect.Create(IH(450),IV(v1),ih(1975),iv(v1+100));
        FillText(MyRect, DetallaEmpe.StringGrid1.Cells[1, xx], false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Trailing, TTextAlign.Center);

        MyRect.Create(IH(1975),IV(v1),ih(2350),iv(v1+100));
        FillText(MyRect, DetallaEmpe.StringGrid1.Cells[2, xx], false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Leading, TTextAlign.Center);

        MyRect.Create(IH(2350),IV(v1),ih(Printer.PageWidth-150),iv(v1+100));
        FillText(MyRect, DetallaEmpe.StringGrid1.Cells[3, xx], false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Leading, TTextAlign.Center);

        v1 := v1 + 100;

        S := DetallaEmpe.StringGrid1.Cells[3, xx];
        while S.IndexOf('.') <> -1
              do S := S.Remove(S.IndexOf('.'), 1);
        SumaySigue := SumaySigue + S.ToDouble;

        Inc(xx);

        Inc(CuentaLineas);
       end; // while del Detalle

       if  (Pagina = TotalPaginas) // Es la última página
       then Resumen
       else begin   // Ponemos Suma y sigue
            MyRect.Create(IH(125),IV(3300),ih(Printer.PageWidth-150),iv(3400));
            FillText(MyRect, 'Suma y Sigue................'+Format( '%n', [SumaySigue] ), false, 100,[TFillTextFlag.RightToLeft], TTextAlign.Leading, TTextAlign.Center);
            end;

       NumeraPagina;

   end; //With Printer.Canvas

Printer.EndDoc;
   except
   Printer.Abort;
   raise;
end;{try}
END;

BEGIN // Imprimir

xx := 1; // El 0 es el comentario  la ponemos aqui porque es el contador de líneas

Pagina := 0;
SumaySigue := 0.00;

//Calculaamos las páginas
yy := 1; // para calcular las lineas de detalle no cuenta el 0 que es el comentario
while  (DetallaEmpe.StringGrid1.Cells[1, yy+1] <> 'Total Materiales y Mano de Obra')
do Inc(yy);
TotalPaginas := yy div 18;
if yy mod 18 > 0
then TotalPaginas := TotalPaginas + 1;

//Printer.ActivePrinter.ActiveDPIIndex := 1;
Printer.ActivePrinter.SelectDPI(600,600);


repeat

   Cabecera;

until Pagina = TotalPaginas;

END; // Imprimir
__________________
"Pedid y se os dará; buscad y hallaréis ..." (Lc 11,9-10)
"...si no tengo caridad, nada soy..." (1 Cor 13,1-13)
Responder Con Cita