Remesas de proveedor, y adaptación de recibos de cliente para poder hacer remesas de proveedor

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

Database/VISTAS.SQL

@@ -1,5 +1,8 @@
 DROP VIEW V_REMESAS_PROVEEDOR;
 
+
+DROP VIEW V_VENTAS_ARTICULOS;
+
 /*
 VISTAS RELATIVAS A PEDIDOS Y ALBARANES
 */
@@ -501,6 +504,8 @@ CREATE VIEW V_RECIBOS_PROVEEDOR(
     REFERENCIA_PROVEEDOR,
     SITUACION,
     ID_FACTURA,
+    ID_REMESA,
+    REFERENCIA_REMESA,
     FECHA_EMISION,
     FECHA_VENCIMIENTO,
     DESCRIPCION,
@@ -526,6 +531,7 @@ AS
 SELECT RECIBOS_PROVEEDOR.ID, RECIBOS_PROVEEDOR.REFERENCIA, RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR,
        V_REC_PRO_SITUACION.SITUACION,
        RECIBOS_PROVEEDOR.ID_FACTURA,
+       RECIBOS_PROVEEDOR.ID_REMESA, REMESAS_PROVEEDOR.REFERENCIA as REFERENCIA_REMESA,
        RECIBOS_PROVEEDOR.FECHA_EMISION, RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, RECIBOS_PROVEEDOR.DESCRIPCION,
        RECIBOS_PROVEEDOR.OBSERVACIONES, RECIBOS_PROVEEDOR.IMPORTE, RECIBOS_PROVEEDOR.OTROS_GASTOS,
        RECIBOS_PROVEEDOR.IMPORTE + RECIBOS_PROVEEDOR.OTROS_GASTOS,
@@ -550,7 +556,10 @@ ON (FORMAS_PAGO.ID = FACTURAS_PROVEEDOR.ID_FORMA_PAGO)
 LEFT JOIN CONTACTOS
 ON (CONTACTOS.ID = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
 LEFT JOIN CONTACTOS_DATOS_BANCO
-ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID);
+ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID)
+LEFT JOIN REMESAS_PROVEEDOR
+ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA);
+
 
 
 CREATE VIEW V_RECIBOS_CLIENTE(
@@ -2048,8 +2057,6 @@ AND   (ARTICULOS.INVENTARIABLE = 1);
 /* INFORMES *************************************************************/
 /* **********************************************************************/
 /* Al igual que en Varela tendremos esta vista para hacer todos los informes que queramos de ventas, ya que estará desglosado por artículo */
-DROP VIEW V_VENTAS_ARTICULOS;
-
 CREATE VIEW V_VENTAS_ARTICULOS(
     ID_FACTURA,
     ID_EMPRESA,

Output/Debug/Servidor/Informes/InfRemesaProveedor.fr3

@@ -0,0 +1,67 @@
+<?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="39252,773046331" 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="">
+    <TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="18,89765" Width="718,1107">
+      <TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="73,32282" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Ref. recibo"/>
+      <TfrxMemoView Name="Memo24" Left="617,60668" Top="228,5671" Width="100,50402" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" Style="Cabecera de columna" 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="16250871" Shape="skRoundRectangle"/>
+      <TfrxShapeView Name="Shape2" Left="325,48052" Top="113,3859" Width="393,07112" Height="94,48825" Color="16250871" 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="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Proveedor"/>
+      <TfrxMemoView Name="Memo4" Left="518,20501" Top="228,5671" Width="99,40167" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" 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.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"/>
+      <TfrxLineView Name="Line2" Left="4" Top="229,54" Width="0" Height="793,7007874" Frame.Typ="1"/>
+      <TfrxLineView Name="Line5" Left="77,02381" Top="228,20666667" Width="0" Height="793,7007874" Frame.Typ="1"/>
+      <TfrxLineView Name="Line4" Left="518,16141" Top="229,54" Width="0" Height="793,7007874" Frame.Typ="1"/>
+      <TfrxLineView Name="Line3" Left="617,19688457" Top="229,54" Width="0" Height="793,7007874" Frame.Typ="1"/>
+      <TfrxMemoView Name="Memo1" Left="162,141732283465" Top="228,66141732" Width="71,4330708661417" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Situación"/>
+      <TfrxMemoView Name="Memo8" Left="233,66419333" Top="228,66141732" Width="80,88188" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Vencimiento"/>
+      <TfrxLineView Name="Line8" Left="233,58008667" Top="229,10235" Width="0" Height="793,7007874" Frame.Typ="1"/>
+      <TfrxLineView Name="Line9" Left="314,67192333" Top="229,76901667" Width="0" Height="793,7007874" 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="Memo26" Left="382,39394" 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="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="Memo29" Left="415,52783" 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="Memo31" Left="559,14997" 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="Memo33" Left="366,39394" 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="Memo37" Left="559,14997" Top="185,19697" Width="147,62214" Height="18,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;CUENTA&#34;]"/>
+      <TfrxMemoView Name="Memo38" Left="77,4803149606299" Top="228,66141732" Width="84,66141" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Ref. recibo"/>
+      <TfrxLineView Name="Line6" Left="161,763779527559" Top="230,55133" Width="0" Height="793,7007874" Frame.Typ="1"/>
+    </TfrxPageHeader>
+    <TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="340,1577" Width="718,1107" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
+      <TfrxMemoView Name="Memo14" Left="315,69295" Top="0,342300000000023" Width="200,84261" Height="18,51968504" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Highlight.Font.Charset="1" Highlight.Font.Color="255" Highlight.Font.Height="-13" Highlight.Font.Name="Arial" Highlight.Font.Style="0" Highlight.Color="-16777194" Highlight.Condition="&#60;line#&#62; mod 2 = 0" ParentFont="False" Text=""/>
+      <TfrxMemoView Name="Memo20" Left="234,33086" Top="0" Width="78,48794" Height="19,11812" StretchMode="smMaxHeight" Highlight.Font.Charset="1" Highlight.Font.Color="255" Highlight.Font.Height="-13" Highlight.Font.Name="Arial" Highlight.Font.Style="0" Highlight.Color="-16777194" Highlight.Condition="&#60;line#&#62; mod 2 = 0" Text=""/>
+      <TfrxMemoView Name="Memo36" Left="617,8149948" Top="0" Width="99,53933591" Height="19,11812" StretchMode="smMaxHeight" Highlight.Font.Charset="1" Highlight.Font.Color="255" Highlight.Font.Height="-13" Highlight.Font.Name="Arial" Highlight.Font.Style="0" Highlight.Color="-16777194" Highlight.Condition="&#60;line#&#62; mod 2 = 0" Text=""/>
+      <TfrxMemoView Name="Memo35" Left="519,16141" Top="0" Width="96,16141244" Height="19,11812" StretchMode="smMaxHeight" Highlight.Font.Charset="1" Highlight.Font.Color="255" Highlight.Font.Height="-13" Highlight.Font.Name="Arial" Highlight.Font.Style="0" Highlight.Color="-16777194" Highlight.Condition="&#60;line#&#62; mod 2 = 0" Text=""/>
+      <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="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="Memo12" Left="5" Top="0" Width="71,70841" Height="19,11812" StretchMode="smMaxHeight" Highlight.Font.Charset="1" Highlight.Font.Color="255" Highlight.Font.Height="-13" Highlight.Font.Name="Arial" Highlight.Font.Style="0" Highlight.Color="-16777194" Highlight.Condition="&#60;line#&#62; mod 2 = 0" Text=""/>
+      <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="Memo11" Left="162,79932" Top="0" Width="69,92888" Height="19,11812" StretchMode="smMaxHeight" Highlight.Font.Charset="1" Highlight.Font.Color="255" Highlight.Font.Height="-13" Highlight.Font.Name="Arial" Highlight.Font.Style="0" Highlight.Color="-16777194" Highlight.Condition="&#60;line#&#62; mod 2 = 0" Text=""/>
+      <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="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="Memo13" Left="165,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="Memo39" Left="77,87013" Top="0" Width="83,047" Height="19,11812" StretchMode="smMaxHeight" Highlight.Font.Charset="1" Highlight.Font.Color="255" Highlight.Font.Height="-13" Highlight.Font.Name="Arial" Highlight.Font.Style="0" Highlight.Color="-16777194" Highlight.Condition="&#60;line#&#62; mod 2 = 0" Text=""/>
+      <TfrxMemoView Name="Memo40" Left="83,14966" Top="1,88976378000001" 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;]"/>
+    </TfrxMasterData>
+    <TfrxReportSummary Name="ReportSummary1" Height="42,67718" Left="0" Top="419,52783" Width="718,1107" OnBeforePrint="ReportSummary1OnBeforePrint" Stretched="True">
+      <TfrxShapeView Name="Shape5" Left="4" Top="13,7953" Width="714" Height="28,88188" Color="15790320"/>
+      <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="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:"/>
+    </TfrxReportSummary>
+  </TfrxReportPage>
+</TfrxReport>

Source/Cliente/uPantallaPrincipal.pas

@@ -459,7 +459,9 @@ begin
     HostManager.LoadModule('BancaElectronica_plugin.bpl');
     HostManager.LoadModule('Comisiones_plugin.bpl');
     HostManager.LoadModule('TiendaWeb_plugin.bpl');
+
     HostManager.LoadModule('HistoricoMovimientos_plugin.bpl');
+    HostManager.LoadModule('RemesasProveedor_plugin.bpl');        
 {
     HostManager.LoadModule('PedidosMontaje_plugin.bpl');
     HostManager.LoadModule('CobrosMontaje_plugin.bpl');

Source/Modulos/Articulos/Views/uEditorArticulos.dfm

@@ -2,8 +2,6 @@ inherited fEditorArticulos: TfEditorArticulos
   Left = 489
   Top = 325
   Caption = 'Lista de art'#237'culos'
-  ExplicitWidth = 320
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader

Source/Modulos/Articulos/Views/uEditorElegirArticulos.dfm

@@ -2,7 +2,6 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
   Caption = 'Seleccionar art'#237'culos'
   ClientWidth = 656
   ExplicitWidth = 664
-  ExplicitHeight = 478
   PixelsPerInch = 96
   TextHeight = 13
   object JvgWizardHeader1: TJvgWizardHeader [0]

Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dpk

@@ -69,6 +69,7 @@ contains
   uPagosProveedorController in 'uPagosProveedorController.pas',
   uIEditorRecibosProveedorPreview in 'View\uIEditorRecibosProveedorPreview.pas',
   uRecibosProveedorReportController in 'uRecibosProveedorReportController.pas',
-  uIEditorFechaPagoProveedor in 'View\uIEditorFechaPagoProveedor.pas';
+  uIEditorFechaPagoProveedor in 'View\uIEditorFechaPagoProveedor.pas',
+  uIEditorElegirRecibosProveedor in 'View\uIEditorElegirRecibosProveedor.pas';
 
 end.

Source/Modulos/Recibos de proveedor/Controller/View/uIEditorElegirRecibosProveedor.pas

@@ -3,13 +3,13 @@ unit uIEditorElegirRecibosProveedor;
 interface
 
 uses
-  uIEditorRecibosCliente, uBizRecibosCliente, uGUIBase;
+  uIEditorRecibosProveedor, uBizRecibosProveedor, uGUIBase;
 
 type
-  IEditorElegirRecibosCliente = interface(IEditorRecibosCliente)
+  IEditorElegirRecibosProveedor = interface(IEditorRecibosProveedor)
-  ['{ACCA545C-3D0C-4FD1-9472-A41AD3C2AF9E}']
+  ['{7F0AA54E-6F1D-4298-9DB4-0D797069A90C}']
-    function GetRecibosClienteSeleccionados: IBizRecibosCliente;
+    function GetRecibosProveedorSeleccionados: IBizRecibosProveedor;
-    property RecibosClienteSeleccionados: IBizRecibosCliente read GetRecibosClienteSeleccionados;
+    property RecibosProveedorSeleccionados: IBizRecibosProveedor read GetRecibosProveedorSeleccionados;
 
     procedure SetMultiSelect (AValue : Boolean);
     function GetMultiSelect : Boolean;

Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas

@@ -50,6 +50,7 @@ type
     function Nuevo : IBizRecibosProveedor;
     procedure RecuperarCliente(AReciboProveedor : IBizRecibosProveedor);
     function Buscar(const ID: Integer): IBizRecibosProveedor;
+    function BuscarTodosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor;
   	function BuscarTodosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
   	function BuscarTodos: IBizRecibosProveedor;
   	function BuscarTodosPendientesDevueltos: IBizRecibosProveedor;
@@ -58,7 +59,12 @@ type
     function Localizar(ARecibosProveedor: IBizRecibosProveedor; ADescripcion:String): Boolean;
     function DarListaRecibosProveedor: TStringList;
     function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor;
+
+    procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer);
+    procedure QuitarRemesa(ARecibos : IBizRecibosProveedor);
     procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False);
+    function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
+    
     procedure Preview(ARecibosProveedor : IBizRecibosProveedor);
     procedure Print(ARecibosProveedor : IBizRecibosProveedor);
   end;
@@ -99,6 +105,7 @@ type
     function Duplicar(ARecibosProveedor: IBizRecibosProveedor): IBizRecibosProveedor;
     function Nuevo : IBizRecibosProveedor;
   	function Buscar(const ID: Integer): IBizRecibosProveedor;
+    function BuscarTodosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor;    
   	function BuscarTodosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
     function BuscarTodos: IBizRecibosProveedor;
   	function BuscarTodosPendientesDevueltos: IBizRecibosProveedor;
@@ -107,7 +114,12 @@ type
     function Localizar(ARecibosProveedor: IBizRecibosProveedor; ADescripcion:String): Boolean;
     function DarListaRecibosProveedor: TStringList;
     function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor;
+
+    procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer);
+    procedure QuitarRemesa(ARecibos : IBizRecibosProveedor);
     procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False);
+    function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
+
     procedure Preview(ARecibosProveedor : IBizRecibosProveedor);
     procedure Print(ARecibosProveedor : IBizRecibosProveedor);
   end;
@@ -120,7 +132,7 @@ uses
   uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
   uRecibosProveedorReportController, uBizContactos,
   schRecibosProveedorClient_Intf, uIEditorRecibosProveedor, uIEditorReciboProveedor,
-  uDataModuleRecibosProveedor, uIEditorFechaPagoProveedor;
+  uDataModuleRecibosProveedor, uIEditorFechaPagoProveedor, uIEditorElegirRecibosProveedor;
 
 { TRecibosProveedorController }
 
@@ -203,6 +215,30 @@ begin
 //  end;
 end;
 
+procedure TRecibosProveedorController.AsignarRemesa(ARecibos: IBizRecibosProveedor; ID_REMESA: Integer);
+begin
+  if Assigned(ARecibos) then
+  begin
+    With ARecibos.DataTable do
+    begin
+      First;
+      While not EOF do
+      begin
+        if (ARecibos.ID_REMESA <> ID_REMESA) then
+        begin
+          ARecibos.Edit;
+          //Añadimos el cobro automatico por la remesa y volvemos a asignar ID
+          //para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle
+          AnadirPago(ARecibos, DateToStr(Date)); //->Ojo el orden es importante
+          ARecibos.ID_REMESA := ID_REMESA;
+          AsignarID(ARecibos, ARecibos.ID);
+        end;
+        Next;
+      end;
+    end;
+  end;
+end;
+
 function TRecibosProveedorController.BuscarTodos: IBizRecibosProveedor;
 begin
   Result := FDataModule.GetItems;
@@ -259,6 +295,24 @@ begin
   end;
 end;
 
+function TRecibosProveedorController.BuscarTodosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor;
+begin
+  ShowHourglassCursor;
+  try
+    Result := BuscarTodos;
+    with Result.DataTable.Where do
+    begin
+      if NotEmpty then
+         AddOperator(opAND);
+      OpenBraket;
+      AddText(fld_RecibosProveedorID_REMESA + ' = ' + IntToStr(ID_REMESA));
+      CloseBraket;
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 function TRecibosProveedorController._Vacio: IBizRecibosProveedor;
 begin
   Result := Buscar(ID_NULO);
@@ -444,6 +498,29 @@ begin
     end;
 end;
 
+function TRecibosProveedorController.ElegirRecibos(ARecibos: IBizRecibosProveedor; AMensaje: String;
+  AMultiSelect: Boolean): IBizRecibosProveedor;
+var
+  AEditor : IEditorElegirRecibosProveedor;
+begin
+  Result := NIL;
+  CreateEditor('EditorElegirRecibosProveedor', IEditorElegirRecibosProveedor, AEditor);
+  try
+    with AEditor do
+    begin
+      Controller := Self;
+      RecibosProveedor := ARecibos;
+      MultiSelect := AMultiSelect;
+      Mensaje := AMensaje;
+      if IsPositiveResult(ShowModal) then
+        Result := RecibosProveedorSeleccionados;
+	  Release;
+    end;
+  finally
+    AEditor := NIL;
+  end;
+end;
+
 function TRecibosProveedorController.Eliminar(ARecibosProveedor: IBizRecibosProveedor): Boolean;
 begin
   Result := False;
@@ -669,4 +746,21 @@ begin
   end;
 end;
 
+procedure TRecibosProveedorController.QuitarRemesa(ARecibos: IBizRecibosProveedor);
+begin
+  if Assigned(ARecibos) then
+  begin
+    if ARecibos.Pagos.DataTable.RecordCount = 0 then
+       Exit;
+
+    //Eliminamos el cobro generado por la remesa y quitamos el ID_REMESA del recibo
+    ARecibos.Pagos.DataTable.Last;
+    ARecibos.Pagos.Delete;
+
+    ARecibos.DataTable.Edit;
+    ARecibos.ID_REMESA := 0;
+    ARecibos.DataTable.Post;
+  end;
+end;
+
 end.

Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.drc

@@ -8,3 +8,7 @@
   resources were bound to the produced executable.
 */
 
+STRINGTABLE
+BEGIN
+END
+

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

@@ -410,6 +410,29 @@ object DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         Lookup = False
         LookupCache = False
       end
+      item
+        Name = 'ID_REMESA'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'REFERENCIA_REMESA'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
       item
         Name = 'FECHA_EMISION'
         DataType = datDateTime

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 = '{2AAC024E-AC2F-4513-9259-F199B69B6C27}';
+  RID_RecibosProveedor = '{807B18A0-18B1-4AA2-AD28-EB2C6F7355D4}';
-  RID_RecibosProveedor_Refresh = '{10C38C0E-151B-401A-B871-ECE4187F375B}';
+  RID_RecibosProveedor_Refresh = '{1F7D595D-7CE8-4F30-A7AD-8DF53957939D}';
-  RID_PagosProveedor = '{44A1CD96-B800-4F0E-9B70-201D420A465A}';
+  RID_PagosProveedor = '{97FF686E-BBE3-490B-A127-DA9B5AF05917}';
 
   { Data table names }
   nme_RecibosProveedor = 'RecibosProveedor';
@@ -24,6 +24,8 @@ const
   fld_RecibosProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
   fld_RecibosProveedorSITUACION = 'SITUACION';
   fld_RecibosProveedorID_FACTURA = 'ID_FACTURA';
+  fld_RecibosProveedorID_REMESA = 'ID_REMESA';
+  fld_RecibosProveedorREFERENCIA_REMESA = 'REFERENCIA_REMESA';
   fld_RecibosProveedorFECHA_EMISION = 'FECHA_EMISION';
   fld_RecibosProveedorFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
   fld_RecibosProveedorDESCRIPCION = 'DESCRIPCION';
@@ -52,27 +54,29 @@ const
   idx_RecibosProveedorREFERENCIA_PROVEEDOR = 2;
   idx_RecibosProveedorSITUACION = 3;
   idx_RecibosProveedorID_FACTURA = 4;
-  idx_RecibosProveedorFECHA_EMISION = 5;
+  idx_RecibosProveedorID_REMESA = 5;
-  idx_RecibosProveedorFECHA_VENCIMIENTO = 6;
+  idx_RecibosProveedorREFERENCIA_REMESA = 6;
-  idx_RecibosProveedorDESCRIPCION = 7;
+  idx_RecibosProveedorFECHA_EMISION = 7;
-  idx_RecibosProveedorOBSERVACIONES = 8;
+  idx_RecibosProveedorFECHA_VENCIMIENTO = 8;
-  idx_RecibosProveedorIMPORTE = 9;
+  idx_RecibosProveedorDESCRIPCION = 9;
-  idx_RecibosProveedorOTROS_GASTOS = 10;
+  idx_RecibosProveedorOBSERVACIONES = 10;
-  idx_RecibosProveedorIMPORTE_TOTAL = 11;
+  idx_RecibosProveedorIMPORTE = 11;
-  idx_RecibosProveedorFECHA_FACTURA = 12;
+  idx_RecibosProveedorOTROS_GASTOS = 12;
-  idx_RecibosProveedorFORMA_PAGO_FACTURA = 13;
+  idx_RecibosProveedorIMPORTE_TOTAL = 13;
-  idx_RecibosProveedorIMPORTE_FACTURA = 14;
+  idx_RecibosProveedorFECHA_FACTURA = 14;
-  idx_RecibosProveedorID_PROVEEDOR = 15;
+  idx_RecibosProveedorFORMA_PAGO_FACTURA = 15;
-  idx_RecibosProveedorNOMBRE_PROVEEDOR = 16;
+  idx_RecibosProveedorIMPORTE_FACTURA = 16;
-  idx_RecibosProveedorNIF_CIF_PROVEEDOR = 17;
+  idx_RecibosProveedorID_PROVEEDOR = 17;
-  idx_RecibosProveedorENTIDAD_PROVEEDOR = 18;
+  idx_RecibosProveedorNOMBRE_PROVEEDOR = 18;
-  idx_RecibosProveedorSUCURSAL_PROVEEDOR = 19;
+  idx_RecibosProveedorNIF_CIF_PROVEEDOR = 19;
-  idx_RecibosProveedorDC_PROVEEDOR = 20;
+  idx_RecibosProveedorENTIDAD_PROVEEDOR = 20;
-  idx_RecibosProveedorCUENTA_PROVEEDOR = 21;
+  idx_RecibosProveedorSUCURSAL_PROVEEDOR = 21;
-  idx_RecibosProveedorID_EMPRESA = 22;
+  idx_RecibosProveedorDC_PROVEEDOR = 22;
-  idx_RecibosProveedorFECHA_ALTA = 23;
+  idx_RecibosProveedorCUENTA_PROVEEDOR = 23;
-  idx_RecibosProveedorFECHA_MODIFICACION = 24;
+  idx_RecibosProveedorID_EMPRESA = 24;
-  idx_RecibosProveedorUSUARIO = 25;
+  idx_RecibosProveedorFECHA_ALTA = 25;
+  idx_RecibosProveedorFECHA_MODIFICACION = 26;
+  idx_RecibosProveedorUSUARIO = 27;
 
   { RecibosProveedor_Refresh fields }
   fld_RecibosProveedor_RefreshID = 'ID';
@@ -80,6 +84,8 @@ const
   fld_RecibosProveedor_RefreshREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
   fld_RecibosProveedor_RefreshSITUACION = 'SITUACION';
   fld_RecibosProveedor_RefreshID_FACTURA = 'ID_FACTURA';
+  fld_RecibosProveedor_RefreshID_REMESA = 'ID_REMESA';
+  fld_RecibosProveedor_RefreshREFERENCIA_REMESA = 'REFERENCIA_REMESA';
   fld_RecibosProveedor_RefreshFECHA_EMISION = 'FECHA_EMISION';
   fld_RecibosProveedor_RefreshFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
   fld_RecibosProveedor_RefreshDESCRIPCION = 'DESCRIPCION';
@@ -108,27 +114,29 @@ const
   idx_RecibosProveedor_RefreshREFERENCIA_PROVEEDOR = 2;
   idx_RecibosProveedor_RefreshSITUACION = 3;
   idx_RecibosProveedor_RefreshID_FACTURA = 4;
-  idx_RecibosProveedor_RefreshFECHA_EMISION = 5;
+  idx_RecibosProveedor_RefreshID_REMESA = 5;
-  idx_RecibosProveedor_RefreshFECHA_VENCIMIENTO = 6;
+  idx_RecibosProveedor_RefreshREFERENCIA_REMESA = 6;
-  idx_RecibosProveedor_RefreshDESCRIPCION = 7;
+  idx_RecibosProveedor_RefreshFECHA_EMISION = 7;
-  idx_RecibosProveedor_RefreshOBSERVACIONES = 8;
+  idx_RecibosProveedor_RefreshFECHA_VENCIMIENTO = 8;
-  idx_RecibosProveedor_RefreshIMPORTE = 9;
+  idx_RecibosProveedor_RefreshDESCRIPCION = 9;
-  idx_RecibosProveedor_RefreshOTROS_GASTOS = 10;
+  idx_RecibosProveedor_RefreshOBSERVACIONES = 10;
-  idx_RecibosProveedor_RefreshIMPORTE_TOTAL = 11;
+  idx_RecibosProveedor_RefreshIMPORTE = 11;
-  idx_RecibosProveedor_RefreshFECHA_FACTURA = 12;
+  idx_RecibosProveedor_RefreshOTROS_GASTOS = 12;
-  idx_RecibosProveedor_RefreshFORMA_PAGO_FACTURA = 13;
+  idx_RecibosProveedor_RefreshIMPORTE_TOTAL = 13;
-  idx_RecibosProveedor_RefreshIMPORTE_FACTURA = 14;
+  idx_RecibosProveedor_RefreshFECHA_FACTURA = 14;
-  idx_RecibosProveedor_RefreshID_PROVEEDOR = 15;
+  idx_RecibosProveedor_RefreshFORMA_PAGO_FACTURA = 15;
-  idx_RecibosProveedor_RefreshNOMBRE_PROVEEDOR = 16;
+  idx_RecibosProveedor_RefreshIMPORTE_FACTURA = 16;
-  idx_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR = 17;
+  idx_RecibosProveedor_RefreshID_PROVEEDOR = 17;
-  idx_RecibosProveedor_RefreshENTIDAD_PROVEEDOR = 18;
+  idx_RecibosProveedor_RefreshNOMBRE_PROVEEDOR = 18;
-  idx_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR = 19;
+  idx_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR = 19;
-  idx_RecibosProveedor_RefreshDC_PROVEEDOR = 20;
+  idx_RecibosProveedor_RefreshENTIDAD_PROVEEDOR = 20;
-  idx_RecibosProveedor_RefreshCUENTA_PROVEEDOR = 21;
+  idx_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR = 21;
-  idx_RecibosProveedor_RefreshID_EMPRESA = 22;
+  idx_RecibosProveedor_RefreshDC_PROVEEDOR = 22;
-  idx_RecibosProveedor_RefreshFECHA_ALTA = 23;
+  idx_RecibosProveedor_RefreshCUENTA_PROVEEDOR = 23;
-  idx_RecibosProveedor_RefreshFECHA_MODIFICACION = 24;
+  idx_RecibosProveedor_RefreshID_EMPRESA = 24;
-  idx_RecibosProveedor_RefreshUSUARIO = 25;
+  idx_RecibosProveedor_RefreshFECHA_ALTA = 25;
+  idx_RecibosProveedor_RefreshFECHA_MODIFICACION = 26;
+  idx_RecibosProveedor_RefreshUSUARIO = 27;
 
   { PagosProveedor fields }
   fld_PagosProveedorID = 'ID';
@@ -161,7 +169,7 @@ const
 type
   { IRecibosProveedor }
   IRecibosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{D680E4E8-463A-4030-B467-473A335896DA}']
