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

Version 4.2.8

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@179 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2013-02-13 11:18:17 +00:00
parent 4b730a9966
commit abbf8134ac
66 changed files with 1535 additions and 514 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.

28
Database/scripts/factuges.sql
View File

@ -395,7 +395,13 @@ CREATE TABLE ALBARANES_PROVEEDOR (
REFERENCIA_PROVEEDOR VARCHAR(255),
REF_FACTURA_PROV VARCHAR(255),
ID_ALBARAN TIPO_ID,
ID_ALBARAN_DEV TIPO_ID
ID_ALBARAN_DEV TIPO_ID,
ID_CLIENTE_FINAL TIPO_ID,
ID_TIPO_IVA TIPO_ID,
RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
RE TIPO_PORCENTAJE,
IMPORTE_RE TIPO_IMPORTE,
FECHA_SERVICIO DATE
);
CREATE TABLE ALBARANES_PROVEEDOR_DETALLES (
@ -1528,6 +1534,7 @@ CREATE VIEW V_ALBARANES_PROVEEDOR(
REFERENCIA,
REFERENCIA_PROVEEDOR,
TIPO,
SITUACION,
ID_ALBARAN_DEV,
REFERENCIA_ALB_DEV,
ID_FAC_ALB_DEV,
@ -1562,7 +1569,12 @@ CREATE VIEW V_ALBARANES_PROVEEDOR(
USUARIO,
ID_FORMA_PAGO,
NUM_COPIAS,
NUM_CORREOS)
NUM_CORREOS,
ID_TIPO_IVA,
RECARGO_EQUIVALENCIA,
RE,
IMPORTE_RE,
FECHA_SERVICIO)
AS
SELECT
ALBARANES_PROVEEDOR.ID,
@ -1577,6 +1589,9 @@ SELECT
ALBARANES_PROVEEDOR.REFERENCIA,
ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR,
ALBARANES_PROVEEDOR.TIPO,
case when (ALBARANES_PROVEEDOR.FECHA_SERVICIO is null) then 'PENDIENTE'
else 'REALIZADO'
end as SITUACION,
ALBARANES_PROVEEDOR.ID_ALBARAN_DEV,
ALB_DEV.REFERENCIA,
ALB_DEV.ID_FACTURA,
@ -1611,7 +1626,13 @@ SELECT
ALBARANES_PROVEEDOR.USUARIO,
ALBARANES_PROVEEDOR.ID_FORMA_PAGO,
IMPRESIONES.NUM_COPIAS,
REGISTRO_CORREOS.NUM_CORREOS
REGISTRO_CORREOS.NUM_CORREOS,
ALBARANES_PROVEEDOR.ID_TIPO_IVA,
ALBARANES_PROVEEDOR.RECARGO_EQUIVALENCIA,
ALBARANES_PROVEEDOR.RE,
ALBARANES_PROVEEDOR.IMPORTE_RE,
ALBARANES_PROVEEDOR.FECHA_SERVICIO
FROM
ALBARANES_PROVEEDOR
INNER JOIN CONTACTOS PROVEEDORES ON (PROVEEDORES.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)
@ -1630,7 +1651,6 @@ FROM
/* View: V_ALMACENES */
CREATE VIEW V_ALMACENES(
ID,

BIN
Resources/Keiblair-Logo.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 3.7 KiB

108
Source/Base/Base.dproj
View File

@ -45,6 +45,10 @@
<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="PackageDescription">Libreria base de FactuGES</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><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -54,58 +58,6 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Albaranes de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas">
<Form>DataModuleImpresiones</Form>
<DesignClass>TDataModule</DesignClass>
@ -115,6 +67,58 @@
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<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\cxIntl6D11.dcp" />
<DCCReference Include="..\Servidor\cxIntlPrintSys3D11.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\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\TB2k_D10.dcp" />
<DCCReference Include="..\Servidor\tbx_d10.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>

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,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">4</VersionInfo><VersionInfo Name="MinorVer">2</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">4.2.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">4.2.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>
<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">4</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">8</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">4.2.8.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">4.2.8.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\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 4,2,6,0
PRODUCTVERSION 4,2,6,0
FILEVERSION 4,2,8,0
PRODUCTVERSION 4,2,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "4.2.6.0\0"
VALUE "FileVersion", "4.2.8.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "4.2.6.0\0"
VALUE "ProductVersion", "4.2.8.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

24
Source/Informes/1/InfFacturaProveedor.fr3
View File

File diff suppressed because one or more lines are too long

24
Source/Informes/2/InfFacturaProveedor.fr3
View File

File diff suppressed because one or more lines are too long

86
Source/Informes/4/InfAlbaranProveedor.fr3
View File

File diff suppressed because one or more lines are too long

24
Source/Informes/5/InfFacturaProveedor.fr3
View File

File diff suppressed because one or more lines are too long

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

@ -258,8 +258,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 638
ExplicitWidth = 215
Width = 215
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel

5
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
View File

@ -356,11 +356,6 @@ begin
AStyle := cxStyleBLOQUEADOS;
end;
end;
end;
function TfrViewAlbaranesCliente.GetAlbaranes: IBizAlbaranCliente;

26
Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.groupproj
View File

@ -12,11 +12,9 @@
<Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
<Projects Include="..\Inventario\Controller\Inventario_controller.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
<Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" />
<Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
<Projects Include="Controller\AlbaranesProveedor_controller.dproj" />
@ -193,32 +191,14 @@
<Target Name="AlbaranesCliente_view:Make">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_view">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_view:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_view:Make">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_controller">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
</Target>
<Target Name="Contactos_controller:Clean">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_controller:Make">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbProv_FacProv_relation;FacturasProveedor_controller;PedProv_AlbProv_relation;Inventario_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view;PedidosProveedor_view;Contactos_controller" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbProv_FacProv_relation;FacturasProveedor_controller;PedProv_AlbProv_relation;Inventario_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_AlbProv_relation:Clean;Inventario_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean;PedidosProveedor_view:Clean;Contactos_controller:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_AlbProv_relation:Clean;Inventario_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbProv_FacProv_relation:Make;FacturasProveedor_controller:Make;PedProv_AlbProv_relation:Make;Inventario_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make;PedidosProveedor_view:Make;Contactos_controller:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbProv_FacProv_relation:Make;FacturasProveedor_controller:Make;PedProv_AlbProv_relation:Make;Inventario_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

25
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
View File

@ -101,6 +101,11 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
DisplayLabel = 'Tipo'
DictionaryEntry = 'AlbaranesProveedor_TIPO'
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
@ -317,6 +322,26 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
item
Name = 'NUM_CORREOS'
DataType = datSmallInt
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
end
item
Name = 'RE'
DataType = datFloat
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item
Name = 'FECHA_SERVICIO'
DataType = datDateTime
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

4
Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dpk
View File

@ -27,7 +27,9 @@ package AlbaranesProveedor_model;
requires
Base,
Contactos_model,
Inventario_model;
Inventario_model,
TiposIVA_model,
TiposIVA_controller;
contains
uIDataModuleAlbaranesProveedor in 'Data\uIDataModuleAlbaranesProveedor.pas',

12
Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dproj
View File

@ -42,6 +42,10 @@
<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><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">AlbaranesProveedor_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -51,11 +55,13 @@
<DelphiCompile Include="AlbaranesProveedor_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="Base.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\Inventario_model.dcp" />
<DCCReference Include="..\..\Lib\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Lib\TiposIVA_model.dcp" />
<DCCReference Include="Data\uIDataModuleAlbaranesProveedor.pas" />
<DCCReference Include="Data\uIDataModuleAlbaranesProveedorReport.pas" />
<DCCReference Include="Inventario_model.dcp" />
<DCCReference Include="schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="uBizAlbaranesProveedor.pas" />

292
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{D863F588-DD74-4F1F-A7D4-15C0B8B3AFF5}';
RID_AlbaranesProveedor = '{A1E3DCE2-4616-4F91-A1CB-9283EB49201B}';
RID_AlbaranesProveedor_Detalles = '{67E55271-D427-4912-A94C-02C2784E4346}';
RID_ListaAnosAlbaranes = '{0731CDB8-D257-49EC-8641-448F5CF9355E}';
RID_AlbaranesProveedor = '{007A6FC1-1B9F-4E7D-8487-943F764C8CE9}';
RID_AlbaranesProveedor_Detalles = '{E75768B6-402F-4AFF-AF29-8D5EE4F7FC53}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -37,6 +37,7 @@ const
fld_AlbaranesProveedorREFERENCIA = 'REFERENCIA';
fld_AlbaranesProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_AlbaranesProveedorTIPO = 'TIPO';
fld_AlbaranesProveedorSITUACION = 'SITUACION';
fld_AlbaranesProveedorID_ALBARAN_DEV = 'ID_ALBARAN_DEV';
fld_AlbaranesProveedorREFERENCIA_ALB_DEV = 'REFERENCIA_ALB_DEV';
fld_AlbaranesProveedorID_FAC_ALB_DEV = 'ID_FAC_ALB_DEV';
@ -72,6 +73,11 @@ const
fld_AlbaranesProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_AlbaranesProveedorNUM_COPIAS = 'NUM_COPIAS';
fld_AlbaranesProveedorNUM_CORREOS = 'NUM_CORREOS';
fld_AlbaranesProveedorID_TIPO_IVA = 'ID_TIPO_IVA';
fld_AlbaranesProveedorRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA';
fld_AlbaranesProveedorRE = 'RE';
fld_AlbaranesProveedorIMPORTE_RE = 'IMPORTE_RE';
fld_AlbaranesProveedorFECHA_SERVICIO = 'FECHA_SERVICIO';
{ AlbaranesProveedor field indexes }
idx_AlbaranesProveedorID = 0;
@ -86,41 +92,47 @@ const
idx_AlbaranesProveedorREFERENCIA = 9;
idx_AlbaranesProveedorREFERENCIA_PROVEEDOR = 10;
idx_AlbaranesProveedorTIPO = 11;
idx_AlbaranesProveedorID_ALBARAN_DEV = 12;
idx_AlbaranesProveedorREFERENCIA_ALB_DEV = 13;
idx_AlbaranesProveedorID_FAC_ALB_DEV = 14;
idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV = 15;
idx_AlbaranesProveedorID_ALMACEN = 16;
idx_AlbaranesProveedorTIPO_ALMACEN = 17;
idx_AlbaranesProveedorNOMBRE_ALMACEN = 18;
idx_AlbaranesProveedorID_PEDIDO = 19;
idx_AlbaranesProveedorREF_PED_PROVEEDOR = 20;
idx_AlbaranesProveedorID_FACTURA = 21;
idx_AlbaranesProveedorREF_FACTURA = 22;
idx_AlbaranesProveedorREF_FACTURA_PROV = 23;
idx_AlbaranesProveedorCALLE = 24;
idx_AlbaranesProveedorCODIGO_POSTAL = 25;
idx_AlbaranesProveedorPOBLACION = 26;
idx_AlbaranesProveedorPROVINCIA = 27;
idx_AlbaranesProveedorPERSONA_CONTACTO = 28;
idx_AlbaranesProveedorTELEFONO = 29;
idx_AlbaranesProveedorIMPORTE_NETO = 30;
idx_AlbaranesProveedorIMPORTE_PORTE = 31;
idx_AlbaranesProveedorDESCUENTO = 32;
idx_AlbaranesProveedorIMPORTE_DESCUENTO = 33;
idx_AlbaranesProveedorBASE_IMPONIBLE = 34;
idx_AlbaranesProveedorIVA = 35;
idx_AlbaranesProveedorIMPORTE_IVA = 36;
idx_AlbaranesProveedorIMPORTE_TOTAL = 37;
idx_AlbaranesProveedorOBSERVACIONES = 38;
idx_AlbaranesProveedorINCIDENCIAS = 39;
idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 40;
idx_AlbaranesProveedorFECHA_ALTA = 41;
idx_AlbaranesProveedorFECHA_MODIFICACION = 42;
idx_AlbaranesProveedorUSUARIO = 43;
idx_AlbaranesProveedorID_FORMA_PAGO = 44;
idx_AlbaranesProveedorNUM_COPIAS = 45;
idx_AlbaranesProveedorNUM_CORREOS = 46;
idx_AlbaranesProveedorSITUACION = 12;
idx_AlbaranesProveedorID_ALBARAN_DEV = 13;
idx_AlbaranesProveedorREFERENCIA_ALB_DEV = 14;
idx_AlbaranesProveedorID_FAC_ALB_DEV = 15;
idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV = 16;
idx_AlbaranesProveedorID_ALMACEN = 17;
idx_AlbaranesProveedorTIPO_ALMACEN = 18;
idx_AlbaranesProveedorNOMBRE_ALMACEN = 19;
idx_AlbaranesProveedorID_PEDIDO = 20;
idx_AlbaranesProveedorREF_PED_PROVEEDOR = 21;
idx_AlbaranesProveedorID_FACTURA = 22;
idx_AlbaranesProveedorREF_FACTURA = 23;
idx_AlbaranesProveedorREF_FACTURA_PROV = 24;
idx_AlbaranesProveedorCALLE = 25;
idx_AlbaranesProveedorCODIGO_POSTAL = 26;
idx_AlbaranesProveedorPOBLACION = 27;
idx_AlbaranesProveedorPROVINCIA = 28;
idx_AlbaranesProveedorPERSONA_CONTACTO = 29;
idx_AlbaranesProveedorTELEFONO = 30;
idx_AlbaranesProveedorIMPORTE_NETO = 31;
idx_AlbaranesProveedorIMPORTE_PORTE = 32;
idx_AlbaranesProveedorDESCUENTO = 33;
idx_AlbaranesProveedorIMPORTE_DESCUENTO = 34;
idx_AlbaranesProveedorBASE_IMPONIBLE = 35;
idx_AlbaranesProveedorIVA = 36;
idx_AlbaranesProveedorIMPORTE_IVA = 37;
idx_AlbaranesProveedorIMPORTE_TOTAL = 38;
idx_AlbaranesProveedorOBSERVACIONES = 39;
idx_AlbaranesProveedorINCIDENCIAS = 40;
idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 41;
idx_AlbaranesProveedorFECHA_ALTA = 42;
idx_AlbaranesProveedorFECHA_MODIFICACION = 43;
idx_AlbaranesProveedorUSUARIO = 44;
idx_AlbaranesProveedorID_FORMA_PAGO = 45;
idx_AlbaranesProveedorNUM_COPIAS = 46;
idx_AlbaranesProveedorNUM_CORREOS = 47;
idx_AlbaranesProveedorID_TIPO_IVA = 48;
idx_AlbaranesProveedorRECARGO_EQUIVALENCIA = 49;
idx_AlbaranesProveedorRE = 50;
idx_AlbaranesProveedorIMPORTE_RE = 51;
idx_AlbaranesProveedorFECHA_SERVICIO = 52;
{ AlbaranesProveedor_Detalles fields }
fld_AlbaranesProveedor_DetallesID = 'ID';
@ -163,7 +175,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{129709FB-F54C-4830-9C08-F0B64D4A73F5}']
['{F236E74E-9262-4FC7-96A7-0DB66A683FAD}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -198,7 +210,7 @@ type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{F6DA3DCB-4265-4AC4-9F2E-82E54071EE76}']
['{E16D24AC-E518-40AC-8273-E80D27C2D69F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -248,6 +260,10 @@ type
procedure SetTIPOValue(const aValue: String);
function GetTIPOIsNull: Boolean;
procedure SetTIPOIsNull(const aValue: Boolean);
function GetSITUACIONValue: String;
procedure SetSITUACIONValue(const aValue: String);
function GetSITUACIONIsNull: Boolean;
procedure SetSITUACIONIsNull(const aValue: Boolean);
function GetID_ALBARAN_DEVValue: Integer;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer);
function GetID_ALBARAN_DEVIsNull: Boolean;
@ -386,6 +402,26 @@ type
procedure SetNUM_CORREOSValue(const aValue: SmallInt);
function GetNUM_CORREOSIsNull: Boolean;
procedure SetNUM_CORREOSIsNull(const aValue: Boolean);
function GetID_TIPO_IVAValue: Integer;
procedure SetID_TIPO_IVAValue(const aValue: Integer);
function GetID_TIPO_IVAIsNull: Boolean;
procedure SetID_TIPO_IVAIsNull(const aValue: Boolean);
function GetRECARGO_EQUIVALENCIAValue: SmallInt;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
function GetRECARGO_EQUIVALENCIAIsNull: Boolean;
procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
function GetREValue: Float;
procedure SetREValue(const aValue: Float);
function GetREIsNull: Boolean;
procedure SetREIsNull(const aValue: Boolean);
function GetIMPORTE_REValue: Currency;
procedure SetIMPORTE_REValue(const aValue: Currency);
function GetIMPORTE_REIsNull: Boolean;
procedure SetIMPORTE_REIsNull(const aValue: Boolean);
function GetFECHA_SERVICIOValue: DateTime;
procedure SetFECHA_SERVICIOValue(const aValue: DateTime);
function GetFECHA_SERVICIOIsNull: Boolean;
procedure SetFECHA_SERVICIOIsNull(const aValue: Boolean);
{ Properties }
@ -413,6 +449,8 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property TIPO: String read GetTIPOValue write SetTIPOValue;
property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property ID_ALBARAN_DEVIsNull: Boolean read GetID_ALBARAN_DEVIsNull write SetID_ALBARAN_DEVIsNull;
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
@ -483,6 +521,16 @@ type
property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property RE: Float read GetREValue write SetREValue;
property REIsNull: Boolean read GetREIsNull write SetREIsNull;
property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
property IMPORTE_REIsNull: Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull;
property FECHA_SERVICIO: DateTime read GetFECHA_SERVICIOValue write SetFECHA_SERVICIOValue;
property FECHA_SERVICIOIsNull: Boolean read GetFECHA_SERVICIOIsNull write SetFECHA_SERVICIOIsNull;
end;
{ TAlbaranesProveedorDataTableRules }
@ -542,6 +590,10 @@ type
procedure SetTIPOValue(const aValue: String); virtual;
function GetTIPOIsNull: Boolean; virtual;
procedure SetTIPOIsNull(const aValue: Boolean); virtual;
function GetSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetSITUACIONIsNull: Boolean; virtual;
procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
function GetID_ALBARAN_DEVValue: Integer; virtual;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
function GetID_ALBARAN_DEVIsNull: Boolean; virtual;
@ -680,6 +732,26 @@ type
procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
function GetNUM_CORREOSIsNull: Boolean; virtual;
procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
function GetID_TIPO_IVAValue: Integer; virtual;
procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
function GetID_TIPO_IVAIsNull: Boolean; virtual;
procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
function GetREValue: Float; virtual;
procedure SetREValue(const aValue: Float); virtual;
function GetREIsNull: Boolean; virtual;
procedure SetREIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_REValue: Currency; virtual;
procedure SetIMPORTE_REValue(const aValue: Currency); virtual;
function GetIMPORTE_REIsNull: Boolean; virtual;
procedure SetIMPORTE_REIsNull(const aValue: Boolean); virtual;
function GetFECHA_SERVICIOValue: DateTime; virtual;
procedure SetFECHA_SERVICIOValue(const aValue: DateTime); virtual;
function GetFECHA_SERVICIOIsNull: Boolean; virtual;
procedure SetFECHA_SERVICIOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -706,6 +778,8 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property TIPO: String read GetTIPOValue write SetTIPOValue;
property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property ID_ALBARAN_DEVIsNull: Boolean read GetID_ALBARAN_DEVIsNull write SetID_ALBARAN_DEVIsNull;
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
@ -776,6 +850,16 @@ type
property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property RE: Float read GetREValue write SetREValue;
property REIsNull: Boolean read GetREIsNull write SetREIsNull;
property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
property IMPORTE_REIsNull: Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull;
property FECHA_SERVICIO: DateTime read GetFECHA_SERVICIOValue write SetFECHA_SERVICIOValue;
property FECHA_SERVICIOIsNull: Boolean read GetFECHA_SERVICIOIsNull write SetFECHA_SERVICIOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -785,7 +869,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{CD0E6D3A-FD12-485E-957A-AEEE0582BB42}']
['{F2C6131E-209B-434E-A618-40A17944A743}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1330,6 +1414,27 @@ begin
DataTable.Fields[idx_AlbaranesProveedorTIPO].AsVariant := Null;
end;
function TAlbaranesProveedorDataTableRules.GetSITUACIONValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedorSITUACION].AsString;
end;
procedure TAlbaranesProveedorDataTableRules.SetSITUACIONValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesProveedorSITUACION].AsString := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetSITUACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedorSITUACION].IsNull;
end;
procedure TAlbaranesProveedorDataTableRules.SetSITUACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedorSITUACION].AsVariant := Null;
end;
function TAlbaranesProveedorDataTableRules.GetID_ALBARAN_DEVValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN_DEV].AsInteger;
@ -2057,6 +2162,111 @@ begin
DataTable.Fields[idx_AlbaranesProveedorNUM_CORREOS].AsVariant := Null;
end;
function TAlbaranesProveedorDataTableRules.GetID_TIPO_IVAValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedorID_TIPO_IVA].AsInteger;
end;
procedure TAlbaranesProveedorDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedorID_TIPO_IVA].AsInteger := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetID_TIPO_IVAIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedorID_TIPO_IVA].IsNull;
end;
procedure TAlbaranesProveedorDataTableRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedorID_TIPO_IVA].AsVariant := Null;
end;
function TAlbaranesProveedorDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
begin
result := DataTable.Fields[idx_AlbaranesProveedorRECARGO_EQUIVALENCIA].AsSmallInt;
end;
procedure TAlbaranesProveedorDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_AlbaranesProveedorRECARGO_EQUIVALENCIA].AsSmallInt := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedorRECARGO_EQUIVALENCIA].IsNull;
end;
procedure TAlbaranesProveedorDataTableRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedorRECARGO_EQUIVALENCIA].AsVariant := Null;
end;
function TAlbaranesProveedorDataTableRules.GetREValue: Float;
begin
result := DataTable.Fields[idx_AlbaranesProveedorRE].AsFloat;
end;
procedure TAlbaranesProveedorDataTableRules.SetREValue(const aValue: Float);
begin
DataTable.Fields[idx_AlbaranesProveedorRE].AsFloat := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetREIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedorRE].IsNull;
end;
procedure TAlbaranesProveedorDataTableRules.SetREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedorRE].AsVariant := Null;
end;
function TAlbaranesProveedorDataTableRules.GetIMPORTE_REValue: Currency;
begin
result := DataTable.Fields[idx_AlbaranesProveedorIMPORTE_RE].AsCurrency;
end;
procedure TAlbaranesProveedorDataTableRules.SetIMPORTE_REValue(const aValue: Currency);
begin
DataTable.Fields[idx_AlbaranesProveedorIMPORTE_RE].AsCurrency := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetIMPORTE_REIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedorIMPORTE_RE].IsNull;
end;
procedure TAlbaranesProveedorDataTableRules.SetIMPORTE_REIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedorIMPORTE_RE].AsVariant := Null;
end;
function TAlbaranesProveedorDataTableRules.GetFECHA_SERVICIOValue: DateTime;
begin
result := DataTable.Fields[idx_AlbaranesProveedorFECHA_SERVICIO].AsDateTime;
end;
procedure TAlbaranesProveedorDataTableRules.SetFECHA_SERVICIOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_AlbaranesProveedorFECHA_SERVICIO].AsDateTime := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetFECHA_SERVICIOIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedorFECHA_SERVICIO].IsNull;
end;
procedure TAlbaranesProveedorDataTableRules.SetFECHA_SERVICIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedorFECHA_SERVICIO].AsVariant := Null;
end;
{ TAlbaranesProveedor_DetallesDataTableRules }
constructor TAlbaranesProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);

