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">
<MainSource>MainSource</MainSource>
</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="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">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

1
Source/Cliente/FactuGES.dpr
View File

@ -1,6 +1,7 @@
program FactuGES;
uses
ExceptionLog,
Forms,
Windows,
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">
<MainSource>MainSource</MainSource>
</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="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\uIEditorComisiones.pas" />
<DCCReference Include="View\uIEditorComisionesPreview.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vcldb.dcp" />
<DCCReference Include="View\vclx.dcp" />
</ItemGroup>
</Project>
<!-- 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,
uDataModuleComisiones, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
uROTypes, DateUtils, Forms, uIntegerListUtils, uSistemaFunc, uDialogElegirEMail, uEMailUtils, uStringsUtils,
uROXMLIntf, uBizFacturasCliente, uFacturasClienteController;
uROXMLIntf, uBizFacturasCliente, uFacturasClienteController, uComisionesReportController;
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@ -923,13 +923,13 @@ begin
end;
procedure TComisionesController.Preview(AComision: IBizComision; AllItems: Boolean = false);
{var
var
AReportController : IComisionesReportController;
ID_Facturas: TIntegerList;
}
ID_Comisiones: TIntegerList;
begin
{ AReportController := TComisionesReportController.Create;
ID_Facturas := TIntegerList.Create;
AReportController := TComisionesReportController.Create;
ID_Comisiones := TIntegerList.Create;
try
//Si deseamos previsualizar todos los items del objeto albaran
@ -940,32 +940,31 @@ begin
First;
while not EOF do
begin
ID_Facturas.Add(AComision.ID);
ID_Comisiones.Add(AComision.ID);
Next;
end;
end;
end
//Solo previsualizamos el item seleccionado
else
ID_Facturas.Add(AComision.ID);
ID_Comisiones.Add(AComision.ID);
AReportController.Preview(ID_Facturas, AOriginal, ACopia, AContabilidad);
AReportController.Preview(ID_Comisiones);
finally
AReportController := NIL;
FreeANDNIL(ID_Facturas);
FreeANDNIL(ID_Comisiones);
end;
}
end;
procedure TComisionesController.Print(AComision: IBizComision; AllItems: Boolean = false);
{var
var
AReportController : IComisionesReportController;
ID_Facturas: TIntegerList;
}
ID_Comisiones: TIntegerList;
begin
{ AReportController := TComisionesReportController.Create;
ID_Facturas := TIntegerList.Create;
AReportController := TComisionesReportController.Create;
ID_Comisiones := TIntegerList.Create;
try
//Si deseamos previsualizar todos los items del objeto albaran
@ -976,22 +975,21 @@ begin
First;
while not EOF do
begin
ID_Facturas.Add(AComision.ID);
ID_Comisiones.Add(AComision.ID);
Next;
end;
end;
end
//Solo previsualizamos el item seleccionado
else
ID_Facturas.Add(AComision.ID);
ID_Comisiones.Add(AComision.ID);
AReportController.Print(ID_Facturas, AOriginal, ACopia, AContabilidad);
AReportController.Print(ID_Comisiones);
finally
AReportController := NIL;
FreeANDNIL(ID_Facturas);
FreeANDNIL(ID_Comisiones);
end;
}
end;
end.

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

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

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