+  ['{99BA6D6E-1ADC-4073-88CF-3F2D36511AA8}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -173,6 +181,10 @@ type
     procedure SetSITUACIONValue(const aValue: String);
     function GetID_FACTURAValue: Integer;
     procedure SetID_FACTURAValue(const aValue: Integer);
+    function GetID_REMESAValue: Integer;
+    procedure SetID_REMESAValue(const aValue: Integer);
+    function GetREFERENCIA_REMESAValue: String;
+    procedure SetREFERENCIA_REMESAValue(const aValue: String);
     function GetFECHA_EMISIONValue: DateTime;
     procedure SetFECHA_EMISIONValue(const aValue: DateTime);
     function GetFECHA_VENCIMIENTOValue: DateTime;
@@ -223,6 +235,8 @@ type
     property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
     property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+    property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
+    property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
     property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
@@ -261,6 +275,10 @@ type
     procedure SetSITUACIONValue(const aValue: String); virtual;
     function GetID_FACTURAValue: Integer; virtual;
     procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+    function GetID_REMESAValue: Integer; virtual;
+    procedure SetID_REMESAValue(const aValue: Integer); virtual;
+    function GetREFERENCIA_REMESAValue: String; virtual;
+    procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual;
     function GetFECHA_EMISIONValue: DateTime; virtual;
     procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
     function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
@@ -310,6 +328,8 @@ type
     property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
     property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+    property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
+    property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
     property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
@@ -340,7 +360,7 @@ type
 
   { IRecibosProveedor_Refresh }
   IRecibosProveedor_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{0150150A-ED6F-4288-A985-D7032B970E45}']
+  ['{EDBDE565-F79D-4A6A-8D70-60F31438BCAD}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -352,6 +372,10 @@ type
     procedure SetSITUACIONValue(const aValue: String);
     function GetID_FACTURAValue: Integer;
     procedure SetID_FACTURAValue(const aValue: Integer);
+    function GetID_REMESAValue: Integer;
+    procedure SetID_REMESAValue(const aValue: Integer);
+    function GetREFERENCIA_REMESAValue: String;
+    procedure SetREFERENCIA_REMESAValue(const aValue: String);
     function GetFECHA_EMISIONValue: DateTime;
     procedure SetFECHA_EMISIONValue(const aValue: DateTime);
     function GetFECHA_VENCIMIENTOValue: DateTime;
@@ -402,6 +426,8 @@ type
     property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
     property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+    property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
+    property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
     property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
@@ -440,6 +466,10 @@ type
     procedure SetSITUACIONValue(const aValue: String); virtual;
     function GetID_FACTURAValue: Integer; virtual;
     procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+    function GetID_REMESAValue: Integer; virtual;
+    procedure SetID_REMESAValue(const aValue: Integer); virtual;
+    function GetREFERENCIA_REMESAValue: String; virtual;
+    procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual;
     function GetFECHA_EMISIONValue: DateTime; virtual;
     procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
     function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
@@ -489,6 +519,8 @@ type
     property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
     property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+    property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
+    property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
     property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
@@ -519,7 +551,7 @@ type
 
   { IPagosProveedor }
   IPagosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{836B8864-48D5-43BD-A70E-36E829553871}']
+  ['{C80BF63F-80D2-4314-813F-8B4B676327C0}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -677,6 +709,26 @@ begin
   DataTable.Fields[idx_RecibosProveedorID_FACTURA].AsInteger := aValue;
 end;
 
+function TRecibosProveedorDataTableRules.GetID_REMESAValue: Integer;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorID_REMESA].AsInteger;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetID_REMESAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RecibosProveedorID_REMESA].AsInteger := aValue;
+end;
+
+function TRecibosProveedorDataTableRules.GetREFERENCIA_REMESAValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorREFERENCIA_REMESA].AsString;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetREFERENCIA_REMESAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosProveedorREFERENCIA_REMESA].AsString := aValue;
+end;
+
 function TRecibosProveedorDataTableRules.GetFECHA_EMISIONValue: DateTime;
 begin
   result := DataTable.Fields[idx_RecibosProveedorFECHA_EMISION].AsDateTime;
@@ -949,6 +1001,26 @@ begin
   DataTable.Fields[idx_RecibosProveedor_RefreshID_FACTURA].AsInteger := aValue;
 end;
 
+function TRecibosProveedor_RefreshDataTableRules.GetID_REMESAValue: Integer;
+begin
+  result := DataTable.Fields[idx_RecibosProveedor_RefreshID_REMESA].AsInteger;
+end;
+
+procedure TRecibosProveedor_RefreshDataTableRules.SetID_REMESAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RecibosProveedor_RefreshID_REMESA].AsInteger := aValue;
+end;
+
+function TRecibosProveedor_RefreshDataTableRules.GetREFERENCIA_REMESAValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosProveedor_RefreshREFERENCIA_REMESA].AsString;
+end;
+
+procedure TRecibosProveedor_RefreshDataTableRules.SetREFERENCIA_REMESAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosProveedor_RefreshREFERENCIA_REMESA].AsString := aValue;
+end;
+
 function TRecibosProveedor_RefreshDataTableRules.GetFECHA_EMISIONValue: DateTime;
 begin
   result := DataTable.Fields[idx_RecibosProveedor_RefreshFECHA_EMISION].AsDateTime;

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

@@ -9,20 +9,22 @@ 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 = '{BCC0F8EA-2780-4D83-973A-E894BB0EF2AF}';
+  RID_RecibosProveedorDelta = '{D18482E7-4712-405B-949D-50EF9971E826}';
-  RID_RecibosProveedor_RefreshDelta = '{19184AE3-ED2E-48EF-8CA9-422567CE161B}';
+  RID_RecibosProveedor_RefreshDelta = '{E5A7D96D-DD67-458C-89D6-A82C366301D4}';
-  RID_PagosProveedorDelta = '{7D84B7A6-CE5E-427D-BF11-E7A74B003876}';
+  RID_PagosProveedorDelta = '{A03A2B25-848C-486D-AA8E-476068191539}';
 
 type
   { IRecibosProveedorDelta }
   IRecibosProveedorDelta = interface(IRecibosProveedor)
-  ['{BCC0F8EA-2780-4D83-973A-E894BB0EF2AF}']
+  ['{D18482E7-4712-405B-949D-50EF9971E826}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREFERENCIAValue : String;
     function GetOldREFERENCIA_PROVEEDORValue : String;
     function GetOldSITUACIONValue : String;
     function GetOldID_FACTURAValue : Integer;
+    function GetOldID_REMESAValue : Integer;
+    function GetOldREFERENCIA_REMESAValue : String;
     function GetOldFECHA_EMISIONValue : DateTime;
     function GetOldFECHA_VENCIMIENTOValue : DateTime;
     function GetOldDESCRIPCIONValue : String;
@@ -51,6 +53,8 @@ type
     property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
     property OldSITUACION : String read GetOldSITUACIONValue;
     property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+    property OldID_REMESA : Integer read GetOldID_REMESAValue;
+    property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
     property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
     property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
@@ -94,6 +98,12 @@ type
     function GetID_FACTURAValue: Integer; virtual;
     function GetOldID_FACTURAValue: Integer; virtual;
     procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+    function GetID_REMESAValue: Integer; virtual;
+    function GetOldID_REMESAValue: Integer; virtual;
+    procedure SetID_REMESAValue(const aValue: Integer); virtual;
+    function GetREFERENCIA_REMESAValue: String; virtual;
+    function GetOldREFERENCIA_REMESAValue: String; virtual;
+    procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual;
     function GetFECHA_EMISIONValue: DateTime; virtual;
     function GetOldFECHA_EMISIONValue: DateTime; virtual;
     procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
@@ -169,6 +179,10 @@ type
     property OldSITUACION : String read GetOldSITUACIONValue;
     property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
     property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+    property ID_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue;
+    property OldID_REMESA : Integer read GetOldID_REMESAValue;
+    property REFERENCIA_REMESA : String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
+    property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
     property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
     property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
     property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
@@ -220,13 +234,15 @@ type
 
   { IRecibosProveedor_RefreshDelta }
   IRecibosProveedor_RefreshDelta = interface(IRecibosProveedor_Refresh)
-  ['{19184AE3-ED2E-48EF-8CA9-422567CE161B}']
+  ['{E5A7D96D-DD67-458C-89D6-A82C366301D4}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREFERENCIAValue : String;
     function GetOldREFERENCIA_PROVEEDORValue : String;
     function GetOldSITUACIONValue : String;
     function GetOldID_FACTURAValue : Integer;
+    function GetOldID_REMESAValue : Integer;
+    function GetOldREFERENCIA_REMESAValue : String;
     function GetOldFECHA_EMISIONValue : DateTime;
     function GetOldFECHA_VENCIMIENTOValue : DateTime;
     function GetOldDESCRIPCIONValue : String;
@@ -255,6 +271,8 @@ type
     property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
     property OldSITUACION : String read GetOldSITUACIONValue;
     property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+    property OldID_REMESA : Integer read GetOldID_REMESAValue;
+    property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
     property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
     property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
@@ -298,6 +316,12 @@ type
     function GetID_FACTURAValue: Integer; virtual;
     function GetOldID_FACTURAValue: Integer; virtual;
     procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+    function GetID_REMESAValue: Integer; virtual;
+    function GetOldID_REMESAValue: Integer; virtual;
+    procedure SetID_REMESAValue(const aValue: Integer); virtual;
+    function GetREFERENCIA_REMESAValue: String; virtual;
+    function GetOldREFERENCIA_REMESAValue: String; virtual;
+    procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual;
     function GetFECHA_EMISIONValue: DateTime; virtual;
     function GetOldFECHA_EMISIONValue: DateTime; virtual;
     procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
@@ -373,6 +397,10 @@ type
     property OldSITUACION : String read GetOldSITUACIONValue;
     property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
     property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+    property ID_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue;
+    property OldID_REMESA : Integer read GetOldID_REMESAValue;
+    property REFERENCIA_REMESA : String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
+    property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
     property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
     property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
     property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
@@ -424,7 +452,7 @@ type
 
   { IPagosProveedorDelta }
   IPagosProveedorDelta = interface(IPagosProveedor)
-  ['{7D84B7A6-CE5E-427D-BF11-E7A74B003876}']
+  ['{A03A2B25-848C-486D-AA8E-476068191539}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBOValue : Integer;
@@ -619,6 +647,36 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_FACTURA] := aValue;
 end;
 
+function TRecibosProveedorBusinessProcessorRules.GetID_REMESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_REMESA];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldID_REMESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_REMESA];
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_REMESA] := aValue;
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_REMESAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REMESA];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_REMESA];
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REMESA] := aValue;
+end;
+
 function TRecibosProveedorBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_EMISION];
@@ -1021,6 +1079,36 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_FACTURA] := aValue;
 end;
 
+function TRecibosProveedor_RefreshBusinessProcessorRules.GetID_REMESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_REMESA];
+end;
+
+function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldID_REMESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshID_REMESA];
+end;
+
+procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshID_REMESA] := aValue;
+end;
+
+function TRecibosProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_REMESAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REMESA];
+end;
+
+function TRecibosProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REMESA];
+end;
+
+procedure TRecibosProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshREFERENCIA_REMESA] := aValue;
+end;
+
 function TRecibosProveedor_RefreshBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedor_RefreshFECHA_EMISION];

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

@@ -77,6 +77,8 @@ type
     function GetPagos : IBizPagosProveedor;
     procedure OnNewRecord(Sender: TDADataTable); override;
 
+    procedure SetID_REMESAValue(const aValue: Integer); override;
+
   public
     property Pagos : IBizPagosProveedor read GetPagos write SetPagos;
     property SeleccionableInterface : ISeleccionable	read FSeleccionableInterface
@@ -106,6 +108,14 @@ begin
    Result := FPagos;
 end;
 
+procedure TBizRecibosProveedor.SetID_REMESAValue(const aValue: Integer);
+begin
+  if (aValue = 0) then
+    SetFieldNull(DataTable, fld_RecibosProveedorID_REMESA)
+  else
+    inherited;
+end;
+
 procedure TBizRecibosProveedor.SetPagos(AValue: IBizPagosProveedor);
  begin
    FPagos := AValue;

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

@@ -23,15 +23,15 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             TargetTable = 'V_RECIBOS_PROVEEDOR'
             SQL = 
               'SELECT ID,'#10'       REFERENCIA,'#10'       REFERENCIA_PROVEEDOR,'#10'     ' +
-              '  SITUACION,'#10'       ID_FACTURA,'#10'       FECHA_EMISION,'#10'       FEC' +
+              '  SITUACION,'#10'       ID_FACTURA,'#10'       ID_REMESA,'#10'       REFEREN' +
-              'HA_VENCIMIENTO,'#10'       DESCRIPCION,'#10'       OBSERVACIONES,'#10'      ' +
+              'CIA_REMESA,'#10'       FECHA_EMISION,'#10'       FECHA_VENCIMIENTO,'#10'    ' +
-              ' IMPORTE,'#10'       OTROS_GASTOS,'#10'       IMPORTE_TOTAL,'#10'       FECH' +
+              '   DESCRIPCION,'#10'       OBSERVACIONES,'#10'       IMPORTE,'#10'       OTR' +
-              'A_FACTURA,'#10'       FORMA_PAGO_FACTURA,'#10'       IMPORTE_FACTURA,'#10'  ' +
+              'OS_GASTOS,'#10'       IMPORTE_TOTAL,'#10'       FECHA_FACTURA,'#10'       FO' +
-              '     ID_PROVEEDOR,'#10'       NOMBRE_PROVEEDOR,'#10'       NIF_CIF_PROVE' +
+              'RMA_PAGO_FACTURA,'#10'       IMPORTE_FACTURA,'#10'       ID_PROVEEDOR,'#10' ' +
-              'EDOR,'#10'       ENTIDAD_PROVEEDOR,'#10'       SUCURSAL_PROVEEDOR,'#10'     ' +
+              '      NOMBRE_PROVEEDOR,'#10'       NIF_CIF_PROVEEDOR,'#10'       ENTIDAD' +
-              '  DC_PROVEEDOR,'#10'       CUENTA_PROVEEDOR,'#10'       ID_EMPRESA,'#10'    ' +
+              '_PROVEEDOR,'#10'       SUCURSAL_PROVEEDOR,'#10'       DC_PROVEEDOR,'#10'    ' +
-              '   FECHA_ALTA,'#10'       FECHA_MODIFICACION,'#10'       USUARIO'#10#10'FROM V' +
+              '   CUENTA_PROVEEDOR,'#10'       ID_EMPRESA,'#10'       FECHA_ALTA,'#10'     ' +
-              '_RECIBOS_PROVEEDOR'
+              '  FECHA_MODIFICACION,'#10'       USUARIO'#10#10'FROM V_RECIBOS_PROVEEDOR'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -137,6 +137,14 @@ object srvRecibosProveedor: TsrvRecibosProveedor
               item
                 DatasetField = 'REFERENCIA_PROVEEDOR'
                 TableField = 'REFERENCIA_PROVEEDOR'
+              end
+              item
+                DatasetField = 'ID_REMESA'
+                TableField = 'ID_REMESA'
+              end
+              item
+                DatasetField = 'REFERENCIA_REMESA'
+                TableField = 'REFERENCIA_REMESA'
               end>
           end>
         Name = 'RecibosProveedor'
@@ -195,6 +203,29 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'ID_REMESA'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'REFERENCIA_REMESA'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'FECHA_EMISION'
             DataType = datDateTime
@@ -433,15 +464,16 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             TargetTable = 'V_RECIBOS_PROVEEDOR'
             SQL = 
               'SELECT ID,'#10'       REFERENCIA,'#10'       REFERENCIA_PROVEEDOR,'#10'     ' +
-              '  SITUACION,'#10'       ID_FACTURA,'#10'       FECHA_EMISION,'#10'       FEC' +
+              '  SITUACION,'#10'       ID_FACTURA,'#10'       ID_REMESA,'#10'       REFEREN' +
-              'HA_VENCIMIENTO,'#10'       DESCRIPCION,'#10'       OBSERVACIONES,'#10'      ' +
+              'CIA_REMESA,'#10'       FECHA_EMISION,'#10'       FECHA_VENCIMIENTO,'#10'    ' +
-              ' IMPORTE,'#10'       OTROS_GASTOS,'#10'       IMPORTE_TOTAL,'#10'       FECH' +
+              '   DESCRIPCION,'#10'       OBSERVACIONES,'#10'       IMPORTE,'#10'       OTR' +
-              'A_FACTURA,'#10'       FORMA_PAGO_FACTURA,'#10'       IMPORTE_FACTURA,'#10'  ' +
+              'OS_GASTOS,'#10'       IMPORTE_TOTAL,'#10'       FECHA_FACTURA,'#10'       FO' +
-              '     ID_PROVEEDOR,'#10'       NOMBRE_PROVEEDOR,'#10'       NIF_CIF_PROVE' +
+              'RMA_PAGO_FACTURA,'#10'       IMPORTE_FACTURA,'#10'       ID_PROVEEDOR,'#10' ' +
-              'EDOR,'#10'       ENTIDAD_PROVEEDOR,'#10'       SUCURSAL_PROVEEDOR,'#10'     ' +
+              '      NOMBRE_PROVEEDOR,'#10'       NIF_CIF_PROVEEDOR,'#10'       ENTIDAD' +
-              '  DC_PROVEEDOR,'#10'       CUENTA_PROVEEDOR,'#10'       ID_EMPRESA,'#10'    ' +
+              '_PROVEEDOR,'#10'       SUCURSAL_PROVEEDOR,'#10'       DC_PROVEEDOR,'#10'    ' +
-              '   FECHA_ALTA,'#10'       FECHA_MODIFICACION,'#10'       USUARIO'#10#10'FROM V' +
+              '   CUENTA_PROVEEDOR,'#10'       ID_EMPRESA,'#10'       FECHA_ALTA,'#10'     ' +
-              '_RECIBOS_PROVEEDOR'#10'WHERE'#10'     ID = :ID'
+              '  FECHA_MODIFICACION,'#10'       USUARIO'#10#10'FROM V_RECIBOS_PROVEEDOR'#10'W' +
+              'HERE'#10'     ID = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -547,6 +579,14 @@ object srvRecibosProveedor: TsrvRecibosProveedor
               item
                 DatasetField = 'REFERENCIA_PROVEEDOR'
                 TableField = 'REFERENCIA_PROVEEDOR'
+              end
+              item
+                DatasetField = 'ID_REMESA'
+                TableField = 'ID_REMESA'
+              end
+              item
+                DatasetField = 'REFERENCIA_REMESA'
+                TableField = 'REFERENCIA_REMESA'
               end>
           end>
         Name = 'RecibosProveedor_Refresh'
@@ -605,6 +645,29 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'ID_REMESA'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'REFERENCIA_REMESA'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'FECHA_EMISION'
             DataType = datDateTime
@@ -1189,6 +1252,13 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             Value = ''
             ParamType = daptInput
           end
+          item
+            Name = 'ID_REMESA'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
+          end
           item
             Name = 'IMPORTE'
             DataType = datFloat
@@ -1226,9 +1296,9 @@ object srvRecibosProveedor: TsrvRecibosProveedor
               'UPDATE RECIBOS_PROVEEDOR'#10'  SET '#10'    REFERENCIA_PROVEEDOR = :REFE' +
               'RENCIA_PROVEEDOR,'#10'    FECHA_EMISION = :FECHA_EMISION,'#10'    FECHA_' +
               'VENCIMIENTO = :FECHA_VENCIMIENTO,'#10'    DESCRIPCION = :DESCRIPCION' +
-              ','#10'    OBSERVACIONES = :OBSERVACIONES,'#10'    IMPORTE = :IMPORTE,'#10'  ' +
+              ','#10'    OBSERVACIONES = :OBSERVACIONES,'#10'    ID_REMESA = :ID_REMESA' +
-              '  OTROS_GASTOS = :OTROS_GASTOS,'#10'    USUARIO = :USUARIO'#10'  WHERE'#10' ' +
+              ','#10'    IMPORTE = :IMPORTE,'#10'    OTROS_GASTOS = :OTROS_GASTOS,'#10'    ' +
-              '   (ID = :OLD_ID)'
+              'USUARIO = :USUARIO'#10'  WHERE'#10'    (ID = :OLD_ID)'
             StatementType = stSQL
             ColumnMappings = <>
           end>

Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk

@@ -84,16 +84,18 @@ requires
   teedb,
   RecibosProveedor_controller,
   RecibosProveedor_data,
-  RecibosProveedor_model;
+  RecibosProveedor_model,
+  JSDialog100;
 
 contains
-  uRecibosProveedorViewRegister in 'uRecibosProveedorViewRegister.pas',
   uEditorRecibosProveedor in 'uEditorRecibosProveedor.pas' {fEditorRecibosProveedor: TfEditorRecibosCliente},
   uViewRecibosProveedor in 'uViewRecibosProveedor.pas' {frViewRecibosProveedor: TFrame},
   uViewReciboProveedor in 'uViewReciboProveedor.pas' {frViewReciboProveedor: TFrame},
   uEditorReciboProveedor in 'uEditorReciboProveedor.pas' {fEditorReciboProveedor: TfEditorReciboCliente},
   uViewPagosProveedor in 'uViewPagosProveedor.pas' {frViewPagosProveedor: TFrame},
   uEditorFechaPagoProveedor in 'uEditorFechaPagoProveedor.pas' {fEditorFechaPagoProveedor},
-  uEditorReciboProveedorReport in 'uEditorReciboProveedorReport.pas' {fEditorReciboProveedorPreview: TfEditorReciboClienteReport};
+  uEditorReciboProveedorReport in 'uEditorReciboProveedorReport.pas' {fEditorReciboProveedorPreview: TfEditorReciboClienteReport},
+  uEditorElegirRecibosProveedor in 'uEditorElegirRecibosProveedor.pas' {fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor},
+  uRecibosProveedorViewRegister in 'uRecibosProveedorViewRegister.pas';
 
 end.

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

@@ -0,0 +1,408 @@
+inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
+  Caption = 'Seleccionar recibos de cliente'
+  ClientWidth = 654
+  ExplicitWidth = 662
+  ExplicitHeight = 240
+  PixelsPerInch = 96
+  TextHeight = 13
+  object JvgWizardHeader1: TJvgWizardHeader [0]
+    Left = 0
+    Top = 0
+    Width = 654
+    Height = 60
+    CaptionFont.Charset = DEFAULT_CHARSET
+    CaptionFont.Color = clWindowText
+    CaptionFont.Height = -11
+    CaptionFont.Name = 'Tahoma'
+    CaptionFont.Style = [fsBold]
+    CommentFont.Charset = DEFAULT_CHARSET
+    CommentFont.Color = clWindowText
+    CommentFont.Height = -11
+    CommentFont.Name = 'Tahoma'
+    CommentFont.Style = []
+    SymbolFont.Charset = DEFAULT_CHARSET
+    SymbolFont.Color = clHighlightText
+    SymbolFont.Height = -35
+    SymbolFont.Name = 'Wingdings'
+    SymbolFont.Style = [fsBold]
+    Captions.Strings = (
+      'Seleccione recibos de cliente')
+    Comments.Strings = (
+      ' ')
+    Gradient.FromColor = clHighlight
+    Gradient.ToColor = clWindow
+    Gradient.Active = False
+    Gradient.Orientation = fgdVertical
+    BufferedDraw = False
+    ExplicitLeft = -8
+    ExplicitTop = -21
+    ExplicitWidth = 656
+  end
+  inherited JvNavPanelHeader: TJvNavPanelHeader
+    Top = 144
+    Width = 654
+    Visible = False
+    ExplicitTop = 144
+    ExplicitWidth = 654
+    inherited Image1: TImage
+      Left = 627
+      ExplicitLeft = 629
+    end
+  end
+  inherited TBXDock: TTBXDock
+    Top = 171
+    Width = 654
+    Height = 49
+    ExplicitTop = 171
+    ExplicitWidth = 654
+    ExplicitHeight = 49
+    inherited tbxMain: TTBXToolbar
+      ExplicitWidth = 117
+      inherited TBXItem5: TTBXItem
+        Visible = False
+      end
+      inherited TBXItem6: TTBXItem
+        Visible = False
+      end
+      inherited TBXItem36: TTBXItem
+        Action = actAnchoAuto2
+      end
+    end
+    inherited tbxFiltro: TTBXToolbar
+      Left = 117
+      Top = 23
+      DockPos = 104
+      DockRow = 1
+      Visible = False
+      ExplicitLeft = 117
+      ExplicitTop = 23
+      inherited TBXItem34: TTBXItem
+        Action = actQuitarFiltro2
+      end
+    end
+    inherited tbxMenu: TTBXToolbar
+      ExplicitWidth = 654
+    end
+  end
+  inherited StatusBar: TJvStatusBar
+    Top = 609
+    Width = 654
+    ExplicitTop = 506
+    ExplicitWidth = 654
+  end
+  inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
+    Left = 0
+    Top = 628
+    Width = 654
+    Height = 36
+    Align = alBottom
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 4
+    ReadOnly = False
+    ExplicitTop = 628
+    ExplicitWidth = 654
+    ExplicitHeight = 36
+    inherited JvFooter1: TJvFooter
+      Width = 654
+      Height = 36
+      ExplicitWidth = 654
+      ExplicitHeight = 36
+      inherited bSeleccionar: TJvFooterBtn
+        Left = 442
+        Top = 3
+        ExplicitLeft = 444
+        ExplicitTop = 3
+      end
+      inherited bCancelar: TJvFooterBtn
+        Left = 546
+        Top = 4
+        ExplicitLeft = 546
+        ExplicitTop = 4
+      end
+    end
+    inherited BarraSeleccionActionList: TActionList
+      inherited actSeleccionar: TAction
+        OnExecute = frViewBarraSeleccion1actSeleccionarExecute
+        OnUpdate = frViewBarraSeleccion1actSeleccionarUpdate
+      end
+      inherited actCancelar: TAction
+        OnExecute = frViewBarraSeleccion1actCancelarExecute
+      end
+    end
+  end
+  inherited frViewRecibosProveedor1: TfrViewRecibosProveedor [5]
+    Top = 220
+    Width = 654
+    Height = 389
+    ExplicitTop = 220
+    ExplicitWidth = 654
+    ExplicitHeight = 389
+    inherited cxGrid: TcxGrid
+      Width = 654
+      Height = 261
+      RootLevelOptions.DetailTabsPosition = dtpNone
+      ExplicitWidth = 654
+      ExplicitHeight = 389
+      inherited cxGridView: TcxGridDBTableView
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Format = ',0.00 '#8364';-,0.00 '#8364
+            Kind = skSum
+            Position = spFooter
+            Column = frViewRecibosProveedor1.cxGridViewIMPORTE_TOTAL
+          end>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Format = ',0.00 '#8364';-,0.00 '#8364
+            Kind = skSum
+          end
+          item
+            Format = '0 recibos'
+            Kind = skCount
+            Column = frViewRecibosProveedor1.cxGridViewFECHA_EMISION
+          end>
+      end
+    end
+    inherited frViewFiltroBase1: TfrViewFiltroBase
+      Width = 654
+      ExplicitWidth = 654
+      inherited TBXDock1: TTBXDock
+        Width = 654
+        ExplicitWidth = 654
+        inherited TBXDockablePanel1: TTBXDockablePanel
+          ExplicitWidth = 654
+          inherited dxLayoutControl1: TdxLayoutControl
+            Width = 650
+            inherited txtFiltroTodo: TcxTextEdit
+              ExplicitWidth = 273
+              Width = 273
+            end
+            inherited edtFechaIniFiltro: TcxDateEdit
+              ExplicitWidth = 121
+              Width = 121
+            end
+            inherited edtFechaFinFiltro: TcxDateEdit
+              ExplicitWidth = 337
+              Width = 337
+            end
+          end
+          inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+            Width = 650
+            ExplicitWidth = 650
+          end
+        end
+      end
+    end
+    inherited pnlAgrupaciones: TTBXDockablePanel
+      Top = 363
+      ExplicitTop = 260
+    end
+    inherited dxComponentPrinter: TdxComponentPrinter
+      inherited dxComponentPrinterLink: TdxGridReportLink
+        BuiltInReportLink = True
+      end
+    end
+    inherited cxViewGridPopupMenu: TcxGridPopupMenu
+      PopupMenus = <
+        item
+          GridView = frViewRecibosProveedor1.cxGridView
+          HitTypes = [gvhtCell]
+          Index = 0
+        end>
+    end
+    inherited dxPrintStyleManager1: TdxPrintStyleManager
+      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
+        BuiltInStyle = True
+      end
+    end
+  end
+  object pnlFiltrar: TTBXDockablePanel [6]
+    Left = 0
+    Top = 60
+    Align = alTop
+    Caption = 'Filtrar'
+    CaptionRotation = dpcrAlwaysVert
+    DockedHeight = 84
+    DockMode = dmCannotFloat
+    DockPos = 88
+    DockRow = 2
+    FloatingWidth = 128
+    FloatingHeight = 84
+    ShowCaptionWhenDocked = False
+    SupportedDocks = [dkStandardDock, dkMultiDock]
+    TabOrder = 5
+    ExplicitWidth = 128
+    object Label1: TLabel
+      Left = 296
+      Top = 50
+      Width = 17
+      Height = 13
+      Caption = 'y el'
+    end
+    object txtFiltroTodo: TcxTextEdit
+      Left = 168
+      Top = 16
+      Properties.OnChange = txtFiltroTodoPropertiesChange
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 0
+      Width = 273
+    end
+    object edtFechaFiltro1: TcxDateEdit
+      Left = 168
+      Top = 46
+      Enabled = False
+      Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 1
+      Width = 121
+    end
+    object edtFechaFiltro2: TcxDateEdit
+      Left = 320
+      Top = 46
+      Enabled = False
+      Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 2
+      Width = 121
+    end
+    object rbTodo: TcxRadioButton
+      Left = 16
+      Top = 18
+      Width = 145
+      Height = 17
+      Caption = 'Recibos que contengan:'
+      Checked = True
+      TabOrder = 3
+      TabStop = True
+      OnClick = rbTodoClick
+      LookAndFeel.Kind = lfStandard
+      LookAndFeel.NativeStyle = True
+    end
+    object rbFechas: TcxRadioButton
+      Left = 16
+      Top = 48
+      Width = 145
+      Height = 17
+      Caption = 'Recibos con fechas entre:'
+      TabOrder = 4
+      OnClick = rbTodoClick
+      LookAndFeel.Kind = lfStandard
+      LookAndFeel.NativeStyle = True
+    end
+    object Button1: TBitBtn
+      Left = 470
+      Top = 43
+      Width = 163
+      Height = 25
+      Action = actQuitarFiltro2
+      Caption = 'Quitar filtro y ver todo'
+      TabOrder = 5
+      Glyph.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        2000000000000004000000000000000000000000000000000000FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00A505
+        E1007204CA00FE00FF00FF00FF00FF00FF00E800F5003E09C100FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00AB17
+        F900161DC600C400E700FF00FF00FF00FF00520DC9000F30D600D71BCF00942A
+        8A004D493C004D493C00942A8A00D71BCF00FF00FF00FF00FF00D71BCF008B2C
+        92002843B900141B980070208D004615BA000F30D600C20BF80069605800F8D5
+        AD00F8C89000F8C89000E7AB63004D493C00FF00FF00FF00FF0069605800F8D5
+        AD00C8ACA6001036E4002125A6000F30D600B20EF600FF00FF0069605800FFD8
+        C000F8D5AD00F8C89000F8C890004D493C004D493C004D493C0069605800FFD8
+        C000EFCDAD005F65C6000A38ED002637A300927C6C00FF00FF0069605800F0F0
+        F000FFD8C000F8D5AD00F8C8900069605800696058006960580069605800FFF8
+        FF008372B1000F30D6002750F7000F30D60025256F00FF00FF00942A8A006960
+        58006960580069605800942A8A00D71BCF00FF00FF00FF00FF00D71BCF004F24
+        9E000F30D600434D8A00605D6C004D69E3000F30D6006D05CC00FF00FF006648
+        54004D493C00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000F30
+        D6008F1FF300FF00FF00FF00FF00C811FD003154EB000024D300FF00FF00FF00
+        FF00664854004D493C00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF004D493C004D493C00FF00FF00FF00FF00FF00
+        FF00FF00FF0066485400696058004D493C00FF00FF00FF00FF00FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF00696058004D493C00FF00FF00FF00FF00FF00
+        FF00FF00FF00FF00FF0066485400D419D000FF00FF00FF00FF00FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF00A8658D0069605800FF00FF00FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
+    end
+  end
+  inherited EditorActionList: TActionList [9]
+    Left = 112
+    Top = 192
+    inherited actPrevisualizar: TAction
+      Visible = False
+    end
+    inherited actImprimir: TAction
+      Visible = False
+    end
+  end
+  inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
+  end
+  inherited dsDataTable: TDADataSource [11]
+    Left = 8
+    Top = 192
+  end
+  inherited JvFormStorage: TJvFormStorage [13]
+  end
+  inherited GridPopupMenu: TPopupMenu
+    Left = 80
+    Top = 192
+  end
+  object EditorSeleccionActionList: TActionList
+    Images = SmallImages
+    Left = 152
+    Top = 192
+    object actBuscar2: TAction
+      Category = 'Buscar'
+      Caption = 'Buscar'
+      ImageIndex = 10
+      ShortCut = 114
+    end
+    object actQuitarFiltro2: TAction
+      Category = 'Buscar'
+      Caption = 'Quitar filtro y ver todo'
+      ImageIndex = 19
+      OnExecute = actQuitarFiltro2Execute
+    end
+    object actAnchoAuto2: TAction
+      Category = 'Ver'
+      Caption = 'Ancho autom'#225'tico'
+      ImageIndex = 21
+      OnExecute = actAnchoAuto2Execute
+    end
+  end
+end

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

