Cambios en recibos de proveedor y remesas

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@74 c93665c3-c93d-084d-9b98-7d5f4a9c3376

Database/VISTAS.SQL

@@ -517,6 +517,7 @@ CREATE VIEW V_RECIBOS_PROVEEDOR(
     IMPORTE,
     OTROS_GASTOS,
     IMPORTE_TOTAL,
+    REFERENCIA_FACTURA_PROV,
     FECHA_FACTURA,
     FORMA_PAGO_FACTURA,
     IMPORTE_FACTURA,
@@ -540,7 +541,8 @@ SELECT RECIBOS_PROVEEDOR.ID, RECIBOS_PROVEEDOR.REFERENCIA, RECIBOS_PROVEEDOR.REF
        RECIBOS_PROVEEDOR.OBSERVACIONES, RECIBOS_PROVEEDOR.IMPORTE, RECIBOS_PROVEEDOR.OTROS_GASTOS,
        RECIBOS_PROVEEDOR.IMPORTE + RECIBOS_PROVEEDOR.OTROS_GASTOS,
 
-       FACTURAS_PROVEEDOR.FECHA_FACTURA, FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
+       FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA,
+       FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
        FACTURAS_PROVEEDOR.ID_EMPRESA,
 
        CONTACTOS.ID as ID_PROVEEDOR, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD,

Output/Debug/Servidor/Informes/InfRemesaProveedor.fr3

@@ -1,60 +1,69 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="39258,7614237847" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;  DatosEmpresa.Lines.Clear;&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
+<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="39267,7346601852" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;  DatosEmpresa.Lines.Clear;&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
-  <TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
+  <TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
-    <TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="16" Width="718,1107">
+    <TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="18,89765" Width="1046,92981">
-      <TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="73,32282" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo"/>
+      <TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="69,54329" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo"/>
-      <TfrxMemoView Name="Memo24" Left="617,60668" Top="228,5671" Width="100,50402" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe "/>
+      <TfrxMemoView Name="Memo24" Left="944,65151667" Top="228,5671" Width="102,27829333" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe "/>
       <TfrxPictureView Name="Picture1" Left="7,77953" Top="20,22047" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" DataField="LOGOTIPO" DataSet="frxDBCabecera" DataSetName="frxDBCabecera"/>
       <TfrxMemoView Name="DatosEmpresa" Left="166,92919" Top="17,35436" Width="221,41744" Height="80,69295" OnBeforePrint="DatosEmpresaOnBeforePrint" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
       <TfrxShapeView Name="Shape1" Left="7,55906" Top="113,3859" Width="257,00804" Height="94,48825" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
-      <TfrxShapeView Name="Shape2" Left="325,48052" Top="113,3859" Width="393,07112" Height="94,48825" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
+      <TfrxShapeView Name="Shape2" Left="639,181510000002" Top="113,3859" Width="393,07112" Height="94,48825" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
       <TfrxMemoView Name="Memo16" Left="15,11812" Top="116,94496" Width="65,13389" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº remesa:"/>
       <TfrxMemoView Name="Memo17" Left="15,11812" Top="162,29932" Width="45,35436" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
       <TfrxMemoView Name="Memo18" Left="15,11812" Top="184,9765" Width="60,47248" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Página nº:"/>
-      <TfrxMemoView Name="Memo3" Left="314,93321" Top="228,5671" Width="203,2718" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
+      <TfrxMemoView Name="Memo3" Left="462,33488" Top="228,5671" Width="188,15368" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
-      <TfrxMemoView Name="Memo4" Left="518,20501" Top="228,5671" Width="99,40167" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="NIF / CIF"/>
+      <TfrxMemoView Name="Memo4" Left="651,15522667" Top="228,5671" Width="99,40167" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="NIF / CIF"/>
       <TfrxMemoView Name="Memo5" Left="80,03154" Top="116,94496" Width="176,9765" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
       <TfrxMemoView Name="Memo6" Left="60,25201" Top="162,29932" Width="196,75603" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;FECHA_REMESA&#34;]"/>
       <TfrxMemoView Name="Memo7" Left="75,37013" Top="184,9765" Width="181,63791" Height="18,89765" Text="[&#60;Page#&#62;] / [&#60;TotalPages#&#62;]"/>
-      <TfrxLineView Name="Line1" Left="718" Top="229,54" Width="0" Height="793,700787401575" Frame.Color="8421504" Frame.Typ="1"/>
+      <TfrxLineView Name="Line1" Left="1046,81911" Top="229,54" Width="0" Height="468,661207399998" Frame.Color="8421504" Frame.Typ="1"/>
-      <TfrxMemoView Name="Memo15" Left="396,1577" Top="18,89765" Width="314,39394" Height="64,25201" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="REMESA"/>
+      <TfrxMemoView Name="Memo15" Left="464,18924" Top="18,89765" Width="567,62245" Height="64,25201" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="REMESA"/>
-      <TfrxLineView Name="Line2" Left="4" Top="229,54" Width="0" Height="793,7007874" Frame.Color="8421504" Frame.Typ="1"/>
+      <TfrxLineView Name="Line2" Left="4" Top="229,54" Width="0" Height="468,661207399998" Frame.Color="8421504" Frame.Typ="1"/>
-      <TfrxLineView Name="Line5" Left="77,02381" Top="228,20666667" Width="0" Height="793,7007874" Frame.Color="8421504" Frame.Typ="1"/>
+      <TfrxLineView Name="Line5" Left="73,24428" Top="228,20666667" Width="0" Height="468,6612074" Frame.Color="8421504" Frame.Typ="1"/>
-      <TfrxLineView Name="Line4" Left="518,16141" Top="229,54" Width="0" Height="793,7007874" Frame.Color="8421504" Frame.Typ="1"/>
+      <TfrxLineView Name="Line4" Left="651,11162667" Top="229,54" Width="0" Height="468,6612074" Frame.Color="8421504" Frame.Typ="1"/>
-      <TfrxLineView Name="Line3" Left="617,19688457" Top="229,54" Width="0" Height="793,7007874" Frame.Color="8421504" Frame.Typ="1"/>
+      <TfrxMemoView Name="Memo1" Left="290,64575228" Top="228,66141732" Width="82,77166087" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
-      <TfrxMemoView Name="Memo1" Left="162,14173228" Top="228,66141732" Width="71,43307087" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
+      <TfrxMemoView Name="Memo8" Left="373,50680333" Top="228,66141732" Width="88,44094" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vencimiento"/>
-      <TfrxMemoView Name="Memo8" Left="233,66419333" Top="228,66141732" Width="80,88188" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vencimiento"/>
+      <TfrxLineView Name="Line8" Left="373,42269667" Top="229,10235" Width="0" Height="468,6612074" Frame.Color="8421504" Frame.Typ="1"/>
-      <TfrxLineView Name="Line8" Left="233,58008667" Top="229,10235" Width="0" Height="793,7007874" Frame.Color="8421504" Frame.Typ="1"/>
+      <TfrxLineView Name="Line9" Left="462,74026" Top="228,43568333" Width="0" Height="468,6612074" Frame.Color="8421504" Frame.Typ="1"/>
-      <TfrxLineView Name="Line9" Left="314,67192333" Top="229,76901667" Width="0" Height="793,7007874" Frame.Color="8421504" Frame.Typ="1"/>
       <TfrxMemoView Name="Memo22" Left="15,11812" Top="139,84261" Width="68,91342" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
       <TfrxMemoView Name="Memo25" Left="87,5906" Top="139,84261" Width="169,41744" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
-      <TfrxMemoView Name="Memo19" Left="336,37817" Top="139,84261" Width="42,45671" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Titular:"/>
+      <TfrxMemoView Name="Memo19" Left="650,079160000002" Top="139,84261" Width="42,45671" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Titular:"/>
-      <TfrxMemoView Name="Memo26" Left="382,39394" Top="139,84261" Width="331,93723" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;TITULAR&#34;]"/>
+      <TfrxMemoView Name="Memo26" Left="696,094930000002" Top="139,84261" Width="331,93723" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;TITULAR&#34;]"/>
-      <TfrxMemoView Name="Memo27" Left="336,37817" Top="117,16543" Width="176,9765" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Datos de la cuenta"/>
+      <TfrxMemoView Name="Memo27" Left="650,079160000002" Top="117,16543" Width="176,9765" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Datos de la cuenta"/>
-      <TfrxMemoView Name="Memo28" Left="336,37817" Top="162,51979" Width="75,5906" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. entidad:"/>
+      <TfrxMemoView Name="Memo28" Left="650,079160000002" Top="162,51979" Width="75,5906" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. entidad:"/>
-      <TfrxMemoView Name="Memo29" Left="415,52783" Top="162,51979" Width="53,13389" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;ENTIDAD&#34;]"/>
+      <TfrxMemoView Name="Memo29" Left="729,228820000002" Top="162,51979" Width="53,13389" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;ENTIDAD&#34;]"/>
-      <TfrxMemoView Name="Memo30" Left="472,44125" Top="162,51979" Width="83,14966" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. sucursal:"/>
+      <TfrxMemoView Name="Memo30" Left="786,142240000002" Top="162,51979" Width="83,14966" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. sucursal:"/>
-      <TfrxMemoView Name="Memo31" Left="559,14997" Top="162,51979" Width="147,62214" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;SUCURSAL&#34;]"/>
+      <TfrxMemoView Name="Memo31" Left="872,850960000002" Top="162,51979" Width="147,62214" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;SUCURSAL&#34;]"/>
-      <TfrxMemoView Name="Memo32" Left="336,37817" Top="185,19697" Width="26,45671" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="DC:"/>
+      <TfrxMemoView Name="Memo32" Left="650,079160000002" Top="185,19697" Width="26,45671" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="DC:"/>
-      <TfrxMemoView Name="Memo33" Left="366,39394" Top="185,19697" Width="34,23624" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DC&#34;]"/>
+      <TfrxMemoView Name="Memo33" Left="680,094930000002" Top="185,19697" Width="34,23624" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DC&#34;]"/>
-      <TfrxMemoView Name="Memo34" Left="472,44125" Top="185,19697" Width="83,14966" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. cuenta:"/>
+      <TfrxMemoView Name="Memo34" Left="786,142240000002" Top="185,19697" Width="83,14966" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. cuenta:"/>
-      <TfrxMemoView Name="Memo37" Left="559,14997" Top="185,19697" Width="147,62214" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;CUENTA&#34;]"/>
+      <TfrxMemoView Name="Memo37" Left="872,850960000002" Top="185,19697" Width="147,62214" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;CUENTA&#34;]"/>
-      <TfrxMemoView Name="Memo38" Left="77,48031496" Top="228,66141732" Width="84,66141" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo"/>
+      <TfrxMemoView Name="Memo38" Left="73,70078496" Top="228,66141732" Width="107,33859" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo prov."/>
-      <TfrxLineView Name="Line6" Left="161,763779527559" Top="230,55133" Width="0" Height="793,7007874" Frame.Color="8421504" Frame.Typ="1"/>
+      <TfrxMemoView Name="Memo11" Left="750,34694" Top="228,10513333" Width="193,88992" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Número de cuenta"/>
+      <TfrxLineView Name="Line7" Left="944,8825" Top="228,7718" Width="0" Height="468,6612074" Frame.Color="8421504" Frame.Typ="1"/>
+      <TfrxLineView Name="Line3" Left="751,48043457" Top="228,87333333" Width="0" Height="468,6612074" Frame.Color="8421504" Frame.Typ="1"/>
+      <TfrxMemoView Name="Memo36" Left="180,75077333" Top="228,661417322835" Width="111,11812" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. factura prov."/>
+      <TfrxLineView Name="Line10" Left="292,35714333" Top="226,7718" Width="0" Height="468,6612074" Frame.Color="8421504" Frame.Typ="1"/>
+      <TfrxLineView Name="Line6" Left="180,66142953" Top="230,55133" Width="0" Height="468,6612074" Frame.Color="8421504" Frame.Typ="1"/>
     </TfrxPageHeader>
-    <TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="336" Width="718,1107" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
+    <TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="340,1577" Width="1046,92981" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
-      <TfrxMemoView Name="MemPrecio" Left="520,87401087" Top="2" Width="94,00392724" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NIF_CIF_PROVEEDOR&#34;]"/>
+      <TfrxMemoView Name="MemPrecio" Left="658,2704242" Top="2,66666666999998" Width="90,22439724" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NIF_CIF_PROVEEDOR&#34;]"/>
-      <TfrxMemoView Name="MemImpTotal" Left="619,27558811" Top="2" Width="94,25193189" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE&#34;]"/>
+      <TfrxMemoView Name="MemImpTotal" Left="948,09469811" Top="2" Width="94,25193189" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE&#34;]"/>
-      <TfrxMemoView Name="MemCantidad" Left="316,73615457" Top="2" Width="199,21268874" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NOMBRE_PROVEEDOR&#34;]"/>
+      <TfrxMemoView Name="MemCantidad" Left="469,2506879" Top="2" Width="180,31503874" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NOMBRE_PROVEEDOR&#34;]"/>
-      <TfrxMemoView Name="Memo21" Left="235,28757" Top="2" Width="76,88188" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;FECHA_VENCIMIENTO&#34;]"/>
+      <TfrxMemoView Name="Memo21" Left="384,02257333" Top="2" Width="73,10235" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;FECHA_VENCIMIENTO&#34;]"/>
-      <TfrxMemoView Name="Memo2" Left="6,18491" Top="2" Width="68,88188" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
+      <TfrxMemoView Name="Memo2" Left="9,96444" Top="2" Width="61,32282" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
-      <TfrxMemoView Name="Memo13" Left="161,63791" Top="2" Width="65,88188" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;SITUACION&#34;]"/>
+      <TfrxMemoView Name="Memo13" Left="297,70099" Top="2" Width="73,44094" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;SITUACION&#34;]"/>
-      <TfrxMemoView Name="Memo40" Left="83,14966" Top="1,88976378" Width="72,66141" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA_PROVEEDOR&#34;]"/>
+      <TfrxMemoView Name="Memo40" Left="76,92393333" Top="1,88976378000001" Width="99,11812" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA_PROVEEDOR&#34;]"/>
+      <TfrxMemoView Name="Memo12" Left="764,13172667" Top="2,44619667000001" Width="29,75191724" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;ENTIDAD_PROVEEDOR&#34;]"/>
+      <TfrxMemoView Name="Memo14" Left="799,92702667" Top="2,66666666999998" Width="29,75191724" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;SUCURSAL_PROVEEDOR&#34;]"/>
+      <TfrxMemoView Name="Memo20" Left="834,82993333" Top="2,66666665999998" Width="18,41332724" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;DC_PROVEEDOR&#34;]"/>
+      <TfrxMemoView Name="Memo35" Left="857,95331" Top="2,66666666999998" Width="82,66533724" Height="15,11811024" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;CUENTA_PROVEEDOR&#34;]"/>
+      <TfrxMemoView Name="Memo39" Left="183,41744" Top="2" Width="106,67718" Height="15,11812" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA_FACTURA_PROV&#34;]"/>
     </TfrxMasterData>
-    <TfrxReportSummary Name="ReportSummary1" Height="42,67718" Left="0" Top="416" Width="718,1107" OnBeforePrint="ReportSummary1OnBeforePrint" Stretched="True">
+    <TfrxReportSummary Name="ReportSummary1" Height="42,67718" Left="0" Top="419,52783" Width="1046,92981" OnBeforePrint="ReportSummary1OnBeforePrint" Stretched="True">
-      <TfrxShapeView Name="Shape5" Left="4" Top="13,7953" Width="714" Height="28,88188" Color="16777215" Frame.Color="8421504"/>
+      <TfrxShapeView Name="Shape5" Left="4" Top="13,7953" Width="1042,81911" Height="28,88188" Color="16777215" Frame.Color="8421504"/>
-      <TfrxMemoView Name="Memo9" Left="599,11812" Top="14,89765" Width="117,63791" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
+      <TfrxMemoView Name="Memo9" Left="924,157700000002" Top="14,89765" Width="117,63791" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
-      <TfrxMemoView Name="Memo10" Left="459,27551" Top="17,7953" Width="132" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total remesa:"/>
+      <TfrxMemoView Name="Memo10" Left="784,315090000002" Top="17,7953" Width="132" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total remesa:"/>
     </TfrxReportSummary>
   </TfrxReportPage>
 </TfrxReport>

Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm

@@ -380,6 +380,7 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'RecibosProveedor_REFERENCIA_PROVEEDOR'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -416,6 +417,7 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'RecibosProveedor_ID_REMESA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -428,6 +430,7 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         BlobType = dabtUnknown
         DisplayWidth = 0
         Alignment = taLeftJustify
+        DictionaryEntry = 'RecibosProveedor_REFERENCIA_REMESA'
         InPrimaryKey = False
         Calculated = False
         Lookup = False
@@ -533,6 +536,20 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         Lookup = False
         LookupCache = False
       end
+      item
+        Name = 'REFERENCIA_FACTURA_PROV'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Ref. factura prov.'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
       item
         Name = 'FORMA_PAGO_FACTURA'
         DataType = datString

Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas

@@ -9,9 +9,9 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_RecibosProveedor = '{807B18A0-18B1-4AA2-AD28-EB2C6F7355D4}';
+  RID_RecibosProveedor = '{2FD8CE2A-3931-4327-8A27-7B090B6260DD}';
-  RID_RecibosProveedor_Refresh = '{1F7D595D-7CE8-4F30-A7AD-8DF53957939D}';
+  RID_RecibosProveedor_Refresh = '{93C0F413-C971-469C-BD3A-6B4895AAB0F6}';
-  RID_PagosProveedor = '{97FF686E-BBE3-490B-A127-DA9B5AF05917}';
+  RID_PagosProveedor = '{C13001E4-337A-4CAF-8ACF-25094F0F36FD}';
 
   { Data table names }
   nme_RecibosProveedor = 'RecibosProveedor';
@@ -34,6 +34,7 @@ const
   fld_RecibosProveedorOTROS_GASTOS = 'OTROS_GASTOS';
   fld_RecibosProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL';
   fld_RecibosProveedorFECHA_FACTURA = 'FECHA_FACTURA';
+  fld_RecibosProveedorREFERENCIA_FACTURA_PROV = 'REFERENCIA_FACTURA_PROV';
   fld_RecibosProveedorFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
   fld_RecibosProveedorIMPORTE_FACTURA = 'IMPORTE_FACTURA';
   fld_RecibosProveedorID_PROVEEDOR = 'ID_PROVEEDOR';
@@ -64,19 +65,20 @@ const
   idx_RecibosProveedorOTROS_GASTOS = 12;
   idx_RecibosProveedorIMPORTE_TOTAL = 13;
   idx_RecibosProveedorFECHA_FACTURA = 14;
-  idx_RecibosProveedorFORMA_PAGO_FACTURA = 15;
+  idx_RecibosProveedorREFERENCIA_FACTURA_PROV = 15;
-  idx_RecibosProveedorIMPORTE_FACTURA = 16;
+  idx_RecibosProveedorFORMA_PAGO_FACTURA = 16;
-  idx_RecibosProveedorID_PROVEEDOR = 17;
+  idx_RecibosProveedorIMPORTE_FACTURA = 17;
-  idx_RecibosProveedorNOMBRE_PROVEEDOR = 18;
+  idx_RecibosProveedorID_PROVEEDOR = 18;
-  idx_RecibosProveedorNIF_CIF_PROVEEDOR = 19;
+  idx_RecibosProveedorNOMBRE_PROVEEDOR = 19;
-  idx_RecibosProveedorENTIDAD_PROVEEDOR = 20;
+  idx_RecibosProveedorNIF_CIF_PROVEEDOR = 20;
-  idx_RecibosProveedorSUCURSAL_PROVEEDOR = 21;
+  idx_RecibosProveedorENTIDAD_PROVEEDOR = 21;
-  idx_RecibosProveedorDC_PROVEEDOR = 22;
+  idx_RecibosProveedorSUCURSAL_PROVEEDOR = 22;
-  idx_RecibosProveedorCUENTA_PROVEEDOR = 23;
+  idx_RecibosProveedorDC_PROVEEDOR = 23;
-  idx_RecibosProveedorID_EMPRESA = 24;
+  idx_RecibosProveedorCUENTA_PROVEEDOR = 24;
-  idx_RecibosProveedorFECHA_ALTA = 25;
+  idx_RecibosProveedorID_EMPRESA = 25;
-  idx_RecibosProveedorFECHA_MODIFICACION = 26;
+  idx_RecibosProveedorFECHA_ALTA = 26;
-  idx_RecibosProveedorUSUARIO = 27;
+  idx_RecibosProveedorFECHA_MODIFICACION = 27;
+  idx_RecibosProveedorUSUARIO = 28;
 
   { RecibosProveedor_Refresh fields }
   fld_RecibosProveedor_RefreshID = 'ID';
@@ -94,6 +96,7 @@ const
   fld_RecibosProveedor_RefreshOTROS_GASTOS = 'OTROS_GASTOS';
   fld_RecibosProveedor_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL';
   fld_RecibosProveedor_RefreshFECHA_FACTURA = 'FECHA_FACTURA';
+  fld_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV = 'REFERENCIA_FACTURA_PROV';
   fld_RecibosProveedor_RefreshFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
   fld_RecibosProveedor_RefreshIMPORTE_FACTURA = 'IMPORTE_FACTURA';
   fld_RecibosProveedor_RefreshID_PROVEEDOR = 'ID_PROVEEDOR';
@@ -124,19 +127,20 @@ const
   idx_RecibosProveedor_RefreshOTROS_GASTOS = 12;
   idx_RecibosProveedor_RefreshIMPORTE_TOTAL = 13;
   idx_RecibosProveedor_RefreshFECHA_FACTURA = 14;
-  idx_RecibosProveedor_RefreshFORMA_PAGO_FACTURA = 15;
+  idx_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV = 15;
-  idx_RecibosProveedor_RefreshIMPORTE_FACTURA = 16;
+  idx_RecibosProveedor_RefreshFORMA_PAGO_FACTURA = 16;
-  idx_RecibosProveedor_RefreshID_PROVEEDOR = 17;
+  idx_RecibosProveedor_RefreshIMPORTE_FACTURA = 17;
-  idx_RecibosProveedor_RefreshNOMBRE_PROVEEDOR = 18;
+  idx_RecibosProveedor_RefreshID_PROVEEDOR = 18;
-  idx_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR = 19;
+  idx_RecibosProveedor_RefreshNOMBRE_PROVEEDOR = 19;
-  idx_RecibosProveedor_RefreshENTIDAD_PROVEEDOR = 20;
+  idx_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR = 20;
-  idx_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR = 21;
+  idx_RecibosProveedor_RefreshENTIDAD_PROVEEDOR = 21;
-  idx_RecibosProveedor_RefreshDC_PROVEEDOR = 22;
+  idx_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR = 22;
-  idx_RecibosProveedor_RefreshCUENTA_PROVEEDOR = 23;
+  idx_RecibosProveedor_RefreshDC_PROVEEDOR = 23;
-  idx_RecibosProveedor_RefreshID_EMPRESA = 24;
+  idx_RecibosProveedor_RefreshCUENTA_PROVEEDOR = 24;
-  idx_RecibosProveedor_RefreshFECHA_ALTA = 25;
+  idx_RecibosProveedor_RefreshID_EMPRESA = 25;
-  idx_RecibosProveedor_RefreshFECHA_MODIFICACION = 26;
+  idx_RecibosProveedor_RefreshFECHA_ALTA = 26;
-  idx_RecibosProveedor_RefreshUSUARIO = 27;
+  idx_RecibosProveedor_RefreshFECHA_MODIFICACION = 27;
+  idx_RecibosProveedor_RefreshUSUARIO = 28;
 
   { PagosProveedor fields }
   fld_PagosProveedorID = 'ID';
@@ -169,7 +173,7 @@ const
 type
   { IRecibosProveedor }
   IRecibosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{99BA6D6E-1ADC-4073-88CF-3F2D36511AA8}']
+  ['{0CE8E633-6E52-482D-BB17-F2001AC7B6FE}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -201,6 +205,8 @@ type
     procedure SetIMPORTE_TOTALValue(const aValue: Currency);
     function GetFECHA_FACTURAValue: DateTime;
     procedure SetFECHA_FACTURAValue(const aValue: DateTime);
+    function GetREFERENCIA_FACTURA_PROVValue: String;
+    procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String);
     function GetFORMA_PAGO_FACTURAValue: String;
     procedure SetFORMA_PAGO_FACTURAValue(const aValue: String);
     function GetIMPORTE_FACTURAValue: Currency;
@@ -245,6 +251,7 @@ type
     property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
     property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
     property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+    property REFERENCIA_FACTURA_PROV: String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue;
     property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
     property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
     property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
@@ -295,6 +302,8 @@ type
     procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
     function GetFECHA_FACTURAValue: DateTime; virtual;
     procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+    function GetREFERENCIA_FACTURA_PROVValue: String; virtual;
+    procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual;
     function GetFORMA_PAGO_FACTURAValue: String; virtual;
     procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
     function GetIMPORTE_FACTURAValue: Currency; virtual;
@@ -338,6 +347,7 @@ type
     property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
     property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
     property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+    property REFERENCIA_FACTURA_PROV: String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue;
     property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
     property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
     property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
@@ -360,7 +370,7 @@ type
 
   { IRecibosProveedor_Refresh }
   IRecibosProveedor_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{EDBDE565-F79D-4A6A-8D70-60F31438BCAD}']
+  ['{233ADE04-FF94-41EE-BD3A-BDAE0997F3AC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -392,6 +402,8 @@ type
     procedure SetIMPORTE_TOTALValue(const aValue: Currency);
     function GetFECHA_FACTURAValue: DateTime;
     procedure SetFECHA_FACTURAValue(const aValue: DateTime);
+    function GetREFERENCIA_FACTURA_PROVValue: String;
+    procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String);
     function GetFORMA_PAGO_FACTURAValue: String;
     procedure SetFORMA_PAGO_FACTURAValue(const aValue: String);
     function GetIMPORTE_FACTURAValue: Currency;
@@ -436,6 +448,7 @@ type
     property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
     property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
     property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+    property REFERENCIA_FACTURA_PROV: String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue;
     property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
     property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
     property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
@@ -486,6 +499,8 @@ type
     procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
     function GetFECHA_FACTURAValue: DateTime; virtual;
     procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+    function GetREFERENCIA_FACTURA_PROVValue: String; virtual;
+    procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual;
     function GetFORMA_PAGO_FACTURAValue: String; virtual;
     procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
     function GetIMPORTE_FACTURAValue: Currency; virtual;
@@ -529,6 +544,7 @@ type
     property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
     property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
     property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+    property REFERENCIA_FACTURA_PROV: String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue;
     property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
     property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
     property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
@@ -551,7 +567,7 @@ type
 
   { IPagosProveedor }
   IPagosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{C80BF63F-80D2-4314-813F-8B4B676327C0}']
+  ['{9CFCAC9F-4BF4-4D76-A613-413B38BC549C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -809,6 +825,16 @@ begin
   DataTable.Fields[idx_RecibosProveedorFECHA_FACTURA].AsDateTime := aValue;
 end;
 
+function TRecibosProveedorDataTableRules.GetREFERENCIA_FACTURA_PROVValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorREFERENCIA_FACTURA_PROV].AsString;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosProveedorREFERENCIA_FACTURA_PROV].AsString := aValue;
+end;
+
 function TRecibosProveedorDataTableRules.GetFORMA_PAGO_FACTURAValue: String;
 begin
   result := DataTable.Fields[idx_RecibosProveedorFORMA_PAGO_FACTURA].AsString;
