Impresión de etiquetas.
git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@17 7b0b1a58-4aa1-b946-8089-8453ede31e50
This commit is contained in:
parent
367d6dcd82
commit
2ce68b52d2
@ -54,58 +54,58 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Medicaciones\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Medicaciones\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\Etiquetas_Intf.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -165,8 +165,8 @@ type
|
||||
write SetController;
|
||||
property Title: string read GetTitle write SetTitle;
|
||||
property Report: TfrxReport read GetReport;
|
||||
procedure Print;
|
||||
procedure Preview;
|
||||
procedure Print; virtual;
|
||||
procedure Preview; virtual;
|
||||
procedure LoadFromStream(AStream : TStream);
|
||||
function ExportToFile : String;
|
||||
end;
|
||||
|
||||
38
Source/Informes/EtiquetasBlister.fr3
Normal file
38
Source/Informes/EtiquetasBlister.fr3
Normal file
@ -0,0 +1,38 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.7.71" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="40861,4874193981" ReportOptions.Description.Text="" ReportOptions.LastChange="40878,7869206134" ScriptLanguage="PascalScript" ScriptText.Text=" begin end." ShowProgress="False" StoreInDFM="False" PropData="044C656674027903546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C4600000020446174615365743D226672784442446574616C6C6573456E426C69737465722220446174615365744E616D653D226672784442446574616C6C6573456E426C69737465722200010C4C00000020446174615365743D226672784442446574616C6C65734675657261426C69737465722220446174615365744E616D653D226672784442446574616C6C65734675657261426C6973746572220000095661726961626C65730100055374796C6501010C7A000000204E616D653D225469746C652220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31362220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D22312200010C7B000000204E616D653D224865616465722220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D22312200010C8F000000204E616D653D2247726F7570206865616465722220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D22382200010C79000000204E616D653D22446174612220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D22302200010C8F000000204E616D653D2247726F757020666F6F7465722220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D22342200010C9E000000204E616D653D22486561646572206C696E652220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D223822204672616D652E57696474683D2232220000">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Orientation="poLandscape" PaperWidth="159,99883333" PaperHeight="61,9998125" PaperSize="256" LeftMargin="3,96875" RightMargin="3,96875" TopMargin="3,96875" BottomMargin="3,96875" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxMemoView Name="Memo2" Left="0" Top="124" Width="574" Height="51" ShowHint="False" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Arial" Font.Style="1" Frame.Width="3" HAlign="haCenter" ParentFont="False" Text="FUERA DEL BLISTER"/>
|
||||
<TfrxMasterData Name="MasterData1" Height="33" Left="0" Top="16" Width="574,720371160735" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" PrintIfDetailEmpty="True" RowCount="0">
|
||||
<TfrxMemoView Name="Memo8" Align="baWidth" Left="0" Top="14" Width="574,720371160735" Height="14" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Farmacéutico: <b>[frxDBCabecera."FARMACEUTICO"]</b> - Tlf: <b>[frxDBCabecera."TELEFONO_FARM"]</b> - Móvil: <b>[frxDBCabecera."MOVIL_FARM"]</b>"/>
|
||||
<TfrxMemoView Name="Memo9" Align="baWidth" Left="0" Top="0" Width="574,720371160735" Height="14" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Blister Nº: <b>[frxDBCabecera."REFERENCIA"]</b> - Inicio: <b>[frxDBCabecera."FECHA_DESDE"]</b> - Fin: <b>[frxDBCabecera."FECHA_HASTA"]</b> - Paciente: <b>[frxDBCabecera."PACIENTE"]</b>"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxDetailData Name="DetailData1" Height="16" Left="0" Top="105" Width="574,720371160735" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetallesFueraBlister" DataSetName="frxDBDetallesFueraBlister" KeepHeader="True" KeepTogether="True" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="Memo12" Left="0" Top="0" Width="381" Height="15" ShowHint="False" DataField="CONCEPTO" DataSet="frxDBDetallesFueraBlister" DataSetName="frxDBDetallesFueraBlister" Text="[frxDBDetallesFueraBlister."CONCEPTO"]"/>
|
||||
<TfrxMemoView Name="Memo13" Left="383" Top="0" Width="192" Height="15" ShowHint="False" DataSet="frxDBDetallesFueraBlister" DataSetName="frxDBDetallesFueraBlister" Text="[frxDBDetallesFueraBlister."POSOLOGIA"]"/>
|
||||
</TfrxDetailData>
|
||||
<TfrxHeader Name="Header1" Height="16" Left="0" Top="69" Width="574,720371160735">
|
||||
<TfrxMemoView Name="Memo10" Left="0" Top="0" Width="381" Height="16" ShowHint="False" Color="12632256" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Medicamento"/>
|
||||
<TfrxMemoView Name="Memo11" Left="381" Top="0" Width="194" Height="16" ShowHint="False" Color="12632256" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Posología"/>
|
||||
</TfrxHeader>
|
||||
</TfrxReportPage>
|
||||
<TfrxReportPage Name="Page2" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Orientation="poLandscape" PaperWidth="159,99883333" PaperHeight="61,9998125" PaperSize="256" LeftMargin="3,96875" RightMargin="3,96875" TopMargin="3,96875" BottomMargin="3,96875" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxMemoView Name="Memo1" Left="3" Top="122" Width="569" Height="51" ShowHint="False" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" Text="BLISTER"/>
|
||||
<TfrxMasterData Name="MasterData2" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Height="33" Left="0" ParentFont="False" Top="16" Width="574,720371160735" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" PrintIfDetailEmpty="True" RowCount="0">
|
||||
<TfrxMemoView Name="Memo18" Align="baWidth" Left="0" Top="14" Width="574,720371160735" Height="14" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Farmacéutico: <b>[frxDBCabecera."FARMACEUTICO"]</b> - Tlf: <b>[frxDBCabecera."TELEFONO_FARM"]</b> - Móvil: <b>[frxDBCabecera."MOVIL_FARM"]</b>"/>
|
||||
<TfrxMemoView Name="Memo19" Align="baWidth" Left="0" Top="0" Width="574,720371160735" Height="14" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Blister Nº: <b>[frxDBCabecera."REFERENCIA"]</b> - Inicio: <b>[frxDBCabecera."FECHA_DESDE"]</b> - Fin: <b>[frxDBCabecera."FECHA_HASTA"]</b> - Paciente: <b>[frxDBCabecera."PACIENTE"]</b>"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxDetailData Name="DetailData2" Height="16" Left="0" Top="105" Width="574,720371160735" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetallesEnBlister" DataSetName="frxDBDetallesEnBlister" KeepHeader="True" KeepTogether="True" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="233" Height="15" ShowHint="False" DataSet="frxDBDetallesFueraBlister" DataSetName="frxDBDetallesFueraBlister" Text="[frxDBDetallesEnBlister."CONCEPTO"]"/>
|
||||
<TfrxMemoView Name="Memo23" Left="233" Top="0" Width="74" Height="15" ShowHint="False" DataSet="frxDBDetallesFueraBlister" DataSetName="frxDBDetallesFueraBlister" Text="[frxDBDetallesEnBlister."POSOLOGIA"]"/>
|
||||
<TfrxMemoView Name="Memo16" Left="307" Top="0" Width="146" Height="15" ShowHint="False" DataSet="frxDBDetallesFueraBlister" DataSetName="frxDBDetallesFueraBlister" Text="[frxDBDetallesEnBlister."FORMA_COLOR"]"/>
|
||||
<TfrxMemoView Name="Memo17" Left="453" Top="0" Width="122" Height="15" ShowHint="False" DataSet="frxDBDetallesFueraBlister" DataSetName="frxDBDetallesFueraBlister" Text="[frxDBDetallesEnBlister."FORMA_COLOR"]"/>
|
||||
</TfrxDetailData>
|
||||
<TfrxHeader Name="Header2" Height="16" Left="0" Top="69" Width="574,720371160735">
|
||||
<TfrxMemoView Name="Memo20" Left="0" Top="0" Width="233" Height="16" ShowHint="False" Color="12632256" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Medicamento"/>
|
||||
<TfrxMemoView Name="Memo21" Left="233" Top="0" Width="74" Height="16" ShowHint="False" Color="12632256" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Posología"/>
|
||||
<TfrxMemoView Name="Memo14" Left="307" Top="0" Width="146" Height="16" ShowHint="False" Color="12632256" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Forma y color"/>
|
||||
<TfrxMemoView Name="Memo15" Left="453" Top="0" Width="122" Height="16" ShowHint="False" Color="12632256" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Lote"/>
|
||||
</TfrxHeader>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
@ -3,7 +3,7 @@ unit uDetallesMedicacionController;
|
||||
interface
|
||||
|
||||
uses
|
||||
uDADataTable, uBizDetallesMedicacion, uIDataModuleMedicacion, uControllerDetallesArticulos,
|
||||
uDADataTable, uBizDetallesMedicacion, uIDataModuleMedicaciones, uControllerDetallesArticulos,
|
||||
uBizArticulos, uBizContactos, Classes;
|
||||
|
||||
const
|
||||
@ -19,7 +19,7 @@ type
|
||||
|
||||
TDetallesMedicacionController = class(TControllerDetallesArticulos, IDetallesMedicacionController)
|
||||
private
|
||||
FDataModule : IDataModuleMedicacion;
|
||||
FDataModule : IDataModuleMedicaciones;
|
||||
protected
|
||||
procedure AsignarController; override;
|
||||
//Si sobreescribimos este método podremos tener en cuenta otras columnas para el calculo del importe total de un concepto
|
||||
|
||||
@ -3,32 +3,26 @@ unit uMedicacionReportController;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleMedicacionReport,
|
||||
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleMedicacionesReport,
|
||||
uPacientesController, uMedicacionesController, uDetallesMedicacionController,
|
||||
uBizMedicaciones, uIntegerListUtils;
|
||||
|
||||
type
|
||||
IMedicacionReportController = interface(IControllerBase)
|
||||
['{9DD34D7A-C396-4DBF-9A16-C060DE111AA8}']
|
||||
IMedicacionesReportController = interface(IControllerBase)
|
||||
['{133C0962-ED71-4300-B396-484896720EB0}']
|
||||
procedure Preview(const AListaID : TIntegerList);
|
||||
procedure Print(const AListaID : TIntegerList);
|
||||
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
|
||||
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
|
||||
end;
|
||||
|
||||
TMedicacionReportController = class(TControllerBase, IMedicacionReportController)
|
||||
TMedicacionesReportController = class(TControllerBase, IMedicacionesReportController)
|
||||
private
|
||||
FDataModule : IDataModuleMedicacionReport;
|
||||
FDataModule : IDataModuleMedicacionesReport;
|
||||
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
|
||||
|
||||
public
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure Preview(const AListaID : TIntegerList);
|
||||
procedure Print(const AListaID : TIntegerList);
|
||||
procedure EtiquetasPreview(const AID : integer; const withRefCliente: Boolean);
|
||||
procedure EtiquetasPrint(const AID : integer; const withRefCliente: Boolean);
|
||||
end;
|
||||
|
||||
|
||||
@ -39,28 +33,28 @@ uses
|
||||
uEditorPreview, uDataModuleMedicaciones, uEditorBase, cxControls,
|
||||
uStringsUtils, uSistemaFunc, uFactuGES_App;
|
||||
|
||||
{ TMedicacionReportController }
|
||||
{ TMedicacionesReportController }
|
||||
|
||||
constructor TMedicacionReportController.Create;
|
||||
constructor TMedicacionesReportController.Create;
|
||||
begin
|
||||
inherited;
|
||||
FDataModule := TDataModuleMedicacion.Create(Nil);
|
||||
end;
|
||||
|
||||
function TMedicacionReportController.CreateEditor(const AName: String;
|
||||
function TMedicacionesReportController.CreateEditor(const AName: String;
|
||||
const IID: TGUID; out Intf): Boolean;
|
||||
begin
|
||||
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||
end;
|
||||
|
||||
|
||||
destructor TMedicacionReportController.Destroy;
|
||||
destructor TMedicacionesReportController.Destroy;
|
||||
begin
|
||||
FDataModule := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TMedicacionReportController.EtiquetasPreview(const AID: integer; const withRefCliente: Boolean);
|
||||
procedure TMedicacionesReportController.Preview(const AListaID : TIntegerList);
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorMedicacionesPreview;
|
||||
@ -69,71 +63,15 @@ begin
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetEtiquetas(AID, withRefCliente);
|
||||
AStream := FDataModule.GetRptMedicaciones(AListaID);
|
||||
try
|
||||
CreateEditor('EditorMedicacionesPreview', IEditorMedicacionesPreview, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
end;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
AEditor := Nil;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMedicacionReportController.EtiquetasPrint(const AID: integer; const withRefCliente: Boolean);
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorMedicacionesPreview;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetEtiquetas(AID, withRefCliente);
|
||||
try
|
||||
CreateEditor('EditorMedicacionesPreview', IEditorMedicacionesPreview, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Print;
|
||||
finally
|
||||
AEditor.Release;
|
||||
end;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
AEditor := Nil;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMedicacionReportController.Preview(const AListaID : TIntegerList);
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorMedicacionesPreview;
|
||||
begin
|
||||
{ AEditor := NIL;
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetEtiquetas(AListaID);
|
||||
try
|
||||
CreateEditor('EditorMedicacionPreview', IEditorMedicacionPreview, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
begin
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.ListaID := AListaID;
|
||||
AEditor.Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
AEditor.Title := 'Medicación - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
@ -146,10 +84,10 @@ begin
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end; }
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMedicacionReportController.Print(const AListaID : TIntegerList);
|
||||
procedure TMedicacionesReportController.Print(const AListaID : TIntegerList);
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorMedicacionesPreview;
|
||||
|
||||
@ -5,7 +5,7 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uEditorDBItem,
|
||||
uControllerBase, uIDataModuleMedicacion, uPacientesController,
|
||||
uControllerBase, uIDataModuleMedicaciones, uPacientesController,
|
||||
uDetallesMedicacionController, uBizMedicaciones;
|
||||
|
||||
type
|
||||
@ -40,8 +40,6 @@ type
|
||||
|
||||
procedure Preview(AMedicacion : IBizMedicacion; AllItems: Boolean = false);
|
||||
procedure Print(AMedicacion : IBizMedicacion; AllItems: Boolean = false);
|
||||
procedure EtiquetasPreview(AMedicacion : IBizMedicacion; Const withRefPaciente: Boolean);
|
||||
procedure EtiquetasPrint(AMedicacion : IBizMedicacion; Const withRefPaciente: Boolean);
|
||||
|
||||
function EsModificable(AMedicacion: IBizMedicacion): Boolean;
|
||||
function EsEliminable(AMedicacion: IBizMedicacion): Boolean;
|
||||
@ -52,7 +50,7 @@ type
|
||||
|
||||
TMedicacionesController = class(TControllerBase, IMedicacionesController)
|
||||
protected
|
||||
FDataModule : IDataModuleMedicacion;
|
||||
FDataModule : IDataModuleMedicaciones;
|
||||
FPacienteController : IPacientesController;
|
||||
FDetallesController : IDetallesMedicacionController;
|
||||
|
||||
@ -104,9 +102,6 @@ type
|
||||
|
||||
procedure Preview(AMedicacion : IBizMedicacion; AllItems: Boolean = false);
|
||||
procedure Print(AMedicacion : IBizMedicacion; AllItems: Boolean = false);
|
||||
procedure EtiquetasPreview(AMedicacion : IBizMedicacion; Const withRefPaciente: Boolean);
|
||||
procedure EtiquetasPrint(AMedicacion : IBizMedicacion; Const withRefPaciente: Boolean);
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -449,30 +444,6 @@ begin
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
procedure TMedicacionesController.EtiquetasPreview(AMedicacion: IBizMedicacion; Const withRefPaciente: Boolean);
|
||||
var
|
||||
AReportController : IMedicacionReportController;
|
||||
begin
|
||||
AReportController := TMedicacionReportController.Create;
|
||||
try
|
||||
AReportController.EtiquetasPreview(AMedicacion.ID, withRefPaciente);
|
||||
finally
|
||||
AReportController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMedicacionesController.EtiquetasPrint(AMedicacion: IBizMedicacion; Const withRefPaciente: Boolean);
|
||||
var
|
||||
AReportController : IMedicacionReportController;
|
||||
begin
|
||||
AReportController := TMedicacionReportController.Create;
|
||||
try
|
||||
AReportController.EtiquetasPrint(AMedicacion.ID, withRefPaciente);
|
||||
finally
|
||||
AReportController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMedicacionesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||
var
|
||||
AMedicacion : IBizMedicacion;
|
||||
@ -564,16 +535,15 @@ end;
|
||||
|
||||
procedure TMedicacionesController.Preview(AMedicacion: IBizMedicacion; AllItems: Boolean = false);
|
||||
var
|
||||
AReportController : IMedicacionReportController;
|
||||
AReportController : IMedicacionesReportController;
|
||||
ID_Medicaciones: TIntegerList;
|
||||
|
||||
begin
|
||||
AReportController := TMedicacionReportController.Create;
|
||||
AReportController := TMedicacionesReportController.Create;
|
||||
ID_Medicaciones := TIntegerList.Create;
|
||||
|
||||
try
|
||||
|
||||
//Si deseamos previsualizar todos los items del objeto albaran
|
||||
//Si deseamos previsualizar todos los items del objeto
|
||||
if AllItems then
|
||||
begin
|
||||
with AMedicacion.DataTable do
|
||||
@ -600,14 +570,14 @@ end;
|
||||
|
||||
procedure TMedicacionesController.Print(AMedicacion: IBizMedicacion; AllItems: Boolean = false);
|
||||
var
|
||||
AReportController : IMedicacionReportController;
|
||||
AReportController : IMedicacionesReportController;
|
||||
ID_Medicaciones: TIntegerList;
|
||||
|
||||
begin
|
||||
AReportController := TMedicacionReportController.Create;
|
||||
AReportController := TMedicacionesReportController.Create;
|
||||
ID_Medicaciones := TIntegerList.Create;
|
||||
try
|
||||
//Si deseamos previsualizar todos los items del objeto albaran
|
||||
//Si deseamos previsualizar todos los items del objeto
|
||||
if AllItems then
|
||||
begin
|
||||
with AMedicacion.DataTable do
|
||||
|
||||
@ -7,12 +7,12 @@ uses
|
||||
uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider,
|
||||
uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
|
||||
|
||||
uIDataModuleMedicacion, uBizMedicaciones, uBizDetallesMedicacion,
|
||||
uIDataModuleMedicacionReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable,
|
||||
uIDataModuleMedicaciones, uBizMedicaciones, uBizDetallesMedicacion,
|
||||
uIDataModuleMedicacionesReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable,
|
||||
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils;
|
||||
|
||||
type
|
||||
TDataModuleMedicacion = class(TDataModuleBase, IDataModuleMedicacion, IDataModuleMedicacionReport)
|
||||
TDataModuleMedicacion = class(TDataModuleBase, IDataModuleMedicaciones, IDataModuleMedicacionesReport)
|
||||
RORemoteService: TRORemoteService;
|
||||
rda_Medicacion: TDARemoteDataAdapter;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
@ -21,10 +21,8 @@ type
|
||||
tbl_Medicacion_Detalles: TDAMemDataTable;
|
||||
ds_Medicacion_Detalles: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
private
|
||||
function _GetDetalles : IBizDetallesMedicacion;
|
||||
|
||||
protected
|
||||
procedure AsignarClaseNegocio(AMedicacion: TDADataTable); virtual;
|
||||
|
||||
@ -34,7 +32,7 @@ type
|
||||
function NewItem : IBizMedicacion;
|
||||
|
||||
// Report
|
||||
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
|
||||
function GetRptMedicaciones(const AListaID: TIntegerList): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -81,11 +79,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleMedicacion.GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvMedicacion).GenerarInformeEtiquetas(AID)
|
||||
end;
|
||||
|
||||
function TDataModuleMedicacion.GetItem(const ID: Integer): IBizMedicacion;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
@ -133,4 +126,17 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleMedicacion.GetRptMedicaciones(
|
||||
const AListaID: TIntegerList): Binary;
|
||||
var
|
||||
AParam : TIntegerArray;
|
||||
begin
|
||||
AParam := AListaID.ToIntegerArray;
|
||||
try
|
||||
Result := (RORemoteService as IsrvMedicacion).GenerarInforme(AParam);
|
||||
finally
|
||||
FreeANDNIL(AParam);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -1,16 +0,0 @@
|
||||
unit uIDataModuleMedicacionReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uROTypes, uIntegerListUtils;
|
||||
|
||||
type
|
||||
IDataModuleMedicacionReport = interface
|
||||
['{6A0E016B-A505-4389-9265-C0F711311F14}']
|
||||
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -1,4 +1,4 @@
|
||||
unit uIDataModuleMedicacion;
|
||||
unit uIDataModuleMedicaciones;
|
||||
|
||||
interface
|
||||
|
||||
@ -6,8 +6,8 @@ uses
|
||||
Classes, uBizMedicaciones;
|
||||
|
||||
type
|
||||
IDataModuleMedicacion = interface
|
||||
['{41C24486-3827-4851-AA9D-F168760F09E0}']
|
||||
IDataModuleMedicaciones = interface
|
||||
['{E2114887-C8F4-4C69-A2A5-A9F2F4E431BB}']
|
||||
function GetItems: IBizMedicacion;
|
||||
function GetItem(const ID : Integer) : IBizMedicacion;
|
||||
function NewItem : IBizMedicacion;
|
||||
@ -0,0 +1,16 @@
|
||||
unit uIDataModuleMedicacionesReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uROTypes, uIntegerListUtils;
|
||||
|
||||
type
|
||||
IDataModuleMedicacionesReport = interface
|
||||
['{FB5683D0-BF1B-4FDC-9C96-B9CACC2571D1}']
|
||||
function GetRptMedicaciones(const AListaID: TIntegerList): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -40,8 +40,8 @@ requires
|
||||
contains
|
||||
uBizDetallesMedicacion in 'uBizDetallesMedicacion.pas',
|
||||
uBizMedicaciones in 'uBizMedicaciones.pas',
|
||||
uIDataModuleMedicacionReport in 'Data\uIDataModuleMedicacionReport.pas',
|
||||
uIDataModuleMedicacion in 'Data\uIDataModuleMedicacion.pas',
|
||||
uIDataModuleMedicacionesReport in 'Data\uIDataModuleMedicacionesReport.pas',
|
||||
uIDataModuleMedicaciones in 'Data\uIDataModuleMedicaciones.pas',
|
||||
schMedicacionClient_Intf in 'schMedicacionClient_Intf.pas',
|
||||
schMedicacionServer_Intf in 'schMedicacionServer_Intf.pas';
|
||||
|
||||
|
||||
@ -38,19 +38,19 @@
|
||||
<DelphiCompile Include="Medicaciones_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleMedicacion.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleMedicacionReport.pas" />
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleMedicaciones.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleMedicacionesReport.pas" />
|
||||
<DCCReference Include="schMedicacionClient_Intf.pas" />
|
||||
<DCCReference Include="schMedicacionServer_Intf.pas" />
|
||||
<DCCReference Include="uBizDetallesMedicacion.pas" />
|
||||
|
||||
1179
Source/Modulos/Medicaciones/Reports/uRptMedicaciones_Server.dfm
Normal file
1179
Source/Modulos/Medicaciones/Reports/uRptMedicaciones_Server.dfm
Normal file
File diff suppressed because it is too large
Load Diff
171
Source/Modulos/Medicaciones/Reports/uRptMedicaciones_Server.pas
Normal file
171
Source/Modulos/Medicaciones/Reports/uRptMedicaciones_Server.pas
Normal file
@ -0,0 +1,171 @@
|
||||
unit uRptMedicaciones_Server;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
|
||||
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
||||
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
||||
uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase,
|
||||
uDAMemDataTable, frxExportPDF, uDABin2DataStreamer, Etiquetas_Intf;
|
||||
|
||||
type
|
||||
TRptMedicaciones = class(TDataModule)
|
||||
frxDBCabecera: TfrxDBDataset;
|
||||
frxDBDetallesEnBlister: TfrxDBDataset;
|
||||
IBDatabase1: TIBDatabase;
|
||||
IBTransaction1: TIBTransaction;
|
||||
DataSource1: TDataSource;
|
||||
DataSource2: TDataSource;
|
||||
cabecera: TIBQuery;
|
||||
detallesenblister: TIBQuery;
|
||||
DADSCabecera: TDADataSource;
|
||||
DADSDetallesEnBlister: TDADataSource;
|
||||
tbl_DetallesEnBlister: TDAMemDataTable;
|
||||
tbl_Cabecera: TDAMemDataTable;
|
||||
frxCheckBoxObject1: TfrxCheckBoxObject;
|
||||
frxChartObject1: TfrxChartObject;
|
||||
frxGradientObject1: TfrxGradientObject;
|
||||
frxCrossObject1: TfrxCrossObject;
|
||||
frxOLEObject1: TfrxOLEObject;
|
||||
frxBarCodeObject1: TfrxBarCodeObject;
|
||||
frxRichObject1: TfrxRichObject;
|
||||
frxReport: TfrxReport;
|
||||
frxDBDetallesFueraBlister: TfrxDBDataset;
|
||||
DADSDetallesFueraBlister: TDADataSource;
|
||||
tbl_DetallesFueraBlister: TDAMemDataTable;
|
||||
detallesfuerablister: TIBQuery;
|
||||
DataSource3: TDataSource;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
detallesenblisterID: TIntegerField;
|
||||
detallesenblisterID_MEDICACION: TIntegerField;
|
||||
detallesenblisterPOSICION: TIntegerField;
|
||||
detallesenblisterTIPO_DETALLE: TIBStringField;
|
||||
detallesenblisterID_ARTICULO: TIntegerField;
|
||||
detallesenblisterREFERENCIA: TIBStringField;
|
||||
detallesenblisterCONCEPTO: TIBStringField;
|
||||
detallesenblisterCANTIDAD: TIBBCDField;
|
||||
detallesenblisterPOSOLOGIA: TIBStringField;
|
||||
detallesenblisterFORMA_COLOR: TIBStringField;
|
||||
detallesenblisterLOTE: TIBStringField;
|
||||
detallesenblisterVISIBLE: TSmallintField;
|
||||
cabeceraID: TIntegerField;
|
||||
cabeceraID_PACIENTE: TIntegerField;
|
||||
cabeceraREFERENCIA: TIBStringField;
|
||||
cabeceraPACIENTE: TIBStringField;
|
||||
cabeceraNUMERO_SS: TIBStringField;
|
||||
cabeceraFECHA_DESDE: TDateField;
|
||||
cabeceraFECHA_HASTA: TDateField;
|
||||
cabeceraFARMACEUTICO: TIBStringField;
|
||||
cabeceraTELEFONO_FARM: TIBStringField;
|
||||
cabeceraMOVIL_FARM: TIBStringField;
|
||||
detallesfuerablisterID: TIntegerField;
|
||||
detallesfuerablisterID_MEDICACION: TIntegerField;
|
||||
detallesfuerablisterPOSICION: TIntegerField;
|
||||
detallesfuerablisterTIPO_DETALLE: TIBStringField;
|
||||
detallesfuerablisterID_ARTICULO: TIntegerField;
|
||||
detallesfuerablisterREFERENCIA: TIBStringField;
|
||||
detallesfuerablisterCONCEPTO: TIBStringField;
|
||||
detallesfuerablisterCANTIDAD: TIBBCDField;
|
||||
detallesfuerablisterPOSOLOGIA: TIBStringField;
|
||||
detallesfuerablisterFORMA_COLOR: TIBStringField;
|
||||
detallesfuerablisterLOTE: TIBStringField;
|
||||
detallesfuerablisterVISIBLE: TSmallintField;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
procedure DataModuleDestroy(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
procedure _GenerarInforme(const ID: Integer);
|
||||
public
|
||||
function GenerarInforme(const ListaID : TIntegerArray): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, StrUtils, uDataModuleServer,
|
||||
uROServer, DataAbstract4_Intf;
|
||||
|
||||
const
|
||||
rptEtiquetas = 'EtiquetasBlister.fr3';
|
||||
|
||||
{ TRptMedicaciones }
|
||||
|
||||
|
||||
procedure TRptMedicaciones.DataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
schReport.ConnectionManager := dmServer.ConnectionManager;
|
||||
FConnection := dmServer.DarNuevaConexion;
|
||||
frxReport.EngineOptions.NewSilentMode := simSilent;
|
||||
|
||||
frxDBCabecera.DataSource := DADSCabecera;
|
||||
frxDBCabecera.CloseDataSource := False;
|
||||
|
||||
frxDBDetallesEnBlister.DataSource := DADSDetallesEnBlister;
|
||||
frxDBDetallesEnBlister.CloseDataSource := False;
|
||||
|
||||
frxDBDetallesFueraBlister.DataSource := DADSDetallesFueraBlister;
|
||||
frxDBDetallesFueraBlister.CloseDataSource := False;
|
||||
end;
|
||||
|
||||
procedure TRptMedicaciones.DataModuleDestroy(Sender: TObject);
|
||||
begin
|
||||
tbl_Cabecera.Active := False;
|
||||
tbl_DetallesEnBlister.Active := False;
|
||||
tbl_DetallesFueraBlister.Active := False;
|
||||
end;
|
||||
|
||||
function TRptMedicaciones.GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
try
|
||||
//Vamos generando todos y cada una de las facturas recibidas
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
_GenerarInforme(ListaID.Items[i]);
|
||||
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRptMedicaciones._GenerarInforme(const ID: Integer);
|
||||
var
|
||||
AInforme: Variant;
|
||||
begin
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
try
|
||||
tbl_Cabecera.Active := False;
|
||||
tbl_DetallesEnBlister.Active := False;
|
||||
tbl_DetallesFueraBlister.Active := False;
|
||||
|
||||
tbl_Cabecera.ParamByName('ID').AsInteger := ID;
|
||||
tbl_DetallesEnBlister.ParamByName('ID_MEDICACION').AsInteger := ID;
|
||||
tbl_DetallesFueraBlister.ParamByName('ID_MEDICACION').AsInteger := ID;
|
||||
|
||||
tbl_Cabecera.Active := True;
|
||||
tbl_DetallesEnBlister.Active := True;
|
||||
tbl_DetallesFueraBlister.Active := True;
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptEtiquetas);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + rptEtiquetas));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
finally
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
@ -34,8 +34,6 @@ type
|
||||
protected
|
||||
{ IsrvMedicacion methods }
|
||||
function GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||
function GenerarInformeEtiquetas(const ID: Integer): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -44,7 +42,7 @@ implementation
|
||||
uses
|
||||
{Generated:} Etiquetas_Invk, uDataModuleServer, uDatabaseUtils,
|
||||
schMedicacionClient_Intf, uRestriccionesUsuarioUtils,
|
||||
uSistemaFunc, uBizMedicacionServer;
|
||||
uSistemaFunc, uBizMedicacionServer, uRptMedicaciones_Server;
|
||||
|
||||
|
||||
procedure Create_srvMedicacion(out anInstance : IUnknown);
|
||||
@ -65,18 +63,15 @@ begin
|
||||
end;
|
||||
|
||||
function TsrvMedicacion.GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||
var
|
||||
AReportGenerator : TRptMedicaciones;
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
function TsrvMedicacion.GenerarInformeEtiquetas(const ID: Integer): Binary;
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
function TsrvMedicacion.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
|
||||
begin
|
||||
//
|
||||
AReportGenerator := TRptMedicaciones.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInforme(ListaID);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
var
|
||||
|
||||
@ -75,7 +75,12 @@ requires
|
||||
dxPScxGrid6LnkD11,
|
||||
dclcxLibraryD11,
|
||||
JSDialog100,
|
||||
JvCtrlsD11R;
|
||||
JvCtrlsD11R,
|
||||
frx11,
|
||||
fs11,
|
||||
fqb110,
|
||||
bdertl,
|
||||
frxe11;
|
||||
|
||||
contains
|
||||
uMedicacionesViewRegister in 'uMedicacionesViewRegister.pas',
|
||||
@ -86,6 +91,7 @@ contains
|
||||
uEditorMedicaciones in 'uEditorMedicaciones.pas' {fEditorMedicaciones: TEditor},
|
||||
uViewElegirArticulosMedicaciones in 'uViewElegirArticulosMedicaciones.pas' {frViewElegirArticulosMedicaciones: TFrame},
|
||||
uEditorElegirArticulosMedicaciones in 'uEditorElegirArticulosMedicaciones.pas' {fEditorElegirArticulosMedicaciones: TEditor},
|
||||
uViewDatosYSeleccionPacienteMedicacion in 'uViewDatosYSeleccionPacienteMedicacion.pas' {frViewDatosYSeleccionPacienteMedicacion: TFrame};
|
||||
uViewDatosYSeleccionPacienteMedicacion in 'uViewDatosYSeleccionPacienteMedicacion.pas' {frViewDatosYSeleccionPacienteMedicacion: TFrame},
|
||||
uEditorMedicacionesReport in 'uEditorMedicacionesReport.pas' {fEditorMedicacionesPreview};
|
||||
|
||||
end.
|
||||
|
||||
@ -51,14 +51,6 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
|
||||
@ -74,6 +66,7 @@
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="bdertl.dcp" />
|
||||
<DCCReference Include="Contactos_model.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
@ -96,6 +89,10 @@
|
||||
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="fqb110.dcp" />
|
||||
<DCCReference Include="frx11.dcp" />
|
||||
<DCCReference Include="frxe11.dcp" />
|
||||
<DCCReference Include="fs11.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="Jcl.dcp" />
|
||||
@ -126,9 +123,12 @@
|
||||
<Form>fEditorMedicaciones</Form>
|
||||
<DesignClass>TEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorMedicacionesReport.pas">
|
||||
<Form>fEditorMedicacionesPreview</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uMedicacionesViewRegister.pas" />
|
||||
<DCCReference Include="uViewDatosYSeleccionPacienteMedicacion.pas">
|
||||
<Form>TfrViewDatosYSeleccionPacienteMedicacion</Form>
|
||||
<Form>frViewDatosYSeleccionPacienteMedicacion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDetallesMedicacion.pas">
|
||||
|
||||
@ -1,7 +1,5 @@
|
||||
inherited fEditorAlbaranesClientePreview: TfEditorAlbaranesClientePreview
|
||||
inherited fEditorMedicacionesPreview: TfEditorMedicacionesPreview
|
||||
Caption = 'Previsualizar el albar'#225'n de cliente'
|
||||
ExplicitWidth = 320
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited TBXDock: TTBXDock
|
||||
@ -1,4 +1,4 @@
|
||||
unit uEditorAlbaranesClienteReport;
|
||||
unit uEditorMedicacionesReport;
|
||||
|
||||
interface
|
||||
|
||||
@ -9,15 +9,16 @@ uses
|
||||
// frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
|
||||
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
|
||||
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
|
||||
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesClientePreview,
|
||||
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorMedicacionesPreview,
|
||||
JvExComCtrls, JvStatusBar, frxDMPExport, frxGradient, frxChBox, frxCross,
|
||||
frxRich, frxOLE, frxBarcode, JvAppStorage, JvAppRegistryStorage,
|
||||
JvComponentBase, frxExportText, frxExportRTF, frxExportMail, frxExportXLS;
|
||||
|
||||
type
|
||||
TfEditorAlbaranesClientePreview = class(TfEditorPreview, IEditorAlbaranesClientePreview)
|
||||
TfEditorMedicacionesPreview = class(TfEditorPreview, IEditorMedicacionesPreview)
|
||||
TBXItem58: TTBXItem;
|
||||
procedure actExportarRTFExecute(Sender: TObject);
|
||||
public
|
||||
procedure Preview; override;
|
||||
end;
|
||||
|
||||
|
||||
@ -25,21 +26,13 @@ implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uAlbaranesClienteReportController, uDialogUtils;
|
||||
|
||||
procedure TfEditorAlbaranesClientePreview.actExportarRTFExecute(
|
||||
Sender: TObject);
|
||||
var
|
||||
I: Integer;
|
||||
{ TfEditorMedicacionesPreview }
|
||||
|
||||
procedure TfEditorMedicacionesPreview.Preview;
|
||||
begin
|
||||
// inherited; <- No llamar al padre
|
||||
if not Assigned(Controller) then
|
||||
raise Exception.Create('No se ha asignado el controlador necesario');
|
||||
|
||||
for I := 0 to ListaID.Count - 1 do
|
||||
if (Controller as IAlbaranesClienteReportController).ExportToWord(ListaID[I]) then
|
||||
ShowInfoMessage('El albarán se ha exportado correctamente.');
|
||||
inherited;
|
||||
frxReport1.ShowPreparedReport;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -9,13 +9,14 @@ implementation
|
||||
|
||||
uses
|
||||
uEditorRegistryUtils, uEditorMedicaciones, uEditorMedicacion,
|
||||
uEditorElegirArticulosMedicaciones;
|
||||
uEditorElegirArticulosMedicaciones, uEditorMedicacionesReport;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
EditorRegistry.RegisterClass(TfEditorMedicaciones, 'EditorMedicaciones');
|
||||
EditorRegistry.RegisterClass(TfEditorMedicacion, 'EditorMedicacion');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirArticulosMedicaciones, 'EditorElegirArticulosMedicaciones');
|
||||
EditorRegistry.RegisterClass(TfEditorMedicacionesPreview, 'EditorMedicacionesPreview');
|
||||
end;
|
||||
|
||||
procedure UnregisterViews;
|
||||
@ -23,6 +24,7 @@ begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorMedicaciones);
|
||||
EditorRegistry.UnRegisterClass(TfEditorMedicacion);
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosMedicaciones);
|
||||
EditorRegistry.UnRegisterClass(TfEditorMedicacionesPreview);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -1,83 +1,96 @@
|
||||
inherited frViewDetallesMedicacion: TfrViewDetallesMedicacion
|
||||
inherited ToolBar1: TToolBar
|
||||
Height = 95
|
||||
ExplicitHeight = 95
|
||||
inherited ToolButton14: TToolButton [2]
|
||||
Left = 129
|
||||
Height = 100
|
||||
ExplicitHeight = 100
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = False
|
||||
ExplicitLeft = 56
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton3: TToolButton [3]
|
||||
Left = 194
|
||||
ExplicitLeft = 194
|
||||
end
|
||||
inherited ToolButton4: TToolButton [4]
|
||||
Left = 249
|
||||
ExplicitLeft = 249
|
||||
end
|
||||
inherited ToolButton8: TToolButton [5]
|
||||
Left = 305
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 184
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 305
|
||||
ExplicitLeft = 184
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox [6]
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 240
|
||||
Top = 0
|
||||
ExplicitLeft = 240
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton13: TToolButton [7]
|
||||
Left = 145
|
||||
ExplicitLeft = 145
|
||||
end
|
||||
inherited ToolButton6: TToolButton [8]
|
||||
Left = 153
|
||||
ExplicitLeft = 153
|
||||
end
|
||||
inherited ToolButton9: TToolButton [9]
|
||||
Left = 219
|
||||
inherited FontName: TJvFontComboBox
|
||||
Top = 22
|
||||
ExplicitLeft = 219
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton12: TToolButton [10]
|
||||
inherited FontSize: TEdit
|
||||
Top = 22
|
||||
Width = 170
|
||||
ExplicitTop = 22
|
||||
ExplicitWidth = 170
|
||||
end
|
||||
inherited FontSize: TEdit [11]
|
||||
inherited ToolButton13: TToolButton [7]
|
||||
Left = 0
|
||||
Top = 22
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 22
|
||||
ExplicitHeight = 30
|
||||
end
|
||||
inherited UpDown1: TUpDown [8]
|
||||
Left = 0
|
||||
Top = 52
|
||||
Width = 154
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 52
|
||||
ExplicitWidth = 154
|
||||
end
|
||||
inherited UpDown1: TUpDown [12]
|
||||
Left = 154
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 17
|
||||
Top = 52
|
||||
ExplicitLeft = 154
|
||||
ExplicitLeft = 17
|
||||
ExplicitTop = 52
|
||||
end
|
||||
inherited ToolButton7: TToolButton [13]
|
||||
Left = 171
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 83
|
||||
Top = 52
|
||||
ExplicitLeft = 171
|
||||
ExplicitLeft = 83
|
||||
ExplicitTop = 52
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 150
|
||||
Top = 52
|
||||
ExplicitLeft = 150
|
||||
ExplicitTop = 52
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 0
|
||||
Top = 52
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 52
|
||||
ExplicitHeight = 30
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 0
|
||||
Top = 82
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 82
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 238
|
||||
Wrap = True
|
||||
ExplicitLeft = 238
|
||||
Left = 145
|
||||
Top = 82
|
||||
ExplicitLeft = 145
|
||||
ExplicitTop = 82
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 0
|
||||
Top = 74
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 74
|
||||
Left = 270
|
||||
Top = 82
|
||||
ExplicitLeft = 270
|
||||
ExplicitTop = 82
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 121
|
||||
Height = 183
|
||||
ExplicitTop = 121
|
||||
ExplicitHeight = 183
|
||||
Top = 126
|
||||
Height = 178
|
||||
ExplicitTop = 126
|
||||
ExplicitHeight = 178
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewTIPO: TcxGridDBColumn
|
||||
BestFitMaxWidth = 80
|
||||
@ -90,6 +103,7 @@ inherited frViewDetallesMedicacion: TfrViewDetallesMedicacion
|
||||
Width = 43
|
||||
end
|
||||
inherited cxGridViewDESCRIPCION: TcxGridDBColumn
|
||||
Properties.PlainText = True
|
||||
Width = 164
|
||||
end
|
||||
inherited cxGridViewCANTIDAD: TcxGridDBColumn
|
||||
@ -126,8 +140,8 @@ inherited frViewDetallesMedicacion: TfrViewDetallesMedicacion
|
||||
end
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Top = 95
|
||||
ExplicitTop = 95
|
||||
Top = 100
|
||||
ExplicitTop = 100
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
DockPos = 0
|
||||
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
||||
|
||||
@ -117,22 +117,6 @@
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="GenerarInformeEtiquetas" UID="{260CD213-F125-422B-9BD1-401729460DF0}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="ID" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="GenerarInformeEnPDF" UID="{83F24406-D1B9-43DE-97E9-42A899433DD4}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
|
||||
@ -279,8 +279,6 @@ type
|
||||
IsrvMedicacion = interface(IDataAbstractService)
|
||||
['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}']
|
||||
function GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||
function GenerarInformeEtiquetas(const ID: Integer): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
|
||||
end;
|
||||
|
||||
{ CosrvMedicacion }
|
||||
@ -294,8 +292,6 @@ type
|
||||
function __GetInterfaceName:string; override;
|
||||
|
||||
function GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||
function GenerarInformeEtiquetas(const ID: Integer): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
|
||||
end;
|
||||
|
||||
{ IsrvReferencias }
|
||||
@ -970,40 +966,6 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvMedicacion_Proxy.GenerarInformeEtiquetas(const ID: Integer): Binary;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'Etiquetas', __InterfaceName, 'GenerarInformeEtiquetas');
|
||||
__Message.Write('ID', TypeInfo(Integer), ID, []);
|
||||
__Message.Finalize;
|
||||
|
||||
__TransportChannel.Dispatch(__Message);
|
||||
|
||||
__Message.Read('Result', TypeInfo(Binary), result, []);
|
||||
finally
|
||||
__Message.UnsetAttributes(__TransportChannel);
|
||||
__Message.FreeStream;
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvMedicacion_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'Etiquetas', __InterfaceName, 'GenerarInformeEnPDF');
|
||||
__Message.Write('ListaID', TypeInfo(Etiquetas_Intf.TIntegerArray), ListaID, []);
|
||||
__Message.Finalize;
|
||||
|
||||
__TransportChannel.Dispatch(__Message);
|
||||
|
||||
__Message.Read('Result', TypeInfo(Binary), result, []);
|
||||
finally
|
||||
__Message.UnsetAttributes(__TransportChannel);
|
||||
__Message.FreeStream;
|
||||
end
|
||||
end;
|
||||
|
||||
{ CosrvReferencias }
|
||||
|
||||
class function CosrvReferencias.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvReferencias;
|
||||
|
||||
@ -81,8 +81,6 @@ type
|
||||
constructor Create; override;
|
||||
published
|
||||
procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
procedure Invoke_GenerarInformeEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
procedure Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
end;
|
||||
|
||||
TsrvReferencias_Invoker = class(TDataAbstractService_Invoker)
|
||||
@ -350,64 +348,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvMedicacion_Invoker.Invoke_GenerarInformeEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
{ function GenerarInformeEtiquetas(const ID: Integer): Binary; }
|
||||
var
|
||||
ID: Integer;
|
||||
lResult: Binary;
|
||||
__lObjectDisposer: TROObjectDisposer;
|
||||
begin
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('ID', TypeInfo(Integer), ID, []);
|
||||
|
||||
lResult := (__Instance as IsrvMedicacion).GenerarInformeEtiquetas(ID);
|
||||
|
||||
__Message.InitializeResponseMessage(__Transport, 'Etiquetas', 'srvMedicacion', 'GenerarInformeEtiquetasResponse');
|
||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
__Message.Finalize;
|
||||
__Message.UnsetAttributes(__Transport);
|
||||
|
||||
finally
|
||||
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
||||
try
|
||||
__lObjectDisposer.Add(lResult);
|
||||
finally
|
||||
__lObjectDisposer.Free();
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvMedicacion_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; }
|
||||
var
|
||||
ListaID: Etiquetas_Intf.TIntegerArray;
|
||||
lResult: Binary;
|
||||
__lObjectDisposer: TROObjectDisposer;
|
||||
begin
|
||||
ListaID := nil;
|
||||
lResult := nil;
|
||||
try
|
||||
__Message.Read('ListaID', TypeInfo(Etiquetas_Intf.TIntegerArray), ListaID, []);
|
||||
|
||||
lResult := (__Instance as IsrvMedicacion).GenerarInformeEnPDF(ListaID);
|
||||
|
||||
__Message.InitializeResponseMessage(__Transport, 'Etiquetas', 'srvMedicacion', 'GenerarInformeEnPDFResponse');
|
||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
__Message.Finalize;
|
||||
__Message.UnsetAttributes(__Transport);
|
||||
|
||||
finally
|
||||
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
||||
try
|
||||
__lObjectDisposer.Add(ListaID);
|
||||
__lObjectDisposer.Add(lResult);
|
||||
finally
|
||||
__lObjectDisposer.Free();
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TsrvReferencias_Invoker }
|
||||
|
||||
constructor TsrvReferencias_Invoker.Create;
|
||||
|
||||
Binary file not shown.
@ -57,7 +57,8 @@ uses
|
||||
Etiquetas_Intf in '..\Servicios\Etiquetas_Intf.pas',
|
||||
schMedicacionClient_Intf in '..\Modulos\Medicaciones\Model\schMedicacionClient_Intf.pas',
|
||||
schMedicacionServer_Intf in '..\Modulos\Medicaciones\Model\schMedicacionServer_Intf.pas',
|
||||
uBizMedicacionServer in '..\Modulos\Medicaciones\Model\uBizMedicacionServer.pas';
|
||||
uBizMedicacionServer in '..\Modulos\Medicaciones\Model\uBizMedicacionServer.pas',
|
||||
uRptMedicaciones_Server in '..\Modulos\Medicaciones\Reports\uRptMedicaciones_Server.pas' {RptMedicaciones: TDataModule};
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -94,6 +94,10 @@
|
||||
<DCCReference Include="..\Modulos\Medicaciones\Model\schMedicacionClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Medicaciones\Model\schMedicacionServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Medicaciones\Model\uBizMedicacionServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Medicaciones\Reports\uRptMedicaciones_Server.pas">
|
||||
<Form>RptMedicaciones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Medicaciones\Servidor\srvMedicacion_Impl.pas">
|
||||
<Form>srvMedicacion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
|
||||
@ -17,7 +17,7 @@ BEGIN
|
||||
VALUE "InternalName", "Etiquetas Server\0"
|
||||
VALUE "ProductName", "Etiquetas Server\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
VALUE "CompileDate", "miércoles, 30 de noviembre de 2011 14:08\0"
|
||||
VALUE "CompileDate", "jueves, 01 de diciembre de 2011 18:03\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user