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

Se añade el modulo de comisiones de vendedor

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@130 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2010-07-01 14:34:24 +00:00
parent 3c31071bc2
commit aab3f9832f
41 changed files with 550 additions and 2546 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

102
Source/Base/Base.dproj
View File

@ -53,58 +53,58 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Inventario\adortl.dcp" />
<DCCReference Include="..\Modulos\Inventario\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Inventario\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Inventario\designide.dcp" />
<DCCReference Include="..\Modulos\Inventario\dsnap.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Inventario\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Inventario\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Inventario\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Inventario\Jcl.dcp" />
<DCCReference Include="..\Modulos\Inventario\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Inventario\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Inventario\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Inventario\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Inventario\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Inventario\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Inventario\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Inventario\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Inventario\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Inventario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Inventario\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Inventario\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Inventario\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Inventario\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Inventario\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Inventario\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Inventario\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Inventario\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Inventario\rtl.dcp" />
<DCCReference Include="..\Modulos\Inventario\SpTBXLib_d11.dcp" />
<DCCReference Include="..\Modulos\Inventario\tb2k_d11.dcp" />
<DCCReference Include="..\Modulos\Inventario\vcl.dcp" />
<DCCReference Include="..\Modulos\Inventario\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Inventario\vcldb.dcp" />
<DCCReference Include="..\Modulos\Inventario\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Inventario\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Inventario\vclx.dcp" />
<DCCReference Include="..\Modulos\Inventario\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\SpTBXLib_d11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

1
Source/Cliente/FactuGES.dpr
View File

@ -1,6 +1,7 @@
program FactuGES; program FactuGES;
uses uses
ExceptionLog,
Forms, Forms,
Windows, Windows,
SysUtils, SysUtils,

49
Source/Informes/InfComision.fr3 Normal file
View File