@@ -1101,6 +1127,16 @@ begin
   DataTable.Fields[idx_RecibosProveedor_RefreshFECHA_FACTURA].AsDateTime := aValue;
 end;
 
+function TRecibosProveedor_RefreshDataTableRules.GetREFERENCIA_FACTURA_PROVValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV].AsString;
+end;
+
+procedure TRecibosProveedor_RefreshDataTableRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV].AsString := aValue;
+end;
+
 function TRecibosProveedor_RefreshDataTableRules.GetFORMA_PAGO_FACTURAValue: String;
 begin
   result := DataTable.Fields[idx_RecibosProveedor_RefreshFORMA_PAGO_FACTURA].AsString;

Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas

@@ -9,14 +9,14 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_RecibosProveedorDelta = '{D18482E7-4712-405B-949D-50EF9971E826}';
+  RID_RecibosProveedorDelta = '{D758EEB0-54E0-464F-9706-C3B67B7B979B}';
-  RID_RecibosProveedor_RefreshDelta = '{E5A7D96D-DD67-458C-89D6-A82C366301D4}';
+  RID_RecibosProveedor_RefreshDelta = '{A892FE0C-5CDC-4ECA-BCA0-993A28E283E1}';
-  RID_PagosProveedorDelta = '{A03A2B25-848C-486D-AA8E-476068191539}';
+  RID_PagosProveedorDelta = '{DEFC89B6-401B-4DD7-9BDD-D060C059ACCB}';
 
 type
   { IRecibosProveedorDelta }
   IRecibosProveedorDelta = interface(IRecibosProveedor)