@@ -0,0 +1,211 @@
+{
+===============================================================================
+  Copyright (©) 2007. Rodax Software.
+===============================================================================
+  Los contenidos de este fichero son propiedad de Rodax Software titular del
+  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+  bajo el que se suministra.
+  -----------------------------------------------------------------------------
+  Web:  www.rodax-software.com
+===============================================================================
+  Fecha primera versión: 
+  Versión actual: 1.0.0
+  Fecha versión actual: 
+===============================================================================
+  Modificaciones:
+
+    Fecha         Comentarios
+    ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uEditorElegirRecibosProveedor;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
+  JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
+  ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
+  JvExComCtrls, JvStatusBar,
+  ComCtrls, TB2ExtItems, TBXExtItems, TBX,
+  TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
+  JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls,
+
+  uViewRecibosProveedor, uEditorRecibosProveedor, uBizRecibosProveedor, uIEditorElegirRecibosProveedor,
+  Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls,
+  cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog;
+  
+
+type
+  TfEditorElegirRecibosProveedor = class(TfEditorRecibosProveedor, IEditorElegirRecibosProveedor)
+    frViewBarraSeleccion1: TfrViewBarraSeleccion;
+    JvgWizardHeader1: TJvgWizardHeader;
+    EditorSeleccionActionList: TActionList;
+    actBuscar2: TAction;
+    actQuitarFiltro2: TAction;
+    actAnchoAuto2: TAction;
+    pnlFiltrar: TTBXDockablePanel;
+    Label1: TLabel;
+    txtFiltroTodo: TcxTextEdit;
+    edtFechaFiltro1: TcxDateEdit;
+    edtFechaFiltro2: TcxDateEdit;
+    rbTodo: TcxRadioButton;
+    rbFechas: TcxRadioButton;
+    Button1: TBitBtn;
+    procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
+    procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
+    procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure actAnchoAuto2Execute(Sender: TObject);
+    procedure actQuitarFiltro2Execute(Sender: TObject);
+    procedure txtFiltroTodoPropertiesChange(Sender: TObject);
+    procedure edtFechaFiltro1PropertiesEditValueChanged(Sender: TObject);
+    procedure rbTodoClick(Sender: TObject);
+  protected
+    procedure SetMultiSelect (AValue : Boolean);
+    function GetMultiSelect : Boolean;
+    function GetRecibosProveedorSeleccionados: IBizRecibosProveedor;
+    procedure SetViewGrid(const Value: IViewGridBase); override;
+    procedure SetMensaje (const AValue: String);
+    function GetMensaje: String;
+  public
+    property Mensaje : String read GetMensaje write SetMensaje;
+    property RecibosProveedorSeleccionados: IBizRecibosProveedor read GetRecibosProveedorSeleccionados;
+    property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
+  end;
+
+implementation
+
+uses
+  uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
+  uGridUtils, uDialogUtils, uEditorBase, uRecibosProveedorController;
+
+{$R *.dfm}
+
+{ TfEditorElegirRecibosProveedor }
+
+procedure TfEditorElegirRecibosProveedor.actAnchoAuto2Execute(Sender: TObject);
+begin
+  inherited;
+  actAnchoAuto.Execute;
+end;
+
+procedure TfEditorElegirRecibosProveedor.actQuitarFiltro2Execute(Sender: TObject);
+begin
+//  inherited;
+
+  if Assigned(ViewGrid) then
+  begin
+    txtFiltroTodo.Clear;
+    edtFechaFiltro1.Clear;
+    edtFechaFiltro2.Clear;
+    (ViewGrid as IViewRecibosProveedor).FiltrarPorFechas(null, null);
+    inherited;
+  end;
+
+//  actQuitarFiltro.Execute;
+end;
+
+procedure TfEditorElegirRecibosProveedor.edtFechaFiltro1PropertiesEditValueChanged(Sender: TObject);
+begin
+  if not VarIsNull(edtFechaFiltro1.EditValue) and not VarIsNull(edtFechaFiltro2.EditValue) then
+  begin
+    if (edtFechaFiltro1.EditValue > edtFechaFiltro2.EditValue) then
+    begin
+       ShowWarningMessage('La fecha de inicio debe ser anterior a la fecha final');
+       edtFechaFiltro1.SetFocus;
+    end
+    else
+       (ViewGrid as IViewRecibosProveedor).FiltrarPorFechas(edtFechaFiltro1.EditValue, edtFechaFiltro2.EditValue);
+  end;
+end;
+
+procedure TfEditorElegirRecibosProveedor.FormShow(Sender: TObject);
+begin
+  inherited;
+  EditorActionList.State := asSuspended;
+  frViewRecibosProveedor1.cxViewGridPopupMenu.PopupMenus.Items[0].HitTypes := [];  
+end;
+
+procedure TfEditorElegirRecibosProveedor.frViewBarraSeleccion1actCancelarExecute(
+  Sender: TObject);
+begin
+  inherited;
+  Close;
+end;
+
+procedure TfEditorElegirRecibosProveedor.frViewBarraSeleccion1actSeleccionarExecute(
+  Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrOk;
+end;
+
+procedure TfEditorElegirRecibosProveedor.frViewBarraSeleccion1actSeleccionarUpdate(
+  Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := (ViewGrid._FocusedView.Controller.SelectedRowCount > 0)
+end;
+
+function TfEditorElegirRecibosProveedor.GetRecibosProveedorSeleccionados: IBizRecibosProveedor;
+begin
+  SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (RecibosProveedor as ISeleccionable).SelectedRecords);
+  // En SelectedRecords tengo los ID de las filas seleccionadas del grid
+  Result := (Controller as IRecibosProveedorController).ExtraerSeleccionados(RecibosProveedor) as IBizRecibosProveedor;
+end;
+
+procedure TfEditorElegirRecibosProveedor.rbTodoClick(Sender: TObject);
+begin
+  actQuitarFiltro.Execute;
+
+  if rbTodo.Checked then
+  begin
+    edtFechaFiltro1.Enabled := False;
+    edtFechaFiltro2.Enabled := False;
+    txtFiltroTodo.Enabled := True;
+  end
+  else begin
+    edtFechaFiltro1.Enabled := True;
+    edtFechaFiltro2.Enabled := True;
+    txtFiltroTodo.Enabled := False;
+  end;
+end;
+
+function TfEditorElegirRecibosProveedor.GetMensaje: String;
+begin
+  Result := JvgWizardHeader1.Comments.Text;
+end;
+
+function TfEditorElegirRecibosProveedor.GetMultiSelect: Boolean;
+begin
+  Result := ViewGrid.MultiSelect;
+end;
+
+procedure TfEditorElegirRecibosProveedor.SetMensaje(const AValue: String);
+begin
+  JvgWizardHeader1.Comments.Text := AValue;
+end;
+
+procedure TfEditorElegirRecibosProveedor.SetMultiSelect(AValue: Boolean);
+begin
+  ViewGrid.MultiSelect := AValue;
+end;
+
+procedure TfEditorElegirRecibosProveedor.SetViewGrid(const Value: IViewGridBase);
+begin
+  inherited;
+  ViewGrid.OnDblClick := frViewBarraSeleccion1.actSeleccionar.OnExecute;
+end;
+
+procedure TfEditorElegirRecibosProveedor.txtFiltroTodoPropertiesChange(Sender: TObject);
+begin
+  if Assigned(ViewGrid) then
+    ViewGrid.Filter := txtFiltroTodo.Text;
+end;
+
+end.

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

@@ -31,7 +31,7 @@ procedure UnregisterViews;
 implementation
 
 uses
-  uEditorRegistryUtils, uEditorRecibosProveedor, uEditorReciboProveedor, 
+  uEditorRegistryUtils, uEditorRecibosProveedor, uEditorReciboProveedor, uEditorElegirRecibosProveedor,
   uEditorReciboProveedorReport, uEditorFechaPagoProveedor;
 
 procedure RegisterViews;
@@ -39,6 +39,7 @@ begin
   EditorRegistry.RegisterClass(TfEditorFechaPagoProveedor, 'EditorFechaPagoProveedor');
   EditorRegistry.RegisterClass(TfEditorRecibosProveedor, 'EditorRecibosProveedor');
   EditorRegistry.RegisterClass(TfEditorReciboProveedor, 'EditorReciboProveedor');
+  EditorRegistry.RegisterClass(TfEditorElegirRecibosProveedor, 'EditorElegirRecibosProveedor');
   EditorRegistry.RegisterClass(TfEditorReciboProveedorPreview, 'EditorRecibosProveedorPreview');
 end;
 
@@ -48,6 +49,7 @@ begin
   EditorRegistry.UnRegisterClass(TfEditorRecibosProveedor);
   EditorRegistry.UnRegisterClass(TfEditorReciboProveedor);
   EditorRegistry.UnRegisterClass(TfEditorReciboProveedorPreview);
+  EditorRegistry.UnRegisterClass(TfEditorElegirRecibosProveedor);  
 end;
 
 end.

Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas

@@ -425,7 +425,8 @@ begin
 
       //Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen
       //existiendo deltas, de esta forma los limpiamos
-//      ARemesaCliente.Recibos.DataTable.Refresh;
+      if ARemesaCliente.Recibos.DataTable.HasDelta then
+         ARemesaCliente.Recibos.DataTable.Refresh;
 
       ARemesaCliente.DataTable.ApplyUpdates;
       

Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm

@@ -8,6 +8,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
   ClientWidth = 676
   Scaled = False
   OnClose = CustomEditorClose
+  ExplicitLeft = -19
   ExplicitWidth = 684
   ExplicitHeight = 572
   PixelsPerInch = 96
@@ -194,10 +195,6 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
           ExplicitHeight = 208
           inherited cxGridView: TcxGridDBTableView
             DataController.Summary.FooterSummaryItems = <
-              item
-                Kind = skSum
-                Column = frViewRecibosRemesaCliente1.cxGridViewUSUARIO
-              end
               item
                 Format = ',0.00 '#8364';-,0.00 '#8364
                 Kind = skSum

Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas

@@ -247,10 +247,10 @@ Var
 begin
   inherited;
 
-  if VarIsNull(ASender.FooterSummaryValues[1]) then
+  if VarIsNull(ASender.FooterSummaryValues[0]) then
     AImporteTotal := 0
   else
-    AImporteTotal := ASender.FooterSummaryValues[1];
+    AImporteTotal := ASender.FooterSummaryValues[0];
 
   if Assigned(RemesaCliente) then
   begin

Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.bdsproj

@@ -0,0 +1,492 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{FF8E8509-28F4-4AA9-88E5-13F60FE956A6}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">RemesasProveedor_controller.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">0</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">True</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription"></Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">.\</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\..\..\Output\Debug\Cliente</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Lib</Directories>
+			<Directories Name="SearchPath">..\..\..\Lib;..\..\Lib</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">3082</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=519
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+Freeze Message=The application seems to be frozen.
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+Show TerminateBtn=1
+TerminateBtn Operation=1
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=1
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesSection=1
+loSaveCPUSection=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soExcDate=1
+soExcAddress=1
+soExcModule=1
+soExcType=1
+soExcMessage=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpUser=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndCompressAllFiles=0
+edoShowExceptionDialog=1
+edoSendEmailChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoShowProcedureOffset=0
+boActivateCrashDetection=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error."
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_CustomDataCaption=1
+mtDialog_CustomDataCaption0="Other"
+Count mtDialog_CustomDataHeader=1
+mtDialog_CustomDataHeader0="Other Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModule=1
+mtLog_ExcModule0="Module"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpUser=1
+mtLog_CmpUser0="User"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+EurekaLog Last Line -->
+</BorlandProject>

Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.dpk

@@ -0,0 +1,62 @@
+package RemesasProveedor_controller;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  cxLibraryD10,
+  dxThemeD10,
+  dsnap,
+  vcldb,
+  adortl,
+  GUISDK_D10,
+  ccpack10,
+  designide,
+  xmlrtl,
+  vclactnband,
+  vclx,
+  cfpack_d10,
+  JvAppFrmD10R,
+  vcljpg,
+  JclVcl,
+  Jcl,
+  JvSystemD10R,
+  JvCoreD10R,
+  Contactos_model,
+  Contactos_controller,
+  RemesasProveedor_model,
+  RecibosProveedor_controller,
+  RemesasProveedor_data;
+
+contains
+  uIEditorRemesasProveedor in 'View\uIEditorRemesasProveedor.pas',
+  uIEditorRemesaProveedor in 'View\uIEditorRemesaProveedor.pas',
+  uRemesasProveedorController in 'uRemesasProveedorController.pas',
+  uRemesasProveedorReportController in 'uRemesasProveedorReportController.pas',
+  uIEditorRemesasProveedorPreview in 'View\uIEditorRemesasProveedorPreview.pas';
+
+end.

Source/Modulos/Remesas de proveedor/Controller/View/uIEditorRemesaProveedor.pas

@@ -0,0 +1,22 @@
+unit uIEditorRemesaProveedor;
+
+interface
+
+uses
+  uEditorDBItem, uBizRemesasProveedor, uRemesasProveedorController;
+
+type
+  IEditorRemesaProveedor = interface(IEditorDBItem)
+  ['{EAAC2686-ED1C-4308-86EA-78E5EBFB0D59}']
+    function GetController : IRemesasProveedorController;
+    procedure SetController (const Value : IRemesasProveedorController);
+    property Controller : IRemesasProveedorController read GetController write SetController;
+
+    function GetRemesaProveedor: IBizRemesaProveedor;
+    procedure SetRemesaProveedor(const Value: IBizRemesaProveedor);
+    property RemesaProveedor: IBizRemesaProveedor read GetRemesaProveedor write SetRemesaProveedor;
+  end;
+
+implementation
+
+end.

Source/Modulos/Remesas de proveedor/Controller/View/uIEditorRemesasProveedor.pas

@@ -0,0 +1,23 @@
+unit uIEditorRemesasProveedor;
+
+interface
+
+uses
+  uEditorGridBase, uBizRemesasProveedor, uRemesasProveedorController;
+
+type
+  IEditorRemesasProveedor = interface(IEditorGridBase)
+  ['{4D261032-199B-4B0F-93BF-AF397A76FAE3}']
+    function GetRemesasProveedor: IBizRemesaProveedor;
+    procedure SetRemesasProveedor(const Value: IBizRemesaProveedor);
+    property RemesasProveedor: IBizRemesaProveedor read GetRemesasProveedor write SetRemesasProveedor;
+
+    function GetController : IRemesasProveedorController;
+    procedure SetController (const Value : IRemesasProveedorController);
+    property Controller : IRemesasProveedorController read GetController write SetController;
+  end;
+
+
+implementation
+
+end.

Source/Modulos/Remesas de proveedor/Controller/View/uIEditorRemesasProveedorPreview.pas

@@ -0,0 +1,16 @@
+unit uIEditorRemesasProveedorPreview;
+
+interface
+
+uses
+  uEditorPreview;
+
+type
+  IEditorRemesasProveedorPreview = interface(IEditorPreview)
+  ['{5A8DD1FA-B7C8-480E-AA4B-1412316A0E83}']
+  end;
+
+
+implementation
+
+end.

Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas

@@ -0,0 +1,475 @@
+unit uRemesasProveedorController;
+
+interface
+
+
+uses
+  Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
+  uIDataModuleRemesasProveedor, uBizRemesasProveedor, uProveedoresController,
+  uBizContactos, uRecibosProveedorController;
+
+type
+  IRemesasProveedorController = interface(IObservador)
+  ['{C14143FE-0806-4E64-93E2-A2C0170BBD41}']
+    function Buscar(const ID: Integer): IBizRemesaProveedor;
+    function BuscarTodos: IBizRemesaProveedor; overload;
+    procedure Ver(ARemesaProveedor : IBizRemesaProveedor);
+    procedure VerTodos(ARemesasProveedor: IBizRemesaProveedor);
+    function Nuevo : IBizRemesaProveedor;
+    procedure Anadir(ARemesaProveedor : IBizRemesaProveedor);
+    function Eliminar(const ID : Integer): Boolean; overload;
+    function Eliminar(ARemesaProveedor : IBizRemesaProveedor): Boolean; overload;
+    function Guardar(ARemesaProveedor : IBizRemesaProveedor): Boolean;
+    procedure DescartarCambios(ARemesaProveedor : IBizRemesaProveedor);
+    function Existe(const ID: Integer) : Boolean;
+    procedure Preview(ARemesaProveedor : IBizRemesaProveedor);
+    procedure Print(ARemesaProveedor : IBizRemesaProveedor);
+
+    function ElegirRecibosProveedor(ARemesaProveedor : IBizRemesaProveedor): Boolean;
+    procedure EliminarReciboProveedor(ARemesaProveedor : IBizRemesaProveedor);
+    function GetRecibosProveedorController: IRecibosProveedorController;
+    property RecibosProveedorController: IRecibosProveedorController read GetRecibosProveedorController;
+
+    procedure RecuperarRecibos(ARemesaProveedor: IBizRemesaProveedor);
+    function ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor) : IBizRemesaProveedor;
+  end;
+
+  TRemesasProveedorController = class(TObservador, IRemesasProveedorController)
+  protected
+    FDataModule : IDataModuleRemesasProveedor;
+    FRecibosProveedorController: IRecibosProveedorController;
+    function GetRecibosProveedorController: IRecibosProveedorController;
+
+    procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
+    procedure AsignarID(ARemesaProveedor: IBizRemesaProveedor; const IDNuevo: Integer); virtual;
+    function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
+    function _Vacio : IBizRemesaProveedor;
+
+    procedure FiltrarEmpresa(ARemesaProveedor: IBizRemesaProveedor);
+    function ValidarRemesaProveedor(ARemesaProveedor: IBizRemesaProveedor): Boolean; virtual;
+
+    procedure RecuperarRecibos(ARemesaProveedor: IBizRemesaProveedor);
+    procedure RecuperarObjetos(ARemesaProveedor: IBizRemesaProveedor); virtual;
+    procedure AsignarDataModule; virtual;
+
+  public
+    property RecibosProveedorController: IRecibosProveedorController read GetRecibosProveedorController;
+
+    constructor Create; virtual;
+    destructor Destroy; override;
+
+    function Eliminar(const ID : Integer): Boolean; overload;
+    function Eliminar(ARemesaProveedor : IBizRemesaProveedor): Boolean; overload;
+    function Guardar(ARemesaProveedor : IBizRemesaProveedor): Boolean;
+    procedure DescartarCambios(ARemesaProveedor : IBizRemesaProveedor); virtual;
+    function Existe(const ID: Integer) : Boolean; virtual;
+    procedure Anadir(ARemesaProveedor : IBizRemesaProveedor); virtual;
+    function Buscar(const ID: Integer): IBizRemesaProveedor; virtual;
+    function BuscarTodos: IBizRemesaProveedor; overload;
+    function Nuevo : IBizRemesaProveedor; virtual;
+    procedure Ver(ARemesaProveedor : IBizRemesaProveedor); virtual;
+    procedure VerTodos(ARemesasProveedor: IBizRemesaProveedor); virtual;
+    procedure Preview(ARemesaProveedor : IBizRemesaProveedor); virtual;
+    procedure Print(ARemesaProveedor : IBizRemesaProveedor); virtual;
+
+    function ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor) : IBizRemesaProveedor; virtual;
+    function ElegirRecibosProveedor(ARemesaProveedor : IBizRemesaProveedor): Boolean;
+    procedure EliminarReciboProveedor(ARemesaProveedor : IBizRemesaProveedor);
+  end;
+
+implementation
+
+uses
+  cxControls, DB, uEditorRegistryUtils, schRemesasProveedorClient_Intf,
+  schRecibosProveedorClient_Intf, uIEditorRemesasProveedor, uIEditorRemesaProveedor,
+  Dialogs, uDataModuleRemesasProveedor, uDataModuleUsuarios, uDAInterfaces,
+  uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows,
+  uBizRecibosProveedor, Variants, uRemesasProveedorReportController;
+
+{ TRemesasProveedorController }
+
+procedure TRemesasProveedorController.Anadir(ARemesaProveedor: IBizRemesaProveedor);
+begin
+  ARemesaProveedor.Insert;
+end;
+
+procedure TRemesasProveedorController.EliminarReciboProveedor(ARemesaProveedor: IBizRemesaProveedor);
+var
+  ARecibosRemesa : IBizRecibosProveedor;
+begin
+  inherited;
+  ARecibosRemesa := ARemesaProveedor.Recibos;
+  RecibosProveedorController.QuitarRemesa(ARecibosRemesa);
+  //Quitamos el recibo de la remesa sin que el servidor se entere para que no elimine el recibo
+  DesconectarTabla(ARecibosRemesa.DataTable);
+  ARecibosRemesa.DataTable.Delete;
+  ConectarTabla(ARecibosRemesa.DataTable);
+  ARecibosRemesa := Nil;
+end;
+
+procedure TRemesasProveedorController.AsignarDataModule;
+begin
+  FDataModule := TDataModuleRemesasProveedor.Create(Nil);
+  FRecibosProveedorController := TRecibosProveedorController.Create;
+end;
+
+procedure TRemesasProveedorController.AsignarID(ARemesaProveedor: IBizRemesaProveedor; const IDNuevo: Integer);
+begin
+  if not Assigned(ARemesaProveedor) then
+    raise Exception.Create ('RemesaProveedor no asignado');
+
+  ARemesaProveedor.Edit;
+  ARemesaProveedor.ID := IDNuevo;
+  ARemesaProveedor.Post;
+end;
+
+function TRemesasProveedorController.Buscar(const ID: Integer): IBizRemesaProveedor;
+begin
+  Result := (FDataModule as IDataModuleRemesasProveedor).GetItem(ID);
+  FiltrarEmpresa(Result);
+end;
+
+function TRemesasProveedorController.BuscarTodos: IBizRemesaProveedor;
+begin
+  Result := FDataModule.GetItems;
+  FiltrarEmpresa(Result);
+end;
+
+constructor TRemesasProveedorController.Create;
+begin
+  AsignarDataModule;
+end;
+
+function TRemesasProveedorController.CreateEditor(const AName: String;
+  const IID: TGUID; out Intf): Boolean;
+begin
+  Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
+end;
+
+procedure TRemesasProveedorController.DescartarCambios(ARemesaProveedor: IBizRemesaProveedor);
+begin
+  if not Assigned(ARemesaProveedor) then
+    raise Exception.Create ('RemesaProveedor no asignado');
+
+  ShowHourglassCursor;
+  try
+    if (ARemesaProveedor.State in dsEditModes) then
+      ARemesaProveedor.Cancel;
+
+    ARemesaProveedor.DataTable.CancelUpdates;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+destructor TRemesasProveedorController.Destroy;
+begin
+  FDataModule := Nil;
+  FRecibosProveedorController := Nil;  
+  inherited;
+end;
+
+function TRemesasProveedorController.ValidarRemesaProveedor(ARemesaProveedor: IBizRemesaProveedor): Boolean;
+begin
+  Result := False;
+
+  if not Assigned(ARemesaProveedor) then
+    raise Exception.Create ('Remesa no asignada');
+
+  if (ARemesaProveedor.DataTable.State in dsEditModes) then
+      ARemesaProveedor.DataTable.Post;
+
+  if ARemesaProveedor.DataTable.FieldByName(fld_RemesasProveedorFECHA_REMESA).IsNull then
+     raise Exception.Create('Debe indicar la fecha de esta remesa.');
+
+  if ARemesaProveedor.ID_DATOS_BANCO < 1 then
+     raise Exception.Create('Debe la cuenta bancaria sobre la que realizará la remesa.');
+
+  // Asegurarse de valores en campos "automáticos"
+  ARemesaProveedor.Edit;
+  try
+    ARemesaProveedor.USUARIO := dmUsuarios.LoginInfo.Usuario;
+
+    Result := True;
+  finally
+    ARemesaProveedor.Post;
+  end;
+end;
+
+procedure TRemesasProveedorController.Ver(ARemesaProveedor: IBizRemesaProveedor);
+var
+  AEditor : IEditorRemesaProveedor;
+begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
+    RecuperarObjetos(ARemesaProveedor);
+
+    CreateEditor('EditorRemesaProveedor', IEditorRemesaProveedor, AEditor);
+    with (AEditor as IEditorRemesaProveedor) do
+    begin
+      Controller := Self; //OJO ORDEN MUY IMPORTANTE
+      RemesaProveedor := ARemesaProveedor;
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+
+  if Assigned(AEditor) then
+    try
+      AEditor.ShowModal;
+      AEditor.Release;
+    finally
+      AEditor := NIL;
+    end;
+end;
+
+procedure TRemesasProveedorController.VerTodos(ARemesasProveedor: IBizRemesaProveedor);
+var
+  AEditor : IEditorRemesasProveedor;
+begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
+    CreateEditor('EditorRemesasProveedor', IEditorRemesasProveedor, AEditor);
+    with (AEditor as IEditorRemesasProveedor) do
+    begin
+      Controller := Self; //OJO ORDEN MUY IMPORTANTE
+      RemesasProveedor := ARemesasProveedor;
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+
+  if Assigned(AEditor) then
+    AEditor.ShowEmbedded;
+end;
+
+function TRemesasProveedorController._Vacio: IBizRemesaProveedor;
+begin
+  Result := Buscar(ID_NULO);
+end;
+
+function TRemesasProveedorController.Eliminar(const ID: Integer): Boolean;
+var
+  ARemesaProveedor : IBizRemesaProveedor;
+begin
+  ARemesaProveedor := Buscar(ID);
+
+  if not Assigned(ARemesaProveedor) then
+    raise Exception.Create(Format('No se ha encontrado la remesa con ID = %d', [ID]));
+
+  Result := Eliminar(ARemesaProveedor);
+  ARemesaProveedor := NIL;
+end;
+
+function TRemesasProveedorController.ElegirRecibosProveedor(ARemesaProveedor: IBizRemesaProveedor): Boolean;
+var
+  ARecibosRemesa : IBizRecibosProveedor;
+  ARecibosSeleccionados : IBizRecibosProveedor;
+begin
+  Result := False;
+
+  ARecibosSeleccionados := (FRecibosProveedorController.ElegirRecibos(FRecibosProveedorController.BuscarTodosPendientesDevueltos, 'Elija uno o más recibos para incluirlos en esta remesa', True) as IBizRecibosProveedor);
+  if Assigned(ARecibosSeleccionados) then
+  begin
+     ShowHourglassCursor;
+     try
+       ARecibosRemesa := ARemesaProveedor.Recibos;
+       //Copia los recibos seleccionados a los recibos de la remesa sin que el servidor se entere de
+       //las inserciones
+       DuplicarRegistros(ARecibosSeleccionados.DataTable,ARecibosRemesa.DataTable, mdrTodos, False, False, True);
+       FRecibosProveedorController.SetSituacionCobrados(ARecibosRemesa);
+       Result := True;
+     finally
+       HideHourglassCursor;
+     end;
+  end;
+
+  ARecibosRemesa := Nil;
+  ARecibosSeleccionados := Nil;
+end;
+
+function TRemesasProveedorController.Eliminar(ARemesaProveedor: IBizRemesaProveedor): Boolean;
+begin
+  Result := False;
+
+  if not Assigned(ARemesaProveedor) then
+    raise Exception.Create ('RemesaProveedor no asignada');
+
+  ShowHourglassCursor;
+  try
+    if (ARemesaProveedor.State in dsEditModes) then
+      ARemesaProveedor.Cancel;
+
+    //Si la llamada a eliminar es por el editor RemesasProveedor, debo recuperar los recibos
+    //de la remesa a eliminar, en caso de venir por el editor RemesaProveedor ya los tengo
+    if not Assigned(ARemesaProveedor.Recibos) then
+       RecuperarRecibos(ARemesaProveedor);
+    //Eliminaremos la remesa de los recibos asociados
+    With ARemesaProveedor.Recibos.DataTable do
+    begin
+      First;
+      While not Eof do
+      begin
+        RecibosProveedorController.QuitarRemesa(ARemesaProveedor.Recibos);
+        Next;
+      end;
+    end;
+
+    //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
+    ARemesaProveedor.Recibos.DataTable.ApplyUpdates;
+
+    //Si todo ha ido bien podremos eliminar la remesa
+    ARemesaProveedor.Delete;
+    ARemesaProveedor.DataTable.ApplyUpdates;
+
+    HideHourglassCursor;
+    Result := True;
+  except
+    //Hay algun recibo de la remesa que tiene movimientos (Cobros/Devoluciones) posteriores al cobro inicial de la remesa
+    on E: Exception do
+    begin
+      ARemesaProveedor.Recibos.DataTable.CancelUpdates;
+      ARemesaProveedor.DataTable.CancelUpdates;
+      HideHourglassCursor;
+      MessageBox(0, 'Exiten movimientos (Cobros/Devoluciones) en los recibos posteriores al cobro inicial de la remesa', 'Atención', MB_ICONWARNING or MB_OK);
+    end;
+  end;
+end;
+
+procedure TRemesasProveedorController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
+begin
+  inherited;
+//
+end;
+
+procedure TRemesasProveedorController.RecuperarObjetos(ARemesaProveedor: IBizRemesaProveedor);
+begin
+  RecuperarRecibos(ARemesaProveedor);
+end;
+
+procedure TRemesasProveedorController.RecuperarRecibos(ARemesaProveedor: IBizRemesaProveedor);
+begin
+  ARemesaProveedor.Recibos := RecibosProveedorController.BuscarTodosRemesa(ARemesaProveedor.ID);
+end;
+
+function TRemesasProveedorController.Existe(const ID: Integer): Boolean;
+var
+  ARemesaProveedor : IBizRemesaProveedor;
+begin
+  try
+    ARemesaProveedor := Buscar(ID);
+    Result := Assigned(ARemesaProveedor) and (ARemesaProveedor.ID = ID);
+  finally
+    ARemesaProveedor := NIL;
+  end;
+end;
+
+function TRemesasProveedorController.ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor): IBizRemesaProveedor;
+var
+  ASeleccionados : IBizRemesaProveedor;
+begin
+  ASeleccionados := (Self.Buscar(ID_NULO) as IBizRemesaProveedor);
+  CopyDataTable(ARemesasProveedor.DataTable, ASeleccionados.DataTable, True);
+  Result := ASeleccionados;
+end;
+
+procedure TRemesasProveedorController.FiltrarEmpresa(ARemesaProveedor: IBizRemesaProveedor);
+begin
+  if ARemesaProveedor.DataTable.Active then
+    ARemesaProveedor.DataTable.Active := False;
+
+  // Filtrar los contactos actuales por empresa
+  with ARemesaProveedor.DataTable.Where do
+  begin
+    if NotEmpty then
+      AddOperator(opAND);
+    // Para evitar ambigüedades en la SQL del servidor
+    AddText(fld_RemesasProveedorID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
+//    AddCondition('##' + fld_RemesasProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+  end;
+end;
+
+function TRemesasProveedorController.GetRecibosProveedorController: IRecibosProveedorController;
+begin
+  Result := FRecibosProveedorController;
+end;
+
+function TRemesasProveedorController.Guardar(ARemesaProveedor: IBizRemesaProveedor): Boolean;
+var
+  NuevoID: Integer;
+  bEsNuevo: Boolean;
+begin
+  Result := False;
+
+  if ValidarRemesaProveedor(ARemesaProveedor) then
+  begin
+    ShowHourglassCursor;
+    try
+      bEsNuevo := ARemesaProveedor.EsNuevo;
+      if (bEsNuevo) then
+         NuevoID := FDataModule.GetNextID(ARemesaProveedor.DataTable.LogicalName)
+      else
+         NuevoID := ARemesaProveedor.ID;
+
+      AsignarID(ARemesaProveedor, NuevoID);
+      //Si es nuevo debemos hacer el applyupdates por la integridad referencial de BD
+      if bEsNuevo then
+         ARemesaProveedor.DataTable.ApplyUpdates;
+
+      //Si todo ha ido bien, asignamos la remesa a los recibos asociados
+      //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
+      RecibosProveedorController.AsignarRemesa(ARemesaProveedor.Recibos, NuevoID);
+      ARemesaProveedor.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboProveedor/ ElegirRecibosProveedor)
+
+      //Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen
+      //existiendo deltas, de esta forma los limpiamos
+      if ARemesaProveedor.Recibos.DataTable.HasDelta then
+         ARemesaProveedor.Recibos.DataTable.Refresh;
+
+      ARemesaProveedor.DataTable.ApplyUpdates;
+      
+      Result := True;
+    finally
+      HideHourglassCursor;
+    end;
+  end;
+end;
+
+function TRemesasProveedorController.Nuevo: IBizRemesaProveedor;
+var
+  ARemesaProveedor : IBizRemesaProveedor;
+begin
+  ARemesaProveedor := FDataModule.NewItem;
+  FiltrarEmpresa(ARemesaProveedor);
+  ARemesaProveedor.DataTable.Active := True;
+  ARemesaProveedor.Insert;
+  Result := ARemesaProveedor;
+end;
+
+procedure TRemesasProveedorController.Preview(ARemesaProveedor: IBizRemesaProveedor);
+var
+  AReportController : IRemesasProveedorReportController;
+begin
+  AReportController := TRemesasProveedorReportController.Create;
+  try
+    AReportController.Preview(ARemesaProveedor.ID);
+  finally
+    AReportController := NIL;
+  end;
+end;
+
+procedure TRemesasProveedorController.Print(ARemesaProveedor: IBizRemesaProveedor);
+var
+  AReportController : IRemesasProveedorReportController;
+begin
+  AReportController := TRemesasProveedorReportController.Create;
+  try
+    AReportController.Print(ARemesaProveedor.ID);
+  finally
+    AReportController := NIL;
+  end;
+end;
+
+end.

Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas

@@ -0,0 +1,103 @@
+unit uRemesasProveedorReportController;
+
+interface
+
+uses
+  Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleRemesasProveedorReport,
+  uBizRemesasProveedor;
+
+type
+  IRemesasProveedorReportController = interface
+  ['{A89AAA05-19AD-4455-BAF6-8A5373D15FE7}']
+    procedure Preview(const ID : integer);
+    procedure Print(const ID : integer);
+  end;
+
+  TRemesasProveedorReportController = class(TInterfacedObject, IRemesasProveedorReportController)
+  private
+    FDataModule : IDataModuleRemesasProveedorReport;
+    function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
+  public
+    constructor Create;
+    destructor Destroy; override;
+  
+    procedure Preview(const ID : integer);
+    procedure Print(const ID : integer);
+  end;
+
+
+implementation
+
+uses
+  uROTypes, uEditorRegistryUtils, uIEditorRemesasProveedorPreview,
+  uEditorPreview, uDataModuleRemesasProveedor, uEditorBase, cxControls;
+
+{ TRemesasProveedorReportController }
+
+constructor TRemesasProveedorReportController.Create;
+begin
+  FDataModule := TDataModuleRemesasProveedor.Create(Nil);
+end;
+
+function TRemesasProveedorReportController.CreateEditor(const AName: String;
+  const IID: TGUID; out Intf): Boolean;
+begin
+  Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
+end;
+
+
+destructor TRemesasProveedorReportController.Destroy;
+begin
+  FDataModule := NIL;
+  inherited;
+end;
+
+procedure TRemesasProveedorReportController.Preview(const ID : integer);
+var
+  AStream: Binary;
+  AEditor : IEditorRemesasProveedorPreview;
+begin
+  AEditor := NIL;
+
+  ShowHourglassCursor;
+  try
+    AStream := FDataModule.GetReport(ID);
+    try
+      CreateEditor('EditorRemesasProveedorPreview', IEditorRemesasProveedorPreview, AEditor);
+      AEditor.LoadFromStream(AStream);
+    finally
+      AStream.Free;
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+
+  if Assigned(AEditor) then
+    AEditor.Preview;
+end;
+
+procedure TRemesasProveedorReportController.Print(const ID : integer);
+var
+  AStream: Binary;
+  AEditor : IEditorRemesasProveedorPreview;
+begin
+  AEditor := NIL;
+
+  ShowHourglassCursor;
+  try
+  AStream := FDataModule.GetReport(ID);
+    try
+      CreateEditor('EditorRemesasProveedorPreview', IEditorRemesasProveedorPreview, AEditor);
+      AEditor.LoadFromStream(AStream);
+    finally
+      AStream.Free;
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+
+  if Assigned(AEditor) then
+    AEditor.Print
+end;
+
+end.

Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.bdsproj

@@ -0,0 +1,492 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{568778B1-E82D-41E9-B198-B7C58140E81B}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">RemesasProveedor_data.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">0</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">True</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription"></Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">.\</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\..\..\Output\Debug\Cliente</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Lib</Directories>
+			<Directories Name="SearchPath">..\..\..\Lib;..\..\Lib</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">3082</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=519
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+Freeze Message=The application seems to be frozen.
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+Show TerminateBtn=1
+TerminateBtn Operation=1
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=1
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesSection=1
+loSaveCPUSection=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soExcDate=1
+soExcAddress=1
+soExcModule=1
+soExcType=1
+soExcMessage=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpUser=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndCompressAllFiles=0
+edoShowExceptionDialog=1
+edoSendEmailChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoShowProcedureOffset=0
+boActivateCrashDetection=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error."
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_CustomDataCaption=1
+mtDialog_CustomDataCaption0="Other"
+Count mtDialog_CustomDataHeader=1
+mtDialog_CustomDataHeader0="Other Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModule=1
+mtLog_ExcModule0="Module"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpUser=1
+mtLog_CmpUser0="User"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+EurekaLog Last Line -->
+</BorlandProject>

Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dpk

@@ -0,0 +1,41 @@
+package RemesasProveedor_data;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  dbrtl,
+  cxLibraryD10,
+  dxThemeD10,
+  vcl,
+  dsnap,
+  vcldb,
+  adortl,
+  RemesasProveedor_model;
+
+contains
+  uDataModuleRemesasProveedor in 'uDataModuleRemesasProveedor.pas' {DataModuleRemesasProveedor};
+
+end.

Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm

@@ -0,0 +1,399 @@
+object DataModuleRemesasProveedor: TDataModuleRemesasProveedor
+  OldCreateOrder = True
+  OnCreate = DAClientDataModuleCreate
+  RemoteService = RORemoteService
+  Adapter = DABinAdapter
+  SchemaCall.MethodName = 'GetSchemaAsXML'
+  SchemaCall.Params = <
+    item
+      Name = 'Result'
+      ParamType = fResult
+      DataType = rtString
+    end>
+  Height = 414
+  Width = 518
+  object RORemoteService: TRORemoteService
+    ServiceName = 'srvRemesasProveedor'
+    Message = ROBinMessage1
+    Channel = ROWinInetHTTPChannel1
+    Left = 48
+    Top = 24
+  end
+  object DABinAdapter: TDABINAdapter
+    Left = 48
+    Top = 80
+  end
+  object DADesigntimeCall1: TDADesigntimeCall
+    RemoteRequest.MethodName = 'Login'
+    RemoteRequest.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtBoolean
+      end
+      item
+        Name = 'User'
+        ParamType = fIn
+        DataType = rtString
+        Value = 'Administrador'
+      end
+      item
+        Name = 'Password'
+        ParamType = fIn
+        DataType = rtString
+        Value = '1'
+      end
+      item
+        Name = 'LoginInfo'
+        ParamType = fOut
+        DataType = rtUserDefined
+        UserClassName = 'TRdxLoginInfo'
+      end>
+    RemoteService = LoginRemoteService
+    Left = 48
+    Top = 160
+  end
+  object LoginRemoteService: TRORemoteService
+    ServiceName = 'srvLogin'
+    Message = ROBinMessage1
+    Channel = ROWinInetHTTPChannel1
+    Left = 48
+    Top = 216
+  end
+  object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    ProbeServers = False
+    ProbeFrequency = 60000
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/bin'
+    Left = 48
+    Top = 272
+  end
+  object ROBinMessage1: TROBinMessage
+    Left = 48
+    Top = 324
+  end
+  object tbl_RemesasProveedor: TDACDSDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID'
+        DataType = datAutoInc
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_ID'
+        InPrimaryKey = True
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ID_EMPRESA'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'RemesasCliente_ID_EMPRESA'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_ID_EMPRESA'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'REFERENCIA'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        ServerAutoRefresh = True
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'FECHA_REMESA'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'RemesasCliente_FECHA_REMESA'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_FECHA_REMESA'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'DESCRIPCION'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'RemesasCliente_DESCRIPCION'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_DESCRIPCION'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'USUARIO'
+        DataType = datString
+        Size = 20
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'RemesasCliente_USUARIO'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_USUARIO'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ID_DATOS_BANCO'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_ID_DATOS_BANCO'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'FECHA_ALTA'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_FECHA_ALTA'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'FECHA_MODIFICACION'
+        DataType = datDateTime
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'IMPORTE_TOTAL'
+        DataType = datFloat
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Importe total'
+        Alignment = taRightJustify
+        ServerAutoRefresh = True
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'NOMBRE'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Banco'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_NOMBRE'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'ENTIDAD'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Cod. entidad'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_ENTIDAD'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'SUCURSAL'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Cod. sucursal'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_SUCURSAL'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'DC'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_DC'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'CUENTA'
+        DataType = datString
+        Size = 15
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Cuenta'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_CUENTA'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'SUFIJO_N19'
+        DataType = datString
+        Size = 3
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Sufijo N19'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_SUFIJO_N19'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
+      item
+        Name = 'SUFIJO_N58'
+        DataType = datString
+        Size = 3
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Sufijo N58'
+        Alignment = taLeftJustify
+        DictionaryEntry = 'RemesasCliente_SUFIJO_N58'
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end>
+    Params = <>
+    MasterMappingMode = mmDataRequest
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    SchemaCall.MethodName = 'GetDatasetSchema'
+    SchemaCall.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtBinary
+      end
+      item
+        Name = 'aDatasetName'
+        ParamType = fIn
+        DataType = rtString
+        Value = 'RemesasProveedor'
+      end>
+    DataRequestCall.MethodName = 'GetDatasetDataEx'
+    DataRequestCall.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtBinary
+      end
+      item
+        Name = 'DatasetName'
+        ParamType = fIn
+        DataType = rtString
+        Value = 'RemesasProveedor'
+      end
+      item
+        Name = 'Params'
+        ParamType = fIn
+        DataType = rtUserDefined
+        UserClassName = 'TDADatasetParamArray'
+      end
+      item
+        Name = 'UserFilter'
+        ParamType = fIn
+        DataType = rtString
+        Value = ''
+      end
+      item
+        Name = 'IncludeSchema'
+        ParamType = fIn
+        DataType = rtBoolean
+        Value = False
+      end
+      item
+        Name = 'MaxRecords'
+        ParamType = fIn
+        DataType = rtInteger
+        Value = -1
+      end>
+    DataUpdateCall.MethodName = 'UpdateData'
+    DataUpdateCall.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtBinary
+      end
+      item
+        Name = 'Delta'
+        ParamType = fIn
+        DataType = rtBinary
+      end>
+    ScriptCall.MethodName = 'GetDatasetScripts'
+    ScriptCall.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtString
+        Value = ''
+      end
+      item
+        Name = 'DatasetNames'
+        ParamType = fIn
+        DataType = rtString
+        Value = 'RemesasProveedor'
+      end>
+    ReadOnly = False
+    RemoteService = RORemoteService
+    Adapter = DABinAdapter
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'RemesasProveedor'
+    IndexDefs = <>
+    Left = 272
+    Top = 160
+  end
+  object ds_RemesasProveedor: TDADataSource
+    DataTable = tbl_RemesasProveedor
+    Left = 272
+    Top = 96
+  end
+end

Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas

@@ -0,0 +1,131 @@
+unit uDataModuleRemesasProveedor;
+
+interface
+
+uses
+  SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
+  uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
+  uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
+  uDADesigntimeCall,
+  uIDataModuleRemesasProveedor, uIDataModuleRemesasProveedorReport, uBizRemesasProveedor;
+
+type
+  TDataModuleRemesasProveedor = class(TDAClientDataModule, IDataModuleRemesasProveedor, IDataModuleRemesasProveedorReport)
+    RORemoteService: TRORemoteService;
+    DABinAdapter: TDABINAdapter;
+    DADesigntimeCall1: TDADesigntimeCall;
+    LoginRemoteService: TRORemoteService;
+    ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
+    ROBinMessage1: TROBinMessage;
+    tbl_RemesasProveedor: TDACDSDataTable;
+    ds_RemesasProveedor: TDADataSource;
+    procedure DAClientDataModuleCreate(Sender: TObject);
+
+  protected
+    function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
+    procedure AsignarClaseNegocio(var ARemesaProveedor: TDACDSDataTable); virtual;
+    function darNombreGenerador(DataSetName: String): String; virtual;
+  public
+    function GetItems : IBizRemesaProveedor; overload;
+    function GetItem(const ID : Integer) : IBizRemesaProveedor;
+    function GetNextID(const DataSetName : String) : Integer;
+    function NewItem : IBizRemesaProveedor;
+
+    // Report
+    function GetReport(const ID: Integer): Binary;
+  end;
+
+implementation
+
+{$R *.DFM}
+
+uses
+  FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
+  schRemesasProveedorClient_Intf, Dialogs;
+
+{ TdmRemesasProveedor }
+
+procedure TDataModuleRemesasProveedor.AsignarClaseNegocio(var ARemesaProveedor: TDACDSDataTable);
+begin
+  ARemesaProveedor.BusinessRulesID := BIZ_CLIENT_REMESAPROVEEDOR;
+end;
+
+procedure TDataModuleRemesasProveedor.DAClientDataModuleCreate(Sender: TObject);
+begin
+  RORemoteService.Channel := dmConexion.Channel;
+  RORemoteService.Message := dmConexion.Message;
+end;
+
+function TDataModuleRemesasProveedor.DarNombreGenerador(DataSetName: String): String;
+begin
+  if DataSetName = nme_RemesasProveedor then
+    Result := 'GEN_REMESAS_Proveedor_ID';
+end;
+
+function TDataModuleRemesasProveedor.GetNextID(const DataSetName: String): Integer;
+var
+  aGeneratorName : String;
+begin
+  aGeneratorName := DarNombreGenerador(DataSetName);
+  Result := (RORemoteService as IsrvRemesasProveedor).GetNextAutoInc(aGeneratorName)
+end;
+
+function TDataModuleRemesasProveedor.GetReport(const ID: Integer): Binary;
+begin
+  Result := (RORemoteService as IsrvRemesasProveedor).GenerateReport(ID);
+end;
+
+function TDataModuleRemesasProveedor.NewItem: IBizRemesaProveedor;
+begin
+  Result := GetItem(ID_NULO)
+end;
+
+function TDataModuleRemesasProveedor._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
+begin
+  Result := NIL;
+
+  if not Assigned(ADataTable) then
+    raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
+
+  Result := TDACDSDataTable.Create(NIL);
+  CloneDataTable(ADataTable, Result);
+end;
+
+function TDataModuleRemesasProveedor.GetItem(const ID: Integer): IBizRemesaProveedor;
+begin
+  ShowHourglassCursor;
+  try
+    Result := Self.GetItems;
+    with Result.DataTable.Where do
+    begin
+      if NotEmpty then
+        AddOperator(opAND);
+      OpenBraket;
+      AddText(fld_RemesasProveedorID + ' = ' + IntToStr(ID));
+      CloseBraket;
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+function TDataModuleRemesasProveedor.GetItems: IBizRemesaProveedor;
+var
+  ARemesaProveedor : TDACDSDataTable;
+begin
+  ShowHourglassCursor;
+  try
+    ARemesaProveedor := _CloneDataTable(tbl_RemesasProveedor);
+    // EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
+    ARemesaProveedor.FieldByName(fld_RemesasProveedorREFERENCIA).ServerAutoRefresh := TRUE;
+    ARemesaProveedor.FieldByName(fld_RemesasProveedorIMPORTE_TOTAL).ServerAutoRefresh := TRUE;
+
+    AsignarClaseNegocio(ARemesaProveedor);
+    Result := (ARemesaProveedor as IBizRemesaProveedor);
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+
+end.

Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedor.pas

@@ -0,0 +1,19 @@
+unit uIDataModuleRemesasProveedor;
+
+interface
+
+uses  
+  uBizRemesasProveedor;
+
+type
+  IDataModuleRemesasProveedor = interface
+  ['{6073E44A-0B61-4D26-BCDE-33150D88C91B}']
+    function GetItems: IBizRemesaProveedor;
+    function GetItem(const ID : Integer) : IBizRemesaProveedor;
+    function GetNextID(const DataSetName : String) : Integer;
+    function NewItem : IBizRemesaProveedor;
+  end;
+
+implementation
+
+end.

Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedorReport.pas

@@ -0,0 +1,16 @@
+unit uIDataModuleRemesasProveedorReport;
+
+interface
+
+uses
+  SysUtils, Classes, uROTypes;
+
+type
+  IDataModuleRemesasProveedorReport = interface
+  ['{7A2C1A03-51EB-4F7F-937F-660B31EE18B2}']
+    function GetReport(const ID: Integer): Binary;
+  end;
+
+implementation
+
+end.

Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.bdsproj

@@ -0,0 +1,492 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{E4F81792-84CF-4900-A6AB-18F6DD2C7ADA}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">RemesasProveedor_model.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">0</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">True</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription"></Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">.\</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\..\..\Output\Debug\Cliente</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Lib</Directories>
+			<Directories Name="SearchPath">..\..\..\Lib;..\..\Lib</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">3082</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=519
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+Freeze Message=The application seems to be frozen.
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+Show TerminateBtn=1
+TerminateBtn Operation=1
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=1
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesSection=1
+loSaveCPUSection=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soExcDate=1
+soExcAddress=1
+soExcModule=1
+soExcType=1
+soExcMessage=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpUser=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndCompressAllFiles=0
+edoShowExceptionDialog=1
+edoSendEmailChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoShowProcedureOffset=0
+boActivateCrashDetection=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error."
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_CustomDataCaption=1
+mtDialog_CustomDataCaption0="Other"
+Count mtDialog_CustomDataHeader=1
+mtDialog_CustomDataHeader0="Other Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModule=1
+mtLog_ExcModule0="Module"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpUser=1
+mtLog_CmpUser0="User"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+EurekaLog Last Line -->
+</BorlandProject>

Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dpk

@@ -0,0 +1,46 @@
+package RemesasProveedor_model;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  dsnap,
+  dbrtl,
+  vcldb,
+  vcl,
+  adortl,
+  Usuarios,
+  DataAbstract_D10,
+  RecibosProveedor_model;
+
+
+contains
+  uBizRemesasProveedor in 'uBizRemesasProveedor.pas',
+  uIDataModuleRemesasProveedor in 'Data\uIDataModuleRemesasProveedor.pas',
+  uIDataModuleRemesasProveedorReport in 'Data\uIDataModuleRemesasProveedorReport.pas',
+  schRemesasProveedorClient_Intf in 'schRemesasProveedorClient_Intf.pas',
+  schRemesasProveedorServer_Intf in 'schRemesasProveedorServer_Intf.pas';
+
+end.

Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas

@@ -0,0 +1,778 @@
+unit schRemesasProveedorClient_Intf;
+
+interface
+
+uses
+  Classes, DB, SysUtils, uROClasses, uDADataTable;
+
+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_darReferencia = '{3D6FDF20-0A49-4834-AD39-B9CEC05728BC}';
+  RID_RemesasProveedor = '{9F4452B5-ED06-43F7-AFE9-21A4BF5A3D2D}';
+  RID_RemesasProveedor_Refresh = '{DB725E06-D3E1-4820-9256-20F5FA83DDF0}';
+
+  { Data table names }
+  nme_darReferencia = 'darReferencia';
+  nme_RemesasProveedor = 'RemesasProveedor';
+  nme_RemesasProveedor_Refresh = 'RemesasProveedor_Refresh';
+
+  { darReferencia fields }
+  fld_darReferenciaVALOR = 'VALOR';
+
+  { darReferencia field indexes }
+  idx_darReferenciaVALOR = 0;
+
+  { RemesasProveedor fields }
+  fld_RemesasProveedorID = 'ID';
+  fld_RemesasProveedorID_EMPRESA = 'ID_EMPRESA';
+  fld_RemesasProveedorREFERENCIA = 'REFERENCIA';
+  fld_RemesasProveedorFECHA_REMESA = 'FECHA_REMESA';
+  fld_RemesasProveedorDESCRIPCION = 'DESCRIPCION';
+  fld_RemesasProveedorUSUARIO = 'USUARIO';
+  fld_RemesasProveedorID_DATOS_BANCO = 'ID_DATOS_BANCO';
+  fld_RemesasProveedorFECHA_ALTA = 'FECHA_ALTA';
+  fld_RemesasProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION';
+  fld_RemesasProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL';
+  fld_RemesasProveedorNOMBRE = 'NOMBRE';
+  fld_RemesasProveedorENTIDAD = 'ENTIDAD';
+  fld_RemesasProveedorSUCURSAL = 'SUCURSAL';
+  fld_RemesasProveedorDC = 'DC';
+  fld_RemesasProveedorCUENTA = 'CUENTA';
+  fld_RemesasProveedorSUFIJO_N19 = 'SUFIJO_N19';
+  fld_RemesasProveedorSUFIJO_N58 = 'SUFIJO_N58';
+
+  { RemesasProveedor field indexes }
+  idx_RemesasProveedorID = 0;
+  idx_RemesasProveedorID_EMPRESA = 1;
+  idx_RemesasProveedorREFERENCIA = 2;
+  idx_RemesasProveedorFECHA_REMESA = 3;
+  idx_RemesasProveedorDESCRIPCION = 4;
+  idx_RemesasProveedorUSUARIO = 5;
+  idx_RemesasProveedorID_DATOS_BANCO = 6;
+  idx_RemesasProveedorFECHA_ALTA = 7;
+  idx_RemesasProveedorFECHA_MODIFICACION = 8;
+  idx_RemesasProveedorIMPORTE_TOTAL = 9;
+  idx_RemesasProveedorNOMBRE = 10;
+  idx_RemesasProveedorENTIDAD = 11;
+  idx_RemesasProveedorSUCURSAL = 12;
+  idx_RemesasProveedorDC = 13;
+  idx_RemesasProveedorCUENTA = 14;
+  idx_RemesasProveedorSUFIJO_N19 = 15;
+  idx_RemesasProveedorSUFIJO_N58 = 16;
+
+  { RemesasProveedor_Refresh fields }
+  fld_RemesasProveedor_RefreshID = 'ID';
+  fld_RemesasProveedor_RefreshID_EMPRESA = 'ID_EMPRESA';
+  fld_RemesasProveedor_RefreshREFERENCIA = 'REFERENCIA';
+  fld_RemesasProveedor_RefreshFECHA_REMESA = 'FECHA_REMESA';
+  fld_RemesasProveedor_RefreshDESCRIPCION = 'DESCRIPCION';
+  fld_RemesasProveedor_RefreshUSUARIO = 'USUARIO';
+  fld_RemesasProveedor_RefreshID_DATOS_BANCO = 'ID_DATOS_BANCO';
+  fld_RemesasProveedor_RefreshFECHA_ALTA = 'FECHA_ALTA';
+  fld_RemesasProveedor_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION';
+  fld_RemesasProveedor_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL';
+  fld_RemesasProveedor_RefreshNOMBRE = 'NOMBRE';
+  fld_RemesasProveedor_RefreshENTIDAD = 'ENTIDAD';
+  fld_RemesasProveedor_RefreshSUCURSAL = 'SUCURSAL';
+  fld_RemesasProveedor_RefreshDC = 'DC';
+  fld_RemesasProveedor_RefreshCUENTA = 'CUENTA';
+  fld_RemesasProveedor_RefreshSUFIJO_N19 = 'SUFIJO_N19';
+  fld_RemesasProveedor_RefreshSUFIJO_N58 = 'SUFIJO_N58';
+
+  { RemesasProveedor_Refresh field indexes }
+  idx_RemesasProveedor_RefreshID = 0;
+  idx_RemesasProveedor_RefreshID_EMPRESA = 1;
+  idx_RemesasProveedor_RefreshREFERENCIA = 2;
+  idx_RemesasProveedor_RefreshFECHA_REMESA = 3;
+  idx_RemesasProveedor_RefreshDESCRIPCION = 4;
+  idx_RemesasProveedor_RefreshUSUARIO = 5;
+  idx_RemesasProveedor_RefreshID_DATOS_BANCO = 6;
+  idx_RemesasProveedor_RefreshFECHA_ALTA = 7;
+  idx_RemesasProveedor_RefreshFECHA_MODIFICACION = 8;
+  idx_RemesasProveedor_RefreshIMPORTE_TOTAL = 9;
+  idx_RemesasProveedor_RefreshNOMBRE = 10;
+  idx_RemesasProveedor_RefreshENTIDAD = 11;
+  idx_RemesasProveedor_RefreshSUCURSAL = 12;
+  idx_RemesasProveedor_RefreshDC = 13;
+  idx_RemesasProveedor_RefreshCUENTA = 14;
+  idx_RemesasProveedor_RefreshSUFIJO_N19 = 15;
+  idx_RemesasProveedor_RefreshSUFIJO_N58 = 16;
+
+type
+  { IdarReferencia }
+  IdarReferencia = interface(IDAStronglyTypedDataTable)
+  ['{419EF698-F812-4BB2-AF2E-4BDCAF09060F}']
+    { Property getters and setters }
+    function GetVALORValue: String;
+    procedure SetVALORValue(const aValue: String);
+
+
+    { Properties }
+    property VALOR: String read GetVALORValue write SetVALORValue;
+  end;
+
+  { TdarReferenciaDataTableRules }
+  TdarReferenciaDataTableRules = class(TDADataTableRules, IdarReferencia)
+  private
+  protected
+    { Property getters and setters }
+    function GetVALORValue: String; virtual;
+    procedure SetVALORValue(const aValue: String); virtual;
+
+    { Properties }
+    property VALOR: String read GetVALORValue write SetVALORValue;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
+  { IRemesasProveedor }
+  IRemesasProveedor = interface(IDAStronglyTypedDataTable)
+  ['{88EC9B27-C7D8-4C82-8E83-29E8F70DBB66}']
+    { Property getters and setters }
+    function GetIDValue: Integer;
+    procedure SetIDValue(const aValue: Integer);
+    function GetID_EMPRESAValue: Integer;
+    procedure SetID_EMPRESAValue(const aValue: Integer);
+    function GetREFERENCIAValue: String;
+    procedure SetREFERENCIAValue(const aValue: String);
+    function GetFECHA_REMESAValue: DateTime;
+    procedure SetFECHA_REMESAValue(const aValue: DateTime);
+    function GetDESCRIPCIONValue: String;
+    procedure SetDESCRIPCIONValue(const aValue: String);
+    function GetUSUARIOValue: String;
+    procedure SetUSUARIOValue(const aValue: String);
+    function GetID_DATOS_BANCOValue: Integer;
+    procedure SetID_DATOS_BANCOValue(const aValue: Integer);
+    function GetFECHA_ALTAValue: DateTime;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime);
+    function GetFECHA_MODIFICACIONValue: DateTime;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+    function GetIMPORTE_TOTALValue: Float;
+    procedure SetIMPORTE_TOTALValue(const aValue: Float);
+    function GetNOMBREValue: String;
+    procedure SetNOMBREValue(const aValue: String);
+    function GetENTIDADValue: String;
+    procedure SetENTIDADValue(const aValue: String);
+    function GetSUCURSALValue: String;
+    procedure SetSUCURSALValue(const aValue: String);
+    function GetDCValue: String;
+    procedure SetDCValue(const aValue: String);
+    function GetCUENTAValue: String;
+    procedure SetCUENTAValue(const aValue: String);
+    function GetSUFIJO_N19Value: String;
+    procedure SetSUFIJO_N19Value(const aValue: String);
+    function GetSUFIJO_N58Value: String;
+    procedure SetSUFIJO_N58Value(const aValue: String);
+
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
+    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+    property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
+    property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
+    property DC: String read GetDCValue write SetDCValue;
+    property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
+    property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
+    property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
+  end;
+
+  { TRemesasProveedorDataTableRules }
+  TRemesasProveedorDataTableRules = class(TDADataTableRules, IRemesasProveedor)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    function GetID_EMPRESAValue: Integer; virtual;
+    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+    function GetREFERENCIAValue: String; virtual;
+    procedure SetREFERENCIAValue(const aValue: String); virtual;
+    function GetFECHA_REMESAValue: DateTime; virtual;
+    procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    function GetUSUARIOValue: String; virtual;
+    procedure SetUSUARIOValue(const aValue: String); virtual;
+    function GetID_DATOS_BANCOValue: Integer; virtual;
+    procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual;
+    function GetFECHA_ALTAValue: DateTime; virtual;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+    function GetIMPORTE_TOTALValue: Float; virtual;
+    procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
+    function GetNOMBREValue: String; virtual;
+    procedure SetNOMBREValue(const aValue: String); virtual;
+    function GetENTIDADValue: String; virtual;
+    procedure SetENTIDADValue(const aValue: String); virtual;
+    function GetSUCURSALValue: String; virtual;
+    procedure SetSUCURSALValue(const aValue: String); virtual;
+    function GetDCValue: String; virtual;
+    procedure SetDCValue(const aValue: String); virtual;
+    function GetCUENTAValue: String; virtual;
+    procedure SetCUENTAValue(const aValue: String); virtual;
+    function GetSUFIJO_N19Value: String; virtual;
+    procedure SetSUFIJO_N19Value(const aValue: String); virtual;
+    function GetSUFIJO_N58Value: String; virtual;
+    procedure SetSUFIJO_N58Value(const aValue: String); virtual;
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
+    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+    property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
+    property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
+    property DC: String read GetDCValue write SetDCValue;
+    property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
+    property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
+    property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
+  { IRemesasProveedor_Refresh }
+  IRemesasProveedor_Refresh = interface(IDAStronglyTypedDataTable)
+  ['{53C9C363-9E14-448C-9201-52DB64D0B000}']
+    { Property getters and setters }
+    function GetIDValue: Integer;
+    procedure SetIDValue(const aValue: Integer);
+    function GetID_EMPRESAValue: Integer;
+    procedure SetID_EMPRESAValue(const aValue: Integer);
+    function GetREFERENCIAValue: String;
+    procedure SetREFERENCIAValue(const aValue: String);
+    function GetFECHA_REMESAValue: DateTime;
+    procedure SetFECHA_REMESAValue(const aValue: DateTime);
+    function GetDESCRIPCIONValue: String;
+    procedure SetDESCRIPCIONValue(const aValue: String);
+    function GetUSUARIOValue: String;
+    procedure SetUSUARIOValue(const aValue: String);
+    function GetID_DATOS_BANCOValue: Integer;
+    procedure SetID_DATOS_BANCOValue(const aValue: Integer);
+    function GetFECHA_ALTAValue: DateTime;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime);
+    function GetFECHA_MODIFICACIONValue: DateTime;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+    function GetIMPORTE_TOTALValue: Float;
+    procedure SetIMPORTE_TOTALValue(const aValue: Float);
+    function GetNOMBREValue: String;
+    procedure SetNOMBREValue(const aValue: String);
+    function GetENTIDADValue: String;
+    procedure SetENTIDADValue(const aValue: String);
+    function GetSUCURSALValue: String;
+    procedure SetSUCURSALValue(const aValue: String);
+    function GetDCValue: String;
+    procedure SetDCValue(const aValue: String);
+    function GetCUENTAValue: String;
+    procedure SetCUENTAValue(const aValue: String);
+    function GetSUFIJO_N19Value: String;
+    procedure SetSUFIJO_N19Value(const aValue: String);
+    function GetSUFIJO_N58Value: String;
+    procedure SetSUFIJO_N58Value(const aValue: String);
+
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
+    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+    property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
+    property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
+    property DC: String read GetDCValue write SetDCValue;
+    property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
+    property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
+    property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
+  end;
+
+  { TRemesasProveedor_RefreshDataTableRules }
+  TRemesasProveedor_RefreshDataTableRules = class(TDADataTableRules, IRemesasProveedor_Refresh)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    function GetID_EMPRESAValue: Integer; virtual;
+    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+    function GetREFERENCIAValue: String; virtual;
+    procedure SetREFERENCIAValue(const aValue: String); virtual;
+    function GetFECHA_REMESAValue: DateTime; virtual;
+    procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    function GetUSUARIOValue: String; virtual;
+    procedure SetUSUARIOValue(const aValue: String); virtual;
+    function GetID_DATOS_BANCOValue: Integer; virtual;
+    procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual;
+    function GetFECHA_ALTAValue: DateTime; virtual;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+    function GetIMPORTE_TOTALValue: Float; virtual;
+    procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
+    function GetNOMBREValue: String; virtual;
+    procedure SetNOMBREValue(const aValue: String); virtual;
+    function GetENTIDADValue: String; virtual;
+    procedure SetENTIDADValue(const aValue: String); virtual;
+    function GetSUCURSALValue: String; virtual;
+    procedure SetSUCURSALValue(const aValue: String); virtual;
+    function GetDCValue: String; virtual;
+    procedure SetDCValue(const aValue: String); virtual;
+    function GetCUENTAValue: String; virtual;
+    procedure SetCUENTAValue(const aValue: String); virtual;
+    function GetSUFIJO_N19Value: String; virtual;
+    procedure SetSUFIJO_N19Value(const aValue: String); virtual;
+    function GetSUFIJO_N58Value: String; virtual;
+    procedure SetSUFIJO_N58Value(const aValue: String); virtual;
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
+    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+    property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
+    property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
+    property DC: String read GetDCValue write SetDCValue;
+    property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
+    property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
+    property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
+implementation
+
+uses Variants;
+
+{ TdarReferenciaDataTableRules }
+constructor TdarReferenciaDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TdarReferenciaDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TdarReferenciaDataTableRules.GetVALORValue: String;
+begin
+  result := DataTable.Fields[idx_darReferenciaVALOR].AsString;
+end;
+
+procedure TdarReferenciaDataTableRules.SetVALORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_darReferenciaVALOR].AsString := aValue;
+end;
+
+
+{ TRemesasProveedorDataTableRules }
+constructor TRemesasProveedorDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TRemesasProveedorDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TRemesasProveedorDataTableRules.GetIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorID].AsInteger;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RemesasProveedorID].AsInteger := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetID_EMPRESAValue: Integer;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorID_EMPRESA].AsInteger;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RemesasProveedorID_EMPRESA].AsInteger := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetREFERENCIAValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorREFERENCIA].AsString;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetREFERENCIAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedorREFERENCIA].AsString := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetFECHA_REMESAValue: DateTime;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorFECHA_REMESA].AsDateTime;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetFECHA_REMESAValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_RemesasProveedorFECHA_REMESA].AsDateTime := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetDESCRIPCIONValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorDESCRIPCION].AsString;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedorDESCRIPCION].AsString := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetUSUARIOValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorUSUARIO].AsString;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetUSUARIOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedorUSUARIO].AsString := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetID_DATOS_BANCOValue: Integer;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorID_DATOS_BANCO].AsInteger;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetID_DATOS_BANCOValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RemesasProveedorID_DATOS_BANCO].AsInteger := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorFECHA_ALTA].AsDateTime;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_RemesasProveedorFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_RemesasProveedorFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetIMPORTE_TOTALValue: Float;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorIMPORTE_TOTAL].AsFloat;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
+begin
+  DataTable.Fields[idx_RemesasProveedorIMPORTE_TOTAL].AsFloat := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetNOMBREValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorNOMBRE].AsString;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetNOMBREValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedorNOMBRE].AsString := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetENTIDADValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorENTIDAD].AsString;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetENTIDADValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedorENTIDAD].AsString := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetSUCURSALValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorSUCURSAL].AsString;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetSUCURSALValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedorSUCURSAL].AsString := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetDCValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorDC].AsString;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetDCValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedorDC].AsString := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetCUENTAValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorCUENTA].AsString;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetCUENTAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedorCUENTA].AsString := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetSUFIJO_N19Value: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorSUFIJO_N19].AsString;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetSUFIJO_N19Value(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedorSUFIJO_N19].AsString := aValue;
+end;
+
+function TRemesasProveedorDataTableRules.GetSUFIJO_N58Value: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedorSUFIJO_N58].AsString;
+end;
+
+procedure TRemesasProveedorDataTableRules.SetSUFIJO_N58Value(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedorSUFIJO_N58].AsString := aValue;
+end;
+
+
+{ TRemesasProveedor_RefreshDataTableRules }
+constructor TRemesasProveedor_RefreshDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TRemesasProveedor_RefreshDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshID].AsInteger;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshID].AsInteger := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetID_EMPRESAValue: Integer;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshID_EMPRESA].AsInteger;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshID_EMPRESA].AsInteger := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetREFERENCIAValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshREFERENCIA].AsString;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshREFERENCIA].AsString := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetFECHA_REMESAValue: DateTime;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_REMESA].AsDateTime;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetFECHA_REMESAValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_REMESA].AsDateTime := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetDESCRIPCIONValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshDESCRIPCION].AsString;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshDESCRIPCION].AsString := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetUSUARIOValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshUSUARIO].AsString;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetUSUARIOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshUSUARIO].AsString := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetID_DATOS_BANCOValue: Integer;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshID_DATOS_BANCO].AsInteger;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetID_DATOS_BANCOValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshID_DATOS_BANCO].AsInteger := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_ALTA].AsDateTime;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetIMPORTE_TOTALValue: Float;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshIMPORTE_TOTAL].AsFloat;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshIMPORTE_TOTAL].AsFloat := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetNOMBREValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshNOMBRE].AsString;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetNOMBREValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshNOMBRE].AsString := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetENTIDADValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshENTIDAD].AsString;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetENTIDADValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshENTIDAD].AsString := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetSUCURSALValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshSUCURSAL].AsString;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetSUCURSALValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshSUCURSAL].AsString := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetDCValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshDC].AsString;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetDCValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshDC].AsString := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetCUENTAValue: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshCUENTA].AsString;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetCUENTAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshCUENTA].AsString := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetSUFIJO_N19Value: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshSUFIJO_N19].AsString;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetSUFIJO_N19Value(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshSUFIJO_N19].AsString := aValue;
+end;
+
+function TRemesasProveedor_RefreshDataTableRules.GetSUFIJO_N58Value: String;
+begin
+  result := DataTable.Fields[idx_RemesasProveedor_RefreshSUFIJO_N58].AsString;
+end;
+
+procedure TRemesasProveedor_RefreshDataTableRules.SetSUFIJO_N58Value(const aValue: String);
+begin
+  DataTable.Fields[idx_RemesasProveedor_RefreshSUFIJO_N58].AsString := aValue;
+end;
+
+
+initialization
+  RegisterDataTableRules(RID_darReferencia, TdarReferenciaDataTableRules);
+  RegisterDataTableRules(RID_RemesasProveedor, TRemesasProveedorDataTableRules);
+  RegisterDataTableRules(RID_RemesasProveedor_Refresh, TRemesasProveedor_RefreshDataTableRules);
+
+end.

Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas

@@ -0,0 +1,899 @@
+unit schRemesasProveedorServer_Intf;
+
+interface
+
+uses
+  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schRemesasProveedorClient_Intf;
+
+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_darReferenciaDelta = '{137F6E55-880D-4E7A-9E63-2B70A858EB7E}';
+  RID_RemesasProveedorDelta = '{13DBC096-29B3-43C6-8174-3776F2A23352}';
+  RID_RemesasProveedor_RefreshDelta = '{357339B7-C872-48D4-A472-875E190B5EE5}';
+
+type
+  { IdarReferenciaDelta }
+  IdarReferenciaDelta = interface(IdarReferencia)
+  ['{137F6E55-880D-4E7A-9E63-2B70A858EB7E}']
+    { Property getters and setters }
+    function GetOldVALORValue : String;
+
+    { Properties }
+    property OldVALOR : String read GetOldVALORValue;
+  end;
+
+  { TdarReferenciaBusinessProcessorRules }
+  TdarReferenciaBusinessProcessorRules = class(TDABusinessProcessorRules, IdarReferencia, IdarReferenciaDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetVALORValue: String; virtual;
+    function GetOldVALORValue: String; virtual;
+    procedure SetVALORValue(const aValue: String); virtual;
+
+    { Properties }
+    property VALOR : String read GetVALORValue write SetVALORValue;
+    property OldVALOR : String read GetOldVALORValue;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
+  { IRemesasProveedorDelta }
+  IRemesasProveedorDelta = interface(IRemesasProveedor)
+  ['{13DBC096-29B3-43C6-8174-3776F2A23352}']
+    { Property getters and setters }
+    function GetOldIDValue : Integer;
+    function GetOldID_EMPRESAValue : Integer;
+    function GetOldREFERENCIAValue : String;
+    function GetOldFECHA_REMESAValue : DateTime;
+    function GetOldDESCRIPCIONValue : String;
+    function GetOldUSUARIOValue : String;
+    function GetOldID_DATOS_BANCOValue : Integer;
+    function GetOldFECHA_ALTAValue : DateTime;
+    function GetOldFECHA_MODIFICACIONValue : DateTime;
+    function GetOldIMPORTE_TOTALValue : Float;
+    function GetOldNOMBREValue : String;
+    function GetOldENTIDADValue : String;
+    function GetOldSUCURSALValue : String;
+    function GetOldDCValue : String;
+    function GetOldCUENTAValue : String;
+    function GetOldSUFIJO_N19Value : String;
+    function GetOldSUFIJO_N58Value : String;
+
+    { Properties }
+    property OldID : Integer read GetOldIDValue;
+    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldUSUARIO : String read GetOldUSUARIOValue;
+    property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue;
+    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
+    property OldNOMBRE : String read GetOldNOMBREValue;
+    property OldENTIDAD : String read GetOldENTIDADValue;
+    property OldSUCURSAL : String read GetOldSUCURSALValue;
+    property OldDC : String read GetOldDCValue;
+    property OldCUENTA : String read GetOldCUENTAValue;
+    property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
+    property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
+  end;
+
+  { TRemesasProveedorBusinessProcessorRules }
+  TRemesasProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IRemesasProveedor, IRemesasProveedorDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    function GetOldIDValue: Integer; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    function GetID_EMPRESAValue: Integer; virtual;
+    function GetOldID_EMPRESAValue: Integer; virtual;
+    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+    function GetREFERENCIAValue: String; virtual;
+    function GetOldREFERENCIAValue: String; virtual;
+    procedure SetREFERENCIAValue(const aValue: String); virtual;
+    function GetFECHA_REMESAValue: DateTime; virtual;
+    function GetOldFECHA_REMESAValue: DateTime; virtual;
+    procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    function GetOldDESCRIPCIONValue: String; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    function GetUSUARIOValue: String; virtual;
+    function GetOldUSUARIOValue: String; virtual;
+    procedure SetUSUARIOValue(const aValue: String); virtual;
+    function GetID_DATOS_BANCOValue: Integer; virtual;
+    function GetOldID_DATOS_BANCOValue: Integer; virtual;
+    procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual;
+    function GetFECHA_ALTAValue: DateTime; virtual;
+    function GetOldFECHA_ALTAValue: DateTime; virtual;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+    function GetIMPORTE_TOTALValue: Float; virtual;
+    function GetOldIMPORTE_TOTALValue: Float; virtual;
+    procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
+    function GetNOMBREValue: String; virtual;
+    function GetOldNOMBREValue: String; virtual;
+    procedure SetNOMBREValue(const aValue: String); virtual;
+    function GetENTIDADValue: String; virtual;
+    function GetOldENTIDADValue: String; virtual;
+    procedure SetENTIDADValue(const aValue: String); virtual;
+    function GetSUCURSALValue: String; virtual;
+    function GetOldSUCURSALValue: String; virtual;
+    procedure SetSUCURSALValue(const aValue: String); virtual;
+    function GetDCValue: String; virtual;
+    function GetOldDCValue: String; virtual;
+    procedure SetDCValue(const aValue: String); virtual;
+    function GetCUENTAValue: String; virtual;
+    function GetOldCUENTAValue: String; virtual;
+    procedure SetCUENTAValue(const aValue: String); virtual;
+    function GetSUFIJO_N19Value: String; virtual;
+    function GetOldSUFIJO_N19Value: String; virtual;
+    procedure SetSUFIJO_N19Value(const aValue: String); virtual;
+    function GetSUFIJO_N58Value: String; virtual;
+    function GetOldSUFIJO_N58Value: String; virtual;
+    procedure SetSUFIJO_N58Value(const aValue: String); virtual;
+
+    { Properties }
+    property ID : Integer read GetIDValue write SetIDValue;
+    property OldID : Integer read GetOldIDValue;
+    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
+    property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
+    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+    property OldUSUARIO : String read GetOldUSUARIOValue;
+    property ID_DATOS_BANCO : Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
+    property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue;
+    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+    property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
+    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+    property OldNOMBRE : String read GetOldNOMBREValue;
+    property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
+    property OldENTIDAD : String read GetOldENTIDADValue;
+    property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue;
+    property OldSUCURSAL : String read GetOldSUCURSALValue;
+    property DC : String read GetDCValue write SetDCValue;
+    property OldDC : String read GetOldDCValue;
+    property CUENTA : String read GetCUENTAValue write SetCUENTAValue;
+    property OldCUENTA : String read GetOldCUENTAValue;
+    property SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
+    property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
+    property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
+    property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
+  { IRemesasProveedor_RefreshDelta }
+  IRemesasProveedor_RefreshDelta = interface(IRemesasProveedor_Refresh)
+  ['{357339B7-C872-48D4-A472-875E190B5EE5}']
+    { Property getters and setters }
+    function GetOldIDValue : Integer;
+    function GetOldID_EMPRESAValue : Integer;
+    function GetOldREFERENCIAValue : String;
+    function GetOldFECHA_REMESAValue : DateTime;
+    function GetOldDESCRIPCIONValue : String;
+    function GetOldUSUARIOValue : String;
+    function GetOldID_DATOS_BANCOValue : Integer;
+    function GetOldFECHA_ALTAValue : DateTime;
+    function GetOldFECHA_MODIFICACIONValue : DateTime;
+    function GetOldIMPORTE_TOTALValue : Float;
+    function GetOldNOMBREValue : String;
+    function GetOldENTIDADValue : String;
+    function GetOldSUCURSALValue : String;
+    function GetOldDCValue : String;
+    function GetOldCUENTAValue : String;
+    function GetOldSUFIJO_N19Value : String;
+    function GetOldSUFIJO_N58Value : String;
+
+    { Properties }
+    property OldID : Integer read GetOldIDValue;
+    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldUSUARIO : String read GetOldUSUARIOValue;
+    property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue;
+    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
+    property OldNOMBRE : String read GetOldNOMBREValue;
+    property OldENTIDAD : String read GetOldENTIDADValue;
+    property OldSUCURSAL : String read GetOldSUCURSALValue;
+    property OldDC : String read GetOldDCValue;
+    property OldCUENTA : String read GetOldCUENTAValue;
+    property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
+    property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
+  end;
+
+  { TRemesasProveedor_RefreshBusinessProcessorRules }
+  TRemesasProveedor_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IRemesasProveedor_Refresh, IRemesasProveedor_RefreshDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    function GetOldIDValue: Integer; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    function GetID_EMPRESAValue: Integer; virtual;
+    function GetOldID_EMPRESAValue: Integer; virtual;
+    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+    function GetREFERENCIAValue: String; virtual;
+    function GetOldREFERENCIAValue: String; virtual;
+    procedure SetREFERENCIAValue(const aValue: String); virtual;
+    function GetFECHA_REMESAValue: DateTime; virtual;
+    function GetOldFECHA_REMESAValue: DateTime; virtual;
+    procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    function GetOldDESCRIPCIONValue: String; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    function GetUSUARIOValue: String; virtual;
+    function GetOldUSUARIOValue: String; virtual;
+    procedure SetUSUARIOValue(const aValue: String); virtual;
+    function GetID_DATOS_BANCOValue: Integer; virtual;
+    function GetOldID_DATOS_BANCOValue: Integer; virtual;
+    procedure SetID_DATOS_BANCOValue(const aValue: Integer); virtual;
+    function GetFECHA_ALTAValue: DateTime; virtual;
+    function GetOldFECHA_ALTAValue: DateTime; virtual;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+    function GetIMPORTE_TOTALValue: Float; virtual;
+    function GetOldIMPORTE_TOTALValue: Float; virtual;
+    procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
+    function GetNOMBREValue: String; virtual;
+    function GetOldNOMBREValue: String; virtual;
+    procedure SetNOMBREValue(const aValue: String); virtual;
+    function GetENTIDADValue: String; virtual;
+    function GetOldENTIDADValue: String; virtual;
+    procedure SetENTIDADValue(const aValue: String); virtual;
+    function GetSUCURSALValue: String; virtual;
+    function GetOldSUCURSALValue: String; virtual;
+    procedure SetSUCURSALValue(const aValue: String); virtual;
+    function GetDCValue: String; virtual;
+    function GetOldDCValue: String; virtual;
+    procedure SetDCValue(const aValue: String); virtual;
+    function GetCUENTAValue: String; virtual;
+    function GetOldCUENTAValue: String; virtual;
+    procedure SetCUENTAValue(const aValue: String); virtual;
+    function GetSUFIJO_N19Value: String; virtual;
+    function GetOldSUFIJO_N19Value: String; virtual;
+    procedure SetSUFIJO_N19Value(const aValue: String); virtual;
+    function GetSUFIJO_N58Value: String; virtual;
+    function GetOldSUFIJO_N58Value: String; virtual;
+    procedure SetSUFIJO_N58Value(const aValue: String); virtual;
+
+    { Properties }
+    property ID : Integer read GetIDValue write SetIDValue;
+    property OldID : Integer read GetOldIDValue;
+    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
+    property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
+    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+    property OldUSUARIO : String read GetOldUSUARIOValue;
+    property ID_DATOS_BANCO : Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
+    property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue;
+    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+    property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
+    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+    property OldNOMBRE : String read GetOldNOMBREValue;
+    property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
+    property OldENTIDAD : String read GetOldENTIDADValue;
+    property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue;
+    property OldSUCURSAL : String read GetOldSUCURSALValue;
+    property DC : String read GetDCValue write SetDCValue;
+    property OldDC : String read GetOldDCValue;
+    property CUENTA : String read GetCUENTAValue write SetCUENTAValue;
+    property OldCUENTA : String read GetOldCUENTAValue;
+    property SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
+    property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
+    property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
+    property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
+implementation
+
+uses
+  Variants, uROBinaryHelpers;
+
+{ TdarReferenciaBusinessProcessorRules }
+constructor TdarReferenciaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TdarReferenciaBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TdarReferenciaBusinessProcessorRules.GetVALORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_darReferenciaVALOR];
+end;
+
+function TdarReferenciaBusinessProcessorRules.GetOldVALORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_darReferenciaVALOR];
+end;
+
+procedure TdarReferenciaBusinessProcessorRules.SetVALORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_darReferenciaVALOR] := aValue;
+end;
+
+
+{ TRemesasProveedorBusinessProcessorRules }
+constructor TRemesasProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TRemesasProveedorBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorID];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_EMPRESA];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorID_EMPRESA];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_EMPRESA] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorREFERENCIA];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorREFERENCIA];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorREFERENCIA] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetFECHA_REMESAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_REMESA];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldFECHA_REMESAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorFECHA_REMESA];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetFECHA_REMESAValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_REMESA] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDESCRIPCION];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorDESCRIPCION];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDESCRIPCION] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetUSUARIOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorUSUARIO];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldUSUARIOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorUSUARIO];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorUSUARIO] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetID_DATOS_BANCOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_DATOS_BANCO];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldID_DATOS_BANCOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorID_DATOS_BANCO];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetID_DATOS_BANCOValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorID_DATOS_BANCO] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_ALTA];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorFECHA_ALTA];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_ALTA] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_MODIFICACION];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorFECHA_MODIFICACION];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_MODIFICACION] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetIMPORTE_TOTALValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorIMPORTE_TOTAL];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorIMPORTE_TOTAL];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorIMPORTE_TOTAL] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetNOMBREValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorNOMBRE];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldNOMBREValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorNOMBRE];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetNOMBREValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorNOMBRE] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetENTIDADValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorENTIDAD];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldENTIDADValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorENTIDAD];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetENTIDADValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorENTIDAD] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetSUCURSALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUCURSAL];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldSUCURSALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorSUCURSAL];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUCURSAL] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetDCValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDC];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldDCValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorDC];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetDCValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorDC] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetCUENTAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorCUENTA];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldCUENTAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorCUENTA];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetCUENTAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorCUENTA] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetSUFIJO_N19Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N19];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldSUFIJO_N19Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorSUFIJO_N19];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetSUFIJO_N19Value(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N19] := aValue;
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetSUFIJO_N58Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N58];
+end;
+
+function TRemesasProveedorBusinessProcessorRules.GetOldSUFIJO_N58Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorSUFIJO_N58];
+end;
+
+procedure TRemesasProveedorBusinessProcessorRules.SetSUFIJO_N58Value(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorSUFIJO_N58] := aValue;
+end;
+
+
+{ TRemesasProveedor_RefreshBusinessProcessorRules }
+constructor TRemesasProveedor_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TRemesasProveedor_RefreshBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshID];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID_EMPRESA];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshID_EMPRESA];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID_EMPRESA] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshREFERENCIA];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshREFERENCIA];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshREFERENCIA] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetFECHA_REMESAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_REMESA];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldFECHA_REMESAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshFECHA_REMESA];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetFECHA_REMESAValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_REMESA] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshDESCRIPCION];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshDESCRIPCION];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshDESCRIPCION] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetUSUARIOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshUSUARIO];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshUSUARIO];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshUSUARIO] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetID_DATOS_BANCOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID_DATOS_BANCO];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldID_DATOS_BANCOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshID_DATOS_BANCO];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetID_DATOS_BANCOValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshID_DATOS_BANCO] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_ALTA];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshFECHA_ALTA];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_ALTA] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_MODIFICACION];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshFECHA_MODIFICACION];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_MODIFICACION] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshIMPORTE_TOTAL];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshIMPORTE_TOTAL];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshIMPORTE_TOTAL] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetNOMBREValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshNOMBRE];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldNOMBREValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshNOMBRE];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetNOMBREValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshNOMBRE] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetENTIDADValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshENTIDAD];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldENTIDADValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshENTIDAD];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetENTIDADValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshENTIDAD] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetSUCURSALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUCURSAL];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldSUCURSALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshSUCURSAL];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUCURSAL] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetDCValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshDC];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldDCValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshDC];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetDCValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshDC] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetCUENTAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshCUENTA];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldCUENTAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshCUENTA];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetCUENTAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshCUENTA] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetSUFIJO_N19Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUFIJO_N19];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldSUFIJO_N19Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshSUFIJO_N19];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetSUFIJO_N19Value(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUFIJO_N19] := aValue;
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetSUFIJO_N58Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUFIJO_N58];
+end;
+
+function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldSUFIJO_N58Value: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshSUFIJO_N58];
+end;
+
+procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetSUFIJO_N58Value(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshSUFIJO_N58] := aValue;
+end;
+
+
+initialization
+  RegisterBusinessProcessorRules(RID_darReferenciaDelta, TdarReferenciaBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_RemesasProveedorDelta, TRemesasProveedorBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_RemesasProveedor_RefreshDelta, TRemesasProveedor_RefreshBusinessProcessorRules);
+
+end.

Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedor.pas