@ -0,0 +1,49 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40360,6828532292" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C4700000020446174615365743D225270744661637475726173436C69656E74652E6672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C0F000000204E616D653D22204665636861732200010C10000000204E616D653D224665636861496E692200010C10000000204E616D653D22466563686146696E220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band2" Height="83,08652142" Left="0" Top="16" Width="1046,92981">
<TfrxMemoView Name="Memo15" Left="399,93723" Top="11,33859" Width="639,43352" Height="41,57483" ShowHint="False" Font.Charset="1" Font.Color="12632256" Font.Height="-32" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haRight" ParentFont="False" Text="LIQUIDACIONES DE COMISIONES"/>
<TfrxMemoView Name="Memo7" Left="419,30736" Top="58,14966" Width="612,50433" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Página nº: [&#60;Page#&#62;] / [&#60;TotalPages#&#62;]"/>
</TfrxPageHeader>
<TfrxMasterData Name="MasterData1" Height="22,67718" Left="0" Top="255" Width="1046,92981" ColumnWidth="0" ColumnGap="0" DataSet="RptFacturasCliente.frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo2" Left="4" Top="2" Width="64,47248" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo9" Left="77,9765" Top="2" Width="63,47248" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo10" Left="235,80334" Top="1,88976378" Width="521,95292677" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo13" Left="149,1812" Top="2" Width="81,37013" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;SITUACION&#34;]"/>
<TfrxLineView Name="Line8" Left="72,5906" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Left="145,51181102" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line10" Left="233,95275591" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line4" Left="763,46456693" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line3" Left="874,96062992" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Typ="1"/>
<TfrxLineView Name="Line7" Left="1040,50393701" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line1" Left="0,37795276" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo5" Left="765" Top="2" Width="105" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="878" Top="2" Width="50" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;COMISION&#34;]"/>
<TfrxMemoView Name="Memo12" Left="934" Top="2" Width="103" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_COMISION&#34;]"/>
<TfrxLineView Name="Line2" Left="932" Top="0" Width="0" Height="22,81102362" ShowHint="False" Frame.Typ="1"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="75,5906" Left="0" Top="159" Width="1046,92981" Condition="frxDBCabecera.&#34;ID&#34;" OutlineText="frxDBCabecera.&#34;ID&#34;">
<TfrxMemoView Name="Memo18" Left="931,07143" Top="52,91342" Width="109,92130622" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. comisión "/>
<TfrxMemoView Name="Memo27" Left="0" Top="0" Width="1040,8825" Height="52,91340291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo14" Left="60,25201" Top="30,23624" Width="412,18924" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo6" Left="174,99227" Top="3,77953" Width="253,44898" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo16" Left="525,35467" Top="3,77953" Width="948,8825" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA&#34;]"/>
<TfrxMemoView Name="Memo17" Left="555,59091" Top="30,23624" Width="476,44125" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo20" Left="11,33859" Top="3,77952999999999" Width="160,75603" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº liquidación de comisiones:"/>
<TfrxMemoView Name="Memo21" Left="480,00031" Top="3,77952999999999" Width="42,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo22" Left="480,00031" Top="30,23624" Width="72,69295" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
<TfrxMemoView Name="Memo25" Left="11,33859" Top="30,23624" Width="46,01577" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Agente:"/>
<TfrxMemoView Name="Memo23" Left="0" Top="52,91342" Width="73,32282" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Fec. factura"/>
<TfrxMemoView Name="Memo1" Left="72,5906" Top="52,91342" Width="73,32282" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. factura"/>
<TfrxMemoView Name="Memo3" Left="145,63791" Top="52,91342" Width="88,44094" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo4" Left="234,03958" Top="52,91342" Width="532,91355913" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo24" Left="763,46464016" Top="52,91342" Width="113,38583898" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo8" Left="876" Top="53" Width="55,38583898" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="comisión"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="41,57483" Left="0" Top="298" Width="1046,92981">
<TfrxMemoView Name="Memo28" Left="0" Top="0" Width="1040,8825" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo30" Left="733,22882" Top="3,77953" Width="301,953" Height="19,11812" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total comisión: [frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

BIN
Source/Modulos/Comisiones/Controller/Comisiones_controller.dpk
View File

Binary file not shown.

40
Source/Modulos/Comisiones/Controller/Comisiones_controller.dproj
View File

@ -38,28 +38,30 @@
<DelphiCompile Include="Comisiones_controller.dpk"> <DelphiCompile Include="Comisiones_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\adortl.dcp" />
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Comisiones_data.dcp" />
<DCCReference Include="..\..\Lib\Comisiones_model.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" />
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" />
<DCCReference Include="uComisionesController.pas" /> <DCCReference Include="uComisionesController.pas" />
<DCCReference Include="uComisionesReportController.pas" />
<DCCReference Include="View\adortl.dcp" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Comisiones_data.dcp" />
<DCCReference Include="View\Comisiones_model.dcp" />
<DCCReference Include="View\Contactos_controller.dcp" />
<DCCReference Include="View\cxLibraryD11.dcp" />
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
<DCCReference Include="View\dbrtl.dcp" />
<DCCReference Include="View\dsnap.dcp" />
<DCCReference Include="View\dxCoreD11.dcp" />
<DCCReference Include="View\dxGDIPlusD11.dcp" />
<DCCReference Include="View\dxThemeD11.dcp" />
<DCCReference Include="View\FacturasCliente_controller.dcp" />
<DCCReference Include="View\FacturasCliente_model.dcp" />
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorComision.pas" /> <DCCReference Include="View\uIEditorComision.pas" />
<DCCReference Include="View\uIEditorComisiones.pas" /> <DCCReference Include="View\uIEditorComisiones.pas" />
<DCCReference Include="View\uIEditorComisionesPreview.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vcldb.dcp" />
<DCCReference Include="View\vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

BIN
Source/Modulos/Comisiones/Controller/Comisiones_controller.res
View File

Binary file not shown.

40
Source/Modulos/Comisiones/Controller/uComisionesController.pas
View File

@ -97,7 +97,7 @@ uses
uBizContactos, uIEditorComisiones, uIEditorComision, uFactuGES_App, uBizContactos, uIEditorComisiones, uIEditorComision, uFactuGES_App,
uDataModuleComisiones, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils, uDataModuleComisiones, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
uROTypes, DateUtils, Forms, uIntegerListUtils, uSistemaFunc, uDialogElegirEMail, uEMailUtils, uStringsUtils, uROTypes, DateUtils, Forms, uIntegerListUtils, uSistemaFunc, uDialogElegirEMail, uEMailUtils, uStringsUtils,
uROXMLIntf, uBizFacturasCliente, uFacturasClienteController; uROXMLIntf, uBizFacturasCliente, uFacturasClienteController, uComisionesReportController;
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente; {procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@ -923,13 +923,13 @@ begin
end; end;
procedure TComisionesController.Preview(AComision: IBizComision; AllItems: Boolean = false); procedure TComisionesController.Preview(AComision: IBizComision; AllItems: Boolean = false);
{var var
AReportController : IComisionesReportController; AReportController : IComisionesReportController;
ID_Facturas: TIntegerList; ID_Comisiones: TIntegerList;
}
begin begin
{ AReportController := TComisionesReportController.Create; AReportController := TComisionesReportController.Create;
ID_Facturas := TIntegerList.Create; ID_Comisiones := TIntegerList.Create;
try try
//Si deseamos previsualizar todos los items del objeto albaran //Si deseamos previsualizar todos los items del objeto albaran
@ -940,32 +940,31 @@ begin
First; First;
while not EOF do while not EOF do
begin begin
ID_Facturas.Add(AComision.ID); ID_Comisiones.Add(AComision.ID);
Next; Next;
end; end;
end; end;
end end
//Solo previsualizamos el item seleccionado //Solo previsualizamos el item seleccionado
else else
ID_Facturas.Add(AComision.ID); ID_Comisiones.Add(AComision.ID);
AReportController.Preview(ID_Facturas, AOriginal, ACopia, AContabilidad); AReportController.Preview(ID_Comisiones);
finally finally
AReportController := NIL; AReportController := NIL;
FreeANDNIL(ID_Facturas); FreeANDNIL(ID_Comisiones);
end; end;
}
end; end;
procedure TComisionesController.Print(AComision: IBizComision; AllItems: Boolean = false); procedure TComisionesController.Print(AComision: IBizComision; AllItems: Boolean = false);
{var var
AReportController : IComisionesReportController; AReportController : IComisionesReportController;
ID_Facturas: TIntegerList; ID_Comisiones: TIntegerList;
}
begin begin
{ AReportController := TComisionesReportController.Create; AReportController := TComisionesReportController.Create;
ID_Facturas := TIntegerList.Create; ID_Comisiones := TIntegerList.Create;
try try
//Si deseamos previsualizar todos los items del objeto albaran //Si deseamos previsualizar todos los items del objeto albaran
@ -976,22 +975,21 @@ begin
First; First;
while not EOF do while not EOF do
begin begin
ID_Facturas.Add(AComision.ID); ID_Comisiones.Add(AComision.ID);
Next; Next;
end; end;
end; end;
end end
//Solo previsualizamos el item seleccionado //Solo previsualizamos el item seleccionado
else else
ID_Facturas.Add(AComision.ID); ID_Comisiones.Add(AComision.ID);
AReportController.Print(ID_Facturas, AOriginal, ACopia, AContabilidad); AReportController.Print(ID_Comisiones);
finally finally
AReportController := NIL; AReportController := NIL;
FreeANDNIL(ID_Facturas); FreeANDNIL(ID_Comisiones);
end; end;
}
end; end;
end. end.

12
Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm
View File

@ -10,12 +10,12 @@ inherited DataModuleComisiones: TDataModuleComisiones
Top = 24 Top = 24
end end
object rda_Comisiones: TDARemoteDataAdapter object rda_Comisiones: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51 Left = 51
Top = 143 Top = 143
end end
@ -32,7 +32,7 @@ inherited DataModuleComisiones: TDataModuleComisiones
Size = 254 Size = 254
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Comisiones RemoteDataAdapter = rda_Comisiones
LogicalName = 'ListaAnosComisiones' LogicalName = 'ListaAnosComisiones'
IndexDefs = <> IndexDefs = <>
@ -52,6 +52,7 @@ inherited DataModuleComisiones: TDataModuleComisiones
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_COMISIONES_LIQUID_ID' GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Comisiones_ID' DictionaryEntry = 'Comisiones_ID'
InPrimaryKey = True InPrimaryKey = True
end end
@ -108,7 +109,7 @@ inherited DataModuleComisiones: TDataModuleComisiones
DictionaryEntry = 'Comisiones_USUARIO' DictionaryEntry = 'Comisiones_USUARIO'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Comisiones RemoteDataAdapter = rda_Comisiones
LogicalName = 'Comisiones' LogicalName = 'Comisiones'
IndexDefs = <> IndexDefs = <>
@ -129,7 +130,8 @@ inherited DataModuleComisiones: TDataModuleComisiones
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID' GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
Required = True Required = True
DictionaryEntry = 'FacturasCliente_ID' ServerAutoRefresh = True
DictionaryEntry = 'FacturasComision_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
@ -214,7 +216,7 @@ inherited DataModuleComisiones: TDataModuleComisiones
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Comisiones RemoteDataAdapter = rda_Comisiones
MasterSource = ds_Comisiones MasterSource = ds_Comisiones
MasterFields = 'ID' MasterFields = 'ID'

15
Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas
View File

@ -7,13 +7,13 @@ uses
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes, uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
uRORemoteService, uROClient, uROBinMessage, uRORemoteService, uROClient, uROBinMessage,
uIDataModuleComisiones, uBizComisiones, //uIDataModuleComisionesReport, uIDataModuleComisiones, uBizComisiones, uIDataModuleComisionesReport,
uDADesigntimeCall, uDataModuleBase, uDADesigntimeCall, uDataModuleBase,
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
uDARemoteDataAdapter, uIntegerListUtils; uDARemoteDataAdapter, uIntegerListUtils;
type type
TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones) //, IDataModuleComisionesReport) TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones, IDataModuleComisionesReport)
RORemoteService: TRORemoteService; RORemoteService: TRORemoteService;
rda_Comisiones: TDARemoteDataAdapter; rda_Comisiones: TDARemoteDataAdapter;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
@ -33,7 +33,7 @@ type
function NewItem : IBizComision; function NewItem : IBizComision;
// Report // Report
// function GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary; function GetRptComisiones(const AListaID: TIntegerList): Binary;
end; end;
implementation implementation
@ -52,19 +52,18 @@ begin
RORemoteService.Message := dmConexion.Message; RORemoteService.Message := dmConexion.Message;
end; end;
{
function TDataModuleComisiones.GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary; function TDataModuleComisiones.GetRptComisiones(const AListaID: TIntegerList): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := AListaID.ToIntegerArray; AParam := AListaID.ToIntegerArray;
try try
Result := (RORemoteService as IsrvComisiones).GenerarInforme(AParam, AOriginal, ACopia, AContabilidad); Result := (RORemoteService as IsrvComisiones).GenerarInforme(AParam);
finally finally
// FreeANDNIL(AParam); FreeANDNIL(AParam);
end; end;
end; end;
}
function TDataModuleComisiones.NewItem: IBizComision; function TDataModuleComisiones.NewItem: IBizComision;
begin begin

BIN
Source/Modulos/Comisiones/Model/Comisiones_model.dpk
View File

Binary file not shown.

1
Source/Modulos/Comisiones/Model/Comisiones_model.dproj
View File

@ -51,6 +51,7 @@
<DCCReference Include="Data\RemObjects_Core_D11.dcp" /> <DCCReference Include="Data\RemObjects_Core_D11.dcp" />
<DCCReference Include="Data\rtl.dcp" /> <DCCReference Include="Data\rtl.dcp" />
<DCCReference Include="Data\uIDataModuleComisiones.pas" /> <DCCReference Include="Data\uIDataModuleComisiones.pas" />
<DCCReference Include="Data\uIDataModuleComisionesReport.pas" />
<DCCReference Include="Data\vcl.dcp" /> <DCCReference Include="Data\vcl.dcp" />
<DCCReference Include="Data\vcldb.dcp" /> <DCCReference Include="Data\vcldb.dcp" />
<DCCReference Include="Data\vclx.dcp" /> <DCCReference Include="Data\vclx.dcp" />

BIN
Source/Modulos/Comisiones/Model/Comisiones_model.res
View File

Binary file not shown.

910
Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas
View File

@ -1,27 +1,22 @@
unit schComisionesClient_Intf; unit schComisionesClient_Intf;
{$D-}
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosComisiones = '{124A6A45-F446-409F-9C7E-A8CD5A84C5D0}'; RID_ListaAnosComisiones = '{66E00D22-209F-4E5E-85DF-BE652D61F802}';
RID_FacturasComision = '{832CC300-EC95-4807-B0C0-93F9F63F64E7}'; RID_FacturasComision = '{A126BC5D-015C-4584-A4B9-0A06FF260E0F}';
RID_Comisiones = '{66A2E21C-016E-4850-8315-0289EB4EB403}'; RID_Comisiones = '{E62AD8E5-0BBA-4075-88FC-90D4A33BFEDA}';
RID_FacturasComision_Refresh = '{29AE784C-2303-4744-881D-CE76B889D5FB}';
RID_Comisiones_Refresh = '{0F16C4E7-4468-4755-BBBE-453BA603474C}';
{ Data table names } { Data table names }
nme_ListaAnosComisiones = 'ListaAnosComisiones'; nme_ListaAnosComisiones = 'ListaAnosComisiones';
nme_FacturasComision = 'FacturasComision'; nme_FacturasComision = 'FacturasComision';
nme_Comisiones = 'Comisiones'; nme_Comisiones = 'Comisiones';
nme_FacturasComision_Refresh = 'FacturasComision_Refresh';
nme_Comisiones_Refresh = 'Comisiones_Refresh';
{ ListaAnosComisiones fields } { ListaAnosComisiones fields }
fld_ListaAnosComisionesANO = 'ANO'; fld_ListaAnosComisionesANO = 'ANO';
@ -83,64 +78,10 @@ const
idx_ComisionesIMPORTE_TOTAL = 7; idx_ComisionesIMPORTE_TOTAL = 7;
idx_ComisionesUSUARIO = 8; idx_ComisionesUSUARIO = 8;
{ FacturasComision_Refresh fields }
fld_FacturasComision_RefreshID = 'ID';
fld_FacturasComision_RefreshID_EMPRESA = 'ID_EMPRESA';
fld_FacturasComision_RefreshID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
fld_FacturasComision_RefreshREFERENCIA = 'REFERENCIA';
fld_FacturasComision_RefreshFECHA_FACTURA = 'FECHA_FACTURA';
fld_FacturasComision_RefreshFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
fld_FacturasComision_RefreshSITUACION = 'SITUACION';
fld_FacturasComision_RefreshBASE_IMPONIBLE = 'BASE_IMPONIBLE';
fld_FacturasComision_RefreshID_CLIENTE = 'ID_CLIENTE';
fld_FacturasComision_RefreshNIF_CIF = 'NIF_CIF';
fld_FacturasComision_RefreshNOMBRE = 'NOMBRE';
fld_FacturasComision_RefreshID_AGENTE = 'ID_AGENTE';
fld_FacturasComision_RefreshCOMISION = 'COMISION';
fld_FacturasComision_RefreshIMPORTE_COMISION = 'IMPORTE_COMISION';
{ FacturasComision_Refresh field indexes }
idx_FacturasComision_RefreshID = 0;
idx_FacturasComision_RefreshID_EMPRESA = 1;
idx_FacturasComision_RefreshID_COMISION_LIQUIDADA = 2;
idx_FacturasComision_RefreshREFERENCIA = 3;
idx_FacturasComision_RefreshFECHA_FACTURA = 4;
idx_FacturasComision_RefreshFECHA_VENCIMIENTO = 5;
idx_FacturasComision_RefreshSITUACION = 6;
idx_FacturasComision_RefreshBASE_IMPONIBLE = 7;
idx_FacturasComision_RefreshID_CLIENTE = 8;
idx_FacturasComision_RefreshNIF_CIF = 9;
idx_FacturasComision_RefreshNOMBRE = 10;
idx_FacturasComision_RefreshID_AGENTE = 11;
idx_FacturasComision_RefreshCOMISION = 12;
idx_FacturasComision_RefreshIMPORTE_COMISION = 13;
{ Comisiones_Refresh fields }
fld_Comisiones_RefreshID = 'ID';
fld_Comisiones_RefreshID_EMPRESA = 'ID_EMPRESA';
fld_Comisiones_RefreshREFERENCIA = 'REFERENCIA';
fld_Comisiones_RefreshID_AGENTE = 'ID_AGENTE';
fld_Comisiones_RefreshAGENTE = 'AGENTE';
fld_Comisiones_RefreshDESCRIPCION = 'DESCRIPCION';
fld_Comisiones_RefreshFECHA = 'FECHA';
fld_Comisiones_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_Comisiones_RefreshUSUARIO = 'USUARIO';
{ Comisiones_Refresh field indexes }
idx_Comisiones_RefreshID = 0;
idx_Comisiones_RefreshID_EMPRESA = 1;
idx_Comisiones_RefreshREFERENCIA = 2;
idx_Comisiones_RefreshID_AGENTE = 3;
idx_Comisiones_RefreshAGENTE = 4;
idx_Comisiones_RefreshDESCRIPCION = 5;
idx_Comisiones_RefreshFECHA = 6;
idx_Comisiones_RefreshIMPORTE_TOTAL = 7;
idx_Comisiones_RefreshUSUARIO = 8;
type type
{ IListaAnosComisiones } { IListaAnosComisiones }
IListaAnosComisiones = interface(IDAStronglyTypedDataTable) IListaAnosComisiones = interface(IDAStronglyTypedDataTable)
['{E5D0E523-CFA7-49C9-AC39-4495CD5F10B7}'] ['{1349D704-D40A-462B-95FE-2038BE81C5FE}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -154,7 +95,7 @@ type
end; end;
{ TListaAnosComisionesDataTableRules } { TListaAnosComisionesDataTableRules }
TListaAnosComisionesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosComisiones) TListaAnosComisionesDataTableRules = class(TDADataTableRules, IListaAnosComisiones)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -175,7 +116,7 @@ type
{ IFacturasComision } { IFacturasComision }
IFacturasComision = interface(IDAStronglyTypedDataTable) IFacturasComision = interface(IDAStronglyTypedDataTable)
['{5B66CE03-2FFD-472C-8752-D5A8894D7340}'] ['{C3BFD07E-6C74-4487-8281-11341EB61A5B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -267,7 +208,7 @@ type
end; end;
{ TFacturasComisionDataTableRules } { TFacturasComisionDataTableRules }
TFacturasComisionDataTableRules = class(TIntfObjectDADataTableRules, IFacturasComision) TFacturasComisionDataTableRules = class(TDADataTableRules, IFacturasComision)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -366,7 +307,7 @@ type
{ IComisiones } { IComisiones }
IComisiones = interface(IDAStronglyTypedDataTable) IComisiones = interface(IDAStronglyTypedDataTable)
['{B02238A8-1502-4A07-8E95-EF01498C7832}'] ['{8B6313BD-F198-4D7D-9695-70B105957CB3}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -428,329 +369,7 @@ type
end; end;
{ TComisionesDataTableRules } { TComisionesDataTableRules }
TComisionesDataTableRules = class(TIntfObjectDADataTableRules, IComisiones) TComisionesDataTableRules = class(TDADataTableRules, IComisiones)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetID_AGENTEValue: Integer; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetID_AGENTEIsNull: Boolean; virtual;
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
function GetAGENTEValue: String; virtual;
procedure SetAGENTEValue(const aValue: String); virtual;
function GetAGENTEIsNull: Boolean; virtual;
procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetFECHAValue: DateTime; virtual;
procedure SetFECHAValue(const aValue: DateTime); virtual;
function GetFECHAIsNull: Boolean; virtual;
procedure SetFECHAIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_TOTALValue: Currency; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IFacturasComision_Refresh }
IFacturasComision_Refresh = interface(IDAStronglyTypedDataTable)
['{F7638285-0C09-4658-8B7D-AFF5C7B59BF0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetID_COMISION_LIQUIDADAValue: Integer;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
function GetID_COMISION_LIQUIDADAIsNull: Boolean;
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetFECHA_FACTURAValue: DateTime;
procedure SetFECHA_FACTURAValue(const aValue: DateTime);
function GetFECHA_FACTURAIsNull: Boolean;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
function GetFECHA_VENCIMIENTOValue: DateTime;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
function GetFECHA_VENCIMIENTOIsNull: Boolean;
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
function GetSITUACIONValue: String;
procedure SetSITUACIONValue(const aValue: String);
function GetSITUACIONIsNull: Boolean;
procedure SetSITUACIONIsNull(const aValue: Boolean);
function GetBASE_IMPONIBLEValue: Currency;
procedure SetBASE_IMPONIBLEValue(const aValue: Currency);
function GetBASE_IMPONIBLEIsNull: Boolean;
procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
function GetID_CLIENTEValue: Integer;
procedure SetID_CLIENTEValue(const aValue: Integer);
function GetID_CLIENTEIsNull: Boolean;
procedure SetID_CLIENTEIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean;
procedure SetNIF_CIFIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean;
procedure SetNOMBREIsNull(const aValue: Boolean);
function GetID_AGENTEValue: Integer;
procedure SetID_AGENTEValue(const aValue: Integer);
function GetID_AGENTEIsNull: Boolean;
procedure SetID_AGENTEIsNull(const aValue: Boolean);
function GetCOMISIONValue: Float;
procedure SetCOMISIONValue(const aValue: Float);
function GetCOMISIONIsNull: Boolean;
procedure SetCOMISIONIsNull(const aValue: Boolean);
function GetIMPORTE_COMISIONValue: Currency;
procedure SetIMPORTE_COMISIONValue(const aValue: Currency);
function GetIMPORTE_COMISIONIsNull: Boolean;
procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull;
end;
{ TFacturasComision_RefreshDataTableRules }
TFacturasComision_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IFacturasComision_Refresh)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetFECHA_FACTURAValue: DateTime; virtual;
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
function GetFECHA_FACTURAIsNull: Boolean; virtual;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual;
function GetSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetSITUACIONIsNull: Boolean; virtual;
procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
function GetBASE_IMPONIBLEValue: Currency; virtual;
procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
function GetID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetID_AGENTEValue: Integer; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetID_AGENTEIsNull: Boolean; virtual;
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
function GetCOMISIONValue: Float; virtual;
procedure SetCOMISIONValue(const aValue: Float); virtual;
function GetCOMISIONIsNull: Boolean; virtual;
procedure SetCOMISIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_COMISIONValue: Currency; virtual;
procedure SetIMPORTE_COMISIONValue(const aValue: Currency); virtual;
function GetIMPORTE_COMISIONIsNull: Boolean; virtual;
procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IComisiones_Refresh }
IComisiones_Refresh = interface(IDAStronglyTypedDataTable)
['{5EEFEA92-FC12-4394-BB11-83E04D12E775}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetID_AGENTEValue: Integer;
procedure SetID_AGENTEValue(const aValue: Integer);
function GetID_AGENTEIsNull: Boolean;
procedure SetID_AGENTEIsNull(const aValue: Boolean);
function GetAGENTEValue: String;
procedure SetAGENTEValue(const aValue: String);
function GetAGENTEIsNull: Boolean;
procedure SetAGENTEIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetFECHAValue: DateTime;
procedure SetFECHAValue(const aValue: DateTime);
function GetFECHAIsNull: Boolean;
procedure SetFECHAIsNull(const aValue: Boolean);
function GetIMPORTE_TOTALValue: Currency;
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
function GetUSUARIOIsNull: Boolean;
procedure SetUSUARIOIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
end;
{ TComisiones_RefreshDataTableRules }
TComisiones_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IComisiones_Refresh)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1361,518 +980,9 @@ begin
end; end;
{ TFacturasComision_RefreshDataTableRules }
constructor TFacturasComision_RefreshDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TFacturasComision_RefreshDataTableRules.Destroy;
begin
inherited;
end;
function TFacturasComision_RefreshDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshID].AsInteger;
end;
procedure TFacturasComision_RefreshDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasComision_RefreshID].AsInteger := aValue;
end;
function TFacturasComision_RefreshDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshID].IsNull;
end;
procedure TFacturasComision_RefreshDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComision_RefreshID].AsVariant := Null;
end;
function TFacturasComision_RefreshDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshID_EMPRESA].AsInteger;
end;
procedure TFacturasComision_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasComision_RefreshID_EMPRESA].AsInteger := aValue;
end;
function TFacturasComision_RefreshDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshID_EMPRESA].IsNull;
end;
procedure TFacturasComision_RefreshDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComision_RefreshID_EMPRESA].AsVariant := Null;
end;
function TFacturasComision_RefreshDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshID_COMISION_LIQUIDADA].AsInteger;
end;
procedure TFacturasComision_RefreshDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasComision_RefreshID_COMISION_LIQUIDADA].AsInteger := aValue;
end;
function TFacturasComision_RefreshDataTableRules.GetID_COMISION_LIQUIDADAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshID_COMISION_LIQUIDADA].IsNull;
end;
procedure TFacturasComision_RefreshDataTableRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComision_RefreshID_COMISION_LIQUIDADA].AsVariant := Null;
end;
function TFacturasComision_RefreshDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshREFERENCIA].AsString;
end;
procedure TFacturasComision_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasComision_RefreshREFERENCIA].AsString := aValue;
end;
function TFacturasComision_RefreshDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshREFERENCIA].IsNull;
end;
procedure TFacturasComision_RefreshDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComision_RefreshREFERENCIA].AsVariant := Null;
end;
function TFacturasComision_RefreshDataTableRules.GetFECHA_FACTURAValue: DateTime;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshFECHA_FACTURA].AsDateTime;
end;
procedure TFacturasComision_RefreshDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_FacturasComision_RefreshFECHA_FACTURA].AsDateTime := aValue;
end;
function TFacturasComision_RefreshDataTableRules.GetFECHA_FACTURAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshFECHA_FACTURA].IsNull;
end;
procedure TFacturasComision_RefreshDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComision_RefreshFECHA_FACTURA].AsVariant := Null;
end;
function TFacturasComision_RefreshDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshFECHA_VENCIMIENTO].AsDateTime;
end;
procedure TFacturasComision_RefreshDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_FacturasComision_RefreshFECHA_VENCIMIENTO].AsDateTime := aValue;
end;
function TFacturasComision_RefreshDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshFECHA_VENCIMIENTO].IsNull;
end;
procedure TFacturasComision_RefreshDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComision_RefreshFECHA_VENCIMIENTO].AsVariant := Null;
end;
function TFacturasComision_RefreshDataTableRules.GetSITUACIONValue: String;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshSITUACION].AsString;
end;
procedure TFacturasComision_RefreshDataTableRules.SetSITUACIONValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasComision_RefreshSITUACION].AsString := aValue;
end;
function TFacturasComision_RefreshDataTableRules.GetSITUACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshSITUACION].IsNull;
end;
procedure TFacturasComision_RefreshDataTableRules.SetSITUACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComision_RefreshSITUACION].AsVariant := Null;
end;
function TFacturasComision_RefreshDataTableRules.GetBASE_IMPONIBLEValue: Currency;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshBASE_IMPONIBLE].AsCurrency;
end;
procedure TFacturasComision_RefreshDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
begin
DataTable.Fields[idx_FacturasComision_RefreshBASE_IMPONIBLE].AsCurrency := aValue;
end;
function TFacturasComision_RefreshDataTableRules.GetBASE_IMPONIBLEIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshBASE_IMPONIBLE].IsNull;
end;
procedure TFacturasComision_RefreshDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComision_RefreshBASE_IMPONIBLE].AsVariant := Null;
end;
function TFacturasComision_RefreshDataTableRules.GetID_CLIENTEValue: Integer;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshID_CLIENTE].AsInteger;
end;
procedure TFacturasComision_RefreshDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasComision_RefreshID_CLIENTE].AsInteger := aValue;
end;
function TFacturasComision_RefreshDataTableRules.GetID_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshID_CLIENTE].IsNull;
end;
procedure TFacturasComision_RefreshDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComision_RefreshID_CLIENTE].AsVariant := Null;
end;
function TFacturasComision_RefreshDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshNIF_CIF].AsString;
end;
procedure TFacturasComision_RefreshDataTableRules.SetNIF_CIFValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasComision_RefreshNIF_CIF].AsString := aValue;
end;
function TFacturasComision_RefreshDataTableRules.GetNIF_CIFIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshNIF_CIF].IsNull;
end;
procedure TFacturasComision_RefreshDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComision_RefreshNIF_CIF].AsVariant := Null;
end;
function TFacturasComision_RefreshDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshNOMBRE].AsString;
end;
procedure TFacturasComision_RefreshDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasComision_RefreshNOMBRE].AsString := aValue;
end;
function TFacturasComision_RefreshDataTableRules.GetNOMBREIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshNOMBRE].IsNull;
end;
procedure TFacturasComision_RefreshDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComision_RefreshNOMBRE].AsVariant := Null;
end;
function TFacturasComision_RefreshDataTableRules.GetID_AGENTEValue: Integer;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshID_AGENTE].AsInteger;
end;
procedure TFacturasComision_RefreshDataTableRules.SetID_AGENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasComision_RefreshID_AGENTE].AsInteger := aValue;
end;
function TFacturasComision_RefreshDataTableRules.GetID_AGENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshID_AGENTE].IsNull;
end;
procedure TFacturasComision_RefreshDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComision_RefreshID_AGENTE].AsVariant := Null;
end;
function TFacturasComision_RefreshDataTableRules.GetCOMISIONValue: Float;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshCOMISION].AsFloat;
end;
procedure TFacturasComision_RefreshDataTableRules.SetCOMISIONValue(const aValue: Float);
begin
DataTable.Fields[idx_FacturasComision_RefreshCOMISION].AsFloat := aValue;
end;
function TFacturasComision_RefreshDataTableRules.GetCOMISIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshCOMISION].IsNull;
end;
procedure TFacturasComision_RefreshDataTableRules.SetCOMISIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComision_RefreshCOMISION].AsVariant := Null;
end;
function TFacturasComision_RefreshDataTableRules.GetIMPORTE_COMISIONValue: Currency;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshIMPORTE_COMISION].AsCurrency;
end;
procedure TFacturasComision_RefreshDataTableRules.SetIMPORTE_COMISIONValue(const aValue: Currency);
begin
DataTable.Fields[idx_FacturasComision_RefreshIMPORTE_COMISION].AsCurrency := aValue;
end;
function TFacturasComision_RefreshDataTableRules.GetIMPORTE_COMISIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasComision_RefreshIMPORTE_COMISION].IsNull;
end;
procedure TFacturasComision_RefreshDataTableRules.SetIMPORTE_COMISIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasComision_RefreshIMPORTE_COMISION].AsVariant := Null;
end;
{ TComisiones_RefreshDataTableRules }
constructor TComisiones_RefreshDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TComisiones_RefreshDataTableRules.Destroy;
begin
inherited;
end;
function TComisiones_RefreshDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_Comisiones_RefreshID].AsInteger;
end;
procedure TComisiones_RefreshDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_Comisiones_RefreshID].AsInteger := aValue;
end;
function TComisiones_RefreshDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_Comisiones_RefreshID].IsNull;
end;
procedure TComisiones_RefreshDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Comisiones_RefreshID].AsVariant := Null;
end;
function TComisiones_RefreshDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_Comisiones_RefreshID_EMPRESA].AsInteger;
end;
procedure TComisiones_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_Comisiones_RefreshID_EMPRESA].AsInteger := aValue;
end;
function TComisiones_RefreshDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
result := DataTable.Fields[idx_Comisiones_RefreshID_EMPRESA].IsNull;
end;
procedure TComisiones_RefreshDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Comisiones_RefreshID_EMPRESA].AsVariant := Null;
end;
function TComisiones_RefreshDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_Comisiones_RefreshREFERENCIA].AsString;
end;
procedure TComisiones_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_Comisiones_RefreshREFERENCIA].AsString := aValue;
end;
function TComisiones_RefreshDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_Comisiones_RefreshREFERENCIA].IsNull;
end;
procedure TComisiones_RefreshDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Comisiones_RefreshREFERENCIA].AsVariant := Null;
end;
function TComisiones_RefreshDataTableRules.GetID_AGENTEValue: Integer;
begin
result := DataTable.Fields[idx_Comisiones_RefreshID_AGENTE].AsInteger;
end;
procedure TComisiones_RefreshDataTableRules.SetID_AGENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_Comisiones_RefreshID_AGENTE].AsInteger := aValue;
end;
function TComisiones_RefreshDataTableRules.GetID_AGENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_Comisiones_RefreshID_AGENTE].IsNull;
end;
procedure TComisiones_RefreshDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Comisiones_RefreshID_AGENTE].AsVariant := Null;
end;
function TComisiones_RefreshDataTableRules.GetAGENTEValue: String;
begin
result := DataTable.Fields[idx_Comisiones_RefreshAGENTE].AsString;
end;
procedure TComisiones_RefreshDataTableRules.SetAGENTEValue(const aValue: String);
begin
DataTable.Fields[idx_Comisiones_RefreshAGENTE].AsString := aValue;
end;
function TComisiones_RefreshDataTableRules.GetAGENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_Comisiones_RefreshAGENTE].IsNull;
end;
procedure TComisiones_RefreshDataTableRules.SetAGENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Comisiones_RefreshAGENTE].AsVariant := Null;
end;
function TComisiones_RefreshDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_Comisiones_RefreshDESCRIPCION].AsString;
end;
procedure TComisiones_RefreshDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_Comisiones_RefreshDESCRIPCION].AsString := aValue;
end;
function TComisiones_RefreshDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_Comisiones_RefreshDESCRIPCION].IsNull;
end;
procedure TComisiones_RefreshDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Comisiones_RefreshDESCRIPCION].AsVariant := Null;
end;
function TComisiones_RefreshDataTableRules.GetFECHAValue: DateTime;
begin
result := DataTable.Fields[idx_Comisiones_RefreshFECHA].AsDateTime;
end;
procedure TComisiones_RefreshDataTableRules.SetFECHAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_Comisiones_RefreshFECHA].AsDateTime := aValue;
end;
function TComisiones_RefreshDataTableRules.GetFECHAIsNull: boolean;
begin
result := DataTable.Fields[idx_Comisiones_RefreshFECHA].IsNull;
end;
procedure TComisiones_RefreshDataTableRules.SetFECHAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Comisiones_RefreshFECHA].AsVariant := Null;
end;
function TComisiones_RefreshDataTableRules.GetIMPORTE_TOTALValue: Currency;
begin
result := DataTable.Fields[idx_Comisiones_RefreshIMPORTE_TOTAL].AsCurrency;
end;
procedure TComisiones_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
begin
DataTable.Fields[idx_Comisiones_RefreshIMPORTE_TOTAL].AsCurrency := aValue;
end;
function TComisiones_RefreshDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
begin
result := DataTable.Fields[idx_Comisiones_RefreshIMPORTE_TOTAL].IsNull;
end;
procedure TComisiones_RefreshDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Comisiones_RefreshIMPORTE_TOTAL].AsVariant := Null;
end;
function TComisiones_RefreshDataTableRules.GetUSUARIOValue: String;
begin
result := DataTable.Fields[idx_Comisiones_RefreshUSUARIO].AsString;
end;
procedure TComisiones_RefreshDataTableRules.SetUSUARIOValue(const aValue: String);
begin
DataTable.Fields[idx_Comisiones_RefreshUSUARIO].AsString := aValue;
end;
function TComisiones_RefreshDataTableRules.GetUSUARIOIsNull: boolean;
begin
result := DataTable.Fields[idx_Comisiones_RefreshUSUARIO].IsNull;
end;
procedure TComisiones_RefreshDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Comisiones_RefreshUSUARIO].AsVariant := Null;
end;
initialization initialization
RegisterDataTableRules(RID_ListaAnosComisiones, TListaAnosComisionesDataTableRules); RegisterDataTableRules(RID_ListaAnosComisiones, TListaAnosComisionesDataTableRules);
RegisterDataTableRules(RID_FacturasComision, TFacturasComisionDataTableRules); RegisterDataTableRules(RID_FacturasComision, TFacturasComisionDataTableRules);
RegisterDataTableRules(RID_Comisiones, TComisionesDataTableRules); RegisterDataTableRules(RID_Comisiones, TComisionesDataTableRules);
RegisterDataTableRules(RID_FacturasComision_Refresh, TFacturasComision_RefreshDataTableRules);
RegisterDataTableRules(RID_Comisiones_Refresh, TComisiones_RefreshDataTableRules);
end. end.

