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

Se sube para la versión 1.0.6

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@124 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2010-06-13 17:44:56 +00:00
parent c988e231d1
commit 79d735110d
115 changed files with 6510 additions and 1621 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.

BIN
Build/Installer.fbl6
View File

Binary file not shown.

65
Database/scripts/factuges.sql
View File

@ -3293,10 +3293,7 @@ SELECT ID_ALMACEN, ID_ARTICULO, 0 as STOCK, 0 as PENDIENTES, CANTIDAD AS RESERVA
FROM V_INV_RESERVAS FROM V_INV_RESERVAS
; ;
CREATE VIEW V_INVENTARIO_SIN_COLORES(
/* View: V_INVENTARIO */
CREATE VIEW V_INVENTARIO(
ID_ALMACEN, ID_ALMACEN,
ID_EMPRESA, ID_EMPRESA,
TIPO_ALMACEN, TIPO_ALMACEN,
@ -3372,6 +3369,65 @@ HAVING ((SUM(STOCK) <> 0 ) OR (SUM(RESERVA) <> 0) OR (SUM(PENDIENTE_RECEPCION) <
; ;
CREATE VIEW V_INVENTARIO(
ID_ALMACEN,
ID_EMPRESA,
TIPO_ALMACEN,
NOMBRE,
ID_ARTICULO,
REFERENCIA,
FAMILIA,
DESCRIPCION,
REFERENCIA_FAB,
UNIDAD_MEDIDA,
CAMPOTECNICO,
CODIGOTECNICO,
DISENOTECNICO,
COLOR1,
COLOR2,
COLOR3,
COLOR4,
COLOR5,
COLOR6,
COLOR7,
COLOR8,
COLOR9,
COLOR10,
COLOR11,
COLOR12,
STOCK,
UNIDADES_ALMACEN,
RESERVA,
PENDIENTE_RECEPCION)
AS
SELECT
v_inventario_sin_colores.ID_ALMACEN, v_inventario_sin_colores.ID_EMPRESA,
v_inventario_sin_colores.TIPO_ALMACEN, v_inventario_sin_colores.NOMBRE as ALMACEN,
v_inventario_sin_colores.ID_ARTICULO, v_inventario_sin_colores.REFERENCIA,
v_inventario_sin_colores.FAMILIA, v_inventario_sin_colores.DESCRIPCION,
v_inventario_sin_colores.REFERENCIA_FAB, v_inventario_sin_colores.UNIDAD_MEDIDA,
v_inventario_sin_colores.CAMPOTECNICO, v_inventario_sin_colores.CODIGOTECNICO,
v_inventario_sin_colores.DISENOTECNICO,
/* REFERENCIA_PROV as REFERENCIA_PROVEEDOR, PRECIO_NETO, COSTE_UNIDADES, SE ELIMINAN LOS PRECIOS CON HASTA SABER QUE DECISIONES SE TOMAN*/
V_INV_STOCK_COLOR.COLOR1, V_INV_STOCK_COLOR.COLOR2,
V_INV_STOCK_COLOR.COLOR3, V_INV_STOCK_COLOR.COLOR4,
V_INV_STOCK_COLOR.COLOR5, V_INV_STOCK_COLOR.COLOR6,
V_INV_STOCK_COLOR.COLOR7, V_INV_STOCK_COLOR.COLOR8,
V_INV_STOCK_COLOR.COLOR9, V_INV_STOCK_COLOR.COLOR10,
V_INV_STOCK_COLOR.COLOR11, V_INV_STOCK_COLOR.COLOR12,
v_inventario_sin_colores.STOCK, v_inventario_sin_colores.UNIDADES_ALMACEN,
v_inventario_sin_colores.RESERVA, v_inventario_sin_colores.PENDIENTE_RECEPCION
FROM v_inventario_sin_colores
LEFT JOIN V_INV_STOCK_COLOR ON ((V_INV_STOCK_COLOR.ID_ALMACEN = v_inventario_sin_colores.id_almacen) and (V_INV_STOCK_COLOR.ID_ARTICULO = v_inventario_sin_colores.ID_ARTICULO))
ORDER BY v_inventario_sin_colores.ID_ARTICULO
;
/* View: V_OBRAS */ /* View: V_OBRAS */
CREATE VIEW V_OBRAS( CREATE VIEW V_OBRAS(
ID, ID,
@ -4610,6 +4666,7 @@ ALTER TABLE COMISIONES_LIQUIDADAS ADD CONSTRAINT FK_COMISIONES_LIQUIDADAS FOREIG
ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT FK_EMPRESAS_CONTACTOS FOREIGN KEY (ID_CONTACTO) REFERENCES CONTACTOS (ID) ON DELETE CASCADE ON UPDATE CASCADE; ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT FK_EMPRESAS_CONTACTOS FOREIGN KEY (ID_CONTACTO) REFERENCES CONTACTOS (ID) ON DELETE CASCADE ON UPDATE CASCADE;
ALTER TABLE EMPRESAS_DATOS_BANCO ADD CONSTRAINT FK_EMPRESAS_DATOS_BANCO FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE CASCADE ON UPDATE CASCADE; ALTER TABLE EMPRESAS_DATOS_BANCO ADD CONSTRAINT FK_EMPRESAS_DATOS_BANCO FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE CASCADE ON UPDATE CASCADE;
ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT FK_FACTURAS_CLIENTE_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION; ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT FK_FACTURAS_CLIENTE_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION;
ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT FK_FACTURAS_CLIENTE_COMISION FOREIGN KEY (ID_COMISION_LIQUIDADA) REFERENCES COMISIONES_LIQUIDADAS (ID) ON DELETE SET NULL ON UPDATE CASCADE;
ALTER TABLE FACTURAS_PROVEEDOR ADD CONSTRAINT FK_FACTURAS_PROVEEDOR_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION; ALTER TABLE FACTURAS_PROVEEDOR ADD CONSTRAINT FK_FACTURAS_PROVEEDOR_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION;
ALTER TABLE MOVIMIENTOS ADD CONSTRAINT FK_MOVIMIENTOS2 FOREIGN KEY (ID_ALMACEN) REFERENCES ALMACENES (ID); ALTER TABLE MOVIMIENTOS ADD CONSTRAINT FK_MOVIMIENTOS2 FOREIGN KEY (ID_ALMACEN) REFERENCES ALMACENES (ID);
ALTER TABLE OBRAS_EJECUCIONES_PRESUPUESTOS ADD CONSTRAINT FK_OBRAS_EJE_PRE_1 FOREIGN KEY (ID_EJECUCION) REFERENCES OBRAS_EJECUCIONES (ID); ALTER TABLE OBRAS_EJECUCIONES_PRESUPUESTOS ADD CONSTRAINT FK_OBRAS_EJE_PRE_1 FOREIGN KEY (ID_EJECUCION) REFERENCES OBRAS_EJECUCIONES (ID);

102
Source/Base/Base.dproj
View File

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

3
Source/Base/Conexion/uDataModuleConexion.dfm
View File

@ -12,9 +12,8 @@ object dmConexion: TdmConexion
object ROChannel: TROWinInetHTTPChannel object ROChannel: TROWinInetHTTPChannel
UserAgent = 'RemObjects SDK' UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8099/bin' TargetURL = 'http://localhost:8099/bin'
TrustInvalidCA = False
DispatchOptions = []
ServerLocators = <> ServerLocators = <>
DispatchOptions = []
Left = 40 Left = 40
Top = 24 Top = 24
end end

2
Source/Cliente/FactuGES.dproj
View File

@ -54,7 +54,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,0,4,0 FILEVERSION 1,0,6,0
PRODUCTVERSION 1,0,4,0 PRODUCTVERSION 1,0,6,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.0.4.0\0" VALUE "FileVersion", "1.0.6.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.0.4.0\0" VALUE "ProductVersion", "1.0.6.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2
Source/Cliente/uBootStrap.pas
View File

@ -54,7 +54,7 @@ begin
LoadModule('HistoricoMovimientos_plugin.bpl'); LoadModule('HistoricoMovimientos_plugin.bpl');
LoadModule(MODULENAME_COMISIONES); LoadModule(MODULENAME_COMISIONES);
// LoadModule('GestorInformes_plugin.bpl'); LoadModule('GestorInformes_plugin.bpl');
end; end;
end; end;

8
Source/Informes/1/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

67
Source/Informes/1/InformeIVAClientes.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/2/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

65
Source/Informes/2/InformeIVAClientes.fr3 Normal file
View File

@ -0,0 +1,65 @@
<?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.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40342,8057137847" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="513" Top="4" Width="495" Height="129" ShowHint="False" Color="-16777211"/>
<TfrxMemoView Name="NombreCliente" Left="521,85807" Top="13" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE IVA DE FACTURAS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="521,85807" Top="34,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="552" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="88,77953" Top="25" Width="363,75" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="452,53" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Left="626,54" Top="25" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="721,54" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="909,78742599" Top="25" Width="102" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="533,87" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="816" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe RE"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo4" Left="88,78" Top="0" Width="363,75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="452,53" Top="0" Width="81,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Left="533,87" Top="0" Width="92,68" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="626,54" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="721,54" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="912,55" Top="0" Width="99" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo2" Left="817" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_RE&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="911" Top="0,37774772" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="721" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="626" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="625" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo5" Left="816" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_RE&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de cliente"/>
<TfrxMemoView Name="Memo16" Left="383,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo17" Left="478,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo22" Left="668,63" Top="60" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="23" Width="485,37013" Height="20,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por tipos de IVA de las facturas de cliente"/>
<TfrxMemoView Name="Memo19" Left="573" Top="60" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe RE"/>
</TfrxHeader>
<TfrxMasterData Name="DatosMAestros2" Height="17" Left="0" Top="440" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IVA&#34;]"/>
<TfrxMemoView Name="Memo10" Left="383,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="478,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="668,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo33" Left="574" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_RE&#34;]"/>
</TfrxMasterData>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="517" Width="1009,13451">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="383,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Align="baLeft" Left="478,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="668,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo34" Align="baLeft" Left="573,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_RE&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
</TfrxReportPage>
</TfrxReport>

2
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -10,12 +10,12 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Top = 16 Top = 16
end end
object rda_AlbaranesCliente: TDARemoteDataAdapter object rda_AlbaranesCliente: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 43 Left = 43
Top = 151 Top = 151
end end

3
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
View File

@ -9,8 +9,7 @@ uses
uIDataModuleAlbaranesCliente, uBizAlbaranesCliente, uBizDetallesAlbaranCliente, uBizDetalleColoresAlbaranCliente, uIDataModuleAlbaranesCliente, uBizAlbaranesCliente, uBizDetallesAlbaranCliente, uBizDetalleColoresAlbaranCliente,
uIDataModuleAlbaranesClienteReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable, uIDataModuleAlbaranesClienteReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable,
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils, uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils;
uDADataAdapter;
type type
TDataModuleAlbaranesCliente = class(TDataModuleBase, IDataModuleAlbaranesCliente, IDataModuleAlbaranesClienteReport) TDataModuleAlbaranesCliente = class(TDataModuleBase, IDataModuleAlbaranesCliente, IDataModuleAlbaranesClienteReport)

6
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -9,8 +9,9 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Height = 399 Height = 399
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitTop = 65
ExplicitWidth = 802 ExplicitWidth = 802
ExplicitHeight = 362 ExplicitHeight = 399
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded] DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
@ -88,9 +89,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
end end
object cxGridViewREF_PEDIDO: TcxGridDBColumn object cxGridViewREF_PEDIDO: TcxGridDBColumn
DataBinding.FieldName = 'REF_PEDIDO' DataBinding.FieldName = 'REF_PEDIDO'
Visible = False
BestFitMaxWidth = 45 BestFitMaxWidth = 45
VisibleForCustomization = False
Width = 39 Width = 39
end end
object cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn object cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn
@ -201,6 +200,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Width = 802 Width = 802
Height = 65 Height = 65
ExplicitWidth = 802 ExplicitWidth = 802
ExplicitHeight = 65
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 802 Width = 802
ExplicitWidth = 802 ExplicitWidth = 802

2
Source/Modulos/Articulos/Data/uDataModuleArticulos.pas
View File

@ -9,7 +9,7 @@ uses
uDADesigntimeCall, uDADesigntimeCall,
uIDataModuleArticulos, uBizArticulos, uDataModuleBase, uDARemoteDataAdapter, uIDataModuleArticulos, uBizArticulos, uDataModuleBase, uDARemoteDataAdapter,
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable,
uBizArticulosProveedores, uDADataAdapter; uBizArticulosProveedores;
type type
TDataModuleArticulos = class(TDataModuleBase, IDataModuleArticulos) TDataModuleArticulos = class(TDataModuleBase, IDataModuleArticulos)

78
Source/Modulos/Comisiones/Comisiones_Group.groupproj
View File

@ -14,6 +14,12 @@
<Projects Include="..\Contactos\Model\Contactos_model.dproj" /> <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Plugin\Contactos_plugin.dproj" /> <Projects Include="..\Contactos\Plugin\Contactos_plugin.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Data\FacturasCliente_data.dproj" />
<Projects Include="..\Facturas de cliente\Model\FacturasCliente_model.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Remesas de cliente\Controller\RemesasCliente_controller.dproj" />
<Projects Include="..\Remesas de cliente\Views\RemesasCliente_view.dproj" />
<Projects Include="Controller\Comisiones_controller.dproj" /> <Projects Include="Controller\Comisiones_controller.dproj" />
<Projects Include="Data\Comisiones_data.dproj" /> <Projects Include="Data\Comisiones_data.dproj" />
<Projects Include="Model\Comisiones_model.dproj" /> <Projects Include="Model\Comisiones_model.dproj" />
@ -89,6 +95,51 @@
<Target Name="Contactos_view:Make"> <Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" /> <MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contactos_plugin">
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.dproj" Targets="" />
</Target>
<Target Name="Contactos_plugin:Clean">
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_plugin:Make">
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_model">
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_model:Clean">
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_model:Make">
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_data">
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_data:Clean">
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_data:Make">
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_controller">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_controller:Clean">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Comisiones_model"> <Target Name="Comisiones_model">
<MSBuild Projects="Model\Comisiones_model.dproj" Targets="" /> <MSBuild Projects="Model\Comisiones_model.dproj" Targets="" />
</Target> </Target>
@ -152,23 +203,32 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contactos_plugin"> <Target Name="RemesasCliente_view">
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.dproj" Targets="" /> <MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="" />
</Target> </Target>
<Target Name="Contactos_plugin:Clean"> <Target Name="RemesasCliente_view:Clean">
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.dproj" Targets="Clean" /> <MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="Clean" />
</Target> </Target>
<Target Name="Contactos_plugin:Make"> <Target Name="RemesasCliente_view:Make">
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.dproj" Targets="Make" /> <MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="RemesasCliente_controller">
<MSBuild Projects="..\Remesas de cliente\Controller\RemesasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="RemesasCliente_controller:Clean">
<MSBuild Projects="..\Remesas de cliente\Controller\RemesasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="RemesasCliente_controller:Make">
<MSBuild Projects="..\Remesas de cliente\Controller\RemesasCliente_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Comisiones_model;Comisiones_data;Comisiones_controller;Comisiones_view;Comisiones_plugin;FactuGES;FactuGES_Server;Contactos_plugin" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;Comisiones_model;Comisiones_data;Comisiones_controller;Comisiones_view;Comisiones_plugin;FactuGES;FactuGES_Server;RemesasCliente_view;RemesasCliente_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Comisiones_model:Clean;Comisiones_data:Clean;Comisiones_controller:Clean;Comisiones_view:Clean;Comisiones_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contactos_plugin:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;Comisiones_model:Clean;Comisiones_data:Clean;Comisiones_controller:Clean;Comisiones_view:Clean;Comisiones_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RemesasCliente_view:Clean;RemesasCliente_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Comisiones_model:Make;Comisiones_data:Make;Comisiones_controller:Make;Comisiones_view:Make;Comisiones_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contactos_plugin:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;Comisiones_model:Make;Comisiones_data:Make;Comisiones_controller:Make;Comisiones_view:Make;Comisiones_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RemesasCliente_view:Make;RemesasCliente_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

Binary file not shown.

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

@ -50,6 +50,8 @@
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" /> <DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.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\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" /> <DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" /> <DCCReference Include="..\..\Lib\vcl.dcp" />

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

@ -34,7 +34,7 @@ type
function EsModificable(AComision: IBizComision): Boolean; function EsModificable(AComision: IBizComision): Boolean;
function EsEliminable(AComision: IBizComision): Boolean; function EsEliminable(AComision: IBizComision): Boolean;
// function ElegirComisiones(AComisiones : IBizComision; AMensaje: String; AMultiSelect: Boolean): IBizComision; function ElegirFacturasComision(AComision : IBizComision): Boolean;
function ExtraerSeleccionados(AComisiones: IBizComision) : IBizComision; function ExtraerSeleccionados(AComisiones: IBizComision) : IBizComision;
function DarListaAnosComisiones: TStringList; function DarListaAnosComisiones: TStringList;
@ -83,7 +83,7 @@ type
function EsModificable(AComision: IBizComision): Boolean; function EsModificable(AComision: IBizComision): Boolean;
function EsEliminable(AComision: IBizComision): Boolean; function EsEliminable(AComision: IBizComision): Boolean;
// function ElegirFacturas(AComisions : IBizComision; AMensaje: String; AMultiSelect: Boolean): IBizComision; function ElegirFacturasComision(AComision : IBizComision): Boolean;
function ExtraerSeleccionados(AComisiones: IBizComision) : IBizComision; function ExtraerSeleccionados(AComisiones: IBizComision) : IBizComision;
function DarListaAnosComisiones: TStringList; function DarListaAnosComisiones: TStringList;
@ -93,11 +93,11 @@ type
implementation implementation
uses uses
Windows, Controls, cxControls, DB, uEditorRegistryUtils, schComisionesClient_Intf, Dialogs, uDialogUtils, Windows, Controls, cxControls, DB, uEditorRegistryUtils, schComisionesClient_Intf,
uBizContactos, uIEditorComisiones, uIEditorComision, uFactuGES_App, uBizContactos, uIEditorComisiones, uIEditorComision, uFactuGES_App,
uDataModuleComisiones, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils, uDataModuleComisiones, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
uROTypes, DateUtils, Forms, uIntegerListUtils, uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs, uStringsUtils, uROTypes, DateUtils, Forms, uIntegerListUtils, uSistemaFunc, uDialogElegirEMail, uEMailUtils, uStringsUtils,
uROXMLIntf; uROXMLIntf, uBizFacturasCliente, uFacturasClienteController;
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente; {procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@ -502,8 +502,8 @@ begin
AComision.DataTable.Post; AComision.DataTable.Post;
//Tambien hacemos post de sus tablas hija //Tambien hacemos post de sus tablas hija
// if (AComision.FacturasComision.DataTable.State in dsEditModes) then if (AComision.FacturasComision.DataTable.State in dsEditModes) then
// AComision.FacturasComision.DataTable.Post; AComision.FacturasComision.DataTable.Post;
if (AComision.ID_AGENTE < 0) or (AComision.ID_AGENTE = 0) then if (AComision.ID_AGENTE < 0) or (AComision.ID_AGENTE = 0) then
// No comprobar el objeto Cliente por que puede fallar la validación // No comprobar el objeto Cliente por que puede fallar la validación
@ -515,8 +515,8 @@ begin
if (EsFechaVacia(AComision.FECHA)) then if (EsFechaVacia(AComision.FECHA)) then
raise Exception.Create('Debe indicar la fecha de esta comision'); raise Exception.Create('Debe indicar la fecha de esta comision');
// if (AComision.FacturasComision.DataTable.RecordCount = 0) then if (AComision.FacturasComision.DataTable.RecordCount = 0) then
// raise Exception.Create('La comisión debe tener al menos una factura en su contenido'); raise Exception.Create('La comisión debe tener al menos una factura en su contenido');
{ Asegurarse de valores en campos "automáticos" tanto { Asegurarse de valores en campos "automáticos" tanto
en MODIFICACIÓN como en INSERCIÓN. } en MODIFICACIÓN como en INSERCIÓN. }
@ -633,12 +633,69 @@ begin
end; end;
} }
function TComisionesController.ElegirFacturasComision(AComision: IBizComision): Boolean;
var
AFacturasClienteController: IFacturasClienteController;
AFacturasAgente : IBizFacturaCliente;
AFacturasSeleccionadas : IBizFacturaCliente;
Cadena: String;
begin
Result := False;
if (AComision.ID_AGENTE <> 0) then
begin
if Assigned(AComision.FacturasComision) then
begin
with AComision.FacturasComision.DataTable do
begin
if not Active then Active := True;
First;
Cadena := '';
While not Eof do
begin
if (Length(Cadena) > 0) then
Cadena := Cadena + ', ';
Cadena := Cadena + IntToStr(AComision.FacturasComision.ID);
Next;
end;
end;
end;
AFacturasClienteController := TFacturasClienteController.Create;
AFacturasAgente := AFacturasClienteController.BuscarTodasPendientesComision(AComision.ID_AGENTE, AComision.ID, Cadena);
AFacturasSeleccionadas := (AFacturasClienteController.ElegirFacturas(AFacturasAgente, 'Elija uno o más facturas para incluirlos en esta liquidación de comisiones', True) as IBizFacturaCliente);
if Assigned(AFacturasSeleccionadas) then
begin
ShowHourglassCursor;
try
//Copia las facturas seleccionadas de las facturas de la comision
DuplicarRegistros(AFacturasSeleccionadas.DataTable, AComision.FacturasComision.DataTable, mdrTodos, True, True, True);
Result := True;
finally
HideHourglassCursor;
end;
end;
AFacturasClienteController := Nil;
AFacturasAgente := Nil;
AFacturasSeleccionadas := Nil;
end
else
ShowWarningMessage('Debe elegir primero el vendedor asociado a la liquidación');
end;
function TComisionesController.Eliminar(AComision: IBizComision; AllItems: Boolean = false): Boolean; function TComisionesController.Eliminar(AComision: IBizComision; AllItems: Boolean = false): Boolean;
//En el caso de eliminar almenos un elemento del conjunto se devuelve true //En el caso de eliminar almenos un elemento del conjunto se devuelve true
var var
bEliminado: Boolean; bEliminado: Boolean;
begin begin
//Importante revisar que existe la FK_FACTURAS_CLIENTE_COMISION ya que cuando se elimina la cabecera es lo que funciona
//no funciona el comando deletefacturascomision por business
bEliminado := False; bEliminado := False;
if not Assigned(AComision) then if not Assigned(AComision) then

73
Source/Modulos/Comisiones/Data/Comisiones_data.dproj
View File

@ -31,74 +31,33 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject> <Delphi.Personality> <Parameters> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Comisiones_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">False</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">Comisiones_data.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="Comisiones_data.dpk"> <DelphiCompile Include="Comisiones_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\..\Contactos\adortl.dcp" />
<DCCReference Include="Comisiones_model.dcp" /> <DCCReference Include="..\..\Contactos\Comisiones_model.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\..\Contactos\cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Contactos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\..\Contactos\dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="..\..\Contactos\dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" /> <DCCReference Include="..\..\Contactos\dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Contactos\dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\..\Contactos\dxThemeD11.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Contactos\RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\..\Contactos\rtl.dcp" />
<DCCReference Include="..\..\Contactos\vcl.dcp" />
<DCCReference Include="..\..\Contactos\vcldb.dcp" />
<DCCReference Include="..\..\Contactos\vclx.dcp" />
<DCCReference Include="uDataModuleComisiones.pas"> <DCCReference Include="uDataModuleComisiones.pas">
<Form>DataModuleVendedores</Form> <Form>DataModuleComisiones</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6011 EurekaLog Version=6011

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

@ -23,6 +23,28 @@ inherited DataModuleComisiones: TDataModuleComisiones
Left = 48 Left = 48
Top = 80 Top = 80
end end
object tbl_ListaAnosComisiones: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ANO'
DataType = datString
Size = 254
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
RemoteDataAdapter = rda_Comisiones
LogicalName = 'ListaAnosComisiones'
IndexDefs = <>
Left = 168
Top = 72
end
object ds_ListaAnosComisiones: TDADataSource
DataSet = tbl_ListaAnosComisiones.Dataset
DataTable = tbl_ListaAnosComisiones
Left = 168
Top = 16
end
object tbl_Comisiones: TDAMemDataTable object tbl_Comisiones: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
@ -91,63 +113,104 @@ inherited DataModuleComisiones: TDataModuleComisiones
LogicalName = 'Comisiones' LogicalName = 'Comisiones'
IndexDefs = <> IndexDefs = <>
Left = 168 Left = 168
Top = 192 Top = 184
end end
object ds_Comisiones: TDADataSource object ds_Comisiones: TDADataSource
DataSet = tbl_Comisiones.Dataset DataSet = tbl_Comisiones.Dataset
DataTable = tbl_Comisiones DataTable = tbl_Comisiones
Left = 168 Left = 168
Top = 136 Top = 128
end end
object tbl_FacturasComision: TDAMemDataTable object tbl_FacturasComision: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
Required = True
DictionaryEntry = 'FacturasCliente_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
end DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
end end
item item
Name = 'ID_COMISION_LIQUIDADA' Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger DataType = datInteger
ServerAutoRefresh = True
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
end end
item item
Name = 'ID_CLIENTE' Name = 'REFERENCIA'
DataType = datInteger DataType = datString
Size = 20
DisplayLabel = 'Referencia'
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end end
item item
Name = 'ID_AGENTE' Name = 'FECHA_FACTURA'
DataType = datInteger DataType = datDateTime
DisplayLabel = 'Fecha de las factura'
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
DisplayLabel = 'Fecha de vencimiento'
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
DisplayLabel = 'Situaci'#243'n'
DictionaryEntry = 'FacturasCliente_SITUACION'
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Base imponible'
Alignment = taRightJustify
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DisplayLabel = 'NIF/CIF'
DictionaryEntry = 'FacturasCliente_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
DisplayLabel = 'Cliente'
DictionaryEntry = 'FacturasCliente_NOMBRE'
end
item
Name = 'ID_AGENTE'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
end end
item item
Name = 'COMISION' Name = 'COMISION'
DataType = datCurrency DataType = datFloat
DictionaryEntry = 'FacturasCliente_COMISION'
end end
item item
Name = 'IMPORTE_COMISION' Name = 'IMPORTE_COMISION'
DataType = datCurrency DataType = datCurrency
DecimalPrecision = 11
DecimalScale = 2
DictionaryEntry = 'FacturasCliente_IMPORTE_COMISION'
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere
@ -158,35 +221,13 @@ inherited DataModuleComisiones: TDataModuleComisiones
DetailFields = 'ID_COMISION_LIQUIDADA' DetailFields = 'ID_COMISION_LIQUIDADA'
LogicalName = 'FacturasComision' LogicalName = 'FacturasComision'
IndexDefs = <> IndexDefs = <>
Left = 264 Left = 296
Top = 192 Top = 184
end end
object ds_FacturasComision: TDADataSource object ds_FacturasComision: TDADataSource
DataSet = tbl_FacturasComision.Dataset DataSet = tbl_FacturasComision.Dataset
DataTable = tbl_FacturasComision DataTable = tbl_FacturasComision
Left = 264 Left = 296
Top = 136 Top = 128
end
object tbl_ListaAnosComisiones: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ANO'
DataType = datString
Size = 254
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
RemoteDataAdapter = rda_Comisiones
LogicalName = 'ListaAnosComisiones'
IndexDefs = <>
Left = 168
Top = 72
end
object ds_ListaAnosComisiones: TDADataSource
DataSet = tbl_ListaAnosComisiones.Dataset
DataTable = tbl_ListaAnosComisiones
Left = 168
Top = 16
end end
end end

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

@ -10,19 +10,19 @@ uses
uIDataModuleComisiones, uBizComisiones, //uIDataModuleComisionesReport, uIDataModuleComisiones, uBizComisiones, //uIDataModuleComisionesReport,
uDADesigntimeCall, uDataModuleBase, uDADesigntimeCall, uDataModuleBase,
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
uDARemoteDataAdapter, uIntegerListUtils, uDADataAdapter; uDARemoteDataAdapter, uIntegerListUtils;
type type
TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones) //, IDataModuleComisionesReport) TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones) //, IDataModuleComisionesReport)
RORemoteService: TRORemoteService; RORemoteService: TRORemoteService;
rda_Comisiones: TDARemoteDataAdapter; rda_Comisiones: TDARemoteDataAdapter;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
tbl_ListaAnosComisiones: TDAMemDataTable;
ds_ListaAnosComisiones: TDADataSource;
tbl_Comisiones: TDAMemDataTable; tbl_Comisiones: TDAMemDataTable;
ds_Comisiones: TDADataSource; ds_Comisiones: TDADataSource;
tbl_FacturasComision: TDAMemDataTable; tbl_FacturasComision: TDAMemDataTable;
ds_FacturasComision: TDADataSource; ds_FacturasComision: TDADataSource;
tbl_ListaAnosComisiones: TDAMemDataTable;
ds_ListaAnosComisiones: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
private private
function _GetFacturasComision : IBizFacturasComision; function _GetFacturasComision : IBizFacturasComision;
@ -152,7 +152,7 @@ begin
with TBizComision(AComision.BusinessEventsObj) do with TBizComision(AComision.BusinessEventsObj) do
begin begin
// FacturasComision := _GetFacturasComision; FacturasComision := _GetFacturasComision;
end; end;
Result := (AComision as IBizComision); Result := (AComision as IBizComision);

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

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

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

@ -23,16 +23,21 @@ type
property FacturasComision: IBizFacturasComision read GetFacturasComision write SetFacturasComision; property FacturasComision: IBizFacturasComision read GetFacturasComision write SetFacturasComision;
function EsNuevo : Boolean; function EsNuevo : Boolean;
procedure CalcularImporteTotal;
end; end;
TBizFacturasComision = class(TFacturasComisionDataTableRules, IBizFacturasComision) TBizFacturasComision = class(TFacturasComisionDataTableRules, IBizFacturasComision)
protected
procedure CalcularComision;
procedure COMISIONOnChange(Sender: TDACustomField);
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end; end;
TBizComision = class(TComisionesDataTableRules, IBizComision, ISeleccionable) TBizComision = class(TComisionesDataTableRules, IBizComision, ISeleccionable)
private private
FSeleccionableInterface : ISeleccionable; FSeleccionableInterface : ISeleccionable;
procedure CalcularComision;
protected protected
FFacturasComision : IBizFacturasComision; FFacturasComision : IBizFacturasComision;
@ -41,13 +46,11 @@ type
function GetFacturasComision: IBizFacturasComision; function GetFacturasComision: IBizFacturasComision;
procedure SetFacturasComision(Value: IBizFacturasComision); procedure SetFacturasComision(Value: IBizFacturasComision);
procedure COMISIONOnChange(Sender: TDACustomField);
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
public public
function EsNuevo : Boolean; function EsNuevo : Boolean;
procedure IniciarValoresComisionNueva; procedure IniciarValoresComisionNueva;
procedure CalcularImporteTotal;
property FacturasComision: IBizFacturasComision read GetFacturasComision write SetFacturasComision; property FacturasComision: IBizFacturasComision read GetFacturasComision write SetFacturasComision;
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface write FSeleccionableInterface implements ISeleccionable; property SeleccionableInterface : ISeleccionable read FSeleccionableInterface write FSeleccionableInterface implements ISeleccionable;
@ -63,55 +66,10 @@ uses
Variants, cxDateUtils, uFactuGES_App; Variants, cxDateUtils, uFactuGES_App;
{ TBizComision } { TBizComision }
procedure TBizComision.CalcularComision;
begin
{ if not Self.DataTable.Editing then
Edit;
IMPORTE_COMISION := (COMISION / 100) * BASE_IMPONIBLE;
}
end;
{procedure TBizComision.CalcularDescuento;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_DESCUENTO := (DESCUENTO / 100) * IMPORTE_NETO;
end;}
procedure TBizComision.CalcularImporteTotal;
begin
{ DataTable.DisableControls;
DataTable.Fields.FieldEventsDisabled := True;
try
if not Self.DataTable.Editing then
Edit;
IMPORTE_TOTAL := BASE_IMPONIBLE + IMPORTE_IVA + IMPORTE_RE;
finally
DataTable.Fields.FieldEventsDisabled := False;
DataTable.EnableControls;
end;
}
end;
procedure TBizComision.COMISIONOnChange(Sender: TDACustomField);
begin
CalcularImporteTotal;
end;
constructor TBizComision.Create(aDataTable: TDADataTable); constructor TBizComision.Create(aDataTable: TDADataTable);
begin begin
inherited; inherited;
{
with DataTable do
begin
FieldByName(fld_ID).OnChange := COMISIONOnChange;
FieldByName(fld_FacturasClienteIVA).OnChange := IVAOnChange;
FieldByName(fld_FacturasClienteRE).OnChange := REOnChange;
end;
}
FFacturasComisionLink := TDADataSource.Create(NIL); FFacturasComisionLink := TDADataSource.Create(NIL);
FFacturasComisionLink.DataTable := aDataTable; FFacturasComisionLink.DataTable := aDataTable;
@ -155,6 +113,40 @@ begin
EnlazarMaestroDetalle(FFacturasComisionLink, FFacturasComision); EnlazarMaestroDetalle(FFacturasComisionLink, FFacturasComision);
end; end;
{ TBizFacturasComision }
procedure TBizFacturasComision.CalcularComision;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_COMISION := (COMISION / 100) * BASE_IMPONIBLE;
end;
procedure TBizFacturasComision.COMISIONOnChange(Sender: TDACustomField);
begin
CalcularComision;
end;
constructor TBizFacturasComision.Create(aDataTable: TDADataTable);
begin
inherited;
with DataTable do
begin
FieldByName(fld_FacturasComisionCOMISION).OnChange := COMISIONOnChange;
end;
end;
destructor TBizFacturasComision.Destroy;
begin
with DataTable do
begin
FieldByName(fld_FacturasComisionCOMISION).OnChange := NIL;
end;
inherited;
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_COMISIONES, TBizComision); RegisterDataTableRules(BIZ_CLIENT_COMISIONES, TBizComision);
RegisterDataTableRules(BIZ_CLIENT_FACTURASCOMISION, TBizFacturasComision); RegisterDataTableRules(BIZ_CLIENT_FACTURASCOMISION, TBizFacturasComision);

28
Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dproj
View File

@ -38,20 +38,20 @@
<DelphiCompile Include="Comisiones_plugin.dpk"> <DelphiCompile Include="Comisiones_plugin.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" /> <DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Comisiones_controller.dcp" /> <DCCReference Include="..\..\..\Servidor\Comisiones_controller.dcp" />
<DCCReference Include="..\..\Lib\Comisiones_view.dcp" /> <DCCReference Include="..\..\..\Servidor\Comisiones_view.dcp" />
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" /> <DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" /> <DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" />
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" /> <DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\PluginSDK_D11R.dcp" /> <DCCReference Include="..\..\..\Servidor\PluginSDK_D11R.dcp" />
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" /> <DCCReference Include="..\..\..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Lib\PNG_D10.dcp" /> <DCCReference Include="..\..\..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" /> <DCCReference Include="..\..\..\Servidor\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" /> <DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" /> <DCCReference Include="..\..\..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" /> <DCCReference Include="..\..\..\Servidor\vclx.dcp" />
<DCCReference Include="uPluginComisiones.pas"> <DCCReference Include="uPluginComisiones.pas">
<Form>PluginComisiones</Form> <Form>PluginComisiones</Form>
</DCCReference> </DCCReference>

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

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

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

@ -44,19 +44,15 @@ object srvComisiones: TsrvComisiones
Params = <> Params = <>
Statements = < Statements = <
item item
Connection = 'IBX'
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
TargetTable = 'V_FACTURAS_CLIENTE' TargetTable = 'V_FACTURAS_CLIENTE'
Name = 'IBX'
SQL = SQL =
'SELECT V_FACTURAS_CLIENTE.ID,'#10' V_FACTURAS_CLIENTE.ID_EMPRE' + 'SELECT '#10' ID, ID_EMPRESA, ID_COMISION_LIQUIDADA, REFERENCIA, F' +
'SA,'#10' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_C' + 'ECHA_FACTURA, FECHA_VENCIMIENTO,'#10' SITUACION, BASE_IMPONIBLE, ' +
'LIENTE.REFERENCIA,'#10' V_FACTURAS_CLIENTE.SITUACION,'#10' V' + 'ID_CLIENTE, NIF_CIF, NOMBRE,'#10' ID_AGENTE, COMISION, IMPORTE_CO' +
'_FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA,'#10' V_FACTURAS_CLIEN' + 'MISION'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE {Where}'#10
'TE.ID_CLIENTE,'#10' V_FACTURAS_CLIENTE.ID_AGENTE,'#10' V_FAC' +
'TURAS_CLIENTE.BASE_IMPONIBLE,'#10' V_FACTURAS_CLIENTE.COMISION' +
','#10' V_FACTURAS_CLIENTE.IMPORTE_COMISION'#10#10'FROM V_FACTURAS_CL' +
'IENTE'#10'WHERE {Where}'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -67,33 +63,41 @@ object srvComisiones: TsrvComisiones
DatasetField = 'ID_EMPRESA' DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA' TableField = 'ID_EMPRESA'
end end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item item
DatasetField = 'FECHA_FACTURA' DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA'
end end
item item
DatasetField = 'REFERENCIA' DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'REFERENCIA' TableField = 'FECHA_VENCIMIENTO'
end end
item item
DatasetField = 'SITUACION' DatasetField = 'SITUACION'
TableField = 'SITUACION' TableField = 'SITUACION'
end end
item item
DatasetField = 'ID_COMISION_LIQUIDADA' DatasetField = 'BASE_IMPONIBLE'
TableField = 'ID_COMISION_LIQUIDADA' TableField = 'BASE_IMPONIBLE'
end end
item item
DatasetField = 'ID_CLIENTE' DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE' TableField = 'ID_CLIENTE'
end end
item item
DatasetField = 'ID_AGENTE' DatasetField = 'NIF_CIF'
TableField = 'ID_AGENTE' TableField = 'NIF_CIF'
end end
item item
DatasetField = 'BASE_IMPONIBLE' DatasetField = 'NOMBRE'
TableField = 'BASE_IMPONIBLE' TableField = 'NOMBRE'
end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end end
item item
DatasetField = 'COMISION' DatasetField = 'COMISION'
@ -102,6 +106,10 @@ object srvComisiones: TsrvComisiones
item item
DatasetField = 'IMPORTE_COMISION' DatasetField = 'IMPORTE_COMISION'
TableField = 'IMPORTE_COMISION' TableField = 'IMPORTE_COMISION'
end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
end> end>
end> end>
Name = 'FacturasComision' Name = 'FacturasComision'
@ -109,49 +117,82 @@ object srvComisiones: TsrvComisiones
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
Required = True
ServerAutoRefresh = True
InPrimaryKey = True InPrimaryKey = True
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
end DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
end end
item item
Name = 'ID_COMISION_LIQUIDADA' Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger DataType = datInteger
ServerAutoRefresh = True
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
end end
item item
Name = 'ID_CLIENTE' Name = 'REFERENCIA'
DataType = datInteger DataType = datString
Size = 20
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end end
item item
Name = 'ID_AGENTE' Name = 'FECHA_FACTURA'
DataType = datInteger DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_SITUACION'
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency 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 = 100
DictionaryEntry = 'FacturasCliente_NOMBRE'
end
item
Name = 'ID_AGENTE'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
end end
item item
Name = 'COMISION' Name = 'COMISION'
DataType = datCurrency DataType = datFloat
DictionaryEntry = 'FacturasCliente_COMISION'
end end
item item
Name = 'IMPORTE_COMISION' Name = 'IMPORTE_COMISION'
DataType = datCurrency DataType = datCurrency
DecimalPrecision = 11
DecimalScale = 2
DictionaryEntry = 'FacturasCliente_IMPORTE_COMISION'
end> end>
end end
item item
@ -214,6 +255,7 @@ object srvComisiones: TsrvComisiones
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_COMISIONES_LIQUID_ID' GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Comisiones_ID' DictionaryEntry = 'Comisiones_ID'
InPrimaryKey = True InPrimaryKey = True
end end
@ -261,6 +303,256 @@ object srvComisiones: TsrvComisiones
Size = 30 Size = 30
DictionaryEntry = 'Comisiones_USUARIO' DictionaryEntry = 'Comisiones_USUARIO'
end> end>
end
item
Params = <
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
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
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'COMISION'
TableField = 'COMISION'
end
item
DatasetField = 'IMPORTE_COMISION'
TableField = 'IMPORTE_COMISION'
end>
end>
Name = 'FacturasComision_Refresh'
Fields = <
item
Name = 'ID'
DataType = datInteger
ServerAutoRefresh = True
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
ServerAutoRefresh = True
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'ID_AGENTE'
DataType = datInteger
end
item
Name = 'COMISION'
DataType = datFloat
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
end>
end> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
@ -413,7 +705,8 @@ object srvComisiones: TsrvComisiones
item item
Params = < Params = <
item item
Name = 'IDCOMISIONLIQUIDADA' Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
Value = '' Value = ''
end end
item item
@ -422,7 +715,45 @@ object srvComisiones: TsrvComisiones
Value = '' Value = ''
end end
item item
Name = 'IMPORTECOMISION' Name = 'IMPORTE_COMISION'
DataType = datDecimal
Value = ''
end
item
Name = 'ID'
DataType = datInteger
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'FACTURAS_CLIENTE'
SQL =
'UPDATE FACTURAS_CLIENTE'#10' SET'#10' ID_COMISION_LIQUIDADA = :ID_CO' +
'MISION_LIQUIDADA,'#10' COMISION = :COMISION,'#10' IMPORTE_COMISION' +
' = :IMPORTE_COMISION'#10' WHERE'#10' (ID = :ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_FacturasComision'
end
item
Params = <
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
Value = ''
end
item
Name = 'COMISION'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_COMISION'
DataType = datDecimal
Value = '' Value = ''
end end
item item
@ -436,19 +767,18 @@ object srvComisiones: TsrvComisiones
Default = True Default = True
TargetTable = 'FACTURAS_CLIENTE' TargetTable = 'FACTURAS_CLIENTE'
SQL = SQL =
'UPDATE FACTURAS_CLIENTE'#10' SET'#10' ID_COMISION_LIQUIDADA = :IDCOM' + 'UPDATE FACTURAS_CLIENTE'#10' SET'#10' ID_COMISION_LIQUIDADA = :ID_CO' +
'ISIONLIQUIDADA,'#10' COMISION = :COMISION,'#10' IMPORTE_COMISION =' + 'MISION_LIQUIDADA,'#10' COMISION = :COMISION,'#10' IMPORTE_COMISION' +
' :IMPORTECOMISION'#10' WHERE'#10' (ID = :OLD_ID)'#10 ' = :IMPORTE_COMISION'#10' WHERE'#10' (ID = :OLD_ID)'#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
Name = 'Insert_FacturasComision' Name = 'Update_FacturasComision'
end end
item item
Params = < Params = <
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -464,40 +794,6 @@ object srvComisiones: TsrvComisiones
ColumnMappings = <> ColumnMappings = <>
end> end>
Name = 'Delete_FacturasComision' Name = 'Delete_FacturasComision'
end
item
Params = <
item
Name = 'IDCOMISIONLIQUIDADA'
Value = ''
end
item
Name = 'COMISION'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTECOMISION'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'FACTURAS_CLIENTE'
SQL =
'UPDATE FACTURAS_CLIENTE'#10' SET '#10' ID_COMISION_LIQUIDADA = :IDCO' +
'MISIONLIQUIDADA,'#10' COMISION = :COMISION,'#10' IMPORTE_COMISION ' +
'= :IMPORTECOMISION'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_FacturasComision'
end> end>
RelationShips = < RelationShips = <
item item
@ -510,45 +806,45 @@ object srvComisiones: TsrvComisiones
end> end>
UpdateRules = < UpdateRules = <
item item
Name = 'Insert FacturasCliente' Name = 'Insert Comisiones'
DoUpdate = False DoUpdate = False
DoDelete = False DoDelete = False
DatasetName = 'FacturasCliente' DatasetName = 'Comisiones'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item item
Name = 'Insert DetallesFacturasCliente' Name = 'Insert FacturasComision'
DoUpdate = False DoUpdate = False
DoDelete = False DoDelete = False
DatasetName = 'FacturasCliente_Detalles' DatasetName = 'FacturasComision'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item item
Name = 'Update FacturasCliente' Name = 'Update Comisiones'
DoInsert = False DoInsert = False
DoDelete = False DoDelete = False
DatasetName = 'FacturasCliente' DatasetName = 'Comisiones'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item item
Name = 'Update DetallesFacturasCliente' Name = 'Update FacturasComision'
DoInsert = False DoInsert = False
DoDelete = False DoDelete = False
DatasetName = 'FacturasCliente_Detalles' DatasetName = 'FacturasComision'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item item
Name = 'Delete DetallesFacturasCliente' Name = 'Delete FacturasComision'
DoUpdate = False DoUpdate = False
DoInsert = False DoInsert = False
DatasetName = 'FacturasCliente_Detalles' DatasetName = 'FacturasComision'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item item
Name = 'Delete FacturasCliente' Name = 'Delete Comisiones'
DoUpdate = False DoUpdate = False
DoInsert = False DoInsert = False
DatasetName = 'FacturasCliente' DatasetName = 'Comisiones'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end> end>
Version = 0 Version = 0
@ -558,7 +854,39 @@ object srvComisiones: TsrvComisiones
object Diagrams: TDADiagrams object Diagrams: TDADiagrams
Left = 150 Left = 150
Top = 74 Top = 74
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10 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' +
'aAnosComisiones" Left="174,00" Top="118,00" />'#13#10' </Diagram>'#13#10'</' +
'Diagrams>'#13#10
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 80
end
object bpComisiones: TDABusinessProcessor
Schema = schComisiones
InsertCommandName = 'Insert_Comisiones'
DeleteCommandName = 'Delete_Comisiones'
UpdateCommandName = 'Update_Comisiones'
ReferencedDataset = 'Comisiones'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 24
end
object bpFacturasComision: TDABusinessProcessor
Schema = schComisiones
InsertCommandName = 'Insert_FacturasComision'
DeleteCommandName = 'Delete_FacturasComision'
UpdateCommandName = 'Update_FacturasComision'
ReferencedDataset = 'FacturasComision'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 80
end end
object DataDictionary: TDADataDictionary object DataDictionary: TDADataDictionary
Fields = < Fields = <
@ -700,58 +1028,6 @@ object srvComisiones: TsrvComisiones
DisplayLabel = 'Dto.' DisplayLabel = 'Dto.'
Alignment = taRightJustify Alignment = taRightJustify
end end
item
Name = 'FacturasCliente_Detalles_ID'
DataType = datAutoInc
GeneratorName = 'GEN_FACTURA_CLIENTE_DETALLES_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
item
Name = 'FacturasCliente_Detalles_ID_FACTURA'
DataType = datInteger
DisplayLabel = 'ID_FACTURA'
end
item
Name = 'FacturasCliente_Detalles_TIPO_DETALLE'
DataType = datString
Size = 25
DisplayLabel = 'Tipo detalle'
end
item
Name = 'FacturasCliente_Detalles_CONCEPTO'
DataType = datString
Size = 2000
DisplayLabel = 'Concepto'
end
item
Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
DataType = datCurrency
DisplayLabel = 'Importe unidad'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_Detalles_VISIBLE'
DataType = datInteger
DisplayLabel = #191'Visible?'
end
item
Name = 'FacturasCliente_Detalles_POSICION'
DataType = datInteger
DisplayLabel = 'Posici'#243'n'
end
item
Name = 'FacturasCliente_Detalles_CANTIDAD'
DataType = datFloat
DisplayLabel = 'Cantidad'
end
item item
Name = 'FacturasCliente_FECHA_PAGADO' Name = 'FacturasCliente_FECHA_PAGADO'
DataType = datDateTime DataType = datDateTime
@ -830,28 +1106,6 @@ object srvComisiones: TsrvComisiones
DataType = datInteger DataType = datInteger
DisplayLabel = 'ID_AGENTE' DisplayLabel = 'ID_AGENTE'
end end
item
Name = 'FacturasCliente_Detalles_ID_ARTICULO'
DataType = datInteger
end
item
Name = 'FacturasCliente_Detalles_DESCUENTO'
DataType = datFloat
end
item
Name = 'FacturasCliente_Detalles_IMPORTE_PORTE'
DataType = datCurrency
end
item
Name = 'FacturasCliente_Detalles_REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end
item item
Name = 'FacturasCliente_DATOS_BANCARIOS' Name = 'FacturasCliente_DATOS_BANCARIOS'
DataType = datString DataType = datString
@ -948,30 +1202,4 @@ object srvComisiones: TsrvComisiones
Left = 150 Left = 150
Top = 22 Top = 22
end end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 80
end
object bpComisiones: TDABusinessProcessor
Schema = schComisiones
InsertCommandName = 'Insert_Comisiones'
DeleteCommandName = 'Delete_Comisiones'
UpdateCommandName = 'Update_Comisiones'
ReferencedDataset = 'Comisiones'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 24
end
object bpFacturasComision: TDABusinessProcessor
Schema = schComisiones
InsertCommandName = 'Insert_FacturasComision'
DeleteCommandName = 'Delete_FacturasComision'
UpdateCommandName = 'Update_FacturasComision'
ReferencedDataset = 'FacturasComision'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 80
end
end end

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

@ -69,13 +69,16 @@ requires
PngComponentsD10, PngComponentsD10,
SpTBXLib_d11, SpTBXLib_d11,
TntUnicodeVcl, TntUnicodeVcl,
tb2k_d11; tb2k_d11,
cxGridD11,
cxExportD11;
contains contains
uComisionesViewRegister in 'uComisionesViewRegister.pas', uComisionesViewRegister in 'uComisionesViewRegister.pas',
uViewComisiones in 'uViewComisiones.pas' {frViewComisiones: TFrame}, uViewComisiones in 'uViewComisiones.pas' {frViewComisiones: TFrame},
uEditorComisiones in 'uEditorComisiones.pas' {fEditorComisiones: TfEditorComisiones}, uEditorComisiones in 'uEditorComisiones.pas' {fEditorComisiones: TfEditorFacturasCliente},
uViewComision in 'uViewComision.pas' {frViewComision: TFrame}, uViewComision in 'uViewComision.pas' {frViewComision: TFrame},
uEditorComision in 'uEditorComision.pas' {fEditorComision: TfEditorComision}; uEditorComision in 'uEditorComision.pas' {fEditorComision: TfEditorFacturasCliente},
uViewFacturasComision in 'uViewFacturasComision.pas' {frViewFacturasComision: TFrame};
end. end.

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

@ -46,7 +46,9 @@
<DCCReference Include="Contactos_view.dcp" /> <DCCReference Include="Contactos_view.dcp" />
<DCCReference Include="cxDataD11.dcp" /> <DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" /> <DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" /> <DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" /> <DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="DataAbstract_Core_D11.dcp" />
@ -78,7 +80,7 @@
<DCCReference Include="TntUnicodeVcl.dcp" /> <DCCReference Include="TntUnicodeVcl.dcp" />
<DCCReference Include="uComisionesViewRegister.pas" /> <DCCReference Include="uComisionesViewRegister.pas" />
<DCCReference Include="uEditorComision.pas"> <DCCReference Include="uEditorComision.pas">
<Form>fEditorComisions</Form> <Form>fEditorComision</Form>
<DesignClass>TfEditorFacturasCliente</DesignClass> <DesignClass>TfEditorFacturasCliente</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorComisiones.pas"> <DCCReference Include="uEditorComisiones.pas">
@ -93,6 +95,10 @@
<Form>frViewComisiones</Form> <Form>frViewComisiones</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewFacturasComision.pas">
<Form>frViewFacturaComision</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" /> <DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" /> <DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" /> <DCCReference Include="vcldb.dcp" />

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

@ -4,18 +4,20 @@ inherited fEditorComision: TfEditorComision
HorzScrollBar.Visible = False HorzScrollBar.Visible = False
VertScrollBar.Visible = False VertScrollBar.Visible = False
Caption = 'Ficha de almac'#233'n' Caption = 'Ficha de almac'#233'n'
ClientWidth = 632 ClientHeight = 525
ClientWidth = 722
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 640 ExplicitWidth = 730
ExplicitHeight = 559
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 632 Width = 722
Caption = 'Almac'#233'n' Caption = 'Almac'#233'n'
ExplicitWidth = 632 ExplicitWidth = 722
inherited Image1: TImage inherited Image1: TImage
Left = 499 Left = 589
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2 00001C0806000000720DDF940000000970485973000017120000171201679FD2
@ -40,15 +42,15 @@ inherited fEditorComision: TfEditorComision
ExplicitLeft = 607 ExplicitLeft = 607
end end
inherited lblDesbloquear: TcxLabel inherited lblDesbloquear: TcxLabel
Left = 534 Left = 624
ExplicitLeft = 534 ExplicitLeft = 624
AnchorX = 579 AnchorX = 669
AnchorY = 14 AnchorY = 14
end end
end end
inherited TBXDock: TSpTBXDock inherited TBXDock: TSpTBXDock
Width = 632 Width = 722
ExplicitWidth = 632 ExplicitWidth = 722
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 330 ExplicitWidth = 330
inherited TBXItem2: TSpTBXItem inherited TBXItem2: TSpTBXItem
@ -66,7 +68,7 @@ inherited fEditorComision: TfEditorComision
end end
inherited tbxMenu: TSpTBXToolbar inherited tbxMenu: TSpTBXToolbar
DockPos = 0 DockPos = 0
ExplicitWidth = 632 ExplicitWidth = 722
inherited TBXSubmenuItem4: TSpTBXSubmenuItem inherited TBXSubmenuItem4: TSpTBXSubmenuItem
inherited TBXItem8: TSpTBXItem inherited TBXItem8: TSpTBXItem
Visible = False Visible = False
@ -101,22 +103,127 @@ inherited fEditorComision: TfEditorComision
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 626 Width = 716
ExplicitWidth = 626 Height = 424
ExplicitWidth = 716
ExplicitHeight = 424
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 618 ExplicitWidth = 708
ExplicitHeight = 332 ExplicitHeight = 396
inline frViewComision1: TfrViewComision
Left = 0
Top = 0
Width = 708
Height = 130
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 708
ExplicitHeight = 130
inherited dxLayoutControl1: TdxLayoutControl
Width = 708
Height = 130
ExplicitWidth = 708
ExplicitHeight = 130
inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFecha: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 293
Width = 293
end
inherited eVendedor: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 381
Width = 381
end
inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 270
Width = 270
end
end
end
inline frViewFacturasComision1: TfrViewFacturasComision
Left = 0
Top = 130
Width = 708
Height = 266
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
ReadOnly = False
ExplicitTop = 130
ExplicitWidth = 708
ExplicitHeight = 266
inherited cxGrid: TcxGrid
Width = 708
Height = 241
ExplicitWidth = 708
ExplicitHeight = 241
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewFacturasComision1.cxGridViewIMPORTE_COMISION
end>
inherited cxGridViewID: TcxGridDBColumn
IsCaptionAssigned = True
end
end
end
inherited ToolBar1: TToolBar
Width = 708
ExplicitWidth = 708
inherited ToolButton3: TToolButton
ExplicitWidth = 98
end
inherited ToolButton8: TToolButton
ExplicitWidth = 99
end
end
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 632 Top = 506
Width = 722
Panels = < Panels = <
item item
Width = 200 Width = 200
end> end>
ExplicitWidth = 632 ExplicitTop = 506
ExplicitWidth = 722
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Top = 128 Top = 128

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

@ -15,10 +15,12 @@ uses
uIEditorComision, uComisionesController, JvExComCtrls, uIEditorComision, uComisionesController, JvExComCtrls,
JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, cxGraphics, cxControls, JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, cxGraphics, cxControls,
cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxLabel, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxLabel,
JvEnterTab; JvEnterTab, uViewDetallesGenerico, uViewFacturasComision;
type type
TfEditorComision = class(TfEditorDBItem, IEditorComision) TfEditorComision = class(TfEditorDBItem, IEditorComision)
frViewComision1: TfrViewComision;
frViewFacturasComision1: TfrViewFacturasComision;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@ -104,7 +106,7 @@ begin
if Comision.EsNuevo then if Comision.EsNuevo then
FTitulo := 'Nueva comisión' FTitulo := 'Nueva comisión'
else else
FTitulo := 'Comisión' + ' - ' + Comision.Descripcion; FTitulo := 'Comisión' + ' - ' + Comision.AGENTE;
end; end;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
@ -116,12 +118,24 @@ begin
dsDataTable.DataTable := FComision.DataTable; dsDataTable.DataTable := FComision.DataTable;
if Assigned(FViewComision) and Assigned(Comision) then if Assigned(FViewComision) and Assigned(Comision) then
begin
FViewComision.Comision := Comision; FViewComision.Comision := Comision;
frViewFacturasComision1.Comision := Comision;
end
else
begin
FViewComision.Comision := Nil;
frViewFacturasComision1.Comision := Nil;
end
end; end;
procedure TfEditorComision.SetController(const Value: IComisionesController); procedure TfEditorComision.SetController(const Value: IComisionesController);
begin begin
FController := Value; FController := Value;
if Assigned(FController) then
begin
frViewFacturasComision1.Controller := FController;
end;
end; end;
procedure TfEditorComision.SetViewComision(const Value: IViewComision); procedure TfEditorComision.SetViewComision(const Value: IViewComision);
@ -152,17 +166,8 @@ begin
end; end;
procedure TfEditorComision.AsignarVista; procedure TfEditorComision.AsignarVista;
var
AViewComision: TfrViewComision;
begin begin
AViewComision := TfrViewComision.create(Self); ViewComision := frViewComision1;
with AViewComision do
begin
Parent := pagGeneral;
Align := alClient;
// dxLayoutControlComision.LookAndFeel := dmBase.dxLayoutSkinLookAndFeel;
end;
ViewComision := AViewComision;
end; end;
constructor TfEditorComision.Create(AOwner: TComponent); constructor TfEditorComision.Create(AOwner: TComponent);
@ -179,6 +184,7 @@ begin
dsDataTable.DataTable := NIL; dsDataTable.DataTable := NIL;
FViewComision := NIL; FViewComision := NIL;
FComision := NIL; FComision := NIL;
FController := Nil;
end; end;
procedure TfEditorComision.dsDataTableDataChange(Sender: TObject; procedure TfEditorComision.dsDataTableDataChange(Sender: TObject;

18
Source/Modulos/Comisiones/Views/uEditorComisiones.dfm
View File

@ -92,11 +92,14 @@ inherited fEditorComisiones: TfEditorComisiones
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitLeft = 177 ExplicitTop = 102
ExplicitTop = 248 ExplicitWidth = 842
ExplicitHeight = 545
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 842 Width = 842
Height = 417 Height = 417
ExplicitWidth = 842
ExplicitHeight = 417
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -108,10 +111,13 @@ inherited fEditorComisiones: TfEditorComisiones
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 842 Width = 842
ExplicitWidth = 842
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 842 Width = 842
ExplicitWidth = 842
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 842 Width = 842
ExplicitWidth = 842
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -143,8 +149,10 @@ inherited fEditorComisiones: TfEditorComisiones
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 832 Width = 832
ExplicitWidth = 832
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 832 Width = 832
ExplicitWidth = 832
end end
end end
end end
@ -152,10 +160,14 @@ inherited fEditorComisiones: TfEditorComisiones
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 519 Top = 519
Width = 842 Width = 842
ExplicitTop = 519
ExplicitWidth = 842
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 842 Width = 842
ExplicitWidth = 842
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 842 Width = 842
ExplicitWidth = 842
end end
end end
end end
@ -1746,6 +1758,8 @@ inherited fEditorComisiones: TfEditorComisiones
end end
inherited dsDataTable: TDADataSource [9] inherited dsDataTable: TDADataSource [9]
end end
inherited StatusBarImages: TPngImageList [10]
end
inherited GridPopupMenu: TPopupMenu inherited GridPopupMenu: TPopupMenu
inherited N2: TMenuItem inherited N2: TMenuItem
Visible = False Visible = False

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

@ -111,7 +111,6 @@ end;
procedure TfEditorComisiones.EliminarInterno; procedure TfEditorComisiones.EliminarInterno;
var var
ACadena : String;
AComisiones: IBizComision; AComisiones: IBizComision;
AllItems: Boolean; AllItems: Boolean;
begin begin
@ -130,7 +129,7 @@ begin
end end
end end
else begin else begin
if (Application.MessageBox(PChar(ACadena), 'Atención', MB_YESNO) = IDYES) then if (Application.MessageBox('¿Desea borrar la comisión de cliente seleccionada?', 'Atención', MB_YESNO) = IDYES) then
AComisiones := Comisiones; AComisiones := Comisiones;
end; end;

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

@ -175,7 +175,7 @@ procedure TfrViewComisiones.SetComisiones(const Value: IBizComision);
begin begin
FComisiones := Value; FComisiones := Value;
if Assigned(FComisiones) then if Assigned(FComisiones) then
dsDataSource.DataTable := FComisiones.DataTable; dsDataSource.DataTable := FComisiones.DataTable;
end; end;
end. end.

279
Source/Modulos/Comisiones/Views/uViewFacturasComision.dfm Normal file
View File

@ -0,0 +1,279 @@
inherited frViewFacturasComision: TfrViewFacturasComision
Width = 549
Height = 376
OnShow = CustomViewShow
ExplicitWidth = 549
ExplicitHeight = 376
inherited cxGrid: TcxGrid
Width = 549
Height = 351
ExplicitWidth = 549
ExplicitHeight = 351
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewIMPORTE_COMISION
end>
DataController.Summary.OnAfterSummary = cxGridViewDataControllerSummaryAfterSummary
OptionsCustomize.ColumnMoving = True
OptionsData.Appending = False
OptionsData.CancelOnExit = True
OptionsData.Deleting = False
OptionsData.Inserting = False
OptionsView.Footer = True
OptionsView.GroupFooters = gfAlwaysVisible
inherited cxGridViewID: TcxGridDBColumn
DataBinding.FieldName = ''
Visible = True
Options.Editing = False
IsCaptionAssigned = True
end
object cxGridViewID_EMPRESA: TcxGridDBColumn
DataBinding.FieldName = 'ID_EMPRESA'
Options.Editing = False
end
object cxGridViewID_AGENTE: TcxGridDBColumn
DataBinding.FieldName = 'ID_AGENTE'
Options.Editing = False
end
object cxGridViewID_COMISION_LIQUIDADA: TcxGridDBColumn
DataBinding.FieldName = 'ID_COMISION_LIQUIDADA'
Options.Editing = False
end
object cxGridViewID_FACTURA: TcxGridDBColumn
Caption = 'ID_FACTURA'
DataBinding.FieldName = 'ID'
Options.Editing = False
end
object cxGridViewAGENTE: TcxGridDBColumn
Caption = 'Agente'
DataBinding.FieldName = 'AGENTE'
Visible = False
Options.Editing = False
VisibleForCustomization = False
end
object cxGridViewFECHA_FACTURA: TcxGridDBColumn
Caption = 'Fecha factura'
DataBinding.FieldName = 'FECHA_FACTURA'
Options.Editing = False
end
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Ref. factura'
DataBinding.FieldName = 'REFERENCIA'
Options.Editing = False
end
object cxGridViewSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n factura'
DataBinding.FieldName = 'SITUACION'
Options.Editing = False
end
object cxGridViewID_CLIENTE: TcxGridDBColumn
DataBinding.FieldName = 'ID_CLIENTE'
Visible = False
Options.Editing = False
VisibleForCustomization = False
end
object cxGridViewNiFCIF: TcxGridDBColumn
Caption = 'NIF/CIF'
DataBinding.FieldName = 'NIF_CIF'
Visible = False
Options.Editing = False
VisibleForCustomization = False
end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Cliente'
DataBinding.FieldName = 'NOMBRE'
Options.Editing = False
end
object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
Caption = 'Base imponible'
DataBinding.FieldName = 'BASE_IMPONiBLE'
Options.Editing = False
end
object cxGridViewCOMISION: TcxGridDBColumn
Caption = 'Comisi'#243'n'
DataBinding.FieldName = 'COMISION'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.MaxValue = 100.000000000000000000
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_COMISION: TcxGridDBColumn
Caption = 'Importe comisi'#243'n'
DataBinding.FieldName = 'IMPORTE_COMISION'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
Options.Editing = False
end
end
end
inherited ToolBar1: TToolBar
Width = 549
ExplicitWidth = 549
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
object ToolButton3: TToolButton
Left = 336
Top = 0
Action = actExpandir
AutoSize = True
end
object ToolButton8: TToolButton
Left = 434
Top = 0
Action = actContraer
AutoSize = True
end
end
inherited ContenidoImageList: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000000F84944415478DA
63FCFFFF3F03084C59BC03C2200072E33C19616C905E46640372623DF06A06AA
6198B77413C3F99DD3194936E0DFBF7F0CD396EE62D051576128AAEB031B42B4
0120CDBFFFFC6398BD720F43B0A70DC3CD7B2FC0869CDB318D91A00130CDBF7F
FF6558B06E3FD80B3040D00064CDBFFF40F0AA6D47C1722083F01A804D3304FF
63D8B2EF147E03F06906D13B0F9DC56D0058E16F540D20FC07C607CA1D387911
BB01E991AE043583F847CF5EC16E4052881341CD207CEAE275EC06C406D813D4
0CC2E7AFDEC26E40848F2D41CD20B12B37EF603720D8C38AA06610C069809F8B
39C3A63D2789C994D80D404EA6C400900100F58BBFF09BC1E25C000000004945
4E44AE426082}
Name = 'PngImage0'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA
A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304
451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994
9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F
9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546
031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8
1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA
9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E
9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8
E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0
3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8
5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37
60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB
7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932
75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04
E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148
D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2
45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56
A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E
AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13
7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058
5538F0EAB25B380000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD2520000015D4944415478DA
63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0
3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060
24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298
E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0
60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161
10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319
1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5
BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068
06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2
E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41
00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500
00000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001124944415478DA
63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28
0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC
886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2
908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81
3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC
E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC
76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5
CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818
601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082}
Name = 'PngImage3'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000000DF4944415478DA
63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B
2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA
CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0
8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501
F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9
56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF
FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1
6B0000000049454E44AE426082}
Name = 'PngImage4'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000000914944415478DA
63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312
FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB
EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE
000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8
30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082}
Name = 'PngImage5'
Background = clWindow
end>
Bitmap = {}
end
inherited ActionListContenido: TActionList
inherited actModificar: TAction
Enabled = False
Visible = False
end
object actExpandir: TAction
Category = 'Operaciones'
Caption = 'Expandir todo'
ImageIndex = 4
Visible = False
OnExecute = actExpandirExecute
OnUpdate = actExpandirUpdate
end
object actContraer: TAction
Category = 'Operaciones'
Caption = 'Contraer todo'
ImageIndex = 5
Visible = False
OnExecute = actContraerExecute
OnUpdate = actContraerUpdate
end
end
end

