Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@52 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2007-06-19 17:12:00 +00:00
parent ca0929810c
commit c32a8b9af7
85 changed files with 15648 additions and 135 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/BuildRoberto.fbl5
View File

Binary file not shown.

1356
Build/BuildRoberto.fbp5
View File

File diff suppressed because it is too large Load Diff

13
Database/VISTAS.SQL
View File

@ -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,

67
Output/Debug/Servidor/Informes/InfRemesaProveedor.fr3 Normal file
View File

@ -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>

4
Source/Cliente/uPantallaPrincipal.pas
View File

@ -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('HistoricoMovimientos_plugin.bpl');
HostManager.LoadModule('RemesasProveedor_plugin.bpl');
{
HostManager.LoadModule('PedidosMontaje_plugin.bpl');
HostManager.LoadModule('CobrosMontaje_plugin.bpl');

2
Source/Modulos/Articulos/Views/uEditorArticulos.dfm
View File

@ -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

1
Source/Modulos/Articulos/Views/uEditorElegirArticulos.dfm
View File

@ -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]

2
Source/Modulos/Recibos de cliente/Views/uRecibosClienteViewRegister.pas
View File

@ -49,7 +49,7 @@ begin
EditorRegistry.UnRegisterClass(TfEditorRecibosCliente);
EditorRegistry.UnRegisterClass(TfEditorReciboCliente);
EditorRegistry.UnRegisterClass(TfEditorElegirRecibosCliente);
EditorRegistry.UnRegisterClass(TfEditorReciboClientePreview);
EditorRegistry.UnRegisterClass(TfEditorReciboClientePreview);
end;
end.

3
Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dpk
View File

@ -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.

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

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

96
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
View File

@ -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.

4
Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.drc
View File

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

23
Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
View File

@ -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

168
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
View File