1358
Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas
View File

File diff suppressed because it is too large Load Diff

13
Source/Modulos/Comisiones/Model/uBizComisiones.pas
View File

@ -29,6 +29,7 @@ type
protected protected
procedure CalcularComision; procedure CalcularComision;
procedure COMISIONOnChange(Sender: TDACustomField); procedure COMISIONOnChange(Sender: TDACustomField);
procedure BeforeInsert(Sender: TDADataTable); override;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -115,6 +116,18 @@ end;
{ TBizFacturasComision } { TBizFacturasComision }
procedure TBizFacturasComision.BeforeInsert(Sender: TDADataTable);
var
AMasterTable : TDADataTable;
begin
inherited;
AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
begin
AMasterTable.Post;
end;
end;
procedure TBizFacturasComision.CalcularComision; procedure TBizFacturasComision.CalcularComision;
begin begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then

2
Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm
View File

@ -47,9 +47,7 @@ object PluginComisiones: TPluginComisiones
object actComisiones: TAction object actComisiones: TAction
Category = 'Ventas' Category = 'Ventas'
Caption = 'Comisiones' Caption = 'Comisiones'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actComisionesExecute OnExecute = actComisionesExecute
end end
end end

225
Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm
View File

@ -116,10 +116,10 @@ object srvComisiones: TsrvComisiones
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID' GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
Required = True
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'FacturasComision_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
@ -307,7 +307,7 @@ object srvComisiones: TsrvComisiones
item item
Params = < Params = <
item item
Name = 'ID_COMISION_LIQUIDADA' Name = 'ID'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end> end>
@ -318,11 +318,10 @@ object srvComisiones: TsrvComisiones
Default = True Default = True
TargetTable = 'V_FACTURAS_CLIENTE' TargetTable = 'V_FACTURAS_CLIENTE'
SQL = SQL =
'SELECT'#10' ID, ID_EMPRESA, ID_COMISION_LIQUIDADA, REFERENCIA, FE' + 'SELECT '#10' ID, ID_EMPRESA, ID_COMISION_LIQUIDADA, REFERENCIA, F' +
'CHA_FACTURA, FECHA_VENCIMIENTO,'#10' SITUACION, BASE_IMPONIBLE, I' + 'ECHA_FACTURA, FECHA_VENCIMIENTO,'#10' SITUACION, BASE_IMPONIBLE, ' +
'D_CLIENTE, NIF_CIF, NOMBRE,'#10' ID_AGENTE, COMISION, IMPORTE_COM' + 'ID_CLIENTE, NIF_CIF, NOMBRE,'#10' ID_AGENTE, COMISION, IMPORTE_CO' +
'ISION'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE ID_COMISION_LIQUIDAD' + 'MISION'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE ID = :ID'#10#10
'A = :ID_COMISION_LIQUIDADA'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -333,10 +332,6 @@ object srvComisiones: TsrvComisiones
DatasetField = 'ID_EMPRESA' DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA' TableField = 'ID_EMPRESA'
end end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
end
item item
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA' TableField = 'REFERENCIA'
@ -380,178 +375,93 @@ object srvComisiones: TsrvComisiones
item item
DatasetField = 'IMPORTE_COMISION' DatasetField = 'IMPORTE_COMISION'
TableField = 'IMPORTE_COMISION' TableField = 'IMPORTE_COMISION'
end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
end> end>
end> end>
Name = 'FacturasComision_Refresh' Name = 'FacturasComision_Refresh'
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'FacturasComision_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
end end
item item
Name = 'ID_COMISION_LIQUIDADA' Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger DataType = datInteger
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 20
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end end
item item
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
end end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
end end
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 19 Size = 255
DictionaryEntry = 'FacturasCliente_SITUACION'
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
end end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString
Size = 15 Size = 15
DictionaryEntry = 'FacturasCliente_NIF_CIF'
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 100
DictionaryEntry = 'FacturasCliente_NOMBRE'
end end
item item
Name = 'ID_AGENTE' Name = 'ID_AGENTE'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
end end
item item
Name = 'COMISION' Name = 'COMISION'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'FacturasCliente_COMISION'
end end
item item
Name = 'IMPORTE_COMISION' Name = 'IMPORTE_COMISION'
DataType = datCurrency DataType = datCurrency
end> DecimalPrecision = 11
end DecimalScale = 2
item DictionaryEntry = 'FacturasCliente_IMPORTE_COMISION'
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_COMISIONES_LIQUIDADAS'
SQL =
'SELECT'#10' COMISIONES_LIQUIDADAS.ID, COMISIONES_LIQUIDADAS.ID_EM' +
'PRESA,'#10' COMISIONES_LIQUIDADAS.REFERENCIA, COMISIONES_LIQUIDAD' +
'AS.ID_AGENTE,'#10' CONTACTOS.NOMBRE as AGENTE,'#10' COMISIONES_LIQ' +
'UIDADAS.DESCRIPCION, COMISIONES_LIQUIDADAS.FECHA,'#10' COMISIONES' +
'_LIQUIDADAS.IMPORTE_TOTAL, COMISIONES_LIQUIDADAS.USUARIO'#10'FROM CO' +
'MISIONES_LIQUIDADAS'#10'LEFT JOIN CONTACTOS ON (CONTACTOS.ID = COMIS' +
'IONES_LIQUIDADAS.ID_AGENTE)'#10'WHERE COMISIONES_LIQUIDADAS.ID = :ID' +
#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'AGENTE'
TableField = 'AGENTE'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'FECHA'
TableField = 'FECHA'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end>
end>
Name = 'Comisiones_Refresh'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Comisiones_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'ID_AGENTE'
DataType = datInteger
end
item
Name = 'AGENTE'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FECHA'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -805,34 +715,6 @@ object srvComisiones: TsrvComisiones
RelationshipType = rtForeignKey RelationshipType = rtForeignKey
end> end>
UpdateRules = < UpdateRules = <
item
Name = 'Insert Comisiones'
DoUpdate = False
DoDelete = False
DatasetName = 'Comisiones'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert FacturasComision'
DoUpdate = False
DoDelete = False
DatasetName = 'FacturasComision'
FailureBehavior = fbRaiseException
end
item
Name = 'Update Comisiones'
DoInsert = False
DoDelete = False
DatasetName = 'Comisiones'
FailureBehavior = fbRaiseException
end
item
Name = 'Update FacturasComision'
DoInsert = False
DoDelete = False
DatasetName = 'FacturasComision'
FailureBehavior = fbRaiseException
end
item item
Name = 'Delete FacturasComision' Name = 'Delete FacturasComision'
DoUpdate = False DoUpdate = False
@ -846,6 +728,34 @@ object srvComisiones: TsrvComisiones
DoInsert = False DoInsert = False
DatasetName = 'Comisiones' DatasetName = 'Comisiones'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end
item
Name = 'Insert Comisiones'
DoUpdate = False
DoDelete = False
DatasetName = 'Comisiones'
FailureBehavior = fbRaiseException
end
item
Name = 'Update Comisiones'
DoInsert = False
DoDelete = False
DatasetName = 'Comisiones'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert FacturasComision'
DoUpdate = False
DoDelete = False
DatasetName = 'FacturasComision'
FailureBehavior = fbRaiseException
end
item
Name = 'Update FacturasComision'
DoInsert = False
DoDelete = False
DatasetName = 'FacturasComision'
FailureBehavior = fbRaiseException
end> end>
Version = 0 Version = 0
Left = 48 Left = 48
@ -857,8 +767,8 @@ object srvComisiones: TsrvComisiones
DiagramData = DiagramData =
'<Diagrams>'#13#10' <Diagram Name="2D18D13A61EF420786DCB03803545680" L' + '<Diagrams>'#13#10' <Diagram Name="2D18D13A61EF420786DCB03803545680" L' +
'eft="200" Top="200" Width="400" Height="300">'#13#10' <Entity Name=' + 'eft="200" Top="200" Width="400" Height="300">'#13#10' <Entity Name=' +
'"FacturasComision" Left="375,00" Top="0,00" />'#13#10' <Entity Name' + '"Comisiones" Left="0,00" Top="36,98" />'#13#10' <Entity Name="Factu' +
'="Comisiones" Left="0,00" Top="36,98" />'#13#10' <Entity Name="List' + 'rasComision" Left="375,00" Top="0,00" />'#13#10' <Entity Name="List' +
'aAnosComisiones" Left="174,00" Top="118,00" />'#13#10' </Diagram>'#13#10'</' + 'aAnosComisiones" Left="174,00" Top="118,00" />'#13#10' </Diagram>'#13#10'</' +
'Diagrams>'#13#10 'Diagrams>'#13#10
end end
@ -882,8 +792,9 @@ object srvComisiones: TsrvComisiones
InsertCommandName = 'Insert_FacturasComision' InsertCommandName = 'Insert_FacturasComision'
DeleteCommandName = 'Delete_FacturasComision' DeleteCommandName = 'Delete_FacturasComision'
UpdateCommandName = 'Update_FacturasComision' UpdateCommandName = 'Update_FacturasComision'
RefreshDatasetName = 'FacturasComision_Refresh'
ReferencedDataset = 'FacturasComision' ReferencedDataset = 'FacturasComision'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
Left = 248 Left = 248
Top = 80 Top = 80
@ -1198,6 +1109,14 @@ object srvComisiones: TsrvComisiones
Name = 'Comisiones_USUARIO' Name = 'Comisiones_USUARIO'
DataType = datString DataType = datString
Size = 30 Size = 30
end
item
Name = 'FacturasComision_ID'
DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
end> end>
Left = 150 Left = 150
Top = 22 Top = 22