217
Source/Modulos/Comisiones/Views/uViewFacturasComision.pas Normal file
View File

@ -0,0 +1,217 @@
unit uViewFacturasComision;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList, PngImageList,
uDADataTable, ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleComisiones,
uBizComisiones, uComisionesController, Grids, DBGrids, cxSpinEdit,
dxLayoutControl, cxLookAndFeels, cxLookAndFeelPainters, uDAInterfaces;
type
IViewFacturasComision = interface
['{2716E2DF-54B7-4120-8DD9-50B2537D7855}']
function GetComision: IBizComision;
procedure SetComision(const Value: IBizComision);
property Comision: IBizComision read GetComision write SetComision;
function GetController : IComisionesController;
procedure SetController (const Value : IComisionesController);
property Controller : IComisionesController read GetController write SetController;
end;
TfrViewFacturasComision = class(TfrViewDetallesGenerico, IViewFacturasComision)
cxGridViewID_EMPRESA: TcxGridDBColumn;
cxGridViewID_AGENTE: TcxGridDBColumn;
cxGridViewAGENTE: TcxGridDBColumn;
cxGridViewID_FACTURA: TcxGridDBColumn;
cxGridViewFECHA_FACTURA: TcxGridDBColumn;
cxGridViewREFERENCIA: TcxGridDBColumn;
cxGridViewSITUACION: TcxGridDBColumn;
cxGridViewID_CLIENTE: TcxGridDBColumn;
cxGridViewNOMBRE: TcxGridDBColumn;
cxGridViewCOMISION: TcxGridDBColumn;
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
cxGridViewIMPORTE_COMISION: TcxGridDBColumn;
actExpandir: TAction;
actContraer: TAction;
ToolButton3: TToolButton;
ToolButton8: TToolButton;
cxGridViewNiFCIF: TcxGridDBColumn;
cxGridViewID_COMISION_LIQUIDADA: TcxGridDBColumn;
procedure actExpandirExecute(Sender: TObject);
procedure actContraerExecute(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actExpandirUpdate(Sender: TObject);
procedure actContraerUpdate(Sender: TObject);
procedure cxGridViewDataControllerSummaryAfterSummary(
ASender: TcxDataSummary);
protected
FHayCambios : Boolean;
FComision : IBizComision;
FController : IComisionesController;
procedure AnadirInterno; override;
procedure EliminarInterno; override;
function GetComision: IBizComision;
procedure SetComision(const Value: IBizComision);
function GetModified: Boolean; override;
procedure SetModified(const Value: Boolean); override;
function GetController : IComisionesController;
procedure SetController (const Value : IComisionesController);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Comision: IBizComision read GetComision write SetComision;
property Controller : IComisionesController read GetController write SetController;
end;
implementation
{$R *.dfm}
uses
uCustomView;
{ TfrViewFacturasComision }
procedure TfrViewFacturasComision.actContraerExecute(Sender: TObject);
begin
inherited;
cxGridView.ViewData.Collapse(True);
end;
procedure TfrViewFacturasComision.actContraerUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := HayDatos;
end;
procedure TfrViewFacturasComision.actEliminarUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := ((cxGridView.Controller.SelectedRowCount > 0)
and (cxGridView.Controller.SelectedRows[0].HasCells));
end;
procedure TfrViewFacturasComision.actExpandirExecute(Sender: TObject);
begin
inherited;
cxGridView.ViewData.Expand(True);
end;
procedure TfrViewFacturasComision.actExpandirUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := HayDatos;
end;
procedure TfrViewFacturasComision.AnadirInterno;
begin
//inherited; // No hacer el comportamiento normal
if FController.ElegirFacturasComision(Comision) then
Modified := True;
end;
constructor TfrViewFacturasComision.Create(AOwner: TComponent);
begin
inherited;
FHayCambios := False;
end;
procedure TfrViewFacturasComision.CustomViewShow(Sender: TObject);
begin
inherited;
cxGridView.OptionsSelection.MultiSelect := False;
end;
procedure TfrViewFacturasComision.cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
Var
AImporteTotal: Currency;
begin
inherited;
if VarIsNull(ASender.FooterSummaryValues[1]) then
AImporteTotal := 0
else
AImporteTotal := ASender.FooterSummaryValues[1];
if Assigned(Comision) then
begin
if (Comision.IMPORTE_TOTAL <> AImporteTotal) then
begin
if not Comision.DataTable.Editing then
begin
Comision.Edit;
Comision.IMPORTE_TOTAL := AImporteTotal;
Comision.Post;
end;
end;
end;
end;
destructor TfrViewFacturasComision.Destroy;
begin
FComision := Nil;
FController := Nil;
inherited;
end;
procedure TfrViewFacturasComision.EliminarInterno;
begin
if cxGridView.Controller.SelectedRowCount > 0 then
if cxGridView.Controller.SelectedRows[0].HasCells then
Comision.FacturasComision.Delete;
Modified := True;
end;
function TfrViewFacturasComision.GetController: IComisionesController;
begin
Result := FController;
end;
function TfrViewFacturasComision.GetModified: Boolean;
begin
Result := FHayCambios or inherited GetModified;
end;
function TfrViewFacturasComision.GetComision: IBizComision;
begin
Result := FComision;
end;
procedure TfrViewFacturasComision.SetController(
const Value: IComisionesController);
begin
FController := Value;
end;
procedure TfrViewFacturasComision.SetModified(const Value: Boolean);
begin
FHayCambios := Value;
inherited;
end;
procedure TfrViewFacturasComision.SetComision(const Value: IBizComision);
begin
FComision := Value;
FHayCambios := False;
if Assigned(FComision) then
dsDetalles.DataTable := FComision.FacturasComision.DataTable
else
dsDetalles.DataTable := NIL;
actAnchoAutomatico.Execute;
end;
end.

34
Source/Modulos/Contactos/Data/Contactos_data.dproj
View File

@ -49,23 +49,23 @@
<DelphiCompile Include="Contactos_data.dpk"> <DelphiCompile Include="Contactos_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Comisiones\Data\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\..\Comisiones\Data\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\..\Comisiones\Data\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\Comisiones\Data\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\..\Comisiones\Data\cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dxCoreD11.dcp" /> <DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Comisiones\Data\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\..\Comisiones\Data\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\..\Comisiones\Data\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\..\Comisiones\Data\vclx.dcp" /> <DCCReference Include="..\vclx.dcp" />
<DCCReference Include="uDataModuleClientes.pas"> <DCCReference Include="uDataModuleClientes.pas">
<Form>DataModuleClientes</Form> <Form>DataModuleClientes</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>

2
Source/Modulos/Contactos/Data/uDataModuleClientes.pas
View File

@ -11,7 +11,7 @@ uses
uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter, uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter,
uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable, uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable,
uDABin2DataStreamer, uControllerBase, uBizContactosDatosBancarios, uDABin2DataStreamer, uControllerBase, uBizContactosDatosBancarios,
uIDataModuleContactos, uDADataAdapter; uIDataModuleContactos;
type type
TDataModuleClientes = class(TDataModuleContactos, IDataModuleClientes) TDataModuleClientes = class(TDataModuleContactos, IDataModuleClientes)

2
Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
View File

@ -11,12 +11,12 @@ inherited DataModuleContactos: TDataModuleContactos
Top = 16 Top = 16
end end
object rda_Contactos: TDARemoteDataAdapter object rda_Contactos: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 43 Left = 43
Top = 143 Top = 143
end end

2
Source/Modulos/Contactos/Data/uDataModuleContactos.pas
View File

@ -12,7 +12,7 @@ uses
uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest, uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest,
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer, uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
uDAMemDataTable, uDataModuleBase, uBizContactosPersonal, uDAMemDataTable, uDataModuleBase, uBizContactosPersonal,
uIntegerListUtils, uDADataAdapter; uIntegerListUtils;
type type
TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport) TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport)