-  ['{D18482E7-4712-405B-949D-50EF9971E826}']
+  ['{D758EEB0-54E0-464F-9706-C3B67B7B979B}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREFERENCIAValue : String;
@@ -33,6 +33,7 @@ type
     function GetOldOTROS_GASTOSValue : Currency;
     function GetOldIMPORTE_TOTALValue : Currency;
     function GetOldFECHA_FACTURAValue : DateTime;
+    function GetOldREFERENCIA_FACTURA_PROVValue : String;
     function GetOldFORMA_PAGO_FACTURAValue : String;
     function GetOldIMPORTE_FACTURAValue : Currency;
     function GetOldID_PROVEEDORValue : Integer;
@@ -63,6 +64,7 @@ type
     property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
     property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
     property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+    property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue;
     property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
     property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
     property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
@@ -128,6 +130,9 @@ type
     function GetFECHA_FACTURAValue: DateTime; virtual;
     function GetOldFECHA_FACTURAValue: DateTime; virtual;
     procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+    function GetREFERENCIA_FACTURA_PROVValue: String; virtual;
+    function GetOldREFERENCIA_FACTURA_PROVValue: String; virtual;
+    procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual;
     function GetFORMA_PAGO_FACTURAValue: String; virtual;
     function GetOldFORMA_PAGO_FACTURAValue: String; virtual;
     procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
@@ -199,6 +204,8 @@ type
     property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
     property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+    property REFERENCIA_FACTURA_PROV : String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue;
+    property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue;
     property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
     property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
     property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
@@ -234,7 +241,7 @@ type
 
   { IRecibosProveedor_RefreshDelta }
   IRecibosProveedor_RefreshDelta = interface(IRecibosProveedor_Refresh)
-  ['{E5A7D96D-DD67-458C-89D6-A82C366301D4}']
+  ['{A892FE0C-5CDC-4ECA-BCA0-993A28E283E1}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREFERENCIAValue : String;
@@ -251,6 +258,7 @@ type
     function GetOldOTROS_GASTOSValue : Currency;
     function GetOldIMPORTE_TOTALValue : Currency;
     function GetOldFECHA_FACTURAValue : DateTime;
+    function GetOldREFERENCIA_FACTURA_PROVValue : String;
     function GetOldFORMA_PAGO_FACTURAValue : String;
     function GetOldIMPORTE_FACTURAValue : Currency;
     function GetOldID_PROVEEDORValue : Integer;
@@ -281,6 +289,7 @@ type
     property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
     property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
     property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+    property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue;
     property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
     property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
     property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
@@ -346,6 +355,9 @@ type
     function GetFECHA_FACTURAValue: DateTime; virtual;
     function GetOldFECHA_FACTURAValue: DateTime; virtual;
     procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+    function GetREFERENCIA_FACTURA_PROVValue: String; virtual;
+    function GetOldREFERENCIA_FACTURA_PROVValue: String; virtual;
+    procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual;
     function GetFORMA_PAGO_FACTURAValue: String; virtual;
     function GetOldFORMA_PAGO_FACTURAValue: String; virtual;
     procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
@@ -417,6 +429,8 @@ type
     property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
     property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+    property REFERENCIA_FACTURA_PROV : String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue;
+    property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue;
     property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
     property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
     property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
@@ -452,7 +466,7 @@ type
 
   { IPagosProveedorDelta }
   IPagosProveedorDelta = interface(IPagosProveedor)
-  ['{A03A2B25-848C-486D-AA8E-476068191539}']
+  ['{DEFC89B6-401B-4DD7-9BDD-D060C059ACCB}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBOValue : Integer;
@@ -797,6 +811,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_FACTURA] := aValue;
 end;
 
+function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_FACTURA_PROVValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROVValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV];
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV] := aValue;
+end;
+
 function TRecibosProveedorBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA];