270
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ 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_ListaAnosAlbaranesDelta = '{14C5B976-CA00-4615-9651-B414EDAC591D}';
RID_AlbaranesProveedorDelta = '{C37BDD8D-FAD2-4F99-8CEB-EE981496C9F2}';
RID_AlbaranesProveedor_DetallesDelta = '{C77BA736-E7BC-409E-A5CB-DE950F03BBA6}';
RID_ListaAnosAlbaranesDelta = '{7568B208-4166-4A6A-B34F-926ADF9C84C2}';
RID_AlbaranesProveedorDelta = '{0F22046B-B839-44C8-A332-92A541C3CFE0}';
RID_AlbaranesProveedor_DetallesDelta = '{A633179D-5A35-41CC-8385-5AFAF96E59B6}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{14C5B976-CA00-4615-9651-B414EDAC591D}']
['{7568B208-4166-4A6A-B34F-926ADF9C84C2}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{C37BDD8D-FAD2-4F99-8CEB-EE981496C9F2}']
['{0F22046B-B839-44C8-A332-92A541C3CFE0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -64,6 +64,7 @@ type
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldTIPOValue : String;
function GetOldSITUACIONValue : String;
function GetOldID_ALBARAN_DEVValue : Integer;
function GetOldREFERENCIA_ALB_DEVValue : String;
function GetOldID_FAC_ALB_DEVValue : Integer;
@ -99,6 +100,11 @@ type
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldNUM_COPIASValue : SmallInt;
function GetOldNUM_CORREOSValue : SmallInt;
function GetOldID_TIPO_IVAValue : Integer;
function GetOldRECARGO_EQUIVALENCIAValue : SmallInt;
function GetOldREValue : Float;
function GetOldIMPORTE_REValue : Currency;
function GetOldFECHA_SERVICIOValue : DateTime;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -113,6 +119,7 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldTIPO : String read GetOldTIPOValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
@ -148,6 +155,11 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
property OldRE : Float read GetOldREValue;
property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue;
property OldFECHA_SERVICIO : DateTime read GetOldFECHA_SERVICIOValue;
end;
{ TAlbaranesProveedorBusinessProcessorRules }
@ -231,6 +243,12 @@ type
function GetOldTIPOIsNull: Boolean; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
procedure SetTIPOIsNull(const aValue: Boolean); virtual;
function GetSITUACIONValue: String; virtual;
function GetSITUACIONIsNull: Boolean; virtual;
function GetOldSITUACIONValue: String; virtual;
function GetOldSITUACIONIsNull: Boolean; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
function GetID_ALBARAN_DEVValue: Integer; virtual;
function GetID_ALBARAN_DEVIsNull: Boolean; virtual;
function GetOldID_ALBARAN_DEVValue: Integer; virtual;
@ -439,6 +457,36 @@ type
function GetOldNUM_CORREOSIsNull: Boolean; virtual;
procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
function GetID_TIPO_IVAValue: Integer; virtual;
function GetID_TIPO_IVAIsNull: Boolean; virtual;
function GetOldID_TIPO_IVAValue: Integer; virtual;
function GetOldID_TIPO_IVAIsNull: Boolean; virtual;
procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
function GetREValue: Float; virtual;
function GetREIsNull: Boolean; virtual;
function GetOldREValue: Float; virtual;
function GetOldREIsNull: Boolean; virtual;
procedure SetREValue(const aValue: Float); virtual;
procedure SetREIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_REValue: Currency; virtual;
function GetIMPORTE_REIsNull: Boolean; virtual;
function GetOldIMPORTE_REValue: Currency; virtual;
function GetOldIMPORTE_REIsNull: Boolean; virtual;
procedure SetIMPORTE_REValue(const aValue: Currency); virtual;
procedure SetIMPORTE_REIsNull(const aValue: Boolean); virtual;
function GetFECHA_SERVICIOValue: DateTime; virtual;
function GetFECHA_SERVICIOIsNull: Boolean; virtual;
function GetOldFECHA_SERVICIOValue: DateTime; virtual;
function GetOldFECHA_SERVICIOIsNull: Boolean; virtual;
procedure SetFECHA_SERVICIOValue(const aValue: DateTime); virtual;
procedure SetFECHA_SERVICIOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -489,6 +537,10 @@ type
property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull;
property OldTIPO : String read GetOldTIPOValue;
property OldTIPOIsNull : Boolean read GetOldTIPOIsNull;
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
property ID_ALBARAN_DEV : Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property ID_ALBARAN_DEVIsNull : Boolean read GetID_ALBARAN_DEVIsNull write SetID_ALBARAN_DEVIsNull;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
@ -629,6 +681,26 @@ type
property NUM_CORREOSIsNull : Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
property OldNUM_CORREOSIsNull : Boolean read GetOldNUM_CORREOSIsNull;
property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull;
property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull;
property RE : Float read GetREValue write SetREValue;
property REIsNull : Boolean read GetREIsNull write SetREIsNull;
property OldRE : Float read GetOldREValue;
property OldREIsNull : Boolean read GetOldREIsNull;
property IMPORTE_RE : Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
property IMPORTE_REIsNull : Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull;
property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue;
property OldIMPORTE_REIsNull : Boolean read GetOldIMPORTE_REIsNull;
property FECHA_SERVICIO : DateTime read GetFECHA_SERVICIOValue write SetFECHA_SERVICIOValue;
property FECHA_SERVICIOIsNull : Boolean read GetFECHA_SERVICIOIsNull write SetFECHA_SERVICIOIsNull;
property OldFECHA_SERVICIO : DateTime read GetOldFECHA_SERVICIOValue;
property OldFECHA_SERVICIOIsNull : Boolean read GetOldFECHA_SERVICIOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -638,7 +710,7 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{C77BA736-E7BC-409E-A5CB-DE950F03BBA6}']
['{A633179D-5A35-41CC-8385-5AFAF96E59B6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -1313,6 +1385,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorTIPO] := Null;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorSITUACION];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorSITUACION]);
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorSITUACION];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorSITUACION]);
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorSITUACION] := aValue;
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorSITUACION] := Null;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV];
@ -2392,6 +2495,161 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_CORREOS] := Null;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_TIPO_IVA];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_TIPO_IVA]);
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_TIPO_IVA];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_TIPO_IVA]);
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_TIPO_IVA] := aValue;
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_TIPO_IVA] := Null;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRECARGO_EQUIVALENCIA];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRECARGO_EQUIVALENCIA]);
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorRECARGO_EQUIVALENCIA];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorRECARGO_EQUIVALENCIA]);
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRECARGO_EQUIVALENCIA] := aValue;
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRECARGO_EQUIVALENCIA] := Null;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetREValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRE];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRE]);
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorRE];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorRE]);
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetREValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRE] := aValue;
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorRE] := Null;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetIMPORTE_REValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorIMPORTE_RE];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetIMPORTE_REIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorIMPORTE_RE]);
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldIMPORTE_REValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorIMPORTE_RE];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldIMPORTE_REIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorIMPORTE_RE]);
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetIMPORTE_REValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorIMPORTE_RE] := aValue;
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetIMPORTE_REIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorIMPORTE_RE] := Null;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetFECHA_SERVICIOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorFECHA_SERVICIO];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetFECHA_SERVICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorFECHA_SERVICIO]);
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldFECHA_SERVICIOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorFECHA_SERVICIO];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldFECHA_SERVICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorFECHA_SERVICIO]);
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetFECHA_SERVICIOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorFECHA_SERVICIO] := aValue;
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetFECHA_SERVICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorFECHA_SERVICIO] := Null;
end;
{ TAlbaranesProveedor_DetallesBusinessProcessorRules }
constructor TAlbaranesProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