3
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -2072,6 +2072,7 @@ object srvContactos: TsrvContactos
end> end>
Statements = < Statements = <
item item
Connection = 'IBX'
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
TargetTable = 'CONTACTOS' TargetTable = 'CONTACTOS'
@ -2080,7 +2081,7 @@ object srvContactos: TsrvContactos
'DIGO_POSTAL, '#10' TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX,' + 'DIGO_POSTAL, '#10' TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX,' +
' EMAIL_1, '#10' EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MOD' + ' EMAIL_1, '#10' EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MOD' +
'IFICACION, '#10' USUARIO, REFERENCIA, PERSONA_CONTACTO, PAIS'#10' FR' + 'IFICACION, '#10' USUARIO, REFERENCIA, PERSONA_CONTACTO, PAIS'#10' FR' +
'OM'#10' CONTACTOS'#10' WHERE ID = :ID'#10 'OM'#10' CONTACTOS'#10' WHERE {where}'#10' and ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item

2
Source/Modulos/Contactos/Views/uViewContacto.dfm
View File

@ -156,9 +156,11 @@ inherited frViewContacto: TfrViewContacto
Properties.ImmediateUpdateText = True Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True Properties.PostPopupValueOnTab = True
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonTransparency = ebtInactive
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''

3
Source/Modulos/Contactos/Views/uViewContacto.pas
View File

@ -221,7 +221,7 @@ end;
procedure TfrViewContacto.cbPoblacionPropertiesInitPopup(Sender: TObject); procedure TfrViewContacto.cbPoblacionPropertiesInitPopup(Sender: TObject);
begin begin
inherited; inherited;
{
ShowHourglassCursor; ShowHourglassCursor;
try try
FreeANDNIL(FPoblaciones); FreeANDNIL(FPoblaciones);
@ -232,6 +232,7 @@ begin
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
}
end; end;
constructor TfrViewContacto.Create(AOwner : TComponent); constructor TfrViewContacto.Create(AOwner : TComponent);

134
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -1142,6 +1142,7 @@ var
ADiasMas: Integer; ADiasMas: Integer;
BSemaforo: Boolean; BSemaforo: Boolean;
AImporteTotal: Double; AImporteTotal: Double;
AImporteTotal2: Double;
begin begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
@ -1165,81 +1166,86 @@ begin
//según forma de pago //según forma de pago
AImporteTotal := AFactura.IMPORTE_TOTAL - AFactura.IMPORTE_RETENCION; AImporteTotal := AFactura.IMPORTE_TOTAL - AFactura.IMPORTE_RETENCION;
//Vamos a generar todos los recibos necesarios para la factura //En el caso de no tener Plazos no se genera recibo
With AFormaPago.Plazos.DataTable do if AFormaPago.Plazos.RecordCount > 0 then
begin begin
i := 1; //Vamos a generar todos los recibos necesarios para la factura
First; With AFormaPago.Plazos.DataTable do
repeat begin
ARecibos := ARecibosClienteController.Nuevo; i := 1;
ARecibos.Edit; First;
ARecibos.ID_FACTURA := AFactura.ID; repeat
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i); ARecibos := ARecibosClienteController.Nuevo;
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA; ARecibos.Edit;
ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
if AFormaPago.Plazos.RecordCount < 1 then if AFormaPago.Plazos.RecordCount < 1 then
begin
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
ARecibos.IMPORTE := AImporteTotal;
end
else
begin
AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
ADiasMas := 0;
BSemaforo := False;
if (AFactura.Cliente.VENCIMIENTO_FACTURAS_1 <> 0)
or (AFactura.Cliente.VENCIMIENTO_FACTURAS_2 <> 0)
or (AFactura.Cliente.VENCIMIENTO_FACTURAS_3 <> 0) then
begin begin
ADiaVencimiento := DayOf(AFechaVencimiento); ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
while (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_1) ARecibos.IMPORTE := AImporteTotal;
and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_2) end
and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do else
begin
AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
ADiasMas := 0;
BSemaforo := False;
if (AFactura.Cliente.VENCIMIENTO_FACTURAS_1 <> 0)
or (AFactura.Cliente.VENCIMIENTO_FACTURAS_2 <> 0)
or (AFactura.Cliente.VENCIMIENTO_FACTURAS_3 <> 0) then
begin begin
if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then ADiaVencimiento := DayOf(AFechaVencimiento);
while (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_1)
and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_2)
and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do
begin begin
ADiaVencimiento := 1; if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then
//Controlamos con una variable semaforo que no nos quedemos en un bucle infinito
//intentando encontrar el dia de pago establecido para el cliente (es el caso de tener
//asignado el dia de pago 30 y llegar febrero en el que no se encuentra dicho dia, o
//tener como dia de pago los días 31 y en el caso de meses de 30 dias no encontrarlo.
if BSemaforo then
begin begin
ADiasMas := 0; ADiaVencimiento := 1;
Break
//Controlamos con una variable semaforo que no nos quedemos en un bucle infinito
//intentando encontrar el dia de pago establecido para el cliente (es el caso de tener
//asignado el dia de pago 30 y llegar febrero en el que no se encuentra dicho dia, o
//tener como dia de pago los días 31 y en el caso de meses de 30 dias no encontrarlo.
if BSemaforo then
begin
ADiasMas := 0;
Break
end
else
BSemaforo := True;
end end
else else
BSemaforo := True; Inc(ADiaVencimiento);
end Inc(ADiasMas);
else end;
Inc(ADiaVencimiento);
Inc(ADiasMas);
end; end;
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
AImporteTotal2 := AImporteTotal * (AFormaPago.Plazos.PORCENTAJE / 100);
ARecibos.IMPORTE := AImporteTotal * (AFormaPago.Plazos.PORCENTAJE / 100);
end; end;
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento; ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE);
ARecibos.IMPORTE := AImporteTotal * (AFormaPago.Plazos.PORCENTAJE / 100); ARecibosClienteController.Guardar(ARecibos);
Inc(i);
Next;
until (eof);
//Si hay retención generaremos un recibo para dicha retención
if AFactura.IMPORTE_RETENCION > 0 then
begin
ARecibos := ARecibosClienteController.Nuevo;
ARecibos.Edit;
ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_RETENCION;
ARecibos.IMPORTE := AFactura.IMPORTE_RETENCION;
ARecibos.DESCRIPCION := 'Pago de factura de retención ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE);
ARecibosClienteController.Guardar(ARecibos);
end; end;
ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE);
ARecibosClienteController.Guardar(ARecibos);
Inc(i);
Next;
until (eof);
//Si hay retención generaremos un recibo para dicha retención
if AFactura.IMPORTE_RETENCION > 0 then
begin
ARecibos := ARecibosClienteController.Nuevo;
ARecibos.Edit;
ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_RETENCION;
ARecibos.IMPORTE := AFactura.IMPORTE_RETENCION;
ARecibos.DESCRIPCION := 'Pago de factura de retención ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE);
ARecibosClienteController.Guardar(ARecibos);
end; end;
end; end;

2
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
View File

@ -10,7 +10,7 @@ uses
uIDataModuleFacturasCliente, uBizFacturasCliente, uBizDetallesFacturaCliente, uIDataModuleFacturasCliente, uBizFacturasCliente, uBizDetallesFacturaCliente,
uDADesigntimeCall, uIDataModuleFacturasClienteReport, uDataModuleBase, uDADesigntimeCall, uIDataModuleFacturasClienteReport, uDataModuleBase,
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
uDARemoteDataAdapter, uIntegerListUtils, uDADataAdapter; uDARemoteDataAdapter, uIntegerListUtils;
type type
TDataModuleFacturasCliente = class(TDataModuleBase, IDataModuleFacturasCliente, IDataModuleFacturasClienteReport) TDataModuleFacturasCliente = class(TDataModuleBase, IDataModuleFacturasCliente, IDataModuleFacturasClienteReport)

