unit FLISTADOS;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FR_DSet, FR_DBSet, FR_Class, FR_Desgn, ExtCtrls, FR_BarC,MATH,STRUTILS,DB;

type
  TLISTADOS = class(TForm)
    frReport1: TfrReport;
    FRDB: TfrDBDataSet;
    frDesigner1: TfrDesigner;
    FRDB1: TfrDBDataSet;
    FRDB2: TfrDBDataSet;
    FRDB3: TfrDBDataSet;
    frBarCodeObject1: TfrBarCodeObject;
    procedure frReport1GetValue(const ParName: String;
      var ParValue: VARIANT);
    procedure frReport1PrintColumn(ColNo: Integer; var Width: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
    FECHADESDE,FECHAHASTA,ETIQUETA,TIPO:STRING;
    DETALLE:BOOLEAN;
  end;

var
  LISTADOS: TLISTADOS;

implementation
  USES UDMGS, menu;

{$R *.dfm}

procedure TLISTADOS.frReport1GetValue(const ParName: String;
  var ParValue: VARIANT);
  VAR AUX,CAMPO,CADENA,FIELD,CDS:STRING;
      LONG,ACUM:INTEGER;
begin
  IF FRDB.DataSet <> NIL THEN
    IF FRDB.DataSet.Fields.FindField (PARNAME)<> NIL THEN
      IF  FRDB.DATASET.FIELDVALUES [PARNAME] <> NULL  THEN
           IF FRDB.DataSet.FieldByName(PARNAME).DataType in [ftfloat,ftfmtbcd,ftbcd] then
              PARVALUE :=ROUNDTO(FRDB.DataSet.FieldValues [PARNAME],-2)
           ELSE
              PARVALUE := TRIM(FRDB.DataSet.FieldValues [PARNAME]);
  IF FRDB1.DataSet <> NIL THEN
  BEGIN
    IF FRDB1.DataSet.Fields.FindField (PARNAME)<> NIL THEN
       IF  FRDB1.DATASET.FIELDVALUES [PARNAME] <> NULL  THEN
          IF FRDB1.DataSet.Fields.FindField(PARNAME) <> NIL THEN
          BEGIN
           IF FRDB1.DataSet.FieldByName(PARNAME).DataType = ftfmtbcd THEN
              PARVALUE :=ROUNDTO(FRDB1.DataSet.FieldValues [PARNAME],-2)
           ELSE
              PARVALUE := TRIM(FRDB1.DataSet.FieldValues [PARNAME]);
          END;

    IF PARNAME = 'ID_FORMA' THEN
    BEGIN
     IF  FRDB1.DATASET.FIELDVALUES [PARNAME] <> NULL  THEN
     BEGIN
        DMGS.CDSQ_FORMAPAGOAUX.close;
        DMGS.VFORMAPAGOAUX.ID :=FRDB1.DATASET.FIELDVALUES ['ID_FORMA'];
        DMGS.CDSQ_FORMAPAGOAUX.OPEN;
        PARVALUE := TRIM(DMGS.CDSQ_FORMAPAGOAUXDESCRIPCION.ASSTRING);
        DMGS.CDSQ_FORMAPAGOAUX.CLOSE;
     END;
    END;
 END;
  IF FRDB2.DataSet <> NIL THEN
//  if FRDB2.DataSet.Name  = CDS THEN
    IF   FRDB2.DataSet.Fields.FindField (PARNAME)<> NIL THEN
       IF  FRDB2.DATASET.FIELDVALUES [PARNAME] <> NULL  THEN
           IF FRDB2.DataSet.FieldByName(PARNAME).DataType in [ftfloat,ftfmtbcd,ftbcd] then
              PARVALUE :=ROUNDTO(FRDB2.DataSet.FieldValues [PARNAME],-2)
           ELSE
              PARVALUE := TRIM(FRDB2.DataSet.FieldValues [PARNAME]);


  IF FRDB3.DataSet <> NIL THEN
//  if FRDB3.DataSet.NAME = CDS THEN
    IF FRDB3.DataSet.Fields.FindField (PARNAME)<> NIL THEN
       IF  FRDB3.DATASET.FIELDVALUES [PARNAME] <> NULL  THEN
           IF FRDB3.DataSet.FieldByName(PARNAME).DataType in [ftfloat,ftfmtbcd,ftbcd] then
              PARVALUE :=ROUNDTO(FRDB3.DataSet.FieldValues [PARNAME],-2)
           ELSE
              PARVALUE := TRIM(FRDB3.DataSet.FieldValues [PARNAME]);

   IF PARNAME = 'FECHADESDE' THEN
        PARVALUE := FECHADESDE;
   IF PARNAME = 'FECHAHASTA' THEN
        PARVALUE := FECHAHASTA;
   IF PARNAME = 'NOMBREEMP' THEN
        PARVALUE := FMENU.NOMBREEMPRESA;
   IF PARNAME = 'ETIQUETA' THEN
        PARVALUE := ETIQUETA;

end;

procedure TLISTADOS.frReport1PrintColumn(ColNo: Integer;
  var Width: Integer);
begin
// HOLA
end;

end.