72
Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
View File

@ -13,6 +13,9 @@ const
CTE_TIPO_ALBARAN = 'A';
CTE_TIPO_ALBARAN_DEV = 'D';
SITUACION_ALBARAN_PENDIENTE = 'PENDIENTE';
SITUACION_ALBARAN_REALIZADO = 'REALIZADO';
type
IBizAlbaranProveedor = interface(IAlbaranesProveedor)
['{8042AD9C-08B1-4236-B0EA-F11C4942DFE4}']
@ -48,6 +51,9 @@ type
private
procedure CalcularBaseImponible;
procedure CalcularIVA;
procedure CalcularRE;
procedure AsignarTipoIVA (IDTipoIVA : Integer);
protected
FSeleccionableInterface : ISeleccionable;
FProveedor : IBizProveedor;
@ -81,6 +87,9 @@ type
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
procedure DESCUENTOOnChange(Sender: TDACustomField);
procedure IVAOnChange(Sender: TDACustomField);
procedure REOnChange(Sender: TDACustomField);
procedure RECARGO_EQUIVALENCIAOnChange(Sender: TDACustomField);
procedure ID_TIPO_IVAOnChange(Sender: TDACustomField);
procedure OnNewRecord(Sender: TDADataTable); override;
procedure IniciarValoresAlbaranNuevo;
@ -107,10 +116,36 @@ implementation
uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios,
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizInventario;
uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizInventario,
uTiposIVAController, uBizTiposIVA;
{ TBizAlbaranProveedor }
procedure TBizAlbaranProveedor.AsignarTipoIVA(IDTipoIVA: Integer);
var
ATiposIVAController : ITiposIVAController;
ATipoIVA : IBizTipoIVA;
begin
inherited;
ATiposIVAController := TTiposIVAController.Create;
try
ATipoIVA := ATiposIVAController.Buscar(IDTipoIVA);
ATipoIVA.DataTable.Active := True;
if Assigned(ATipoIVA) then
begin
Edit;
IVA := ATipoIVA.IVA;
if (RECARGO_EQUIVALENCIA = 1) then
RE := ATipoIVA.RE
else
RE := 0;
end;
finally
ATiposIVAController := NIL;
end;
end;
procedure TBizAlbaranProveedor.CalcularBaseImponible;
begin
if not Self.DataTable.Editing then
@ -126,10 +161,11 @@ begin
try
CalcularBaseImponible;
CalcularIVA;
CalcularRE;
if not Self.DataTable.Editing then
Edit;
IMPORTE_TOTAL := BASE_IMPONIBLE + IMPORTE_IVA;
IMPORTE_TOTAL := BASE_IMPONIBLE + IMPORTE_IVA + IMPORTE_RE;
finally
DataTable.Fields.FieldEventsDisabled := False;
DataTable.EnableControls;
@ -143,6 +179,13 @@ begin
IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE);
end;
procedure TBizAlbaranProveedor.CalcularRE;
begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_RE := (RE / 100) * (BASE_IMPONIBLE);
end;
constructor TBizAlbaranProveedor.Create(aDataTable: TDADataTable);
begin
inherited;
@ -151,10 +194,14 @@ begin
with DataTable do
begin
FieldByName(fld_AlbaranesProveedorID_TIPO_IVA).OnChange := ID_TIPO_IVAOnChange;
FieldByName(fld_AlbaranesProveedorRECARGO_EQUIVALENCIA).OnChange := RECARGO_EQUIVALENCIAOnChange;
FieldByName(fld_AlbaranesProveedorIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange;
FieldByName(fld_AlbaranesProveedorIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange;
FieldByName(fld_AlbaranesProveedorDESCUENTO).OnChange := DESCUENTOOnChange;
FieldByName(fld_AlbaranesProveedorIVA).OnChange := IVAOnChange;
FieldByName(fld_AlbaranesProveedorRE).OnChange := REOnChange;
end;
FDetallesLink := TDADataSource.Create(NIL);
@ -189,6 +236,11 @@ begin
Result := FProveedor;
end;
procedure TBizAlbaranProveedor.ID_TIPO_IVAOnChange(Sender: TDACustomField);
begin
AsignarTipoIVA(ID_TIPO_IVA);
end;
procedure TBizAlbaranProveedor.IMPORTE_NETOOnChange(Sender: TDACustomField);
begin
CalcularImporteTotal;
@ -207,7 +259,8 @@ begin
INCIDENCIAS_ACTIVAS := 0;
TIPO := CTE_TIPO_ALBARAN;
TIPO_ALMACEN := CTE_INV_ALMACEN;
ID_ALMACEN := AppFactuGES.EmpresaActiva.ID_ALMACEN;
ID_ALMACEN := AppFactuGES.EmpresaActiva.ID_ALMACEN;
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
end;
procedure TBizAlbaranProveedor.IVAOnChange(Sender: TDACustomField);
@ -232,6 +285,16 @@ begin
IniciarValoresAlbaranNuevo;
end;
procedure TBizAlbaranProveedor.RECARGO_EQUIVALENCIAOnChange(Sender: TDACustomField);
begin
AsignarTipoIVA(ID_TIPO_IVA);
end;
procedure TBizAlbaranProveedor.REOnChange(Sender: TDACustomField);
begin
CalcularImporteTotal;
end;
procedure TBizAlbaranProveedor.SetProveedor(AValue: IBizProveedor);
var
bEnEdicion : Boolean;
@ -251,6 +314,9 @@ begin
ID_PROVEEDOR := FProveedor.ID;
if FProveedor.ID_TIPO_IVA > 0 then
ID_TIPO_IVA := FProveedor.ID_TIPO_IVA;
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
//si se quita el id de la cabecera y los detalles se desincroniza
if bEnEdicion then

118
Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm
View File

@ -213,12 +213,16 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EM' +
'PRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_' +
'WEB AS PAGINA_WEB_EMPRESA,'#10' V_ALBARANES_PROVEEDOR.OBSERVACIONES' +
','#10' V_ALBARANES_PROVEEDOR.INCIDENCIAS'#10'FROM'#10' V_ALBARANES_PROVE' +
'EDOR'#10' LEFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_AL' +
'BARANES_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENES ON (' +
'ALMACENES.ID = V_ALBARANES_PROVEEDOR.ID_ALMACEN)'#10' LEFT OUTER JO' +
'IN EMPRESAS ON (EMPRESAS.ID = V_ALBARANES_PROVEEDOR.ID_EMPRESA)'#10 +
'WHERE V_ALBARANES_PROVEEDOR.ID = :ID'#10#10
','#10' V_ALBARANES_PROVEEDOR.INCIDENCIAS,'#10' V_ALBARANES_PROVEEDOR.F' +
'ECHA_SERVICIO,'#10' V_ALBARANES_PROVEEDOR.IVA,'#10' V_ALBARANES_PROVEE' +
'DOR.IMPORTE_IVA,'#10' V_ALBARANES_PROVEEDOR.RE,'#10' V_ALBARANES_PROVE' +
'EDOR.IMPORTE_RE,'#10' V_ALBARANES_PROVEEDOR.BASE_IMPONIBLE,'#10' V_ALB' +
'ARANES_PROVEEDOR.NOMBRE_CLIENTE_FINAL'#10#10#10'FROM'#10' V_ALBARANES_PRO' +
'VEEDOR'#10' LEFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_' +
'ALBARANES_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENES ON' +
' (ALMACENES.ID = V_ALBARANES_PROVEEDOR.ID_ALMACEN)'#10' LEFT OUTER ' +
'JOIN EMPRESAS ON (EMPRESAS.ID = V_ALBARANES_PROVEEDOR.ID_EMPRESA' +
')'#10'WHERE V_ALBARANES_PROVEEDOR.ID = :ID'#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -328,6 +332,34 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
item
DatasetField = 'INCIDENCIAS'
TableField = 'INCIDENCIAS'
end
item
DatasetField = 'FECHA_SERVICIO'
TableField = 'FECHA_SERVICIO'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA'
end
item
DatasetField = 'RE'
TableField = 'RE'
end
item
DatasetField = 'IMPORTE_RE'
TableField = 'IMPORTE_RE'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'NOMBRE_CLIENTE_FINAL'
TableField = 'NOMBRE_CLIENTE_FINAL'
end>
end>
Name = 'Informe_Cabecera'
@ -458,6 +490,35 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
item
Name = 'INCIDENCIAS'
DataType = datMemo
end
item
Name = 'FECHA_SERVICIO'
DataType = datDateTime
end
item
Name = 'IVA'
DataType = datFloat
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
end
item
Name = 'RE'
DataType = datFloat
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'NOMBRE_CLIENTE_FINAL'
DataType = datString
Size = 255
end>
end
item
@ -606,7 +667,7 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 41283.504346134260000000
ReportOptions.LastChange = 41316.777390671300000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
''
@ -614,6 +675,7 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
'var'
' Cadena: String;'
'begin'
'{ '
' DatosEmpresa.Lines.Clear;'
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
@ -623,17 +685,18 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
'">;'
' DatosEmpresa.Lines.Add(Cadena);'
' Memo19.Lines.Clear;'
' Memo19.Lines.Add(Cadena); ' +
' '
' Memo19.Lines.Add(Cadena);'
'} '
'end;'
''
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ '
' NombreEmpresa.Lines.Clear;'
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
' Memo15.Lines.Clear;'
' Memo15.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
'} '
'end;'
''
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
@ -675,6 +738,7 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
''
'procedure Memo2OnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ '
' Memo2.Lines.Clear;'
' Memo9.Lines.Clear; '
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
@ -686,7 +750,8 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
' begin '
' Memo2.Lines.Add('#39'ALBAR'#193'N DE PROVEEDOR'#39'); '
' Memo9.Lines.Add('#39'ALBAR'#193'N DE PROVEEDOR'#39'); '
' end '
' end'
' } '
'end;'
''
'procedure Memo5OnBeforePrint(Sender: TfrxComponent);'
@ -700,11 +765,13 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
''
'procedure Memo1OnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ '
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
' begin'
' Memo1.Lines.Clear;'
' Memo1.Lines.Add('#39'Fecha orden:'#39');'
' end;'
'} '
'end;'
''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
@ -1058,6 +1125,35 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
item
Name = 'INCIDENCIAS'
DataType = datMemo
end
item
Name = 'FECHA_SERVICIO'
DataType = datDateTime
end
item
Name = 'IVA'
DataType = datFloat
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
end
item
Name = 'RE'
DataType = datFloat
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'NOMBRE_CLIENTE_FINAL'
DataType = datString
Size = 255
end>
Params = <
item

132
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
View File

@ -234,6 +234,30 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item
DatasetField = 'NOMBRE_CLIENTE_FINAL'
TableField = 'NOMBRE_CLIENTE_FINAL'
end
item
DatasetField = 'ID_TIPO_IVA'
TableField = 'ID_TIPO_IVA'
end
item
DatasetField = 'RECARGO_EQUIVALENCIA'
TableField = 'RECARGO_EQUIVALENCIA'
end
item
DatasetField = 'RE'
TableField = 'RE'
end
item
DatasetField = 'IMPORTE_RE'
TableField = 'IMPORTE_RE'
end
item
DatasetField = 'FECHA_SERVICIO'
TableField = 'FECHA_SERVICIO'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end>
end>
Name = 'AlbaranesProveedor'
@ -306,6 +330,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Size = 1
DictionaryEntry = 'AlbaranesProveedor_TIPO'
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
@ -493,6 +522,26 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item
Name = 'NUM_CORREOS'
DataType = datSmallInt
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
end
item
Name = 'RE'
DataType = datFloat
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item
Name = 'FECHA_SERVICIO'
DataType = datDateTime
end>
end
item
@ -875,6 +924,31 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
Value = ''
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Value = ''
end
item
Name = 'RE'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
Value = ''
end
item
Name = 'FECHA_SERVICIO'
DataType = datDateTime
Value = ''
end>
Statements = <
item
@ -891,18 +965,21 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
' IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDE' +
'NCIAS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUAR' +
'IO,'#10' ID_ALMACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMP' +
'ORTE_PORTE,'#10' ID_ALBARAN_DEV)'#10' VALUES ('#10' :ID,'#10' :ID_EMPR' +
'ESA,'#10' :ID_PROVEEDOR,'#10' :ID_CLIENTE_FINAL,'#10' :ID_DIRECCION' +
','#10' :PERSONA_CONTACTO_PROV,'#10' :FECHA_ALBARAN,'#10' :ID_PEDIDO' +
','#10' :ID_FACTURA,'#10' :TIPO,'#10' :REFERENCIA,'#10' :REFERENCIA_P' +
'ROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CALLE,'#10' :CODIGO_POSTAL,' +
#10' :POBLACION,'#10' :PROVINCIA,'#10' :PERSONA_CONTACTO,'#10' :TEL' +
'EFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUEN' +
'TO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPORTE_TOTAL,'#10' :OBSERVA' +
'CIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS,'#10' CURRENT_' +
'TIMESTAMP,'#10' CURRENT_TIMESTAMP,'#10' :USUARIO,'#10' :ID_ALMACEN,' +
#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' ' +
':ID_ALBARAN_DEV);'#10
'ORTE_PORTE,'#10' ID_ALBARAN_DEV,'#10' ID_TIPO_IVA,'#10' RECARGO_EQU' +
'IVALENCIA,'#10' RE,'#10' IMPORTE_RE,'#10' FECHA_SERVICIO)'#10' VALUES ' +
'('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,'#10' :ID_CLIENTE_F' +
'INAL,'#10' :ID_DIRECCION,'#10' :PERSONA_CONTACTO_PROV,'#10' :FECHA_' +
'ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :TIPO,'#10' :REFERE' +
'NCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CAL' +
'LE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :PER' +
'SONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENT' +
'O,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPO' +
'RTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIA' +
'S_ACTIVAS,'#10' CURRENT_TIMESTAMP,'#10' CURRENT_TIMESTAMP,'#10' :US' +
'UARIO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' ' +
' :IMPORTE_PORTE,'#10' :ID_ALBARAN_DEV,'#10' :ID_TIPO_IVA,'#10' :R' +
'ECARGO_EQUIVALENCIA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :FECHA_SERVIC' +
'IO);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1110,6 +1187,31 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DataType = datInteger
Value = ''
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Value = ''
end
item
Name = 'RE'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
Value = ''
end
item
Name = 'FECHA_SERVICIO'
DataType = datDateTime
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1137,8 +1239,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'S,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :US' +
'UARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FOR' +
'MA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :' +
'IMPORTE_PORTE,'#10' ID_ALBARAN_DEV = :ID_ALBARAN_DEV'#10' WHERE'#10' (I' +
'D = :OLD_ID);'#10
'IMPORTE_PORTE,'#10' ID_ALBARAN_DEV = :ID_ALBARAN_DEV,'#10' ID_TIPO' +
'_IVA = :ID_TIPO_IVA,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVAL' +
'ENCIA,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' FECHA_SER' +
'VICIO = :FECHA_SERVICIO'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL
ColumnMappings = <>
end>

136
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
View File

@ -152,16 +152,16 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end
inherited pgPaginas: TPageControl
Width = 759
Height = 472
Height = 382
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 759
ExplicitHeight = 472
ExplicitHeight = 382
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 751
ExplicitHeight = 444
ExplicitHeight = 354
end
object pagContenido: TTabSheet
Caption = 'Contenido'
@ -170,7 +170,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 0
Top = 0
Width = 751
Height = 444
Height = 354
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -183,7 +183,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
TabOrder = 0
ReadOnly = False
ExplicitWidth = 751
ExplicitHeight = 444
ExplicitHeight = 354
inherited ToolBar1: TToolBar
Width = 751
Height = 51
@ -198,33 +198,27 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton [4]
inherited FontName: TJvFontComboBox
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox [5]
Left = 399
inherited ToolButton14: TToolButton
Left = 479
Top = 0
ExplicitLeft = 399
ExplicitLeft = 479
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 544
Top = 0
Width = 122
Width = 154
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 122
ExplicitWidth = 154
end
inherited UpDown1: TUpDown
Left = 666
Top = 0
ExplicitLeft = 666
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
inherited ToolButton13: TToolButton [7]
Left = 0
Top = 0
Wrap = True
@ -232,60 +226,70 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitTop = 0
ExplicitHeight = 27
end
inherited ToolButton6: TToolButton [9]
inherited UpDown1: TUpDown [8]
Left = 0
Top = 27
ExplicitLeft = 0
ExplicitTop = 27
end
inherited ToolButton7: TToolButton [10]
Left = 66
inherited ToolButton11: TToolButton
Left = 17
Top = 27
ExplicitLeft = 66
ExplicitLeft = 17
ExplicitTop = 27
end
inherited ToolButton8: TToolButton [11]
Left = 133
inherited ToolButton12: TToolButton
Left = 158
Top = 27
ExplicitLeft = 133
ExplicitTop = 27
end
inherited ToolButton12: TToolButton [12]
Left = 216
Top = 27
ExplicitLeft = 216
Wrap = False
ExplicitLeft = 158
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton [13]
Left = 224
inherited ToolButton9: TToolButton
Left = 166
Top = 27
ExplicitLeft = 224
ExplicitLeft = 166
ExplicitTop = 27
end
inherited ToolButton10: TToolButton [14]
Left = 369
inherited ToolButton10: TToolButton
Left = 311
Top = 27
ExplicitLeft = 369
ExplicitLeft = 311
ExplicitTop = 27
end
inherited ToolButton11: TToolButton [15]
Left = 494
inherited ToolButton6: TToolButton
Left = 436
Top = 27
ExplicitLeft = 494
ExplicitLeft = 436
ExplicitTop = 27
end
inherited ToolButton7: TToolButton
Left = 502
Top = 27
Wrap = False
ExplicitLeft = 502
ExplicitTop = 27
end
inherited ToolButton8: TToolButton
Left = 569
Top = 27
ExplicitLeft = 569
ExplicitTop = 27
end
end
inherited cxGrid: TcxGrid
Top = 77
Width = 751
Height = 367
Height = 277
ExplicitTop = 77
ExplicitWidth = 751
ExplicitHeight = 345
ExplicitHeight = 277
end
inherited TBXDock1: TTBXDock
Top = 51
Width = 751
ExplicitTop = 51
ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 566
@ -309,7 +313,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 0
Top = 0
Width = 751
Height = 444
Height = 354
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -320,7 +324,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
TabOrder = 0
ReadOnly = False
ExplicitWidth = 751
ExplicitHeight = 444
ExplicitHeight = 354
inherited pnlSup: TPanel
Width = 751
ExplicitWidth = 751
@ -330,13 +334,13 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end
inherited GroupBox1: TGroupBox
Width = 751
Height = 416
Height = 326
ExplicitWidth = 751
ExplicitHeight = 416
ExplicitHeight = 326
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 734
ExplicitHeight = 389
Height = 389
ExplicitHeight = 299
Height = 299
Width = 734
end
end
@ -355,9 +359,9 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
Top = 554
Top = 464
Width = 765
Height = 46
Height = 136
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -367,15 +371,15 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ParentFont = False
TabOrder = 4
ReadOnly = False
ExplicitTop = 554
ExplicitTop = 464
ExplicitWidth = 765
ExplicitHeight = 46
ExplicitHeight = 136
inherited dxLayoutControl1: TdxLayoutControl
Width = 765
Height = 46
Height = 136
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 765
ExplicitHeight = 46
ExplicitHeight = 136
inherited Bevel3: TBevel
Left = 425
Top = 11
@ -487,8 +491,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited edtRE: TcxDBSpinEdit
Left = 537
Top = 115
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
@ -500,8 +502,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited ImporteRE: TcxDBCurrencyEdit
Left = 608
Top = 115
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
@ -542,8 +542,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited eIVA: TcxDBLookupComboBox
Left = 120
Top = 92
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
@ -556,13 +554,13 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited bTiposIVA: TButton
Left = 277
Top = 92
OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 277
ExplicitTop = 92
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 120
Top = 119
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
@ -619,12 +617,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Group6: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Item16: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item19: TdxLayoutItem
Visible = False
end
@ -634,17 +626,13 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Visible = False
end
inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group9: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False
inherited dxLayoutControl1Item7: TdxLayoutItem
Visible = True
end
end
inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = False

37
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
View File

@ -12,7 +12,7 @@ uses
StdCtrls, pngimage, AppEvnts, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit,
uViewIncidencias,
uAlbaranesProveedorController,
uViewDetallesBase, uViewDetallesAlbaranProveedor,
uViewDetallesBase, uViewDetallesAlbaranProveedor, uBizTiposIVA, uTiposIVAController,
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
uIEditorAlbaranProveedor, uBizAlbaranesProveedor, uViewAlbaranProveedor,
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces, cxLabel;
@ -27,7 +27,7 @@ type
frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor;
frViewTotales1: TfrViewTotales;
procedure FormShow(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
procedure frViewTotales1edtDescuentoPropertiesValidate(Sender: TObject;
@ -36,6 +36,7 @@ type
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTotales1bTiposIVAClick(Sender: TObject);
// procedure frViewDatosYSeleccionContactoedtlNombrePropertiesChange(Sender: TObject);
private
@ -45,6 +46,8 @@ type
FAlbaran: IBizAlbaranProveedor;
FViewAlbaran: IViewAlbaranProveedor;
FController : IAlbaranesProveedorController;
FTiposIVAController : ITiposIVAController;
FTiposIVA: IBizTipoIVA;
function GetController : IAlbaranesProveedorController;
procedure SetController (const Value : IAlbaranesProveedorController); virtual;
@ -113,12 +116,15 @@ begin
inherited;
AsignarVista;
pgPaginas.ActivePageIndex := 0;
FTiposIVAController := TTiposIVAController.Create;
end;
procedure TfEditorAlbaranProveedor.CustomEditorClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
FTiposIVA := NIL;
FTiposIVAController := Nil;
FViewAlbaran := NIL;
FAlbaran := NIL;
end;
@ -152,6 +158,13 @@ begin
pgPaginas.ActivePage := pagGeneral;
end;
procedure TfEditorAlbaranProveedor.frViewTotales1bTiposIVAClick(
Sender: TObject);
begin
inherited;
FTiposIVAController.VerTodos(FTiposIVA);
end;
procedure TfEditorAlbaranProveedor.frViewTotales1edtDescuentoPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
@ -165,7 +178,8 @@ procedure TfEditorAlbaranProveedor.frViewTotales1edtIVAPropertiesValidate(
var Error: Boolean);
begin
inherited;
FAlbaran.IVA := DisplayValue;
Albaran.Edit;
Albaran.ID_TIPO_IVA := FTiposIVA.ID;
end;
procedure TfEditorAlbaranProveedor.frViewTotales1ePortePropertiesValidate(
@ -256,6 +270,12 @@ begin
begin
FAlbaran.Proveedor := ViewAlbaran.ViewProveedorAlbaran.Proveedor;
if not (FAlbaran.DataTable.State in dsEditModes) then
FAlbaran.DataTable.Edit;
// Actualizar IVA y RE a partir del tipo de IVA del proveedor.
Albaran.IVA := FTiposIVA.IVA; //((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA;
// Si el pedido tiene detalles hay que mirar si los descuentos
// para los artículos hay que cambiarlos.
if (FAlbaran.Detalles.RecordCount > 0) then
@ -338,6 +358,10 @@ begin
frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
frViewIncidenciasCli.DADataSource.DataTable := dsDataTable.DataTable;
FTiposIVA := FTiposIVAController.BuscarTodos;
frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable;
FTiposIVA.DataTable.Active := True;
if Assigned(FViewAlbaran) then
begin
ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := NIL;
@ -350,6 +374,13 @@ begin
ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := OnProveedorChanged;
ViewAlbaran.ViewClienteFinalAlbaran.OnClienteChanged := OnClienteFinalChanged;
end;
end
else begin
ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := NIL;
ViewAlbaran.ViewProveedorAlbaran.Proveedor := NIL;
dsDataTable.DataTable := NIL;
frViewTotales1.DADataSource.DataTable := NIL;
frViewTotales1.dsTiposIVA.DataTable := NIL;
end;
end;
end;

4
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -280,7 +280,7 @@ var
begin
AAlbaranes := Nil;
AllItems := False;
FImprimirPrecios := False;
FImprimirPrecios := True;
FImprimirRefProveedor := True;
if MultiSelect and Assigned(ViewGrid) then
@ -380,7 +380,7 @@ var
begin
AAlbaranes := Nil;
AllItems := False;
FImprimirPrecios := False;
FImprimirPrecios := True;
FImprimirRefProveedor := True;

95
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
View File

@ -15,13 +15,11 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 827
ExplicitHeight = 585
DesignSize = (
940
693)
object edtFechaAlbaran: TcxDBDateEdit
Left = 119
Left = 145
Top = 82
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ALBARAN'
@ -64,12 +62,12 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
TabOrder = 13
Height = 287
Width = 331
end
object eReferencia: TcxDBTextEdit
Left = 119
Left = 145
Top = 28
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA'
@ -105,7 +103,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 11
TabOrder = 12
ReadOnly = False
ExplicitLeft = 530
ExplicitTop = 235
@ -114,8 +112,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
inherited dxLayoutControl1: TdxLayoutControl
Width = 388
Height = 249
ExplicitWidth = 422
ExplicitHeight = 314
ExplicitWidth = 388
ExplicitHeight = 249
inherited rdxDestino1: TRadioButton
Width = 402
ExplicitWidth = 402
@ -163,8 +161,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
end
end
object cbFormaPago: TcxDBLookupComboBox
Left = 119
Top = 192
Left = 145
Top = 219
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID'
@ -193,21 +191,21 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
TabOrder = 8
Width = 187
end
object bFormasPago: TButton
Left = 368
Top = 192
Top = 219
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 8
TabOrder = 9
OnClick = bFormasPagoClick
end
object eReferenciaPedidoCli: TcxTextEdit
Left = 119
Top = 109
Left = 145
Top = 136
Anchors = [akLeft, akTop, akRight]
Enabled = False
Properties.ReadOnly = False
@ -229,20 +227,20 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
TabOrder = 4
Width = 187
end
object Button1: TButton
Left = 368
Top = 109
Top = 136
Width = 132
Height = 23
Action = actVerPedido
TabOrder = 4
TabOrder = 5
end
object eRefFactura: TcxDBTextEdit
Left = 119
Top = 138
Left = 145
Top = 165
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REF_FACTURA'
DataBinding.DataSource = DADataSource
@ -267,11 +265,11 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
TabOrder = 6
Width = 325
end
object eReferenciaProveedor: TcxDBTextEdit
Left = 119
Left = 145
Top = 55
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_PROVEEDOR'
@ -296,8 +294,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 325
end
object eReferenciaFacturaProveedor: TcxDBTextEdit
Left = 119
Top = 165
Left = 145
Top = 192
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REF_FACTURA_PROV'
DataBinding.DataSource = DADataSource
@ -321,7 +319,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
TabOrder = 7
Width = 325
end
inline frViewDatosYSeleccionProveedorAlbaran1: TfrViewDatosYSeleccionProveedorAlbaran
@ -335,7 +333,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 10
TabOrder = 11
ReadOnly = False
ExplicitLeft = 530
ExplicitTop = 28
@ -351,6 +349,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 275
@ -367,6 +367,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 107
ExplicitWidth = 283
Width = 283
end
inherited edtDireccion: TcxTextEdit
Style.LookAndFeel.SkinName = ''
@ -374,6 +376,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
ExplicitHeight = 50
Height = 50
Width = 121
end
inherited Button4: TButton
@ -408,7 +412,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
end
inline frViewDatosYSeleccionClienteFinalAlbaran1: TfrViewDatosYSeleccionClienteFinalAlbaran
Left = 22
Top = 249
Top = 276
Width = 505
Height = 196
Font.Charset = DEFAULT_CHARSET
@ -417,10 +421,10 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 9
TabOrder = 10
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 249
ExplicitTop = 276
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
@ -466,6 +470,32 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
end
end
end
object cxDBDateEdit1: TcxDBDateEdit
Left = 145
Top = 109
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_SERVICIO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Width = 381
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -496,10 +526,15 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha del albar'#225'n:'
Caption = 'Fecha del albar'#225'n/aviso:'
Control = edtFechaAlbaran
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
Caption = 'Fecha servicio:'
Control = cxDBDateEdit1
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group5: TdxLayoutGroup
ShowCaption = False
Hidden = True

2
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas
View File

@ -75,6 +75,8 @@ type
frViewDatosYSeleccionClienteFinalAlbaran1: TfrViewDatosYSeleccionClienteFinalAlbaran;
dxLayoutControl1Group9: TdxLayoutGroup;
dxLayoutControl1Group10: TdxLayoutGroup;
dxLayoutControl1Item14: TdxLayoutItem;
cxDBDateEdit1: TcxDBDateEdit;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure frViewProveedorAlbaranButton1Click(Sender: TObject);

19
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
View File

@ -6,6 +6,7 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
inherited cxGrid: TcxGrid
Width = 596
Height = 351
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 596
ExplicitHeight = 351
@ -96,6 +97,10 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
Width = 51
end
object cxGridViewSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n'
DataBinding.FieldName = 'SITUACION'
end
object cxGridViewFECHA_ALBARAN: TcxGridDBColumn
Caption = 'Fecha'
DataBinding.FieldName = 'FECHA_ALBARAN'
@ -176,6 +181,12 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
inherited cxGridLevel: TcxGridLevel
Caption = 'Todos'
end
object cxGridLevelPendientes: TcxGridLevel
Caption = 'Pendientes'
end
object cxGridLevelRealizados: TcxGridLevel
Caption = 'Realizados'
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 596
@ -279,6 +290,14 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
OnUpdate = actAlmacenUpdate
end
end
inherited cxStyleRepositoryInforme: TcxStyleRepository
object cxStylePendiente: TcxStyle
AssignedValues = [svTextColor]
TextColor = clRed
end
object cxStyleRealizado: TcxStyle
end
end
inherited GridPNGImageList: TPngImageList
PngImages = <
item

36
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
View File

@ -48,6 +48,11 @@ type
cxGridViewREF_FACTURA_PROV: TcxGridDBColumn;
cxGridViewINCIDENCIAS: TcxGridDBColumn;
cxGridViewNOMBRE_CLIENTE_FINAL: TcxGridDBColumn;
cxGridViewSITUACION: TcxGridDBColumn;
cxGridLevelPendientes: TcxGridLevel;
cxGridLevelRealizados: TcxGridLevel;
cxStylePendiente: TcxStyle;
cxStyleRealizado: TcxStyle;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@ -74,6 +79,7 @@ type
private
//Filtros relativos a la vista
procedure AnadirFiltroSituaciones;
procedure AnadirFiltroFechas;
protected
@ -154,10 +160,23 @@ begin
end;
end;
procedure TfrViewAlbaranesProveedor.AnadirFiltroSituaciones;
var
FFiltro : TcxFilterCriteriaItemList;
begin
FFiltro := AddFilterGrid(fboAnd);
case cxGrid.ActiveLevel.Index of
1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_ALBARAN_PENDIENTE, SITUACION_ALBARAN_PENDIENTE);
2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_ALBARAN_REALIZADO, SITUACION_ALBARAN_REALIZADO);
end;
end;
procedure TfrViewAlbaranesProveedor.AnadirOtrosFiltros;
begin
inherited;
AnadirFiltroSituaciones;
AnadirFiltroFechas;
//Finalmente activamos el filtro si tenemos algo
@ -248,21 +267,20 @@ end;
procedure TfrViewAlbaranesProveedor.cxGridViewStylesGetContentStyle(Sender:
TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
TcxCustomGridTableItem; out AStyle: TcxStyle);
{var
var
IndiceCol: Integer;
ASituacion: string;}
ASituacion: string;
begin
inherited;
{ if Assigned(ARecord) then
if Assigned(ARecord) then
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PresupuestosSITUACION).Index;
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_AlbaranesProveedorSITUACION).Index;
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
if ASituacion = SITUACION_ACEPTADO then
AStyle := cxStyleAceptado
else if ASituacion = SITUACION_RECHAZADO then
AStyle := cxStyleRechazado;
if ASituacion = SITUACION_ALBARAN_PENDIENTE then
AStyle := cxStylePendiente
else if ASituacion = SITUACION_ALBARAN_REALIZADO then
AStyle := cxStyleRealizado;
end;
}
end;
function TfrViewAlbaranesProveedor.GetAlbaranes: IBizAlbaranProveedor;

28
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -122,6 +122,7 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl
Width = 864
Height = 614
ActivePage = pagDescuentos
ExplicitWidth = 864
ExplicitHeight = 614
inherited pagGeneral: TTabSheet
@ -462,8 +463,6 @@ inherited fEditorCliente: TfEditorCliente
inherited frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios
Width = 856
Height = 586
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 856
ExplicitHeight = 586
inherited dxLayoutControl1: TdxLayoutControl
@ -660,18 +659,6 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
end
@ -719,7 +706,6 @@ inherited fEditorCliente: TfEditorCliente
Font.Style = []
ParentFont = False
TabOrder = 1
Visible = False
ReadOnly = False
ExplicitTop = 150
ExplicitWidth = 856
@ -754,6 +740,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end
end
end

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

@ -1620,15 +1620,18 @@ object RptFacturasCliente: TRptFacturasCliente
'P.IMPORTE_TOTAL) as IMPORTE_TOTAL_ANO1, 0 as IMPORTE_TOTAL_ANO2,' +
#10' ((SUM(P.IMPORTE_TOTAL)*100)/p.IMPORTE_TOTAL_ANO) as PORCENTAJE' +
#10#10'from V_INF_FAC_DET_CLIENTE P'#10'left join CONTACTOS C on P.ID_AGE' +
'NTE = C.ID'#10'where p.ID_EMPRESA = :ID_EMPRESA'#10'and P.ANO = :ANO'#10'gro' +
'up by 1,2,3,4,5'#10#10'union'#10#10'select C2.REFERENCIA as REFERENCIA, COAL' +
'ESCE(C2.NOMBRE, '#39'Agente no asignado'#39') as NOMBRE, 0 as ANO1, P2.A' +
'NO as ANO2,'#10' 0 as IMPORTE_TOTAL_ANO, 0 as IMPORTE_TOTAL_ANO1, SU' +
'M(P2.IMPORTE_TOTAL) as IMPORTE_TOTAL_ANO2,'#10' 0 as PORCENTAJE'#10'from' +
' V_INF_FAC_DET_CLIENTE P2'#10'left join CONTACTOS C2 on P2.ID_AGENTE' +
' = C2.ID'#10'where p2.ID_EMPRESA = :ID_EMPRESA'#10'and P2.ANO = :ANO2'#10'gr' +
'oup by 1,2,3,4,5,6'#10')'#10#10'group by 1,2'#10'having (sum(ANO1) > 0)'#10'order ' +
'by 3,6 desc'#10'rows 1 to :NTOP'#10#10
'NTE = C.ID'#10'left join AGENTES_DATOS AD on P.ID_AGENTE = AD.ID_AGE' +
'NTE'#10'where p.ID_EMPRESA = :ID_EMPRESA'#10'and P.ANO = :ANO'#10'and AD.FEC' +
'HA_BAJA is null'#10'group by 1,2,3,4,5'#10#10'union'#10#10'select C2.REFERENCIA ' +
'as REFERENCIA, COALESCE(C2.NOMBRE, '#39'Agente no asignado'#39') as NOMB' +
'RE, 0 as ANO1, P2.ANO as ANO2,'#10' 0 as IMPORTE_TOTAL_ANO, 0 as IMP' +
'ORTE_TOTAL_ANO1, SUM(P2.IMPORTE_TOTAL) as IMPORTE_TOTAL_ANO2,'#10' 0' +
' as PORCENTAJE'#10'from V_INF_FAC_DET_CLIENTE P2'#10'left join CONTACTOS' +
' C2 on P2.ID_AGENTE = C2.ID'#10'left join AGENTES_DATOS AD2 on P2.ID' +
'_AGENTE = AD2.ID_AGENTE'#10'where p2.ID_EMPRESA = :ID_EMPRESA'#10'and P2' +
'.ANO = :ANO2'#10'and AD2.FECHA_BAJA is null'#10'group by 1,2,3,4,5,6'#10')'#10#10 +
'group by 1,2'#10'having (sum(ANO1) > 0)'#10'order by 3,6 desc'#10'rows 1 to ' +
':NTOP'#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -2536,13 +2539,12 @@ object RptFacturasCliente: TRptFacturasCliente
'ANO = :ANO1) and (v_inf_obj_cli_activos_fac_age.ID_EMPRESA = :ID' +
'_EMPRESA)'#10'group by 1,2,3'#10#10') SEN'#10#10'left join periodos_aux P on ((P' +
'.periodo = '#39'MENSUAL'#39') and (P.valor = MES))'#10'left join contactos C' +
' on (C.ID = SEN.ID_AGENTE)'#10'left join agentes_datos on (agentes_d' +
'atos.id_agente = SEN.ID_AGENTE)'#10#10'left join'#10'('#10'select coalesce(ID_' +
'AGENTE, -1) as ID_AGENTE, count(ID_CLIENTE) as NUM_CLIENTES_TOTA' +
'LES'#10'from clientes_datos'#10'group by 1'#10') CLIENTES_TOTALES on (CLIENT' +
'ES_TOTALES.ID_AGENTE = SEN.id_Agente)'#10#10'where agentes_datos.FECHA' +
'_BAJA is null'#10'and {where}'#10'group by 1,2,3,4,5'#10'order by 1,2,3,4,5'#10 +
#10#10#10
' on (C.ID = SEN.ID_AGENTE)'#10'left join agentes_datos AD on (AD.id_' +
'agente = SEN.ID_AGENTE)'#10#10'left join'#10'('#10'select coalesce(ID_AGENTE, ' +
'-1) as ID_AGENTE, count(ID_CLIENTE) as NUM_CLIENTES_TOTALES'#10'from' +
' clientes_datos'#10'group by 1'#10') CLIENTES_TOTALES on (CLIENTES_TOTAL' +
'ES.ID_AGENTE = SEN.id_Agente)'#10#10'where AD.FECHA_BAJA is null'#10'and {' +
'where}'#10'group by 1,2,3,4,5'#10'order by 1,2,3,4,5'#10#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -2631,7 +2633,7 @@ object RptFacturasCliente: TRptFacturasCliente
item
Name = 'AGENTE'
DataType = datString
Size = 255
Size = 269
end
item
Name = 'ANO'
@ -2647,11 +2649,11 @@ object RptFacturasCliente: TRptFacturasCliente
Size = 20
end
item
Name = 'CLIENTES_TOTALES'
DataType = datInteger
Name = 'ALTAS_CLIENTE'
DataType = datLargeInt
end
item
Name = 'ALTAS_CLIENTE'
Name = 'CLIENTES_TOTALES'
DataType = datLargeInt
end
item
@ -2771,12 +2773,12 @@ object RptFacturasCliente: TRptFacturasCliente
'_fac_age.ID_EMPRESA = :ID_EMPRESA)'#10'group by 1,2,3'#10#10') SEN'#10#10'left j' +
'oin periodos_aux P on ((P.periodo = '#39'SEMESTRAL'#39') and (P.valor = ' +
'SEMESTRE))'#10'left join contactos C on (C.ID = SEN.ID_AGENTE)'#10'left ' +
'join agentes_datos on (agentes_datos.id_agente = SEN.ID_AGENTE)'#10 +
#10'left join'#10'('#10'select coalesce(ID_AGENTE, -1) as ID_AGENTE, count(' +
'ID_CLIENTE) as NUM_CLIENTES_TOTALES'#10'from clientes_datos'#10'group by' +
' 1'#10') CLIENTES_TOTALES on (CLIENTES_TOTALES.ID_AGENTE = SEN.id_Ag' +
'ente)'#10#10'where agentes_datos.FECHA_BAJA is null'#10'and {where}'#10'group ' +
'by 1,2,3,4,5'#10'order by 1,2,3,4,5'#10#10#10#10
'join agentes_datos AD on (AD.id_agente = SEN.ID_AGENTE)'#10#10'left jo' +
'in'#10'('#10'select coalesce(ID_AGENTE, -1) as ID_AGENTE, count(ID_CLIEN' +
'TE) as NUM_CLIENTES_TOTALES'#10'from clientes_datos'#10'group by 1'#10') CLI' +
'ENTES_TOTALES on (CLIENTES_TOTALES.ID_AGENTE = SEN.id_Agente)'#10#10'w' +
'here AD.FECHA_BAJA is null'#10'and {where}'#10'group by 1,2,3,4,5'#10'order ' +
'by 1,2,3,4,5'#10#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -3005,12 +3007,12 @@ object RptFacturasCliente: TRptFacturasCliente
'tivos_fac_age.ID_EMPRESA = :ID_EMPRESA)'#10'group by 1,2,3'#10#10') SEN'#10#10'l' +
'eft join periodos_aux P on ((P.periodo = '#39'TRIMESTRAL'#39') and (P.va' +
'lor = TRIMESTRE))'#10'left join contactos C on (C.ID = SEN.ID_AGENTE' +
')'#10'left join agentes_datos on (agentes_datos.id_agente = SEN.ID_A' +
'GENTE)'#10#10'left join'#10'('#10'select coalesce(ID_AGENTE, -1) as ID_AGENTE,' +
' count(ID_CLIENTE) as NUM_CLIENTES_TOTALES'#10'from clientes_datos'#10'g' +
'roup by 1'#10') CLIENTES_TOTALES on (CLIENTES_TOTALES.ID_AGENTE = SE' +
'N.id_Agente)'#10#10'where agentes_datos.FECHA_BAJA is null'#10'and {where}' +
#10'group by 1,2,3,4,5'#10'order by 1,2,3,4,5'#10#10#10#10
')'#10'left join agentes_datos AD on (AD.id_agente = SEN.ID_AGENTE)'#10#10 +
'left join'#10'('#10'select coalesce(ID_AGENTE, -1) as ID_AGENTE, count(I' +
'D_CLIENTE) as NUM_CLIENTES_TOTALES'#10'from clientes_datos'#10'group by ' +
'1'#10') CLIENTES_TOTALES on (CLIENTES_TOTALES.ID_AGENTE = SEN.id_Age' +
'nte)'#10#10'where FECHA_BAJA is null'#10'and {where}'#10'group by 1,2,3,4,5'#10'or' +
'der by 1,2,3,4,5'#10#10#10#10
StatementType = stSQL
ColumnMappings = <
item

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

@ -125,6 +125,7 @@ type
FAno1: Variant;
FAno2: Variant;
FIntervalo: Variant;
FAgentesActivos: Boolean;
FListaIDClientes: TIntegerArray;
FListaNombresClientes : TStringList;
FListaIDAgentes: TIntegerArray;
@ -154,7 +155,7 @@ type
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
end;
implementation
@ -538,7 +539,7 @@ end;
function TRptFacturasCliente.GenerarInformeObjetivosAgentesFacturas(
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
var
AStream: TMemoryStream;
AInforme: Variant;
@ -552,6 +553,7 @@ begin
FIdEmpresa := IdEmpresa;
FAno1 := Ano1;
FIntervalo := Intervalo;
FAgentesActivos := AgentesActivos;
FFechaVenInicio := Null;
FFechaVenFin := Null;
@ -763,7 +765,21 @@ var
begin
if ATabla.Active then
ATabla.Active := False;
{
if (FAgentesActivos) then
begin
with ATabla.DynamicWhere do
begin
// (SOLO AGENTES ACTIVOS)
Condicion := NewBinaryExpression(NewField('AD', 'FECHA_BAJA'), NewNull(), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
}
// Filtrar el informe por agente
if Assigned(FListaIDAgentes) then
begin

1
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -51,6 +51,7 @@ type
procedure CalcularRE;
procedure CalcularBaseImponible;
procedure AsignarTipoIVA (IDTipoIVA : Integer);
protected
FProveedor : IBizProveedor;
FDetalles : IBizDetallesFacturaProveedor;

215
Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
View File

@ -646,26 +646,27 @@ object RptFacturasProveedor: TRptFacturasProveedor
Connection = 'IBX'
SQL =
'SELECT'#10' V_FACTURAS_PROVEEDOR.ID, V_FACTURAS_PROVEEDOR.REFEREN' +
'CIA, V_FACTURAS_PROVEEDOR.FECHA_FACTURA,'#10' V_FACTURAS_PROVEEDO' +
'R.BASE_IMPONIBLE, V_FACTURAS_PROVEEDOR.DESCUENTO, V_FACTURAS_PRO' +
'VEEDOR.IMPORTE_DESCUENTO,'#10' V_FACTURAS_PROVEEDOR.IVA, V_FACTUR' +
'AS_PROVEEDOR.IMPORTE_IVA,'#10' V_FACTURAS_PROVEEDOR.RE, V_FACTURA' +
'S_PROVEEDOR.IMPORTE_RE,'#10' V_FACTURAS_PROVEEDOR.IMPORTE_TOTAL, ' +
'V_FACTURAS_PROVEEDOR.IMPORTE_PORTE,'#10' V_FACTURAS_PROVEEDOR.OBS' +
'ERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS_PR' +
'OVEEDOR.ID_PROVEEDOR,'#10' V_FACTURAS_PROVEEDOR.NIF_CIF, V_FACTUR' +
'AS_PROVEEDOR.NOMBRE, V_FACTURAS_PROVEEDOR.CALLE,'#10' V_FACTURAS_' +
'PROVEEDOR.PROVINCIA, V_FACTURAS_PROVEEDOR.CODIGO_POSTAL, V_FACTU' +
'RAS_PROVEEDOR.POBLACION,'#10#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NI' +
'F_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALL' +
'E_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS' +
'.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIG' +
'O_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESA' +
'S.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.R' +
'EGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM V_FACTURAS_PROVEEDOR'#10 +
'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_' +
'PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_PROVEEDOR.ID_FORMA_PAGO)'#10'WH' +
'ERE V_FACTURAS_PROVEEDOR.ID = :ID'#10
'CIA, V_FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR,'#10' V_FACTURAS_P' +
'ROVEEDOR.FECHA_FACTURA,'#10' V_FACTURAS_PROVEEDOR.BASE_IMPONIBLE,' +
' V_FACTURAS_PROVEEDOR.DESCUENTO, V_FACTURAS_PROVEEDOR.IMPORTE_DE' +
'SCUENTO,'#10' V_FACTURAS_PROVEEDOR.IVA, V_FACTURAS_PROVEEDOR.IMPO' +
'RTE_IVA,'#10' V_FACTURAS_PROVEEDOR.RE, V_FACTURAS_PROVEEDOR.IMPOR' +
'TE_RE,'#10' V_FACTURAS_PROVEEDOR.IMPORTE_TOTAL, V_FACTURAS_PROVEE' +
'DOR.IMPORTE_PORTE,'#10' V_FACTURAS_PROVEEDOR.OBSERVACIONES, FORMA' +
'S_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS_PROVEEDOR.ID_PROVEE' +
'DOR,'#10' V_FACTURAS_PROVEEDOR.NIF_CIF, V_FACTURAS_PROVEEDOR.NOMB' +
'RE, V_FACTURAS_PROVEEDOR.CALLE,'#10' V_FACTURAS_PROVEEDOR.PROVINC' +
'IA, V_FACTURAS_PROVEEDOR.CODIGO_POSTAL, V_FACTURAS_PROVEEDOR.POB' +
'LACION,'#10#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EM' +
'PRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRES' +
'AS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PRO' +
'VINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,' +
#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRES' +
'AS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL' +
', EMPRESAS.LOGOTIPO'#10#10'FROM V_FACTURAS_PROVEEDOR'#10'LEFT JOIN EMPRESA' +
'S ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_P' +
'AGO.ID = V_FACTURAS_PROVEEDOR.ID_FORMA_PAGO)'#10'WHERE V_FACTURAS_PR' +
'OVEEDOR.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -807,6 +808,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
item
DatasetField = 'LOGOTIPO'
TableField = 'LOGOTIPO'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end>
end>
Name = 'InformeFacturasProveedor'
@ -823,6 +828,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
Size = 255
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
@ -1846,62 +1856,138 @@ object RptFacturasProveedor: TRptFacturasProveedor
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto'
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 39836.719287280100000000
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 41305.486179699070000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
ReportOptions.VersionRelease = '1'
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
'begin'
' if Engine.FinalPass then'
' begin'
' if (<Page#> = <TotalPages#>) then'
' begin '
' mContinua.Visible := False;'
' end '
' else'
' begin '
' mContinua.Visible := True;'
' end '
' end; '
' DatosCliente.Lines.Clear;'
' DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
''
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39')'
' or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' DatosCliente.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + '#39' ' +
#39' + <frxDBCabecera."POBLACION">);'
'end;'
''
'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String; ' +
' '
'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'
'begin'
' BandaDetalles.StartNewPage := False;'
' BandaDetalles.Visible := True;'
' MemPrecio.Style := '#39'Concepto normal'#39';'
' MemCantidad.Style := '#39'Concepto normal'#39';'
' MemImpTotal.Style := '#39'Concepto normal'#39';'
' RichConcepto.Visible := True;'
''
' case <frxDBDetalles."TIPO_DETALLE"> of'
' '#39'Salto'#39': begin'
' BandaDetalles.StartNewPage := True;'
' RichConcepto.Visible := False;'
' end;'
' '#39'Titulo'#39': begin'
' MemPrecio.Style := '#39'Concepto titulo'#39';'
' MemCantidad.Style := '#39'Concepto titulo'#39';'
' MemImpTotal.Style := '#39'Concepto titulo'#39';'
' end;'
' '#39'Concepto'#39': begin'
' MemPrecio.Style := '#39'Concepto normal'#39';'
' MemCantidad.Style := '#39'Concepto normal'#39';'
' MemImpTotal.Style := '#39'Concepto normal'#39';'
' end;'
' '#39'Subtotal'#39': begin'
' MemPrecio.Style := '#39'Concepto subtotal'#39';'
' MemCantidad.Style := '#39'Concepto subtotal'#39';'
' MemImpTotal.Style := '#39'Concepto subtotal'#39';'
' end;'
' '#39'Descuento'#39': begin'
' BandaDetalles.Visible := False;'
' RichConcepto.Color := clNone;'
' end;'
' end;'
''
' RichConcepto.Color := MemImpTotal.Color;'
' RichConcepto.Frame := MemImpTotal.Frame;'
'end;'
''
'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' ACadena := <frxDBInformeListadoFacturasPendResumen."DATOS_BAN' +
'CARIOS">; '
' if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then'
' begin'
' Delete(ACadena, 1, 14);'
' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1' +
'.Height - 1;'
'end;'
''
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena: String;'
'begin'
' DatosEmpresa.Lines.Clear;'
' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);'
' DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">);'
''
' Cadena := '#39#39';'
' if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then'
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1">;'
' if (<frxDBCabecera."FAX"> <> '#39#39') then'
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX">;'
' DatosEmpresa.Lines.Add(Cadena);'
''
' Cadena := '#39#39';'
' if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '#39#39') then'
' Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">;'
' if (<frxDBCabecera."POBLACION_EMPRESA"> <> '#39#39') then'
' Memo11.Lines.Text := '#39' '#39' + ACadena; ' +
' '
' Cadena := Cadena + '#39' '#39' + <frxDBCabecera."POBLACION_EMPRES' +
'A">;'
' if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39' - '#39' + <frxDBCabecera."PROVINCIA_EMPR' +
'ESA">;'
' DatosEmpresa.Lines.Add(Cadena);'
'end;'
''
'procedure Memo15OnBeforePrint(Sender: TfrxComponent);'
'begin'
' Memo15.Lines.Clear;'
' if (StrToFloat(<frxDBCabecera."BASE_IMPONIBLE">) < 0) then'
' Memo15.Lines.Add('#39'ABONO'#39')'
' else'
' Memo15.Lines.Add('#39'FACTURA'#39')'
'end;'
''
'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (StrToFloat(<frxDBCabecera."RE">) = 0) then'
' begin'
' Memo20.Lines.Clear;'
' Memo28.Lines.Clear;'
' Memo21.Lines.Clear;'
' Memo29.Lines.Clear;'
' end;'
'end;'
''
'procedure Memo10OnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String; ' +
' '
'procedure Band2OnBeforePrint(Sender: TfrxComponent);'
'begin'
' ACadena := <frxDBInformeListadoFacturasPendientes."DATOS_BANC' +
'ARIOS">; '
' if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then'
' begin'
' Delete(ACadena, 1, 14);'
' Memo10.Lines.Text := '#39' '#39' + ACadena; ' +
' '
' end;'
' if not Engine.FinalPass then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
''
' if Engine.FinalPass then'
' Set('#39'Pagina'#39', (<Pagina> + 1));'
'end;'
''
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
'begin'
' Set('#39'Pagina'#39', 0);'
' Set('#39'TotalPaginas'#39', 0);'
'end;'
''
'begin'
@ -2193,6 +2279,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
Size = 255
DictionaryEntry = 'FacturasCliente_REFERENCIA'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime

2
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosFacturasReport.pas
View File

@ -14,6 +14,7 @@ type
function GetAno2: Variant;
function GetNTop: Variant;
function GetAgentesActivos: Boolean;
function GetListaIDAgentes: TIntegerArray;
property Intervalo: Variant read GetIntervalo;
@ -21,6 +22,7 @@ type
property Ano2: Variant read GetAno2;
property NTop: Variant read GetNTop;
property AgentesActivos: Boolean read GetAgentesActivos;
property ListaIDAgentes: TIntegerArray read GetListaIDAgentes;
end;

2
Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
View File

@ -749,7 +749,7 @@ begin
AEditor.Title := 'Informe comparativo de objetivos de agentes de facturas';
AStream := FDataModule.GenerarInformeObjetivosAgentesFacturas(AppFactuGES.EmpresaActiva.ID,
AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.ListaIDAgentes, AEditor.NTop);
AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.AgentesActivos, AEditor.ListaIDAgentes, AEditor.NTop);
AEditor.LoadFromStream(AStream);
AEditor.Preview;

6
Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas
View File

@ -38,7 +38,7 @@ type
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
function DarListaAnosFacturasCli: TStringList;
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary;
//MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@ -326,9 +326,9 @@ end;
function TDataModuleGestorInformes.GenerarInformeObjetivosAgentesFacturas(
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
const ListaIDAgentes: TIntegerArray; const NTop: Variant): Binary;
const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const NTop: Variant): Binary;
begin
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdAgentes, NTop);
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIdAgentes, NTop);
end;
procedure TDataModuleGestorInformes.getInforme;