122
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -643,8 +643,8 @@ object RptFacturasCliente: TRptFacturasCliente
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' + 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' +
'UACION, NIF_CIF, FECHA_FACTURA, fecha_vencimiento, BASE_IMPONIBL' + 'UACION, NIF_CIF, FECHA_FACTURA, fecha_vencimiento, BASE_IMPONIBL' +
'E, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {wh' + 'E, IMPORTE_IVA, IMPORTE_RE, IMPORTE_TOTAL'#10#10'from V_facturas_clien' +
'ere}'#10'order by ANO, MES, FECHA_FACTURA, NOMBRE'#10#10 'te'#10'where {where}'#10'order by ANO, MES, FECHA_FACTURA, NOMBRE'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -705,6 +705,10 @@ object RptFacturasCliente: TRptFacturasCliente
item item
DatasetField = 'FECHA_VENCIMIENTO' DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'IMPORTE_RE'
TableField = 'IMPORTE_RE'
end> end>
end> end>
Name = 'InformeListadoFacturas' Name = 'InformeListadoFacturas'
@ -766,6 +770,10 @@ object RptFacturasCliente: TRptFacturasCliente
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
@ -937,51 +945,20 @@ object RptFacturasCliente: TRptFacturasCliente
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'V_FACTURAS_CLIENTE' TargetTable = 'V_FACTURAS_CLIENTE'
SQL = SQL =
'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' + 'select V_facturas_cliente.ID_EMPRESA,'#10'V_facturas_cliente.ID_TIPO' +
'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' + '_IVA,'#10'COALESCE(tipos_iva.descripcion,'#39'SIN IVA ASIGNADO'#39') as IVA,' +
' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' + #10'sum(V_facturas_cliente.BASE_IMPONIBLE) as BASE_IMPONIBLE,'#10'sum(V' +
'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 + '_facturas_cliente.IMPORTE_IVA) as IMPORTE_IVA,'#10'sum(V_facturas_cl' +
'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' + 'iente.IMPORTE_RE) as IMPORTE_RE,'#10'sum(V_facturas_cliente.IMPORTE_' +
'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' + 'TOTAL) AS IMPORTE_TOTAL'#10'from V_facturas_cliente'#10'left join tipos_' +
'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' + 'iva on (tipos_iva.id = V_facturas_cliente.id_tipo_iva)'#10'group by ' +
'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' + '1,2,3'#10'order by 1,2,3'#10
'(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' +
'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' +
'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' +
' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' +
' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' +
' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' +
'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' +
'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' +
'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' +
#10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' +
#39' || extract (year from fecha_factura)'#10'when extract (month from ' +
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
'cha_factura)'#10'end as TITULO,'#10'sum(BASE_IMPONIBLE) as BASE_IMPONIBL' +
'E,'#10'sum(IMPORTE_IVA) as IMPORTE_IVA,'#10'sum(IMPORTE_TOTAL) AS IMPORT' +
'E_TOTAL'#10'from V_facturas_cliente'#10'group by 1,2,3,4'#10'order by 1,2,3,' +
'4'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
DatasetField = 'ID_EMPRESA' DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA' TableField = 'ID_EMPRESA'
end end
item
DatasetField = 'ANO'
TableField = '<unknown>'
SQLOrigin = 'ANO'
end
item
DatasetField = 'MES'
TableField = '<unknown>'
SQLOrigin = 'MES'
end
item
DatasetField = 'TITULO'
TableField = '<unknown>'
SQLOrigin = 'TITULO'
end
item item
DatasetField = 'BASE_IMPONIBLE' DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE' TableField = 'BASE_IMPONIBLE'
@ -993,6 +970,18 @@ object RptFacturasCliente: TRptFacturasCliente
item item
DatasetField = 'IMPORTE_TOTAL' DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'ID_TIPO_IVA'
TableField = 'ID_TIPO_IVA'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'IMPORTE_RE'
TableField = 'IMPORTE_RE'
end> end>
end> end>
Name = 'InformeListadoFacturasResumen' Name = 'InformeListadoFacturasResumen'
@ -1002,17 +991,13 @@ object RptFacturasCliente: TRptFacturasCliente
DataType = datInteger DataType = datInteger
end end
item item
Name = 'ANO' Name = 'ID_TIPO_IVA'
DataType = datSmallInt DataType = datInteger
end end
item item
Name = 'MES' Name = 'IVA'
DataType = datSmallInt
end
item
Name = 'TITULO'
DataType = datString DataType = datString
Size = 19 Size = 255
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
@ -1022,6 +1007,10 @@ object RptFacturasCliente: TRptFacturasCliente
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
@ -1669,8 +1658,8 @@ object RptFacturasCliente: TRptFacturasCliente
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 40210.707089826390000000 ReportOptions.LastChange = 40342.784827962960000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
@ -1973,7 +1962,36 @@ object RptFacturasCliente: TRptFacturasCliente
end end
object tbl_InformeListadoFacturasResumen: TDAMemDataTable object tbl_InformeListadoFacturasResumen: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = <> Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
end
item
Name = 'IVA'
DataType = datString
Size = 255
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end>
Params = <> Params = <>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest
LogChanges = False LogChanges = False

4
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -396,7 +396,7 @@ begin
ATextos.Add(ACadena); ATextos.Add(ACadena);
ACadena := ''; ACadena := '';
end; end;
{
if (FImporteMinimo > 0) then if (FImporteMinimo > 0) then
begin begin
ACadena := Format('Facturas con importe superior a %m', [FImporteMinimo]); ACadena := Format('Facturas con importe superior a %m', [FImporteMinimo]);
@ -414,7 +414,7 @@ begin
if FDesglosado then if FDesglosado then
ACadena := ACadena + ' (desglosados)' ACadena := ACadena + ' (desglosados)'
end; end;
}
ATextos.Add(ACadena); ATextos.Add(ACadena);
ACadena := ''; ACadena := '';

36
Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.dfm
View File

@ -9,8 +9,7 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
Width = 654 Width = 654
Caption = 'Lista de facturas de cliente para liquidar su comisi'#243'n' Caption = 'Lista de facturas de cliente para liquidar su comisi'#243'n'
Visible = False Visible = False
ExplicitLeft = -8 ExplicitTop = 113
ExplicitTop = 169
ExplicitWidth = 654 ExplicitWidth = 654
inherited Image1: TImage inherited Image1: TImage
Left = 627 Left = 627
@ -25,9 +24,9 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 49 ExplicitHeight = 49
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
Left = 97 Left = 146
ExplicitLeft = 97 ExplicitLeft = 146
ExplicitWidth = 371 ExplicitWidth = 126
inherited TBXSubmenuItem2: TSpTBXSubmenuItem inherited TBXSubmenuItem2: TSpTBXSubmenuItem
Visible = False Visible = False
end end
@ -45,7 +44,7 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
Top = 23 Top = 23
DockRow = 1 DockRow = 1
ExplicitTop = 23 ExplicitTop = 23
ExplicitWidth = 97 ExplicitWidth = 146
inherited sepAno: TSpTBXSeparatorItem inherited sepAno: TSpTBXSeparatorItem
Visible = False Visible = False
end end
@ -67,11 +66,11 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
ExplicitWidth = 654 ExplicitWidth = 654
end end
inherited TBXTMain2: TSpTBXToolbar inherited TBXTMain2: TSpTBXToolbar
Left = 468 Left = 462
Top = 23 Top = 23
DockPos = 462 DockPos = 462
DockRow = 1 DockRow = 1
ExplicitLeft = 468 ExplicitLeft = 462
ExplicitTop = 23 ExplicitTop = 23
end end
end end
@ -178,15 +177,15 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
Top = 140 Top = 140
Width = 654 Width = 654
Height = 471 Height = 471
ExplicitTop = 163 ExplicitTop = 140
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 448 ExplicitHeight = 471
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 654 Width = 654
Height = 343 Height = 343
RootLevelOptions.DetailTabsPosition = dtpNone RootLevelOptions.DetailTabsPosition = dtpNone
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 320 ExplicitHeight = 343
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -213,6 +212,7 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
Visible = True Visible = True
ExplicitWidth = 654 ExplicitWidth = 654
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 654
ExplicitWidth = 654 ExplicitWidth = 654
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 654 Width = 654
@ -255,8 +255,8 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 654 Width = 644
ExplicitWidth = 654 ExplicitWidth = 644
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 644 Width = 644
ExplicitWidth = 644 ExplicitWidth = 644
@ -266,14 +266,15 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 445 Top = 445
ExplicitTop = 422 Width = 654
ExplicitTop = 445
ExplicitWidth = 654 ExplicitWidth = 654
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 654 Width = 654
ExplicitWidth = 654 ExplicitWidth = 654
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 644 Width = 654
ExplicitWidth = 644 ExplicitWidth = 654
end end
end end
end end
@ -282,6 +283,9 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = < PopupMenus = <
item item

3
Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.pas
View File

@ -37,7 +37,8 @@ uses
uViewFacturasCliente, uEditorFacturasCliente, uBizFacturasCliente, uIEditorElegirFacturasCliente, uViewFacturasCliente, uEditorFacturasCliente, uBizFacturasCliente, uIEditorElegirFacturasCliente,
Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls, Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls,
cxContainer, cxEdit, cxTextEdit, SpTBXDkPanels, JSDialog, uDAInterfaces; cxContainer, cxEdit, cxTextEdit, SpTBXDkPanels, JSDialog, uDAInterfaces,
TntStdCtrls, SpTBXEditors;
type type

44
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -80,8 +80,11 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
ExplicitWidth = 842 ExplicitWidth = 842
end end
inherited TBXTMain2: TSpTBXToolbar inherited TBXTMain2: TSpTBXToolbar
Left = 435 Left = 441
ExplicitLeft = 435 DockPos = 441
Visible = True
ExplicitLeft = 441
ExplicitWidth = 66
object TBXItem41: TSpTBXItem object TBXItem41: TSpTBXItem
Action = actInformes Action = actInformes
end end
@ -128,6 +131,18 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = frViewFacturasCliente1.cxGridViewIMPORTE_RE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = frViewFacturasCliente1.cxGridViewIMPORTE_IVA
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -144,6 +159,16 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewFacturasCliente1.cxGridViewIMPORTE_RE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewFacturasCliente1.cxGridViewIMPORTE_IVA
end> end>
inherited cxGridViewBASE_IMPONIBLE: TcxGridDBColumn inherited cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
Visible = True Visible = True
@ -253,10 +278,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
inherited actDuplicar: TAction inherited actDuplicar: TAction
Hint = 'Generar una factura nueva a partir de la factura seleccionada' Hint = 'Generar una factura nueva a partir de la factura seleccionada'
end end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
object actNuevaFactura: TAction object actNuevaFactura: TAction
Category = 'Archivo' Category = 'Archivo'
Caption = 'Factura' Caption = 'Factura'
@ -280,8 +301,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
object actInformes: TAction object actInformes: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Informes' Caption = 'Informes'
Enabled = False
Visible = False
OnExecute = actInformesExecute OnExecute = actInformesExecute
end end
end end
@ -3757,18 +3776,9 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
Instruction.Icon = tdiCustom Instruction.Icon = tdiCustom
CustomButtons = < CustomButtons = <
item
Caption = 'Listado de facturas pendientes.'
Value = 100
Default = True
end
item item
Caption = 'Listado de IVA.' Caption = 'Listado de IVA.'
Value = 200 Value = 200
end
item
Caption = 'Listado de facturas'
Value = 300
end> end>
ButtonBar.Buttons = [cbCancel] ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom MainIcon = tdiCustom

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

@ -112,6 +112,12 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewRE: TcxGridDBColumn
DataBinding.FieldName = 'RE'
end
object cxGridViewIMPORTE_RE: TcxGridDBColumn
DataBinding.FieldName = 'IMPORTE_RE'
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total' Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'
@ -188,7 +194,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 655 Width = 655
ExplicitWidth = 665 ExplicitWidth = 655
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 655 Width = 655
ExplicitWidth = 655 ExplicitWidth = 655
@ -207,7 +213,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
ExplicitWidth = 665 ExplicitWidth = 665
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 665 Width = 665
ExplicitWidth = 655 ExplicitWidth = 665
object TBXSeparatorItem2: TSpTBXSeparatorItem object TBXSeparatorItem2: TSpTBXSeparatorItem
end end
object TBXItem3: TSpTBXItem object TBXItem3: TSpTBXItem
@ -227,6 +233,9 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxStyleRepository1: TcxStyleRepository inherited cxStyleRepository1: TcxStyleRepository
object cxStylePagada: TcxStyle object cxStylePagada: TcxStyle
AssignedValues = [svTextColor] AssignedValues = [svTextColor]

2
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -58,6 +58,8 @@ type
TBXItem3: TSpTBXItem; TBXItem3: TSpTBXItem;
TBXSeparatorItem2: TSpTBXSeparatorItem; TBXSeparatorItem2: TSpTBXSeparatorItem;
cxGridViewTIPO: TcxGridDBColumn; cxGridViewTIPO: TcxGridDBColumn;
cxGridViewRE: TcxGridDBColumn;
cxGridViewIMPORTE_RE: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);

18
Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.dfm
View File

@ -46,13 +46,17 @@ object PluginGestorInformes: TPluginGestorInformes
object actInformeFacturasCliente: TAction object actInformeFacturasCliente: TAction
Category = 'Facturas de cliente' Category = 'Facturas de cliente'
Caption = 'Listado de facturas de cliente' Caption = 'Listado de facturas de cliente'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actInformeFacturasClienteExecute OnExecute = actInformeFacturasClienteExecute
end end
object actInformeFacturasClientePendientes: TAction object actInformeFacturasClientePendientes: TAction
Category = 'Facturas de cliente' Category = 'Facturas de cliente'
Caption = 'Listado de facturas de cliente pendientes' Caption = 'Listado de facturas de cliente pendientes'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actInformeFacturasClientePendientesExecute OnExecute = actInformeFacturasClientePendientesExecute
end end
object actInformeFacturasClienteIVA: TAction object actInformeFacturasClienteIVA: TAction
@ -64,43 +68,57 @@ object PluginGestorInformes: TPluginGestorInformes
object actInformeRecibosCliente: TAction object actInformeRecibosCliente: TAction
Category = 'Recibos de cliente' Category = 'Recibos de cliente'
Caption = 'Listado de recibos de cliente' Caption = 'Listado de recibos de cliente'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actInformeRecibosClienteExecute OnExecute = actInformeRecibosClienteExecute
end end
object actInformeRecibosCliPendientes: TAction object actInformeRecibosCliPendientes: TAction
Category = 'Recibos de cliente' Category = 'Recibos de cliente'
Caption = 'Listado de recibos de cliente pendientes' Caption = 'Listado de recibos de cliente pendientes'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actInformeRecibosCliPendientesExecute OnExecute = actInformeRecibosCliPendientesExecute
end end
object actInformeFacturasProveedor: TAction object actInformeFacturasProveedor: TAction
Category = 'Facturas de proveedor' Category = 'Facturas de proveedor'
Caption = 'Listado de facturas de proveedor' Caption = 'Listado de facturas de proveedor'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actInformeFacturasProveedorExecute OnExecute = actInformeFacturasProveedorExecute
end end
object actInformeFacturasProveedorPendientes: TAction object actInformeFacturasProveedorPendientes: TAction
Category = 'Facturas de proveedor' Category = 'Facturas de proveedor'
Caption = 'Listado de facturas de proveedor pendientes' Caption = 'Listado de facturas de proveedor pendientes'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actInformeFacturasProveedorPendientesExecute OnExecute = actInformeFacturasProveedorPendientesExecute
end end
object actInformeFacturasProveedorIVA: TAction object actInformeFacturasProveedorIVA: TAction
Category = 'Facturas de proveedor' Category = 'Facturas de proveedor'
Caption = 'Listado de IVA de facturas de proveedor' Caption = 'Listado de IVA de facturas de proveedor'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actInformeFacturasProveedorIVAExecute OnExecute = actInformeFacturasProveedorIVAExecute
end end
object actInformeRecibosProveedor: TAction object actInformeRecibosProveedor: TAction
Category = 'Recibos de proveedor' Category = 'Recibos de proveedor'
Caption = 'Listado de recibos de proveedor' Caption = 'Listado de recibos de proveedor'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actInformeRecibosProveedorExecute OnExecute = actInformeRecibosProveedorExecute
end end
object actInformeRecibosProvPendientes: TAction object actInformeRecibosProvPendientes: TAction
Category = 'Recibos de proveedor' Category = 'Recibos de proveedor'
Caption = 'Listado de recibos de proveedor pendientes' Caption = 'Listado de recibos de proveedor pendientes'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actInformeRecibosProvPendientesExecute OnExecute = actInformeRecibosProvPendientesExecute
end end
end end

46
Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm
View File

@ -30,55 +30,61 @@ inherited fEditorInformeBase: TfEditorInformeBase
object TBXMultiDockIzquierdo: TSpTBXMultiDock [3] object TBXMultiDockIzquierdo: TSpTBXMultiDock [3]
Left = 0 Left = 0
Top = 102 Top = 102
Width = 7 Width = 9
Height = 362 Height = 362
Position = dpLeft
end end
object TBXMultiDockDerecho: TSpTBXMultiDock [4] object TBXMultiDockDerecho: TSpTBXMultiDock [4]
Left = 633 Left = 9
Top = 102 Top = 102
Width = 154 Width = 154
Height = 362 Height = 362
Position = dpRight
object pnlParametros: TSpTBXDockablePanel object pnlParametros: TSpTBXDockablePanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 154
Height = 362
Caption = 'Par'#225'metros' Caption = 'Par'#225'metros'
CloseButton = False
CloseButtonWhenDocked = False
DefaultDock = TBXMultiDockDerecho DefaultDock = TBXMultiDockDerecho
DockableTo = [dpLeft, dpRight] DockableTo = [dpLeft, dpRight]
DockedWidth = 150
DockMode = dmCannotFloat DockMode = dmCannotFloat
DockPos = 6 DockPos = 0
FloatingWidth = 128
FloatingHeight = 128
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0 TabOrder = 0
ShowCaption = False
ShowCaptionWhenDocked = False
object TBXDockablePanel1: TSpTBXDockablePanel object TBXDockablePanel1: TSpTBXDockablePanel
Left = 0 Left = 0
Top = 196 Top = 0
MaxClientHeight = 50 Width = 150
Align = alBottom Height = 358
Caption = 'TBXDockablePanel1' Caption = 'TBXDockablePanel1'
FloatingWidth = 128 Align = alClient
FloatingHeight = 128
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0 TabOrder = 0
ExplicitWidth = 128 ShowCaption = False
ShowCaptionWhenDocked = False
ExplicitTop = 230
ExplicitHeight = 43
object TBXButton1: TSpTBXButton object TBXButton1: TSpTBXButton
Left = 16 Left = 16
Top = 12 Top = 12
Width = 121 Width = 121
Height = 24 Height = 24
Action = actRefrescar Action = actRefrescar
ImageIndex = 9
Images = SmallImages
TabOrder = 0 TabOrder = 0
Images = SmallImages
ImageIndex = 9
end end
end end
end end
end end
inherited EditorActionList: TActionList
Top = 120
end
inherited SmallImages: TPngImageList
Top = 120
end
inherited LargeImages: TPngImageList
Top = 120
end
inherited frxOLEObject1: TfrxOLEObject inherited frxOLEObject1: TfrxOLEObject
Top = 200 Top = 200
end end

3
Source/Modulos/Gestor de informes/Views/uEditorInformeBase.pas
View File

@ -10,7 +10,8 @@ uses
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, SpTBXControls, SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, SpTBXControls,
JvExControls, JvNavigationPane, uIEditorInformeBase, SpTBXDkPanels; JvExControls, JvNavigationPane, uIEditorInformeBase, SpTBXDkPanels, StdCtrls,
TntStdCtrls, SpTBXEditors;
type type
TfEditorInformeBase = class(TfEditorPreview, IEditorInformeBase) TfEditorInformeBase = class(TfEditorPreview, IEditorInformeBase)

61
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.dfm
View File

@ -21,12 +21,16 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 678
object TBXItem58: TSpTBXItem [0] object TBXItem58: TSpTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
Images = SmallImages Images = SmallImages
end end
inherited cbZoom: TSpTBXComboBox
Left = 384
ExplicitLeft = 384
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -40,16 +44,15 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
ExplicitHeight = 534 ExplicitHeight = 534
end end
inherited TBXMultiDockDerecho: TSpTBXMultiDock inherited TBXMultiDockDerecho: TSpTBXMultiDock
Left = 703
Width = 192 Width = 192
Height = 534 Height = 534
ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 534
inherited pnlParametros: TSpTBXDockablePanel inherited pnlParametros: TSpTBXDockablePanel
DockedWidth = 188 Width = 192
Height = 534
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 534
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -66,11 +69,11 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 236 ExplicitHeight = 236
inherited TBXAlignmentPanel2: TSpTBXAlignmentPanel inherited TBXAlignmentPanel2: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 178
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 72 Left = 72
@ -101,13 +104,12 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
end end
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TSpTBXAlignmentPanel inherited TBXAlignmentPanel3: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label4: TLabel inherited Label4: TLabel
Width = 172 Width = 178
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Left = 75 Left = 75
@ -140,30 +142,31 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
end end
end end
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Top = 368 Top = 402
Width = 188
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 402
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TSpTBXButton inherited TBXButton1: TSpTBXButton
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 8
Top = 3 Top = 8
Width = 182 Width = 172
Height = 37 Height = 37
Margins.Left = 8 Margins.Left = 8
Margins.Top = 8 Margins.Top = 8
Margins.Right = 8 Margins.Right = 8
Margins.Bottom = 8 Margins.Bottom = 8
Align = alTop Align = alTop
ExplicitLeft = 3 ExplicitLeft = 8
ExplicitTop = 3 ExplicitTop = 8
ExplicitWidth = 182 ExplicitWidth = 172
ExplicitHeight = 37 ExplicitHeight = 37
end end
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 236 Top = 255
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -176,16 +179,15 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 236 ExplicitTop = 255
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited eImporte: TcxSpinEdit inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -196,7 +198,7 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
end end
inline frViewFiltroClientes1: TfrViewFiltroClientes inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0 Left = 0
Top = 313 Top = 332
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -209,12 +211,11 @@ inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturas
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 313 ExplicitTop = 332
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited bElegirCliente: TBitBtn inherited bElegirCliente: TBitBtn
Width = 108 Width = 108

3
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClientePendientesReport.pas
View File

@ -15,7 +15,8 @@ uses
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase, FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeBase, uViewParametrosInforme,
uIEditorInformeFacturasClientePendientesReport; uIEditorInformeFacturasClientePendientesReport, SpTBXControls, StdCtrls,
TntStdCtrls, SpTBXEditors;
type type
TfEditorInformeFacturasClientePendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasClientePendientesReport) TfEditorInformeFacturasClientePendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasClientePendientesReport)

65
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm
View File

@ -21,12 +21,16 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 678
object TBXItem58: TSpTBXItem [0] object TBXItem58: TSpTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
Images = SmallImages Images = SmallImages
end end
inherited cbZoom: TSpTBXComboBox
Left = 384
ExplicitLeft = 384
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -40,16 +44,15 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
ExplicitHeight = 534 ExplicitHeight = 534
end end
inherited TBXMultiDockDerecho: TSpTBXMultiDock inherited TBXMultiDockDerecho: TSpTBXMultiDock
Left = 703
Width = 192 Width = 192
Height = 534 Height = 534
ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 534
inherited pnlParametros: TSpTBXDockablePanel inherited pnlParametros: TSpTBXDockablePanel
DockedWidth = 188 Width = 192
Height = 534
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 534
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -66,13 +69,13 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 236 ExplicitHeight = 236
inherited TBXAlignmentPanel2: TSpTBXAlignmentPanel inherited TBXAlignmentPanel2: TSpTBXDockablePanel
Width = 182 Width = 178
Height = 98 Height = 98
ExplicitWidth = 182 ExplicitWidth = 178
ExplicitHeight = 98 ExplicitHeight = 98
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 178
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 74 Left = 74
@ -107,15 +110,14 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
end end
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TSpTBXAlignmentPanel inherited TBXAlignmentPanel3: TSpTBXDockablePanel
Top = 136 Top = 140
Width = 182 Width = 178
ExplicitTop = 136 ExplicitTop = 140
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label4: TLabel inherited Label4: TLabel
Width = 172 Width = 178
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Left = 76 Left = 76
@ -148,30 +150,31 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
end end
end end
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Top = 368 Top = 402
Width = 188
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 402
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TSpTBXButton inherited TBXButton1: TSpTBXButton
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 8
Top = 3 Top = 8
Width = 182 Width = 172
Height = 37 Height = 37
Margins.Left = 8 Margins.Left = 8
Margins.Top = 8 Margins.Top = 8
Margins.Right = 8 Margins.Right = 8
Margins.Bottom = 8 Margins.Bottom = 8
Align = alTop Align = alTop
ExplicitLeft = 3 ExplicitLeft = 8
ExplicitTop = 3 ExplicitTop = 8
ExplicitWidth = 182 ExplicitWidth = 172
ExplicitHeight = 37 ExplicitHeight = 37
end end
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 236 Top = 255
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -184,16 +187,15 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 236 ExplicitTop = 255
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited eImporte: TcxSpinEdit inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -204,7 +206,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
end end
inline frViewFiltroClientes1: TfrViewFiltroClientes inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0 Left = 0
Top = 313 Top = 332
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -217,12 +219,11 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 313 ExplicitTop = 332
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited bElegirCliente: TBitBtn inherited bElegirCliente: TBitBtn
Width = 108 Width = 108

3
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas
View File

@ -14,7 +14,8 @@ uses
uViewBase, uViewPeriodoFechas, uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase, FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasClienteReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasClienteReport,
SpTBXControls, StdCtrls, TntStdCtrls, SpTBXEditors;
type type
TfEditorInformeFacturasClienteReport = class(TfEditorInformeBase, IEditorInformeFacturasClienteReport) TfEditorInformeFacturasClienteReport = class(TfEditorInformeBase, IEditorInformeFacturasClienteReport)

61
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.dfm
View File

@ -21,12 +21,16 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 678
object TBXItem58: TSpTBXItem [0] object TBXItem58: TSpTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
Images = SmallImages Images = SmallImages
end end
inherited cbZoom: TSpTBXComboBox
Left = 384
ExplicitLeft = 384
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -40,16 +44,15 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
ExplicitHeight = 534 ExplicitHeight = 534
end end
inherited TBXMultiDockDerecho: TSpTBXMultiDock inherited TBXMultiDockDerecho: TSpTBXMultiDock
Left = 703
Width = 192 Width = 192
Height = 534 Height = 534
ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 534
inherited pnlParametros: TSpTBXDockablePanel inherited pnlParametros: TSpTBXDockablePanel
DockedWidth = 188 Width = 192
Height = 534
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 534
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -66,11 +69,11 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 240 ExplicitHeight = 240
inherited TBXAlignmentPanel2: TSpTBXAlignmentPanel inherited TBXAlignmentPanel2: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 178
Caption = 'Rango de fechas de factura:' Caption = 'Rango de fechas de factura:'
ExplicitWidth = 138 ExplicitWidth = 138
end end
@ -105,13 +108,12 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
end end
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TSpTBXAlignmentPanel inherited TBXAlignmentPanel3: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label4: TLabel inherited Label4: TLabel
Width = 172 Width = 178
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Left = 76 Left = 76
@ -144,30 +146,31 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
end end
end end
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Top = 368 Top = 402
Width = 188
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 402
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TSpTBXButton inherited TBXButton1: TSpTBXButton
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 8
Top = 3 Top = 8
Width = 182 Width = 172
Height = 37 Height = 37
Margins.Left = 8 Margins.Left = 8
Margins.Top = 8 Margins.Top = 8
Margins.Right = 8 Margins.Right = 8
Margins.Bottom = 8 Margins.Bottom = 8
Align = alTop Align = alTop
ExplicitLeft = 3 ExplicitLeft = 8
ExplicitTop = 3 ExplicitTop = 8
ExplicitWidth = 182 ExplicitWidth = 172
ExplicitHeight = 37 ExplicitHeight = 37
end end
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 240 Top = 259
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -180,16 +183,15 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 240 ExplicitTop = 259
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited eImporte: TcxSpinEdit inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -200,7 +202,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
end end
inline frViewFiltroProveedores1: TfrViewFiltroProveedores inline frViewFiltroProveedores1: TfrViewFiltroProveedores
Left = 0 Left = 0
Top = 317 Top = 336
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -213,12 +215,11 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 317 ExplicitTop = 336
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited bElegirProveedor: TBitBtn inherited bElegirProveedor: TBitBtn
Width = 108 Width = 108

3
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.pas
View File

@ -15,7 +15,8 @@ uses
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase, FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeBase, uViewParametrosInforme,
uIEditorInformeFacturasProveedorPendientesReport; uIEditorInformeFacturasProveedorPendientesReport, SpTBXControls, StdCtrls,
TntStdCtrls, SpTBXEditors;
type type
TfEditorInformeFacturasProveedorPendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasProveedorPendientesReport) TfEditorInformeFacturasProveedorPendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasProveedorPendientesReport)

61
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm
View File

@ -21,12 +21,16 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 678
object TBXItem58: TSpTBXItem [0] object TBXItem58: TSpTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
Images = SmallImages Images = SmallImages
end end
inherited cbZoom: TSpTBXComboBox
Left = 384
ExplicitLeft = 384
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -40,16 +44,15 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
ExplicitHeight = 534 ExplicitHeight = 534
end end
inherited TBXMultiDockDerecho: TSpTBXMultiDock inherited TBXMultiDockDerecho: TSpTBXMultiDock
Left = 703
Width = 192 Width = 192
Height = 534 Height = 534
ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 534
inherited pnlParametros: TSpTBXDockablePanel inherited pnlParametros: TSpTBXDockablePanel
DockedWidth = 188 Width = 192
Height = 534
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 534
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -66,11 +69,11 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 240 ExplicitHeight = 240
inherited TBXAlignmentPanel2: TSpTBXAlignmentPanel inherited TBXAlignmentPanel2: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 178
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 77 Left = 77
@ -103,13 +106,12 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
end end
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TSpTBXAlignmentPanel inherited TBXAlignmentPanel3: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label4: TLabel inherited Label4: TLabel
Width = 172 Width = 178
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Left = 77 Left = 77
@ -142,30 +144,31 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
end end
end end
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Top = 368 Top = 402
Width = 188
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 402
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TSpTBXButton inherited TBXButton1: TSpTBXButton
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 8
Top = 3 Top = 8
Width = 182 Width = 172
Height = 37 Height = 37
Margins.Left = 8 Margins.Left = 8
Margins.Top = 8 Margins.Top = 8
Margins.Right = 8 Margins.Right = 8
Margins.Bottom = 8 Margins.Bottom = 8
Align = alTop Align = alTop
ExplicitLeft = 3 ExplicitLeft = 8
ExplicitTop = 3 ExplicitTop = 8
ExplicitWidth = 182 ExplicitWidth = 172
ExplicitHeight = 37 ExplicitHeight = 37
end end
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 240 Top = 259
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -178,16 +181,15 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 240 ExplicitTop = 259
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited eImporte: TcxSpinEdit inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -198,7 +200,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
end end
inline frViewFiltroProveedores1: TfrViewFiltroProveedores inline frViewFiltroProveedores1: TfrViewFiltroProveedores
Left = 0 Left = 0
Top = 317 Top = 336
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -211,12 +213,11 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 317 ExplicitTop = 336
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited bElegirProveedor: TBitBtn inherited bElegirProveedor: TBitBtn
Width = 108 Width = 108

3
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.pas
View File

@ -14,7 +14,8 @@ uses
uViewBase, uViewPeriodoFechas, uViewBase, uViewPeriodoFechas,
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase, FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasProveedorReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasProveedorReport,
SpTBXControls, StdCtrls, TntStdCtrls, SpTBXEditors;
type type
TfEditorInformeFacturasProveedorReport = class(TfEditorInformeBase, IEditorInformeFacturasProveedorReport) TfEditorInformeFacturasProveedorReport = class(TfEditorInformeBase, IEditorInformeFacturasProveedorReport)

