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
;
/* View: V_INVENTARIO */
CREATE VIEW V_INVENTARIO(
CREATE VIEW V_INVENTARIO_SIN_COLORES(
ID_ALMACEN,
ID_EMPRESA,
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 */
CREATE VIEW V_OBRAS(
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_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_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 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);

102
Source/Base/Base.dproj
View File

@ -53,58 +53,58 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</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="..\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">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

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

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

2
Source/Cliente/FactuGES.dproj
View File

@ -54,7 +54,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 1,0,4,0
PRODUCTVERSION 1,0,4,0
FILEVERSION 1,0,6,0
PRODUCTVERSION 1,0,6,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.0.4.0\0"
VALUE "ProductVersion", "1.0.6.0\0"
END
END
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(MODULENAME_COMISIONES);
// LoadModule('GestorInformes_plugin.bpl');
LoadModule('GestorInformes_plugin.bpl');
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
end
object rda_AlbaranesCliente: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 43
Top = 151
end

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

@ -9,8 +9,7 @@ uses
uIDataModuleAlbaranesCliente, uBizAlbaranesCliente, uBizDetallesAlbaranCliente, uBizDetalleColoresAlbaranCliente,
uIDataModuleAlbaranesClienteReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable,
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils,
uDADataAdapter;
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils;
type
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
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
ExplicitTop = 65
ExplicitWidth = 802
ExplicitHeight = 362
ExplicitHeight = 399
inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID'
DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
@ -88,9 +89,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
end
object cxGridViewREF_PEDIDO: TcxGridDBColumn
DataBinding.FieldName = 'REF_PEDIDO'
Visible = False
BestFitMaxWidth = 45
VisibleForCustomization = False
Width = 39
end
object cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn
@ -201,6 +200,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Width = 802
Height = 65
ExplicitWidth = 802
ExplicitHeight = 65
inherited dxLayoutControl1: TdxLayoutControl
Width = 802
ExplicitWidth = 802

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

@ -9,7 +9,7 @@ uses
uDADesigntimeCall,
uIDataModuleArticulos, uBizArticulos, uDataModuleBase, uDARemoteDataAdapter,
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable,
uBizArticulosProveedores, uDADataAdapter;
uBizArticulosProveedores;
type
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\Plugin\Contactos_plugin.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="Data\Comisiones_data.dproj" />
<Projects Include="Model\Comisiones_model.dproj" />
@ -89,6 +95,51 @@
<Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</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">
<MSBuild Projects="Model\Comisiones_model.dproj" Targets="" />
</Target>
@ -152,23 +203,32 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_plugin">
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.dproj" Targets="" />
<Target Name="RemesasCliente_view">
<MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="" />
</Target>
<Target Name="Contactos_plugin:Clean">
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.dproj" Targets="Clean" />
<Target Name="RemesasCliente_view:Clean">
<MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_plugin:Make">
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.dproj" Targets="Make" />
<Target Name="RemesasCliente_view: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 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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</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\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />

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

@ -34,7 +34,7 @@ type
function EsModificable(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 DarListaAnosComisiones: TStringList;
@ -83,7 +83,7 @@ type
function EsModificable(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 DarListaAnosComisiones: TStringList;
@ -93,11 +93,11 @@ type
implementation
uses
Windows, Controls, cxControls, DB, uEditorRegistryUtils, schComisionesClient_Intf,
Dialogs, uDialogUtils, Windows, Controls, cxControls, DB, uEditorRegistryUtils, schComisionesClient_Intf,
uBizContactos, uIEditorComisiones, uIEditorComision, uFactuGES_App,
uDataModuleComisiones, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
uROTypes, DateUtils, Forms, uIntegerListUtils, uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs, uStringsUtils,
uROXMLIntf;
uROTypes, DateUtils, Forms, uIntegerListUtils, uSistemaFunc, uDialogElegirEMail, uEMailUtils, uStringsUtils,
uROXMLIntf, uBizFacturasCliente, uFacturasClienteController;
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@ -502,8 +502,8 @@ begin
AComision.DataTable.Post;
//Tambien hacemos post de sus tablas hija
// if (AComision.FacturasComision.DataTable.State in dsEditModes) then
// AComision.FacturasComision.DataTable.Post;
if (AComision.FacturasComision.DataTable.State in dsEditModes) then
AComision.FacturasComision.DataTable.Post;
if (AComision.ID_AGENTE < 0) or (AComision.ID_AGENTE = 0) then
// No comprobar el objeto Cliente por que puede fallar la validación
@ -515,8 +515,8 @@ begin
if (EsFechaVacia(AComision.FECHA)) then
raise Exception.Create('Debe indicar la fecha de esta comision');
// if (AComision.FacturasComision.DataTable.RecordCount = 0) then
// raise Exception.Create('La comisión debe tener al menos una factura en su contenido');
if (AComision.FacturasComision.DataTable.RecordCount = 0) then
raise Exception.Create('La comisión debe tener al menos una factura en su contenido');
{ Asegurarse de valores en campos "automáticos" tanto
en MODIFICACIÓN como en INSERCIÓN. }
@ -633,12 +633,69 @@ begin
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;
//En el caso de eliminar almenos un elemento del conjunto se devuelve true
var
bEliminado: Boolean;
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;
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.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<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>
<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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="Comisiones_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="adortl.dcp" />
<DCCReference Include="Comisiones_model.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="..\..\Contactos\adortl.dcp" />
<DCCReference Include="..\..\Contactos\Comisiones_model.dcp" />
<DCCReference Include="..\..\Contactos\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Contactos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Contactos\dbrtl.dcp" />
<DCCReference Include="..\..\Contactos\dsnap.dcp" />
<DCCReference Include="..\..\Contactos\dxCoreD11.dcp" />
<DCCReference Include="..\..\Contactos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Contactos\dxThemeD11.dcp" />
<DCCReference Include="..\..\Contactos\RemObjects_Core_D11.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">
<Form>DataModuleVendedores</Form>
<Form>DataModuleComisiones</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6011

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

@ -23,6 +23,28 @@ inherited DataModuleComisiones: TDataModuleComisiones
Left = 48
Top = 80
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
RemoteUpdatesOptions = []
Fields = <
@ -91,63 +113,104 @@ inherited DataModuleComisiones: TDataModuleComisiones
LogicalName = 'Comisiones'
IndexDefs = <>
Left = 168
Top = 192
Top = 184
end
object ds_Comisiones: TDADataSource
DataSet = tbl_Comisiones.Dataset
DataTable = tbl_Comisiones
Left = 168
Top = 136
Top = 128
end
object tbl_FacturasComision: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
Required = True
DictionaryEntry = 'FacturasCliente_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
end
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
ServerAutoRefresh = True
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
Name = 'REFERENCIA'
DataType = datString
Size = 20
DisplayLabel = 'Referencia'
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end
item
Name = 'ID_AGENTE'
DataType = datInteger
Name = 'FECHA_FACTURA'
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
item
Name = 'BASE_IMPONIBLE'
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
item
Name = 'COMISION'
DataType = datCurrency
DataType = datFloat
DictionaryEntry = 'FacturasCliente_COMISION'
end
item
Name = 'IMPORTE_COMISION'
DataType = datCurrency
DecimalPrecision = 11
DecimalScale = 2
DictionaryEntry = 'FacturasCliente_IMPORTE_COMISION'
end>
Params = <>
MasterMappingMode = mmWhere
@ -158,35 +221,13 @@ inherited DataModuleComisiones: TDataModuleComisiones
DetailFields = 'ID_COMISION_LIQUIDADA'
LogicalName = 'FacturasComision'
IndexDefs = <>
Left = 264
Top = 192
Left = 296
Top = 184
end
object ds_FacturasComision: TDADataSource
DataSet = tbl_FacturasComision.Dataset
DataTable = tbl_FacturasComision
Left = 264
Top = 136
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
Left = 296
Top = 128
end
end

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

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

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

@ -23,16 +23,21 @@ type
property FacturasComision: IBizFacturasComision read GetFacturasComision write SetFacturasComision;
function EsNuevo : Boolean;
procedure CalcularImporteTotal;
end;
TBizFacturasComision = class(TFacturasComisionDataTableRules, IBizFacturasComision)
protected
procedure CalcularComision;
procedure COMISIONOnChange(Sender: TDACustomField);
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
TBizComision = class(TComisionesDataTableRules, IBizComision, ISeleccionable)
private
FSeleccionableInterface : ISeleccionable;
procedure CalcularComision;
protected
FFacturasComision : IBizFacturasComision;
@ -41,13 +46,11 @@ type
function GetFacturasComision: IBizFacturasComision;
procedure SetFacturasComision(Value: IBizFacturasComision);
procedure COMISIONOnChange(Sender: TDACustomField);
procedure OnNewRecord(Sender: TDADataTable); override;
procedure OnNewRecord(Sender: TDADataTable); override;
public
function EsNuevo : Boolean;
procedure IniciarValoresComisionNueva;
procedure CalcularImporteTotal;
property FacturasComision: IBizFacturasComision read GetFacturasComision write SetFacturasComision;
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface write FSeleccionableInterface implements ISeleccionable;
@ -63,55 +66,10 @@ uses
Variants, cxDateUtils, uFactuGES_App;
{ 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);
begin
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.DataTable := aDataTable;
@ -155,6 +113,40 @@ begin
EnlazarMaestroDetalle(FFacturasComisionLink, FFacturasComision);
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
RegisterDataTableRules(BIZ_CLIENT_COMISIONES, TBizComision);
RegisterDataTableRules(BIZ_CLIENT_FACTURASCOMISION, TBizFacturasComision);

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

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

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

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

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

@ -44,19 +44,15 @@ object srvComisiones: TsrvComisiones
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_FACTURAS_CLIENTE'
Name = 'IBX'
SQL =
'SELECT V_FACTURAS_CLIENTE.ID,'#10' V_FACTURAS_CLIENTE.ID_EMPRE' +
'SA,'#10' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_C' +
'LIENTE.REFERENCIA,'#10' V_FACTURAS_CLIENTE.SITUACION,'#10' V' +
'_FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA,'#10' V_FACTURAS_CLIEN' +
'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
'SELECT '#10' ID, ID_EMPRESA, ID_COMISION_LIQUIDADA, REFERENCIA, F' +
'ECHA_FACTURA, FECHA_VENCIMIENTO,'#10' SITUACION, BASE_IMPONIBLE, ' +
'ID_CLIENTE, NIF_CIF, NOMBRE,'#10' ID_AGENTE, COMISION, IMPORTE_CO' +
'MISION'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
@ -67,33 +63,41 @@ object srvComisiones: TsrvComisiones
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'COMISION'
@ -102,6 +106,10 @@ object srvComisiones: TsrvComisiones
item
DatasetField = 'IMPORTE_COMISION'
TableField = 'IMPORTE_COMISION'
end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
end>
end>
Name = 'FacturasComision'
@ -109,49 +117,82 @@ object srvComisiones: TsrvComisiones
item
Name = 'ID'
DataType = datInteger
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
Required = True
ServerAutoRefresh = True
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
end
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
ServerAutoRefresh = True
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
Name = 'REFERENCIA'
DataType = datString
Size = 20
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end
item
Name = 'ID_AGENTE'
DataType = datInteger
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasCliente_SITUACION'
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'FacturasCliente_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
DictionaryEntry = 'FacturasCliente_NOMBRE'
end
item
Name = 'ID_AGENTE'
DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
end
item
Name = 'COMISION'
DataType = datCurrency
DataType = datFloat
DictionaryEntry = 'FacturasCliente_COMISION'
end
item
Name = 'IMPORTE_COMISION'
DataType = datCurrency
DecimalPrecision = 11
DecimalScale = 2
DictionaryEntry = 'FacturasCliente_IMPORTE_COMISION'
end>
end
item
@ -214,6 +255,7 @@ object srvComisiones: TsrvComisiones
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Comisiones_ID'
InPrimaryKey = True
end
@ -261,6 +303,256 @@ object srvComisiones: TsrvComisiones
Size = 30
DictionaryEntry = 'Comisiones_USUARIO'
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>
JoinDataTables = <>
UnionDataTables = <>
@ -413,7 +705,8 @@ object srvComisiones: TsrvComisiones
item
Params = <
item
Name = 'IDCOMISIONLIQUIDADA'
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
Value = ''
end
item
@ -422,7 +715,45 @@ object srvComisiones: TsrvComisiones
Value = ''
end
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 = ''
end
item
@ -436,19 +767,18 @@ object srvComisiones: TsrvComisiones
Default = True
TargetTable = 'FACTURAS_CLIENTE'
SQL =
'UPDATE FACTURAS_CLIENTE'#10' SET'#10' ID_COMISION_LIQUIDADA = :IDCOM' +
'ISIONLIQUIDADA,'#10' COMISION = :COMISION,'#10' IMPORTE_COMISION =' +
' :IMPORTECOMISION'#10' WHERE'#10' (ID = :OLD_ID)'#10
'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 = :OLD_ID)'#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_FacturasComision'
Name = 'Update_FacturasComision'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
end>
Statements = <
@ -464,40 +794,6 @@ object srvComisiones: TsrvComisiones
ColumnMappings = <>
end>
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>
RelationShips = <
item
@ -510,45 +806,45 @@ object srvComisiones: TsrvComisiones
end>
UpdateRules = <
item
Name = 'Insert FacturasCliente'
Name = 'Insert Comisiones'
DoUpdate = False
DoDelete = False
DatasetName = 'FacturasCliente'
DatasetName = 'Comisiones'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert DetallesFacturasCliente'
Name = 'Insert FacturasComision'
DoUpdate = False
DoDelete = False
DatasetName = 'FacturasCliente_Detalles'
DatasetName = 'FacturasComision'
FailureBehavior = fbRaiseException
end
item
Name = 'Update FacturasCliente'
Name = 'Update Comisiones'
DoInsert = False
DoDelete = False
DatasetName = 'FacturasCliente'
DatasetName = 'Comisiones'
FailureBehavior = fbRaiseException
end
item
Name = 'Update DetallesFacturasCliente'
Name = 'Update FacturasComision'
DoInsert = False
DoDelete = False
DatasetName = 'FacturasCliente_Detalles'
DatasetName = 'FacturasComision'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete DetallesFacturasCliente'
Name = 'Delete FacturasComision'
DoUpdate = False
DoInsert = False
DatasetName = 'FacturasCliente_Detalles'
DatasetName = 'FacturasComision'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete FacturasCliente'
Name = 'Delete Comisiones'
DoUpdate = False
DoInsert = False
DatasetName = 'FacturasCliente'
DatasetName = 'Comisiones'
FailureBehavior = fbRaiseException
end>
Version = 0
@ -558,7 +854,39 @@ object srvComisiones: TsrvComisiones
object Diagrams: TDADiagrams
Left = 150
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
object DataDictionary: TDADataDictionary
Fields = <
@ -700,58 +1028,6 @@ object srvComisiones: TsrvComisiones
DisplayLabel = 'Dto.'
Alignment = taRightJustify
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
Name = 'FacturasCliente_FECHA_PAGADO'
DataType = datDateTime
@ -830,28 +1106,6 @@ object srvComisiones: TsrvComisiones
DataType = datInteger
DisplayLabel = 'ID_AGENTE'
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
Name = 'FacturasCliente_DATOS_BANCARIOS'
DataType = datString
@ -948,30 +1202,4 @@ object srvComisiones: TsrvComisiones
Left = 150
Top = 22
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

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

@ -69,13 +69,16 @@ requires
PngComponentsD10,
SpTBXLib_d11,
TntUnicodeVcl,
tb2k_d11;
tb2k_d11,
cxGridD11,
cxExportD11;
contains
uComisionesViewRegister in 'uComisionesViewRegister.pas',
uViewComisiones in 'uViewComisiones.pas' {frViewComisiones: TFrame},
uEditorComisiones in 'uEditorComisiones.pas' {fEditorComisiones: TfEditorComisiones},
uEditorComisiones in 'uEditorComisiones.pas' {fEditorComisiones: TfEditorFacturasCliente},
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.

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

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

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

@ -4,18 +4,20 @@ inherited fEditorComision: TfEditorComision
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
Caption = 'Ficha de almac'#233'n'
ClientWidth = 632
ClientHeight = 525
ClientWidth = 722
Scaled = False
OnClose = CustomEditorClose
ExplicitWidth = 640
ExplicitWidth = 730
ExplicitHeight = 559
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 632
Width = 722
Caption = 'Almac'#233'n'
ExplicitWidth = 632
ExplicitWidth = 722
inherited Image1: TImage
Left = 499
Left = 589
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2
@ -40,15 +42,15 @@ inherited fEditorComision: TfEditorComision
ExplicitLeft = 607
end
inherited lblDesbloquear: TcxLabel
Left = 534
ExplicitLeft = 534
AnchorX = 579
Left = 624
ExplicitLeft = 624
AnchorX = 669
AnchorY = 14
end
end
inherited TBXDock: TSpTBXDock
Width = 632
ExplicitWidth = 632
Width = 722
ExplicitWidth = 722
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 330
inherited TBXItem2: TSpTBXItem
@ -66,7 +68,7 @@ inherited fEditorComision: TfEditorComision
end
inherited tbxMenu: TSpTBXToolbar
DockPos = 0
ExplicitWidth = 632
ExplicitWidth = 722
inherited TBXSubmenuItem4: TSpTBXSubmenuItem
inherited TBXItem8: TSpTBXItem
Visible = False
@ -101,22 +103,127 @@ inherited fEditorComision: TfEditorComision
end
end
inherited pgPaginas: TPageControl
Width = 626
ExplicitWidth = 626
Width = 716
Height = 424
ExplicitWidth = 716
ExplicitHeight = 424
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 618
ExplicitHeight = 332
ExplicitWidth = 708
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
inherited StatusBar: TJvStatusBar
Width = 632
Top = 506
Width = 722
Panels = <
item
Width = 200
end>
ExplicitWidth = 632
ExplicitTop = 506
ExplicitWidth = 722
end
inherited EditorActionList: TActionList
Top = 128

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

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

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

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

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

@ -111,7 +111,6 @@ end;
procedure TfEditorComisiones.EliminarInterno;
var
ACadena : String;
AComisiones: IBizComision;
AllItems: Boolean;
begin
@ -130,7 +129,7 @@ begin
end
end
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;
end;

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

@ -175,7 +175,7 @@ procedure TfrViewComisiones.SetComisiones(const Value: IBizComision);
begin
FComisiones := Value;
if Assigned(FComisiones) then
dsDataSource.DataTable := FComisiones.DataTable;
dsDataSource.DataTable := FComisiones.DataTable;
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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Comisiones\Data\adortl.dcp" />
<DCCReference Include="..\..\Comisiones\Data\ApplicationBase.dcp" />
<DCCReference Include="..\..\Comisiones\Data\Base.dcp" />
<DCCReference Include="..\..\Comisiones\Data\Contactos_model.dcp" />
<DCCReference Include="..\..\Comisiones\Data\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dbrtl.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dsnap.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dxCoreD11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\dxThemeD11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\GUIBase.dcp" />
<DCCReference Include="..\..\Comisiones\Data\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Comisiones\Data\rtl.dcp" />
<DCCReference Include="..\..\Comisiones\Data\vcl.dcp" />
<DCCReference Include="..\..\Comisiones\Data\vcldb.dcp" />
<DCCReference Include="..\..\Comisiones\Data\vclx.dcp" />
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="uDataModuleClientes.pas">
<Form>DataModuleClientes</Form>
<DesignClass>TDAClientDataModule</DesignClass>

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

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

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

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

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

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

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

@ -2072,6 +2072,7 @@ object srvContactos: TsrvContactos
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONTACTOS'
@ -2080,7 +2081,7 @@ object srvContactos: TsrvContactos
'DIGO_POSTAL, '#10' TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX,' +
' EMAIL_1, '#10' EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MOD' +
'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
ColumnMappings = <
item

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

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

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

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

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

@ -1142,6 +1142,7 @@ var
ADiasMas: Integer;
BSemaforo: Boolean;
AImporteTotal: Double;
AImporteTotal2: Double;
begin
if not Assigned(AFactura) then
@ -1165,81 +1166,86 @@ begin
//según forma de pago
AImporteTotal := AFactura.IMPORTE_TOTAL - AFactura.IMPORTE_RETENCION;
//Vamos a generar todos los recibos necesarios para la factura
With AFormaPago.Plazos.DataTable do
//En el caso de no tener Plazos no se genera recibo
if AFormaPago.Plazos.RecordCount > 0 then
begin
i := 1;
First;
repeat
ARecibos := ARecibosClienteController.Nuevo;
ARecibos.Edit;
ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
//Vamos a generar todos los recibos necesarios para la factura
With AFormaPago.Plazos.DataTable do
begin
i := 1;
First;
repeat
ARecibos := ARecibosClienteController.Nuevo;
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
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
if AFormaPago.Plazos.RecordCount < 1 then
begin
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
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
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
ADiaVencimiento := 1;
//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
if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then
begin
ADiasMas := 0;
Break
ADiaVencimiento := 1;
//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
else
BSemaforo := True;
end
else
Inc(ADiaVencimiento);
Inc(ADiasMas);
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;
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
ARecibos.IMPORTE := AImporteTotal * (AFormaPago.Plazos.PORCENTAJE / 100);
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;
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;

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

@ -10,7 +10,7 @@ uses
uIDataModuleFacturasCliente, uBizFacturasCliente, uBizDetallesFacturaCliente,
uDADesigntimeCall, uIDataModuleFacturasClienteReport, uDataModuleBase,
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
uDARemoteDataAdapter, uIntegerListUtils, uDADataAdapter;
uDARemoteDataAdapter, uIntegerListUtils;
type
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' +
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' +
'UACION, NIF_CIF, FECHA_FACTURA, fecha_vencimiento, BASE_IMPONIBL' +
'E, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {wh' +
'ere}'#10'order by ANO, MES, FECHA_FACTURA, NOMBRE'#10#10
'E, IMPORTE_IVA, IMPORTE_RE, IMPORTE_TOTAL'#10#10'from V_facturas_clien' +
'te'#10'where {where}'#10'order by ANO, MES, FECHA_FACTURA, NOMBRE'#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -705,6 +705,10 @@ object RptFacturasCliente: TRptFacturasCliente
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'IMPORTE_RE'
TableField = 'IMPORTE_RE'
end>
end>
Name = 'InformeListadoFacturas'
@ -766,6 +770,10 @@ object RptFacturasCliente: TRptFacturasCliente
Name = 'IMPORTE_IVA'
DataType = datCurrency
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
@ -937,51 +945,20 @@ object RptFacturasCliente: TRptFacturasCliente
Connection = 'IBX'
TargetTable = 'V_FACTURAS_CLIENTE'
SQL =
'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' +
'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' +
' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' +
'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 +
'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' +
'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' +
'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' +
'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' +
'(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
'select V_facturas_cliente.ID_EMPRESA,'#10'V_facturas_cliente.ID_TIPO' +
'_IVA,'#10'COALESCE(tipos_iva.descripcion,'#39'SIN IVA ASIGNADO'#39') as IVA,' +
#10'sum(V_facturas_cliente.BASE_IMPONIBLE) as BASE_IMPONIBLE,'#10'sum(V' +
'_facturas_cliente.IMPORTE_IVA) as IMPORTE_IVA,'#10'sum(V_facturas_cl' +
'iente.IMPORTE_RE) as IMPORTE_RE,'#10'sum(V_facturas_cliente.IMPORTE_' +
'TOTAL) AS IMPORTE_TOTAL'#10'from V_facturas_cliente'#10'left join tipos_' +
'iva on (tipos_iva.id = V_facturas_cliente.id_tipo_iva)'#10'group by ' +
'1,2,3'#10'order by 1,2,3'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
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
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
@ -993,6 +970,18 @@ object RptFacturasCliente: TRptFacturasCliente
item
DatasetField = '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>
Name = 'InformeListadoFacturasResumen'
@ -1002,17 +991,13 @@ object RptFacturasCliente: TRptFacturasCliente
DataType = datInteger
end
item
Name = 'ANO'
DataType = datSmallInt
Name = 'ID_TIPO_IVA'
DataType = datInteger
end
item
Name = 'MES'
DataType = datSmallInt
end
item
Name = 'TITULO'
Name = 'IVA'
DataType = datString
Size = 19
Size = 255
end
item
Name = 'BASE_IMPONIBLE'
@ -1022,6 +1007,10 @@ object RptFacturasCliente: TRptFacturasCliente
Name = 'IMPORTE_IVA'
DataType = datCurrency
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
@ -1669,8 +1658,8 @@ object RptFacturasCliente: TRptFacturasCliente
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40210.707089826390000000
ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 40342.784827962960000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False
@ -1973,7 +1962,36 @@ object RptFacturasCliente: TRptFacturasCliente
end
object tbl_InformeListadoFacturasResumen: TDAMemDataTable
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 = <>
MasterMappingMode = mmDataRequest
LogChanges = False

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -21,12 +21,16 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ExplicitWidth = 895
end
inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 591
ExplicitWidth = 678
object TBXItem58: TSpTBXItem [0]
Action = actRefrescar
DisplayMode = nbdmImageAndText
Images = SmallImages
end
inherited cbZoom: TSpTBXComboBox
Left = 384
ExplicitLeft = 384
end
end
end
inherited StatusBar: TJvStatusBar
@ -40,16 +44,17 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ExplicitHeight = 534
end
inherited TBXMultiDockDerecho: TSpTBXMultiDock
Left = 703
Width = 192
Height = 534
ExplicitLeft = 703
ExplicitLeft = 433
ExplicitTop = 118
ExplicitWidth = 192
ExplicitHeight = 534
inherited pnlParametros: TSpTBXDockablePanel
DockedWidth = 188
Width = 192
Height = 534
ExplicitWidth = 192
ExplicitHeight = 518
ExplicitHeight = 534
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0
Top = 0
@ -66,11 +71,11 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
ReadOnly = False
ExplicitWidth = 188
ExplicitHeight = 136
inherited TBXAlignmentPanel2: TSpTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited TBXAlignmentPanel2: TSpTBXDockablePanel
Width = 178
ExplicitWidth = 178
inherited Label3: TLabel
Width = 172
Width = 178
end
inherited edtFechaFin: TcxDateEdit
Left = 77
@ -103,14 +108,13 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
end
inherited TBXLabel2: TSpTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited TBXAlignmentPanel3: TSpTBXAlignmentPanel
Width = 182
inherited TBXAlignmentPanel3: TSpTBXDockablePanel
Width = 178
Visible = False
ExplicitWidth = 182
ExplicitWidth = 178
inherited Label4: TLabel
Width = 172
Width = 178
end
inherited edtFechaVenFin: TcxDateEdit
Style.LookAndFeel.SkinName = ''
@ -135,26 +139,32 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
StyleHot.LookAndFeel.SkinName = ''
end
end
inherited cxRepository: TcxEditRepository
Left = 128
Top = 8
end
end
inherited TBXDockablePanel1: TSpTBXDockablePanel
Top = 368
Top = 359
Width = 188
Height = 171
TabOrder = 2
ExplicitTop = 368
ExplicitTop = 359
ExplicitWidth = 188
inherited TBXButton1: TSpTBXButton
AlignWithMargins = True
Left = 3
Top = 3
Width = 182
Left = 8
Top = 8
Width = 172
Height = 37
Margins.Left = 8
Margins.Top = 8
Margins.Right = 8
Margins.Bottom = 8
Align = alTop
ExplicitLeft = 3
ExplicitTop = 3
ExplicitWidth = 182
ExplicitLeft = 8
ExplicitTop = 8
ExplicitWidth = 172
ExplicitHeight = 37
end
end
@ -172,17 +182,17 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
Font.Style = []
ParentFont = False
TabOrder = 1
Visible = False
ReadOnly = False
ExplicitTop = 136
ExplicitTop = 155
ExplicitWidth = 188
ExplicitHeight = 77
inherited TBXLabel2: TSpTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 182
ExplicitWidth = 182
Width = 178
ExplicitWidth = 178
inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -203,15 +213,16 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBackground = False
ParentFont = False
TabOrder = 3
Visible = False
ReadOnly = False
ExplicitTop = 213
ExplicitTop = 232
ExplicitWidth = 188
ExplicitHeight = 146
inherited TBXLabel2: TSpTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited bElegirCliente: TBitBtn
Width = 108
@ -228,4 +239,100 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -14,8 +14,8 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
Height = 29
Margins.Top = 5
Margins.Bottom = 10
Align = alTop
Caption = 'Clientes'
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@ -24,6 +24,7 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
ParentColor = True
ParentFont = False
Underline = True
ExplicitWidth = 52
end
object bElegirCliente: TBitBtn
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,
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
StdCtrls, Buttons, SpTBXDkPanels, uViewParametrosInforme, uBizContactos,
uClientesController, SpTBXControls, SpTBXItem;
uClientesController, SpTBXControls, SpTBXItem, cxGraphics, cxLookAndFeels,
cxLookAndFeelPainters;
type
IViewFiltroClientes = interface(IViewParametrosInforme)

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

@ -14,8 +14,8 @@ inherited frViewFiltroProveedores: TfrViewFiltroProveedores
Height = 29
Margins.Top = 5
Margins.Bottom = 10
Align = alTop
Caption = 'Proveedores'
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@ -24,6 +24,7 @@ inherited frViewFiltroProveedores: TfrViewFiltroProveedores
ParentColor = True
ParentFont = False
Underline = True
ExplicitWidth = 78
end
object bElegirProveedor: TBitBtn
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,
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
StdCtrls, Buttons, SpTBXDkPanels, uViewParametrosInforme, uBizContactos,
uProveedoresController, SpTBXControls;
uProveedoresController, SpTBXControls, cxGraphics, cxLookAndFeels,
cxLookAndFeelPainters, SpTBXItem;
type
IViewFiltroProveedores = interface(IViewParametrosInforme)

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

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

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

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

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

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

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

@ -134,12 +134,10 @@ inherited DataModuleInventario: TDataModuleInventario
Name = 'ALMACEN'
DataType = datString
Size = 255
DictionaryEntry = 'INVENTARIO_ALMACEN'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
@ -180,6 +178,54 @@ inherited DataModuleInventario: TDataModuleInventario
DataType = datString
Size = 6
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
Name = 'STOCK'
DataType = datFloat
@ -188,21 +234,15 @@ inherited DataModuleInventario: TDataModuleInventario
end
item
Name = 'UNIDADES_ALMACEN'
DataType = datFloat
DisplayLabel = 'U. Almac'#233'n'
DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN'
DataType = datCurrency
end
item
Name = 'RESERVA'
DataType = datFloat
DisplayLabel = 'Reservado'
DictionaryEntry = 'INVENTARIO_RESERVA'
DataType = datCurrency
end
item
Name = 'PENDIENTE_RECEPCION'
DataType = datFloat
DisplayLabel = 'Pendiente de recibir'
DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION'
DataType = datCurrency
end
item
Name = 'TIPO_ALMACEN'

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

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

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

@ -10,10 +10,10 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Inventario = '{88FDC46A-5C64-47DE-9A7C-05A1EF1BB733}';
RID_Movimientos_Detalle_Color = '{D2195FD9-C966-4692-A94E-85ED2F809B9A}';
RID_DetalleReservas = '{8C6483AD-1A1E-470B-9E0E-95F976CFB950}';
RID_Inventario_Color = '{7CBD3AF6-7665-482B-8751-7F0FACBC0A01}';
RID_Inventario = '{6A5D12A1-D15A-47E8-A1FE-89275F715BD4}';
RID_Movimientos_Detalle_Color = '{81E9F5FF-7D42-4884-9451-79518C0DD20C}';
RID_DetalleReservas = '{D23BEF28-24A1-4416-BA12-EB2D0B126F9C}';
RID_Inventario_Color = '{9EE08BFF-95DA-4D80-BB18-D9D1564BAAF6}';
{ Data table names }
nme_Inventario = 'Inventario';
@ -33,6 +33,18 @@ const
fld_InventarioCAMPOTECNICO = 'CAMPOTECNICO';
fld_InventarioCODIGOTECNICO = 'CODIGOTECNICO';
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_InventarioUNIDADES_ALMACEN = 'UNIDADES_ALMACEN';
fld_InventarioRESERVA = 'RESERVA';
@ -57,17 +69,29 @@ const
idx_InventarioCAMPOTECNICO = 8;
idx_InventarioCODIGOTECNICO = 9;
idx_InventarioDISENOTECNICO = 10;
idx_InventarioSTOCK = 11;
idx_InventarioUNIDADES_ALMACEN = 12;
idx_InventarioRESERVA = 13;
idx_InventarioPENDIENTE_RECEPCION = 14;
idx_InventarioTIPO_ALMACEN = 15;
idx_InventarioID = 16;
idx_InventarioCANTIDAD = 17;
idx_InventarioFECHA_MOVIMIENTO = 18;
idx_InventarioCAUSA = 19;
idx_InventarioTIPO = 20;
idx_InventarioID_ALMACEN_RESERVA = 21;
idx_InventarioCOLOR1 = 11;
idx_InventarioCOLOR2 = 12;
idx_InventarioCOLOR3 = 13;
idx_InventarioCOLOR4 = 14;
idx_InventarioCOLOR5 = 15;
idx_InventarioCOLOR6 = 16;
idx_InventarioCOLOR7 = 17;
idx_InventarioCOLOR8 = 18;
idx_InventarioCOLOR9 = 19;
idx_InventarioCOLOR10 = 20;
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 }
fld_Movimientos_Detalle_ColorID = 'ID';
@ -174,7 +198,7 @@ const
type
{ IInventario }
IInventario = interface(IDAStronglyTypedDataTable)
['{939DCD46-A13E-4B35-90B0-F28192F5C41E}']
['{4B5171D8-C58B-487B-BEA0-5907C6C0AC9C}']
{ Property getters and setters }
function GetID_ALMACENValue: Integer;
procedure SetID_ALMACENValue(const aValue: Integer);
@ -220,20 +244,68 @@ type
procedure SetDISENOTECNICOValue(const aValue: String);
function GetDISENOTECNICOIsNull: 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;
procedure SetSTOCKValue(const aValue: Float);
function GetSTOCKIsNull: Boolean;
procedure SetSTOCKIsNull(const aValue: Boolean);
function GetUNIDADES_ALMACENValue: Float;
procedure SetUNIDADES_ALMACENValue(const aValue: Float);
function GetUNIDADES_ALMACENValue: Currency;
procedure SetUNIDADES_ALMACENValue(const aValue: Currency);
function GetUNIDADES_ALMACENIsNull: Boolean;
procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean);
function GetRESERVAValue: Float;
procedure SetRESERVAValue(const aValue: Float);
function GetRESERVAValue: Currency;
procedure SetRESERVAValue(const aValue: Currency);
function GetRESERVAIsNull: Boolean;
procedure SetRESERVAIsNull(const aValue: Boolean);
function GetPENDIENTE_RECEPCIONValue: Float;
procedure SetPENDIENTE_RECEPCIONValue(const aValue: Float);
function GetPENDIENTE_RECEPCIONValue: Currency;
procedure SetPENDIENTE_RECEPCIONValue(const aValue: Currency);
function GetPENDIENTE_RECEPCIONIsNull: Boolean;
procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean);
function GetTIPO_ALMACENValue: String;
@ -289,13 +361,37 @@ type
property CODIGOTECNICOIsNull: Boolean read GetCODIGOTECNICOIsNull write SetCODIGOTECNICOIsNull;
property DISENOTECNICO: String read GetDISENOTECNICOValue write SetDISENOTECNICOValue;
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 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 RESERVA: Float read GetRESERVAValue write SetRESERVAValue;
property RESERVA: Currency read GetRESERVAValue write SetRESERVAValue;
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 TIPO_ALMACEN: String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
property TIPO_ALMACENIsNull: Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull;
@ -362,20 +458,68 @@ type
procedure SetDISENOTECNICOValue(const aValue: String); virtual;
function GetDISENOTECNICOIsNull: 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;
procedure SetSTOCKValue(const aValue: Float); virtual;
function GetSTOCKIsNull: Boolean; virtual;
procedure SetSTOCKIsNull(const aValue: Boolean); virtual;
function GetUNIDADES_ALMACENValue: Float; virtual;
procedure SetUNIDADES_ALMACENValue(const aValue: Float); virtual;
function GetUNIDADES_ALMACENValue: Currency; virtual;
procedure SetUNIDADES_ALMACENValue(const aValue: Currency); virtual;
function GetUNIDADES_ALMACENIsNull: Boolean; virtual;
procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); virtual;
function GetRESERVAValue: Float; virtual;
procedure SetRESERVAValue(const aValue: Float); virtual;
function GetRESERVAValue: Currency; virtual;
procedure SetRESERVAValue(const aValue: Currency); virtual;
function GetRESERVAIsNull: Boolean; virtual;
procedure SetRESERVAIsNull(const aValue: Boolean); virtual;
function GetPENDIENTE_RECEPCIONValue: Float; virtual;
procedure SetPENDIENTE_RECEPCIONValue(const aValue: Float); virtual;
function GetPENDIENTE_RECEPCIONValue: Currency; virtual;
procedure SetPENDIENTE_RECEPCIONValue(const aValue: Currency); virtual;
function GetPENDIENTE_RECEPCIONIsNull: Boolean; virtual;
procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); virtual;
function GetTIPO_ALMACENValue: String; virtual;
@ -430,13 +574,37 @@ type
property CODIGOTECNICOIsNull: Boolean read GetCODIGOTECNICOIsNull write SetCODIGOTECNICOIsNull;
property DISENOTECNICO: String read GetDISENOTECNICOValue write SetDISENOTECNICOValue;
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 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 RESERVA: Float read GetRESERVAValue write SetRESERVAValue;
property RESERVA: Currency read GetRESERVAValue write SetRESERVAValue;
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 TIPO_ALMACEN: String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
property TIPO_ALMACENIsNull: Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull;
@ -461,7 +629,7 @@ type
{ IMovimientos_Detalle_Color }
IMovimientos_Detalle_Color = interface(IDAStronglyTypedDataTable)
['{E8729FC0-DE70-4AFD-B0AB-A8161008DB6E}']
['{6A041F7D-ED1C-4FC5-9AEA-0A19784DDAEE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -652,7 +820,7 @@ type
{ IDetalleReservas }
IDetalleReservas = interface(IDAStronglyTypedDataTable)
['{A6431949-92D9-45BE-A8E4-7FC7FD486182}']
['{349637F0-63BF-4267-82E8-C3DCE7589105}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -879,7 +1047,7 @@ type
{ IInventario_Color }
IInventario_Color = interface(IDAStronglyTypedDataTable)
['{D06D1829-B413-48F1-8267-0D2C6937660E}']
['{F2F895A5-4634-437F-8365-8F238F9226BB}']
{ Property getters and setters }
function GetID_ALMACENValue: Integer;
procedure SetID_ALMACENValue(const aValue: Integer);
@ -1314,6 +1482,258 @@ begin
DataTable.Fields[idx_InventarioDISENOTECNICO].AsVariant := Null;
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;
begin
result := DataTable.Fields[idx_InventarioSTOCK].AsFloat;
@ -1335,14 +1755,14 @@ begin
DataTable.Fields[idx_InventarioSTOCK].AsVariant := Null;
end;
function TInventarioDataTableRules.GetUNIDADES_ALMACENValue: Float;
function TInventarioDataTableRules.GetUNIDADES_ALMACENValue: Currency;
begin
result := DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsFloat;
result := DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsCurrency;
end;
procedure TInventarioDataTableRules.SetUNIDADES_ALMACENValue(const aValue: Float);
procedure TInventarioDataTableRules.SetUNIDADES_ALMACENValue(const aValue: Currency);
begin
DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsFloat := aValue;
DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsCurrency := aValue;
end;
function TInventarioDataTableRules.GetUNIDADES_ALMACENIsNull: boolean;
@ -1356,14 +1776,14 @@ begin
DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsVariant := Null;
end;
function TInventarioDataTableRules.GetRESERVAValue: Float;
function TInventarioDataTableRules.GetRESERVAValue: Currency;
begin
result := DataTable.Fields[idx_InventarioRESERVA].AsFloat;
result := DataTable.Fields[idx_InventarioRESERVA].AsCurrency;
end;
procedure TInventarioDataTableRules.SetRESERVAValue(const aValue: Float);
procedure TInventarioDataTableRules.SetRESERVAValue(const aValue: Currency);
begin
DataTable.Fields[idx_InventarioRESERVA].AsFloat := aValue;
DataTable.Fields[idx_InventarioRESERVA].AsCurrency := aValue;
end;
function TInventarioDataTableRules.GetRESERVAIsNull: boolean;
@ -1377,14 +1797,14 @@ begin
DataTable.Fields[idx_InventarioRESERVA].AsVariant := Null;
end;
function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONValue: Float;
function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONValue: Currency;
begin
result := DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsFloat;
result := DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsCurrency;
end;
procedure TInventarioDataTableRules.SetPENDIENTE_RECEPCIONValue(const aValue: Float);
procedure TInventarioDataTableRules.SetPENDIENTE_RECEPCIONValue(const aValue: Currency);
begin
DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsFloat := aValue;
DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsCurrency := aValue;
end;
function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONIsNull: boolean;

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

@ -10,15 +10,15 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_InventarioDelta = '{DB1931D9-F42E-491B-998C-E8AC0081DFC2}';
RID_Movimientos_Detalle_ColorDelta = '{00816D03-8F02-4E0A-9999-AF6FC7F4FB0B}';
RID_DetalleReservasDelta = '{3E9E6CAB-DC33-43FF-9A3C-3BFEEB6FE7C4}';
RID_Inventario_ColorDelta = '{D063845D-38A5-4EA5-A0BE-257ED7073F0C}';
RID_InventarioDelta = '{3DA6B112-7542-47EB-94B2-5784B8A266A9}';
RID_Movimientos_Detalle_ColorDelta = '{4902A57C-01BF-49A1-A5CD-C989ED6137B9}';
RID_DetalleReservasDelta = '{C361CD99-3E33-4C12-A3C8-9BFF6BB0A7C1}';
RID_Inventario_ColorDelta = '{B1243606-76BE-4AB1-8CB0-0172E8809E77}';
type
{ IInventarioDelta }
IInventarioDelta = interface(IInventario)
['{DB1931D9-F42E-491B-998C-E8AC0081DFC2}']
['{3DA6B112-7542-47EB-94B2-5784B8A266A9}']
{ Property getters and setters }
function GetOldID_ALMACENValue : Integer;
function GetOldID_ARTICULOValue : Integer;
@ -31,10 +31,22 @@ type
function GetOldCAMPOTECNICOValue : String;
function GetOldCODIGOTECNICOValue : 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 GetOldUNIDADES_ALMACENValue : Float;
function GetOldRESERVAValue : Float;
function GetOldPENDIENTE_RECEPCIONValue : Float;
function GetOldUNIDADES_ALMACENValue : Currency;
function GetOldRESERVAValue : Currency;
function GetOldPENDIENTE_RECEPCIONValue : Currency;
function GetOldTIPO_ALMACENValue : String;
function GetOldIDValue : Integer;
function GetOldCANTIDADValue : Float;
@ -55,10 +67,22 @@ type
property OldCAMPOTECNICO : String read GetOldCAMPOTECNICOValue;
property OldCODIGOTECNICO : String read GetOldCODIGOTECNICOValue;
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 OldUNIDADES_ALMACEN : Float read GetOldUNIDADES_ALMACENValue;
property OldRESERVA : Float read GetOldRESERVAValue;
property OldPENDIENTE_RECEPCION : Float read GetOldPENDIENTE_RECEPCIONValue;
property OldUNIDADES_ALMACEN : Currency read GetOldUNIDADES_ALMACENValue;
property OldRESERVA : Currency read GetOldRESERVAValue;
property OldPENDIENTE_RECEPCION : Currency read GetOldPENDIENTE_RECEPCIONValue;
property OldTIPO_ALMACEN : String read GetOldTIPO_ALMACENValue;
property OldID : Integer read GetOldIDValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
@ -139,29 +163,101 @@ type
function GetOldDISENOTECNICOIsNull: Boolean; virtual;
procedure SetDISENOTECNICOValue(const aValue: String); 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 GetSTOCKIsNull: Boolean; virtual;
function GetOldSTOCKValue: Float; virtual;
function GetOldSTOCKIsNull: Boolean; virtual;
procedure SetSTOCKValue(const aValue: Float); virtual;
procedure SetSTOCKIsNull(const aValue: Boolean); virtual;
function GetUNIDADES_ALMACENValue: Float; virtual;
function GetUNIDADES_ALMACENValue: Currency; virtual;
function GetUNIDADES_ALMACENIsNull: Boolean; virtual;
function GetOldUNIDADES_ALMACENValue: Float; virtual;
function GetOldUNIDADES_ALMACENValue: Currency; 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;
function GetRESERVAValue: Float; virtual;
function GetRESERVAValue: Currency; virtual;
function GetRESERVAIsNull: Boolean; virtual;
function GetOldRESERVAValue: Float; virtual;
function GetOldRESERVAValue: Currency; virtual;
function GetOldRESERVAIsNull: Boolean; virtual;
procedure SetRESERVAValue(const aValue: Float); virtual;
procedure SetRESERVAValue(const aValue: Currency); virtual;
procedure SetRESERVAIsNull(const aValue: Boolean); virtual;
function GetPENDIENTE_RECEPCIONValue: Float; virtual;
function GetPENDIENTE_RECEPCIONValue: Currency; virtual;
function GetPENDIENTE_RECEPCIONIsNull: Boolean; virtual;
function GetOldPENDIENTE_RECEPCIONValue: Float; virtual;
function GetOldPENDIENTE_RECEPCIONValue: Currency; 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;
function GetTIPO_ALMACENValue: String; virtual;
function GetTIPO_ALMACENIsNull: Boolean; virtual;
@ -251,21 +347,69 @@ type
property DISENOTECNICOIsNull : Boolean read GetDISENOTECNICOIsNull write SetDISENOTECNICOIsNull;
property OldDISENOTECNICO : String read GetOldDISENOTECNICOValue;
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 STOCKIsNull : Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
property OldSTOCK : Float read GetOldSTOCKValue;
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 OldUNIDADES_ALMACEN : Float read GetOldUNIDADES_ALMACENValue;
property OldUNIDADES_ALMACEN : Currency read GetOldUNIDADES_ALMACENValue;
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 OldRESERVA : Float read GetOldRESERVAValue;
property OldRESERVA : Currency read GetOldRESERVAValue;
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 OldPENDIENTE_RECEPCION : Float read GetOldPENDIENTE_RECEPCIONValue;
property OldPENDIENTE_RECEPCION : Currency read GetOldPENDIENTE_RECEPCIONValue;
property OldPENDIENTE_RECEPCIONIsNull : Boolean read GetOldPENDIENTE_RECEPCIONIsNull;
property TIPO_ALMACEN : String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
property TIPO_ALMACENIsNull : Boolean read GetTIPO_ALMACENIsNull write SetTIPO_ALMACENIsNull;
@ -304,7 +448,7 @@ type
{ IMovimientos_Detalle_ColorDelta }
IMovimientos_Detalle_ColorDelta = interface(IMovimientos_Detalle_Color)
['{00816D03-8F02-4E0A-9999-AF6FC7F4FB0B}']
['{4902A57C-01BF-49A1-A5CD-C989ED6137B9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_MOVIMIENTOValue : Integer;
@ -494,7 +638,7 @@ type
{ IDetalleReservasDelta }
IDetalleReservasDelta = interface(IDetalleReservas)
['{3E9E6CAB-DC33-43FF-9A3C-3BFEEB6FE7C4}']
['{C361CD99-3E33-4C12-A3C8-9BFF6BB0A7C1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -720,7 +864,7 @@ type
{ IInventario_ColorDelta }
IInventario_ColorDelta = interface(IInventario_Color)
['{D063845D-38A5-4EA5-A0BE-257ED7073F0C}']
['{B1243606-76BE-4AB1-8CB0-0172E8809E77}']
{ Property getters and setters }
function GetOldID_ALMACENValue : Integer;
function GetOldID_ARTICULOValue : Integer;
@ -1309,6 +1453,426 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioDISENOTECNICO] := Null;
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;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK];
@ -1344,7 +1908,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK] := Null;
end;
function TInventarioBusinessProcessorRules.GetUNIDADES_ALMACENValue: Float;
function TInventarioBusinessProcessorRules.GetUNIDADES_ALMACENValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN];
end;
@ -1356,7 +1920,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldUNIDADES_ALMACENValue: Float;
function TInventarioBusinessProcessorRules.GetOldUNIDADES_ALMACENValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioUNIDADES_ALMACEN];
end;
@ -1368,7 +1932,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetUNIDADES_ALMACENValue(const aValue: Float);
procedure TInventarioBusinessProcessorRules.SetUNIDADES_ALMACENValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN] := aValue;
end;
@ -1379,7 +1943,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN] := Null;
end;
function TInventarioBusinessProcessorRules.GetRESERVAValue: Float;
function TInventarioBusinessProcessorRules.GetRESERVAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA];
end;
@ -1391,7 +1955,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldRESERVAValue: Float;
function TInventarioBusinessProcessorRules.GetOldRESERVAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioRESERVA];
end;
@ -1403,7 +1967,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetRESERVAValue(const aValue: Float);
procedure TInventarioBusinessProcessorRules.SetRESERVAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA] := aValue;
end;
@ -1414,7 +1978,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA] := Null;
end;
function TInventarioBusinessProcessorRules.GetPENDIENTE_RECEPCIONValue: Float;
function TInventarioBusinessProcessorRules.GetPENDIENTE_RECEPCIONValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION];
end;
@ -1426,7 +1990,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
function TInventarioBusinessProcessorRules.GetOldPENDIENTE_RECEPCIONValue: Float;
function TInventarioBusinessProcessorRules.GetOldPENDIENTE_RECEPCIONValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioPENDIENTE_RECEPCION];
end;
@ -1438,7 +2002,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TInventarioBusinessProcessorRules.SetPENDIENTE_RECEPCIONValue(const aValue: Float);
procedure TInventarioBusinessProcessorRules.SetPENDIENTE_RECEPCIONValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION] := aValue;
end;

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

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

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

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

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