2
Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas
View File

@ -27,7 +27,7 @@ type
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
function DarListaAnosFacturasCli: TStringList;
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary;
//MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;

6
Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas
View File

@ -55,7 +55,7 @@ type
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
function DarListaAnosFacturasCli: StringArray;
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray;
const TopN: Integer): Binary;
//MODULO RECIBOS CLIENTE
@ -392,13 +392,13 @@ end;
function TsrvGestorInformes.GenerarInformeObjetivosAgentesFacturas(
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
const AgentesActivos: Boolean; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
var
AReportGenerator : TRptFacturasCliente;
begin
AReportGenerator := TRptFacturasCliente.Create(nil);
try
Result := AReportGenerator.GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDAgentes, TopN);
Result := AReportGenerator.GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIDAgentes, TopN);
finally
FreeAndNIL(AReportGenerator);
end;

8
Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.pas
View File

@ -32,6 +32,7 @@ type
function GetAno2: Variant;
function GetSerie: variant;
function GetListaIDAgentes: TIntegerArray;
function GetAgentesActivos: Boolean;
function GetNTop: Variant;
procedure RefrescarInforme;
@ -44,6 +45,7 @@ type
property Ano1: Variant read GetAno1;
property Ano2: Variant read GetAno2;
property ListaIDAgentes: TIntegerArray read GetListaIDAgentes;
property AgentesActivos: Boolean read GetAgentesActivos;
property NTop: Variant read GetNTop;
property Serie: Variant read GetSerie;
@ -89,6 +91,11 @@ begin
Result := frViewIntervaloComparativo1.cbIntervalo.EditValue;
end;
function TfEditorInformeObjetivosFacturasReport.GetAgentesActivos: Boolean;
begin
Result := frViewFiltroAgentes1.rbTodosAgentes.Checked;
end;
function TfEditorInformeObjetivosFacturasReport.GetAno1: Variant;
begin
Result := frViewIntervaloComparativo1.cbAno1.EditValue;
@ -130,6 +137,7 @@ begin
Intervalo,
Ano1,
Ano2,
AgentesActivos,
ListaIDAgentes,
NTop);