163
Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm
View File

@ -21,12 +21,16 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 678
object TBXItem58: TSpTBXItem [0] object TBXItem58: TSpTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
Images = SmallImages Images = SmallImages
end end
inherited cbZoom: TSpTBXComboBox
Left = 384
ExplicitLeft = 384
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -40,16 +44,17 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ExplicitHeight = 534 ExplicitHeight = 534
end end
inherited TBXMultiDockDerecho: TSpTBXMultiDock inherited TBXMultiDockDerecho: TSpTBXMultiDock
Left = 703
Width = 192 Width = 192
Height = 534 Height = 534
ExplicitLeft = 703 ExplicitLeft = 433
ExplicitTop = 118
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 534
inherited pnlParametros: TSpTBXDockablePanel inherited pnlParametros: TSpTBXDockablePanel
DockedWidth = 188 Width = 192
Height = 534
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 534
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -66,11 +71,11 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 136
inherited TBXAlignmentPanel2: TSpTBXAlignmentPanel inherited TBXAlignmentPanel2: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 178
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 77 Left = 77
@ -103,14 +108,13 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
end end
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TSpTBXAlignmentPanel inherited TBXAlignmentPanel3: TSpTBXDockablePanel
Width = 182 Width = 178
Visible = False Visible = False
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label4: TLabel inherited Label4: TLabel
Width = 172 Width = 178
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -135,26 +139,32 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
end end
inherited cxRepository: TcxEditRepository
Left = 128
Top = 8
end
end end
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Top = 368 Top = 359
Width = 188
Height = 171
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 359
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TSpTBXButton inherited TBXButton1: TSpTBXButton
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 8
Top = 3 Top = 8
Width = 182 Width = 172
Height = 37 Height = 37
Margins.Left = 8 Margins.Left = 8
Margins.Top = 8 Margins.Top = 8
Margins.Right = 8 Margins.Right = 8
Margins.Bottom = 8 Margins.Bottom = 8
Align = alTop Align = alTop
ExplicitLeft = 3 ExplicitLeft = 8
ExplicitTop = 3 ExplicitTop = 8
ExplicitWidth = 182 ExplicitWidth = 172
ExplicitHeight = 37 ExplicitHeight = 37
end end
end end
@ -172,17 +182,17 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
Visible = False
ReadOnly = False ReadOnly = False
ExplicitTop = 136 ExplicitTop = 155
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited eImporte: TcxSpinEdit inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -203,15 +213,16 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
Font.Height = -11 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentBackground = False
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
Visible = False
ReadOnly = False ReadOnly = False
ExplicitTop = 213 ExplicitTop = 232
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited bElegirCliente: TBitBtn inherited bElegirCliente: TBitBtn
Width = 108 Width = 108
@ -228,4 +239,100 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
end end
end end
end end
inherited EditorActionList: TActionList
Left = 440
Top = 136
end
inherited SmallImages: TPngImageList
Left = 467
Top = 136
end
inherited LargeImages: TPngImageList
Left = 499
Top = 136
end
inherited JvFormStorage: TJvFormStorage
Left = 800
Top = 152
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage
Left = 832
Top = 152
end
inherited StatusBarImages: TPngImageList
Left = 440
Top = 168
end
inherited PreviewActionList: TActionList
Left = 768
Top = 120
end
inherited PreviewSmallImageList: TPngImageList
Left = 795
Top = 120
end
inherited PreviewLargeImageList: TPngImageList
Left = 827
Top = 120
end
inherited frxReport1: TfrxReport
Left = 440
Top = 216
end
inherited frxBarCodeObject1: TfrxBarCodeObject
Left = 440
Top = 256
end
inherited frxOLEObject1: TfrxOLEObject
Left = 472
Top = 216
end
inherited frxRichObject1: TfrxRichObject
Left = 472
Top = 248
end
inherited frxCrossObject1: TfrxCrossObject
Left = 504
Top = 216
end
inherited frxCheckBoxObject1: TfrxCheckBoxObject
Left = 504
Top = 248
end
inherited frxGradientObject1: TfrxGradientObject
Left = 440
Top = 288
end
inherited frxDialogControls1: TfrxDialogControls
Left = 504
Top = 280
end
inherited frxTIFFExport1: TfrxTIFFExport
Left = 560
Top = 168
end
inherited frxPDFExport1: TfrxPDFExport
Left = 600
Top = 168
end
inherited frxBMPExport1: TfrxBMPExport
Left = 632
Top = 168
end
inherited frxXLSExport1: TfrxXLSExport
Left = 480
Top = 168
end
inherited frxMailExport1: TfrxMailExport
Left = 520
Top = 168
end
inherited frxRTFExport: TfrxRTFExport
Left = 672
Top = 168
end
inherited frxSimpleTextExport1: TfrxSimpleTextExport
Left = 704
Top = 168
end
end end

3
Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas
View File

@ -14,7 +14,8 @@ uses
uViewBase, uViewPeriodoFechas, uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase, FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeIVAClientesReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeIVAClientesReport,
SpTBXControls, StdCtrls, TntStdCtrls, SpTBXEditors;
type type
TfEditorInformeIVAClientesReport = class(TfEditorInformeBase, IEditorInformeIVAClientesReport) TfEditorInformeIVAClientesReport = class(TfEditorInformeBase, IEditorInformeIVAClientesReport)

61
Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.dfm
View File

@ -21,12 +21,16 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 678
object TBXItem58: TSpTBXItem [0] object TBXItem58: TSpTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
Images = SmallImages Images = SmallImages
end end
inherited cbZoom: TSpTBXComboBox
Left = 384
ExplicitLeft = 384
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -40,16 +44,15 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
ExplicitHeight = 534 ExplicitHeight = 534
end end
inherited TBXMultiDockDerecho: TSpTBXMultiDock inherited TBXMultiDockDerecho: TSpTBXMultiDock
Left = 703
Width = 192 Width = 192
Height = 534 Height = 534
ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 534
inherited pnlParametros: TSpTBXDockablePanel inherited pnlParametros: TSpTBXDockablePanel
DockedWidth = 188 Width = 192
Height = 534
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 534
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -66,11 +69,11 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 136
inherited TBXAlignmentPanel2: TSpTBXAlignmentPanel inherited TBXAlignmentPanel2: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 178
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 76 Left = 76
@ -103,14 +106,13 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
end end
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TSpTBXAlignmentPanel inherited TBXAlignmentPanel3: TSpTBXDockablePanel
Width = 182 Width = 178
Visible = False Visible = False
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label4: TLabel inherited Label4: TLabel
Width = 172 Width = 178
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -137,30 +139,31 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
end end
end end
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Top = 368 Top = 402
Width = 188
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 402
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TSpTBXButton inherited TBXButton1: TSpTBXButton
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 8
Top = 3 Top = 8
Width = 182 Width = 172
Height = 37 Height = 37
Margins.Left = 8 Margins.Left = 8
Margins.Top = 8 Margins.Top = 8
Margins.Right = 8 Margins.Right = 8
Margins.Bottom = 8 Margins.Bottom = 8
Align = alTop Align = alTop
ExplicitLeft = 3 ExplicitLeft = 8
ExplicitTop = 3 ExplicitTop = 8
ExplicitWidth = 182 ExplicitWidth = 172
ExplicitHeight = 37 ExplicitHeight = 37
end end
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 136 Top = 155
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -173,16 +176,15 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 136 ExplicitTop = 155
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited eImporte: TcxSpinEdit inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -193,7 +195,7 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
end end
inline frViewFiltroProveedores1: TfrViewFiltroProveedores inline frViewFiltroProveedores1: TfrViewFiltroProveedores
Left = 0 Left = 0
Top = 213 Top = 232
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -206,12 +208,11 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 213 ExplicitTop = 232
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited bElegirProveedor: TBitBtn inherited bElegirProveedor: TBitBtn
Width = 108 Width = 108

3
Source/Modulos/Gestor de informes/Views/uEditorInformeIVAProveedoresReport.pas
View File

@ -14,7 +14,8 @@ uses
uViewBase, uViewPeriodoFechas, uViewBase, uViewPeriodoFechas,
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase, FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeIVAProveedoresReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeIVAProveedoresReport,
SpTBXControls, StdCtrls, TntStdCtrls, SpTBXEditors;
type type
TfEditorInformeIVAProveedoresReport = class(TfEditorInformeBase, IEditorInformeIVAProveedoresReport) TfEditorInformeIVAProveedoresReport = class(TfEditorInformeBase, IEditorInformeIVAProveedoresReport)

61
Source/Modulos/Gestor de informes/Views/uEditorInformePedidosReport.dfm
View File

@ -21,12 +21,16 @@ inherited fEditorInformePedidosReport: TfEditorInformePedidosReport
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 678
object TBXItem58: TSpTBXItem [0] object TBXItem58: TSpTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
Images = SmallImages Images = SmallImages
end end
inherited cbZoom: TSpTBXComboBox
Left = 384
ExplicitLeft = 384
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -40,16 +44,15 @@ inherited fEditorInformePedidosReport: TfEditorInformePedidosReport
ExplicitHeight = 534 ExplicitHeight = 534
end end
inherited TBXMultiDockDerecho: TSpTBXMultiDock inherited TBXMultiDockDerecho: TSpTBXMultiDock
Left = 703
Width = 192 Width = 192
Height = 534 Height = 534
ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 534
inherited pnlParametros: TSpTBXDockablePanel inherited pnlParametros: TSpTBXDockablePanel
DockedWidth = 188 Width = 192
Height = 534
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 534
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -66,11 +69,11 @@ inherited fEditorInformePedidosReport: TfEditorInformePedidosReport
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 136
inherited TBXAlignmentPanel2: TSpTBXAlignmentPanel inherited TBXAlignmentPanel2: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 178
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -103,13 +106,12 @@ inherited fEditorInformePedidosReport: TfEditorInformePedidosReport
end end
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TSpTBXAlignmentPanel inherited TBXAlignmentPanel3: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label4: TLabel inherited Label4: TLabel
Width = 172 Width = 178
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -138,30 +140,31 @@ inherited fEditorInformePedidosReport: TfEditorInformePedidosReport
end end
end end
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Top = 368 Top = 402
Width = 188
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 402
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TSpTBXButton inherited TBXButton1: TSpTBXButton
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 8
Top = 3 Top = 8
Width = 182 Width = 172
Height = 37 Height = 37
Margins.Left = 8 Margins.Left = 8
Margins.Top = 8 Margins.Top = 8
Margins.Right = 8 Margins.Right = 8
Margins.Bottom = 8 Margins.Bottom = 8
Align = alTop Align = alTop
ExplicitLeft = 3 ExplicitLeft = 8
ExplicitTop = 3 ExplicitTop = 8
ExplicitWidth = 182 ExplicitWidth = 172
ExplicitHeight = 37 ExplicitHeight = 37
end end
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 136 Top = 155
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -174,16 +177,15 @@ inherited fEditorInformePedidosReport: TfEditorInformePedidosReport
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 136 ExplicitTop = 155
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited cbxDesglosado: TCheckBox inherited cbxDesglosado: TCheckBox
Caption = 'Solo pedidos que superen:' Caption = 'Solo pedidos que superen:'
end end
@ -197,7 +199,7 @@ inherited fEditorInformePedidosReport: TfEditorInformePedidosReport
end end
inline frViewFiltroProveedores1: TfrViewFiltroProveedores inline frViewFiltroProveedores1: TfrViewFiltroProveedores
Left = 0 Left = 0
Top = 213 Top = 232
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -210,12 +212,11 @@ inherited fEditorInformePedidosReport: TfEditorInformePedidosReport
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 213 ExplicitTop = 232
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited bElegirProveedor: TBitBtn inherited bElegirProveedor: TBitBtn
Width = 108 Width = 108

3
Source/Modulos/Gestor de informes/Views/uEditorInformePedidosReport.pas
View File

@ -14,7 +14,8 @@ uses
uViewBase, uViewPeriodoFechas, uViewBase, uViewPeriodoFechas,
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase, FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformePedidosReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformePedidosReport,
SpTBXControls, StdCtrls, TntStdCtrls, SpTBXEditors;
type type
TfEditorInformePedidosReport = class(TfEditorInformeBase, IEditorInformePedidosReport) TfEditorInformePedidosReport = class(TfEditorInformeBase, IEditorInformePedidosReport)

61
Source/Modulos/Gestor de informes/Views/uEditorInformePresupuestosReport.dfm
View File

@ -21,12 +21,16 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 678
object TBXItem58: TSpTBXItem [0] object TBXItem58: TSpTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
Images = SmallImages Images = SmallImages
end end
inherited cbZoom: TSpTBXComboBox
Left = 384
ExplicitLeft = 384
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -40,16 +44,15 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
ExplicitHeight = 534 ExplicitHeight = 534
end end
inherited TBXMultiDockDerecho: TSpTBXMultiDock inherited TBXMultiDockDerecho: TSpTBXMultiDock
Left = 703
Width = 192 Width = 192
Height = 534 Height = 534
ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 534
inherited pnlParametros: TSpTBXDockablePanel inherited pnlParametros: TSpTBXDockablePanel
DockedWidth = 188 Width = 192
Height = 534
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 534
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -66,11 +69,11 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 136
inherited TBXAlignmentPanel2: TSpTBXAlignmentPanel inherited TBXAlignmentPanel2: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 178
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 76 Left = 76
@ -103,13 +106,12 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
end end
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TSpTBXAlignmentPanel inherited TBXAlignmentPanel3: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label4: TLabel inherited Label4: TLabel
Width = 172 Width = 178
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -138,30 +140,31 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
end end
end end
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Top = 368 Top = 402
Width = 188
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 402
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TSpTBXButton inherited TBXButton1: TSpTBXButton
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 8
Top = 3 Top = 8
Width = 182 Width = 172
Height = 37 Height = 37
Margins.Left = 8 Margins.Left = 8
Margins.Top = 8 Margins.Top = 8
Margins.Right = 8 Margins.Right = 8
Margins.Bottom = 8 Margins.Bottom = 8
Align = alTop Align = alTop
ExplicitLeft = 3 ExplicitLeft = 8
ExplicitTop = 3 ExplicitTop = 8
ExplicitWidth = 182 ExplicitWidth = 172
ExplicitHeight = 37 ExplicitHeight = 37
end end
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 136 Top = 155
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -174,16 +177,15 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 136 ExplicitTop = 155
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited cbxDesglosado: TCheckBox inherited cbxDesglosado: TCheckBox
Caption = 'Solo presupuestos que superen:' Caption = 'Solo presupuestos que superen:'
end end
@ -197,7 +199,7 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
end end
inline frViewFiltroClientes1: TfrViewFiltroClientes inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0 Left = 0
Top = 213 Top = 232
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -210,12 +212,11 @@ inherited fEditorInformePresupuestosReport: TfEditorInformePresupuestosReport
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 213 ExplicitTop = 232
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited bElegirCliente: TBitBtn inherited bElegirCliente: TBitBtn
Width = 108 Width = 108

3
Source/Modulos/Gestor de informes/Views/uEditorInformePresupuestosReport.pas
View File

@ -14,7 +14,8 @@ uses
uViewBase, uViewPeriodoFechas, uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase, FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformePresupuestosReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformePresupuestosReport,
SpTBXControls, StdCtrls, TntStdCtrls, SpTBXEditors;
type type
TfEditorInformePresupuestosReport = class(TfEditorInformeBase, IEditorInformePresupuestosReport) TfEditorInformePresupuestosReport = class(TfEditorInformeBase, IEditorInformePresupuestosReport)

61
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.dfm
View File

@ -21,12 +21,16 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 678
object TBXItem58: TSpTBXItem [0] object TBXItem58: TSpTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
Images = SmallImages Images = SmallImages
end end
inherited cbZoom: TSpTBXComboBox
Left = 384
ExplicitLeft = 384
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -40,16 +44,15 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
ExplicitHeight = 534 ExplicitHeight = 534
end end
inherited TBXMultiDockDerecho: TSpTBXMultiDock inherited TBXMultiDockDerecho: TSpTBXMultiDock
Left = 703
Width = 192 Width = 192
Height = 534 Height = 534
ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 534
inherited pnlParametros: TSpTBXDockablePanel inherited pnlParametros: TSpTBXDockablePanel
DockedWidth = 188 Width = 192
Height = 534
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 534
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -66,11 +69,11 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 240 ExplicitHeight = 240
inherited TBXAlignmentPanel2: TSpTBXAlignmentPanel inherited TBXAlignmentPanel2: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 178
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 76 Left = 76
@ -103,13 +106,12 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
end end
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TSpTBXAlignmentPanel inherited TBXAlignmentPanel3: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label4: TLabel inherited Label4: TLabel
Width = 172 Width = 178
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Left = 76 Left = 76
@ -142,30 +144,31 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
end end
end end
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Top = 368 Top = 402
Width = 188
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 402
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TSpTBXButton inherited TBXButton1: TSpTBXButton
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 8
Top = 3 Top = 8
Width = 182 Width = 172
Height = 37 Height = 37
Margins.Left = 8 Margins.Left = 8
Margins.Top = 8 Margins.Top = 8
Margins.Right = 8 Margins.Right = 8
Margins.Bottom = 8 Margins.Bottom = 8
Align = alTop Align = alTop
ExplicitLeft = 3 ExplicitLeft = 8
ExplicitTop = 3 ExplicitTop = 8
ExplicitWidth = 182 ExplicitWidth = 172
ExplicitHeight = 37 ExplicitHeight = 37
end end
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 240 Top = 259
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -178,16 +181,15 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 240 ExplicitTop = 259
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited eImporte: TcxSpinEdit inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -198,7 +200,7 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
end end
inline frViewFiltroClientes1: TfrViewFiltroClientes inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0 Left = 0
Top = 317 Top = 336
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -211,12 +213,11 @@ inherited fEditorInformeRecibosCliPendientesReport: TfEditorInformeRecibosCliPen
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 317 ExplicitTop = 336
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited bElegirCliente: TBitBtn inherited bElegirCliente: TBitBtn
Width = 108 Width = 108

3
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosCliPendientesReport.pas
View File

@ -14,7 +14,8 @@ uses
uViewBase, uViewPeriodoFechas, uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase, FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosCliPendientesReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosCliPendientesReport,
SpTBXControls, StdCtrls, TntStdCtrls, SpTBXEditors;
type type
TfEditorInformeRecibosCliPendientesReport = class(TfEditorInformeBase, IEditorInformeRecibosCliPendientesReport) TfEditorInformeRecibosCliPendientesReport = class(TfEditorInformeBase, IEditorInformeRecibosCliPendientesReport)

61
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.dfm
View File

@ -21,12 +21,16 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 678
object TBXItem58: TSpTBXItem [0] object TBXItem58: TSpTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
Images = SmallImages Images = SmallImages
end end
inherited cbZoom: TSpTBXComboBox
Left = 384
ExplicitLeft = 384
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -40,16 +44,15 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
ExplicitHeight = 534 ExplicitHeight = 534
end end
inherited TBXMultiDockDerecho: TSpTBXMultiDock inherited TBXMultiDockDerecho: TSpTBXMultiDock
Left = 703
Width = 192 Width = 192
Height = 534 Height = 534
ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 534
inherited pnlParametros: TSpTBXDockablePanel inherited pnlParametros: TSpTBXDockablePanel
DockedWidth = 188 Width = 192
Height = 534
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 534
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -66,11 +69,11 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 240 ExplicitHeight = 240
inherited TBXAlignmentPanel2: TSpTBXAlignmentPanel inherited TBXAlignmentPanel2: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 178
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 77 Left = 77
@ -103,13 +106,12 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
end end
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TSpTBXAlignmentPanel inherited TBXAlignmentPanel3: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label4: TLabel inherited Label4: TLabel
Width = 172 Width = 178
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Left = 76 Left = 76
@ -142,30 +144,31 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
end end
end end
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Top = 368 Top = 402
Width = 188
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 402
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TSpTBXButton inherited TBXButton1: TSpTBXButton
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 8
Top = 3 Top = 8
Width = 182 Width = 172
Height = 37 Height = 37
Margins.Left = 8 Margins.Left = 8
Margins.Top = 8 Margins.Top = 8
Margins.Right = 8 Margins.Right = 8
Margins.Bottom = 8 Margins.Bottom = 8
Align = alTop Align = alTop
ExplicitLeft = 3 ExplicitLeft = 8
ExplicitTop = 3 ExplicitTop = 8
ExplicitWidth = 182 ExplicitWidth = 172
ExplicitHeight = 37 ExplicitHeight = 37
end end
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 240 Top = 259
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -178,16 +181,15 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 240 ExplicitTop = 259
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited eImporte: TcxSpinEdit inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -198,7 +200,7 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
end end
inline frViewFiltroClientes1: TfrViewFiltroClientes inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0 Left = 0
Top = 317 Top = 336
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -211,12 +213,11 @@ inherited fEditorInformeRecibosClienteReport: TfEditorInformeRecibosClienteRepor
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 317 ExplicitTop = 336
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited bElegirCliente: TBitBtn inherited bElegirCliente: TBitBtn
Width = 108 Width = 108

3
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosClienteReport.pas
View File

@ -14,7 +14,8 @@ uses
uViewBase, uViewPeriodoFechas, uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase, FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosClienteReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosClienteReport,
SpTBXControls, StdCtrls, TntStdCtrls, SpTBXEditors;
type type
TfEditorInformeRecibosClienteReport = class(TfEditorInformeBase, IEditorInformeRecibosClienteReport) TfEditorInformeRecibosClienteReport = class(TfEditorInformeBase, IEditorInformeRecibosClienteReport)

61
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.dfm
View File

@ -21,12 +21,16 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 678
object TBXItem58: TSpTBXItem [0] object TBXItem58: TSpTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
Images = SmallImages Images = SmallImages
end end
inherited cbZoom: TSpTBXComboBox
Left = 384
ExplicitLeft = 384
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -40,16 +44,15 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
ExplicitHeight = 534 ExplicitHeight = 534
end end
inherited TBXMultiDockDerecho: TSpTBXMultiDock inherited TBXMultiDockDerecho: TSpTBXMultiDock
Left = 703
Width = 192 Width = 192
Height = 534 Height = 534
ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 534
inherited pnlParametros: TSpTBXDockablePanel inherited pnlParametros: TSpTBXDockablePanel
DockedWidth = 188 Width = 192
Height = 534
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 534
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -66,11 +69,11 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 240 ExplicitHeight = 240
inherited TBXAlignmentPanel2: TSpTBXAlignmentPanel inherited TBXAlignmentPanel2: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 178
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 76 Left = 76
@ -103,13 +106,12 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
end end
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TSpTBXAlignmentPanel inherited TBXAlignmentPanel3: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label4: TLabel inherited Label4: TLabel
Width = 172 Width = 178
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Left = 76 Left = 76
@ -142,30 +144,31 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
end end
end end
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Top = 368 Top = 402
Width = 188
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 402
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TSpTBXButton inherited TBXButton1: TSpTBXButton
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 8
Top = 3 Top = 8
Width = 182 Width = 172
Height = 37 Height = 37
Margins.Left = 8 Margins.Left = 8
Margins.Top = 8 Margins.Top = 8
Margins.Right = 8 Margins.Right = 8
Margins.Bottom = 8 Margins.Bottom = 8
Align = alTop Align = alTop
ExplicitLeft = 3 ExplicitLeft = 8
ExplicitTop = 3 ExplicitTop = 8
ExplicitWidth = 182 ExplicitWidth = 172
ExplicitHeight = 37 ExplicitHeight = 37
end end
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 240 Top = 259
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -178,16 +181,15 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 240 ExplicitTop = 259
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited eImporte: TcxSpinEdit inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -198,7 +200,7 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
end end
inline frViewFiltroProveedores1: TfrViewFiltroProveedores inline frViewFiltroProveedores1: TfrViewFiltroProveedores
Left = 0 Left = 0
Top = 317 Top = 336
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -211,12 +213,11 @@ inherited fEditorInformeRecibosProvPendientesReport: TfEditorInformeRecibosProvP
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 317 ExplicitTop = 336
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited bElegirProveedor: TBitBtn inherited bElegirProveedor: TBitBtn
Width = 108 Width = 108

3
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProvPendientesReport.pas
View File

@ -14,7 +14,8 @@ uses
uViewBase, uViewPeriodoFechas, uViewBase, uViewPeriodoFechas,
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase, FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosProvPendientesReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosProvPendientesReport,
SpTBXControls, StdCtrls, TntStdCtrls, SpTBXEditors;
type type
TfEditorInformeRecibosProvPendientesReport = class(TfEditorInformeBase, IEditorInformeRecibosProvPendientesReport) TfEditorInformeRecibosProvPendientesReport = class(TfEditorInformeBase, IEditorInformeRecibosProvPendientesReport)

61
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.dfm
View File

@ -21,12 +21,16 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 678
object TBXItem58: TSpTBXItem [0] object TBXItem58: TSpTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
Images = SmallImages Images = SmallImages
end end
inherited cbZoom: TSpTBXComboBox
Left = 384
ExplicitLeft = 384
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -40,16 +44,15 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
ExplicitHeight = 534 ExplicitHeight = 534
end end
inherited TBXMultiDockDerecho: TSpTBXMultiDock inherited TBXMultiDockDerecho: TSpTBXMultiDock
Left = 703
Width = 192 Width = 192
Height = 534 Height = 534
ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 534
inherited pnlParametros: TSpTBXDockablePanel inherited pnlParametros: TSpTBXDockablePanel
DockedWidth = 188 Width = 192
Height = 534
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 534
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -66,11 +69,11 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 240 ExplicitHeight = 240
inherited TBXAlignmentPanel2: TSpTBXAlignmentPanel inherited TBXAlignmentPanel2: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited Label3: TLabel inherited Label3: TLabel
Width = 172 Width = 178
end end
inherited edtFechaFin: TcxDateEdit inherited edtFechaFin: TcxDateEdit
Left = 76 Left = 76
@ -103,15 +106,14 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
end end
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel3: TSpTBXAlignmentPanel inherited TBXAlignmentPanel3: TSpTBXDockablePanel
Width = 182 Width = 178
Height = 99 Height = 99
ExplicitWidth = 182 ExplicitWidth = 178
ExplicitHeight = 99 ExplicitHeight = 99
inherited Label4: TLabel inherited Label4: TLabel
Width = 172 Width = 178
end end
inherited edtFechaVenFin: TcxDateEdit inherited edtFechaVenFin: TcxDateEdit
Left = 76 Left = 76
@ -146,30 +148,31 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
end end
end end
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Top = 368 Top = 402
Width = 188
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 402
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TSpTBXButton inherited TBXButton1: TSpTBXButton
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 8
Top = 3 Top = 8
Width = 182 Width = 172
Height = 37 Height = 37
Margins.Left = 8 Margins.Left = 8
Margins.Top = 8 Margins.Top = 8
Margins.Right = 8 Margins.Right = 8
Margins.Bottom = 8 Margins.Bottom = 8
Align = alTop Align = alTop
ExplicitLeft = 3 ExplicitLeft = 8
ExplicitTop = 3 ExplicitTop = 8
ExplicitWidth = 182 ExplicitWidth = 172
ExplicitHeight = 37 ExplicitHeight = 37
end end
end end
inline frViewFiltroImportes1: TfrViewFiltroImportes inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0 Left = 0
Top = 240 Top = 259
Width = 188 Width = 188
Height = 77 Height = 77
Align = alTop Align = alTop
@ -182,16 +185,15 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 240 ExplicitTop = 259
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 77 ExplicitHeight = 77
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 182 Width = 178
ExplicitWidth = 182 ExplicitWidth = 178
inherited eImporte: TcxSpinEdit inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -202,7 +204,7 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
end end
inline frViewFiltroProveedores1: TfrViewFiltroProveedores inline frViewFiltroProveedores1: TfrViewFiltroProveedores
Left = 0 Left = 0
Top = 317 Top = 336
Width = 188 Width = 188
Height = 146 Height = 146
Align = alTop Align = alTop
@ -215,12 +217,11 @@ inherited fEditorInformeRecibosProveedorReport: TfEditorInformeRecibosProveedorR
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 317 ExplicitTop = 336
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 146 ExplicitHeight = 146
inherited TBXLabel2: TSpTBXLabel inherited TBXLabel2: TSpTBXLabel
Width = 188 Width = 188
ExplicitWidth = 188
end end
inherited bElegirProveedor: TBitBtn inherited bElegirProveedor: TBitBtn
Width = 108 Width = 108

3
Source/Modulos/Gestor de informes/Views/uEditorInformeRecibosProveedorReport.pas
View File