17
Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas
View File

@ -34,7 +34,7 @@ type
private private
protected protected
{ IsrvComisiones methods } { IsrvComisiones methods }
function GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary; function GenerarInforme(const ListaID: TIntegerArray): Binary;
end; end;
implementation implementation
@ -43,8 +43,8 @@ implementation
uses uses
{Generated:} FactuGES_Invk, Dialogs, uSistemaFunc, uROClasses, {Generated:} FactuGES_Invk, Dialogs, uSistemaFunc, uROClasses,
uDataModuleServer, uDatabaseUtils, uUsersManager, schComisionesClient_Intf, uDataModuleServer, uDatabaseUtils, uUsersManager, schComisionesClient_Intf,
uRestriccionesUsuarioUtils, uBizComisionesServer; uRestriccionesUsuarioUtils, uBizComisionesServer, uRptComisiones_Server;
// uRptWordFacturaCliente, uRptFacturasCliente_Server; // uRptWordFacturaCliente, ;
procedure Create_srvComisiones(out anInstance : IUnknown); procedure Create_srvComisiones(out anInstance : IUnknown);
begin begin
@ -80,17 +80,16 @@ begin
ConnectionName := dmServer.ConnectionName; ConnectionName := dmServer.ConnectionName;
end; end;
function TsrvComisiones.GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary; function TsrvComisiones.GenerarInforme(const ListaID: TIntegerArray): Binary;
//var var
// AReportGenerator : TRptFacturasCliente; AReportGenerator : TRptComisiones;
begin begin
{ AReportGenerator := TRptFacturasCliente.Create(nil); AReportGenerator := TRptComisiones.Create(nil);
try try
Result := AReportGenerator.GenerarFactura(ListaID, Original, Copia, Contabilidad); Result := AReportGenerator.GenerarInforme(ListaID);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
}
end; end;