28
Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.dfm
View File

@ -28,7 +28,7 @@ inherited frViewFiltroAgentes: TfrViewFiltroAgentes
object bElegirAgente: TBitBtn
AlignWithMargins = True
Left = 61
Top = 123
Top = 121
Width = 382
Height = 23
Margins.Left = 0
@ -77,8 +77,8 @@ inherited frViewFiltroAgentes: TfrViewFiltroAgentes
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end
object cbxDesglosado: TCheckBox
Left = 28
Top = 52
Left = 124
Top = 50
Width = 146
Height = 17
Caption = 'Desglosar por agente'
@ -86,7 +86,7 @@ inherited frViewFiltroAgentes: TfrViewFiltroAgentes
end
object edtAgente: TcxTextEdit
Left = 28
Top = 99
Top = 97
Anchors = [akLeft, akTop, akRight]
AutoSize = False
Enabled = False
@ -110,22 +110,32 @@ inherited frViewFiltroAgentes: TfrViewFiltroAgentes
end
object rbTodosAgentes: TRadioButton
Left = 6
Top = 29
Top = 50
Width = 147
Height = 17
Caption = 'Incluir a todos los agentes'
Checked = True
Caption = 'Todos los agentes'
TabOrder = 4
TabStop = True
Visible = False
OnClick = rbTodosAgentesClick
end
object rbUnAgente: TRadioButton
Left = 6
Top = 76
Top = 74
Width = 175
Height = 17
Caption = 'S'#243'lo listar el agente siguiente:'
TabOrder = 5
OnClick = rbUnAgenteClick
end
object rbAgentesActivos: TRadioButton
Left = 6
Top = 27
Width = 122
Height = 17
Caption = 'Solo agentes activos'
Checked = True
TabOrder = 6
TabStop = True
OnClick = rbTodosAgentesClick
end
end