@@ -0,0 +1,99 @@
+unit uBizRemesasProveedor;
+
+interface
+
+uses
+  uDAInterfaces, uDADataTable, schRemesasProveedorClient_Intf, uDBSelectionListUtils,
+  uBizRecibosProveedor;
+
+const
+  BIZ_CLIENT_REMESAPROVEEDOR = 'Client.RemesaProveedor';
+
+type
+  IBizRemesaProveedor = interface(IRemesasProveedor)
+  ['{A150A74E-6A08-4D11-9CA7-39B65ABF78F5}']
+    function GetRecibos: IBizRecibosProveedor;
+    procedure SetRecibos(const Value: IBizRecibosProveedor);
+    property Recibos: IBizRecibosProveedor read GetRecibos write SetRecibos;
+  	function EsNuevo : Boolean;
+  end;
+
+  TBizRemesaProveedor = class(TRemesasProveedorDataTableRules, IBizRemesaProveedor, ISeleccionable)
+  protected
+    FRecibos: IBizRecibosProveedor;
+    FSeleccionableInterface : ISeleccionable;
+
+    function GetRecibos: IBizRecibosProveedor;
+    procedure SetRecibos(const Value: IBizRecibosProveedor);
+    procedure OnNewRecord(Sender: TDADataTable); override;
+  public
+    property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
+        write FSeleccionableInterface implements ISeleccionable;
+    property Recibos: IBizRecibosProveedor read GetRecibos write SetRecibos;
+
+    procedure IniciarValoresRemesaProveedorNuevo; virtual;
+    function EsNuevo : Boolean;
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+  end;
+
+implementation
+
+uses
+  uDataTableUtils, uDataModuleUsuarios, SysUtils, uROClasses, Classes;
+
+{ TBizRemesaProveedor }
+
+constructor TBizRemesaProveedor.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+  FRecibos := Nil;
+  FSeleccionableInterface := TSeleccionable.Create(aDataTable);
+end;
+
+destructor TBizRemesaProveedor.Destroy;
+begin
+  FRecibos := Nil;
+  FSeleccionableInterface := NIL;
+  inherited;
+end;
+
+function TBizRemesaProveedor.EsNuevo: Boolean;
+begin
+  Result := (ID < 0);
+end;
+
+function TBizRemesaProveedor.GetRecibos: IBizRecibosProveedor;
+begin
+  Result := FRecibos;
+end;
+
+procedure TBizRemesaProveedor.IniciarValoresRemesaProveedorNuevo;
+begin
+  ID_EMPRESA := dmUsuarios.IDEmpresaActual;
+  FECHA_REMESA := Date;
+  USUARIO := dmUsuarios.LoginInfo.Usuario;
+end;
+
+procedure TBizRemesaProveedor.OnNewRecord(Sender: TDADataTable);
+begin
+  inherited;
+  ID := GetRecNo; // -1, -2, -3...
+  IniciarValoresRemesaProveedorNuevo;
+end;
+
+procedure TBizRemesaProveedor.SetRecibos(const Value: IBizRecibosProveedor);
+begin
+  FRecibos := Value;
+  if Assigned(FRecibos) then
+     if not FRecibos.DataTable.Active then
+        FRecibos.DataTable.Active := True;
+end;
+
+initialization
+  RegisterDataTableRules(BIZ_CLIENT_REMESAPROVEEDOR, TBizRemesaProveedor);
+
+finalization
+
+end.
+

Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas

@@ -0,0 +1,79 @@
+unit uBizRemesasProveedorServer;
+
+interface
+
+uses
+  schRemesasProveedorServer_Intf, uDAInterfaces,
+  uDADataTable, uDABusinessProcessor;
+
+const
+  BIZ_SERVER_REMESAS_Proveedor = 'Server.RemesasProveedor';
+  REF_REMESAS_PROVEEDOR = 'REF_REMESAS_PROVEEDOR';
+
+type
+  TBizRemesasProveedorServer = class(TRemesasProveedorBusinessProcessorRules)
+  protected
+    procedure BeforeProcessChange(Sender: TDABusinessProcessor;
+      aChangeType: TDAChangeType; aChange: TDADeltaChange;
+      var ProcessChange: Boolean); override;
+  end;
+
+implementation
+
+uses
+  Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses, DARemoteService_Impl,
+  schRemesasProveedorClient_Intf, uBusinessUtils, uReferenciasUtils, uROClasses;
+
+{ TBizRemesasProveedorServer }
+
+procedure TBizRemesasProveedorServer.BeforeProcessChange(
+  Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
+  aChange: TDADeltaChange; var ProcessChange: Boolean);
+var
+  ASchema : TDASchema;
+  ACurrentConn : IDAConnection;
+  dsData: IDADataset;
+  Empresa : Variant;
+
+begin
+  inherited;
+  case aChangeType of
+    ctInsert, ctUpdate: begin
+      //Si la referencia no ha sido asignada le asignamos una nosotros
+      if (VarIsNull(aChange.NewValueByName[fld_RemesasProveedorREFERENCIA]))
+      or (VarToStr(aChange.NewValueByName[fld_RemesasProveedorREFERENCIA]) = '') then
+      begin
+        ASchema := BusinessProcessor.Schema;
+        ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
+
+        try
+          //Siempre va a estar rellena
+          Empresa := aChange.NewValueByName[fld_RemesasProveedorID_EMPRESA];
+
+          dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_REMESAS_PROVEEDOR, Empresa]);
+        except
+          RaiseError('No existe la tabla REFERENCIAS');
+        end;
+
+        dsData.Active := True;
+
+        if dsData.IsEmpty then
+          RaiseError('NO HAY REFERENCIA ' + REF_REMESAS_PROVEEDOR + ' DECLARADA EN TABLA REFERENCIAS');
+
+        REFERENCIA := dsData.FieldByName('VALOR').AsString;
+
+        try
+          ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_REMESAS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]);
+        except
+          RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
+        end;
+
+      end;
+    end;
+  end;
+end;
+
+initialization
+  RegisterBusinessProcessorRules(BIZ_SERVER_REMESAS_Proveedor, TBizRemesasProveedorServer);
+
+end.

Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.bdsproj

@@ -0,0 +1,492 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{E4A70E78-DCAB-415C-9E35-1956BD41AE1A}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">RemesasProveedor_plugin.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription"></Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">.\</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\..\..\Output\Debug\Cliente</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Lib</Directories>
+			<Directories Name="SearchPath">..\..\..\Lib;..\..\Lib</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">3082</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=519
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+Freeze Message=The application seems to be frozen.
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+Show TerminateBtn=1
+TerminateBtn Operation=1
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=1
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesSection=1
+loSaveCPUSection=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soExcDate=1
+soExcAddress=1
+soExcModule=1
+soExcType=1
+soExcMessage=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpUser=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndCompressAllFiles=0
+edoShowExceptionDialog=1
+edoSendEmailChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoShowProcedureOffset=0
+boActivateCrashDetection=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error."
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_CustomDataCaption=1
+mtDialog_CustomDataCaption0="Other"
+Count mtDialog_CustomDataHeader=1
+mtDialog_CustomDataHeader0="Other Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModule=1
+mtLog_ExcModule0="Module"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpUser=1
+mtLog_CmpUser0="User"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+EurekaLog Last Line -->
+</BorlandProject>

Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.dpk

@@ -0,0 +1,42 @@
+package RemesasProveedor_plugin;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  PluginSDK_D10R,
+  PngComponentsD10,
+  PNG_D10,
+  vclactnband,
+  vclx,
+  RemesasProveedor_model,
+  RemesasProveedor_controller,
+  RemesasProveedor_view;
+
+contains
+  uPluginRemesasProveedor in 'uPluginRemesasProveedor.pas' {PluginRemesasProveedor};
+
+end.

Source/Modulos/Remesas de proveedor/Plugin/uPluginRemesasProveedor.dfm

@@ -0,0 +1,135 @@
+object PluginRemesasProveedor: TPluginRemesasProveedor
+  OldCreateOrder = True
+  DefaultAction = actRemesasProveedor
+  Description = 'Compras'
+  ModuleMenu = MainMenu
+  ModuleName = 'RemesasProveedor'
+  SmallImages = SmallImages
+  LargeImages = LargeImages
+  Author = 'Rodax Software'
+  Version = '1.0.0'
+  Height = 252
+  Width = 401
+  object LargeImages: TPngImageList
+    Height = 24
+    Width = 24
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+          F80000000970485973000017120000171201679FD252000002744944415478DA
+          63FCFFFF3F032D01E3F0B060F9D6D334B3056E41A4B729491AFFFCFDCFF0F7EF
+          3F869FBFFE80E93FFFFE8169301B887FFDFECB109E5E876A41E249438206FF05
+          AAFFF5F72FC3AF3F7FC0F4975FBF207C10065A02932BFAB59C61DED24D9816CC
+          373F8F6291F45B6F8626CF660C8BFE010D0361CFD5F60C1F791E800DBF14F082
+          4169A520D8928ABFAB705B00022036B2E11718CF33189F346660B809E4A83330
+          9C353FCBA0F9438BE117D007415B3C189EB2DF66B811FC1AAC566C3137431DC3
+          5AFC3E8019CE7C8A89E1AFD93F300D32FC6CDC5906E379408BB419183EEB7C61
+          E0BDC2C3F05AE50D43F84E5F86BD51C718841771817DD0CEB211BB05E841C3BC
+          1C684124D082C54C10C39719339C8D02D2B38C193E447C6410D8C2CFF0C2E525
+          43D49E00860B7F2EC0E3A3977D0B911620FBE02A508203887F30807DF056ED1D
+          83F02D218627324F18E20E86329CFA79166EC164AEEDF82D40B6E42F50C36596
+          4B9038B80894D087C481DC5B79869F3F7E60180E02382D404E4520C58A1FFC18
+          6A9C6BC196FC03A7F5BF700CE247EF0D841BFE33E50F03E34C46FC16C0003C6D
+          03B1CCB31F0C5325B4B1E60BDE877B505C0E03582D40CFA57FA039F3EA444D06
+          09A7200645CB1E86FBC74BC06A5EDC0726E7FBF719E6EE7BCE30A7DA09C3E229
+          4F73312D98B2780756570A7E3BC7A0F4660ED8307450DD928DD3E273AC89080B
+          BA27CF27584C9C2B7B88553CA5751FA65AA0E12000B680919191A0E1C75A14FF
+          93124C404BC3E6EEFBB19A140B4281D42A6CC13467EF77AC96022D6024CA0290
+          E196969AABB0C91D3F7E1D6BDC008101D0828BC45A803778402EC5A597681FE0
+          0A1E200087355E0B6809686E0100FA3E2AAB1481BE0E0000000049454E44AE42
+          6082}
+        Name = 'PngImage0'
+        Background = clWindow
+      end>
+    Left = 232
+    Top = 16
+    Bitmap = {}
+  end
+  object ModuleActionList: TActionList
+    Images = LargeImages
+    Left = 40
+    Top = 72
+    object actRemesasProveedor: TAction
+      Category = 'Compras'
+      Caption = 'Remesas de pago'
+      ImageIndex = 0
+      OnExecute = actRemesasProveedorExecute
+    end
+  end
+  object MainMenu: TMainMenu
+    Images = LargeImages
+    Left = 40
+    Top = 16
+    object N1: TMenuItem
+      Caption = 'Compras'
+      object RemesasProveedor1: TMenuItem
+        Tag = 107
+        Action = actRemesasProveedor
+      end
+    end
+  end
+  object SmallImages: TPngImageList
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD2520000011A4944415478DA
+          63FCFFFF3F032580916203966D3945B60991DEA68C6003D4BD9919269F4CC6AA
+          E8F7DFBF0CDFFFFC61F8F6FB37C3C71F3FC0ECB9FE5B19523CE6309CDB310D61
+          0008C00C996B760EC3209B6D7270CD208062C02E9134B8429866E6534C1081AB
+          0C0C7F13FF81999A6B4519BE035D02728DDCB204220CB80A118319A0B04200AC
+          19843556A762370024B9DCFA328617903583BC62B83E13350C40FE074B421581
+          70EF05569C31907DD8036140F7E4F9180AA6DAEE60B04CAE6660905064F8717C
+          2AC3F97DE719E6EE7BCE30A5C50BCE9EB3F73B23232E1B8EB528861E7CADB6EA
+          CEE58358E5939D24C32CABEFADC667C07F8A5D00A456811452D505208D5635F7
+          5783D480F211C92E98BBEF075C0FD8004A73230074DEE0E1BE54FBD500000000
+          49454E44AE426082}
+        Name = 'PngImage0'
+        Background = clWindow
+      end>
+    PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
+    Left = 308
+    Top = 16
+    Bitmap = {}
+  end
+  object ExtraImages: TPngImageList
+    Height = 28
+    Width = 28
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
+          940000000970485973000017120000171201679FD252000002D84944415478DA
+          ED946D48535118C7FF57855EB4171542B01756516845C868B63E4A1F2A7B1996
+          990B845008EA637DD2A828F34BF521D220C98484C28232B24C302329456D380D
+          A99C75035FB6A5B3E9ACAEBA7BD773CF4D9BEE6E6E23F6217AE0F09C73EE73CE
+          EF79CEFF9CCB793C1E44D2B8FFC07F0378EF697BC4A833C0DCCC6D616DE0163D
+          104589BCC43CEB4B5E7DE62986E6728E9F9D0D3CD69A163448A47593A28849B7
+          5BF1731B01A6BFD7E97AC0F70DA0B0A4DC175899DE310B9CECC8C485DD17FD82
+          25DA58621589D8FB3003A3715F18ACCB60C3DAEA7806ADD759D03768F50F944D
+          EEABC1CC5C07B4AD5AE0230D3602A6741352845406945B56ED2E0C2CB0E0C3C1
+          2116BFA22A160DBA5E0CDAED812BF48645B745013C1D638EA4F40966CA33417B
+          9BC09B00D7E6712C791C07AC0386D60F23A77E1F5E189B91786731ABB029FD33
+          ECC343EA40B5A38CAE268844C05C02564529B0BB5A988CE4CBB5701E19C5F2DA
+          652CD6B6D30E63830166B77946CFD7DB7938461C2100E5AA2C043CFABBC26E9A
+          5C484D00ABD0B16104897509ACC2FE95FDC87B958DB609D30CF08D8EC798CB19
+          18A87661648DDEC574291A76D2C45645C3D58E35EC9B7B6ACA07265B93F613BE
+          FF189BFF96CA0B34CEFD0C2A6F386EEB467C4F61C0E7B2CADC80AF4B454C14B8
+          C1DDE4D8DCCB340B04613C70856A6FABB81DD0E71701491A128B677102FF8C79
+          276F65FE4C45076E1565CC4AE291EB0416C527FB02E7FB7BF4DED882A48C2C68
+          F457C0B79C562E09AF3C23F04A02158D569416EFF149E2D0B9165FE0F32673C0
+          E31AB0BC45AAAD846DAA66D66F024ACB4EA9262103CBAE5DFD03BC7CBD12C158
+          72AC0B4F4E8E048C29B8D4E83DAC791F73C0F0934B600306E4382E28986CCDC5
+          1A4FA83A5202872B1A8507610383D5D13B010272E102B3694323750D7E426AF2
+          F37718E62610165086E9F529F743D08F2540ED3C013BC30106A5DF74356A1632
+          3018FDFE26705EFDBC8FCF2F30921671E02FBE648AC22CC7AE57000000004945
+          4E44AE426082}
+        Name = 'PngImage1'
+        Background = clWindow
+      end>
+    Left = 232
+    Top = 80
+    Bitmap = {}
+  end
+end

Source/Modulos/Remesas de proveedor/Plugin/uPluginRemesasProveedor.pas

@@ -0,0 +1,74 @@
+unit uPluginRemesasProveedor;
+
+interface
+
+uses
+  uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
+  ImgList, Controls, PngImageList;
+
+type
+  IMCRemesasProveedor = interface(IInterface)
+  ['{31B25C1E-2E4B-4C6A-9E8D-D53D62319E4C}']
+  end;
+
+  TPluginRemesasProveedor = class(TModuleController, IMCRemesasProveedor)
+    actRemesasProveedor: TAction;
+    ExtraImages: TPngImageList;
+    LargeImages: TPngImageList;
+    MainMenu: TMainMenu;
+    ModuleActionList: TActionList;
+    SmallImages: TPngImageList;
+    N1: TMenuItem;
+    RemesasProveedor1: TMenuItem;
+    procedure actRemesasProveedorExecute(Sender: TObject);
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  Forms, Dialogs, SysUtils,
+  uRemesasProveedorController, uBizRemesasProveedor, uRemesasProveedorViewRegister;
+
+function GetModule : TModuleController;
+begin
+  Result := TPluginRemesasProveedor.Create(NIL);
+end;
+
+exports
+  GetModule name GET_MODULE_FUNC;
+
+procedure TPluginRemesasProveedor.actRemesasProveedorExecute(Sender: TObject);
+var
+  ARemesasProveedorController : IRemesasProveedorController;
+  ARemesasProveedor : IBizRemesaProveedor;
+
+begin
+  ARemesasProveedorController := TRemesasProveedorController.Create;
+  ARemesasProveedor := (ARemesasProveedorController.BuscarTodos as IBizRemesaProveedor);
+  ARemesasProveedorController.VerTodos(ARemesasProveedor);
+end;
+
+constructor TPluginRemesasProveedor.Create(AOwner: TComponent);
+begin
+  inherited;
+  uRemesasProveedorViewRegister.RegisterViews;
+end;
+
+destructor TPluginRemesasProveedor.Destroy;
+begin
+  uRemesasProveedorViewRegister.UnregisterViews;
+  inherited;
+end;
+
+initialization
+  RegisterModuleClass(TPluginRemesasProveedor);
+
+finalization
+  UnRegisterModuleClass(TPluginRemesasProveedor);
+
+end.

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

@@ -0,0 +1,93 @@
+unit uRptRemesasProveedor_Server;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
+  uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
+  frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
+  uDAInterfaces;
+
+type
+  TRptRemesasProveedor = class(TDataModule)
+    DADataCabecera: TDADataSource;
+    DADataDetalles: TDADataSource;
+    tbl_Cabecera: TDACDSDataTable;
+    tbl_Detalles: TDACDSDataTable;
+    DABINAdapter: TDABINAdapter;
+    frxRichObject1: TfrxRichObject;
+    frxBarCodeObject1: TfrxBarCodeObject;
+    frxOLEObject1: TfrxOLEObject;
+    frxCrossObject1: TfrxCrossObject;
+    frxCheckBoxObject1: TfrxCheckBoxObject;
+    frxGradientObject1: TfrxGradientObject;
+    frxChartObject1: TfrxChartObject;
+    frxDBCabecera: TfrxDBDataset;
+    frxDBDetalles: TfrxDBDataset;
+    schReport: TDASchema;
+    DataDictionary: TDADataDictionary;
+    frxReport: TfrxReport;
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    FConnection: IDAConnection;
+  public
+    function GenerarRemesa(const ID : Integer): Binary;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  uDataModuleServer;
+
+const
+  rptInforme = 'InfRemesaProveedor.fr3';
+
+  { Dataset names for schReport }
+  ds_InformeCabecera = 'Informe_Cabecera';
+  ds_InformeDetalles = 'Informe_Detalles';
+
+
+{ TRptRemesaProveedor }
+
+
+procedure TRptRemesasProveedor.DataModuleCreate(Sender: TObject);
+begin
+  schReport.ConnectionManager := dmServer.ConnectionManager;
+  FConnection := dmServer.DarNuevaConexion;
+  frxReport.EngineOptions.NewSilentMode := simReThrow;  
+end;
+
+function TRptRemesasProveedor.GenerarRemesa(const ID: Integer): Binary;
+var
+  dsMaster: IDADataset;
+  dsDetail: IDADataset;
+  AStream: TMemoryStream;
+begin
+  AStream := TMemoryStream.Create;
+  Result := Binary.Create;
+  FConnection.BeginTransaction;
+  try
+    dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [ID]);
+    dsDetail := schReport.NewDataset(FConnection, ds_InformeDetalles, ['ID_REMESA'], [ID], False);
+
+    AStream.Clear;
+    DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
+    DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
+
+    AStream.Clear;
+    DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
+    DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
+
+    frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
+    frxReport.PrepareReport;
+    frxReport.PreviewPages.SaveToStream(Result);
+  finally
+    AStream.Free;
+    FConnection.RollbackTransaction;
+  end;
+end;
+
+end.

Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas

@@ -0,0 +1,101 @@
+unit srvRemesasProveedor_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Ancestor Implementation:} DARemoteService_Impl,
+  {Used RODLs:} DataAbstract_Intf,
+  {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
+  uDAScriptingProvider, uDABusinessProcessor, uDAInterfaces;
+
+type
+  { TsrvRemesasProveedor }
+  TsrvRemesasProveedor = class(TDARemoteService, IsrvRemesasProveedor)
+    Diagrams: TDADiagrams;
+    DABINAdapter: TDABINAdapter;
+    bpRemesasProveedor: TDABusinessProcessor;
+    schRemesasProveedor: TDASchema;
+    DataDictionary: TDADataDictionary;
+    procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
+      var ConnectionName: string);
+    procedure DARemoteServiceCreate(Sender: TObject);
+    procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
+      const IncludeSchema: Boolean; const MaxRecords: Integer);
+  private
+  protected
+    { IsrvRemesasProveedor methods }
+    function GetNextAutoInc(const GeneratorName: String): Integer;
+    function GenerateReport(const ID: Integer): Binary;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} FactuGES_Invk, uDataModuleServer,
+  uDatabaseUtils, schRemesasProveedorClient_Intf, uRestriccionesUsuarioUtils,
+  uBizRemesasProveedorServer, uRptRemesasProveedor_Server, Dialogs;
+
+procedure Create_srvRemesasProveedor(out anInstance : IUnknown);
+begin
+  anInstance := TsrvRemesasProveedor.Create(NIL);
+end;
+
+{ srvRemesasProveedor }
+procedure TsrvRemesasProveedor.DARemoteServiceBeforeAcquireConnection(
+  Sender: TDARemoteService; var ConnectionName: string);
+begin
+  ConnectionName := dmServer.ConnectionName;
+end;
+
+procedure TsrvRemesasProveedor.DARemoteServiceBeforeGetDatasetData(
+  const Dataset: IDADataset; const IncludeSchema: Boolean;
+  const MaxRecords: Integer);
+begin
+  if DataSet.Name = nme_RemesasProveedor then
+  begin
+    { Aquí se asegura que el usuario sólo accede a los RemesasProveedor
+      de las empresas a las que tiene permiso para acceder
+      filtrando DataSet por ID_EMPRESA. }
+    FiltrarAccesoUsuario(Session, Connection, schRemesasProveedor, DataSet, fld_RemesasProveedorID_EMPRESA);
+  end;
+end;
+
+procedure TsrvRemesasProveedor.DARemoteServiceCreate(Sender: TObject);
+begin
+  SessionManager := dmServer.SessionManager;
+  bpRemesasProveedor.BusinessRulesID := BIZ_SERVER_REMESAS_PROVEEDOR;  
+end;
+
+function TsrvRemesasProveedor.GenerateReport(const ID: Integer): Binary;
+var
+  AReportGenerator : TRptRemesasProveedor;
+begin
+  AReportGenerator := TRptRemesasProveedor.Create(nil);
+  try
+    Result := AReportGenerator.GenerarRemesa(ID);
+  finally
+    FreeAndNIL(AReportGenerator);
+  end;
+end;
+
+function TsrvRemesasProveedor.GetNextAutoInc(const GeneratorName: String): Integer;
+begin
+  Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
+end;
+
+initialization
+  TROClassFactory.Create('srvRemesasProveedor', Create_srvRemesasProveedor, TsrvRemesasProveedor_Invoker);
+
+finalization
+
+end.

Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.bdsproj

@@ -0,0 +1,492 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType"></Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{5E4BDD4D-597F-407C-8B0C-32E37FBD6267}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">RemesasProveedor_view.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">0</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">True</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription"></Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">.\</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\..\..\Output\Debug\Cliente</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Lib</Directories>
+			<Directories Name="SearchPath">..\..\..\Lib;..\..\Lib</Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">3082</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=519
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+Freeze Message=The application seems to be frozen.
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+Show TerminateBtn=1
+TerminateBtn Operation=1
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=1
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesSection=1
+loSaveCPUSection=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soExcDate=1
+soExcAddress=1
+soExcModule=1
+soExcType=1
+soExcMessage=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpUser=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndCompressAllFiles=0
+edoShowExceptionDialog=1
+edoSendEmailChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoShowProcedureOffset=0
+boActivateCrashDetection=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error."
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_CustomDataCaption=1
+mtDialog_CustomDataCaption0="Other"
+Count mtDialog_CustomDataHeader=1
+mtDialog_CustomDataHeader0="Other Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModule=1
+mtLog_ExcModule0="Module"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpUser=1
+mtLog_CmpUser0="User"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+EurekaLog Last Line -->
+</BorlandProject>

Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk

@@ -0,0 +1,97 @@
+package RemesasProveedor_view;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  dbrtl,
+  cxLibraryD10,
+  dxThemeD10,
+  cxEditorsD10,
+  cxDataD10,
+  vcljpg,
+  vcldb,
+  cxGridD10,
+  cxPageControlD10,
+  cxExtEditorsD10,
+  vclx,
+  cxExportD10,
+  dxPSCoreD10,
+  dxComnD10,
+  dxPScxCommonD10,
+  dxPSLnksD10,
+  designide,
+  xmlrtl,
+  vclactnband,
+  vclshlctrls,
+  dxPScxGridLnkD10,
+  dclcxLibraryD10,
+  JvCoreD10R,
+  Jcl,
+  JclVcl,
+  JvAppFrmD10R,
+  JvSystemD10R,
+  PngComponentsD10,
+  PNG_D10,
+  dsnap,
+  adortl,
+  Familias_model,
+  Familias_controller,
+  tbx_d10,
+  tb2k_d10,
+  JvPageCompsD10R,
+  JvStdCtrlsD10R,
+  dxLayoutControlD10,
+  GUISDK_D10,
+  ccpack10,
+  cfpack_d10,
+  JvGlobusD10R,
+  VclSmp,
+  bdertl,
+  vclie,
+  frx10,
+  fs10,
+  fqb100,
+  frxe10,
+  frxTee10,
+  fsTee10,
+  tee,
+  teeui,
+  teedb,
+  RemesasProveedor_model,
+  RemesasProveedor_controller,
+  RemesasProveedor_data;
+
+contains
+  uViewRemesasProveedor in 'uViewRemesasProveedor.pas' {frViewRemesasProveedor: TFrame},
+  uEditorRemesasProveedor in 'uEditorRemesasProveedor.pas' {fEditorRemesasProveedor: TfEditorArticulos},
+  uRemesasProveedorViewRegister in 'uRemesasProveedorViewRegister.pas',
+  uViewRemesaProveedor in 'uViewRemesaProveedor.pas' {frViewRemesaProveedor: TFrame},
+  uEditorRemesaProveedor in 'uEditorRemesaProveedor.pas' {fEditorRemesaProveedor: TfEditorRemesaCliente},
+  uEditorRemesaProveedorReport in 'uEditorRemesaProveedorReport.pas' {fEditorRemesaProveedorPreview: TfEditorRemesaClienteReport},
+  uViewRecibosRemesaProveedor in 'uViewRecibosRemesaProveedor.pas' {frViewRecibosRemesaProveedor: TFrame};
+
+end.

Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas

@@ -0,0 +1,342 @@
+unit uEditorRemesaProveedor;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent,
+  uBizRemesasProveedor, JvNavigationPane, ActnList,
+  uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList,
+  TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
+  uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
+  TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
+  JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
+  cxCustomData,
+  uViewRemesasProveedor, uIEditorRemesaProveedor, uRemesasProveedorController, JvExComCtrls,
+  JvStatusBar, dxLayoutLookAndFeels, uViewGridBase, uViewGrid,
+  uViewRecibosRemesaProveedor, uViewTotales, uViewDetallesGenerico,
+  uViewRemesaProveedor;
+
+type
+  TfEditorRemesaProveedor = class(TfEditorDBItem, IEditorRemesaProveedor)
+    dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
+    dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
+    frViewTotales1: TfrViewTotales;
+    actVolcarDisco: TAction;
+    TBXSubmenuItem2: TTBXSubmenuItem;
+    TBXItem7: TTBXItem;
+    TBXItem33: TTBXItem;
+    TBXSeparatorItem6: TTBXSeparatorItem;
+    frViewRecibosRemesaProveedor1: TfrViewRecibosRemesaProveedor;
+    frViewRemesaProveedor1: TfrViewRemesaProveedor;
+    procedure FormShow(Sender: TObject);
+    procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
+
+    procedure actAnadirRecibosExecute(Sender: TObject);
+    procedure actEliminarReciboExecute(Sender: TObject);
+    procedure JvFormStorageRestorePlacement(Sender: TObject);
+    procedure JvFormStorageSavePlacement(Sender: TObject);
+    procedure frViewRecibosRemesaProveedor1cxGridViewDataControllerSummaryAfterSummary(
+      ASender: TcxDataSummary);
+    procedure actVolcarDiscoUpdate(Sender: TObject);
+    procedure actVolcarDiscoExecute(Sender: TObject);
+  private
+    procedure OnRecibosChanged(Sender: TObject);
+  protected
+    FController : IRemesasProveedorController;
+    FRemesaProveedor: IBizRemesaProveedor;
+    FViewRemesaProveedor : IViewRemesaProveedor;
+
+    function GetController : IRemesasProveedorController;
+    procedure SetController (const Value : IRemesasProveedorController); virtual;
+    function GetRemesaProveedor: IBizRemesaProveedor; virtual;
+    procedure SetRemesaProveedor(const Value: IBizRemesaProveedor); virtual;
+    function GetViewRemesaProveedor: IViewRemesaProveedor;
+    procedure SetViewRemesaProveedor(const Value: IViewRemesaProveedor);
+    property ViewRemesaProveedor: IViewRemesaProveedor read GetViewRemesaProveedor write SetViewRemesaProveedor;
+
+    procedure GuardarInterno; override;
+    procedure EliminarInterno; override;
+    procedure PrevisualizarInterno; override;
+    procedure ImprimirInterno; override;
+    procedure CerrarInterno; override;
+
+    procedure PonerTitulos(const ATitulo: string = ''); override;
+    function GetModified: Boolean; override;
+
+  public
+    property RemesaProveedor: IBizRemesaProveedor read GetRemesaProveedor write SetRemesaProveedor;
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  uDataTableUtils, cxControls, uDataModuleUsuarios, uDialogUtils, uCustomEditor,
+  uDataModuleRemesasProveedor, uDataModuleBase, uBizFamilias, uFamiliasController;
+//  uBancaElectronicaController;
+
+{
+******************************* TfEditorRemesaProveedor *******************************
+}
+function TfEditorRemesaProveedor.GetRemesaProveedor: IBizRemesaProveedor;
+begin
+  Result := FRemesaProveedor;
+end;
+
+function TfEditorRemesaProveedor.GetController: IRemesasProveedorController;
+begin
+  Result := FController;
+end;
+
+function TfEditorRemesaProveedor.GetModified: Boolean;
+var
+  bCambiado : Boolean;
+begin
+  bCambiado := inherited GetModified;
+  //Si no hay cambios miramos que no los halla en la lista de recibos
+  if not bCambiado then
+     bCambiado := frViewRecibosRemesaProveedor1.Modified;
+  Result := bCambiado;
+end;
+
+function TfEditorRemesaProveedor.GetViewRemesaProveedor: IViewRemesaProveedor;
+begin
+  Result := FViewRemesaProveedor;
+end;
+
+procedure TfEditorRemesaProveedor.GuardarInterno;
+var
+  bEsNuevo : Boolean;
+begin
+  inherited;
+  bEsNuevo := False;
+
+  ShowHourglassCursor;
+  frViewRecibosRemesaProveedor1.OnViewModified := Nil;
+  //frViewDetallesFacturaProveedor1.SaveGridStatus; // Para guardar estado del grid
+//  frViewDetallesFacturaProveedor1.BeginUpdate;  // Para que no se mueva el foco
+  try
+    bEsNuevo := FRemesaProveedor.EsNuevo;
+    FController.Guardar(FRemesaProveedor);
+
+  finally
+//    frViewDetallesFacturaProveedor1.EndUpdate;
+//    frViewDetallesFacturaProveedor1.RestoreGridStatus;
+    HideHourglassCursor;
+  end;
+
+  if bEsNuevo then
+    ShowInfoMessage('La remesa de pago se ha dado de alta con el código ' + FRemesaProveedor.REFERENCIA);
+  Modified := False;
+  frViewRecibosRemesaProveedor1.Modified := False;
+  frViewRecibosRemesaProveedor1.OnViewModified := OnRecibosChanged;
+end;
+
+procedure TfEditorRemesaProveedor.ImprimirInterno;
+begin
+  inherited;
+  FController.Print(FRemesaProveedor);
+end;
+
+procedure TfEditorRemesaProveedor.JvFormStorageRestorePlacement(Sender: TObject);
+begin
+  inherited;
+  //frViewRecibosRemesaProveedor1.RestoreFromRegistry(JvAppRegistryStorage.Root);
+end;
+
+procedure TfEditorRemesaProveedor.JvFormStorageSavePlacement(Sender: TObject);
+begin
+  inherited;
+  //frViewRecibosRemesaProveedor1.StoreToRegistry(JvAppRegistryStorage.Root);
+end;
+
+procedure TfEditorRemesaProveedor.OnRecibosChanged(Sender: TObject);
+begin
+  ActualizarEstadoEditor;
+end;
+
+procedure TfEditorRemesaProveedor.PonerTitulos(const ATitulo: string);
+var
+  FTitulo : String;
+begin
+  FTitulo := ATitulo;
+  if (FTitulo = '') and Assigned(RemesaProveedor) then
+  begin
+    if RemesaProveedor.EsNuevo then
+      FTitulo := 'Nueva remesa de pago'
+    else
+      FTitulo := 'Remesa de pago';
+  end;
+
+  inherited PonerTitulos(FTitulo);
+
+  Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')';
+end;
+
+procedure TfEditorRemesaProveedor.PrevisualizarInterno;
+begin
+  inherited;
+  FController.Preview(FRemesaProveedor);
+end;
+
+procedure TfEditorRemesaProveedor.SetRemesaProveedor(const Value: IBizRemesaProveedor);
+begin
+  FRemesaProveedor := Value;
+  if Assigned(FRemesaProveedor) then
+  begin
+     dsDataTable.DataTable := FRemesaProveedor.DataTable;
+     frViewRecibosRemesaProveedor1.RemesaProveedor := FRemesaProveedor;
+     frViewRecibosRemesaProveedor1.OnViewModified := OnRecibosChanged;
+  end
+  else
+  begin
+     dsDataTable.DataTable := Nil;
+     frViewRecibosRemesaProveedor1.RemesaProveedor := Nil;
+     frViewRecibosRemesaProveedor1.OnViewModified := Nil;
+  end;
+
+  if Assigned(FViewRemesaProveedor) then
+     FViewRemesaProveedor.RemesaProveedor := FRemesaProveedor;
+
+  frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
+end;
+
+procedure TfEditorRemesaProveedor.SetController(const Value: IRemesasProveedorController);
+begin
+  FController := Value;
+  if Assigned(FController) then
+  begin
+    (ViewRemesaProveedor as IViewRemesaProveedor).Controller := (FController as IRemesasProveedorController);
+    frViewRecibosRemesaProveedor1.Controller := (FController as IRemesasProveedorController);
+  end;
+end;
+
+procedure TfEditorRemesaProveedor.SetViewRemesaProveedor(const Value: IViewRemesaProveedor);
+begin
+  FViewRemesaProveedor := Value;
+
+  if Assigned(FViewRemesaProveedor) and Assigned(RemesaProveedor) then
+  begin
+    FViewRemesaProveedor.RemesaProveedor := RemesaProveedor;
+    FViewRemesaProveedor.Controller := (FController as IRemesasProveedorController);
+  end;
+end;
+
+procedure TfEditorRemesaProveedor.FormShow(Sender: TObject);
+begin
+  inherited;
+
+  if not Assigned(FViewRemesaProveedor) then
+    raise Exception.Create('No hay ninguna vista asignada');
+
+  if not Assigned(RemesaProveedor) then
+    raise Exception.Create('No hay ningún almacén asignado');
+
+  RemesaProveedor.DataTable.Active := True;
+
+  //Falla si lo hacemos por dfm
+  frViewRecibosRemesaProveedor1.cxGridView.OptionsSelection.MultiSelect := False;
+end;
+
+procedure TfEditorRemesaProveedor.frViewRecibosRemesaProveedor1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
+Var
+  AImporteTotal: Currency;
+begin
+  inherited;
+
+  if VarIsNull(ASender.FooterSummaryValues[0]) then
+    AImporteTotal := 0
+  else
+    AImporteTotal := ASender.FooterSummaryValues[0];
+
+  if Assigned(RemesaProveedor) then
+  begin
+    if (RemesaProveedor.IMPORTE_TOTAL <> AImporteTotal) then
+    begin
+      if not RemesaProveedor.DataTable.Editing then
+      begin
+        RemesaProveedor.Edit;
+        RemesaProveedor.IMPORTE_TOTAL := AImporteTotal;
+        RemesaProveedor.Post;
+      end;
+    end;
+  end;
+end;
+
+destructor TfEditorRemesaProveedor.Destroy;
+begin
+  // Utilizar mejor OnClose;
+  inherited;
+end;
+
+procedure TfEditorRemesaProveedor.actAnadirRecibosExecute(Sender: TObject);
+begin
+  inherited;
+//  HayCambios := FController.ElegirRecibosProveedor(RemesaProveedor) OR HayCambios;
+end;
+
+procedure TfEditorRemesaProveedor.actEliminarReciboExecute(Sender: TObject);
+begin
+  inherited;
+//  FController.EliminarReciboProveedor(RemesaProveedor);
+//  HayCambios := True;
+end;
+
+procedure TfEditorRemesaProveedor.actVolcarDiscoExecute(Sender: TObject);
+//var
+//  ABancaController : IBancaElectronicaController;
+begin
+{
+  inherited;
+  ABancaController := TBancaElectronicaController.Create;
+  try
+    ABancaController.GenerarFicheroNorma19(FRemesaProveedor.ID);
+  finally
+    ABancaController := NIL;
+  end;
+}
+end;
+
+procedure TfEditorRemesaProveedor.actVolcarDiscoUpdate(Sender: TObject);
+begin
+//  (Sender as TAction).Enabled := HayDatos and (not FRemesaProveedor.EsNuevo);
+end;
+
+procedure TfEditorRemesaProveedor.CerrarInterno;
+begin
+  frViewRecibosRemesaProveedor1.OnViewModified := Nil;
+  inherited;
+end;
+
+constructor TfEditorRemesaProveedor.Create(AOwner: TComponent);
+begin
+  inherited;
+  pgPaginas.ActivePageIndex := 0;
+  FViewRemesaProveedor := frViewRemesaProveedor1;
+end;
+
+procedure TfEditorRemesaProveedor.CustomEditorClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  inherited;
+  dsDataTable.DataTable := NIL;
+  FViewRemesaProveedor := NIL;
+  FRemesaProveedor := NIL;
+end;
+
+procedure TfEditorRemesaProveedor.EliminarInterno;
+begin
+  if (Application.MessageBox('¿Desea borrar esta remesa de pago?', 'Atención', MB_YESNO) = IDYES) then
+  begin
+    inherited;
+    if not FController.Eliminar(FRemesaProveedor) then
+       actRefrescar.Execute;
+  end;
+end;
+
+end.
+

Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedorReport.dfm

@@ -1,5 +1,5 @@
-inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview
+inherited fEditorRemesaProveedorPreview: TfEditorRemesaProveedorPreview
-  Caption = 'Previsualizar la factura'
+  Caption = 'Previsualizar la remesa'
   PixelsPerInch = 96
   TextHeight = 13
   inherited frxReport1: TfrxReport

Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedorReport.pas

@@ -1,4 +1,4 @@
-unit uEditorFacturasClienteReport;
+unit uEditorRemesaProveedorReport;
 
 interface
 
@@ -9,20 +9,15 @@ uses
   frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
   JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
   TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
-  ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorFacturasClientePreview,
+  ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorRemesasProveedorPreview,
   JvExComCtrls, JvStatusBar;
 
 type
-  TfEditorFacturasClientePreview = class(TfEditorPreview, IEditorFacturasClientePreview)
+  TfEditorRemesaProveedorPreview = class(TfEditorPreview, IEditorRemesasProveedorPreview)
-  private
-    { Private declarations }
-  public
-    { Public declarations }
   end;
 
 
 implementation
-
 {$R *.dfm}
 
 end.

Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas

@@ -0,0 +1,196 @@
+unit uEditorRemesasProveedor;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent,
+  JvNavigationPane, uViewRemesasProveedor, uBizRemesasProveedor, ActnList, DBActns, uViewGrid,
+  Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, TBX,
+  TB2Item, StdActns, TB2ExtItems, TBXExtItems, TB2MRU, DB, uDADataTable,
+  JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage,
+  JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
+  uViewBarraSeleccion, pngimage, uIEditorRemesasProveedor, uEditorGridBase,
+  JvComponentBase, uViewGridBase, uRemesasProveedorController, JvExComCtrls,
+  JvStatusBar;
+
+type
+  TfEditorRemesasProveedor = class(TfEditorGridBase, IEditorRemesasProveedor)
+    actVolcarDisco: TAction;
+    TBXSeparatorItem17: TTBXSeparatorItem;
+    N4: TMenuItem;
+    Volcaradisco1: TMenuItem;
+    TBXSubmenuItem2: TTBXSubmenuItem;
+    TBXItem38: TTBXItem;
+    procedure FormShow(Sender: TObject);
+    procedure actVolcarDiscoExecute(Sender: TObject);
+    procedure actVolcarDiscoUpdate(Sender: TObject);
+  private
+    FRemesasProveedor: IBizRemesaProveedor;
+    FController : IRemesasProveedorController;
+  protected
+    function GetRemesasProveedor: IBizRemesaProveedor;
+    procedure SetRemesasProveedor(const Value: IBizRemesaProveedor);
+    function GetController : IRemesasProveedorController; virtual;
+    procedure SetController (const Value : IRemesasProveedorController); virtual;
+
+    procedure NuevoInterno; override;
+    procedure EliminarInterno; override;
+    procedure ModificarInterno; override;
+    procedure PrevisualizarInterno; override;
+    procedure ImprimirInterno; override;
+
+
+    //Si queremos crear otra vista para el editor heredado solo tendriamos que
+    //sobreescribir este metodo
+    procedure AsignarVista; virtual;
+
+  public
+    procedure PonerTitulos(const ATitulo: string = ''); override;
+    property RemesasProveedor: IBizRemesaProveedor read GetRemesasProveedor write SetRemesasProveedor;
+    property Controller : IRemesasProveedorController read GetController write SetController;
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+implementation
+
+uses
+  uCustomEditor, uDataModuleRemesasProveedor, uDataModuleUsuarios,
+  //uEditorRemesaProveedor,
+  uEditorDBBase,  uBizFamilias, uFamiliasController,
+//  uBancaElectronicaController,
+  cxGrid, cxGridCustomTableView; //, uListaRemesasProveedor;
+
+{$R *.dfm}
+
+{
+****************************** TfEditorRemesasProveedor *******************************
+}
+procedure TfEditorRemesasProveedor.FormShow(Sender: TObject);
+begin
+  inherited;
+
+  if not Assigned(ViewGrid) then
+    raise Exception.Create('No hay ninguna vista asignada');
+
+  if not Assigned(RemesasProveedor) then
+    raise Exception.Create('No hay ningún RemesaProveedor asignado');
+
+  RemesasProveedor.DataTable.Active := True;
+  ViewGrid.GotoFirst;
+end;
+
+function TfEditorRemesasProveedor.GetRemesasProveedor: IBizRemesaProveedor;
+begin
+  Result := FRemesasProveedor;
+end;
+
+procedure TfEditorRemesasProveedor.ImprimirInterno;
+begin
+//  inherited;
+  FController.Print(RemesasProveedor);
+end;
+
+function TfEditorRemesasProveedor.GetController: IRemesasProveedorController;
+begin
+  Result := FController;
+end;
+
+procedure TfEditorRemesasProveedor.ModificarInterno;
+begin
+  inherited;
+  FController.Ver(RemesasProveedor);
+end;
+
+procedure TfEditorRemesasProveedor.NuevoInterno;
+begin
+  inherited;
+  FController.Anadir(RemesasProveedor);
+  FController.Ver(RemesasProveedor);
+end;
+
+procedure TfEditorRemesasProveedor.PonerTitulos(const ATitulo: string);
+var
+  FTitulo : String;
+begin
+  FTitulo := 'Lista de remesas de pago - ' + dmUsuarios.EmpresaActual.NOMBRE;
+  inherited PonerTitulos(FTitulo);
+end;
+
+procedure TfEditorRemesasProveedor.PrevisualizarInterno;
+begin
+//  inherited;
+  FController.Preview(RemesasProveedor);
+end;
+
+procedure TfEditorRemesasProveedor.SetRemesasProveedor(const Value: IBizRemesaProveedor);
+begin
+  FRemesasProveedor := Value;
+  dsDataTable.DataTable := FRemesasProveedor.DataTable;
+  if Assigned(ViewGrid) then
+    (ViewGrid as IViewRemesasProveedor).RemesasProveedor := RemesasProveedor;
+end;
+
+procedure TfEditorRemesasProveedor.SetController(const Value: IRemesasProveedorController);
+begin
+  FController := Value;
+end;
+
+destructor TfEditorRemesasProveedor.Destroy;
+begin
+  FRemesasProveedor := NIL;
+  FController := NIl;
+  inherited;
+end;
+
+procedure TfEditorRemesasProveedor.EliminarInterno;
+begin
+  if (Application.MessageBox('¿Desea borrar esta remesa de pago?', 'Atención', MB_YESNO) = IDYES) then
+  begin
+    inherited;
+    //Para que en el caso de no poderse realizar la operación se refresquen
+    //los datos y no nos permita eliminar un registro a la segunda
+    if not FController.Eliminar(RemesasProveedor) then
+       actRefrescar.Execute;
+  end;
+end;
+
+procedure TfEditorRemesasProveedor.actVolcarDiscoExecute(Sender: TObject);
+//var
+//  ABancaController : IBancaElectronicaController;
+begin
+//  inherited;
+//  ABancaController := TBancaElectronicaController.Create;
+//  try
+//    ABancaController.GenerarFicheroNorma19(FRemesasProveedor.ID);
+//  finally
+//    ABancaController := NIL;
+//  end;
+end;
+
+procedure TfEditorRemesasProveedor.actVolcarDiscoUpdate(Sender: TObject);
+begin
+  inherited;
+{
+  if HayDatos and Assigned(ViewGrid) then
+    (Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
+      and not ViewGrid.IsEmpty
+  else
+    (Sender as TAction).Enabled := False;
+}    
+end;
+
+procedure TfEditorRemesasProveedor.AsignarVista;
+begin
+  ViewGrid := CreateView(TfrViewRemesasProveedor) as IViewRemesasProveedor;
+end;
+
+constructor TfEditorRemesasProveedor.Create(AOwner: TComponent);
+begin
+  inherited;
+  AsignarVista;
+end;
+
+end.
+

Source/Modulos/Remesas de proveedor/Views/uRemesasProveedorViewRegister.pas

@@ -0,0 +1,27 @@
+unit uRemesasProveedorViewRegister;
+
+interface
+
+procedure RegisterViews;
+procedure UnregisterViews;
+
+implementation
+
+uses
+  uEditorRegistryUtils, uEditorRemesasProveedor, uEditorRemesaProveedor, uEditorRemesaProveedorReport;
+
+procedure RegisterViews;
+begin
+  EditorRegistry.RegisterClass(TfEditorRemesaProveedor, 'EditorRemesaProveedor');
+  EditorRegistry.RegisterClass(TfEditorRemesasProveedor, 'EditorRemesasProveedor');
+  EditorRegistry.RegisterClass(TfEditorRemesaProveedorPreview, 'EditorRemesasProveedorPreview');
+end;
+
+procedure UnregisterViews;
+begin
+  EditorRegistry.UnRegisterClass(TfEditorRemesaProveedor);
+  EditorRegistry.UnRegisterClass(TfEditorRemesasProveedor);
+  EditorRegistry.UnRegisterClass(TfEditorRemesaProveedorPreview);
+end;
+
+end.

Source/Modulos/Remesas de proveedor/Views/uViewRecibosRemesaProveedor.dfm

@@ -0,0 +1,164 @@
+inherited frViewRecibosRemesaProveedor: TfrViewRecibosRemesaProveedor
+  Width = 549
+  Height = 376
+  ExplicitWidth = 549
+  ExplicitHeight = 376
+  inherited cxGrid: TcxGrid
+    Width = 549
+    Height = 351
+    ExplicitWidth = 549
+    ExplicitHeight = 351
+    inherited cxGridView: TcxGridDBTableView
+      OptionsData.Appending = False
+      OptionsData.CancelOnExit = True
+      OptionsData.Deleting = False
+      OptionsData.Editing = False
+      OptionsData.Inserting = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      object cxGridViewREFERENCIA: TcxGridDBColumn
+        Caption = 'Referencia'
+        DataBinding.FieldName = 'REFERENCIA'
+        Width = 72
+      end
+      object cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
+        Caption = 'Ref. proveedor'
+        DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
+      end
+      object cxGridViewSITUACION: TcxGridDBColumn
+        Caption = 'Situaci'#243'n'
+        DataBinding.FieldName = 'SITUACION'
+        PropertiesClassName = 'TcxImageComboBoxProperties'
+        Properties.Items = <
+          item
+            Description = 'Pendiente'
+            Value = 'PENDIENTE'
+          end
+          item
+            Description = 'Cobrado'
+            ImageIndex = 0
+            Value = 'COBRADO'
+          end
+          item
+            Description = 'Devuelto'
+            ImageIndex = 1
+            Value = 'DEVUELTO'
+          end>
+        Width = 65
+      end
+      object cxGridViewID_FACTURA: TcxGridDBColumn
+        DataBinding.FieldName = 'ID_FACTURA'
+        Visible = False
+      end
+      object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
+        Caption = 'Fecha vencimiento'
+        DataBinding.FieldName = 'FECHA_VENCIMIENTO'
+        Width = 78
+      end
+      object cxGridViewDESCRIPCION: TcxGridDBColumn
+        DataBinding.FieldName = 'DESCRIPCION'
+        Visible = False
+      end
+      object cxGridViewOBSERVACIONES: TcxGridDBColumn
+        DataBinding.FieldName = 'OBSERVACIONES'
+        Visible = False
+      end
+      object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
+        Caption = 'Proveedor'
+        DataBinding.FieldName = 'NOMBRE_PROVEEDOR'
+        Width = 205
+      end
+      object cxGridViewIMPORTE: TcxGridDBColumn
+        Caption = 'Importe'
+        DataBinding.FieldName = 'IMPORTE'
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
+        Width = 115
+      end
+      object cxGridViewOTROS_GASTOS: TcxGridDBColumn
+        Caption = 'Otros gastos'
+        DataBinding.FieldName = 'OTROS_GASTOS'
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
+      end
+      object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
+        Caption = 'Importe total'
+        DataBinding.FieldName = 'IMPORTE_TOTAL'
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+      end
+      object cxGridViewFECHA_FACTURA: TcxGridDBColumn
+        DataBinding.FieldName = 'FECHA_FACTURA'
+        Visible = False
+      end
+      object cxGridViewFORMA_PAGO_FACTURA: TcxGridDBColumn
+        DataBinding.FieldName = 'FORMA_PAGO_FACTURA'
+        Visible = False
+      end
+      object cxGridViewIMPORTE_FACTURA: TcxGridDBColumn
+        DataBinding.FieldName = 'IMPORTE_FACTURA'
+        Visible = False
+      end
+      object cxGridViewNIF_CIF_PROVEEDOR: TcxGridDBColumn
+        DataBinding.FieldName = 'NIF_CIF_PROVEEDOR'
+        Visible = False
+      end
+      object cxGridViewENTIDAD_PROVEEDOR: TcxGridDBColumn
+        DataBinding.FieldName = 'ENTIDAD_PROVEEDOR'
+        Visible = False
+      end
+      object cxGridViewSUCURSAL_PROVEEDOR: TcxGridDBColumn
+        DataBinding.FieldName = 'SUCURSAL_PROVEEDOR'
+        Visible = False
+      end
+      object cxGridViewDC_PROVEEDOR: TcxGridDBColumn
+        DataBinding.FieldName = 'DC_PROVEEDOR'
+        Visible = False
+      end
+      object cxGridViewCUENTA_PROVEEDOR: TcxGridDBColumn
+        DataBinding.FieldName = 'CUENTA_PROVEEDOR'
+        Visible = False
+      end
+      object cxGridViewID_EMPRESA: TcxGridDBColumn
+        DataBinding.FieldName = 'ID_EMPRESA'
+        Visible = False
+      end
+      object cxGridViewFECHA_ALTA: TcxGridDBColumn
+        DataBinding.FieldName = 'FECHA_ALTA'
+        Visible = False
+      end
+      object cxGridViewFECHA_MODIFICACION: TcxGridDBColumn
+        DataBinding.FieldName = 'FECHA_MODIFICACION'
+        Visible = False
+      end
+      object cxGridViewUSUARIO: TcxGridDBColumn
+        DataBinding.FieldName = 'USUARIO'
+        Visible = False
+      end
+    end
+  end
+  inherited ToolBar1: TToolBar
+    Width = 549
+    ExplicitWidth = 549
+    inherited ToolButton1: TToolButton
+      ExplicitWidth = 62
+    end
+    inherited ToolButton4: TToolButton
+      ExplicitWidth = 74
+    end
+    inherited ToolButton2: TToolButton
+      ExplicitWidth = 67
+    end
+    inherited ToolButton7: TToolButton
+      ExplicitWidth = 117
+    end
+  end
+  inherited ActionListContenido: TActionList
+    inherited actModificar: TAction
+      Enabled = False
+      Visible = False
+    end
+  end
+end

Source/Modulos/Remesas de proveedor/Views/uViewRecibosRemesaProveedor.pas

@@ -0,0 +1,130 @@
+unit uViewRecibosRemesaProveedor;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics, cxFilter,
+  cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList, PngImageList,
+  uDADataTable, ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
+  cxGrid, cxImageComboBox, cxCurrencyEdit,
+
+  uBizRemesasProveedor, uRemesasProveedorController;
+
+type
+  IViewRecibosRemesaProveedor = interface
+  ['{033DF6AF-C694-4C15-A48E-C7BA42DFF9FE}']
+    function GetRemesaProveedor: IBizRemesaProveedor;
+    procedure SetRemesaProveedor(const Value: IBizRemesaProveedor);
+    property RemesaProveedor: IBizRemesaProveedor read GetRemesaProveedor write SetRemesaProveedor;
+
+    function GetController : IRemesasProveedorController;
+    procedure SetController (const Value : IRemesasProveedorController);
+    property Controller : IRemesasProveedorController read GetController write SetController;
+  end;
+
+  TfrViewRecibosRemesaProveedor = class(TfrViewDetallesGenerico, IViewRecibosRemesaProveedor)
+    cxGridViewIMPORTE: TcxGridDBColumn;
+    cxGridViewOTROS_GASTOS: TcxGridDBColumn;
+    cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
+    cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
+  protected
+    FHayCambios : Boolean;
+    FRemesa : IBizRemesaProveedor;
+    FController : IRemesasProveedorController;
+
+    procedure AnadirInterno; override;
+    procedure EliminarInterno; override;
+
+    function GetRemesaProveedor: IBizRemesaProveedor;
+    procedure SetRemesaProveedor(const Value: IBizRemesaProveedor);
+
+    function GetModified: Boolean; override;
+    procedure SetModified(const Value: Boolean); override;
+
+    function GetController : IRemesasProveedorController;
+    procedure SetController (const Value : IRemesasProveedorController);
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    property RemesaProveedor: IBizRemesaProveedor read GetRemesaProveedor write SetRemesaProveedor;
+    property Controller : IRemesasProveedorController read GetController write SetController;
+  end;
+
+
+implementation
+
+{$R *.dfm}
+
+uses
+  uBizRecibosProveedor, uCustomView;
+
+{ TfrViewRecibosRemesaProveedor }
+
+procedure TfrViewRecibosRemesaProveedor.AnadirInterno;
+begin
+  //inherited;  // No hacer el comportamiento normal
+  if FController.ElegirRecibosProveedor(RemesaProveedor) then
+  begin
+    Modified := True;
+  end;
+end;
+
+constructor TfrViewRecibosRemesaProveedor.Create(AOwner: TComponent);
+begin
+  inherited;
+  FHayCambios := False;
+end;
+
+destructor TfrViewRecibosRemesaProveedor.Destroy;
+begin
+  inherited;
+end;
+
+procedure TfrViewRecibosRemesaProveedor.EliminarInterno;
+begin
+  //inherited;  // No hacer el comportamiento normal
+  FController.EliminarReciboProveedor(RemesaProveedor);
+  Modified := True;
+end;
+
+function TfrViewRecibosRemesaProveedor.GetController: IRemesasProveedorController;
+begin
+  Result := FController;
+end;
+
+function TfrViewRecibosRemesaProveedor.GetModified: Boolean;
+begin
+  Result := FHayCambios or inherited GetModified;
+end;
+
+function TfrViewRecibosRemesaProveedor.GetRemesaProveedor: IBizRemesaProveedor;
+begin
+  Result := FRemesa;
+end;
+
+procedure TfrViewRecibosRemesaProveedor.SetController(
+  const Value: IRemesasProveedorController);
+begin
+  FController := Value;
+end;
+
+procedure TfrViewRecibosRemesaProveedor.SetModified(const Value: Boolean);
+begin
+  FHayCambios := Value;
+  inherited;
+end;
+
+procedure TfrViewRecibosRemesaProveedor.SetRemesaProveedor(
+  const Value: IBizRemesaProveedor);
+begin
+  FRemesa := Value;
+  FHayCambios := False;
+  if Assigned(FRemesa) then
+    dsDetalles.DataTable := FRemesa.Recibos.DataTable
+  else
+    dsDetalles.DataTable := NIL; 
+end;
+
+end.

Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm

@@ -0,0 +1,194 @@
+inherited frViewRemesaProveedor: TfrViewRemesaProveedor
+  Width = 451
+  Height = 304
+  Align = alClient
+  ExplicitWidth = 451
+  ExplicitHeight = 304
+  object dxLayoutControlRemesaProveedor: TdxLayoutControl
+    Left = 0
+    Top = 0
+    Width = 451
+    Height = 304
+    Align = alClient
+    ParentBackground = True
+    TabOrder = 0
+    AutoContentSizes = [acsWidth, acsHeight]
+    LookAndFeel = dxLayoutOfficeLookAndFeel1
+    DesignSize = (
+      451
+      304)
+    object eReferencia: TcxDBTextEdit
+      Left = 110
+      Top = 30
+      Anchors = [akLeft, akTop, akRight]
+      DataBinding.DataField = 'REFERENCIA'
+      DataBinding.DataSource = dsDataTable
+      Enabled = False
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Color = 14745599
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      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 = 0
+      Width = 164
+    end
+    object eDescripcion: TcxDBTextEdit
+      Left = 110
+      Top = 84
+      DataBinding.DataField = 'DESCRIPCION'
+      DataBinding.DataSource = dsDataTable
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Color = clWindow
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 3
+      Width = 108
+    end
+    object edtFechaRemesa: TcxDBDateEdit
+      Left = 311
+      Top = 30
+      Anchors = [akLeft, akTop, akRight]
+      DataBinding.DataField = 'FECHA_REMESA'
+      DataBinding.DataSource = dsDataTable
+      Properties.ImmediatePost = True
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Color = clInfoBk
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      Style.Shadow = False
+      Style.ButtonStyle = bts3D
+      Style.ButtonTransparency = ebtNone
+      Style.PopupBorderStyle = epbsFrame3D
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 1
+      Width = 170
+    end
+    object cbCuentaBancaria: TcxDBLookupComboBox
+      Left = 110
+      Top = 57
+      DataBinding.DataField = 'ID_DATOS_BANCO'
+      DataBinding.DataSource = dsDataTable
+      Properties.GridMode = True
+      Properties.ImmediatePost = True
+      Properties.KeyFieldNames = 'ID'
+      Properties.ListColumns = <
+        item
+          FieldName = 'NOMBRE'
+        end>
+      Properties.ListOptions.GridLines = glNone
+      Properties.ListOptions.ShowHeader = False
+      Properties.ListSource = dsDatosBanco
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Color = clInfoBk
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      Style.ButtonStyle = bts3D
+      Style.PopupBorderStyle = epbsFrame3D
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 2
+      Width = 39
+    end
+    object dxLayoutControlRemesaProveedorGroup_Root: TdxLayoutGroup
+      ShowCaption = False
+      Hidden = True
+      ShowBorder = False
+      object dxLayoutControlRemesaProveedorGroup1: TdxLayoutGroup
+        AutoAligns = [aaVertical]
+        AlignHorz = ahClient
+        Caption = 'Datos de la remesa'
+        object dxLayoutControlRemesaProveedorGroup5: TdxLayoutGroup
+          ShowCaption = False
+          Hidden = True
+          LayoutDirection = ldHorizontal
+          ShowBorder = False
+          object dxLayoutControlRemesaProveedorItem3: TdxLayoutItem
+            AutoAligns = [aaVertical]
+            AlignHorz = ahClient
+            Caption = 'Referencia:'
+            Control = eReferencia
+            ControlOptions.ShowBorder = False
+          end
+          object dxLayoutControlRemesaProveedorItem4: TdxLayoutItem
+            AutoAligns = [aaVertical]
+            AlignHorz = ahClient
+            Caption = 'Fecha de cargo:'
+            Control = edtFechaRemesa
+            ControlOptions.ShowBorder = False
+          end
+        end
+        object dxLayoutControlRemesaProveedorGroup2: TdxLayoutGroup
+          ShowCaption = False
+          Hidden = True
+          ShowBorder = False
+          object dxLayoutControlRemesaProveedorItem9: TdxLayoutItem
+            AutoAligns = [aaVertical]
+            AlignHorz = ahClient
+            Caption = 'Cuenta bancaria:'
+            Control = cbCuentaBancaria
+            ControlOptions.ShowBorder = False
+          end
+          object dxLayoutControlRemesaProveedorItem8: TdxLayoutItem
+            AutoAligns = [aaVertical]
+            AlignHorz = ahClient
+            Caption = 'Descripci'#243'n:'
+            Control = eDescripcion
+            ControlOptions.ShowBorder = False
+          end
+        end
+      end
+      object dxLayoutControlRemesaProveedorGroup3: TdxLayoutGroup
+        Caption = 'New Group'
+        ShowCaption = False
+        LayoutDirection = ldHorizontal
+        ShowBorder = False
+      end
+    end
+  end
+  object dsDataTable: TDADataSource
+    Left = 8
+    Top = 8
+  end
+  object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
+    Left = 40
+    Top = 8
+    object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
+      GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
+      GroupOptions.CaptionOptions.Font.Color = clWindowText
+      GroupOptions.CaptionOptions.Font.Height = -11
+      GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
+      GroupOptions.CaptionOptions.Font.Style = [fsBold]
+      GroupOptions.CaptionOptions.TextColor = clHighlight
+      GroupOptions.CaptionOptions.UseDefaultFont = False
+    end
+  end
+  object dsDatosBanco: TDADataSource
+    Left = 8
+    Top = 40
+  end
+end

Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.pas

@@ -0,0 +1,106 @@
+unit uViewRemesaProveedor;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
+  DBCtrls, Grids, DBGrids, Mask, ComCtrls, uCustomView, JvComponent,
+  JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
+  cxDBEdit, dxLayoutControl, cxCheckBox, PngSpeedButton, cxImage, ActnList,
+  ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
+  uFamiliasController, cxSpinEdit, cxCurrencyEdit,
+  uBizRemesasProveedor, uRemesasProveedorController, cxCalendar,
+  dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
+
+type
+  IViewRemesaProveedor = interface(IViewBase)
+  ['{A091444D-DA32-4577-9EA0-DE87D9C0F943}']
+    function GetRemesaProveedor: IBizRemesaProveedor;
+    procedure SetRemesaProveedor(const Value: IBizRemesaProveedor);
+    property RemesaProveedor: IBizRemesaProveedor read GetRemesaProveedor write SetRemesaProveedor;
+
+    function GetController : IRemesasProveedorController;
+    procedure SetController (const Value : IRemesasProveedorController);
+    property Controller : IRemesasProveedorController read GetController write SetController;
+  end;
+
+  TfrViewRemesaProveedor = class(TfrViewBase, IViewRemesaProveedor)
+    dsDataTable: TDADataSource;
+    dxLayoutControlRemesaProveedorGroup_Root: TdxLayoutGroup;
+    dxLayoutControlRemesaProveedor: TdxLayoutControl;
+    dxLayoutControlRemesaProveedorGroup1: TdxLayoutGroup;
+    dxLayoutControlRemesaProveedorItem3: TdxLayoutItem;
+    eReferencia: TcxDBTextEdit;
+    dxLayoutControlRemesaProveedorItem8: TdxLayoutItem;
+    eDescripcion: TcxDBTextEdit;
+    dxLayoutControlRemesaProveedorGroup3: TdxLayoutGroup;
+    dxLayoutControlRemesaProveedorItem4: TdxLayoutItem;
+    edtFechaRemesa: TcxDBDateEdit;
+    dxLayoutControlRemesaProveedorGroup5: TdxLayoutGroup;
+    dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
+    dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
+    dxLayoutControlRemesaProveedorItem9: TdxLayoutItem;
+    cbCuentaBancaria: TcxDBLookupComboBox;
+    dsDatosBanco: TDADataSource;
+    dxLayoutControlRemesaProveedorGroup2: TdxLayoutGroup;
+
+  protected
+    FController: IRemesasProveedorController;
+    FRemesaProveedor: IBizRemesaProveedor;
+    function GetRemesaProveedor: IBizRemesaProveedor;
+    procedure SetRemesaProveedor(const Value: IBizRemesaProveedor); virtual;
+    function GetController : IRemesasProveedorController;
+    procedure SetController (const Value : IRemesasProveedorController);
+  public
+    property RemesaProveedor: IBizRemesaProveedor read GetRemesaProveedor write SetRemesaProveedor;
+    property Controller : IRemesasProveedorController read GetController write SetController;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  uDataModuleUsuarios;
+
+
+{ TfrViewRemesaProveedors }
+
+{
+******************************* TfrViewRemesaProveedors ********************************
+}
+
+function TfrViewRemesaProveedor.GetRemesaProveedor: IBizRemesaProveedor;
+begin
+  Result := FRemesaProveedor;
+end;
+
+function TfrViewRemesaProveedor.GetController: IRemesasProveedorController;
+begin
+  Result := FController;
+end;
+
+procedure TfrViewRemesaProveedor.SetRemesaProveedor(const Value: IBizRemesaProveedor);
+begin
+  FRemesaProveedor := Value;
+
+  if Assigned(FRemesaProveedor) then
+  begin
+    dsDataTable.DataTable := FRemesaProveedor.DataTable;
+    dsDatosBanco.DataTable := dmUsuarios.EmpresaActual.DatosBancarios.DataTable;
+    dsDatosBanco.DataTable.Active := True;
+  end
+  else begin
+    dsDataTable.DataTable := NIL;
+    dsDatosBanco.DataTable := NIL;
+  end;
+end;
+
+procedure TfrViewRemesaProveedor.SetController(const Value: IRemesasProveedorController);
+begin
+  FController := Value;
+end;
+
+end.
+

Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.dfm

@@ -0,0 +1,190 @@
+inherited frViewRemesasProveedor: TfrViewRemesasProveedor
+  inherited cxGrid: TcxGrid
+    inherited cxGridView: TcxGridDBTableView
+      DataController.KeyFieldNames = 'ID'
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = ',0.00 '#8364';-,0.00 '#8364
+          Kind = skSum
+          Position = spFooter
+          Column = cxGridViewIMPORTE_TOTAL
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Format = '0 almacenes'
+          Kind = skCount
+        end
+        item
+          Format = '0 Art'#237'culos'
+          Kind = skCount
+        end
+        item
+          Format = '0 remesas'
+          Kind = skCount
+          Column = cxGridViewREFERENCIA
+        end
+        item
+          Format = ',0.00 '#8364';-,0.00 '#8364
+          Kind = skSum
+          Column = cxGridViewIMPORTE_TOTAL
+        end>
+      OptionsBehavior.PullFocusing = True
+      object cxGridViewRecID: TcxGridDBColumn
+        DataBinding.FieldName = 'RecID'
+        Visible = False
+      end
+      object cxGridViewID: TcxGridDBColumn
+        DataBinding.FieldName = 'ID'
+        Visible = False
+      end
+      object cxGridViewID_EMPRESA: TcxGridDBColumn
+        DataBinding.FieldName = 'ID_EMPRESA'
+        Visible = False
+      end
+      object cxGridViewREFERENCIA: TcxGridDBColumn
+        Caption = 'Referencia'
+        DataBinding.FieldName = 'REFERENCIA'
+        Width = 118
+      end
+      object cxGridViewFECHA_REMESA: TcxGridDBColumn
+        Caption = 'Fecha de cargo'
+        DataBinding.FieldName = 'FECHA_REMESA'
+        Width = 74
+      end
+      object cxGridViewNOMBRE: TcxGridDBColumn
+        DataBinding.FieldName = 'NOMBRE'
+        Width = 147
+      end
+      object cxGridViewDESCRIPCION: TcxGridDBColumn
+        Caption = 'Descripci'#243'n'
+        DataBinding.FieldName = 'DESCRIPCION'
+        Width = 73
+      end
+      object cxGridViewENTIDAD: TcxGridDBColumn
+        DataBinding.FieldName = 'ENTIDAD'
+        Visible = False
+      end
+      object cxGridViewSUCURSAL: TcxGridDBColumn
+        DataBinding.FieldName = 'SUCURSAL'
+        Visible = False
+      end
+      object cxGridViewDC: TcxGridDBColumn
+        DataBinding.FieldName = 'DC'
+        Visible = False
+      end
+      object cxGridViewCUENTA: TcxGridDBColumn
+        DataBinding.FieldName = 'CUENTA'
+        Visible = False
+      end
+      object cxGridViewSUFIJO_N19: TcxGridDBColumn
+        DataBinding.FieldName = 'SUFIJO_N19'
+        Visible = False
+      end
+      object cxGridViewSUFIJO_N58: TcxGridDBColumn
+        DataBinding.FieldName = 'SUFIJO_N58'
+        Visible = False
+      end
+      object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
+        Caption = 'Importe'
+        DataBinding.FieldName = 'IMPORTE_TOTAL'
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
+        Width = 128
+      end
+    end
+  end
+  inherited frViewFiltroBase1: TfrViewFiltroBase
+    inherited TBXDock1: TTBXDock
+      inherited TBXDockablePanel1: TTBXDockablePanel
+        inherited dxLayoutControl1: TdxLayoutControl
+          inherited txtFiltroTodo: TcxTextEdit
+            ExplicitWidth = 273
+            Width = 273
+          end
+          inherited edtFechaIniFiltro: TcxDateEdit
+            ExplicitWidth = 121
+            Width = 121
+          end
+          inherited edtFechaFinFiltro: TcxDateEdit
+            ExplicitWidth = 121
+            Width = 121
+          end
+        end
+      end
+    end
+  end
+  inherited dxComponentPrinter: TdxComponentPrinter
+    inherited dxComponentPrinterLink: TdxGridReportLink
+      ReportDocument.CreationDate = 38673.842406053240000000
+      BuiltInReportLink = True
+    end
+  end
+  inherited dxPrintStyleManager1: TdxPrintStyleManager
+    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
+      BuiltInStyle = True
+    end
+  end
+  object PngImageList: TPngImageList
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD2520000022E4944415478DA
+          8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D
+          C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5
+          A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0
+          2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236
+          8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A
+          4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127
+          A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D
+          7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12
+          9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC
+          1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D
+          13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2
+          AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D
+          352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE
+          3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3
+          12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104
+          84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
+          C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
+          6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
+        Name = 'PngImage0'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000B1300000B1301009A9C18000001274944415478DA
+          DD923D4A035110C7FFAB60A208795B585865636795A4538CF0F4089A3EC113E4
+          0E5E20E00536584AD2682382BBA085A0984DC0D6B72FA0310AD9599068045947
+          B052F015A97460986198F9315F5692249844AC7F08B02C0BDBA725C96E95557E
+          857D56B7B979EEFFC8FF1E287BEB5208515FB49D3C5B2420B455802985CE2B50
+          3BD83AF34D00773957A8AC391B78E1E23E29DC50805069BC29344E76BA551320
+          5C2DCAEC92C88128C21D425C33208A34665A421FEF761D2360A558C8CE4160C8
+          1DDC33E096343477906A6574B0D73302DC944045D8027D068C10631C119EDA31
+          E6BD4CE362BF671C41CE46A80FED383F1284078A31AD80670F9D054AD72E0F07
+          BF2FF1F38CE5664912C555DEBC1C10214DF0DF69EC5E1D3D9ACF38F123FD3DC0
+          07A932AEE15E52559F0000000049454E44AE426082}
+        Name = 'PngImage1'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
+          83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
+          CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
+          F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
+          28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
+          B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
+          2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
+          B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
+        Name = 'PngImage2'
+        Background = clWindow
+      end>
+    Left = 160
+    Top = 32
+    Bitmap = {}
+  end
+end

Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.pas

@@ -0,0 +1,92 @@
+unit uViewRemesasProveedor;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
+  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxGrid, uBizRemesasProveedor, ActnList, Menus,
+  cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
+  JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
+  dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
+  dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxCurrencyEdit, cxSpinEdit, cxCheckBox,
+  cxCheckComboBox, cxImageComboBox, TB2Item, TBX, TB2Toolbar, TBXDkPanels,
+  TB2Dock, uViewFiltroBase, dxPgsDlg;
+
+type
+  IViewRemesasProveedor = interface(IViewGrid)
+  ['{969B34FC-84E0-4D62-B577-371F71F32FB8}']
+    function GetRemesasProveedor: IBizRemesaProveedor;
+    procedure SetRemesasProveedor(const Value: IBizRemesaProveedor);
+    property RemesasProveedor: IBizRemesaProveedor read GetRemesasProveedor write SetRemesasProveedor;
+  end;
+
+  TfrViewRemesasProveedor = class(TfrViewGrid, IViewRemesasProveedor)
+    PngImageList: TPngImageList;
+    cxGridViewRecID: TcxGridDBColumn;
+    cxGridViewID: TcxGridDBColumn;
+    cxGridViewID_EMPRESA: TcxGridDBColumn;
+    cxGridViewREFERENCIA: TcxGridDBColumn;
+    cxGridViewFECHA_REMESA: TcxGridDBColumn;
+    cxGridViewDESCRIPCION: TcxGridDBColumn;
+    cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
+    cxGridViewNOMBRE: TcxGridDBColumn;
+    cxGridViewENTIDAD: TcxGridDBColumn;
+    cxGridViewSUCURSAL: TcxGridDBColumn;
+    cxGridViewDC: TcxGridDBColumn;
+    cxGridViewCUENTA: TcxGridDBColumn;
+    cxGridViewSUFIJO_N19: TcxGridDBColumn;
+    cxGridViewSUFIJO_N58: TcxGridDBColumn;
+    procedure cxGridViewIDCustomDrawCell(
+      Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+  protected
+    FRemesasProveedor: IBizRemesaProveedor;
+    function GetRemesasProveedor: IBizRemesaProveedor; virtual;
+    procedure SetRemesasProveedor(const Value: IBizRemesaProveedor); virtual;
+  public
+    property RemesasProveedor: IBizRemesaProveedor read GetRemesasProveedor write SetRemesasProveedor;
+  end;
+
+implementation
+
+uses uDataModuleRemesasProveedor;
+
+
+{$R *.dfm}
+
+{ TfrViewRemesasProveedor }
+
+{
+******************************* TfrViewRemesasProveedor *******************************
+}
+function TfrViewRemesasProveedor.GetRemesasProveedor: IBizRemesaProveedor;
+begin
+  Result := FRemesasProveedor;
+end;
+
+procedure TfrViewRemesasProveedor.SetRemesasProveedor(const Value: IBizRemesaProveedor);
+begin
+  FRemesasProveedor := Value;
+  if Assigned(FRemesasProveedor) then
+    dsDataSource.DataTable := FRemesasProveedor.DataTable;
+end;
+
+
+procedure TfrViewRemesasProveedor.cxGridViewIDCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  R := AViewInfo.ContentBounds;
+  ACanvas.FillRect(R);
+  ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
+  ADone := True;
+end;
+
+end.

Source/Servicios/FactuGES.RODL

@@ -476,6 +476,30 @@
 </Interface>
 </Interfaces>
 </Service>
+<Service Name="srvRemesasProveedor" UID="{EEDF477E-4C48-408C-993F-447B1AF98606}" Ancestor="DARemoteService">
+<Interfaces>
+<Interface Name="Default" UID="{6540A037-9847-4650-89BB-7B349C6004DF}">
+<Operations>
+<Operation Name="GetNextAutoInc" UID="{0AD198D5-7777-40C4-A1F2-362FA8C745DA}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="GeneratorName" DataType="String" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GenerateReport" UID="{0FEBE165-89EA-4325-84DE-A7024649D749}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ID" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
 </Services>
 <Structs>
 <Struct Name="TRdxLoginInfo" UID="{9F208C71-2B14-4C46-949C-42D84960FC58}" AutoCreateParams="1">

Source/Servicios/FactuGES_Intf.pas

@@ -42,6 +42,7 @@ const
   IsrvFacturasProveedor_IID : TGUID = '{7655160C-7023-452E-BB0E-C97E29B915E7}';
   IsrvRecibosProveedor_IID : TGUID = '{22580F16-8FFC-4FE0-BCDD-5533D5DB1F55}';
   IsrvHistoricoMovimientos_IID : TGUID = '{F1BE4D4C-017B-476D-A009-0D1B8D1A20CE}';
+  IsrvRemesasProveedor_IID : TGUID = '{6540A037-9847-4650-89BB-7B349C6004DF}';
 
   { Event ID's }
 
@@ -69,6 +70,7 @@ type
   IsrvFacturasProveedor = interface;
   IsrvRecibosProveedor = interface;
   IsrvHistoricoMovimientos = interface;
+  IsrvRemesasProveedor = interface;
 
   TRdxEmpresasArray = class;
 
@@ -580,6 +582,27 @@ type
 
   end;
 
+  { IsrvRemesasProveedor }
+  IsrvRemesasProveedor = interface(IDARemoteService)
+    ['{6540A037-9847-4650-89BB-7B349C6004DF}']
+    function GetNextAutoInc(const GeneratorName: String): Integer;
+    function GenerateReport(const ID: Integer): Binary;
+  end;
+
+  { CosrvRemesasProveedor }
+  CosrvRemesasProveedor = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasProveedor;
+  end;
+
+  { TsrvRemesasProveedor_Proxy }
+  TsrvRemesasProveedor_Proxy = class(TDARemoteService_Proxy, IsrvRemesasProveedor)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetNextAutoInc(const GeneratorName: String): Integer;
+    function GenerateReport(const ID: Integer): Binary;
+  end;
+
 implementation
 
 uses
@@ -1893,6 +1916,67 @@ begin
   result := 'srvHistoricoMovimientos';
 end;
 
+{ CosrvRemesasProveedor }
+
+class function CosrvRemesasProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasProveedor;
+begin
+  result := TsrvRemesasProveedor_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TsrvRemesasProveedor_Proxy }
+
+function TsrvRemesasProveedor_Proxy.__GetInterfaceName:string;
+begin
+  result := 'srvRemesasProveedor';
+end;
+
+function TsrvRemesasProveedor_Proxy.GetNextAutoInc(const GeneratorName: String): Integer;
+var
+  __request, __response : TMemoryStream;
+begin
+  __request := TMemoryStream.Create;
+  __response := TMemoryStream.Create;
+
+  try
+     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoInc');
+     __Message.Write('GeneratorName', TypeInfo(String), GeneratorName, []);
+     __Message.Finalize;
+
+     __Message.WriteToStream(__request);
+     __TransportChannel.Dispatch(__request, __response);
+     __Message.ReadFromStream(__response);
+
+     __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __request.Free;
+    __response.Free;
+  end
+end;
+
+function TsrvRemesasProveedor_Proxy.GenerateReport(const ID: Integer): Binary;
+var
+  __request, __response : TMemoryStream;
+begin
+  result := nil;
+  __request := TMemoryStream.Create;
+  __response := TMemoryStream.Create;
+
+  try
+     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
+     __Message.Write('ID', TypeInfo(Integer), ID, []);
+     __Message.Finalize;
+
+     __Message.WriteToStream(__request);
+     __TransportChannel.Dispatch(__request, __response);
+     __Message.ReadFromStream(__response);
+
+     __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __request.Free;
+    __response.Free;
+  end
+end;
+
 initialization
   RegisterROClass(TRdxLoginInfo);
   RegisterROClass(TRdxEmpresasArray);
@@ -1918,6 +2002,7 @@ initialization
   RegisterProxyClass(IsrvFacturasProveedor_IID, TsrvFacturasProveedor_Proxy);
   RegisterProxyClass(IsrvRecibosProveedor_IID, TsrvRecibosProveedor_Proxy);
   RegisterProxyClass(IsrvHistoricoMovimientos_IID, TsrvHistoricoMovimientos_Proxy);
+  RegisterProxyClass(IsrvRemesasProveedor_IID, TsrvRemesasProveedor_Proxy);
 
 
 finalization
@@ -1945,5 +2030,6 @@ finalization
   UnregisterProxyClass(IsrvFacturasProveedor_IID);
   UnregisterProxyClass(IsrvRecibosProveedor_IID);
   UnregisterProxyClass(IsrvHistoricoMovimientos_IID);
+  UnregisterProxyClass(IsrvRemesasProveedor_IID);
 
 end.

Source/Servicios/FactuGES_Invk.pas

@@ -186,6 +186,14 @@ type
   published
   end;
 
+  TsrvRemesasProveedor_Invoker = class(TDARemoteService_Invoker)
+  private
+  protected
+  published
+    procedure Invoke_GetNextAutoInc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
 implementation
 
 uses
@@ -1043,4 +1051,52 @@ begin
   end;
 end;
 
+{ TsrvRemesasProveedor_Invoker }
+
+procedure TsrvRemesasProveedor_Invoker.Invoke_GetNextAutoInc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetNextAutoInc(const GeneratorName: String): Integer; }
+var
+  GeneratorName: String;
+  lResult: Integer;
+begin
+  try
+    __Message.Read('GeneratorName', TypeInfo(String), GeneratorName, []);
+
+    lResult := (__Instance as IsrvRemesasProveedor).GetNextAutoInc(GeneratorName);
+
+    __Message.Initialize(__Transport, 'FactuGES', 'srvRemesasProveedor', 'GetNextAutoIncResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+
+  finally
+  end;
+end;
+
+procedure TsrvRemesasProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerateReport(const ID: Integer): Binary; }
+var
+  ID: Integer;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('ID', TypeInfo(Integer), ID, []);
+
+    lResult := (__Instance as IsrvRemesasProveedor).GenerateReport(ID);
+
+    __Message.Initialize(__Transport, 'FactuGES', 'srvRemesasProveedor', 'GenerateReportResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 end.

Source/Servidor/FactuGES_Server.bdsproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<PersonalityInfo>
 		<Option>
@@ -175,10 +175,8 @@
 			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductVersion">2.0.6.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
-			<VersionInfoKeys Name="CompileDate">martes, 12 de junio de 2007 19:36</VersionInfoKeys></VersionInfoKeys>  <Excluded_Packages>
+			<VersionInfoKeys Name="CompileDate">martes, 12 de junio de 2007 19:36</VersionInfoKeys></VersionInfoKeys>
-      <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
+		<Excluded_Packages><Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages></Excluded_Packages></Delphi.Personality>
-    </Excluded_Packages>
-  </Delphi.Personality>
 	<ModelSupport>False</ModelSupport>
 	<!-- EurekaLog First Line
 [Exception Log]

Source/Servidor/FactuGES_Server.dpr

@@ -90,8 +90,6 @@ uses
   schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
   srvFacturasProveedor_Impl in '..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas' {srvFacturasProveedor: TDARemoteService},
   srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDARemoteService},
-  schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
-  schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
   uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas',
   uBizOscAddressBookServer in '..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas',
   uBizOscCustomerServer in '..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas',
@@ -112,7 +110,14 @@ uses
   schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
   srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDARemoteService},
   uRptAlbaranesProveedor_Server in '..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas' {RptAlbaranesProveedor: TDataModule},
-  uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule};
+  uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule},
+  srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDARemoteService},
+  uRptRemesasProveedor_Server in '..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas' {RptRemesasProveedor: TDataModule},
+  schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
+  schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
+  uBizRemesasProveedorServer in '..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas',
+  schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
+  schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "2.0.6.0\0"
               VALUE "ProductVersion", "2.0.6.0\0"
-              VALUE "CompileDate", "lunes, 18 de junio de 2007 16:26\0"
+              VALUE "CompileDate", "martes, 19 de junio de 2007 17:52\0"
          END
     END
     BLOCK "VarFileInfo"

Source/Servidor/uDataModuleServer.dfm

@@ -56,7 +56,7 @@ object dmServer: TdmServer
       item
         Name = 'IBX'
         ConnectionString = 
-          'IBX?Server=localhost;Database=T:\Codigo (Luis Leon)\Database\FAC' +
+          'IBX?Server=localhost;Database=E:\Codigo (Luis Le'#243'n)\Database\FAC' +
           'TUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO' +
           '8859_1;'
         Default = True