diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index 608a922..f47edf3 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 68e6e73..7969d64 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -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,
diff --git a/Resources/Keiblair-Logo.png b/Resources/Keiblair-Logo.png
deleted file mode 100644
index 61ac09d..0000000
Binary files a/Resources/Keiblair-Logo.png and /dev/null differ
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 1097d87..ccb371c 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -45,6 +45,10 @@
Package
FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
Microsoft Office 2000 Sample Automation Server Wrapper Components
Microsoft Office XP Sample Automation Server Wrapper Components
Base.dpk
@@ -54,58 +58,6 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
TDataModule
@@ -115,6 +67,58 @@
TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 9035a13..0f9ef67 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4260FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.2.6.0FactuGESFactuGES4.2.6.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4280FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.2.8.0FactuGESFactuGES4.2.8.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 1f40a1e..eb2c352 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -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"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 5f65f70..60aea02 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Informes/1/InfFacturaProveedor.fr3 b/Source/Informes/1/InfFacturaProveedor.fr3
index 30598d7..ab520ce 100644
--- a/Source/Informes/1/InfFacturaProveedor.fr3
+++ b/Source/Informes/1/InfFacturaProveedor.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,18 +7,18 @@
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
+
+
+
@@ -27,6 +27,8 @@
+
+
diff --git a/Source/Informes/2/InfFacturaProveedor.fr3 b/Source/Informes/2/InfFacturaProveedor.fr3
index 9b61af9..41c1a7c 100644
--- a/Source/Informes/2/InfFacturaProveedor.fr3
+++ b/Source/Informes/2/InfFacturaProveedor.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,18 +7,18 @@
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
+
+
+
@@ -27,6 +27,8 @@
+
+
diff --git a/Source/Informes/4/InfAlbaranProveedor.fr3 b/Source/Informes/4/InfAlbaranProveedor.fr3
index 3a075ba..5e8b58e 100644
--- a/Source/Informes/4/InfAlbaranProveedor.fr3
+++ b/Source/Informes/4/InfAlbaranProveedor.fr3
@@ -1,47 +1,71 @@
-
+
-
-
+
+
-
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
+
+
-
-
-
-
-
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
diff --git a/Source/Informes/5/InfFacturaProveedor.fr3 b/Source/Informes/5/InfFacturaProveedor.fr3
index b7498cc..cdad5d4 100644
--- a/Source/Informes/5/InfFacturaProveedor.fr3
+++ b/Source/Informes/5/InfFacturaProveedor.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,18 +7,18 @@
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
+
+
+
@@ -27,6 +27,8 @@
+
+
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
index 1440f41..b754321 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
@@ -258,8 +258,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 638
- ExplicitWidth = 215
- Width = 215
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
index daeb488..f7deaff 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
@@ -356,11 +356,6 @@ begin
AStyle := cxStyleBLOQUEADOS;
end;
end;
-
-
-
-
-
end;
function TfrViewAlbaranesCliente.GetAlbaranes: IBizAlbaranCliente;
diff --git a/Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.groupproj b/Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.groupproj
index 203cc0c..f87851e 100644
--- a/Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.groupproj
+++ b/Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.groupproj
@@ -12,11 +12,9 @@
-
-
@@ -193,32 +191,14 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
index b19f7a3..c210ea1 100644
--- a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
@@ -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]
diff --git a/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dpk b/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dpk
index 3d2dbfd..0921ce7 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dpk
+++ b/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dpk
@@ -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',
diff --git a/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dproj b/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dproj
index 0c10b63..c2bcef6 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dproj
+++ b/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dproj
@@ -42,6 +42,10 @@
Package
FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
RemObjects Pascal Script - RemObjects SDK 3.0 Integration
EurekaLog 5.1.9
AlbaranesProveedor_model.dpk
@@ -51,11 +55,13 @@
MainSource
-
-
+
+
+
+
+
-
diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
index 2acf7a2..b51a4ef 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
@@ -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);
diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
index 87078a7..b750960 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
@@ -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);
diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
index cb29471..e82ae1e 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
@@ -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
diff --git a/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm b/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm
index cca8820..7ba79bc 100644
--- a/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm
@@ -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 ( <> '#39#39') then'
' Cadena := '#39'TLF: '#39' + ;'
@@ -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();'
' Memo15.Lines.Clear;'
' Memo15.Lines.Add();'
+ '} '
'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() < 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() < 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
diff --git a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
index 5bdd218..26c2b7b 100644
--- a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
@@ -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>
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
index 3abf22d..33f9f78 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
@@ -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
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
index bf94984..716fe33 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
@@ -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;
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
index 07223d6..481060f 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
@@ -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;
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
index b4744c5..a23e9ec 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
@@ -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
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas
index df361a4..6e0988d 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas
@@ -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);
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
index 6b17aa8..fdaa610 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
@@ -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
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
index 10512c3..6abafde 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
@@ -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;
diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
index c259a79..19b0744 100644
--- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
@@ -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
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
index 2df2809..b1af31b 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
@@ -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
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
index 07b43b1..37aae77 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
@@ -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
diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
index 0a2546f..cce8d4d 100644
--- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
@@ -51,6 +51,7 @@ type
procedure CalcularRE;
procedure CalcularBaseImponible;
procedure AsignarTipoIVA (IDTipoIVA : Integer);
+
protected
FProveedor : IBizProveedor;
FDetalles : IBizDetallesFacturaProveedor;
diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
index 8c44217..151afe8 100644
--- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
+++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
@@ -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 ( = ) then'
- ' begin '
- ' mContinua.Visible := False;'
- ' end '
- ' else'
- ' begin '
- ' mContinua.Visible := True;'
- ' end '
- ' end; '
+ ' DatosCliente.Lines.Clear;'
+ ' DatosCliente.Lines.Add();'
+ ''
+ ' if ( <> '#39#39')'
+ ' or ( <> '#39#39') then'
+
+ ' DatosCliente.Lines.Add( + '#39' ' +
+ #39' + );'
'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 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 := ; '
- ' 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();'
+ ' DatosEmpresa.Lines.Add();'
+ ''
+ ' Cadena := '#39#39';'
+ ' if ( <> '#39#39') then'
+ ' Cadena := '#39'TLF: '#39' + ;'
+ ' if ( <> '#39#39') then'
+ ' Cadena := Cadena + '#39' FAX: '#39' + ;'
+ ' DatosEmpresa.Lines.Add(Cadena);'
+ ''
+ ' Cadena := '#39#39';'
+ ' if ( <> '#39#39') then'
+ ' Cadena := ;'
+ ' if ( <> '#39#39') then'
- ' Memo11.Lines.Text := '#39' '#39' + ACadena; ' +
- ' '
+ ' Cadena := Cadena + '#39' '#39' + ;'
+ ' if ( <> '#39#39') then'
+
+ ' Cadena := Cadena + '#39' - '#39' + ;'
+ ' DatosEmpresa.Lines.Add(Cadena);'
+ 'end;'
+ ''
+ 'procedure Memo15OnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
+ ' Memo15.Lines.Clear;'
+ ' if (StrToFloat() < 0) then'
+ ' Memo15.Lines.Add('#39'ABONO'#39')'
+ ' else'
+ ' Memo15.Lines.Add('#39'FACTURA'#39')'
+ 'end;'
+ ''
+ 'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
+ ' if (StrToFloat() = 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 := ; '
- ' 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', ( + 1));'
+ ''
+ ' if Engine.FinalPass then'
+ ' Set('#39'Pagina'#39', ( + 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
diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosFacturasReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosFacturasReport.pas
index ac6a5b6..1b58b4e 100644
--- a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosFacturasReport.pas
+++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeObjetivosFacturasReport.pas
@@ -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;
diff --git a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
index 582ca07..f9a5ac7 100644
--- a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
+++ b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
@@ -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;
diff --git a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas
index f4fd9a3..463aaa0 100644
--- a/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas
+++ b/Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas
@@ -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;
diff --git a/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas b/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas
index 4bd1a21..c03fe87 100644
--- a/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas
+++ b/Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas
@@ -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;
diff --git a/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas b/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas
index dd65fce..0af48bc 100644
--- a/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas
+++ b/Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas
@@ -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;
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.pas
index 9caf843..86ff6bc 100644
--- a/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.pas
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.pas
@@ -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);
diff --git a/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.dfm b/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.dfm
index 369e25c..c35f098 100644
--- a/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.dfm
+++ b/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.dfm
@@ -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
diff --git a/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.pas b/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.pas
index 87dd309..4e8efa0 100644
--- a/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.pas
+++ b/Source/Modulos/Gestor de informes/Views/uViewFiltroAgentes.pas
@@ -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);
diff --git a/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc
index aad7018..d3be177 100644
--- a/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc
+++ b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc
@@ -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 */
diff --git a/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc
index c205e59..b56710c 100644
--- a/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc
+++ b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc
@@ -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 */
diff --git a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
index 06ff1dd..8379a2c 100644
--- a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
+++ b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
@@ -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 */
diff --git a/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc b/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
index 48e1dc5..0c6ff9b 100644
--- a/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
+++ b/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
@@ -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 */
diff --git a/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc b/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
index ef0542b..16b693c 100644
--- a/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
+++ b/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
@@ -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 */
diff --git a/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc b/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
index 562fea5..e2611a3 100644
--- a/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
+++ b/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
@@ -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 */
diff --git a/Source/Modulos/Informes base/Controller/InformesBase_controller.drc b/Source/Modulos/Informes base/Controller/InformesBase_controller.drc
index cfbd5e9..af8ffd8 100644
--- a/Source/Modulos/Informes base/Controller/InformesBase_controller.drc
+++ b/Source/Modulos/Informes base/Controller/InformesBase_controller.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informes base\Controller\InformesBase_controller.res */
-/* c:\temp\dtf24F.tmp */
+/* c:\temp\dtf305.tmp */
diff --git a/Source/Modulos/Informes base/Data/Informes_data.drc b/Source/Modulos/Informes base/Data/Informes_data.drc
index 3344a92..24e211d 100644
--- a/Source/Modulos/Informes base/Data/Informes_data.drc
+++ b/Source/Modulos/Informes base/Data/Informes_data.drc
@@ -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 */
diff --git a/Source/Modulos/Informes base/Model/Informes_model.drc b/Source/Modulos/Informes base/Model/Informes_model.drc
index 72c6e98..abb4a6b 100644
--- a/Source/Modulos/Informes base/Model/Informes_model.drc
+++ b/Source/Modulos/Informes base/Model/Informes_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informes base\Model\Informes_model.res */
-/* c:\temp\dtf249.tmp */
+/* c:\temp\dtf2FF.tmp */
diff --git a/Source/Modulos/Informes base/Views/Informes_view.drc b/Source/Modulos/Informes base/Views/Informes_view.drc
index 870ce19..3e63543 100644
--- a/Source/Modulos/Informes base/Views/Informes_view.drc
+++ b/Source/Modulos/Informes base/Views/Informes_view.drc
@@ -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 */
diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
index edc4a0e..dd62d55 100644
--- a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
+++ b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
@@ -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 */
diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
index bf5882a..6e703f3 100644
--- a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
+++ b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
@@ -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 */
diff --git a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
index 80cf956..3ac57d7 100644
--- a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
+++ b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
@@ -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 */
diff --git a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
index 9dd7a77..d81e511 100644
--- a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
+++ b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
@@ -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 */
diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
index 38420f0..73896a1 100644
--- a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
+++ b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
@@ -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 */
diff --git a/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc b/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
index 764c5c0..cf2dc4b 100644
--- a/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
+++ b/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
@@ -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 */
diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL
index c4ce583..63019bf 100644
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@@ -1084,6 +1084,8 @@
+
+
diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas
index 39357bb..da4c752 100644
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@@ -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;
diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas
index 6a68e6e..01d7b7c 100644
--- a/Source/Servicios/FactuGES_Invk.pas
+++ b/Source/Servicios/FactuGES_Invk.pas
@@ -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, []);
diff --git a/Source/Servicios/RODLFile.res b/Source/Servicios/RODLFile.res
index fb92f73..89d70ec 100644
Binary files a/Source/Servicios/RODLFile.res and b/Source/Servicios/RODLFile.res differ
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 9d31530..196e7ab 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 639ef31..f4d1305 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -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}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 8b42e46..27d3c5a 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,7 +35,7 @@
Delphi.Personality
- FalseTrueFalse/standaloneTrueFalse4260FalseFalseFalseFalseFalse308212524.2.6.04.2.6.0lunes, 15 de octubre de 2012 18:34
+ FalseTrueFalse/standaloneTrueFalse4280FalseFalseFalseFalseFalse308212524.2.8.04.2.8.0jueves, 31 de enero de 2013 18:27
ExpressPrinting System by Developer Express Inc.
FactuGES_Server.dprFalse
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 5b88a8b..02e2b31 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -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"