1
Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.pas
View File

@ -20,6 +20,7 @@ type
cbxDesglosado: TCheckBox;
bElegirAgente: TBitBtn;
edtAgente: TcxTextEdit;
rbAgentesActivos: TRadioButton;
procedure rbTodosAgentesClick(Sender: TObject);
procedure rbUnAgenteClick(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);

2
Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.res */
/* c:\temp\dtf265.tmp */
/* c:\temp\dtf31B.tmp */

2
Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.res */
/* c:\temp\dtf263.tmp */
/* c:\temp\dtf319.tmp */

2
Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
View File

@ -16,4 +16,4 @@ END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.res */
/* c:\temp\dtf269.tmp */
/* c:\temp\dtf31F.tmp */

2
Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.res */
/* c:\temp\dtf25B.tmp */
/* c:\temp\dtf311.tmp */

2
Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.res */
/* c:\temp\dtf259.tmp */
/* c:\temp\dtf30F.tmp */

2
Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
View File

@ -19,4 +19,4 @@ END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uViewInfVentasAlbArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uEditorInfVentasAlbArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.res */
/* c:\temp\dtf25F.tmp */
/* c:\temp\dtf315.tmp */

2
Source/Modulos/Informes base/Controller/InformesBase_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informes base\Controller\InformesBase_controller.res */
/* c:\temp\dtf24F.tmp */
/* c:\temp\dtf305.tmp */