@ -15,7 +15,10 @@ uses
cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid,
uBizInventario, uBizAlmacenes, cxSpinEdit, uViewFiltroBase, TB2Item, SpTBXItem,
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
IViewDetalleReservas = interface(IViewGrid)

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

@ -8,9 +8,9 @@ inherited frViewInventario: TfrViewInventario
Top = 114
Width = 678
Height = 467
ExplicitTop = 143
ExplicitTop = 114
ExplicitWidth = 678
ExplicitHeight = 438
ExplicitHeight = 467
inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -104,6 +104,90 @@ inherited frViewInventario: TfrViewInventario
Caption = 'Campo t'#233'cnico'
DataBinding.FieldName = 'CAMPOTECNICO'
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
DataBinding.FieldName = 'STOCK'
PropertiesClassName = 'TcxSpinEditProperties'
@ -190,6 +274,7 @@ inherited frViewInventario: TfrViewInventario
Width = 678
Height = 73
ExplicitWidth = 678
ExplicitHeight = 73
inherited dxLayoutControl1: TdxLayoutControl
Width = 678
ExplicitWidth = 678
@ -204,6 +289,8 @@ inherited frViewInventario: TfrViewInventario
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 272
Width = 272
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 300
@ -212,6 +299,8 @@ inherited frViewInventario: TfrViewInventario
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 300
ExplicitWidth = 221
Width = 221
end
inherited eLista: TcxComboBox
Left = 507
@ -220,6 +309,8 @@ inherited frViewInventario: TfrViewInventario
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 507
ExplicitWidth = 215
Width = 215
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
@ -266,7 +357,6 @@ inherited frViewInventario: TfrViewInventario
Height = 41
Align = alTop
TabOrder = 3
ExplicitTop = 102
DesignSize = (
678
41)
@ -303,6 +393,9 @@ inherited frViewInventario: TfrViewInventario
BuiltInReportLink = True
end
end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxStyleRepository1: TcxStyleRepository
inherited cxStyleSelection: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]

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

@ -61,6 +61,18 @@ type
cxGridViewCAMPOTECNICO: TcxGridDBColumn;
cxGridViewCODIGOTECNICO: 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;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
AStyle: TcxStyle);

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

@ -13,4 +13,4 @@ BEGIN
END
/* 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\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