@ -7,13 +7,13 @@ uses
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
uRORemoteService, uROClient, uROBinMessage,
uIDataModuleComisiones, uBizComisiones, //uIDataModuleComisionesReport,
uIDataModuleComisiones, uBizComisiones, uIDataModuleComisionesReport,
uDADesigntimeCall, uDataModuleBase,
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
uDARemoteDataAdapter, uIntegerListUtils;
type
TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones) //, IDataModuleComisionesReport)
TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones, IDataModuleComisionesReport)
RORemoteService: TRORemoteService;
rda_Comisiones: TDARemoteDataAdapter;
Bin2DataStreamer: TDABin2DataStreamer;
@ -33,7 +33,7 @@ type
function NewItem : IBizComision;
// Report
// function GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary;
function GetRptComisiones(const AListaID: TIntegerList): Binary;
end;
implementation
@ -52,19 +52,18 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
{
function TDataModuleComisiones.GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary;
function TDataModuleComisiones.GetRptComisiones(const AListaID: TIntegerList): Binary;
var
AParam : TIntegerArray;
begin
AParam := AListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvComisiones).GenerarInforme(AParam, AOriginal, ACopia, AContabilidad);
Result := (RORemoteService as IsrvComisiones).GenerarInforme(AParam);
finally
// FreeANDNIL(AParam);
FreeANDNIL(AParam);
end;
end;
}
function TDataModuleComisiones.NewItem: IBizComision;
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\rtl.dcp" />
<DCCReference Include="Data\uIDataModuleComisiones.pas" />
<DCCReference Include="Data\uIDataModuleComisionesReport.pas" />
<DCCReference Include="Data\vcl.dcp" />
<DCCReference Include="Data\vcldb.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;
{$D-}
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosComisiones = '{124A6A45-F446-409F-9C7E-A8CD5A84C5D0}';
RID_FacturasComision = '{832CC300-EC95-4807-B0C0-93F9F63F64E7}';
RID_Comisiones = '{66A2E21C-016E-4850-8315-0289EB4EB403}';
RID_FacturasComision_Refresh = '{29AE784C-2303-4744-881D-CE76B889D5FB}';
RID_Comisiones_Refresh = '{0F16C4E7-4468-4755-BBBE-453BA603474C}';
RID_ListaAnosComisiones = '{66E00D22-209F-4E5E-85DF-BE652D61F802}';
RID_FacturasComision = '{A126BC5D-015C-4584-A4B9-0A06FF260E0F}';
RID_Comisiones = '{E62AD8E5-0BBA-4075-88FC-90D4A33BFEDA}';
{ Data table names }
nme_ListaAnosComisiones = 'ListaAnosComisiones';
nme_FacturasComision = 'FacturasComision';
nme_Comisiones = 'Comisiones';
nme_FacturasComision_Refresh = 'FacturasComision_Refresh';
nme_Comisiones_Refresh = 'Comisiones_Refresh';
{ ListaAnosComisiones fields }
fld_ListaAnosComisionesANO = 'ANO';
@ -83,64 +78,10 @@ const
idx_ComisionesIMPORTE_TOTAL = 7;
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
{ IListaAnosComisiones }
IListaAnosComisiones = interface(IDAStronglyTypedDataTable)
['{E5D0E523-CFA7-49C9-AC39-4495CD5F10B7}']
['{1349D704-D40A-462B-95FE-2038BE81C5FE}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -154,7 +95,7 @@ type
end;
{ TListaAnosComisionesDataTableRules }
TListaAnosComisionesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosComisiones)
TListaAnosComisionesDataTableRules = class(TDADataTableRules, IListaAnosComisiones)
private
protected
{ Property getters and setters }
@ -175,7 +116,7 @@ type
{ IFacturasComision }
IFacturasComision = interface(IDAStronglyTypedDataTable)
['{5B66CE03-2FFD-472C-8752-D5A8894D7340}']
['{C3BFD07E-6C74-4487-8281-11341EB61A5B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -267,7 +208,7 @@ type
end;
{ TFacturasComisionDataTableRules }
TFacturasComisionDataTableRules = class(TIntfObjectDADataTableRules, IFacturasComision)
TFacturasComisionDataTableRules = class(TDADataTableRules, IFacturasComision)
private
protected
{ Property getters and setters }
@ -366,7 +307,7 @@ type
{ IComisiones }
IComisiones = interface(IDAStronglyTypedDataTable)
['{B02238A8-1502-4A07-8E95-EF01498C7832}']
['{8B6313BD-F198-4D7D-9695-70B105957CB3}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -428,329 +369,7 @@ type
end;
{ TComisionesDataTableRules }
TComisionesDataTableRules = class(TIntfObjectDADataTableRules, 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)
TComisionesDataTableRules = class(TDADataTableRules, IComisiones)
private
protected
{ Property getters and setters }
@ -1361,518 +980,9 @@ begin
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
RegisterDataTableRules(RID_ListaAnosComisiones, TListaAnosComisionesDataTableRules);
RegisterDataTableRules(RID_FacturasComision, TFacturasComisionDataTableRules);
RegisterDataTableRules(RID_Comisiones, TComisionesDataTableRules);
RegisterDataTableRules(RID_FacturasComision_Refresh, TFacturasComision_RefreshDataTableRules);
RegisterDataTableRules(RID_Comisiones_Refresh, TComisiones_RefreshDataTableRules);
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
procedure CalcularComision;
procedure COMISIONOnChange(Sender: TDACustomField);
procedure BeforeInsert(Sender: TDADataTable); override;
public
constructor Create(aDataTable: TDADataTable); override;
@ -115,6 +116,18 @@ end;
{ 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;
begin
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
Category = 'Ventas'
Caption = 'Comisiones'
Enabled = False
ImageIndex = 0
Visible = False
OnExecute = actComisionesExecute
end
end

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

@ -116,10 +116,10 @@ object srvComisiones: TsrvComisiones
Fields = <
item
Name = 'ID'
DataType = datInteger
DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
Required = True
ServerAutoRefresh = True
DictionaryEntry = 'FacturasComision_ID'
InPrimaryKey = True
end
item
@ -307,7 +307,7 @@ object srvComisiones: TsrvComisiones
item
Params = <
item
Name = 'ID_COMISION_LIQUIDADA'
Name = 'ID'
DataType = datInteger
Value = ''
end>
@ -318,11 +318,10 @@ object srvComisiones: TsrvComisiones
Default = True
TargetTable = 'V_FACTURAS_CLIENTE'
SQL =
'SELECT'#10' ID, ID_EMPRESA, ID_COMISION_LIQUIDADA, REFERENCIA, FE' +
'CHA_FACTURA, FECHA_VENCIMIENTO,'#10' SITUACION, BASE_IMPONIBLE, I' +
'D_CLIENTE, NIF_CIF, NOMBRE,'#10' ID_AGENTE, COMISION, IMPORTE_COM' +
'ISION'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE ID_COMISION_LIQUIDAD' +
'A = :ID_COMISION_LIQUIDADA'#10
'SELECT '#10' ID, ID_EMPRESA, ID_COMISION_LIQUIDADA, REFERENCIA, F' +
'ECHA_FACTURA, FECHA_VENCIMIENTO,'#10' SITUACION, BASE_IMPONIBLE, ' +
'ID_CLIENTE, NIF_CIF, NOMBRE,'#10' ID_AGENTE, COMISION, IMPORTE_CO' +
'MISION'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE ID = :ID'#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -333,10 +332,6 @@ object srvComisiones: TsrvComisiones
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
@ -380,178 +375,93 @@ object srvComisiones: TsrvComisiones
item
DatasetField = 'IMPORTE_COMISION'
TableField = 'IMPORTE_COMISION'
end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
end>
end>
Name = 'FacturasComision_Refresh'
Fields = <
item
Name = 'ID'
DataType = datInteger
DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
ServerAutoRefresh = True
DictionaryEntry = 'FacturasComision_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
end
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
ServerAutoRefresh = True
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Size = 20
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
Size = 255
DictionaryEntry = 'FacturasCliente_SITUACION'
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'FacturasCliente_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Size = 100
DictionaryEntry = 'FacturasCliente_NOMBRE'
end
item
Name = 'ID_AGENTE'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
end
item
Name = 'COMISION'
DataType = datFloat
DictionaryEntry = 'FacturasCliente_COMISION'
end
item
Name = 'IMPORTE_COMISION'
DataType = datCurrency
end>
end
item
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
DecimalPrecision = 11
DecimalScale = 2
DictionaryEntry = 'FacturasCliente_IMPORTE_COMISION'
end>
end>
JoinDataTables = <>
@ -805,34 +715,6 @@ object srvComisiones: TsrvComisiones
RelationshipType = rtForeignKey
end>
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
Name = 'Delete FacturasComision'
DoUpdate = False
@ -846,6 +728,34 @@ object srvComisiones: TsrvComisiones
DoInsert = False
DatasetName = 'Comisiones'
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>
Version = 0
Left = 48
@ -857,8 +767,8 @@ object srvComisiones: TsrvComisiones
DiagramData =
'<Diagrams>'#13#10' <Diagram Name="2D18D13A61EF420786DCB03803545680" L' +
'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="List' +
'"Comisiones" Left="0,00" Top="36,98" />'#13#10' <Entity Name="Factu' +
'rasComision" Left="375,00" Top="0,00" />'#13#10' <Entity Name="List' +
'aAnosComisiones" Left="174,00" Top="118,00" />'#13#10' </Diagram>'#13#10'</' +
'Diagrams>'#13#10
end
@ -882,8 +792,9 @@ object srvComisiones: TsrvComisiones
InsertCommandName = 'Insert_FacturasComision'
DeleteCommandName = 'Delete_FacturasComision'
UpdateCommandName = 'Update_FacturasComision'
RefreshDatasetName = 'FacturasComision_Refresh'
ReferencedDataset = 'FacturasComision'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 80
@ -1198,6 +1109,14 @@ object srvComisiones: TsrvComisiones
Name = 'Comisiones_USUARIO'
DataType = datString
Size = 30
end
item
Name = 'FacturasComision_ID'
DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
end>
Left = 150
Top = 22

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

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

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

@ -71,7 +71,12 @@ requires
TntUnicodeVcl,
tb2k_d11,
cxGridD11,
cxExportD11;
cxExportD11,
frx11,
fs11,
fqb110,
bdertl,
frxe11;
contains
uComisionesViewRegister in 'uComisionesViewRegister.pas',
@ -79,6 +84,7 @@ contains
uEditorComisiones in 'uEditorComisiones.pas' {fEditorComisiones: TfEditorFacturasCliente},
uViewComision in 'uViewComision.pas' {frViewComision: TFrame},
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.

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

@ -41,6 +41,7 @@
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="bdertl.dcp" />
<DCCReference Include="Comisiones_controller.dcp" />
<DCCReference Include="Comisiones_model.dcp" />
<DCCReference Include="Contactos_view.dcp" />
@ -60,6 +61,10 @@
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.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="GUISDK_D11R.dcp" />
<DCCReference Include="Jcl.dcp" />
@ -87,6 +92,10 @@
<Form>fEditorComisiones</Form>
<DesignClass>TfEditorFacturasCliente</DesignClass>
</DCCReference>
<DCCReference Include="uEditorComisionesReport.pas">
<Form>fEditorComisionesReport</Form>
<DesignClass>TfEditorFacturasCliente</DesignClass>
</DCCReference>
<DCCReference Include="uViewComision.pas">
<Form>frViewComision</Form>
<DesignClass>TFrame</DesignClass>
@ -96,7 +105,7 @@
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewFacturasComision.pas">
<Form>frViewFacturaComision</Form>
<Form>frViewFacturasComision</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<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
uses
uEditorRegistryUtils, uEditorComisiones, uEditorComision;
// , uEditorFacturasClienteReport, uEditorElegirArticulosFacturaCliente, uEditorElegirFacturasCliente;
uEditorRegistryUtils, uEditorComisiones, uEditorComision, uEditorComisionesReport;
//, uEditorElegirArticulosFacturaCliente, uEditorElegirFacturasCliente;
procedure RegisterViews;
begin
@ -17,7 +17,7 @@ begin
EditorRegistry.RegisterClass(TfEditorComision, 'EditorComision');
// EditorRegistry.RegisterClass(TfEditorElegirArticulosFacturaCliente, 'EditorElegirArticulosFacturaCliente');
// EditorRegistry.RegisterClass(TfEditorElegirFacturasCliente, 'EditorElegirFacturasCliente');
// EditorRegistry.RegisterClass(TfEditorFacturasClientePreview, 'EditorFacturasClientePreview');
EditorRegistry.RegisterClass(TfEditorComisionesPreview, 'EditorComisionesPreview');
end;
procedure UnregisterViews;
@ -26,7 +26,7 @@ begin
EditorRegistry.UnRegisterClass(TfEditorComision);
// EditorRegistry.UnRegisterClass(TfEditorElegirArticulosFacturaCliente);
// EditorRegistry.UnRegisterClass(TfEditorElegirFacturasCliente);
// EditorRegistry.UnRegisterClass(TfEditorFacturasClientePreview);
EditorRegistry.UnRegisterClass(TfEditorComisionesPreview);
end;
end.

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

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

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

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

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

@ -197,12 +197,8 @@ var
Respuesta : Integer;
AComisiones: IBizComision;
AllItems: Boolean;
AOriginal: Integer;
ACopia: Integer;
AContabilidad: Integer;
begin
{
AComisiones := Nil;
AllItems := False;
@ -225,20 +221,16 @@ begin
if AllItems then
begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords);
AComisiones := (Controller as IComisionesClienteController).ExtraerSeleccionados(Comisiones) as IBizComision;
AComisiones := (Controller as IComisionesController).ExtraerSeleccionados(Comisiones) as IBizComision;
end
else
AComisiones := Comisiones;
//Preguntamos si desea que en las facturas se vea el Sello
if ElegirOpcionesImpresionFacturaCliente(AOriginal, ACopia, AContabilidad) then
if Assigned(AComisiones) then
FController.Print(AComisiones, AOriginal, ACopia, AContabilidad, AllItems);
FController.Print(AComisiones, AllItems);
end;
end;
end;
end;
}
end;
procedure TfEditorComisiones.ModificarInterno;
@ -274,12 +266,9 @@ var
Respuesta : Integer;
AComisiones: IBizComision;
AllItems: Boolean;
AOriginal: Integer;
ACopia: Integer;
AContabilidad: Integer;
begin
{
AComisiones := Nil;
AllItems := False;
@ -302,20 +291,16 @@ begin
if AllItems then
begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords);
AComisiones := (Controller as IComisionesClienteController).ExtraerSeleccionados(Comisiones) as IBizComision;
AComisiones := (Controller as IComisionesController).ExtraerSeleccionados(Comisiones) as IBizComision;
end
else
AComisiones := Comisiones;
//Preguntamos si desea que en las facturas se vea el Sello
if ElegirOpcionesImpresionFacturaCliente(AOriginal, ACopia, AContabilidad) then
if Assigned(AComisiones) then
FController.Preview(AComisiones, AOriginal, ACopia, AContabilidad, AllItems);
FController.Preview(AComisiones, AllItems);
end;
end;
end;
end;
}
end;
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
object cxGridViewRE: TcxGridDBColumn
DataBinding.FieldName = 'RE'
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_RE: TcxGridDBColumn
DataBinding.FieldName = 'IMPORTE_RE'
@ -130,6 +132,9 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn
Caption = 'Liquidaci'#243'n'
DataBinding.FieldName = 'REFERENCIA_COMISION'
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
Width = 54
end
end

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

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

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

@ -289,8 +289,6 @@ inherited frViewInventario: TfrViewInventario
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 272
Width = 272
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 300
@ -299,8 +297,6 @@ inherited frViewInventario: TfrViewInventario
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 300
ExplicitWidth = 221
Width = 221
end
inherited eLista: TcxComboBox
Left = 507
@ -309,8 +305,6 @@ inherited frViewInventario: TfrViewInventario
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 507
ExplicitWidth = 215
Width = 215
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
@ -393,9 +387,6 @@ inherited frViewInventario: TfrViewInventario
BuiltInReportLink = True
end
end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxStyleRepository1: TcxStyleRepository
inherited cxStyleSelection: TcxStyle
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
inherited StatusBar: TJvStatusBar
Top = 464
Width = 676
Panels = <
item
Width = 200
end>
ExplicitTop = 464
ExplicitWidth = 676
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
Top = 418
@ -501,25 +491,17 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end
end
end
inherited EditorActionList: TActionList [5]
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
inherited StatusBar: TJvStatusBar [5]
Top = 464
Width = 676
Panels = <
item
Width = 200
end>
ExplicitTop = 464
ExplicitWidth = 676
end
inherited SmallImages: TPngImageList [6]
inherited SmallImages: TPngImageList
PngImages = <
item
PngImage.Data = {
@ -1862,10 +1844,28 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 528
Top = 32
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
inherited JvAppRegistryStorage: TJvAppRegistryStorage
Left = 560
Top = 32
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
Left = 120
Top = 112

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

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

8
Source/Servicios/FactuGES.RODL
View File

@ -866,6 +866,14 @@
<Interfaces>
<Interface Name="Default" UID="{5614F6CD-8DA7-4C6E-87DE-950F771282C7}">
<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>
</Interface>
</Interfaces>

21
Source/Servicios/FactuGES_Intf.pas
View File

@ -847,6 +847,7 @@ type
{ IsrvComisiones }
IsrvComisiones = interface(IDataAbstractService)
['{5614F6CD-8DA7-4C6E-87DE-950F771282C7}']
function GenerarInforme(const ListaID: TIntegerArray): Binary;
end;
{ CosrvComisiones }
@ -859,6 +860,7 @@ type
protected
function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray): Binary;
end;
implementation
@ -2648,11 +2650,30 @@ begin
result := TsrvComisiones_Proxy.Create(aMessage, aTransportChannel);
end;
{ TsrvComisiones_Proxy }
function TsrvComisiones_Proxy.__GetInterfaceName:string;
begin
result := 'srvComisiones';
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
RegisterROClass(TRdxLoginInfo);
RegisterROClass(TRdxEmpresasArray);

31
Source/Servicios/FactuGES_Invk.pas
View File

@ -318,6 +318,7 @@ type
public
constructor Create; override;
published
procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
implementation
@ -2204,5 +2205,35 @@ begin
FAbstract := False;
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
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',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_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 ..\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\schComisionesServer_Intf.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">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -17,7 +17,7 @@ BEGIN
VALUE "InternalName", "FactuGES Servidor\0"
VALUE "ProductName", "FactuGES Servidor\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
BLOCK "VarFileInfo"