@@ -1229,6 +1258,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_FACTURA] := aValue;
 end;
 
+function TRecibosProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_FACTURA_PROVValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV];
+end;
+
+function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROVValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV];
+end;
+
+procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_FACTURA_PROV] := aValue;
+end;
+
 function TRecibosProveedor_RefreshBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFORMA_PAGO_FACTURA];

Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm

@@ -26,12 +26,13 @@ object srvRecibosProveedor: TsrvRecibosProveedor
               '  SITUACION,'#10'       ID_FACTURA,'#10'       ID_REMESA,'#10'       REFEREN' +
               'CIA_REMESA,'#10'       FECHA_EMISION,'#10'       FECHA_VENCIMIENTO,'#10'    ' +
               '   DESCRIPCION,'#10'       OBSERVACIONES,'#10'       IMPORTE,'#10'       OTR' +
-              'OS_GASTOS,'#10'       IMPORTE_TOTAL,'#10'       FECHA_FACTURA,'#10'       FO' +
+              'OS_GASTOS,'#10'       IMPORTE_TOTAL,'#10'       FECHA_FACTURA,'#10'       RE' +
-              'RMA_PAGO_FACTURA,'#10'       IMPORTE_FACTURA,'#10'       ID_PROVEEDOR,'#10' ' +
+              'FERENCIA_FACTURA_PROV,'#10'       FORMA_PAGO_FACTURA,'#10'       IMPORTE' +
-              '      NOMBRE_PROVEEDOR,'#10'       NIF_CIF_PROVEEDOR,'#10'       ENTIDAD' +
+              '_FACTURA,'#10'       ID_PROVEEDOR,'#10'       NOMBRE_PROVEEDOR,'#10'       N' +
-              '_PROVEEDOR,'#10'       SUCURSAL_PROVEEDOR,'#10'       DC_PROVEEDOR,'#10'    ' +
+              'IF_CIF_PROVEEDOR,'#10'       ENTIDAD_PROVEEDOR,'#10'       SUCURSAL_PROV' +
-              '   CUENTA_PROVEEDOR,'#10'       ID_EMPRESA,'#10'       FECHA_ALTA,'#10'     ' +
+              'EEDOR,'#10'       DC_PROVEEDOR,'#10'       CUENTA_PROVEEDOR,'#10'       ID_E' +
-              '  FECHA_MODIFICACION,'#10'       USUARIO'#10#10'FROM V_RECIBOS_PROVEEDOR'
+              'MPRESA,'#10'       FECHA_ALTA,'#10'       FECHA_MODIFICACION,'#10'       USU' +
+              'ARIO'#10#10'FROM V_RECIBOS_PROVEEDOR'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -145,6 +146,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor
               item
                 DatasetField = 'REFERENCIA_REMESA'
                 TableField = 'REFERENCIA_REMESA'