2
Source/Modulos/Informes base/Data/Informes_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informes base\Data\uDataModuleInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Data\Informes_data.res */
/* c:\temp\dtf24B.tmp */
/* c:\temp\dtf301.tmp */

2
Source/Modulos/Informes base/Model/Informes_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informes base\Model\Informes_model.res */
/* c:\temp\dtf249.tmp */
/* c:\temp\dtf2FF.tmp */

2
Source/Modulos/Informes base/Views/Informes_view.drc
View File

@ -15,4 +15,4 @@ END
/* C:\Codigo\Source\Modulos\Informes base\Views\uViewInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Views\uEditorInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Views\Informes_view.res */
/* c:\temp\dtf253.tmp */
/* c:\temp\dtf309.tmp */

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

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
/* c:\temp\dtf289.tmp */
/* c:\temp\dtf33F.tmp */

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

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */
/* c:\temp\dtf287.tmp */
/* c:\temp\dtf33D.tmp */

2
Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */
/* c:\temp\dtf285.tmp */
/* c:\temp\dtf33B.tmp */

2
Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */
/* c:\temp\dtf2F1.tmp */
/* c:\temp\dtf3A7.tmp */

2
Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
View File

@ -26,4 +26,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */
/* c:\temp\dtf2EF.tmp */
/* c:\temp\dtf3A5.tmp */