10
Source/Modulos/Comisiones/Views/Comisiones_view.dpk
View File

@ -71,7 +71,12 @@ requires
TntUnicodeVcl, TntUnicodeVcl,
tb2k_d11, tb2k_d11,
cxGridD11, cxGridD11,
cxExportD11; cxExportD11,
frx11,
fs11,
fqb110,
bdertl,
frxe11;
contains contains
uComisionesViewRegister in 'uComisionesViewRegister.pas', uComisionesViewRegister in 'uComisionesViewRegister.pas',
@ -79,6 +84,7 @@ contains
uEditorComisiones in 'uEditorComisiones.pas' {fEditorComisiones: TfEditorFacturasCliente}, uEditorComisiones in 'uEditorComisiones.pas' {fEditorComisiones: TfEditorFacturasCliente},
uViewComision in 'uViewComision.pas' {frViewComision: TFrame}, uViewComision in 'uViewComision.pas' {frViewComision: TFrame},
uEditorComision in 'uEditorComision.pas' {fEditorComision: TfEditorFacturasCliente}, uEditorComision in 'uEditorComision.pas' {fEditorComision: TfEditorFacturasCliente},
uViewFacturasComision in 'uViewFacturasComision.pas' {frViewFacturasComision: TFrame}; uViewFacturasComision in 'uViewFacturasComision.pas' {frViewFacturasComision: TFrame},
uEditorComisionesReport in 'uEditorComisionesReport.pas' {fEditorComisionesReport: TfEditorComisionesReport};
end. end.