@ -14,7 +14,8 @@ uses
uViewBase, uViewPeriodoFechas, uViewBase, uViewPeriodoFechas,
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase, FactuGES_Intf, SpTBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosProveedorReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeRecibosProveedorReport,
SpTBXControls, StdCtrls, TntStdCtrls, SpTBXEditors;
type type
TfEditorInformeRecibosProveedorReport = class(TfEditorInformeBase, IEditorInformeRecibosProveedorReport) TfEditorInformeRecibosProveedorReport = class(TfEditorInformeBase, IEditorInformeRecibosProveedorReport)

3
Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.dfm
View File

@ -14,8 +14,8 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
Height = 29 Height = 29
Margins.Top = 5 Margins.Top = 5
Margins.Bottom = 10 Margins.Bottom = 10
Align = alTop
Caption = 'Clientes' Caption = 'Clientes'
Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -24,6 +24,7 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Underline = True Underline = True
ExplicitWidth = 52
end end
object bElegirCliente: TBitBtn object bElegirCliente: TBitBtn
AlignWithMargins = True AlignWithMargins = True

3
Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.pas
View File

@ -6,7 +6,8 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
StdCtrls, Buttons, SpTBXDkPanels, uViewParametrosInforme, uBizContactos, StdCtrls, Buttons, SpTBXDkPanels, uViewParametrosInforme, uBizContactos,
uClientesController, SpTBXControls, SpTBXItem; uClientesController, SpTBXControls, SpTBXItem, cxGraphics, cxLookAndFeels,
cxLookAndFeelPainters;
type type
IViewFiltroClientes = interface(IViewParametrosInforme) IViewFiltroClientes = interface(IViewParametrosInforme)

3
Source/Modulos/Gestor de informes/Views/uViewFiltroProveedores.dfm
View File

@ -14,8 +14,8 @@ inherited frViewFiltroProveedores: TfrViewFiltroProveedores
Height = 29 Height = 29
Margins.Top = 5 Margins.Top = 5
Margins.Bottom = 10 Margins.Bottom = 10
Align = alTop
Caption = 'Proveedores' Caption = 'Proveedores'
Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -24,6 +24,7 @@ inherited frViewFiltroProveedores: TfrViewFiltroProveedores
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Underline = True Underline = True
ExplicitWidth = 78
end end
object bElegirProveedor: TBitBtn object bElegirProveedor: TBitBtn
AlignWithMargins = True AlignWithMargins = True

3
Source/Modulos/Gestor de informes/Views/uViewFiltroProveedores.pas
View File

@ -6,7 +6,8 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
StdCtrls, Buttons, SpTBXDkPanels, uViewParametrosInforme, uBizContactos, StdCtrls, Buttons, SpTBXDkPanels, uViewParametrosInforme, uBizContactos,
uProveedoresController, SpTBXControls; uProveedoresController, SpTBXControls, cxGraphics, cxLookAndFeels,
cxLookAndFeelPainters, SpTBXItem;
type type
IViewFiltroProveedores = interface(IViewParametrosInforme) IViewFiltroProveedores = interface(IViewParametrosInforme)

1
Source/Modulos/Gestor de informes/Views/uViewParametrosInforme.dfm
View File

@ -1,6 +1,7 @@
inherited frViewParametrosInforme: TfrViewParametrosInforme inherited frViewParametrosInforme: TfrViewParametrosInforme
Width = 369 Width = 369
Height = 195 Height = 195
ParentColor = False
ExplicitWidth = 369 ExplicitWidth = 369
ExplicitHeight = 195 ExplicitHeight = 195
end end

2
Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.dfm
View File

@ -28,7 +28,6 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
Align = alTop Align = alTop
Caption = 'Rango de fechas:' Caption = 'Rango de fechas:'
Transparent = True Transparent = True
ExplicitTop = 10
ExplicitWidth = 85 ExplicitWidth = 85
end end
object Label1: TLabel object Label1: TLabel
@ -176,7 +175,6 @@ inherited frViewPeriodoFechas: TfrViewPeriodoFechas
Align = alTop Align = alTop
Caption = 'Rango de fechas de vencimiento:' Caption = 'Rango de fechas de vencimiento:'
Transparent = True Transparent = True
ExplicitTop = 10
ExplicitWidth = 160 ExplicitWidth = 160
end end
object Label5: TLabel object Label5: TLabel

4
Source/Modulos/Inventario/Data/Inventario_data.dproj
View File

@ -46,8 +46,8 @@
<DelphiCompile Include="Inventario_data.dpk"> <DelphiCompile Include="Inventario_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Pedidos a proveedor\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Inventario_model.dcp" /> <DCCReference Include="..\Inventario_model.dcp" />
<DCCReference Include="uDataModuleInventario.pas"> <DCCReference Include="uDataModuleInventario.pas">
<Form>DataModuleInventario</Form> <Form>DataModuleInventario</Form>
</DCCReference> </DCCReference>

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

@ -134,12 +134,10 @@ inherited DataModuleInventario: TDataModuleInventario
Name = 'ALMACEN' Name = 'ALMACEN'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'INVENTARIO_ALMACEN'
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_EMPRESA'
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
@ -180,6 +178,54 @@ inherited DataModuleInventario: TDataModuleInventario
DataType = datString DataType = datString
Size = 6 Size = 6
end end
item
Name = 'COLOR1'
DataType = datLargeInt
end
item
Name = 'COLOR2'
DataType = datLargeInt
end
item
Name = 'COLOR3'
DataType = datLargeInt
end
item
Name = 'COLOR4'
DataType = datLargeInt
end
item
Name = 'COLOR5'
DataType = datLargeInt
end
item
Name = 'COLOR6'
DataType = datLargeInt
end
item
Name = 'COLOR7'
DataType = datLargeInt
end
item
Name = 'COLOR8'
DataType = datLargeInt
end
item
Name = 'COLOR9'
DataType = datLargeInt
end
item
Name = 'COLOR10'
DataType = datLargeInt
end
item
Name = 'COLOR11'
DataType = datLargeInt
end
item
Name = 'COLOR12'
DataType = datLargeInt
end
item item
Name = 'STOCK' Name = 'STOCK'
DataType = datFloat DataType = datFloat
@ -188,21 +234,15 @@ inherited DataModuleInventario: TDataModuleInventario
end end
item item
Name = 'UNIDADES_ALMACEN' Name = 'UNIDADES_ALMACEN'
DataType = datFloat DataType = datCurrency
DisplayLabel = 'U. Almac'#233'n'
DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN'
end end
item item
Name = 'RESERVA' Name = 'RESERVA'
DataType = datFloat DataType = datCurrency
DisplayLabel = 'Reservado'
DictionaryEntry = 'INVENTARIO_RESERVA'
end end
item item
Name = 'PENDIENTE_RECEPCION' Name = 'PENDIENTE_RECEPCION'
DataType = datFloat DataType = datCurrency
DisplayLabel = 'Pendiente de recibir'
DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION'
end end
item item
Name = 'TIPO_ALMACEN' Name = 'TIPO_ALMACEN'

2
Source/Modulos/Inventario/Data/uDataModuleInventario.pas
View File

@ -8,7 +8,7 @@ uses
uRORemoteService, uROClient, uROBinMessage, uRORemoteService, uROClient, uROBinMessage,
uDADesigntimeCall, uDataModuleBase, uDADesigntimeCall, uDataModuleBase,
uIDataModuleInventario, uBizInventario, uDARemoteDataAdapter, uDADataStreamer, uIDataModuleInventario, uBizInventario, uDARemoteDataAdapter, uDADataStreamer,
uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable, uDADataAdapter, uBizMovimientosDetalleColor; uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable, uBizMovimientosDetalleColor;
type type
TDataModuleInventario = class(TDataModuleBase, IDataModuleInventario) TDataModuleInventario = class(TDataModuleBase, IDataModuleInventario)

518
Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas
View File

@ -10,10 +10,10 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Inventario = '{88FDC46A-5C64-47DE-9A7C-05A1EF1BB733}'; RID_Inventario = '{6A5D12A1-D15A-47E8-A1FE-89275F715BD4}';
RID_Movimientos_Detalle_Color = '{D2195FD9-C966-4692-A94E-85ED2F809B9A}'; RID_Movimientos_Detalle_Color = '{81E9F5FF-7D42-4884-9451-79518C0DD20C}';
RID_DetalleReservas = '{8C6483AD-1A1E-470B-9E0E-95F976CFB950}'; RID_DetalleReservas = '{D23BEF28-24A1-4416-BA12-EB2D0B126F9C}';
RID_Inventario_Color = '{7CBD3AF6-7665-482B-8751-7F0FACBC0A01}'; RID_Inventario_Color = '{9EE08BFF-95DA-4D80-BB18-D9D1564BAAF6}';
{ Data table names } { Data table names }
nme_Inventario = 'Inventario'; nme_Inventario = 'Inventario';
@ -33,6 +33,18 @@ const
fld_InventarioCAMPOTECNICO = 'CAMPOTECNICO'; fld_InventarioCAMPOTECNICO = 'CAMPOTECNICO';
fld_InventarioCODIGOTECNICO = 'CODIGOTECNICO'; fld_InventarioCODIGOTECNICO = 'CODIGOTECNICO';
fld_InventarioDISENOTECNICO = 'DISENOTECNICO'; fld_InventarioDISENOTECNICO = 'DISENOTECNICO';
fld_InventarioCOLOR1 = 'COLOR1';
fld_InventarioCOLOR2 = 'COLOR2';
fld_InventarioCOLOR3 = 'COLOR3';
fld_InventarioCOLOR4 = 'COLOR4';
fld_InventarioCOLOR5 = 'COLOR5';
fld_InventarioCOLOR6 = 'COLOR6';
fld_InventarioCOLOR7 = 'COLOR7';
fld_InventarioCOLOR8 = 'COLOR8';
fld_InventarioCOLOR9 = 'COLOR9';
fld_InventarioCOLOR10 = 'COLOR10';
fld_InventarioCOLOR11 = 'COLOR11';
fld_InventarioCOLOR12 = 'COLOR12';
fld_InventarioSTOCK = 'STOCK'; fld_InventarioSTOCK = 'STOCK';
fld_InventarioUNIDADES_ALMACEN = 'UNIDADES_ALMACEN'; fld_InventarioUNIDADES_ALMACEN = 'UNIDADES_ALMACEN';
fld_InventarioRESERVA = 'RESERVA'; fld_InventarioRESERVA = 'RESERVA';
@ -57,17 +69,29 @@ const
idx_InventarioCAMPOTECNICO = 8; idx_InventarioCAMPOTECNICO = 8;
idx_InventarioCODIGOTECNICO = 9; idx_InventarioCODIGOTECNICO = 9;
idx_InventarioDISENOTECNICO = 10; idx_InventarioDISENOTECNICO = 10;
idx_InventarioSTOCK = 11; idx_InventarioCOLOR1 = 11;
idx_InventarioUNIDADES_ALMACEN = 12; idx_InventarioCOLOR2 = 12;
idx_InventarioRESERVA = 13; idx_InventarioCOLOR3 = 13;
idx_InventarioPENDIENTE_RECEPCION = 14; idx_InventarioCOLOR4 = 14;
idx_InventarioTIPO_ALMACEN = 15; idx_InventarioCOLOR5 = 15;
idx_InventarioID = 16; idx_InventarioCOLOR6 = 16;
idx_InventarioCANTIDAD = 17; idx_InventarioCOLOR7 = 17;
idx_InventarioFECHA_MOVIMIENTO = 18; idx_InventarioCOLOR8 = 18;
idx_InventarioCAUSA = 19; idx_InventarioCOLOR9 = 19;
idx_InventarioTIPO = 20; idx_InventarioCOLOR10 = 20;
idx_InventarioID_ALMACEN_RESERVA = 21; idx_InventarioCOLOR11 = 21;
idx_InventarioCOLOR12 = 22;
idx_InventarioSTOCK = 23;
idx_InventarioUNIDADES_ALMACEN = 24;
idx_InventarioRESERVA = 25;
idx_InventarioPENDIENTE_RECEPCION = 26;
idx_InventarioTIPO_ALMACEN = 27;
idx_InventarioID = 28;
idx_InventarioCANTIDAD = 29;
idx_InventarioFECHA_MOVIMIENTO = 30;
idx_InventarioCAUSA = 31;
idx_InventarioTIPO = 32;
idx_InventarioID_ALMACEN_RESERVA = 33;
{ Movimientos_Detalle_Color fields } { Movimientos_Detalle_Color fields }
fld_Movimientos_Detalle_ColorID = 'ID'; fld_Movimientos_Detalle_ColorID = 'ID';
@ -174,7 +198,7 @@ const
type type
{ IInventario } { IInventario }
IInventario = interface(IDAStronglyTypedDataTable) IInventario = interface(IDAStronglyTypedDataTable)
['{939DCD46-A13E-4B35-90B0-F28192F5C41E}'] ['{4B5171D8-C58B-487B-BEA0-5907C6C0AC9C}']
{ Property getters and setters } { Property getters and setters }
function GetID_ALMACENValue: Integer; function GetID_ALMACENValue: Integer;
procedure SetID_ALMACENValue(const aValue: Integer); procedure SetID_ALMACENValue(const aValue: Integer);
@ -220,20 +244,68 @@ type
procedure SetDISENOTECNICOValue(const aValue: String); procedure SetDISENOTECNICOValue(const aValue: String);
function GetDISENOTECNICOIsNull: Boolean; function GetDISENOTECNICOIsNull: Boolean;
procedure SetDISENOTECNICOIsNull(const aValue: Boolean); procedure SetDISENOTECNICOIsNull(const aValue: Boolean);
function GetCOLOR1Value: Int64;
procedure SetCOLOR1Value(const aValue: Int64);
function GetCOLOR1IsNull: Boolean;
procedure SetCOLOR1IsNull(const aValue: Boolean);
function GetCOLOR2Value: Int64;
procedure SetCOLOR2Value(const aValue: Int64);
function GetCOLOR2IsNull: Boolean;
procedure SetCOLOR2IsNull(const aValue: Boolean);
function GetCOLOR3Value: Int64;
procedure SetCOLOR3Value(const aValue: Int64);
function GetCOLOR3IsNull: Boolean;
procedure SetCOLOR3IsNull(const aValue: Boolean);
function GetCOLOR4Value: Int64;
procedure SetCOLOR4Value(const aValue: Int64);
function GetCOLOR4IsNull: Boolean;
procedure SetCOLOR4IsNull(const aValue: Boolean);
function GetCOLOR5Value: Int64;
procedure SetCOLOR5Value(const aValue: Int64);
function GetCOLOR5IsNull: Boolean;
procedure SetCOLOR5IsNull(const aValue: Boolean);
function GetCOLOR6Value: Int64;
procedure SetCOLOR6Value(const aValue: Int64);
function GetCOLOR6IsNull: Boolean;
procedure SetCOLOR6IsNull(const aValue: Boolean);
function GetCOLOR7Value: Int64;
procedure SetCOLOR7Value(const aValue: Int64);
function GetCOLOR7IsNull: Boolean;
procedure SetCOLOR7IsNull(const aValue: Boolean);
function GetCOLOR8Value: Int64;
procedure SetCOLOR8Value(const aValue: Int64);
function GetCOLOR8IsNull: Boolean;
procedure SetCOLOR8IsNull(const aValue: Boolean);
function GetCOLOR9Value: Int64;
procedure SetCOLOR9Value(const aValue: Int64);
function GetCOLOR9IsNull: Boolean;
procedure SetCOLOR9IsNull(const aValue: Boolean);
function GetCOLOR10Value: Int64;
procedure SetCOLOR10Value(const aValue: Int64);
function GetCOLOR10IsNull: Boolean;
procedure SetCOLOR10IsNull(const aValue: Boolean);
function GetCOLOR11Value: Int64;
procedure SetCOLOR11Value(const aValue: Int64);
function GetCOLOR11IsNull: Boolean;
procedure SetCOLOR11IsNull(const aValue: Boolean);
function GetCOLOR12Value: Int64;
procedure SetCOLOR12Value(const aValue: Int64);
function GetCOLOR12IsNull: Boolean;
procedure SetCOLOR12IsNull(const aValue: Boolean);
function GetSTOCKValue: Float; function GetSTOCKValue: Float;
procedure SetSTOCKValue(const aValue: Float); procedure SetSTOCKValue(const aValue: Float);
function GetSTOCKIsNull: Boolean; function GetSTOCKIsNull: Boolean;
procedure SetSTOCKIsNull(const aValue: Boolean); procedure SetSTOCKIsNull(const aValue: Boolean);
function GetUNIDADES_ALMACENValue: Float; function GetUNIDADES_ALMACENValue: Currency;
procedure SetUNIDADES_ALMACENValue(const aValue: Float); procedure SetUNIDADES_ALMACENValue(const aValue: Currency);
function GetUNIDADES_ALMACENIsNull: Boolean; function GetUNIDADES_ALMACENIsNull: Boolean;
procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean);
function GetRESERVAValue: Float; function GetRESERVAValue: Currency;
procedure SetRESERVAValue(const aValue: Float); procedure SetRESERVAValue(const aValue: Currency);
function GetRESERVAIsNull: Boolean; function GetRESERVAIsNull: Boolean;
procedure SetRESERVAIsNull(const aValue: Boolean); procedure SetRESERVAIsNull(const aValue: Boolean);
function GetPENDIENTE_RECEPCIONValue: Float; function GetPENDIENTE_RECEPCIONValue: Currency;
procedure SetPENDIENTE_RECEPCIONValue(const aValue: Float); procedure SetPENDIENTE_RECEPCIONValue(const aValue: Currency);
function GetPENDIENTE_RECEPCIONIsNull: Boolean; function GetPENDIENTE_RECEPCIONIsNull: Boolean;
procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean);
function GetTIPO_ALMACENValue: String; function GetTIPO_ALMACENValue: String;
@ -289,13 +361,37 @@ type
property CODIGOTECNICOIsNull: Boolean read GetCODIGOTECNICOIsNull write SetCODIGOTECNICOIsNull; property CODIGOTECNICOIsNull: Boolean read GetCODIGOTECNICOIsNull write SetCODIGOTECNICOIsNull;
property DISENOTECNICO: String read GetDISENOTECNICOValue write SetDISENOTECNICOValue; property DISENOTECNICO: String read GetDISENOTECNICOValue write SetDISENOTECNICOValue;
property DISENOTECNICOIsNull: Boolean read GetDISENOTECNICOIsNull write SetDISENOTECNICOIsNull; property DISENOTECNICOIsNull: Boolean read GetDISENOTECNICOIsNull write SetDISENOTECNICOIsNull;
property COLOR1: Int64 read GetCOLOR1Value write SetCOLOR1Value;
property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
property COLOR2: Int64 read GetCOLOR2Value write SetCOLOR2Value;
property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
property COLOR3: Int64 read GetCOLOR3Value write SetCOLOR3Value;
property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
property COLOR4: Int64 read GetCOLOR4Value write SetCOLOR4Value;
property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
property COLOR5: Int64 read GetCOLOR5Value write SetCOLOR5Value;
property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
property COLOR6: Int64 read GetCOLOR6Value write SetCOLOR6Value;
property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
property COLOR7: Int64 read GetCOLOR7Value write SetCOLOR7Value;
property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
property COLOR8: Int64 read GetCOLOR8Value write SetCOLOR8Value;
property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
property COLOR9: Int64 read GetCOLOR9Value write SetCOLOR9Value;
property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
property COLOR10: Int64 read GetCOLOR10Value write SetCOLOR10Value;
property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
property COLOR11: Int64 read GetCOLOR11Value write SetCOLOR11Value;
property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
property COLOR12: Int64 read GetCOLOR12Value write SetCOLOR12Value;
property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
property STOCK: Float read GetSTOCKValue write SetSTOCKValue; property STOCK: Float read GetSTOCKValue write SetSTOCKValue;
property STOCKIsNull: Boolean read GetSTOCKIsNull write SetSTOCKIsNull; property STOCKIsNull: Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
property UNIDADES_ALMACEN: Float read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue; property UNIDADES_ALMACEN: Currency read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
property UNIDADES_ALMACENIsNull: Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull; property UNIDADES_ALMACENIsNull: Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull;
property RESERVA: Float read GetRESERVAValue write SetRESERVAValue; property RESERVA: Currency read GetRESERVAValue write SetRESERVAValue;
property RESERVAIsNull: Boolean read GetRESERVAIsNull write SetRESERVAIsNull; property RESERVAIsNull: Boolean read GetRESERVAIsNull write SetRESERVAIsNull;
property PENDIENTE_RECEPCION: Float read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue; property PENDIENTE_RECEPCION: Currency read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
property PENDIENTE_RECEPCIONIsNull: Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull; property PENDIENTE_RECEPCIONIsNull: Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull;
property TIPO_ALMACEN: String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue; property TIPO_ALMACEN: String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
property TIPO_ALMACENIsNull: Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull; property TIPO_ALMACENIsNull: Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull;
@ -362,20 +458,68 @@ type
procedure SetDISENOTECNICOValue(const aValue: String); virtual; procedure SetDISENOTECNICOValue(const aValue: String); virtual;
function GetDISENOTECNICOIsNull: Boolean; virtual; function GetDISENOTECNICOIsNull: Boolean; virtual;
procedure SetDISENOTECNICOIsNull(const aValue: Boolean); virtual; procedure SetDISENOTECNICOIsNull(const aValue: Boolean); virtual;
function GetCOLOR1Value: Int64; virtual;
procedure SetCOLOR1Value(const aValue: Int64); virtual;
function GetCOLOR1IsNull: Boolean; virtual;
procedure SetCOLOR1IsNull(const aValue: Boolean); virtual;
function GetCOLOR2Value: Int64; virtual;
procedure SetCOLOR2Value(const aValue: Int64); virtual;
function GetCOLOR2IsNull: Boolean; virtual;
procedure SetCOLOR2IsNull(const aValue: Boolean); virtual;
function GetCOLOR3Value: Int64; virtual;
procedure SetCOLOR3Value(const aValue: Int64); virtual;
function GetCOLOR3IsNull: Boolean; virtual;
procedure SetCOLOR3IsNull(const aValue: Boolean); virtual;
function GetCOLOR4Value: Int64; virtual;
procedure SetCOLOR4Value(const aValue: Int64); virtual;
function GetCOLOR4IsNull: Boolean; virtual;
procedure SetCOLOR4IsNull(const aValue: Boolean); virtual;
function GetCOLOR5Value: Int64; virtual;
procedure SetCOLOR5Value(const aValue: Int64); virtual;
function GetCOLOR5IsNull: Boolean; virtual;
procedure SetCOLOR5IsNull(const aValue: Boolean); virtual;
function GetCOLOR6Value: Int64; virtual;
procedure SetCOLOR6Value(const aValue: Int64); virtual;
function GetCOLOR6IsNull: Boolean; virtual;
procedure SetCOLOR6IsNull(const aValue: Boolean); virtual;
function GetCOLOR7Value: Int64; virtual;
procedure SetCOLOR7Value(const aValue: Int64); virtual;
function GetCOLOR7IsNull: Boolean; virtual;
procedure SetCOLOR7IsNull(const aValue: Boolean); virtual;
function GetCOLOR8Value: Int64; virtual;
procedure SetCOLOR8Value(const aValue: Int64); virtual;
function GetCOLOR8IsNull: Boolean; virtual;
procedure SetCOLOR8IsNull(const aValue: Boolean); virtual;
function GetCOLOR9Value: Int64; virtual;
procedure SetCOLOR9Value(const aValue: Int64); virtual;
function GetCOLOR9IsNull: Boolean; virtual;
procedure SetCOLOR9IsNull(const aValue: Boolean); virtual;
function GetCOLOR10Value: Int64; virtual;
procedure SetCOLOR10Value(const aValue: Int64); virtual;
function GetCOLOR10IsNull: Boolean; virtual;
procedure SetCOLOR10IsNull(const aValue: Boolean); virtual;
function GetCOLOR11Value: Int64; virtual;
procedure SetCOLOR11Value(const aValue: Int64); virtual;
function GetCOLOR11IsNull: Boolean; virtual;
procedure SetCOLOR11IsNull(const aValue: Boolean); virtual;
function GetCOLOR12Value: Int64; virtual;
procedure SetCOLOR12Value(const aValue: Int64); virtual;
function GetCOLOR12IsNull: Boolean; virtual;
procedure SetCOLOR12IsNull(const aValue: Boolean); virtual;
function GetSTOCKValue: Float; virtual; function GetSTOCKValue: Float; virtual;
procedure SetSTOCKValue(const aValue: Float); virtual; procedure SetSTOCKValue(const aValue: Float); virtual;
function GetSTOCKIsNull: Boolean; virtual; function GetSTOCKIsNull: Boolean; virtual;
procedure SetSTOCKIsNull(const aValue: Boolean); virtual; procedure SetSTOCKIsNull(const aValue: Boolean); virtual;
function GetUNIDADES_ALMACENValue: Float; virtual; function GetUNIDADES_ALMACENValue: Currency; virtual;
procedure SetUNIDADES_ALMACENValue(const aValue: Float); virtual; procedure SetUNIDADES_ALMACENValue(const aValue: Currency); virtual;
function GetUNIDADES_ALMACENIsNull: Boolean; virtual; function GetUNIDADES_ALMACENIsNull: Boolean; virtual;
procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); virtual; procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); virtual;
function GetRESERVAValue: Float; virtual; function GetRESERVAValue: Currency; virtual;
procedure SetRESERVAValue(const aValue: Float); virtual; procedure SetRESERVAValue(const aValue: Currency); virtual;
function GetRESERVAIsNull: Boolean; virtual; function GetRESERVAIsNull: Boolean; virtual;
procedure SetRESERVAIsNull(const aValue: Boolean); virtual; procedure SetRESERVAIsNull(const aValue: Boolean); virtual;
function GetPENDIENTE_RECEPCIONValue: Float; virtual; function GetPENDIENTE_RECEPCIONValue: Currency; virtual;
procedure SetPENDIENTE_RECEPCIONValue(const aValue: Float); virtual; procedure SetPENDIENTE_RECEPCIONValue(const aValue: Currency); virtual;
function GetPENDIENTE_RECEPCIONIsNull: Boolean; virtual; function GetPENDIENTE_RECEPCIONIsNull: Boolean; virtual;
procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); virtual; procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); virtual;
function GetTIPO_ALMACENValue: String; virtual; function GetTIPO_ALMACENValue: String; virtual;
@ -430,13 +574,37 @@ type
property CODIGOTECNICOIsNull: Boolean read GetCODIGOTECNICOIsNull write SetCODIGOTECNICOIsNull; property CODIGOTECNICOIsNull: Boolean read GetCODIGOTECNICOIsNull write SetCODIGOTECNICOIsNull;
property DISENOTECNICO: String read GetDISENOTECNICOValue write SetDISENOTECNICOValue; property DISENOTECNICO: String read GetDISENOTECNICOValue write SetDISENOTECNICOValue;
property DISENOTECNICOIsNull: Boolean read GetDISENOTECNICOIsNull write SetDISENOTECNICOIsNull; property DISENOTECNICOIsNull: Boolean read GetDISENOTECNICOIsNull write SetDISENOTECNICOIsNull;
property COLOR1: Int64 read GetCOLOR1Value write SetCOLOR1Value;
property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
property COLOR2: Int64 read GetCOLOR2Value write SetCOLOR2Value;
property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
property COLOR3: Int64 read GetCOLOR3Value write SetCOLOR3Value;
property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
property COLOR4: Int64 read GetCOLOR4Value write SetCOLOR4Value;
property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
property COLOR5: Int64 read GetCOLOR5Value write SetCOLOR5Value;
property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
property COLOR6: Int64 read GetCOLOR6Value write SetCOLOR6Value;
property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
property COLOR7: Int64 read GetCOLOR7Value write SetCOLOR7Value;
property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
property COLOR8: Int64 read GetCOLOR8Value write SetCOLOR8Value;
property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
property COLOR9: Int64 read GetCOLOR9Value write SetCOLOR9Value;
property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
property COLOR10: Int64 read GetCOLOR10Value write SetCOLOR10Value;
property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
property COLOR11: Int64 read GetCOLOR11Value write SetCOLOR11Value;
property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
property COLOR12: Int64 read GetCOLOR12Value write SetCOLOR12Value;
property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
property STOCK: Float read GetSTOCKValue write SetSTOCKValue; property STOCK: Float read GetSTOCKValue write SetSTOCKValue;
property STOCKIsNull: Boolean read GetSTOCKIsNull write SetSTOCKIsNull; property STOCKIsNull: Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
property UNIDADES_ALMACEN: Float read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue; property UNIDADES_ALMACEN: Currency read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
property UNIDADES_ALMACENIsNull: Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull; property UNIDADES_ALMACENIsNull: Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull;
property RESERVA: Float read GetRESERVAValue write SetRESERVAValue; property RESERVA: Currency read GetRESERVAValue write SetRESERVAValue;
property RESERVAIsNull: Boolean read GetRESERVAIsNull write SetRESERVAIsNull; property RESERVAIsNull: Boolean read GetRESERVAIsNull write SetRESERVAIsNull;
property PENDIENTE_RECEPCION: Float read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue; property PENDIENTE_RECEPCION: Currency read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
property PENDIENTE_RECEPCIONIsNull: Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull; property PENDIENTE_RECEPCIONIsNull: Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull;
property TIPO_ALMACEN: String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue; property TIPO_ALMACEN: String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
property TIPO_ALMACENIsNull: Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull; property TIPO_ALMACENIsNull: Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull;
@ -461,7 +629,7 @@ type
{ IMovimientos_Detalle_Color } { IMovimientos_Detalle_Color }
IMovimientos_Detalle_Color = interface(IDAStronglyTypedDataTable) IMovimientos_Detalle_Color = interface(IDAStronglyTypedDataTable)
['{E8729FC0-DE70-4AFD-B0AB-A8161008DB6E}'] ['{6A041F7D-ED1C-4FC5-9AEA-0A19784DDAEE}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -652,7 +820,7 @@ type
{ IDetalleReservas } { IDetalleReservas }
IDetalleReservas = interface(IDAStronglyTypedDataTable) IDetalleReservas = interface(IDAStronglyTypedDataTable)
['{A6431949-92D9-45BE-A8E4-7FC7FD486182}'] ['{349637F0-63BF-4267-82E8-C3DCE7589105}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -879,7 +1047,7 @@ type
{ IInventario_Color } { IInventario_Color }
IInventario_Color = interface(IDAStronglyTypedDataTable) IInventario_Color = interface(IDAStronglyTypedDataTable)
['{D06D1829-B413-48F1-8267-0D2C6937660E}'] ['{F2F895A5-4634-437F-8365-8F238F9226BB}']
{ Property getters and setters } { Property getters and setters }
function GetID_ALMACENValue: Integer; function GetID_ALMACENValue: Integer;
procedure SetID_ALMACENValue(const aValue: Integer); procedure SetID_ALMACENValue(const aValue: Integer);
@ -1314,6 +1482,258 @@ begin
DataTable.Fields[idx_InventarioDISENOTECNICO].AsVariant := Null; DataTable.Fields[idx_InventarioDISENOTECNICO].AsVariant := Null;
end; end;
function TInventarioDataTableRules.GetCOLOR1Value: Int64;
begin
result := DataTable.Fields[idx_InventarioCOLOR1].AsLargeInt;
end;
procedure TInventarioDataTableRules.SetCOLOR1Value(const aValue: Int64);
begin
DataTable.Fields[idx_InventarioCOLOR1].AsLargeInt := aValue;
end;
function TInventarioDataTableRules.GetCOLOR1IsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioCOLOR1].IsNull;
end;
procedure TInventarioDataTableRules.SetCOLOR1IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioCOLOR1].AsVariant := Null;
end;
function TInventarioDataTableRules.GetCOLOR2Value: Int64;
begin
result := DataTable.Fields[idx_InventarioCOLOR2].AsLargeInt;
end;
procedure TInventarioDataTableRules.SetCOLOR2Value(const aValue: Int64);
begin
DataTable.Fields[idx_InventarioCOLOR2].AsLargeInt := aValue;
end;
function TInventarioDataTableRules.GetCOLOR2IsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioCOLOR2].IsNull;
end;
procedure TInventarioDataTableRules.SetCOLOR2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioCOLOR2].AsVariant := Null;
end;
function TInventarioDataTableRules.GetCOLOR3Value: Int64;
begin
result := DataTable.Fields[idx_InventarioCOLOR3].AsLargeInt;
end;
procedure TInventarioDataTableRules.SetCOLOR3Value(const aValue: Int64);
begin
DataTable.Fields[idx_InventarioCOLOR3].AsLargeInt := aValue;
end;
function TInventarioDataTableRules.GetCOLOR3IsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioCOLOR3].IsNull;
end;
procedure TInventarioDataTableRules.SetCOLOR3IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioCOLOR3].AsVariant := Null;
end;
function TInventarioDataTableRules.GetCOLOR4Value: Int64;
begin
result := DataTable.Fields[idx_InventarioCOLOR4].AsLargeInt;
end;
procedure TInventarioDataTableRules.SetCOLOR4Value(const aValue: Int64);
begin
DataTable.Fields[idx_InventarioCOLOR4].AsLargeInt := aValue;
end;
function TInventarioDataTableRules.GetCOLOR4IsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioCOLOR4].IsNull;
end;
procedure TInventarioDataTableRules.SetCOLOR4IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioCOLOR4].AsVariant := Null;
end;
function TInventarioDataTableRules.GetCOLOR5Value: Int64;
begin
result := DataTable.Fields[idx_InventarioCOLOR5].AsLargeInt;
end;
procedure TInventarioDataTableRules.SetCOLOR5Value(const aValue: Int64);
begin
DataTable.Fields[idx_InventarioCOLOR5].AsLargeInt := aValue;
end;
function TInventarioDataTableRules.GetCOLOR5IsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioCOLOR5].IsNull;
end;
procedure TInventarioDataTableRules.SetCOLOR5IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioCOLOR5].AsVariant := Null;
end;
function TInventarioDataTableRules.GetCOLOR6Value: Int64;
begin
result := DataTable.Fields[idx_InventarioCOLOR6].AsLargeInt;
end;
procedure TInventarioDataTableRules.SetCOLOR6Value(const aValue: Int64);
begin
DataTable.Fields[idx_InventarioCOLOR6].AsLargeInt := aValue;
end;
function TInventarioDataTableRules.GetCOLOR6IsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioCOLOR6].IsNull;
end;
procedure TInventarioDataTableRules.SetCOLOR6IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioCOLOR6].AsVariant := Null;
end;
function TInventarioDataTableRules.GetCOLOR7Value: Int64;
begin
result := DataTable.Fields[idx_InventarioCOLOR7].AsLargeInt;
end;
procedure TInventarioDataTableRules.SetCOLOR7Value(const aValue: Int64);
begin
DataTable.Fields[idx_InventarioCOLOR7].AsLargeInt := aValue;
end;
function TInventarioDataTableRules.GetCOLOR7IsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioCOLOR7].IsNull;
end;
procedure TInventarioDataTableRules.SetCOLOR7IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioCOLOR7].AsVariant := Null;
end;
function TInventarioDataTableRules.GetCOLOR8Value: Int64;
begin
result := DataTable.Fields[idx_InventarioCOLOR8].AsLargeInt;
end;
procedure TInventarioDataTableRules.SetCOLOR8Value(const aValue: Int64);
begin
DataTable.Fields[idx_InventarioCOLOR8].AsLargeInt := aValue;
end;
function TInventarioDataTableRules.GetCOLOR8IsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioCOLOR8].IsNull;
end;
procedure TInventarioDataTableRules.SetCOLOR8IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioCOLOR8].AsVariant := Null;
end;
function TInventarioDataTableRules.GetCOLOR9Value: Int64;
begin
result := DataTable.Fields[idx_InventarioCOLOR9].AsLargeInt;
end;
procedure TInventarioDataTableRules.SetCOLOR9Value(const aValue: Int64);
begin
DataTable.Fields[idx_InventarioCOLOR9].AsLargeInt := aValue;
end;
function TInventarioDataTableRules.GetCOLOR9IsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioCOLOR9].IsNull;
end;
procedure TInventarioDataTableRules.SetCOLOR9IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioCOLOR9].AsVariant := Null;
end;
function TInventarioDataTableRules.GetCOLOR10Value: Int64;
begin
result := DataTable.Fields[idx_InventarioCOLOR10].AsLargeInt;
end;
procedure TInventarioDataTableRules.SetCOLOR10Value(const aValue: Int64);
begin
DataTable.Fields[idx_InventarioCOLOR10].AsLargeInt := aValue;
end;
function TInventarioDataTableRules.GetCOLOR10IsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioCOLOR10].IsNull;
end;
procedure TInventarioDataTableRules.SetCOLOR10IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioCOLOR10].AsVariant := Null;
end;
function TInventarioDataTableRules.GetCOLOR11Value: Int64;
begin
result := DataTable.Fields[idx_InventarioCOLOR11].AsLargeInt;
end;
procedure TInventarioDataTableRules.SetCOLOR11Value(const aValue: Int64);
begin
DataTable.Fields[idx_InventarioCOLOR11].AsLargeInt := aValue;
end;
function TInventarioDataTableRules.GetCOLOR11IsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioCOLOR11].IsNull;
end;
procedure TInventarioDataTableRules.SetCOLOR11IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioCOLOR11].AsVariant := Null;
end;
function TInventarioDataTableRules.GetCOLOR12Value: Int64;
begin
result := DataTable.Fields[idx_InventarioCOLOR12].AsLargeInt;
end;
procedure TInventarioDataTableRules.SetCOLOR12Value(const aValue: Int64);
begin
DataTable.Fields[idx_InventarioCOLOR12].AsLargeInt := aValue;
end;
function TInventarioDataTableRules.GetCOLOR12IsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioCOLOR12].IsNull;
end;
procedure TInventarioDataTableRules.SetCOLOR12IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioCOLOR12].AsVariant := Null;
end;
function TInventarioDataTableRules.GetSTOCKValue: Float; function TInventarioDataTableRules.GetSTOCKValue: Float;
begin begin
result := DataTable.Fields[idx_InventarioSTOCK].AsFloat; result := DataTable.Fields[idx_InventarioSTOCK].AsFloat;
@ -1335,14 +1755,14 @@ begin
DataTable.Fields[idx_InventarioSTOCK].AsVariant := Null; DataTable.Fields[idx_InventarioSTOCK].AsVariant := Null;
end; end;
function TInventarioDataTableRules.GetUNIDADES_ALMACENValue: Float; function TInventarioDataTableRules.GetUNIDADES_ALMACENValue: Currency;
begin begin
result := DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsFloat; result := DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsCurrency;
end; end;
procedure TInventarioDataTableRules.SetUNIDADES_ALMACENValue(const aValue: Float); procedure TInventarioDataTableRules.SetUNIDADES_ALMACENValue(const aValue: Currency);
begin begin
DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsFloat := aValue; DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsCurrency := aValue;
end; end;
function TInventarioDataTableRules.GetUNIDADES_ALMACENIsNull: boolean; function TInventarioDataTableRules.GetUNIDADES_ALMACENIsNull: boolean;
@ -1356,14 +1776,14 @@ begin
DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsVariant := Null; DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsVariant := Null;
end; end;
function TInventarioDataTableRules.GetRESERVAValue: Float; function TInventarioDataTableRules.GetRESERVAValue: Currency;
begin begin
result := DataTable.Fields[idx_InventarioRESERVA].AsFloat; result := DataTable.Fields[idx_InventarioRESERVA].AsCurrency;
end; end;
procedure TInventarioDataTableRules.SetRESERVAValue(const aValue: Float); procedure TInventarioDataTableRules.SetRESERVAValue(const aValue: Currency);
begin begin
DataTable.Fields[idx_InventarioRESERVA].AsFloat := aValue; DataTable.Fields[idx_InventarioRESERVA].AsCurrency := aValue;
end; end;
function TInventarioDataTableRules.GetRESERVAIsNull: boolean; function TInventarioDataTableRules.GetRESERVAIsNull: boolean;
@ -1377,14 +1797,14 @@ begin
DataTable.Fields[idx_InventarioRESERVA].AsVariant := Null; DataTable.Fields[idx_InventarioRESERVA].AsVariant := Null;
end; end;
function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONValue: Float; function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONValue: Currency;
begin begin
result := DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsFloat; result := DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsCurrency;
end; end;
procedure TInventarioDataTableRules.SetPENDIENTE_RECEPCIONValue(const aValue: Float); procedure TInventarioDataTableRules.SetPENDIENTE_RECEPCIONValue(const aValue: Currency);
begin begin
DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsFloat := aValue; DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsCurrency := aValue;
end; end;
function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONIsNull: boolean; function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONIsNull: boolean;