2
Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */
/* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */
/* c:\temp\dtf29F.tmp */
/* c:\temp\dtf355.tmp */

2
Source/Servicios/FactuGES.RODL
View File

@ -1084,6 +1084,8 @@
</Parameter>
<Parameter Name="Ano2" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="AgentesActivos" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="ListaIDAgentes" DataType="TIntegerArray" Flag="In" >
</Parameter>
<Parameter Name="TopN" DataType="Integer" Flag="In" >

13
Source/Servicios/FactuGES_Intf.pas
View File

@ -838,8 +838,8 @@ type
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray;
const TopN: Integer): Binary;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray;
const TopN: Integer): Binary;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean;
const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
end;
{ CosrvGestorInformes }
@ -889,8 +889,8 @@ type
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
function GenerarInformeObjetivosAgentesAlbaranes(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray;
const TopN: Integer): Binary;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray;
const TopN: Integer): Binary;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean;
const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
end;
{ IsrvComisiones }
@ -3183,8 +3183,8 @@ begin
end
end;
function TsrvGestorInformes_Proxy.GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray;
const TopN: Integer): Binary;
function TsrvGestorInformes_Proxy.GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean;
const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
begin
try
result := nil;
@ -3193,6 +3193,7 @@ begin
__Message.Write('Intervalo', TypeInfo(Variant), Intervalo, []);
__Message.Write('Ano1', TypeInfo(Variant), Ano1, []);
__Message.Write('Ano2', TypeInfo(Variant), Ano2, []);
__Message.Write('AgentesActivos', TypeInfo(Boolean), AgentesActivos, []);
__Message.Write('ListaIDAgentes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDAgentes, []);
__Message.Write('TopN', TypeInfo(Integer), TopN, []);
__Message.Finalize;

8
Source/Servicios/FactuGES_Invk.pas
View File

@ -2879,13 +2879,14 @@ begin
end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeObjetivosAgentesFacturas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray;
const TopN: Integer): Binary; }
{ function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const AgentesActivos: Boolean;
const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary; }
var
IdEmpresa: Integer;
Intervalo: Variant;
Ano1: Variant;
Ano2: Variant;
AgentesActivos: Boolean;
ListaIDAgentes: FactuGES_Intf.TIntegerArray;
TopN: Integer;
lResult: Binary;
@ -2898,10 +2899,11 @@ begin
__Message.Read('Intervalo', TypeInfo(Variant), Intervalo, []);
__Message.Read('Ano1', TypeInfo(Variant), Ano1, []);
__Message.Read('Ano2', TypeInfo(Variant), Ano2, []);
__Message.Read('AgentesActivos', TypeInfo(Boolean), AgentesActivos, []);
__Message.Read('ListaIDAgentes', TypeInfo(FactuGES_Intf.TIntegerArray), ListaIDAgentes, []);
__Message.Read('TopN', TypeInfo(Integer), TopN, []);
lResult := (__Instance as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDAgentes, TopN);
lResult := (__Instance as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, AgentesActivos, ListaIDAgentes, TopN);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeObjetivosAgentesFacturasResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFile.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -164,12 +164,12 @@ uses
srvInfMargenArticulo_Impl in '..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas' {srvInfMargenArticulo: TDARemoteService},
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schInfVentasArticuloClient_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas',
schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas';
schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">2</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.2.6.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">4.2.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 15 de octubre de 2012 18:34</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">8</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">4.2.8.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">4.2.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 31 de enero de 2013 18:27</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 4,2,6,0
PRODUCTVERSION 4,2,6,0
FILEVERSION 4,2,8,0
PRODUCTVERSION 4,2,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "4.2.6.0\0"
VALUE "ProductVersion", "4.2.6.0\0"
VALUE "CompileDate", "miércoles, 09 de enero de 2013 13:17\0"
VALUE "FileVersion", "4.2.8.0\0"
VALUE "ProductVersion", "4.2.8.0\0"
VALUE "CompileDate", "miércoles, 13 de febrero de 2013 12:02\0"
END
END
BLOCK "VarFileInfo"