11
Source/Modulos/Comisiones/Views/Comisiones_view.dproj
View File

@ -41,6 +41,7 @@
<DCCReference Include="adortl.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="bdertl.dcp" />
<DCCReference Include="Comisiones_controller.dcp" /> <DCCReference Include="Comisiones_controller.dcp" />
<DCCReference Include="Comisiones_model.dcp" /> <DCCReference Include="Comisiones_model.dcp" />
<DCCReference Include="Contactos_view.dcp" /> <DCCReference Include="Contactos_view.dcp" />
@ -60,6 +61,10 @@
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" /> <DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="fqb110.dcp" />
<DCCReference Include="frx11.dcp" />
<DCCReference Include="frxe11.dcp" />
<DCCReference Include="fs11.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" /> <DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="Jcl.dcp" /> <DCCReference Include="Jcl.dcp" />
@ -87,6 +92,10 @@
<Form>fEditorComisiones</Form> <Form>fEditorComisiones</Form>
<DesignClass>TfEditorFacturasCliente</DesignClass> <DesignClass>TfEditorFacturasCliente</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorComisionesReport.pas">
<Form>fEditorComisionesReport</Form>
<DesignClass>TfEditorFacturasCliente</DesignClass>
</DCCReference>
<DCCReference Include="uViewComision.pas"> <DCCReference Include="uViewComision.pas">
<Form>frViewComision</Form> <Form>frViewComision</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
@ -96,7 +105,7 @@
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewFacturasComision.pas"> <DCCReference Include="uViewFacturasComision.pas">
<Form>frViewFacturaComision</Form> <Form>frViewFacturasComision</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" /> <DCCReference Include="vcl.dcp" />