640
Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas
View File

@ -10,15 +10,15 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_InventarioDelta = '{DB1931D9-F42E-491B-998C-E8AC0081DFC2}'; RID_InventarioDelta = '{3DA6B112-7542-47EB-94B2-5784B8A266A9}';
RID_Movimientos_Detalle_ColorDelta = '{00816D03-8F02-4E0A-9999-AF6FC7F4FB0B}'; RID_Movimientos_Detalle_ColorDelta = '{4902A57C-01BF-49A1-A5CD-C989ED6137B9}';
RID_DetalleReservasDelta = '{3E9E6CAB-DC33-43FF-9A3C-3BFEEB6FE7C4}'; RID_DetalleReservasDelta = '{C361CD99-3E33-4C12-A3C8-9BFF6BB0A7C1}';
RID_Inventario_ColorDelta = '{D063845D-38A5-4EA5-A0BE-257ED7073F0C}'; RID_Inventario_ColorDelta = '{B1243606-76BE-4AB1-8CB0-0172E8809E77}';
type type
{ IInventarioDelta } { IInventarioDelta }
IInventarioDelta = interface(IInventario) IInventarioDelta = interface(IInventario)
['{DB1931D9-F42E-491B-998C-E8AC0081DFC2}'] ['{3DA6B112-7542-47EB-94B2-5784B8A266A9}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_ALMACENValue : Integer; function GetOldID_ALMACENValue : Integer;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
@ -31,10 +31,22 @@ type
function GetOldCAMPOTECNICOValue : String; function GetOldCAMPOTECNICOValue : String;
function GetOldCODIGOTECNICOValue : String; function GetOldCODIGOTECNICOValue : String;
function GetOldDISENOTECNICOValue : String; function GetOldDISENOTECNICOValue : String;
function GetOldCOLOR1Value : Int64;
function GetOldCOLOR2Value : Int64;
function GetOldCOLOR3Value : Int64;
function GetOldCOLOR4Value : Int64;
function GetOldCOLOR5Value : Int64;
function GetOldCOLOR6Value : Int64;
function GetOldCOLOR7Value : Int64;
function GetOldCOLOR8Value : Int64;
function GetOldCOLOR9Value : Int64;
function GetOldCOLOR10Value : Int64;
function GetOldCOLOR11Value : Int64;
function GetOldCOLOR12Value : Int64;
function GetOldSTOCKValue : Float; function GetOldSTOCKValue : Float;
function GetOldUNIDADES_ALMACENValue : Float; function GetOldUNIDADES_ALMACENValue : Currency;
function GetOldRESERVAValue : Float; function GetOldRESERVAValue : Currency;
function GetOldPENDIENTE_RECEPCIONValue : Float; function GetOldPENDIENTE_RECEPCIONValue : Currency;
function GetOldTIPO_ALMACENValue : String; function GetOldTIPO_ALMACENValue : String;
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldCANTIDADValue : Float; function GetOldCANTIDADValue : Float;
@ -55,10 +67,22 @@ type
property OldCAMPOTECNICO : String read GetOldCAMPOTECNICOValue; property OldCAMPOTECNICO : String read GetOldCAMPOTECNICOValue;
property OldCODIGOTECNICO : String read GetOldCODIGOTECNICOValue; property OldCODIGOTECNICO : String read GetOldCODIGOTECNICOValue;
property OldDISENOTECNICO : String read GetOldDISENOTECNICOValue; property OldDISENOTECNICO : String read GetOldDISENOTECNICOValue;
property OldCOLOR1 : Int64 read GetOldCOLOR1Value;
property OldCOLOR2 : Int64 read GetOldCOLOR2Value;
property OldCOLOR3 : Int64 read GetOldCOLOR3Value;
property OldCOLOR4 : Int64 read GetOldCOLOR4Value;
property OldCOLOR5 : Int64 read GetOldCOLOR5Value;
property OldCOLOR6 : Int64 read GetOldCOLOR6Value;
property OldCOLOR7 : Int64 read GetOldCOLOR7Value;
property OldCOLOR8 : Int64 read GetOldCOLOR8Value;
property OldCOLOR9 : Int64 read GetOldCOLOR9Value;
property OldCOLOR10 : Int64 read GetOldCOLOR10Value;
property OldCOLOR11 : Int64 read GetOldCOLOR11Value;
property OldCOLOR12 : Int64 read GetOldCOLOR12Value;
property OldSTOCK : Float read GetOldSTOCKValue; property OldSTOCK : Float read GetOldSTOCKValue;
property OldUNIDADES_ALMACEN : Float read GetOldUNIDADES_ALMACENValue; property OldUNIDADES_ALMACEN : Currency read GetOldUNIDADES_ALMACENValue;
property OldRESERVA : Float read GetOldRESERVAValue; property OldRESERVA : Currency read GetOldRESERVAValue;
property OldPENDIENTE_RECEPCION : Float read GetOldPENDIENTE_RECEPCIONValue; property OldPENDIENTE_RECEPCION : Currency read GetOldPENDIENTE_RECEPCIONValue;
property OldTIPO_ALMACEN : String read GetOldTIPO_ALMACENValue; property OldTIPO_ALMACEN : String read GetOldTIPO_ALMACENValue;
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue; property OldCANTIDAD : Float read GetOldCANTIDADValue;
@ -139,29 +163,101 @@ type
function GetOldDISENOTECNICOIsNull: Boolean; virtual; function GetOldDISENOTECNICOIsNull: Boolean; virtual;
procedure SetDISENOTECNICOValue(const aValue: String); virtual; procedure SetDISENOTECNICOValue(const aValue: String); virtual;
procedure SetDISENOTECNICOIsNull(const aValue: Boolean); virtual; procedure SetDISENOTECNICOIsNull(const aValue: Boolean); virtual;
function GetCOLOR1Value: Int64; virtual;
function GetCOLOR1IsNull: Boolean; virtual;
function GetOldCOLOR1Value: Int64; virtual;
function GetOldCOLOR1IsNull: Boolean; virtual;
procedure SetCOLOR1Value(const aValue: Int64); virtual;
procedure SetCOLOR1IsNull(const aValue: Boolean); virtual;
function GetCOLOR2Value: Int64; virtual;
function GetCOLOR2IsNull: Boolean; virtual;
function GetOldCOLOR2Value: Int64; virtual;
function GetOldCOLOR2IsNull: Boolean; virtual;
procedure SetCOLOR2Value(const aValue: Int64); virtual;
procedure SetCOLOR2IsNull(const aValue: Boolean); virtual;
function GetCOLOR3Value: Int64; virtual;
function GetCOLOR3IsNull: Boolean; virtual;
function GetOldCOLOR3Value: Int64; virtual;
function GetOldCOLOR3IsNull: Boolean; virtual;
procedure SetCOLOR3Value(const aValue: Int64); virtual;
procedure SetCOLOR3IsNull(const aValue: Boolean); virtual;
function GetCOLOR4Value: Int64; virtual;
function GetCOLOR4IsNull: Boolean; virtual;
function GetOldCOLOR4Value: Int64; virtual;
function GetOldCOLOR4IsNull: Boolean; virtual;
procedure SetCOLOR4Value(const aValue: Int64); virtual;
procedure SetCOLOR4IsNull(const aValue: Boolean); virtual;
function GetCOLOR5Value: Int64; virtual;
function GetCOLOR5IsNull: Boolean; virtual;
function GetOldCOLOR5Value: Int64; virtual;
function GetOldCOLOR5IsNull: Boolean; virtual;
procedure SetCOLOR5Value(const aValue: Int64); virtual;
procedure SetCOLOR5IsNull(const aValue: Boolean); virtual;
function GetCOLOR6Value: Int64; virtual;
function GetCOLOR6IsNull: Boolean; virtual;
function GetOldCOLOR6Value: Int64; virtual;
function GetOldCOLOR6IsNull: Boolean; virtual;
procedure SetCOLOR6Value(const aValue: Int64); virtual;
procedure SetCOLOR6IsNull(const aValue: Boolean); virtual;
function GetCOLOR7Value: Int64; virtual;
function GetCOLOR7IsNull: Boolean; virtual;
function GetOldCOLOR7Value: Int64; virtual;
function GetOldCOLOR7IsNull: Boolean; virtual;
procedure SetCOLOR7Value(const aValue: Int64); virtual;
procedure SetCOLOR7IsNull(const aValue: Boolean); virtual;
function GetCOLOR8Value: Int64; virtual;
function GetCOLOR8IsNull: Boolean; virtual;
function GetOldCOLOR8Value: Int64; virtual;
function GetOldCOLOR8IsNull: Boolean; virtual;
procedure SetCOLOR8Value(const aValue: Int64); virtual;
procedure SetCOLOR8IsNull(const aValue: Boolean); virtual;
function GetCOLOR9Value: Int64; virtual;
function GetCOLOR9IsNull: Boolean; virtual;
function GetOldCOLOR9Value: Int64; virtual;
function GetOldCOLOR9IsNull: Boolean; virtual;
procedure SetCOLOR9Value(const aValue: Int64); virtual;
procedure SetCOLOR9IsNull(const aValue: Boolean); virtual;
function GetCOLOR10Value: Int64; virtual;
function GetCOLOR10IsNull: Boolean; virtual;
function GetOldCOLOR10Value: Int64; virtual;
function GetOldCOLOR10IsNull: Boolean; virtual;
procedure SetCOLOR10Value(const aValue: Int64); virtual;
procedure SetCOLOR10IsNull(const aValue: Boolean); virtual;
function GetCOLOR11Value: Int64; virtual;
function GetCOLOR11IsNull: Boolean; virtual;
function GetOldCOLOR11Value: Int64; virtual;
function GetOldCOLOR11IsNull: Boolean; virtual;
procedure SetCOLOR11Value(const aValue: Int64); virtual;
procedure SetCOLOR11IsNull(const aValue: Boolean); virtual;
function GetCOLOR12Value: Int64; virtual;
function GetCOLOR12IsNull: Boolean; virtual;
function GetOldCOLOR12Value: Int64; virtual;
function GetOldCOLOR12IsNull: Boolean; virtual;
procedure SetCOLOR12Value(const aValue: Int64); virtual;
procedure SetCOLOR12IsNull(const aValue: Boolean); virtual;
function GetSTOCKValue: Float; virtual; function GetSTOCKValue: Float; virtual;
function GetSTOCKIsNull: Boolean; virtual; function GetSTOCKIsNull: Boolean; virtual;
function GetOldSTOCKValue: Float; virtual; function GetOldSTOCKValue: Float; virtual;
function GetOldSTOCKIsNull: Boolean; virtual; function GetOldSTOCKIsNull: Boolean; virtual;
procedure SetSTOCKValue(const aValue: Float); virtual; procedure SetSTOCKValue(const aValue: Float); virtual;
procedure SetSTOCKIsNull(const aValue: Boolean); virtual; procedure SetSTOCKIsNull(const aValue: Boolean); virtual;
function GetUNIDADES_ALMACENValue: Float; virtual; function GetUNIDADES_ALMACENValue: Currency; virtual;
function GetUNIDADES_ALMACENIsNull: Boolean; virtual; function GetUNIDADES_ALMACENIsNull: Boolean; virtual;
function GetOldUNIDADES_ALMACENValue: Float; virtual; function GetOldUNIDADES_ALMACENValue: Currency; virtual;
function GetOldUNIDADES_ALMACENIsNull: Boolean; virtual; function GetOldUNIDADES_ALMACENIsNull: Boolean; virtual;
procedure SetUNIDADES_ALMACENValue(const aValue: Float); virtual; procedure SetUNIDADES_ALMACENValue(const aValue: Currency); virtual;
procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); virtual; procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); virtual;
function GetRESERVAValue: Float; virtual; function GetRESERVAValue: Currency; virtual;
function GetRESERVAIsNull: Boolean; virtual; function GetRESERVAIsNull: Boolean; virtual;
function GetOldRESERVAValue: Float; virtual; function GetOldRESERVAValue: Currency; virtual;
function GetOldRESERVAIsNull: Boolean; virtual; function GetOldRESERVAIsNull: Boolean; virtual;
procedure SetRESERVAValue(const aValue: Float); virtual; procedure SetRESERVAValue(const aValue: Currency); virtual;
procedure SetRESERVAIsNull(const aValue: Boolean); virtual; procedure SetRESERVAIsNull(const aValue: Boolean); virtual;
function GetPENDIENTE_RECEPCIONValue: Float; virtual; function GetPENDIENTE_RECEPCIONValue: Currency; virtual;
function GetPENDIENTE_RECEPCIONIsNull: Boolean; virtual; function GetPENDIENTE_RECEPCIONIsNull: Boolean; virtual;
function GetOldPENDIENTE_RECEPCIONValue: Float; virtual; function GetOldPENDIENTE_RECEPCIONValue: Currency; virtual;
function GetOldPENDIENTE_RECEPCIONIsNull: Boolean; virtual; function GetOldPENDIENTE_RECEPCIONIsNull: Boolean; virtual;
procedure SetPENDIENTE_RECEPCIONValue(const aValue: Float); virtual; procedure SetPENDIENTE_RECEPCIONValue(const aValue: Currency); virtual;
procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); virtual; procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); virtual;
function GetTIPO_ALMACENValue: String; virtual; function GetTIPO_ALMACENValue: String; virtual;
function GetTIPO_ALMACENIsNull: Boolean; virtual; function GetTIPO_ALMACENIsNull: Boolean; virtual;
@ -251,21 +347,69 @@ type
property DISENOTECNICOIsNull : Boolean read GetDISENOTECNICOIsNull write SetDISENOTECNICOIsNull; property DISENOTECNICOIsNull : Boolean read GetDISENOTECNICOIsNull write SetDISENOTECNICOIsNull;
property OldDISENOTECNICO : String read GetOldDISENOTECNICOValue; property OldDISENOTECNICO : String read GetOldDISENOTECNICOValue;
property OldDISENOTECNICOIsNull : Boolean read GetOldDISENOTECNICOIsNull; property OldDISENOTECNICOIsNull : Boolean read GetOldDISENOTECNICOIsNull;
property COLOR1 : Int64 read GetCOLOR1Value write SetCOLOR1Value;
property COLOR1IsNull : Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
property OldCOLOR1 : Int64 read GetOldCOLOR1Value;
property OldCOLOR1IsNull : Boolean read GetOldCOLOR1IsNull;
property COLOR2 : Int64 read GetCOLOR2Value write SetCOLOR2Value;
property COLOR2IsNull : Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
property OldCOLOR2 : Int64 read GetOldCOLOR2Value;
property OldCOLOR2IsNull : Boolean read GetOldCOLOR2IsNull;
property COLOR3 : Int64 read GetCOLOR3Value write SetCOLOR3Value;
property COLOR3IsNull : Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
property OldCOLOR3 : Int64 read GetOldCOLOR3Value;
property OldCOLOR3IsNull : Boolean read GetOldCOLOR3IsNull;
property COLOR4 : Int64 read GetCOLOR4Value write SetCOLOR4Value;
property COLOR4IsNull : Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
property OldCOLOR4 : Int64 read GetOldCOLOR4Value;
property OldCOLOR4IsNull : Boolean read GetOldCOLOR4IsNull;
property COLOR5 : Int64 read GetCOLOR5Value write SetCOLOR5Value;
property COLOR5IsNull : Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
property OldCOLOR5 : Int64 read GetOldCOLOR5Value;
property OldCOLOR5IsNull : Boolean read GetOldCOLOR5IsNull;
property COLOR6 : Int64 read GetCOLOR6Value write SetCOLOR6Value;
property COLOR6IsNull : Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
property OldCOLOR6 : Int64 read GetOldCOLOR6Value;
property OldCOLOR6IsNull : Boolean read GetOldCOLOR6IsNull;
property COLOR7 : Int64 read GetCOLOR7Value write SetCOLOR7Value;
property COLOR7IsNull : Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
property OldCOLOR7 : Int64 read GetOldCOLOR7Value;
property OldCOLOR7IsNull : Boolean read GetOldCOLOR7IsNull;
property COLOR8 : Int64 read GetCOLOR8Value write SetCOLOR8Value;
property COLOR8IsNull : Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
property OldCOLOR8 : Int64 read GetOldCOLOR8Value;
property OldCOLOR8IsNull : Boolean read GetOldCOLOR8IsNull;
property COLOR9 : Int64 read GetCOLOR9Value write SetCOLOR9Value;
property COLOR9IsNull : Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
property OldCOLOR9 : Int64 read GetOldCOLOR9Value;
property OldCOLOR9IsNull : Boolean read GetOldCOLOR9IsNull;
property COLOR10 : Int64 read GetCOLOR10Value write SetCOLOR10Value;
property COLOR10IsNull : Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
property OldCOLOR10 : Int64 read GetOldCOLOR10Value;
property OldCOLOR10IsNull : Boolean read GetOldCOLOR10IsNull;
property COLOR11 : Int64 read GetCOLOR11Value write SetCOLOR11Value;
property COLOR11IsNull : Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
property OldCOLOR11 : Int64 read GetOldCOLOR11Value;
property OldCOLOR11IsNull : Boolean read GetOldCOLOR11IsNull;
property COLOR12 : Int64 read GetCOLOR12Value write SetCOLOR12Value;
property COLOR12IsNull : Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
property OldCOLOR12 : Int64 read GetOldCOLOR12Value;
property OldCOLOR12IsNull : Boolean read GetOldCOLOR12IsNull;
property STOCK : Float read GetSTOCKValue write SetSTOCKValue; property STOCK : Float read GetSTOCKValue write SetSTOCKValue;
property STOCKIsNull : Boolean read GetSTOCKIsNull write SetSTOCKIsNull; property STOCKIsNull : Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
property OldSTOCK : Float read GetOldSTOCKValue; property OldSTOCK : Float read GetOldSTOCKValue;
property OldSTOCKIsNull : Boolean read GetOldSTOCKIsNull; property OldSTOCKIsNull : Boolean read GetOldSTOCKIsNull;
property UNIDADES_ALMACEN : Float read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue; property UNIDADES_ALMACEN : Currency read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
property UNIDADES_ALMACENIsNull : Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull; property UNIDADES_ALMACENIsNull : Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull;
property OldUNIDADES_ALMACEN : Float read GetOldUNIDADES_ALMACENValue; property OldUNIDADES_ALMACEN : Currency read GetOldUNIDADES_ALMACENValue;
property OldUNIDADES_ALMACENIsNull : Boolean read GetOldUNIDADES_ALMACENIsNull; property OldUNIDADES_ALMACENIsNull : Boolean read GetOldUNIDADES_ALMACENIsNull;
property RESERVA : Float read GetRESERVAValue write SetRESERVAValue; property RESERVA : Currency read GetRESERVAValue write SetRESERVAValue;
property RESERVAIsNull : Boolean read GetRESERVAIsNull write SetRESERVAIsNull; property RESERVAIsNull : Boolean read GetRESERVAIsNull write SetRESERVAIsNull;
property OldRESERVA : Float read GetOldRESERVAValue; property OldRESERVA : Currency read GetOldRESERVAValue;
property OldRESERVAIsNull : Boolean read GetOldRESERVAIsNull; property OldRESERVAIsNull : Boolean read GetOldRESERVAIsNull;
property PENDIENTE_RECEPCION : Float read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue; property PENDIENTE_RECEPCION : Currency read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
property PENDIENTE_RECEPCIONIsNull : Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull; property PENDIENTE_RECEPCIONIsNull : Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull;
property OldPENDIENTE_RECEPCION : Float read GetOldPENDIENTE_RECEPCIONValue; property OldPENDIENTE_RECEPCION : Currency read GetOldPENDIENTE_RECEPCIONValue;
property OldPENDIENTE_RECEPCIONIsNull : Boolean read GetOldPENDIENTE_RECEPCIONIsNull; property OldPENDIENTE_RECEPCIONIsNull : Boolean read GetOldPENDIENTE_RECEPCIONIsNull;
property TIPO_ALMACEN : String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue; property TIPO_ALMACEN : String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
property TIPO_ALMACENIsNull : Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull; property TIPO_ALMACENIsNull : Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull;
@ -304,7 +448,7 @@ type
{ IMovimientos_Detalle_ColorDelta } { IMovimientos_Detalle_ColorDelta }
IMovimientos_Detalle_ColorDelta = interface(IMovimientos_Detalle_Color) IMovimientos_Detalle_ColorDelta = interface(IMovimientos_Detalle_Color)
['{00816D03-8F02-4E0A-9999-AF6FC7F4FB0B}'] ['{4902A57C-01BF-49A1-A5CD-C989ED6137B9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_MOVIMIENTOValue : Integer; function GetOldID_MOVIMIENTOValue : Integer;
@ -494,7 +638,7 @@ type
{ IDetalleReservasDelta } { IDetalleReservasDelta }
IDetalleReservasDelta = interface(IDetalleReservas) IDetalleReservasDelta = interface(IDetalleReservas)
['{3E9E6CAB-DC33-43FF-9A3C-3BFEEB6FE7C4}'] ['{C361CD99-3E33-4C12-A3C8-9BFF6BB0A7C1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -720,7 +864,7 @@ type
{ IInventario_ColorDelta } { IInventario_ColorDelta }
IInventario_ColorDelta = interface(IInventario_Color) IInventario_ColorDelta = interface(IInventario_Color)
['{D063845D-38A5-4EA5-A0BE-257ED7073F0C}'] ['{B1243606-76BE-4AB1-8CB0-0172E8809E77}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_ALMACENValue : Integer; function GetOldID_ALMACENValue : Integer;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
@ -1309,6 +1453,426 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioDISENOTECNICO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioDISENOTECNICO] := Null;
end; end;
function TInventarioBusinessProcessorRules.GetCOLOR1Value: Int64;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR1];
end;
function TInventarioBusinessProcessorRules.GetCOLOR1IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR1];
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR1Value: Int64;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR1];
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR1IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR1];
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR1Value(const aValue: Int64);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR1] := aValue;
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR1IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR1] := Null;
end;
function TInventarioBusinessProcessorRules.GetCOLOR2Value: Int64;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR2];
end;
function TInventarioBusinessProcessorRules.GetCOLOR2IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR2];
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR2Value: Int64;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR2];
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR2IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR2];
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR2Value(const aValue: Int64);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR2] := aValue;
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR2IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR2] := Null;
end;
function TInventarioBusinessProcessorRules.GetCOLOR3Value: Int64;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR3];
end;
function TInventarioBusinessProcessorRules.GetCOLOR3IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR3];
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR3Value: Int64;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR3];
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR3IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR3];
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR3Value(const aValue: Int64);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR3] := aValue;
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR3IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR3] := Null;
end;
function TInventarioBusinessProcessorRules.GetCOLOR4Value: Int64;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR4];
end;
function TInventarioBusinessProcessorRules.GetCOLOR4IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR4];
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR4Value: Int64;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR4];
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR4IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR4];
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR4Value(const aValue: Int64);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR4] := aValue;
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR4IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR4] := Null;
end;
function TInventarioBusinessProcessorRules.GetCOLOR5Value: Int64;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR5];
end;
function TInventarioBusinessProcessorRules.GetCOLOR5IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR5];
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR5Value: Int64;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR5];
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR5IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR5];
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR5Value(const aValue: Int64);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR5] := aValue;
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR5IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR5] := Null;
end;
function TInventarioBusinessProcessorRules.GetCOLOR6Value: Int64;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR6];
end;
function TInventarioBusinessProcessorRules.GetCOLOR6IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR6];
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR6Value: Int64;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR6];
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR6IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR6];
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR6Value(const aValue: Int64);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR6] := aValue;
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR6IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR6] := Null;
end;
function TInventarioBusinessProcessorRules.GetCOLOR7Value: Int64;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR7];
end;
function TInventarioBusinessProcessorRules.GetCOLOR7IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR7];
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR7Value: Int64;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR7];
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR7IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR7];
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR7Value(const aValue: Int64);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR7] := aValue;
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR7IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR7] := Null;
end;
function TInventarioBusinessProcessorRules.GetCOLOR8Value: Int64;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR8];
end;
function TInventarioBusinessProcessorRules.GetCOLOR8IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR8];
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR8Value: Int64;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR8];
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR8IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR8];
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR8Value(const aValue: Int64);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR8] := aValue;
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR8IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR8] := Null;
end;
function TInventarioBusinessProcessorRules.GetCOLOR9Value: Int64;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR9];
end;
function TInventarioBusinessProcessorRules.GetCOLOR9IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR9];
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR9Value: Int64;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR9];
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR9IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR9];
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR9Value(const aValue: Int64);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR9] := aValue;
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR9IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR9] := Null;
end;
function TInventarioBusinessProcessorRules.GetCOLOR10Value: Int64;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR10];
end;
function TInventarioBusinessProcessorRules.GetCOLOR10IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR10];
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR10Value: Int64;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR10];
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR10IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR10];
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR10Value(const aValue: Int64);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR10] := aValue;
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR10IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR10] := Null;
end;
function TInventarioBusinessProcessorRules.GetCOLOR11Value: Int64;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR11];
end;
function TInventarioBusinessProcessorRules.GetCOLOR11IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR11];
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR11Value: Int64;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR11];
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR11IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR11];
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR11Value(const aValue: Int64);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR11] := aValue;
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR11IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR11] := Null;
end;
function TInventarioBusinessProcessorRules.GetCOLOR12Value: Int64;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR12];
end;
function TInventarioBusinessProcessorRules.GetCOLOR12IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR12];
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR12Value: Int64;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR12];
end;
function TInventarioBusinessProcessorRules.GetOldCOLOR12IsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCOLOR12];
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR12Value(const aValue: Int64);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR12] := aValue;
end;
procedure TInventarioBusinessProcessorRules.SetCOLOR12IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOLOR12] := Null;
end;
function TInventarioBusinessProcessorRules.GetSTOCKValue: Float; function TInventarioBusinessProcessorRules.GetSTOCKValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK];
@ -1344,7 +1908,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK] := Null;
end; end;
function TInventarioBusinessProcessorRules.GetUNIDADES_ALMACENValue: Float; function TInventarioBusinessProcessorRules.GetUNIDADES_ALMACENValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN];
end; end;
@ -1356,7 +1920,7 @@ begin
result := VarIsNull(v) or VarIsClear(v); result := VarIsNull(v) or VarIsClear(v);
end; end;
function TInventarioBusinessProcessorRules.GetOldUNIDADES_ALMACENValue: Float; function TInventarioBusinessProcessorRules.GetOldUNIDADES_ALMACENValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioUNIDADES_ALMACEN]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioUNIDADES_ALMACEN];
end; end;
@ -1368,7 +1932,7 @@ begin
result := VarIsNull(v) or VarIsClear(v); result := VarIsNull(v) or VarIsClear(v);
end; end;
procedure TInventarioBusinessProcessorRules.SetUNIDADES_ALMACENValue(const aValue: Float); procedure TInventarioBusinessProcessorRules.SetUNIDADES_ALMACENValue(const aValue: Currency);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN] := aValue;
end; end;
@ -1379,7 +1943,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN] := Null;
end; end;
function TInventarioBusinessProcessorRules.GetRESERVAValue: Float; function TInventarioBusinessProcessorRules.GetRESERVAValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA];
end; end;
@ -1391,7 +1955,7 @@ begin
result := VarIsNull(v) or VarIsClear(v); result := VarIsNull(v) or VarIsClear(v);
end; end;
function TInventarioBusinessProcessorRules.GetOldRESERVAValue: Float; function TInventarioBusinessProcessorRules.GetOldRESERVAValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioRESERVA]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioRESERVA];
end; end;
@ -1403,7 +1967,7 @@ begin
result := VarIsNull(v) or VarIsClear(v); result := VarIsNull(v) or VarIsClear(v);
end; end;
procedure TInventarioBusinessProcessorRules.SetRESERVAValue(const aValue: Float); procedure TInventarioBusinessProcessorRules.SetRESERVAValue(const aValue: Currency);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA] := aValue;
end; end;
@ -1414,7 +1978,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA] := Null;
end; end;
function TInventarioBusinessProcessorRules.GetPENDIENTE_RECEPCIONValue: Float; function TInventarioBusinessProcessorRules.GetPENDIENTE_RECEPCIONValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION];
end; end;
@ -1426,7 +1990,7 @@ begin
result := VarIsNull(v) or VarIsClear(v); result := VarIsNull(v) or VarIsClear(v);
end; end;
function TInventarioBusinessProcessorRules.GetOldPENDIENTE_RECEPCIONValue: Float; function TInventarioBusinessProcessorRules.GetOldPENDIENTE_RECEPCIONValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioPENDIENTE_RECEPCION]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioPENDIENTE_RECEPCION];
end; end;
@ -1438,7 +2002,7 @@ begin
result := VarIsNull(v) or VarIsClear(v); result := VarIsNull(v) or VarIsClear(v);
end; end;
procedure TInventarioBusinessProcessorRules.SetPENDIENTE_RECEPCIONValue(const aValue: Float); procedure TInventarioBusinessProcessorRules.SetPENDIENTE_RECEPCIONValue(const aValue: Currency);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION] := aValue;
end; end;