@ -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_Refresh = '{10C38C0E-151B-401A-B871-ECE4187F375B}';
RID_PagosProveedor = '{44A1CD96-B800-4F0E-9B70-201D420A465A}';
RID_RecibosProveedor = '{807B18A0-18B1-4AA2-AD28-EB2C6F7355D4}';
RID_RecibosProveedor_Refresh = '{1F7D595D-7CE8-4F30-A7AD-8DF53957939D}';
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_RecibosProveedorFECHA_VENCIMIENTO = 6;
idx_RecibosProveedorDESCRIPCION = 7;
idx_RecibosProveedorOBSERVACIONES = 8;
idx_RecibosProveedorIMPORTE = 9;
idx_RecibosProveedorOTROS_GASTOS = 10;
idx_RecibosProveedorIMPORTE_TOTAL = 11;
idx_RecibosProveedorFECHA_FACTURA = 12;
idx_RecibosProveedorFORMA_PAGO_FACTURA = 13;
idx_RecibosProveedorIMPORTE_FACTURA = 14;
idx_RecibosProveedorID_PROVEEDOR = 15;
idx_RecibosProveedorNOMBRE_PROVEEDOR = 16;
idx_RecibosProveedorNIF_CIF_PROVEEDOR = 17;
idx_RecibosProveedorENTIDAD_PROVEEDOR = 18;
idx_RecibosProveedorSUCURSAL_PROVEEDOR = 19;
idx_RecibosProveedorDC_PROVEEDOR = 20;
idx_RecibosProveedorCUENTA_PROVEEDOR = 21;
idx_RecibosProveedorID_EMPRESA = 22;
idx_RecibosProveedorFECHA_ALTA = 23;
idx_RecibosProveedorFECHA_MODIFICACION = 24;
idx_RecibosProveedorUSUARIO = 25;
idx_RecibosProveedorID_REMESA = 5;
idx_RecibosProveedorREFERENCIA_REMESA = 6;
idx_RecibosProveedorFECHA_EMISION = 7;
idx_RecibosProveedorFECHA_VENCIMIENTO = 8;
idx_RecibosProveedorDESCRIPCION = 9;
idx_RecibosProveedorOBSERVACIONES = 10;
idx_RecibosProveedorIMPORTE = 11;
idx_RecibosProveedorOTROS_GASTOS = 12;
idx_RecibosProveedorIMPORTE_TOTAL = 13;
idx_RecibosProveedorFECHA_FACTURA = 14;
idx_RecibosProveedorFORMA_PAGO_FACTURA = 15;
idx_RecibosProveedorIMPORTE_FACTURA = 16;
idx_RecibosProveedorID_PROVEEDOR = 17;
idx_RecibosProveedorNOMBRE_PROVEEDOR = 18;
idx_RecibosProveedorNIF_CIF_PROVEEDOR = 19;
idx_RecibosProveedorENTIDAD_PROVEEDOR = 20;
idx_RecibosProveedorSUCURSAL_PROVEEDOR = 21;
idx_RecibosProveedorDC_PROVEEDOR = 22;
idx_RecibosProveedorCUENTA_PROVEEDOR = 23;
idx_RecibosProveedorID_EMPRESA = 24;
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_RefreshFECHA_VENCIMIENTO = 6;
idx_RecibosProveedor_RefreshDESCRIPCION = 7;
idx_RecibosProveedor_RefreshOBSERVACIONES = 8;
idx_RecibosProveedor_RefreshIMPORTE = 9;
idx_RecibosProveedor_RefreshOTROS_GASTOS = 10;
idx_RecibosProveedor_RefreshIMPORTE_TOTAL = 11;
idx_RecibosProveedor_RefreshFECHA_FACTURA = 12;
idx_RecibosProveedor_RefreshFORMA_PAGO_FACTURA = 13;
idx_RecibosProveedor_RefreshIMPORTE_FACTURA = 14;
idx_RecibosProveedor_RefreshID_PROVEEDOR = 15;
idx_RecibosProveedor_RefreshNOMBRE_PROVEEDOR = 16;
idx_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR = 17;
idx_RecibosProveedor_RefreshENTIDAD_PROVEEDOR = 18;
idx_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR = 19;
idx_RecibosProveedor_RefreshDC_PROVEEDOR = 20;
idx_RecibosProveedor_RefreshCUENTA_PROVEEDOR = 21;
idx_RecibosProveedor_RefreshID_EMPRESA = 22;
idx_RecibosProveedor_RefreshFECHA_ALTA = 23;
idx_RecibosProveedor_RefreshFECHA_MODIFICACION = 24;
idx_RecibosProveedor_RefreshUSUARIO = 25;
idx_RecibosProveedor_RefreshID_REMESA = 5;
idx_RecibosProveedor_RefreshREFERENCIA_REMESA = 6;
idx_RecibosProveedor_RefreshFECHA_EMISION = 7;
idx_RecibosProveedor_RefreshFECHA_VENCIMIENTO = 8;
idx_RecibosProveedor_RefreshDESCRIPCION = 9;
idx_RecibosProveedor_RefreshOBSERVACIONES = 10;
idx_RecibosProveedor_RefreshIMPORTE = 11;
idx_RecibosProveedor_RefreshOTROS_GASTOS = 12;
idx_RecibosProveedor_RefreshIMPORTE_TOTAL = 13;
idx_RecibosProveedor_RefreshFECHA_FACTURA = 14;
idx_RecibosProveedor_RefreshFORMA_PAGO_FACTURA = 15;
idx_RecibosProveedor_RefreshIMPORTE_FACTURA = 16;
idx_RecibosProveedor_RefreshID_PROVEEDOR = 17;
idx_RecibosProveedor_RefreshNOMBRE_PROVEEDOR = 18;
idx_RecibosProveedor_RefreshNIF_CIF_PROVEEDOR = 19;
idx_RecibosProveedor_RefreshENTIDAD_PROVEEDOR = 20;
idx_RecibosProveedor_RefreshSUCURSAL_PROVEEDOR = 21;
idx_RecibosProveedor_RefreshDC_PROVEEDOR = 22;
idx_RecibosProveedor_RefreshCUENTA_PROVEEDOR = 23;
idx_RecibosProveedor_RefreshID_EMPRESA = 24;
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;

100
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
View File

@ -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_RecibosProveedor_RefreshDelta = '{19184AE3-ED2E-48EF-8CA9-422567CE161B}';
RID_PagosProveedorDelta = '{7D84B7A6-CE5E-427D-BF11-E7A74B003876}';
RID_RecibosProveedorDelta = '{D18482E7-4712-405B-949D-50EF9971E826}';
RID_RecibosProveedor_RefreshDelta = '{E5A7D96D-DD67-458C-89D6-A82C366301D4}';
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];

10
Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas
View File

@ -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;

112
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
View File