BIN
Source/Modulos/Comisiones/Views/Comisiones_view.res
View File

Binary file not shown.

8
Source/Modulos/Comisiones/Views/uComisionesViewRegister.pas
View File

@ -8,8 +8,8 @@ procedure UnregisterViews;
implementation implementation
uses uses
uEditorRegistryUtils, uEditorComisiones, uEditorComision; uEditorRegistryUtils, uEditorComisiones, uEditorComision, uEditorComisionesReport;
// , uEditorFacturasClienteReport, uEditorElegirArticulosFacturaCliente, uEditorElegirFacturasCliente; //, uEditorElegirArticulosFacturaCliente, uEditorElegirFacturasCliente;
procedure RegisterViews; procedure RegisterViews;
begin begin
@ -17,7 +17,7 @@ begin
EditorRegistry.RegisterClass(TfEditorComision, 'EditorComision'); EditorRegistry.RegisterClass(TfEditorComision, 'EditorComision');
// EditorRegistry.RegisterClass(TfEditorElegirArticulosFacturaCliente, 'EditorElegirArticulosFacturaCliente'); // EditorRegistry.RegisterClass(TfEditorElegirArticulosFacturaCliente, 'EditorElegirArticulosFacturaCliente');
// EditorRegistry.RegisterClass(TfEditorElegirFacturasCliente, 'EditorElegirFacturasCliente'); // EditorRegistry.RegisterClass(TfEditorElegirFacturasCliente, 'EditorElegirFacturasCliente');
// EditorRegistry.RegisterClass(TfEditorFacturasClientePreview, 'EditorFacturasClientePreview'); EditorRegistry.RegisterClass(TfEditorComisionesPreview, 'EditorComisionesPreview');
end; end;
procedure UnregisterViews; procedure UnregisterViews;
@ -26,7 +26,7 @@ begin
EditorRegistry.UnRegisterClass(TfEditorComision); EditorRegistry.UnRegisterClass(TfEditorComision);
// EditorRegistry.UnRegisterClass(TfEditorElegirArticulosFacturaCliente); // EditorRegistry.UnRegisterClass(TfEditorElegirArticulosFacturaCliente);
// EditorRegistry.UnRegisterClass(TfEditorElegirFacturasCliente); // EditorRegistry.UnRegisterClass(TfEditorElegirFacturasCliente);
// EditorRegistry.UnRegisterClass(TfEditorFacturasClientePreview); EditorRegistry.UnRegisterClass(TfEditorComisionesPreview);
end; end;
end. end.

24
Source/Modulos/Comisiones/Views/uEditorComision.dfm
View File

@ -52,7 +52,7 @@ inherited fEditorComision: TfEditorComision
Width = 722 Width = 722
ExplicitWidth = 722 ExplicitWidth = 722
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 330 ExplicitWidth = 267
inherited TBXItem2: TSpTBXItem inherited TBXItem2: TSpTBXItem
Visible = False Visible = False
end end
@ -198,8 +198,26 @@ inherited fEditorComision: TfEditorComision
Column = frViewFacturasComision1.cxGridViewIMPORTE_COMISION Column = frViewFacturasComision1.cxGridViewIMPORTE_COMISION
end> end>
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
IsCaptionAssigned = True IsCaptionAssigned = True
end end
inherited cxGridViewID_EMPRESA: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewID_AGENTE: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewID_COMISION_LIQUIDADA: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewID_FACTURA: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
@ -227,6 +245,10 @@ inherited fEditorComision: TfEditorComision
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Top = 128 Top = 128
inherited actEliminar: TAction
Enabled = False
Visible = False
end
end end
inherited dsDataTable: TDADataSource [6] inherited dsDataTable: TDADataSource [6]
Left = 168 Left = 168

2
Source/Modulos/Comisiones/Views/uEditorComision.pas
View File

@ -15,7 +15,7 @@ uses
uIEditorComision, uComisionesController, JvExComCtrls, uIEditorComision, uComisionesController, JvExComCtrls,
JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, cxGraphics, cxControls, JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, cxGraphics, cxControls,
cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxLabel, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxLabel,
JvEnterTab, uViewDetallesGenerico, uViewFacturasComision; JvEnterTab, uViewDetallesGenerico, uViewFacturasComision, Grids, DBGrids;
type type
TfEditorComision = class(TfEditorDBItem, IEditorComision) TfEditorComision = class(TfEditorDBItem, IEditorComision)

25
Source/Modulos/Comisiones/Views/uEditorComisiones.pas
View File

@ -197,12 +197,8 @@ var
Respuesta : Integer; Respuesta : Integer;
AComisiones: IBizComision; AComisiones: IBizComision;
AllItems: Boolean; AllItems: Boolean;
AOriginal: Integer;
ACopia: Integer;
AContabilidad: Integer;
begin begin
{
AComisiones := Nil; AComisiones := Nil;
AllItems := False; AllItems := False;
@ -225,20 +221,16 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords);
AComisiones := (Controller as IComisionesClienteController).ExtraerSeleccionados(Comisiones) as IBizComision; AComisiones := (Controller as IComisionesController).ExtraerSeleccionados(Comisiones) as IBizComision;
end end
else else
AComisiones := Comisiones; AComisiones := Comisiones;
//Preguntamos si desea que en las facturas se vea el Sello FController.Print(AComisiones, AllItems);
if ElegirOpcionesImpresionFacturaCliente(AOriginal, ACopia, AContabilidad) then
if Assigned(AComisiones) then
FController.Print(AComisiones, AOriginal, ACopia, AContabilidad, AllItems);
end; end;
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorComisiones.ModificarInterno; procedure TfEditorComisiones.ModificarInterno;
@ -274,12 +266,9 @@ var
Respuesta : Integer; Respuesta : Integer;
AComisiones: IBizComision; AComisiones: IBizComision;
AllItems: Boolean; AllItems: Boolean;
AOriginal: Integer;
ACopia: Integer;
AContabilidad: Integer;
begin begin
{
AComisiones := Nil; AComisiones := Nil;
AllItems := False; AllItems := False;
@ -302,20 +291,16 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords);
AComisiones := (Controller as IComisionesClienteController).ExtraerSeleccionados(Comisiones) as IBizComision; AComisiones := (Controller as IComisionesController).ExtraerSeleccionados(Comisiones) as IBizComision;
end end
else else
AComisiones := Comisiones; AComisiones := Comisiones;
//Preguntamos si desea que en las facturas se vea el Sello FController.Preview(AComisiones, AllItems);
if ElegirOpcionesImpresionFacturaCliente(AOriginal, ACopia, AContabilidad) then
if Assigned(AComisiones) then
FController.Preview(AComisiones, AOriginal, ACopia, AContabilidad, AllItems);
end; end;
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorComisiones.RefrescarInterno; procedure TfEditorComisiones.RefrescarInterno;

32
Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm Normal file
View File

@ -0,0 +1,32 @@
inherited fEditorComisionesPreview: TfEditorComisionesPreview
Caption = 'Previsualizar la comisi'#243'n'
ClientWidth = 622
ExplicitWidth = 630
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 622
ExplicitWidth = 622
inherited Image1: TImage
Left = 595
ExplicitLeft = 595
end
end
inherited TBXDock: TSpTBXDock
Width = 622
ExplicitWidth = 622
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 622
end
inherited TBXToolbar1: TSpTBXToolbar
object TBXItem58: TSpTBXItem [1]
Action = actExportarRTF
Images = SmallImages
end
end
end
inherited StatusBar: TJvStatusBar
Width = 622
ExplicitWidth = 622
end
end

49
Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas Normal file
View File

@ -0,0 +1,49 @@
unit uEditorComisionesReport;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorPreview,
JvAppStorage, JvAppRegistryStorage, JvComponentBase,
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
TB2ExtItems, SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, pngimage,
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorComisionesPreview,
JvExComCtrls, JvStatusBar, frxExportText, frxExportRTF, frxExportMail,
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, StdCtrls, TntStdCtrls,
SpTBXEditors;
type
TfEditorComisionesPreview = class(TfEditorPreview, IEditorComisionesPreview)
TBXItem58: TSpTBXItem;
procedure actExportarRTFExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
uses
uComisionesReportController, uIntegerListUtils, uDialogUtils;
procedure TfEditorComisionesPreview.actExportarRTFExecute(Sender: TObject);
{var
I: Integer;}
begin
// inherited; <- No llamar al padre
{ if not Assigned(Controller) then
raise Exception.Create('No se ha asignado el controlador necesario');
for I := 0 to ListaID.Count - 1 do
if (Controller as IComisionesReportController).ExportToWord(ListaID[I]) then
ShowInfoMessage('La factura se ha exportado correctamente.');
}
end;
end.

