TprxADODataSet Options Impresion RB Comprobante

De Pragma Wiki
Revisión del 21:27 5 jun 2025 de Luciano Carou (discusión | contribs.) (Página creada con «=Descripción= El componente '''TprxADODataSet_Options_Impresion_RB_Comprobante''' (Componente para imprimir un comprobante usando reportBuilder.) implementa la funcionalidad para imprimir un comprobante diseñado con Eeport Builder. Este componente se usa en las clases derivadas de: *cmpCABECERA_pragma_XTD *cmpCABECERA Ver TTfvsDBClientFrameCmpCabecera y TprxCmpCABECERA. =Identidad= Category:MANUAL/PROGRAMADOR Category:IMPRESI…»)
(difs.) ← Revisión anterior | Revisión actual (difs.) | Revisión siguiente → (difs.)
Ir a la navegación Ir a la búsqueda

Descripción

El componente TprxADODataSet_Options_Impresion_RB_Comprobante (Componente para imprimir un comprobante usando reportBuilder.) implementa la funcionalidad para imprimir un comprobante diseñado con Eeport Builder.

Este componente se usa en las clases derivadas de:

  • cmpCABECERA_pragma_XTD
  • cmpCABECERA

Ver TTfvsDBClientFrameCmpCabecera y TprxCmpCABECERA.

Identidad

Declaración

  type
    TprxADODataSet_Options_Impresion_RB_Comprobante = class(TprxADODataSet_Options_Impresion_RB)
  private
    FcmpFORMA_SQL: TStringList;
  protected
    function    NewReportName: String; override;
    procedure   Set_argDataSet(aValue: TDataSet); override;

    property    cmpFORMA_SQL: TStringList read FcmpFORMA_SQL write FcmpFORMA_SQL;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;

    function    CargarDefinicion: Boolean; override;

    procedure   GetPopupOptions(Sender: TprxPopupMenu); override;

    function    ImprimirComprobante(aComprobante: String; aTabla: String; aDataSet: TCustomADODataSet): Boolean;
  published
  end;

Implementación

procedure Set_argDataSet(aValue: TDataSet)

Cuando asignamos el dataset al componente busca las definiciones de impresión asociadas a la familia de comprobantes (cmpFORMA y cmpFORMAD), usa un SQL similar a:

SELECT
cmpFORMA.FFAMILIA
, cmpFORMA.FCLASE
, FDESCRIPCION = prxclases.Descripcion
, cmpFORMA.FMASTER
, cmpFORMAD.FLINEA
, cmpFORMAD.FCOMANDO
FROM cmpFORMA, cmpFORMAD, prxclases WHERE
cmpFORMA.FFAMILIA = @FAMILIA_COMPROBANTE
AND cmpFORMAD.FFAMILIA = cmpFORMA.FFAMILIA
AND cmpFORMAD.FCLASE = cmpFORMA.FCLASE
AND prxclases.Codigo = cmpFORMA.FCLASE
ORDER BY cmpFORMA.FFAMILIA, cmpFORMA.FMASTER DESC, cmpFORMA.FCLASE, cmpFORMAD.FLINEA

function CargarDefinicion: Boolean

Carga la definición del comprobante.

procedure GetPopupOptions(Sender: TprxPopupMenu)

Agrega las opciones de impresión del comprobante al menú de impresión.

function ImprimirComprobante(aComprobante: String; aTabla: String; aDataSet: TCustomADODataSet): Boolean

Imprime el comprobante.