@ -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' +
'HA_VENCIMIENTO,'#10' DESCRIPCION,'#10' OBSERVACIONES,'#10' ' +
' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPORTE_TOTAL,'#10' FECH' +
'A_FACTURA,'#10' FORMA_PAGO_FACTURA,'#10' IMPORTE_FACTURA,'#10' ' +
' ID_PROVEEDOR,'#10' NOMBRE_PROVEEDOR,'#10' NIF_CIF_PROVE' +
'EDOR,'#10' ENTIDAD_PROVEEDOR,'#10' SUCURSAL_PROVEEDOR,'#10' ' +
' DC_PROVEEDOR,'#10' CUENTA_PROVEEDOR,'#10' ID_EMPRESA,'#10' ' +
' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO'#10#10'FROM V' +
'_RECIBOS_PROVEEDOR'
' SITUACION,'#10' ID_FACTURA,'#10' ID_REMESA,'#10' REFEREN' +
'CIA_REMESA,'#10' FECHA_EMISION,'#10' FECHA_VENCIMIENTO,'#10' ' +
' DESCRIPCION,'#10' OBSERVACIONES,'#10' IMPORTE,'#10' OTR' +
'OS_GASTOS,'#10' IMPORTE_TOTAL,'#10' FECHA_FACTURA,'#10' FO' +
'RMA_PAGO_FACTURA,'#10' IMPORTE_FACTURA,'#10' ID_PROVEEDOR,'#10' ' +
' NOMBRE_PROVEEDOR,'#10' NIF_CIF_PROVEEDOR,'#10' ENTIDAD' +
'_PROVEEDOR,'#10' SUCURSAL_PROVEEDOR,'#10' DC_PROVEEDOR,'#10' ' +
' CUENTA_PROVEEDOR,'#10' ID_EMPRESA,'#10' FECHA_ALTA,'#10' ' +
' 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' +
'HA_VENCIMIENTO,'#10' DESCRIPCION,'#10' OBSERVACIONES,'#10' ' +
' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPORTE_TOTAL,'#10' FECH' +
'A_FACTURA,'#10' FORMA_PAGO_FACTURA,'#10' IMPORTE_FACTURA,'#10' ' +
' ID_PROVEEDOR,'#10' NOMBRE_PROVEEDOR,'#10' NIF_CIF_PROVE' +
'EDOR,'#10' ENTIDAD_PROVEEDOR,'#10' SUCURSAL_PROVEEDOR,'#10' ' +
' DC_PROVEEDOR,'#10' CUENTA_PROVEEDOR,'#10' ID_EMPRESA,'#10' ' +
' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO'#10#10'FROM V' +
'_RECIBOS_PROVEEDOR'#10'WHERE'#10' ID = :ID'
' SITUACION,'#10' ID_FACTURA,'#10' ID_REMESA,'#10' REFEREN' +
'CIA_REMESA,'#10' FECHA_EMISION,'#10' FECHA_VENCIMIENTO,'#10' ' +
' DESCRIPCION,'#10' OBSERVACIONES,'#10' IMPORTE,'#10' OTR' +
'OS_GASTOS,'#10' IMPORTE_TOTAL,'#10' FECHA_FACTURA,'#10' FO' +
'RMA_PAGO_FACTURA,'#10' IMPORTE_FACTURA,'#10' ID_PROVEEDOR,'#10' ' +
' NOMBRE_PROVEEDOR,'#10' NIF_CIF_PROVEEDOR,'#10' ENTIDAD' +
'_PROVEEDOR,'#10' SUCURSAL_PROVEEDOR,'#10' DC_PROVEEDOR,'#10' ' +
' CUENTA_PROVEEDOR,'#10' ID_EMPRESA,'#10' FECHA_ALTA,'#10' ' +
' 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' ' +
' OTROS_GASTOS = :OTROS_GASTOS,'#10' USUARIO = :USUARIO'#10' WHERE'#10' ' +
' (ID = :OLD_ID)'
','#10' OBSERVACIONES = :OBSERVACIONES,'#10' ID_REMESA = :ID_REMESA' +
','#10' IMPORTE = :IMPORTE,'#10' OTROS_GASTOS = :OTROS_GASTOS,'#10' ' +
'USUARIO = :USUARIO'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>

8
Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk
View File

@ -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.

408
Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm Normal file
View File

@ -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

211
Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.pas Normal file
View File

@ -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.

4
Source/Modulos/Recibos de proveedor/Views/uRecibosProveedorViewRegister.pas
View File

@ -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.

3
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
View File

@ -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;

5
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm
View File

@ -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

4
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas
View File

@ -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

492
Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.bdsproj Normal file
View File

@ -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>

62
Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.dpk Normal file
View File

@ -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.

0
Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.rc Normal file
View File

