https://documentacion.conarpesa.com.ar/index.php?action=history&feed=atom&title=TprxADODataSet_Options_Impresion_RB 2026-05-05T22:42:45Z Historial de revisiones de esta página en la wiki MediaWiki 1.41.1 https://documentacion.conarpesa.com.ar/index.php?title=TprxADODataSet_Options_Impresion_RB&diff=27831&oldid=prev 2025-06-05T19:44:34Z

<p>Página creada con «=Descripción= El componente &#039;&#039;&#039;TprxADODataSet_Options_Impresion_RB&#039;&#039;&#039; (Componente ancestro para imprimir usando reportBuilder.) implementa la funcionalidad básica para los reportes diseñados con Report Builder. =<a href="/index.php?title=QUEESESTO/IDENTIDAD&amp;action=edit&amp;redlink=1" class="new" title="QUEESESTO/IDENTIDAD (la página no existe)">Identidad</a>= <a href="/index.php?title=Categor%C3%ADa:MANUAL/PROGRAMADOR" title="Categoría:MANUAL/PROGRAMADOR">Category:MANUAL/PROGRAMADOR</a> <a href="/index.php?title=Categor%C3%ADa:IMPRESION" title="Categoría:IMPRESION">Category:IMPRESION</a> *Ancestro: <a href="/index.php?title=TprxADODataSet_Options_Impresion" title="TprxADODataSet Options Impresion">TprxADODataSet_Options_Impresion</a> *Carpeta: C:\DevelopPrx\library *Archivo: prxADODataSet_Options_Impresion_RB.pas =Declaración pipelines= Los pipeline…»</p> <p><b>Página nueva</b></p><div>=Descripción=<br /> El componente &#039;&#039;&#039;TprxADODataSet_Options_Impresion_RB&#039;&#039;&#039; (Componente ancestro para imprimir usando reportBuilder.) implementa la funcionalidad básica para los reportes diseñados con Report Builder.<br /> =[[QUEESESTO/IDENTIDAD|Identidad]]=<br /> [[Category:MANUAL/PROGRAMADOR]]<br /> [[Category:IMPRESION]]<br /> *Ancestro: [[TprxADODataSet_Options_Impresion]]<br /> *Carpeta: C:\DevelopPrx\library<br /> *Archivo: prxADODataSet_Options_Impresion_RB.pas<br /> <br /> =Declaración pipelines=<br /> Los pipelines son componentes de Report Builder que representan a cada dataset de una pantalla.<br /> &lt;pre&gt;<br /> type<br /> TprxRB_Pipeline = class(TppDBPipeline)<br /> private<br /> FPRINT_SQL: TStringList;<br /> FPRINT_PARSER: Tfva_parser_fbn;<br /> protected<br /> public<br /> constructor Create(AOwner: TComponent); override;<br /> destructor Destroy; override;<br /> <br /> property PRINT_SQL: TStringList read FPRINT_SQL write FPRINT_SQL;<br /> property PRINT_PARSER: Tfva_parser_fbn read FPRINT_PARSER write FPRINT_PARSER;<br /> end;<br /> &lt;/pre&gt;<br /> <br /> =Declaración=<br /> &lt;pre&gt;<br /> type<br /> TprxADODataSet_Options_Impresion_RB = class(TprxADODataSet_Options_Impresion)<br /> private<br /> FReportType: TprxClassImpresionReportBuilderType;<br /> FReportRB: TppReport;<br /> FReportList: TStringList;<br /> FDesignerRB: TppDesigner;<br /> <br /> FTexto_Imprimir: String;<br /> FTexto_Diseñar: String;<br /> FTexto_AgregarUnReporte: String;<br /> FTexto_AgregarUnComprobante: String;<br /> <br /> // 04/06/2019...<br /> <br /> FPRINT_SQL: TStringList;<br /> FPRINT_QRY: TprxADOQuery;<br /> FPRINT_DATASET: TDataSet;<br /> protected<br /> Pipelines: array[1..maxPipelines] of TprxRB_Pipeline; // TppDBPipeline;<br /> PipelinesCount: Integer;<br /> <br /> procedure Set_argDataSet(aValue: TDataSet); override;<br /> <br /> function NewReportName: String; virtual;<br /> <br /> function Comprobante: String;<br /> <br /> function StripReportName(var aCaption: String): Boolean;<br /> <br /> procedure PrintReport(aReportName: String);<br /> <br /> procedure PrintReportClick(Sender: TObject); overload;<br /> procedure PrintReportClick(aCaption: String); overload;<br /> <br /> procedure DesignReportClick(Sender: TObject); virtual;<br /> procedure AddReportClick(Sender: TObject);<br /> <br /> property ReportType: TprxClassImpresionReportBuilderType read FReportType write FReportType;<br /> property ReportRB: TppReport read FReportRB write FReportRB;<br /> property ReportList: TStringList read FReportList write FReportList;<br /> property DesignerRB: TppDesigner read FDesignerRB write FDesignerRB;<br /> <br /> property Texto_Imprimir: String read FTexto_Imprimir write FTexto_Imprimir;<br /> property Texto_Diseñar: String read FTexto_Diseñar write FTexto_Diseñar;<br /> property Texto_AgregarUnReporte: String read FTexto_AgregarUnReporte write FTexto_AgregarUnReporte;<br /> property Texto_AgregarUnComprobante: String read FTexto_AgregarUnComprobante write FTexto_AgregarUnComprobante;<br /> <br /> property PRINT_SQL: TStringList read FPRINT_SQL write FPRINT_SQL;<br /> property PRINT_QRY: TprxADOQuery read FPRINT_QRY write FPRINT_QRY;<br /> property PRINT_DATASET: TDataSet read FPRINT_DATASET write FPRINT_DATASET;<br /> public<br /> constructor Create(AOwner: TComponent); override;<br /> destructor Destroy; override;<br /> <br /> function ReportFolder: String;<br /> <br /> function CargarDefinicion: Boolean; virtual;<br /> published<br /> end;<br /> &lt;/pre&gt;<br /> <br /> =Implementación=<br /> ===function Comprobante: String===<br /> Si el dataset corresponde a un comprobante retorna el código del documento de impresión, lo tenemos que poner acá para que lo usen las clases derivadas de ésta.<br /> <br /> ===procedure PrintReport(aReportName: String)===<br /> Imprime el reporte que estamos procesando.<br /> <br /> ===procedure PrintReportClick(Sender: TObject)===<br /> Recibe instrucción de imprimir un reporte desde un menú, toma el nombre del reporte y llama a la función anterior.<br /> <br /> ===procedure PrintReportClick(aCaption: String)===<br /> Similar anterior, pero recibe un string con el nombre del reporte como argumento.<br /> <br /> ===procedure DesignReportClick(Sender: TObject)===<br /> Abre el diseñador de reportes para modificar el reporte.<br /> <br /> ===procedure AddReportClick(Sender: TObject)===<br /> Abre el diseñador de reportes para agregar uno.<br /> <br /> =Uso=<br /> Se usa en las derivadas:<br /> *[[TprxADODataSet_Options_Impresion_RB_Reporte]].<br /> *[[TprxADODataSet_Options_Impresion_RB_Comprobante]].</div>

Luciano Carou