164
Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm
View File

@ -18,20 +18,28 @@ object srvInventario: TsrvInventario
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'V_INVENTARIO' TargetTable = 'V_INVENTARIO'
SQL = SQL =
'SELECT'#10' ID_ALMACEN, ID_ARTICULO, NOMBRE as ALMACEN, ID_EMPRES' + 'SELECT'#10' V_INVENTARIO.ID_ALMACEN, V_INVENTARIO.ID_ARTICULO, V_' +
'A, REFERENCIA, FAMILIA,'#10' DESCRIPCION, UNIDAD_MEDIDA, CAMPOTEC' + 'INVENTARIO.NOMBRE as ALMACEN,'#10' V_INVENTARIO.ID_EMPRESA, V_INV' +
'NICO, CODIGOTECNICO, DISENOTECNICO,'#10#10'/* REFERENCIA_PROV as RE' + 'ENTARIO.REFERENCIA, V_INVENTARIO.FAMILIA,'#10' V_INVENTARIO.DESCR' +
'FERENCIA_PROVEEDOR, PRECIO_NETO, COSTE_UNIDADES, SE ELIMINAN LO' + 'IPCION, V_INVENTARIO.UNIDAD_MEDIDA, V_INVENTARIO.CAMPOTECNICO,'#10' ' +
'S PRECIOS CON HASTA SABER QUE DECISIONES SE TOMAN*/'#10' STOCK, U' + ' V_INVENTARIO.CODIGOTECNICO, V_INVENTARIO.DISENOTECNICO,'#10#10'/* ' +
'NIDADES_ALMACEN, RESERVA, PENDIENTE_RECEPCION, TIPO_ALMACEN,'#10' ' + ' REFERENCIA_PROV as REFERENCIA_PROVEEDOR, PRECIO_NETO, COSTE_UN' +
' '#10' /*'#10' NO BORRAR YA QUE SIRVE PARA LAS ENTRADAS Y SALIDAS ' + 'IDADES, SE ELIMINAN LOS PRECIOS CON HASTA SABER QUE DECISIONES ' +
'DE ALMACEN(TABLA MOVIMIENTOS)'#10' DEBERIA GENERAR UNA TABLA DE M' + 'SE TOMAN*/'#10#10' V_INVENTARIO.COLOR1, V_INVENTARIO.COLOR2,'#10' V_' +
'OVIMIENTOS INDEPENDIENTE DEL INVENTARIO PERO POR FALTA'#10' DE TI' + 'INVENTARIO.COLOR3, V_INVENTARIO.COLOR4,'#10' V_INVENTARIO.COLOR5,' +
'EMPO Y FIABILIDAD YA QUE AHORA FUNCIONA TODO, CREAMOS ESTOS CAMP' + ' V_INVENTARIO.COLOR6,'#10' V_INVENTARIO.COLOR7, V_INVENTARIO.COLO' +
'OS FICTICIOS'#10' */'#10#10' 0 as ID, 0 as CANTIDAD, current_date as' + 'R8,'#10' V_INVENTARIO.COLOR9, V_INVENTARIO.COLOR10,'#10' V_INVENTA' +
' FECHA_MOVIMIENTO, NULL as CAUSA, NULL as TIPO,'#10' 0 as ID_ALMA' + 'RIO.COLOR11, V_INVENTARIO.COLOR12,'#10#10' V_INVENTARIO.STOCK, V_IN' +
'CEN_RESERVA'#10#10#10'FROM V_INVENTARIO'#10'where {where}'#10'ORDER BY ID_ARTICU' + 'VENTARIO.UNIDADES_ALMACEN, V_INVENTARIO.RESERVA,'#10' V_INVENTARI' +
'LO'#10#10#10#10 'O.PENDIENTE_RECEPCION, V_INVENTARIO.TIPO_ALMACEN,'#10#10' /*'#10' NO' +
' BORRAR YA QUE SIRVE PARA LAS ENTRADAS Y SALIDAS DE ALMACEN(TABL' +
'A MOVIMIENTOS)'#10' DEBERIA GENERAR UNA TABLA DE MOVIMIENTOS INDE' +
'PENDIENTE DEL INVENTARIO PERO POR FALTA'#10' DE TIEMPO Y FIABILID' +
'AD YA QUE AHORA FUNCIONA TODO, CREAMOS ESTOS CAMPOS FICTICIOS'#10' ' +
' */'#10#10' 0 as ID, 0 as CANTIDAD, current_date as FECHA_MOVIMIEN' +
'TO, NULL as CAUSA, NULL as TIPO,'#10' 0 as ID_ALMACEN_RESERVA'#10#10#10'F' +
'ROM V_INVENTARIO'#10'where {where}'#10'ORDER BY V_INVENTARIO.ID_ARTICULO' +
#10#10#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -44,7 +52,8 @@ object srvInventario: TsrvInventario
end end
item item
DatasetField = 'ALMACEN' DatasetField = 'ALMACEN'
TableField = 'ALMACEN' TableField = '<unknown>'
SQLOrigin = 'ALMACEN'
end end
item item
DatasetField = 'ID_EMPRESA' DatasetField = 'ID_EMPRESA'
@ -78,6 +87,54 @@ object srvInventario: TsrvInventario
DatasetField = 'DISENOTECNICO' DatasetField = 'DISENOTECNICO'
TableField = 'DISENOTECNICO' TableField = 'DISENOTECNICO'
end end
item
DatasetField = 'COLOR1'
TableField = 'COLOR1'
end
item
DatasetField = 'COLOR2'
TableField = 'COLOR2'
end
item
DatasetField = 'COLOR3'
TableField = 'COLOR3'
end
item
DatasetField = 'COLOR4'
TableField = 'COLOR4'
end
item
DatasetField = 'COLOR5'
TableField = 'COLOR5'
end
item
DatasetField = 'COLOR6'
TableField = 'COLOR6'
end
item
DatasetField = 'COLOR7'
TableField = 'COLOR7'
end
item
DatasetField = 'COLOR8'
TableField = 'COLOR8'
end
item
DatasetField = 'COLOR9'
TableField = 'COLOR9'
end
item
DatasetField = 'COLOR10'
TableField = 'COLOR10'
end
item
DatasetField = 'COLOR11'
TableField = 'COLOR11'
end
item
DatasetField = 'COLOR12'
TableField = 'COLOR12'
end
item item
DatasetField = 'STOCK' DatasetField = 'STOCK'
TableField = 'STOCK' TableField = 'STOCK'
@ -100,27 +157,33 @@ object srvInventario: TsrvInventario
end end
item item
DatasetField = 'ID' DatasetField = 'ID'
TableField = 'ID' TableField = '<unknown>'
SQLOrigin = 'ID'
end end
item item
DatasetField = 'CANTIDAD' DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD' TableField = '<unknown>'
SQLOrigin = 'CANTIDAD'
end end
item item
DatasetField = 'FECHA_MOVIMIENTO' DatasetField = 'FECHA_MOVIMIENTO'
TableField = 'FECHA_MOVIMIENTO' TableField = '<unknown>'
SQLOrigin = 'FECHA_MOVIMIENTO'
end end
item item
DatasetField = 'CAUSA' DatasetField = 'CAUSA'
TableField = 'CAUSA' TableField = '<unknown>'
SQLOrigin = 'CAUSA'
end end
item item
DatasetField = 'TIPO' DatasetField = 'TIPO'
TableField = 'TIPO' TableField = '<unknown>'
SQLOrigin = 'TIPO'
end end
item item
DatasetField = 'ID_ALMACEN_RESERVA' DatasetField = 'ID_ALMACEN_RESERVA'
TableField = 'ID_ALMACEN_RESERVA' TableField = '<unknown>'
SQLOrigin = 'ID_ALMACEN_RESERVA'
end> end>
end> end>
Name = 'Inventario' Name = 'Inventario'
@ -139,12 +202,10 @@ object srvInventario: TsrvInventario
Name = 'ALMACEN' Name = 'ALMACEN'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'INVENTARIO_ALMACEN'
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_EMPRESA'
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
@ -184,6 +245,54 @@ object srvInventario: TsrvInventario
DataType = datString DataType = datString
Size = 6 Size = 6
end end
item
Name = 'COLOR1'
DataType = datLargeInt
end
item
Name = 'COLOR2'
DataType = datLargeInt
end
item
Name = 'COLOR3'
DataType = datLargeInt
end
item
Name = 'COLOR4'
DataType = datLargeInt
end
item
Name = 'COLOR5'
DataType = datLargeInt
end
item
Name = 'COLOR6'
DataType = datLargeInt
end
item
Name = 'COLOR7'
DataType = datLargeInt
end
item
Name = 'COLOR8'
DataType = datLargeInt
end
item
Name = 'COLOR9'
DataType = datLargeInt
end
item
Name = 'COLOR10'
DataType = datLargeInt
end
item
Name = 'COLOR11'
DataType = datLargeInt
end
item
Name = 'COLOR12'
DataType = datLargeInt
end
item item
Name = 'STOCK' Name = 'STOCK'
DataType = datFloat DataType = datFloat
@ -191,18 +300,15 @@ object srvInventario: TsrvInventario
end end
item item
Name = 'UNIDADES_ALMACEN' Name = 'UNIDADES_ALMACEN'
DataType = datFloat DataType = datCurrency
DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN'
end end
item item
Name = 'RESERVA' Name = 'RESERVA'
DataType = datFloat DataType = datCurrency
DictionaryEntry = 'INVENTARIO_RESERVA'
end end
item item
Name = 'PENDIENTE_RECEPCION' Name = 'PENDIENTE_RECEPCION'
DataType = datFloat DataType = datCurrency
DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION'
end end
item item
Name = 'TIPO_ALMACEN' Name = 'TIPO_ALMACEN'

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

@ -2,7 +2,7 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
OnShow = CustomViewShow OnShow = CustomViewShow
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 143 Top = 143
Height = 272 Height = 224
ExplicitTop = 143 ExplicitTop = 143
ExplicitHeight = 272 ExplicitHeight = 272
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -162,12 +162,12 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
Width = 121 Width = 121
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 383 Left = 382
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 383 ExplicitLeft = 382
end end
end end
end end
@ -215,6 +215,9 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxStyleRepository1: TcxStyleRepository inherited cxStyleRepository1: TcxStyleRepository
inherited cxStyleSelection: TcxStyle inherited cxStyleSelection: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svColor, svFont, svTextColor]

5
Source/Modulos/Inventario/Views/uViewDetalleReservas.pas
View File

@ -15,7 +15,10 @@ uses
cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid, cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid,
uBizInventario, uBizAlmacenes, cxSpinEdit, uViewFiltroBase, TB2Item, SpTBXItem, uBizInventario, uBizAlmacenes, cxSpinEdit, uViewFiltroBase, TB2Item, SpTBXItem,
TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uAlmacenesController, TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uAlmacenesController,
uDAInterfaces, cxContainer, cxMaskEdit, cxDropDownEdit; uDAInterfaces, cxContainer, cxMaskEdit, cxDropDownEdit, cxLookAndFeels,
cxLookAndFeelPainters, dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils,
dxPSPrVwStd, dxPSPrVwAdv, dxPScxEditorProducers, dxPScxExtEditorProducers,
dxPScxPageControlProducer, uCustomView, uViewBase;
type type
IViewDetalleReservas = interface(IViewGrid) IViewDetalleReservas = interface(IViewGrid)

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

@ -8,9 +8,9 @@ inherited frViewInventario: TfrViewInventario
Top = 114 Top = 114
Width = 678 Width = 678
Height = 467 Height = 467
ExplicitTop = 143 ExplicitTop = 114
ExplicitWidth = 678 ExplicitWidth = 678
ExplicitHeight = 438 ExplicitHeight = 467
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -104,6 +104,90 @@ inherited frViewInventario: TfrViewInventario
Caption = 'Campo t'#233'cnico' Caption = 'Campo t'#233'cnico'
DataBinding.FieldName = 'CAMPOTECNICO' DataBinding.FieldName = 'CAMPOTECNICO'
end end
object cxGridViewCOLOR1: TcxGridDBColumn
Caption = 'Color 1'
DataBinding.FieldName = 'COLOR1'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewCOLOR2: TcxGridDBColumn
Caption = 'Color 2'
DataBinding.FieldName = 'COLOR2'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewCOLOR3: TcxGridDBColumn
Caption = 'Color 3'
DataBinding.FieldName = 'COLOR3'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewCOLOR4: TcxGridDBColumn
Caption = 'Color 4'
DataBinding.FieldName = 'COLOR4'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewCOLOR5: TcxGridDBColumn
Caption = 'Color 5'
DataBinding.FieldName = 'COLOR5'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewCOLOR6: TcxGridDBColumn
Caption = 'Color 6'
DataBinding.FieldName = 'COLOR6'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewCOLOR7: TcxGridDBColumn
Caption = 'Color 7'
DataBinding.FieldName = 'COLOR7'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewCOLOR8: TcxGridDBColumn
Caption = 'Color 8'
DataBinding.FieldName = 'COLOR8'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewCOLOR9: TcxGridDBColumn
Caption = 'Color 9'
DataBinding.FieldName = 'COLOR9'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewCOLOR10: TcxGridDBColumn
Caption = 'Color 10'
DataBinding.FieldName = 'COLOR10'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewCOLOR11: TcxGridDBColumn
Caption = 'Color 11'
DataBinding.FieldName = 'COLOR11'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewCOLOR12: TcxGridDBColumn
Caption = 'Color 12'
DataBinding.FieldName = 'COLOR12'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewSTOCK: TcxGridDBColumn object cxGridViewSTOCK: TcxGridDBColumn
DataBinding.FieldName = 'STOCK' DataBinding.FieldName = 'STOCK'
PropertiesClassName = 'TcxSpinEditProperties' PropertiesClassName = 'TcxSpinEditProperties'
@ -190,6 +274,7 @@ inherited frViewInventario: TfrViewInventario
Width = 678 Width = 678
Height = 73 Height = 73
ExplicitWidth = 678 ExplicitWidth = 678
ExplicitHeight = 73
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 678 Width = 678
ExplicitWidth = 678 ExplicitWidth = 678
@ -204,6 +289,8 @@ inherited frViewInventario: TfrViewInventario
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 272
Width = 272
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 300 Left = 300
@ -212,6 +299,8 @@ inherited frViewInventario: TfrViewInventario
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 300 ExplicitLeft = 300
ExplicitWidth = 221
Width = 221
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 507 Left = 507
@ -220,6 +309,8 @@ inherited frViewInventario: TfrViewInventario
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 507 ExplicitLeft = 507
ExplicitWidth = 215
Width = 215
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
@ -266,7 +357,6 @@ inherited frViewInventario: TfrViewInventario
Height = 41 Height = 41
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
ExplicitTop = 102
DesignSize = ( DesignSize = (
678 678
41) 41)
@ -303,6 +393,9 @@ inherited frViewInventario: TfrViewInventario
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxStyleRepository1: TcxStyleRepository inherited cxStyleRepository1: TcxStyleRepository
inherited cxStyleSelection: TcxStyle inherited cxStyleSelection: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svColor, svFont, svTextColor]

12
Source/Modulos/Inventario/Views/uViewInventario.pas
View File

@ -61,6 +61,18 @@ type
cxGridViewCAMPOTECNICO: TcxGridDBColumn; cxGridViewCAMPOTECNICO: TcxGridDBColumn;
cxGridViewCODIGOTECNICO: TcxGridDBColumn; cxGridViewCODIGOTECNICO: TcxGridDBColumn;
cxGridViewDISENOTECNICO: TcxGridDBColumn; cxGridViewDISENOTECNICO: TcxGridDBColumn;
cxGridViewCOLOR1: TcxGridDBColumn;
cxGridViewCOLOR2: TcxGridDBColumn;
cxGridViewCOLOR3: TcxGridDBColumn;
cxGridViewCOLOR4: TcxGridDBColumn;
cxGridViewCOLOR5: TcxGridDBColumn;
cxGridViewCOLOR6: TcxGridDBColumn;
cxGridViewCOLOR7: TcxGridDBColumn;
cxGridViewCOLOR8: TcxGridDBColumn;
cxGridViewCOLOR9: TcxGridDBColumn;
cxGridViewCOLOR10: TcxGridDBColumn;
cxGridViewCOLOR11: TcxGridDBColumn;
cxGridViewCOLOR12: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
AStyle: TcxStyle); AStyle: TcxStyle);

2
Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1470.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30E.tmp */

2
Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf146E.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30C.tmp */

Some files were not shown because too many files have changed in this diff Show More