+              end
+              item
+                DatasetField = 'REFERENCIA_FACTURA_PROV'
+                TableField = 'REFERENCIA_FACTURA_PROV'
               end>
           end>
         Name = 'RecibosProveedor'
@@ -175,8 +180,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             DataType = datString
             Size = 255
             BlobType = dabtUnknown
-            DisplayWidth = 0
+            DictionaryEntry = 'RecibosProveedor_REFERENCIA_PROVEEDOR'
-            Alignment = taLeftJustify
             InPrimaryKey = False
             Calculated = False
             Lookup = False
@@ -207,8 +211,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Name = 'ID_REMESA'
             DataType = datInteger
             BlobType = dabtUnknown
-            DisplayWidth = 0
+            DictionaryEntry = 'RecibosProveedor_ID_REMESA'
-            Alignment = taLeftJustify
             InPrimaryKey = False
             Calculated = False
             Lookup = False
@@ -219,8 +222,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             DataType = datString
             Size = 255
             BlobType = dabtUnknown
-            DisplayWidth = 0
+            DictionaryEntry = 'RecibosProveedor_REFERENCIA_REMESA'
-            Alignment = taLeftJustify
             InPrimaryKey = False
             Calculated = False
             Lookup = False
@@ -308,6 +310,17 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'REFERENCIA_FACTURA_PROV'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV'
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'FORMA_PAGO_FACTURA'
             DataType = datString