5
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -114,6 +114,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
end end
object cxGridViewRE: TcxGridDBColumn object cxGridViewRE: TcxGridDBColumn
DataBinding.FieldName = 'RE' DataBinding.FieldName = 'RE'
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewIMPORTE_RE: TcxGridDBColumn object cxGridViewIMPORTE_RE: TcxGridDBColumn
DataBinding.FieldName = 'IMPORTE_RE' DataBinding.FieldName = 'IMPORTE_RE'
@ -130,6 +132,9 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn
Caption = 'Liquidaci'#243'n' Caption = 'Liquidaci'#243'n'
DataBinding.FieldName = 'REFERENCIA_COMISION' DataBinding.FieldName = 'REFERENCIA_COMISION'
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
Width = 54 Width = 54
end end
end end

6
Source/Modulos/Inventario/Data/uDataModuleInventario.dfm
View File

@ -14,12 +14,12 @@ inherited DataModuleInventario: TDataModuleInventario
Top = 84 Top = 84
end end
object rda_Inventario: TDARemoteDataAdapter object rda_Inventario: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51 Left = 51
Top = 151 Top = 151
end end
@ -391,7 +391,7 @@ inherited DataModuleInventario: TDataModuleInventario
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Inventario RemoteDataAdapter = rda_Inventario
MasterSource = ds_Inventario MasterSource = ds_Inventario
MasterFields = 'ID' MasterFields = 'ID'
@ -467,7 +467,7 @@ inherited DataModuleInventario: TDataModuleInventario
DataType = datLargeInt DataType = datLargeInt
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Inventario RemoteDataAdapter = rda_Inventario
LogicalName = 'Inventario_Color' LogicalName = 'Inventario_Color'
IndexDefs = <> IndexDefs = <>

9
Source/Modulos/Inventario/Views/uViewInventario.dfm
View File

@ -289,8 +289,6 @@ inherited frViewInventario: TfrViewInventario
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 272
Width = 272
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 300 Left = 300
@ -299,8 +297,6 @@ inherited frViewInventario: TfrViewInventario
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 300 ExplicitLeft = 300
ExplicitWidth = 221
Width = 221
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 507 Left = 507
@ -309,8 +305,6 @@ inherited frViewInventario: TfrViewInventario
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 507 ExplicitLeft = 507
ExplicitWidth = 215
Width = 215
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
@ -393,9 +387,6 @@ inherited frViewInventario: TfrViewInventario
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxStyleRepository1: TcxStyleRepository inherited cxStyleRepository1: TcxStyleRepository
inherited cxStyleSelection: TcxStyle inherited cxStyleSelection: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svColor, svFont, svTextColor]

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

@ -256,16 +256,6 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
end end
end end
inherited StatusBar: TJvStatusBar
Top = 464
Width = 676
Panels = <
item
Width = 200
end>
ExplicitTop = 464
ExplicitWidth = 676
end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 418 Top = 418
@ -501,25 +491,17 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
end end
end end
inherited EditorActionList: TActionList [5] inherited StatusBar: TJvStatusBar [5]
Left = 96 Top = 464
Top = 168 Width = 676
object actNorma19: TAction Panels = <
Category = 'Acciones' item
Caption = 'Norma 19' Width = 200
ImageIndex = 22 end>
OnExecute = actNorma19Execute ExplicitTop = 464
OnUpdate = actNorma19Update ExplicitWidth = 676
end
object actNorma32: TAction
Category = 'Acciones'
Caption = 'Norma 32'
ImageIndex = 22
OnExecute = actNorma32Execute
OnUpdate = actNorma32Update
end
end end
inherited SmallImages: TPngImageList [6] inherited SmallImages: TPngImageList
PngImages = < PngImages = <
item item
PngImage.Data = { PngImage.Data = {
@ -1862,10 +1844,28 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 528 Left = 528
Top = 32 Top = 32
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] inherited JvAppRegistryStorage: TJvAppRegistryStorage
Left = 560 Left = 560
Top = 32 Top = 32
end end
inherited EditorActionList: TActionList [11]
Left = 96
Top = 168
object actNorma19: TAction
Category = 'Acciones'
Caption = 'Norma 19'
ImageIndex = 22
OnExecute = actNorma19Execute
OnUpdate = actNorma19Update
end
object actNorma32: TAction
Category = 'Acciones'
Caption = 'Norma 32'
ImageIndex = 22
OnExecute = actNorma32Execute
OnUpdate = actNorma32Update
end
end
inherited StatusBarImages: TPngImageList inherited StatusBarImages: TPngImageList
Left = 120 Left = 120
Top = 112 Top = 112

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

@ -16,7 +16,7 @@ uses
JvStatusBar, dxLayoutLookAndFeels, uViewGridBase, uViewGrid, JvStatusBar, dxLayoutLookAndFeels, uViewGridBase, uViewGrid,
uViewRecibosRemesaCliente, uViewTotales, uViewDetallesGenerico, uDAInterfaces, uViewRecibosRemesaCliente, uViewTotales, uViewDetallesGenerico, uDAInterfaces,
cxControls, cxContainer, cxEdit, cxLabel, cxGraphics, cxLookAndFeels, cxControls, cxContainer, cxEdit, cxLabel, cxGraphics, cxLookAndFeels,
cxLookAndFeelPainters, SpTBXItem; cxLookAndFeelPainters, SpTBXItem, JvEnterTab;
type type
TfEditorRemesaCliente = class(TfEditorDBItem, IEditorRemesaCliente) TfEditorRemesaCliente = class(TfEditorDBItem, IEditorRemesaCliente)
@ -365,4 +365,3 @@ end;
end. end.

8
Source/Servicios/FactuGES.RODL
View File

@ -866,6 +866,14 @@
<Interfaces> <Interfaces>
<Interface Name="Default" UID="{5614F6CD-8DA7-4C6E-87DE-950F771282C7}"> <Interface Name="Default" UID="{5614F6CD-8DA7-4C6E-87DE-950F771282C7}">
<Operations> <Operations>
<Operation Name="GenerarInforme" UID="{06AF5582-6C24-499E-A34A-EFABC0B7C9E8}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations> </Operations>
</Interface> </Interface>
</Interfaces> </Interfaces>

21
Source/Servicios/FactuGES_Intf.pas
View File

@ -847,6 +847,7 @@ type
{ IsrvComisiones } { IsrvComisiones }
IsrvComisiones = interface(IDataAbstractService) IsrvComisiones = interface(IDataAbstractService)
['{5614F6CD-8DA7-4C6E-87DE-950F771282C7}'] ['{5614F6CD-8DA7-4C6E-87DE-950F771282C7}']
function GenerarInforme(const ListaID: TIntegerArray): Binary;
end; end;
{ CosrvComisiones } { CosrvComisiones }
@ -859,6 +860,7 @@ type
protected protected
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray): Binary;
end; end;
implementation implementation
@ -2648,11 +2650,30 @@ begin
result := TsrvComisiones_Proxy.Create(aMessage, aTransportChannel); result := TsrvComisiones_Proxy.Create(aMessage, aTransportChannel);
end; end;
{ TsrvComisiones_Proxy }
function TsrvComisiones_Proxy.__GetInterfaceName:string; function TsrvComisiones_Proxy.__GetInterfaceName:string;
begin begin
result := 'srvComisiones'; result := 'srvComisiones';
end; end;
function TsrvComisiones_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
initialization initialization
RegisterROClass(TRdxLoginInfo); RegisterROClass(TRdxLoginInfo);
RegisterROClass(TRdxEmpresasArray); RegisterROClass(TRdxEmpresasArray);

31
Source/Servicios/FactuGES_Invk.pas
View File

@ -318,6 +318,7 @@ type
public public
constructor Create; override; constructor Create; override;
published published
procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end; end;
implementation implementation
@ -2204,5 +2205,35 @@ begin
FAbstract := False; FAbstract := False;
end; end;
procedure TsrvComisiones_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
ListaID := nil;
lResult := nil;
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
lResult := (__Instance as IsrvComisiones).GenerarInforme(ListaID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvComisiones', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(ListaID);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
initialization initialization
end. end.

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

3
Source/Servidor/FactuGES_Server.dpr
View File

@ -147,7 +147,8 @@ uses
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas', schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas',
schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas'; schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas',
uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule};
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

4
Source/Servidor/FactuGES_Server.dproj
View File

@ -108,6 +108,10 @@
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" /> <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas"> <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form> <Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -17,7 +17,7 @@ BEGIN
VALUE "InternalName", "FactuGES Servidor\0" VALUE "InternalName", "FactuGES Servidor\0"
VALUE "ProductName", "FactuGES Servidor\0" VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "1.0.6.0\0" VALUE "ProductVersion", "1.0.6.0\0"
VALUE "CompileDate", "domingo, 13 de junio de 2010 19:36\0" VALUE "CompileDate", "martes, 15 de junio de 2010 9:14\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"