Archivado/FarmaciaPH_Etiquetas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Quitar el nº de móvil de la etiqueta impresa.

Browse Source 
- Fallo al añadir una medicación nueva.

git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@18 7b0b1a58-4aa1-b946-8089-8453ede31e50
This commit is contained in:
roberto 2011-12-09 10:37:44 +00:00
parent 2ce68b52d2
commit ac9fb21efc
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Informes/EtiquetasBlister.fr3
View File

@ -1,10 +1,10 @@
<?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="&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" PropData="044C656674027903546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C4600000020446174615365743D226672784442446574616C6C6573456E426C69737465722220446174615365744E616D653D226672784442446574616C6C6573456E426C69737465722200010C4C00000020446174615365743D226672784442446574616C6C65734675657261426C69737465722220446174615365744E616D653D226672784442446574616C6C65734675657261426C6973746572220000095661726961626C65730100055374796C6501010C7A000000204E616D653D225469746C652220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31362220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D22312200010C7B000000204E616D653D224865616465722220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D22312200010C8F000000204E616D653D2247726F7570206865616465722220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D22382200010C79000000204E616D653D22446174612220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D22302200010C8F000000204E616D653D2247726F757020666F6F7465722220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D22342200010C9E000000204E616D653D22486561646572206C696E652220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D223822204672616D652E57696474683D2232220000">
<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="40886,4808489236" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;begin&#13;&#10;&#13;&#10;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: &#60;b&#62;[frxDBCabecera.&#34;FARMACEUTICO&#34;]&#60;/b&#62; - Tlf: &#60;b&#62;[frxDBCabecera.&#34;TELEFONO_FARM&#34;]&#60;/b&#62; - Móvil: &#60;b&#62;[frxDBCabecera.&#34;MOVIL_FARM&#34;]&#60;/b&#62;"/>
<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: &#60;b&#62;[frxDBCabecera.&#34;FARMACEUTICO&#34;]&#60;/b&#62; - Tlf: &#60;b&#62;[frxDBCabecera.&#34;TELEFONO_FARM&#34;]&#60;/b&#62;"/>
<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º: &#60;b&#62;[frxDBCabecera.&#34;REFERENCIA&#34;]&#60;/b&#62; - Inicio: &#60;b&#62;[frxDBCabecera.&#34;FECHA_DESDE&#34;]&#60;/b&#62; - Fin: &#60;b&#62;[frxDBCabecera.&#34;FECHA_HASTA&#34;]&#60;/b&#62; - Paciente: &#60;b&#62;[frxDBCabecera.&#34;PACIENTE&#34;]&#60;/b&#62;"/>
</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">

8
Source/Modulos/Medicaciones/Views/uEditorMedicaciones.pas
View File

@ -44,6 +44,7 @@ type
procedure ImprimirInterno; override;
procedure PrevisualizarInterno; override;
procedure RefrescarInterno; override;
procedure NuevoInterno; override;
//Si queremos crear otra vista para el editor heredado solo tendriamos que
//sobreescribir este método
@ -258,6 +259,13 @@ begin
FController.Ver(Medicaciones);
end;
procedure TfEditorMedicaciones.NuevoInterno;
begin
inherited;
FController.Anadir(Medicaciones);
FController.Ver(Medicaciones);
end;
procedure TfEditorMedicaciones.PonerTitulos(const ATitulo: string);
var
FTitulo : String;