@@ -467,13 +480,13 @@ object srvRecibosProveedor: TsrvRecibosProveedor
               '  SITUACION,'#10'       ID_FACTURA,'#10'       ID_REMESA,'#10'       REFEREN' +
               'CIA_REMESA,'#10'       FECHA_EMISION,'#10'       FECHA_VENCIMIENTO,'#10'    ' +
               '   DESCRIPCION,'#10'       OBSERVACIONES,'#10'       IMPORTE,'#10'       OTR' +
-              'OS_GASTOS,'#10'       IMPORTE_TOTAL,'#10'       FECHA_FACTURA,'#10'       FO' +
+              'OS_GASTOS,'#10'       IMPORTE_TOTAL,'#10'       FECHA_FACTURA,'#10'       RE' +
-              'RMA_PAGO_FACTURA,'#10'       IMPORTE_FACTURA,'#10'       ID_PROVEEDOR,'#10' ' +
+              'FERENCIA_FACTURA_PROV,'#10'       FORMA_PAGO_FACTURA,'#10'       IMPORTE' +
-              '      NOMBRE_PROVEEDOR,'#10'       NIF_CIF_PROVEEDOR,'#10'       ENTIDAD' +
+              '_FACTURA,'#10'       ID_PROVEEDOR,'#10'       NOMBRE_PROVEEDOR,'#10'       N' +
-              '_PROVEEDOR,'#10'       SUCURSAL_PROVEEDOR,'#10'       DC_PROVEEDOR,'#10'    ' +
+              'IF_CIF_PROVEEDOR,'#10'       ENTIDAD_PROVEEDOR,'#10'       SUCURSAL_PROV' +
-              '   CUENTA_PROVEEDOR,'#10'       ID_EMPRESA,'#10'       FECHA_ALTA,'#10'     ' +
+              'EEDOR,'#10'       DC_PROVEEDOR,'#10'       CUENTA_PROVEEDOR,'#10'       ID_E' +
-              '  FECHA_MODIFICACION,'#10'       USUARIO'#10#10'FROM V_RECIBOS_PROVEEDOR'#10'W' +
+              'MPRESA,'#10'       FECHA_ALTA,'#10'       FECHA_MODIFICACION,'#10'       USU' +
-              'HERE'#10'     ID = :ID'
+              'ARIO'#10#10'FROM V_RECIBOS_PROVEEDOR'#10'WHERE'#10'     ID = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -587,6 +600,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor
               item
                 DatasetField = 'REFERENCIA_REMESA'
                 TableField = 'REFERENCIA_REMESA'
+              end
+              item
+                DatasetField = 'REFERENCIA_FACTURA_PROV'
+                TableField = 'REFERENCIA_FACTURA_PROV'
               end>
           end>
         Name = 'RecibosProveedor_Refresh'
@@ -750,6 +767,17 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'REFERENCIA_FACTURA_PROV'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV'
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'FORMA_PAGO_FACTURA'
             DataType = datString
@@ -1959,6 +1987,41 @@ object srvRecibosProveedor: TsrvRecibosProveedor
         DisplayWidth = 0
         DisplayLabel = 'USUARIO'
         Alignment = taLeftJustify
+      end
+      item
+        Name = 'RecibosProveedor_REFERENCIA_PROVEEDOR'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'REFERENCIA_PROVEEDOR'
+        Alignment = taLeftJustify
+      end
+      item
+        Name = 'RecibosProveedor_ID_REMESA'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'ID_REMESA'
+        Alignment = taLeftJustify
+      end
+      item
+        Name = 'RecibosProveedor_REFERENCIA_REMESA'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'REFERENCIA_REMESA'
+        Alignment = taLeftJustify
+      end
+      item
+        Name = 'RecibosProveedor_REFERENCIA_FACTURA_PROV'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Ref. factura prov.'
+        Alignment = taLeftJustify
       end>
     Left = 48
     Top = 152

Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm

@@ -3,6 +3,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
   ClientHeight = 707
   ClientWidth = 691
   OnClose = CustomEditorClose
+  ExplicitTop = -110
   ExplicitWidth = 699
   ExplicitHeight = 741
   PixelsPerInch = 96
@@ -62,7 +63,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
         Left = 0
         Top = 0
         Width = 683
-        Height = 337
+        Height = 350
         Align = alTop
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -73,102 +74,55 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 683
-        ExplicitHeight = 337
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 683
-          Height = 337
           ExplicitWidth = 683
           ExplicitHeight = 337
-          inherited Bevel1: TBevel
+          DesignSize = (
-            Width = 210
+            683
-            ExplicitWidth = 210
+            350)
-          end
-          inherited eReferencia: TcxDBTextEdit
-            ExplicitWidth = 50
-            Width = 50
-          end
-          inherited eSituacion: TcxDBTextEdit
-            ExplicitWidth = 216
-            Width = 216
-          end
-          inherited edtFechaVencimiento: TcxDBDateEdit
-            ExplicitWidth = 216
-            Width = 216
-          end
           inherited memObservaciones: TcxDBMemo
