63
PDF. SetScript(" <+>var ");
PDF. SetScript("<+> x : integer;");
PDF. SetScript(" <+>begin ");
PDF. SetScript("<+> if DBField('Type').asInteger = 1 then");
PDF. SetScript(" <+> begin ");
PDF. SetScript(" <+> setPropObj('field8', 605, '50' ); // Text X Position ");
PDF. SetScript(" <+> setPropObj('field8', 100, 'F2' ); // Font F2 is for a bold font ");
PDF. SetScript("<+> setPropObj('field8', 104, '1' ); // Underline");
PDF. SetScript("<+> setPropObj('field9', 611, '0' ); // Set invidible the quantity");
PDF. SetScript("<+> setPropObj('field32', 611, '0' ); // Set invidible the price field");
PDF. SetScript("<+> end");
PDF. SetScript("<+> else");
PDF. SetScript("<+> begin");
PDF. SetScript("<+> setPropObj('field8', 605, '96' ); // Text X Position");
PDF. SetScript("<+> setPropObj('field8', 100, 'F1' ); // Font");
PDF. SetScript("<+> setPropObj('field8', 104, '0' ); // Underline off");
PDF. SetScript("<+> setPropObj('field9', 611, '1' ); // Quantity visible");
PDF. SetScript("<+> setPropObj('field32', 611, '1' ); // Price visible");
PDF. SetScript("<+> end;");
PDF. SetScript("<+> Result := True;");
PDF. SetScript("<+>end;");
private void DoPageVEP_1(aspPDF.EASYPDF PDF)
{
PDF. SetReportPage ();
PDF. Page("A4", 0);
PDF. AddDBBand (5, 135);
PDF. AddDBBand (20, 15);
PDF. AddDBBand (35, 43);
PDF. AddDBConnection (" connection4 ", "Driver={MYSQL};Host=192.168.0.2;Database=""MITGestion"";Port=3306;User
ID=root;Password=", 20);
PDF. SetDBSQL ("connection4", "SELECT f.*, f.Fabricacion_ID, f1.*, f1.Fabricacion_LineaID_SUB, f1.Posicion, f1.Tipo,
(f1.Precio * f1.Cantidad) PrecioToal FROM fabricaciones f, fabricaciones_detalles f1 WHERE
f.Fabricacion_ID=f1.Fabricacion_ID AND f.Fabricacion_ID = :FabricacionID AND (f1.Tipo = 1 OR f1.Tipo = 2 OR f1.Tipo =
4) ORDER BY f1.Fabricacion_LineaID, f1.Posicion ");
PDF. SetFont("F1", 12.5, "# 000000 ");
PDF. AddDBText(" field6 ", 392, 74, 107, " connection4 ", " Fabricacion_ID ", 0);
PDF. SetFont("F1", 10, "#000000");
PDF. SetDBBandActive(20);
PDF. AddDBText("field7", 8, 8, 89, "connection4", " Producto_ID ", 0);
PDF. AddDBText("field8", 96, 8, 169, "connection4", " Texto ", 0);
PDF. SetProperty (102, 1);
PDF. AddDBText("field9", 288, 8, 42, "connection4", " Cantidad ", 0);
PDF. SetPropObj("field9", 905, "%.2n");
PDF. SetFont("F1", 20, "#000000");
PDF. SetDBBandActive(5);
PDF. AddTextPos (160, 32, "ESCANDALLOS COMPLETOS");
PDF. SetFont("F1", 12.5, "#000000");
PDF. SetProperty (102, 0);
PDF. AddDBText(" field31 ", 504, 8, 82, " connection4 ", " PrecioToal ", 0);
PDF. SetPropObj(" field31 ", 905, "%.2n €");
PDF. AddDBText(" field32 ", 408, 8, 62, " connection4 ", " Precio ", 0);
PDF. SetPropObj(" field32 ", 905, "%.2n €");
PDF. SetDBBandActive(35);
PDF. AddLine(0, 3, 600, 3);
PDF. SetFont(" F1 ", 12.5, "# 000000 ");
PDF. SetDBBandActive(5);
PDF. AddTextPos (32, 74, " Referencia :");
PDF. AddTextPos (24, 90, " Descripción :");
PDF. AddDBBand (6, 6);
PDF. AddDBBand (34, 23);
- aspEasyPDF -
147 / 325
Generated with aspEasyPDF library using demo sample CHM2PDF