BIN
Source/Modulos/Remesas de proveedor/Controller/RemesasProveedor_controller.res Normal file
View File

Binary file not shown.

22
Source/Modulos/Remesas de proveedor/Controller/View/uIEditorRemesaProveedor.pas Normal file
View File

@ -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.

23
Source/Modulos/Remesas de proveedor/Controller/View/uIEditorRemesasProveedor.pas Normal file
View File

@ -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.

16
Source/Modulos/Remesas de proveedor/Controller/View/uIEditorRemesasProveedorPreview.pas Normal file
View File

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

475
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas Normal file
View File

@ -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.

103
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas Normal file
View File

@ -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.

492
Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.bdsproj Normal file
View File

@ -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>

41
Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.dpk Normal file
View File

@ -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.

0
Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.rc Normal file
View File

BIN
Source/Modulos/Remesas de proveedor/Data/RemesasProveedor_data.res Normal file
View File

Binary file not shown.

399
Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm Normal file
View File

@ -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

131
Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas Normal file
View File

@ -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.

19
Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedor.pas Normal file
View File

@ -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.

16
Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedorReport.pas Normal file
View File

@ -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.

492
Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.bdsproj Normal file
View File

@ -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>

46
Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.dpk Normal file
View File

@ -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.

0
Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.rc Normal file
View File

BIN
Source/Modulos/Remesas de proveedor/Model/RemesasProveedor_model.res Normal file
View File

Binary file not shown.

778
Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas Normal file
View File

@ -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.

899
Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas Normal file
View File

@ -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.

99
Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedor.pas Normal file
View File

@ -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.

79
Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas Normal file
View File

@ -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.

492
Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.bdsproj Normal file
View File

@ -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>

42
Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.dpk Normal file
View File

@ -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.

0
Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.rc Normal file
View File

BIN
Source/Modulos/Remesas de proveedor/Plugin/RemesasProveedor_plugin.res Normal file
View File

Binary file not shown.

135
Source/Modulos/Remesas de proveedor/Plugin/uPluginRemesasProveedor.dfm Normal file
View File

@ -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

74
Source/Modulos/Remesas de proveedor/Plugin/uPluginRemesasProveedor.pas Normal file
View File

@ -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.

1006
Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

93
Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.pas Normal file
View File

@ -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.

1010
Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

101
Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas Normal file
View File

@ -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.

492
Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.bdsproj Normal file
View File

@ -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>

97
Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.dpk Normal file
View File

@ -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.

0
Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.rc Normal file
View File

BIN
Source/Modulos/Remesas de proveedor/Views/RemesasProveedor_view.res Normal file
View File

Binary file not shown.

1776
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

342
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas Normal file
View File

@ -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.

4
Source/Modulos/Remesas de cliente/Views/uEditorFacturasClienteReport.dfm → Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedorReport.dfm
View File

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

11
Source/Modulos/Remesas de cliente/Views/uEditorFacturasClienteReport.pas → Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedorReport.pas
View File

@ -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)
private
{ Private declarations }
public
{ Public declarations }
TfEditorRemesaProveedorPreview = class(TfEditorPreview, IEditorRemesasProveedorPreview)
end;
implementation
{$R *.dfm}
end.

1520
Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

196
Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas Normal file
View File

@ -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.

27
Source/Modulos/Remesas de proveedor/Views/uRemesasProveedorViewRegister.pas Normal file
View File

@ -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.

164
Source/Modulos/Remesas de proveedor/Views/uViewRecibosRemesaProveedor.dfm Normal file
View File

@ -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

130
Source/Modulos/Remesas de proveedor/Views/uViewRecibosRemesaProveedor.pas Normal file
View File

@ -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.

194
Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm Normal file
View File

@ -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

106
Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.pas Normal file
View File

@ -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.

190
Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.dfm Normal file
View File

@ -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

92
Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.pas Normal file
View File

@ -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.

24
Source/Servicios/FactuGES.RODL
View File

@ -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">

86
Source/Servicios/FactuGES_Intf.pas
View File

@ -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.

56
Source/Servicios/FactuGES_Invk.pas
View File

@ -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.

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

10
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
@ -175,12 +175,10 @@
<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>
<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>
<VersionInfoKeys Name="CompileDate">martes, 12 de junio de 2007 19:36</VersionInfoKeys></VersionInfoKeys>
<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>
<ModelSupport>False</ModelSupport>
<!-- EurekaLog First Line
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
Activate=1

11
Source/Servidor/FactuGES_Server.dpr
View File

@ -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}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -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"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.

2
Source/Servidor/uDataModuleServer.dfm
View File

@ -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