-            Left = 343
+            Left = 345
-            ExplicitLeft = 343
+            ExplicitLeft = 345
-            ExplicitWidth = 274
-            Width = 274
-          end
-          inherited eImporte: TcxDBCurrencyEdit
-            ExplicitWidth = 194
-            Width = 194
           end
           inherited eFechaEmision: TcxDBTextEdit
-            Left = 419
+            Left = 442
-            ExplicitLeft = 419
+            ExplicitLeft = 442
-            ExplicitWidth = 20
-            Width = 20
           end
           inherited eFormaPago: TcxDBTextEdit
-            Left = 419
+            Left = 442
-            ExplicitLeft = 419
+            ExplicitLeft = 442
-            ExplicitWidth = 42
-            Width = 42
           end
           inherited eImporteTotal: TcxDBCurrencyEdit
-            Left = 419
+            Left = 442
             Style.IsFontAssigned = True
-            ExplicitLeft = 419
+            ExplicitLeft = 442
-            ExplicitWidth = 182
-            Width = 182
           end
           inherited eNombreCliente: TcxDBTextEdit
-            Left = 419
+            Left = 442
-            ExplicitLeft = 419
+            ExplicitLeft = 442
-            ExplicitWidth = 171
-            Width = 171
           end
           inherited eNifCif: TcxDBTextEdit
-            Left = 419
+            Left = 442
-            ExplicitLeft = 419
+            ExplicitLeft = 442
             ExplicitWidth = 255
             Width = 255
           end
           inherited eEntidad: TcxDBTextEdit
-            Left = 419
+            Left = 442
-            ExplicitLeft = 419
+            ExplicitLeft = 442
-            ExplicitWidth = 90
-            Width = 90
           end
           inherited eSucursal: TcxDBTextEdit
-            Left = 541
+            Left = 545
-            ExplicitLeft = 541
+            ExplicitLeft = 545
-            ExplicitWidth = 75
-            Width = 75
           end
           inherited eDC: TcxDBTextEdit
-            Left = 628
+            Left = 611
-            ExplicitLeft = 628
+            ExplicitLeft = 611
           end
           inherited eCuenta: TcxDBTextEdit
-            Left = 419
+            Left = 442
-            ExplicitLeft = 419
+            ExplicitLeft = 442
-            ExplicitWidth = 83
-            Width = 83
-          end
-          inherited eRemesa: TcxDBTextEdit
-            ExplicitWidth = 113
-            Width = 113
-          end
-          inherited eOtrosGastos: TcxDBCurrencyEdit
-            ExplicitWidth = 111
-            Width = 111
-          end
-          inherited eImporteTotalRecibo: TcxCurrencyEdit
-            ExplicitWidth = 121
-            Width = 121
           end
           inherited edtFechaEmision: TcxDBDateEdit
             ExplicitWidth = 97
@@ -178,13 +132,17 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
             ExplicitWidth = 129
             Width = 129
           end
+          inherited rReferenciaFacturaProv: TcxDBTextEdit
+            Left = 442
+            ExplicitLeft = 442
+          end
         end
       end
       inline frViewPagosProveedor1: TfrViewPagosProveedor
         Left = 0
-        Top = 337
+        Top = 350
         Width = 683
-        Height = 247
+        Height = 234
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -199,7 +157,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
         ExplicitHeight = 247
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 683
-          Height = 247
+          Height = 234
           ExplicitWidth = 683
           ExplicitHeight = 247
           inherited ListaPagosProveedor: TcxGrid

Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm

@@ -1,21 +1,22 @@
 inherited frViewReciboProveedor: TfrViewReciboProveedor
   Width = 690
-  Height = 343
+  Height = 350
   ExplicitWidth = 690
-  ExplicitHeight = 343
+  ExplicitHeight = 350
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
     Width = 690
-    Height = 343
+    Height = 350
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
+    ExplicitHeight = 343
     DesignSize = (
       690
-      343)
+      350)
     object Bevel1: TBevel
       Left = 136
       Top = 270
@@ -98,8 +99,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       Width = 216
     end
     object memObservaciones: TcxDBMemo
-      Left = 435
+      Left = 397
-      Top = 272
+      Top = 299
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'OBSERVACIONES'
       DataBinding.DataSource = DADataSource
@@ -111,7 +112,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 18
+      TabOrder = 19
       Height = 49
       Width = 274
     end
@@ -141,8 +142,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       Width = 194
     end
     object eFechaEmision: TcxDBTextEdit
-      Left = 511
+      Left = 494
-      Top = 30
+      Top = 57
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_FACTURA'
       DataBinding.DataSource = DADataSource
@@ -163,12 +164,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 9
+      TabOrder = 10
       Width = 20
     end
     object eFormaPago: TcxDBTextEdit
-      Left = 511
+      Left = 494
-      Top = 57
+      Top = 84
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FORMA_PAGO_FACTURA'
       DataBinding.DataSource = DADataSource
@@ -189,12 +190,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 10
+      TabOrder = 11
       Width = 42
     end
     object eImporteTotal: TcxDBCurrencyEdit
-      Left = 511
+      Left = 494
-      Top = 84
+      Top = 111
       AutoSize = False
       DataBinding.DataField = 'IMPORTE_FACTURA'
       DataBinding.DataSource = DADataSource
@@ -220,13 +221,13 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 11
+      TabOrder = 12
       Height = 21
       Width = 182
     end
     object eNombreCliente: TcxDBTextEdit
-      Left = 511
+      Left = 494
-      Top = 167
+      Top = 194
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'NOMBRE_PROVEEDOR'
       DataBinding.DataSource = DADataSource
@@ -247,12 +248,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 13
+      TabOrder = 14
       Width = 171
     end
     object eNifCif: TcxDBTextEdit
-      Left = 511
+      Left = 494
-      Top = 140
+      Top = 167
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'NIF_CIF_PROVEEDOR'
       DataBinding.DataSource = DADataSource
@@ -273,12 +274,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 12
+      TabOrder = 13
       Width = 147
     end
     object eEntidad: TcxDBTextEdit
-      Left = 511
+      Left = 494
-      Top = 194
+      Top = 221
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'ENTIDAD_PROVEEDOR'
       DataBinding.DataSource = DADataSource
@@ -299,12 +300,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 14
+      TabOrder = 15
       Width = 90
     end
     object eSucursal: TcxDBTextEdit
-      Left = 586
+      Left = 569
-      Top = 194
+      Top = 221
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'SUCURSAL_PROVEEDOR'
       DataBinding.DataSource = DADataSource
@@ -325,12 +326,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 15
+      TabOrder = 16
       Width = 75
     end
     object eDC: TcxDBTextEdit
-      Left = 635
+      Left = 618
-      Top = 194
+      Top = 221
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'DC_PROVEEDOR'
       DataBinding.DataSource = DADataSource
@@ -351,12 +352,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 16
+      TabOrder = 17
       Width = 33
     end
     object eCuenta: TcxDBTextEdit
-      Left = 511
+      Left = 494
-      Top = 221
+      Top = 248
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'CUENTA_PROVEEDOR'
       DataBinding.DataSource = DADataSource
@@ -377,7 +378,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 17
+      TabOrder = 18
       Width = 83
     end
     object eRemesa: TcxDBTextEdit
@@ -495,6 +496,32 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       TabOrder = 1
       Width = 287
     end
+    object rReferenciaFacturaProv: TcxDBTextEdit
+      Left = 494
+      Top = 30
+      Anchors = [akLeft, akTop, akRight]
+      DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
+      DataBinding.DataSource = DADataSource
+      Enabled = False
+      Properties.ReadOnly = False
+      Properties.ValidateOnEnter = True
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Color = clInfoBk
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.Color = clMenuBar
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 9
+      Width = 157
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -581,6 +608,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
         ShowBorder = False
         object dxLayoutControl1Group5: TdxLayoutGroup
           Caption = 'Datos de la factura'
+          object dxLayoutControl1Item21: TdxLayoutItem
+            Caption = 'Ref. factura prov.:'
+            Control = rReferenciaFacturaProv
+            ControlOptions.ShowBorder = False
+          end
           object dxLayoutControl1Item7: TdxLayoutItem
             AutoAligns = [aaVertical]
             AlignHorz = ahClient

Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas

@@ -73,6 +73,8 @@ type
     dxLayoutControl1Group3: TdxLayoutGroup;
     dxLayoutControl1Item20: TdxLayoutItem;
     eReferenciaProveedor: TcxDBTextEdit;
+    dxLayoutControl1Item21: TdxLayoutItem;
+    rReferenciaFacturaProv: TcxDBTextEdit;
     procedure eImportePropertiesEditValueChanged(Sender: TObject);
   private
     FRecibo : IBizRecibosProveedor;

Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm

@@ -43,6 +43,10 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
         DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
         Width = 47
       end
+      object cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn
+        Caption = 'Ref. factura prov.'
+        DataBinding.FieldName = 'REFERENCIA_FACTURA_PROV'
+      end
       object cxGridViewSITUACION: TcxGridDBColumn
         Caption = 'Situaci'#243'n'
         DataBinding.FieldName = 'SITUACION'

Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas

@@ -48,6 +48,7 @@ type
     actProveedor: TAction;
     TBXItem2: TTBXItem;
     TBXSeparatorItem1: TTBXSeparatorItem;
+    cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn;
     procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
       ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
       var ADone: Boolean);

Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.dfm

@@ -525,14 +525,15 @@ object RptRemesasProveedor: TRptRemesasProveedor
               'A_REMESA,'#10'    V_RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO,'#10'    V_RECIB' +
               'OS_PROVEEDOR.DESCRIPCION,'#10'    V_RECIBOS_PROVEEDOR.OBSERVACIONES,' +
               #10'    V_RECIBOS_PROVEEDOR.IMPORTE,'#10'    V_RECIBOS_PROVEEDOR.FECHA_' +
-              'FACTURA,'#10'    V_RECIBOS_PROVEEDOR.FORMA_PAGO_FACTURA,'#10'    V_RECIB' +
+              'FACTURA,'#10'    V_RECIBOS_PROVEEDOR.REFERENCIA_FACTURA_PROV,'#10'    V_' +
-              'OS_PROVEEDOR.IMPORTE_FACTURA,'#10'    V_RECIBOS_PROVEEDOR.ID_EMPRESA' +
+              'RECIBOS_PROVEEDOR.FORMA_PAGO_FACTURA,'#10'    V_RECIBOS_PROVEEDOR.IM' +
-              ','#10'    V_RECIBOS_PROVEEDOR.NOMBRE_PROVEEDOR,'#10'    V_RECIBOS_PROVEE' +
+              'PORTE_FACTURA,'#10'    V_RECIBOS_PROVEEDOR.ID_EMPRESA,'#10'    V_RECIBOS' +
-              'DOR.NIF_CIF_PROVEEDOR,'#10'    V_RECIBOS_PROVEEDOR.ENTIDAD_PROVEEDOR' +
+              '_PROVEEDOR.NOMBRE_PROVEEDOR,'#10'    V_RECIBOS_PROVEEDOR.NIF_CIF_PRO' +
-              ','#10'    V_RECIBOS_PROVEEDOR.SUCURSAL_PROVEEDOR,'#10'    V_RECIBOS_PROV' +
+              'VEEDOR,'#10'    V_RECIBOS_PROVEEDOR.ENTIDAD_PROVEEDOR,'#10'    V_RECIBOS' +
-              'EEDOR.DC_PROVEEDOR,'#10'    V_RECIBOS_PROVEEDOR.CUENTA_PROVEEDOR'#10#10#10'F' +
+              '_PROVEEDOR.SUCURSAL_PROVEEDOR,'#10'    V_RECIBOS_PROVEEDOR.DC_PROVEE' +
-              'ROM V_RECIBOS_PROVEEDOR'#10'WHERE V_RECIBOS_PROVEEDOR.ID_REMESA = :I' +
+              'DOR,'#10'    V_RECIBOS_PROVEEDOR.CUENTA_PROVEEDOR'#10#10#10'FROM V_RECIBOS_P' +
-              'D_REMESA'#10'ORDER BY FECHA_VENCIMIENTO'
+              'ROVEEDOR'#10'WHERE V_RECIBOS_PROVEEDOR.ID_REMESA = :ID_REMESA'#10'ORDER ' +
+              'BY FECHA_VENCIMIENTO'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -618,6 +619,10 @@ object RptRemesasProveedor: TRptRemesasProveedor
               item
                 DatasetField = 'CUENTA_PROVEEDOR'
                 TableField = 'CUENTA_PROVEEDOR'
+              end
+              item
+                DatasetField = 'REFERENCIA_FACTURA_PROV'
+                TableField = 'REFERENCIA_FACTURA_PROV'
               end>
           end>
         Name = 'Informe_Detalles'
@@ -760,6 +765,18 @@ object RptRemesasProveedor: TRptRemesasProveedor
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'REFERENCIA_FACTURA_PROV'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'FORMA_PAGO_FACTURA'
             DataType = datString
@@ -890,7 +907,7 @@ object RptRemesasProveedor: TRptRemesasProveedor
     PreviewOptions.Zoom = 1.000000000000000000
     PrintOptions.Printer = 'Default'
     ReportOptions.CreateDate = 37871.995398692100000000
-    ReportOptions.LastChange = 39252.773046331020000000
+    ReportOptions.LastChange = 39267.734660185180000000
     ReportOptions.VersionBuild = '1'
     ReportOptions.VersionMajor = '12'
     ReportOptions.VersionMinor = '13'

Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.pas

@@ -25,9 +25,9 @@ type
     frxChartObject1: TfrxChartObject;
     frxDBCabecera: TfrxDBDataset;
     frxDBDetalles: TfrxDBDataset;
+    frxReport: TfrxReport;
     schReport: TDASchema;
     DataDictionary: TDADataDictionary;
-    frxReport: TfrxReport;
     procedure DataModuleCreate(Sender: TObject);
   private
     FConnection: IDAConnection;