diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index a82074e..41ebf61 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Resources/Iconos/ArtÃculos/16x16/Thumbs.db b/Resources/Iconos/ArtÃculos/16x16/Thumbs.db
index c1314bf..621829d 100644
Binary files a/Resources/Iconos/ArtÃculos/16x16/Thumbs.db and b/Resources/Iconos/ArtÃculos/16x16/Thumbs.db differ
diff --git a/Resources/Iconos/Pedidos de cliente/16x16/Budget.png b/Resources/Iconos/Pedidos de cliente/16x16/Budget.png
index 8e1a402..34a2d69 100644
Binary files a/Resources/Iconos/Pedidos de cliente/16x16/Budget.png and b/Resources/Iconos/Pedidos de cliente/16x16/Budget.png differ
diff --git a/Source/ApplicationBase/ProvinciasPoblaciones/Controller/uProvinciasPoblacionesController.pas b/Source/ApplicationBase/ProvinciasPoblaciones/Controller/uProvinciasPoblacionesController.pas
index 7a29f39..a22b2b8 100644
--- a/Source/ApplicationBase/ProvinciasPoblaciones/Controller/uProvinciasPoblacionesController.pas
+++ b/Source/ApplicationBase/ProvinciasPoblaciones/Controller/uProvinciasPoblacionesController.pas
@@ -10,6 +10,7 @@ uses
type
IProvinciasPoblacionesController = interface(IControllerBase)
['{777EDE6C-DAB6-4D96-BA57-AE3DAF8A3F78}']
+ function DarListaPaises : TStringList;
function DarListaProvincias : TStringList;
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
end;
@@ -18,6 +19,7 @@ type
protected
FDataModule : IDataModuleProvinciasPoblaciones;
public
+ function DarListaPaises : TStringList;
function DarListaProvincias : TStringList;
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
destructor Destroy; override;
@@ -37,6 +39,16 @@ begin
FDataModule := TDataModuleProvinciasPoblaciones.Create(NIL);
end;
+function TProvinciasPoblacionesController.DarListaPaises: TStringList;
+begin
+ ShowHourglassCursor;
+ try
+ Result := FDataModule.DarListaPaises;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
function TProvinciasPoblacionesController.DarListaPoblaciones(
const AID_Provincia: Integer): TStringList;
begin
diff --git a/Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.dfm b/Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.dfm
index d02b807..cad0dc3 100644
--- a/Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.dfm
+++ b/Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.dfm
@@ -1,7 +1,5 @@
-object DataModuleProvinciasPoblaciones: TDataModuleProvinciasPoblaciones
+inherited DataModuleProvinciasPoblaciones: TDataModuleProvinciasPoblaciones
OldCreateOrder = False
- Height = 150
- Width = 215
object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel
diff --git a/Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.pas b/Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.pas
index 5467fc7..5c54f3e 100644
--- a/Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.pas
+++ b/Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.pas
@@ -8,6 +8,7 @@ uses
type
IDataModuleProvinciasPoblaciones = interface
['{E73DB3C4-BC57-44E8-A64B-F86AE2DCB7D6}']
+ function DarListaPaises : TStringList;
function DarListaProvincias : TStringList;
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
end;
@@ -15,6 +16,7 @@ type
TDataModuleProvinciasPoblaciones = class(TDataModuleBase, IDataModuleProvinciasPoblaciones)
RORemoteService: TRORemoteService;
public
+ function DarListaPaises : TStringList;
function DarListaProvincias : TStringList;
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
end;
@@ -28,6 +30,15 @@ uses
{ TDataModuleProvinciasPoblaciones }
+function TDataModuleProvinciasPoblaciones.DarListaPaises: TStringList;
+var
+ ABinary : Binary;
+begin
+ ABinary := (RORemoteService as IsrvProvinciasPoblaciones).DarListaPaises;
+ Result := TStringList.Create;
+ Result.LoadFromStream(ABinary);
+end;
+
function TDataModuleProvinciasPoblaciones.DarListaPoblaciones(
const AID_Provincia: Integer): TStringList;
var
diff --git a/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.dfm b/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.dfm
index 6565304..84bd0fd 100644
--- a/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.dfm
+++ b/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.dfm
@@ -40,6 +40,74 @@ object srvProvinciasPoblaciones: TsrvProvinciasPoblaciones
end>
ReadOnly = True
end
+ item
+ Params = <>
+ Statements = <
+ item
+ Connection = 'IBX'
+ ConnectionType = 'Interbase'
+ Default = True
+ Name = 'IBX'
+ SQL =
+ 'SELECT'#10' ID, ISO_NUM, ISO_DES1, ISO_DES2, DESCRIPCION, ACTIVO'#10 +
+ ' FROM'#10' PAISES'#10' WHERE (ACTIVO = 1)'#10
+ StatementType = stSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
+ item
+ DatasetField = 'ISO_NUM'
+ TableField = 'ISO_NUM'
+ end
+ item
+ DatasetField = 'ISO_DES1'
+ TableField = 'ISO_DES1'
+ end
+ item
+ DatasetField = 'ISO_DES2'
+ TableField = 'ISO_DES2'
+ end
+ item
+ DatasetField = 'DESCRIPCION'
+ TableField = 'DESCRIPCION'
+ end
+ item
+ DatasetField = 'ACTIVO'
+ TableField = 'ACTIVO'
+ end>
+ end>
+ Name = 'Paises'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ end
+ item
+ Name = 'ISO_NUM'
+ DataType = datInteger
+ end
+ item
+ Name = 'ISO_DES1'
+ DataType = datString
+ Size = 2
+ end
+ item
+ Name = 'ISO_DES2'
+ DataType = datString
+ Size = 3
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'ACTIVO'
+ DataType = datSmallInt
+ end>
+ end
item
IsPublic = False
Params = <>
diff --git a/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.pas b/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.pas
index a71d13d..c1e142b 100644
--- a/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.pas
+++ b/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.pas
@@ -26,6 +26,7 @@ type
private
protected
{ IsrvProvinciasPoblaciones methods }
+ function DarListaPaises: Binary;
function DarListaProvincias: Binary;
function DarListaPoblaciones(const ID_Provincia: Integer): Binary;
end;
@@ -80,6 +81,42 @@ begin
end;
end;
+function TsrvProvinciasPoblaciones.DarListaPaises: Binary;
+var
+ ASchema : TDASchema;
+ AConn : IDAConnection;
+ dsData: IDADataset;
+ ALista : TStringList;
+begin
+ Result := Binary.Create;
+
+ ASchema := schProvinciasPoblaciones;
+ AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
+
+ try
+ dsData := ASchema.NewDataset(AConn, 'Paises');
+ except
+ RaiseError('No existe la tabla PAISES');
+ end;
+
+ ALista := TStringList.Create;
+ try
+ dsData.Active := True;
+ ALista.Sorted := True;
+ while not dsData.EOF do
+ begin
+ ALista.Add(Format('%s=%s', [dsData.Fields[4].AsString, dsData.Fields[2].AsString]));
+ dsData.Next;
+ end;
+
+ ALista.SaveToStream(Result);
+ finally
+ FreeANDNIL(ALista);
+ dsData := NIL;
+ AConn := NIL;
+ end;
+end;
+
function TsrvProvinciasPoblaciones.DarListaPoblaciones(const ID_Provincia: Integer): Binary;
var
ASchema : TDASchema;
diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas
index 66064c0..6a5f3a8 100644
--- a/Source/ApplicationBase/uFactuGES_App.pas
+++ b/Source/ApplicationBase/uFactuGES_App.pas
@@ -13,7 +13,9 @@ const
CTE_PERFIL_VENDEDOR_GRADEN = 7;
CTE_PERFIL_VENDEDOR_MARBELLA = 9;
CTE_PERFIL_VENDEDOR_DONOSTI = 10;
- CTE_PERFIL_VENDEDOR_GRADEN_UECKO = 6;
+ CTE_PERFIL_VENDEDOR_BILBAO = 11;
+ CTE_PERFIL_VENDEDOR_GRADEN_UECKO = 6;
+ CTE_PERFIL_VENDEDOR_GRADEN_UECKO2 = 12;
CTE_PERFIL_COMPRAS = 8;
CTE_PERFIL_USUARIO = 5;
@@ -21,6 +23,7 @@ const
CTE_EMPRESA_GRADEN = 2;
CTE_EMPRESA_GRADEN_MARBELLA = 6;
CTE_EMPRESA_GRADEN_DONOSTI = 10;
+ CTE_EMPRESA_GRADEN_BILBAO = 15;
type
TAppFactuGES_Event = procedure;
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 5008327..9afbdc4 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,6 +44,13 @@
Package
FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
@@ -58,54 +65,54 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Base/Utiles/uStringsUtils.pas b/Source/Base/Utiles/uStringsUtils.pas
index 68ad755..6cb3354 100644
--- a/Source/Base/Utiles/uStringsUtils.pas
+++ b/Source/Base/Utiles/uStringsUtils.pas
@@ -14,6 +14,10 @@ function StringsToString(Source:TStrings; Delimiter:char):string;
function EsCadenaVacia(const S: AnsiString): Boolean; overload;
function EsCadenaVacia(const S: Variant): Boolean; overload;
function EsNumerico(Cadena: String) : Boolean;
+function calcularLetraNIF(numeroDNI : integer): string;
+function comprobarLetraNIF(nif: string): boolean;
+function validarCIF(Cif: string) : boolean;
+function CadLimpiaCar(NIF: String): String;
implementation
@@ -62,5 +66,73 @@ begin
Result := (Codigo = 0)
end;
+//Obtiene la letra del DNI NIF de un número
+function calcularLetraNIF(numeroDNI : integer): string;
+begin
+ Result := copy('TRWAGMYFPDXBNJZSQVHLCKET', 1 + numeroDNI mod 23, 1);
+end;
+
+//Comprueba si un NIF DNI es correcto (con letra incluida y extranjero)
+function comprobarLetraNIF (nif: string): boolean;
+var
+ numeroDNI : Integer;
+begin
+ Result := false;
+ if Length(nif) = 9 then
+ begin
+ // DNI normal
+ if TryStrToInt(Copy(nif, 1, Length(nif) - 1), numeroDNI) then
+ Result := UpperCase(Copy(nif, Length(nif), 1)) = calcularLetraNIF(numeroDNI);
+ // DNI Extranjero
+ if UpperCase(Copy(nif, 1, 1)) = 'X' then
+ if TryStrToInt(Copy(nif, 2, Length(nif) - 2), numeroDNI) then
+ Result := Uppercase(Copy(nif, Length(nif), 1)) = calcularLetraNIF(numeroDNI);
+ end;
+end;
+
+//Comprueba si un CIF es correcto (se le pasa el CIF completo, incluida la letra)
+function validarCIF (Cif : string) : boolean;
+var
+ Suma, Control : integer;
+ n : byte;
+begin
+ Result:=False;
+ Cif:=UpperCase(Cif);
+ {El cif debe ser de 9 cifras}
+ if Length(Cif)=9 then
+ begin
+ Suma:= StrToInt(Cif[3])+
+ StrToInt(Cif[5])+
+ StrToInt(Cif[7]);
+ for n := 1 to 4 do
+ begin
+ Suma:=Suma+ ( (2*StrToInt(Cif[2*n])) mod 10 )+
+ ( (2*StrToInt(Cif[2*n])) div 10 );
+ end;
+ Control := 10-(Suma mod 10);
+ if Pos(Cif[1],'XP') <> 0 then
+ {Control tipo letra}
+ Result:= ( Cif[9] = Chr(64+ Control))
+ else
+ begin
+ {Control tipo número}
+ if Control =10 then
+ Control := 0;
+ Result:= ( StrToInt(Cif[9]) = Control);
+ end;
+ end;
+end;
+
+function CadLimpiaCar(NIF: String): String;
+ begin
+ Result:= NIF;
+ while (pos(' ',NIF)>0) do
+ delete(NIF,pos(' ',NIF),1);
+ while (pos('-',NIF)>0) do
+ delete(NIF,pos('-',NIF),1);
+ while (pos('/',NIF)>0) do
+ delete(NIF,pos('/',NIF),1);
+ Result:=UpperCase(NIF);
+end;
end.
diff --git a/Source/Cliente/FactuGES.dpr b/Source/Cliente/FactuGES.dpr
index 26dad99..953a000 100644
--- a/Source/Cliente/FactuGES.dpr
+++ b/Source/Cliente/FactuGES.dpr
@@ -1,6 +1,7 @@
program FactuGES;
uses
+ ExceptionLog,
Forms,
Windows,
SysUtils,
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 43fae77..65e3fe1 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -43,7 +43,7 @@
$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib
$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib
$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib
- DEBUG;
+ DEBUG;EUREKALOG;EUREKALOG_VER6
True
True
3
@@ -52,7 +52,9 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4450FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.4.5.0FactuGESFactuGES4.4.5.0
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4490FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.4.9.0FactuGESFactuGES4.4.9.0
+
+
File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
FactuGES.dprFalse
@@ -81,7 +83,7 @@
+
+
+
+
@@ -83,13 +84,14 @@
-
-
-
-
+
+
+
+
+
diff --git a/Source/Informes/10/InfContratoCliente.fr3 b/Source/Informes/10/InfContratoCliente.fr3
index 26da8b0..0fb8831 100644
--- a/Source/Informes/10/InfContratoCliente.fr3
+++ b/Source/Informes/10/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -8,11 +8,11 @@
-
+
-
+
@@ -69,27 +69,27 @@
-
-
-
+
+
+
-
+
-
-
+
+
+
-
-
+
diff --git a/Source/Informes/10/InfFacturaCliente.fr3 b/Source/Informes/10/InfFacturaCliente.fr3
index f0bded6..22d886f 100644
--- a/Source/Informes/10/InfFacturaCliente.fr3
+++ b/Source/Informes/10/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -8,7 +8,7 @@
-
+
@@ -49,11 +49,11 @@
-
-
+
+
+
-
diff --git a/Source/Informes/10/InfPresupuestoCliente.fr3 b/Source/Informes/10/InfPresupuestoCliente.fr3
index 75d70a5..d9e8f5b 100644
--- a/Source/Informes/10/InfPresupuestoCliente.fr3
+++ b/Source/Informes/10/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -8,9 +8,9 @@
-
+
-
+
@@ -43,7 +43,7 @@
-
+
@@ -66,10 +66,10 @@
-
-
-
+
+
+
@@ -77,16 +77,16 @@
-
+
+
-
+
-
-
+
diff --git a/Source/Informes/10/InfReciboCliente.fr3 b/Source/Informes/10/InfReciboCliente.fr3
index 2c90e59..1d4129a 100644
--- a/Source/Informes/10/InfReciboCliente.fr3
+++ b/Source/Informes/10/InfReciboCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -52,9 +52,9 @@
-
+
-
+
diff --git a/Source/Informes/2/2/InfContratoCliente.fr3 b/Source/Informes/2/2/InfContratoCliente.fr3
index 6153fae..1ae1425 100644
--- a/Source/Informes/2/2/InfContratoCliente.fr3
+++ b/Source/Informes/2/2/InfContratoCliente.fr3
@@ -1,11 +1,11 @@
-
+
-
+
-
+
@@ -16,7 +16,7 @@
-
+
@@ -84,12 +84,12 @@
-
-
+
+
+
-
-
+
diff --git a/Source/Informes/2/2/InfFacturaCliente.fr3 b/Source/Informes/2/2/InfFacturaCliente.fr3
index 882a82c..98b3445 100644
--- a/Source/Informes/2/2/InfFacturaCliente.fr3
+++ b/Source/Informes/2/2/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -8,7 +8,7 @@
-
+
@@ -49,11 +49,11 @@
-
-
-
-
+
+
+
+
@@ -62,7 +62,7 @@
-
+
diff --git a/Source/Informes/2/2/InfPresupuestoCliente.fr3 b/Source/Informes/2/2/InfPresupuestoCliente.fr3
index e78edfc..6257032 100644
--- a/Source/Informes/2/2/InfPresupuestoCliente.fr3
+++ b/Source/Informes/2/2/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -8,7 +8,7 @@
-
+
@@ -66,9 +66,9 @@
-
-
+
+
@@ -77,11 +77,11 @@
-
+
-
+
-
+
diff --git a/Source/Informes/2/2/InfReciboCliente.fr3 b/Source/Informes/2/2/InfReciboCliente.fr3
index ba18e32..33682a3 100644
--- a/Source/Informes/2/2/InfReciboCliente.fr3
+++ b/Source/Informes/2/2/InfReciboCliente.fr3
@@ -1,15 +1,15 @@
-
+
-
+
-
+
diff --git a/Source/Informes/2/4/InfContratoCliente.fr3 b/Source/Informes/2/4/InfContratoCliente.fr3
index 539186e..f0d1e43 100644
--- a/Source/Informes/2/4/InfContratoCliente.fr3
+++ b/Source/Informes/2/4/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -69,10 +69,10 @@
-
-
-
+
+
+
@@ -84,12 +84,12 @@
-
-
+
+
+
-
-
+
diff --git a/Source/Informes/2/4/InfFacturaCliente.fr3 b/Source/Informes/2/4/InfFacturaCliente.fr3
index cc8ffd8..77602a0 100644
--- a/Source/Informes/2/4/InfFacturaCliente.fr3
+++ b/Source/Informes/2/4/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -49,11 +49,11 @@
-
-
+
+
+
-
@@ -62,7 +62,7 @@
-
+
diff --git a/Source/Informes/2/4/InfPresupuestoCliente.fr3 b/Source/Informes/2/4/InfPresupuestoCliente.fr3
index 3ee08ed..a57b974 100644
--- a/Source/Informes/2/4/InfPresupuestoCliente.fr3
+++ b/Source/Informes/2/4/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -66,22 +66,22 @@
-
-
-
-
+
+
+
+
-
+
+
-
+
-
diff --git a/Source/Informes/2/5/InfContratoCliente.fr3 b/Source/Informes/2/5/InfContratoCliente.fr3
index 73c8ca6..6738f3c 100644
--- a/Source/Informes/2/5/InfContratoCliente.fr3
+++ b/Source/Informes/2/5/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -69,10 +69,10 @@
-
-
-
+
+
+
@@ -84,12 +84,12 @@
-
-
+
+
+
-
-
+
diff --git a/Source/Informes/2/5/InfFacturaCliente.fr3 b/Source/Informes/2/5/InfFacturaCliente.fr3
index 1cf1534..3d541ab 100644
--- a/Source/Informes/2/5/InfFacturaCliente.fr3
+++ b/Source/Informes/2/5/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -49,11 +49,11 @@
-
-
+
+
+
-
@@ -62,7 +62,7 @@
-
+
diff --git a/Source/Informes/2/5/InfPresupuestoCliente.fr3 b/Source/Informes/2/5/InfPresupuestoCliente.fr3
index 5f74adb..cee7c51 100644
--- a/Source/Informes/2/5/InfPresupuestoCliente.fr3
+++ b/Source/Informes/2/5/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -66,10 +66,10 @@
-
-
-
+
+
+
@@ -77,11 +77,11 @@
-
+
-
+
-
+
diff --git a/Source/Informes/2/InfPresupuestoCliente.fr3 b/Source/Informes/2/InfPresupuestoCliente.fr3
index e00bea3..15e38c2 100644
--- a/Source/Informes/2/InfPresupuestoCliente.fr3
+++ b/Source/Informes/2/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -10,7 +10,7 @@
-
+
@@ -79,7 +79,7 @@
-
+
diff --git a/Source/Informes/6/InfContratoCliente.fr3 b/Source/Informes/6/InfContratoCliente.fr3
index 1d24a3e..6043b4f 100644
--- a/Source/Informes/6/InfContratoCliente.fr3
+++ b/Source/Informes/6/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -12,7 +12,7 @@
-
+
@@ -69,10 +69,10 @@
-
-
-
+
+
+
@@ -84,12 +84,12 @@
-
-
+
+
+
-
-
+
diff --git a/Source/Informes/6/InfFacturaCliente.fr3 b/Source/Informes/6/InfFacturaCliente.fr3
index faa2cc5..ac26c0d 100644
--- a/Source/Informes/6/InfFacturaCliente.fr3
+++ b/Source/Informes/6/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -49,11 +49,11 @@
-
-
+
+
+
-
@@ -62,7 +62,7 @@
-
+
diff --git a/Source/Informes/6/InfPresupuestoCliente.fr3 b/Source/Informes/6/InfPresupuestoCliente.fr3
index 7c46158..8ff3f1e 100644
--- a/Source/Informes/6/InfPresupuestoCliente.fr3
+++ b/Source/Informes/6/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -10,7 +10,7 @@
-
+
@@ -43,7 +43,7 @@
-
+
@@ -66,22 +66,22 @@
-
-
-
+
+
+
-
+
+
-
+
-
diff --git a/Source/Informes/InfEtiquetasAlbaranCliente.fr3 b/Source/Informes/InfEtiquetasAlbaranCliente.fr3
index b19cddc..f4c0f23 100644
--- a/Source/Informes/InfEtiquetasAlbaranCliente.fr3
+++ b/Source/Informes/InfEtiquetasAlbaranCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -10,7 +10,7 @@
-
+
diff --git a/Source/Informes/InfEtiquetasContratoCliente.fr3 b/Source/Informes/InfEtiquetasContratoCliente.fr3
index 51c06a1..5672bef 100644
--- a/Source/Informes/InfEtiquetasContratoCliente.fr3
+++ b/Source/Informes/InfEtiquetasContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -10,7 +10,7 @@
-
+
diff --git a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
index 11afccc..88b84dd 100644
--- a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
+++ b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
@@ -15,6 +15,7 @@
+
@@ -211,14 +212,23 @@
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.dproj b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.dproj
index 6cf7a8f..54994c0 100644
--- a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.dproj
+++ b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.dproj
@@ -48,15 +48,15 @@
MainSource
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
index 50bb558..92fa568 100644
--- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
@@ -321,6 +321,30 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'PAIS'
+ DataType = datString
+ Size = 255
+ ServerAutoRefresh = True
+ end
+ item
+ Name = 'PAIS_ENVIO'
+ DataType = datString
+ Size = 255
+ ServerAutoRefresh = True
+ end
+ item
+ Name = 'IDIOMA_ISO'
+ DataType = datString
+ Size = 2
+ ServerAutoRefresh = True
+ end
+ item
+ Name = 'IDIOMA'
+ DataType = datString
+ Size = 255
+ ServerAutoRefresh = True
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
index 73ec3dd..55d17b5 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_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 = '{B517DFB7-B260-4DD7-B59F-D0C79D930D9A}';
- RID_AlbaranesCliente = '{FCE2B205-1ADB-4A2F-A57A-BB4978B0C22D}';
- RID_AlbaranesCliente_Detalles = '{E456B282-7E51-41D3-9214-4A96CEF784F8}';
+ RID_ListaAnosAlbaranes = '{61B2D316-8F9F-495D-9278-71421234B3F2}';
+ RID_AlbaranesCliente = '{27F96218-2165-463E-B495-642C0C19D7DA}';
+ RID_AlbaranesCliente_Detalles = '{C23659BB-29EF-41BF-8B1A-316F63882183}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@@ -71,6 +71,10 @@ const
fld_AlbaranesClienteID_TIENDA = 'ID_TIENDA';
fld_AlbaranesClienteTIENDA = 'TIENDA';
fld_AlbaranesClienteNOTAS_ENVIO = 'NOTAS_ENVIO';
+ fld_AlbaranesClientePAIS = 'PAIS';
+ fld_AlbaranesClientePAIS_ENVIO = 'PAIS_ENVIO';
+ fld_AlbaranesClienteIDIOMA_ISO = 'IDIOMA_ISO';
+ fld_AlbaranesClienteIDIOMA = 'IDIOMA';
{ AlbaranesCliente field indexes }
idx_AlbaranesClienteID = 0;
@@ -119,6 +123,10 @@ const
idx_AlbaranesClienteID_TIENDA = 43;
idx_AlbaranesClienteTIENDA = 44;
idx_AlbaranesClienteNOTAS_ENVIO = 45;
+ idx_AlbaranesClientePAIS = 46;
+ idx_AlbaranesClientePAIS_ENVIO = 47;
+ idx_AlbaranesClienteIDIOMA_ISO = 48;
+ idx_AlbaranesClienteIDIOMA = 49;
{ AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID';
@@ -157,7 +165,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
- ['{3DFD3F5E-DB3F-4FB7-9F95-80091A69254A}']
+ ['{EFF3928E-162E-4C73-BBCA-0E169312D7B6}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -192,7 +200,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
- ['{C45B8E2D-036A-48F5-BE78-0E9922D58F85}']
+ ['{E2C95ABE-86CA-400D-86DB-44B64F7BB1EE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -376,6 +384,22 @@ type
procedure SetNOTAS_ENVIOValue(const aValue: String);
function GetNOTAS_ENVIOIsNull: Boolean;
procedure SetNOTAS_ENVIOIsNull(const aValue: Boolean);
+ function GetPAISValue: String;
+ procedure SetPAISValue(const aValue: String);
+ function GetPAISIsNull: Boolean;
+ procedure SetPAISIsNull(const aValue: Boolean);
+ function GetPAIS_ENVIOValue: String;
+ procedure SetPAIS_ENVIOValue(const aValue: String);
+ function GetPAIS_ENVIOIsNull: Boolean;
+ procedure SetPAIS_ENVIOIsNull(const aValue: Boolean);
+ function GetIDIOMA_ISOValue: String;
+ procedure SetIDIOMA_ISOValue(const aValue: String);
+ function GetIDIOMA_ISOIsNull: Boolean;
+ procedure SetIDIOMA_ISOIsNull(const aValue: Boolean);
+ function GetIDIOMAValue: String;
+ procedure SetIDIOMAValue(const aValue: String);
+ function GetIDIOMAIsNull: Boolean;
+ procedure SetIDIOMAIsNull(const aValue: Boolean);
{ Properties }
@@ -471,6 +495,14 @@ type
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property NOTAS_ENVIO: String read GetNOTAS_ENVIOValue write SetNOTAS_ENVIOValue;
property NOTAS_ENVIOIsNull: Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull;
+ property PAIS: String read GetPAISValue write SetPAISValue;
+ property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
+ property PAIS_ENVIO: String read GetPAIS_ENVIOValue write SetPAIS_ENVIOValue;
+ property PAIS_ENVIOIsNull: Boolean read GetPAIS_ENVIOIsNull write SetPAIS_ENVIOIsNull;
+ property IDIOMA_ISO: String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue;
+ property IDIOMA_ISOIsNull: Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull;
+ property IDIOMA: String read GetIDIOMAValue write SetIDIOMAValue;
+ property IDIOMAIsNull: Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull;
end;
{ TAlbaranesClienteDataTableRules }
@@ -664,6 +696,22 @@ type
procedure SetNOTAS_ENVIOValue(const aValue: String); virtual;
function GetNOTAS_ENVIOIsNull: Boolean; virtual;
procedure SetNOTAS_ENVIOIsNull(const aValue: Boolean); virtual;
+ function GetPAISValue: String; virtual;
+ procedure SetPAISValue(const aValue: String); virtual;
+ function GetPAISIsNull: Boolean; virtual;
+ procedure SetPAISIsNull(const aValue: Boolean); virtual;
+ function GetPAIS_ENVIOValue: String; virtual;
+ procedure SetPAIS_ENVIOValue(const aValue: String); virtual;
+ function GetPAIS_ENVIOIsNull: Boolean; virtual;
+ procedure SetPAIS_ENVIOIsNull(const aValue: Boolean); virtual;
+ function GetIDIOMA_ISOValue: String; virtual;
+ procedure SetIDIOMA_ISOValue(const aValue: String); virtual;
+ function GetIDIOMA_ISOIsNull: Boolean; virtual;
+ procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); virtual;
+ function GetIDIOMAValue: String; virtual;
+ procedure SetIDIOMAValue(const aValue: String); virtual;
+ function GetIDIOMAIsNull: Boolean; virtual;
+ procedure SetIDIOMAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -758,6 +806,14 @@ type
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property NOTAS_ENVIO: String read GetNOTAS_ENVIOValue write SetNOTAS_ENVIOValue;
property NOTAS_ENVIOIsNull: Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull;
+ property PAIS: String read GetPAISValue write SetPAISValue;
+ property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
+ property PAIS_ENVIO: String read GetPAIS_ENVIOValue write SetPAIS_ENVIOValue;
+ property PAIS_ENVIOIsNull: Boolean read GetPAIS_ENVIOIsNull write SetPAIS_ENVIOIsNull;
+ property IDIOMA_ISO: String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue;
+ property IDIOMA_ISOIsNull: Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull;
+ property IDIOMA: String read GetIDIOMAValue write SetIDIOMAValue;
+ property IDIOMAIsNull: Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -767,7 +823,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{40165756-12BF-4C0D-8107-BEE438314BC2}']
+ ['{55BD370E-59E9-4354-86EB-BA9418DFA316}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1994,6 +2050,90 @@ begin
DataTable.Fields[idx_AlbaranesClienteNOTAS_ENVIO].AsVariant := Null;
end;
+function TAlbaranesClienteDataTableRules.GetPAISValue: String;
+begin
+ result := DataTable.Fields[idx_AlbaranesClientePAIS].AsString;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetPAISValue(const aValue: String);
+begin
+ DataTable.Fields[idx_AlbaranesClientePAIS].AsString := aValue;
+end;
+
+function TAlbaranesClienteDataTableRules.GetPAISIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_AlbaranesClientePAIS].IsNull;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetPAISIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_AlbaranesClientePAIS].AsVariant := Null;
+end;
+
+function TAlbaranesClienteDataTableRules.GetPAIS_ENVIOValue: String;
+begin
+ result := DataTable.Fields[idx_AlbaranesClientePAIS_ENVIO].AsString;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetPAIS_ENVIOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_AlbaranesClientePAIS_ENVIO].AsString := aValue;
+end;
+
+function TAlbaranesClienteDataTableRules.GetPAIS_ENVIOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_AlbaranesClientePAIS_ENVIO].IsNull;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetPAIS_ENVIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_AlbaranesClientePAIS_ENVIO].AsVariant := Null;
+end;
+
+function TAlbaranesClienteDataTableRules.GetIDIOMA_ISOValue: String;
+begin
+ result := DataTable.Fields[idx_AlbaranesClienteIDIOMA_ISO].AsString;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetIDIOMA_ISOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_AlbaranesClienteIDIOMA_ISO].AsString := aValue;
+end;
+
+function TAlbaranesClienteDataTableRules.GetIDIOMA_ISOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_AlbaranesClienteIDIOMA_ISO].IsNull;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetIDIOMA_ISOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_AlbaranesClienteIDIOMA_ISO].AsVariant := Null;
+end;
+
+function TAlbaranesClienteDataTableRules.GetIDIOMAValue: String;
+begin
+ result := DataTable.Fields[idx_AlbaranesClienteIDIOMA].AsString;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetIDIOMAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_AlbaranesClienteIDIOMA].AsString := aValue;
+end;
+
+function TAlbaranesClienteDataTableRules.GetIDIOMAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_AlbaranesClienteIDIOMA].IsNull;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetIDIOMAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_AlbaranesClienteIDIOMA].AsVariant := Null;
+end;
+
{ TAlbaranesCliente_DetallesDataTableRules }
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
index 5699052..225e1b7 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_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 = '{0B01B3F1-FD0A-41E2-9AC8-DF2FE6427AC9}';
- RID_AlbaranesClienteDelta = '{15937719-1382-4F28-B013-5ED650D7FD2B}';
- RID_AlbaranesCliente_DetallesDelta = '{6E38A603-223E-4266-AB5E-8ECFB13DFFC3}';
+ RID_ListaAnosAlbaranesDelta = '{71958837-EE5B-49A7-B55E-8E4632400C97}';
+ RID_AlbaranesClienteDelta = '{55A9D339-9DAE-4A16-ADBF-D4A22BB1CDCB}';
+ RID_AlbaranesCliente_DetallesDelta = '{34014D71-6E3C-4D68-A04E-CE44C8433129}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
- ['{0B01B3F1-FD0A-41E2-9AC8-DF2FE6427AC9}']
+ ['{71958837-EE5B-49A7-B55E-8E4632400C97}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
- ['{15937719-1382-4F28-B013-5ED650D7FD2B}']
+ ['{55A9D339-9DAE-4A16-ADBF-D4A22BB1CDCB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -98,6 +98,10 @@ type
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
function GetOldNOTAS_ENVIOValue : String;
+ function GetOldPAISValue : String;
+ function GetOldPAIS_ENVIOValue : String;
+ function GetOldIDIOMA_ISOValue : String;
+ function GetOldIDIOMAValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -146,6 +150,10 @@ type
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
property OldNOTAS_ENVIO : String read GetOldNOTAS_ENVIOValue;
+ property OldPAIS : String read GetOldPAISValue;
+ property OldPAIS_ENVIO : String read GetOldPAIS_ENVIOValue;
+ property OldIDIOMA_ISO : String read GetOldIDIOMA_ISOValue;
+ property OldIDIOMA : String read GetOldIDIOMAValue;
end;
{ TAlbaranesClienteBusinessProcessorRules }
@@ -431,6 +439,30 @@ type
function GetOldNOTAS_ENVIOIsNull: Boolean; virtual;
procedure SetNOTAS_ENVIOValue(const aValue: String); virtual;
procedure SetNOTAS_ENVIOIsNull(const aValue: Boolean); virtual;
+ function GetPAISValue: String; virtual;
+ function GetPAISIsNull: Boolean; virtual;
+ function GetOldPAISValue: String; virtual;
+ function GetOldPAISIsNull: Boolean; virtual;
+ procedure SetPAISValue(const aValue: String); virtual;
+ procedure SetPAISIsNull(const aValue: Boolean); virtual;
+ function GetPAIS_ENVIOValue: String; virtual;
+ function GetPAIS_ENVIOIsNull: Boolean; virtual;
+ function GetOldPAIS_ENVIOValue: String; virtual;
+ function GetOldPAIS_ENVIOIsNull: Boolean; virtual;
+ procedure SetPAIS_ENVIOValue(const aValue: String); virtual;
+ procedure SetPAIS_ENVIOIsNull(const aValue: Boolean); virtual;
+ function GetIDIOMA_ISOValue: String; virtual;
+ function GetIDIOMA_ISOIsNull: Boolean; virtual;
+ function GetOldIDIOMA_ISOValue: String; virtual;
+ function GetOldIDIOMA_ISOIsNull: Boolean; virtual;
+ procedure SetIDIOMA_ISOValue(const aValue: String); virtual;
+ procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); virtual;
+ function GetIDIOMAValue: String; virtual;
+ function GetIDIOMAIsNull: Boolean; virtual;
+ function GetOldIDIOMAValue: String; virtual;
+ function GetOldIDIOMAIsNull: Boolean; virtual;
+ procedure SetIDIOMAValue(const aValue: String); virtual;
+ procedure SetIDIOMAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -617,6 +649,22 @@ type
property NOTAS_ENVIOIsNull : Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull;
property OldNOTAS_ENVIO : String read GetOldNOTAS_ENVIOValue;
property OldNOTAS_ENVIOIsNull : Boolean read GetOldNOTAS_ENVIOIsNull;
+ property PAIS : String read GetPAISValue write SetPAISValue;
+ property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
+ property OldPAIS : String read GetOldPAISValue;
+ property OldPAISIsNull : Boolean read GetOldPAISIsNull;
+ property PAIS_ENVIO : String read GetPAIS_ENVIOValue write SetPAIS_ENVIOValue;
+ property PAIS_ENVIOIsNull : Boolean read GetPAIS_ENVIOIsNull write SetPAIS_ENVIOIsNull;
+ property OldPAIS_ENVIO : String read GetOldPAIS_ENVIOValue;
+ property OldPAIS_ENVIOIsNull : Boolean read GetOldPAIS_ENVIOIsNull;
+ property IDIOMA_ISO : String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue;
+ property IDIOMA_ISOIsNull : Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull;
+ property OldIDIOMA_ISO : String read GetOldIDIOMA_ISOValue;
+ property OldIDIOMA_ISOIsNull : Boolean read GetOldIDIOMA_ISOIsNull;
+ property IDIOMA : String read GetIDIOMAValue write SetIDIOMAValue;
+ property IDIOMAIsNull : Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull;
+ property OldIDIOMA : String read GetOldIDIOMAValue;
+ property OldIDIOMAIsNull : Boolean read GetOldIDIOMAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -626,7 +674,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
- ['{6E38A603-223E-4266-AB5E-8ECFB13DFFC3}']
+ ['{34014D71-6E3C-4D68-A04E-CE44C8433129}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@@ -2325,6 +2373,130 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOTAS_ENVIO] := Null;
end;
+function TAlbaranesClienteBusinessProcessorRules.GetPAISValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePAIS];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetPAISIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePAIS]);
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldPAISValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClientePAIS];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldPAISIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClientePAIS]);
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetPAISValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePAIS] := aValue;
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePAIS] := Null;
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetPAIS_ENVIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePAIS_ENVIO];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetPAIS_ENVIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePAIS_ENVIO]);
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldPAIS_ENVIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClientePAIS_ENVIO];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldPAIS_ENVIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClientePAIS_ENVIO]);
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetPAIS_ENVIOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePAIS_ENVIO] := aValue;
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetPAIS_ENVIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePAIS_ENVIO] := Null;
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetIDIOMA_ISOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIDIOMA_ISO];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetIDIOMA_ISOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIDIOMA_ISO]);
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldIDIOMA_ISOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteIDIOMA_ISO];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldIDIOMA_ISOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteIDIOMA_ISO]);
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetIDIOMA_ISOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIDIOMA_ISO] := aValue;
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetIDIOMA_ISOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIDIOMA_ISO] := Null;
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetIDIOMAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIDIOMA];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetIDIOMAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIDIOMA]);
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldIDIOMAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteIDIOMA];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldIDIOMAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteIDIOMA]);
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetIDIOMAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIDIOMA] := aValue;
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetIDIOMAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIDIOMA] := Null;
+end;
+
{ TAlbaranesCliente_DetallesBusinessProcessorRules }
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
index 352dc9e..07b4e09 100644
--- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
@@ -252,6 +252,7 @@ begin
POBLACION := FCliente.POBLACION;
CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
PROVINCIA := FCliente.PROVINCIA;
+ PAIS := FCliente.PAIS;
PERSONA_CONTACTO := FCliente.NOMBRE;
TELEFONO := FCliente.TELEFONO_1;
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
index 4c244b2..4ac8e19 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
@@ -78,6 +78,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString
Size = 255
end
+ item
+ Name = 'PAIS_FISCAL'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'CODIGO_POSTAL_FISCAL'
DataType = datString
@@ -108,6 +113,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString
Size = 255
end
+ item
+ Name = 'PAIS'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'CODIGO_POSTAL'
DataType = datString
@@ -229,6 +239,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'PAGINA_WEB_EMPRESA'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'IDIOMA_ISO'
+ DataType = datString
+ Size = 2
end>
Params = <
item
@@ -377,33 +392,34 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
'ANES_CLIENTE.REFERENCIA_CLIENTE,'#10' CONTACTOS.NIF_CIF,'#10' ALBARANE' +
'S_CLIENTE.FECHA_ALBARAN,'#10' ALBARANES_CLIENTE.REFERENCIA,'#10' CONTA' +
'CTOS.CALLE AS CALLE_FISCAL,'#10' CONTACTOS.POBLACION AS POBLACION_F' +
- 'ISCAL,'#10' CONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS.CO' +
- 'DIGO_POSTAL AS CODIGO_POSTAL_FISCAL,'#10' CONTACTOS.TELEFONO_1 AS T' +
- 'ELEFONO_POSTAL_FISCAL,'#10' CONTACTOS.MOVIL_1 AS MOVIL_FISCAL,'#10' AL' +
- 'BARANES_CLIENTE.CALLE,'#10' ALBARANES_CLIENTE.POBLACION,'#10' ALBARANE' +
- 'S_CLIENTE.PROVINCIA,'#10' ALBARANES_CLIENTE.CODIGO_POSTAL,'#10' ALBARA' +
- 'NES_CLIENTE.TELEFONO,'#10' ALBARANES_CLIENTE.MOVIL,'#10' ALBARANES_CLI' +
- 'ENTE.PERSONA_CONTACTO,'#10' ALBARANES_CLIENTE.NOTAS_ENVIO,'#10' ALBARA' +
- 'NES_CLIENTE.OBSERVACIONES,'#10' ALBARANES_CLIENTE.IMPORTE_NETO,'#10' A' +
- 'LBARANES_CLIENTE.DESCUENTO,'#10' ALBARANES_CLIENTE.IMPORTE_DESCUENT' +
- 'O,'#10' ALBARANES_CLIENTE.BASE_IMPONIBLE,'#10' ALBARANES_CLIENTE.IMPOR' +
- 'TE_TOTAL,'#10' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' CONTRATOS_' +
- 'CLIENTE.REFERENCIA AS REF_CONTRATO,'#10' CONTRATOS_CLIENTE.FECHA_CO' +
- 'NTRATO,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE' +
- ' AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPR' +
- 'ESA,'#10' EMPRESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL' +
- ' AS CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMP' +
- 'RESA,'#10' EMPRESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELE' +
- 'FONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' E' +
- 'MPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_' +
- '1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' AL' +
- 'BARANES_CLIENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANE' +
- 'S_CLIENTE.ID_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ' +
- 'ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTRATOS_CLIENT' +
- 'E ON (CONTRATOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)'#10'/* LE' +
- 'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
- ' = ALBARANES_CLIENTE.ID_DIRECCION)*/'#10'WHERE ALBARANES_CLIENTE.ID ' +
- '= :ID'#10
+ 'ISCAL,'#10' CONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS.PA' +
+ 'IS AS PAIS_FISCAL,'#10' CONTACTOS.CODIGO_POSTAL AS CODIGO_POSTAL_FI' +
+ 'SCAL,'#10' CONTACTOS.TELEFONO_1 AS TELEFONO_POSTAL_FISCAL,'#10' CONTAC' +
+ 'TOS.MOVIL_1 AS MOVIL_FISCAL,'#10' ALBARANES_CLIENTE.CALLE,'#10' ALBARA' +
+ 'NES_CLIENTE.POBLACION,'#10' ALBARANES_CLIENTE.PROVINCIA,'#10' ALBARANE' +
+ 'S_CLIENTE.PAIS,'#10' ALBARANES_CLIENTE.CODIGO_POSTAL,'#10' ALBARANES_C' +
+ 'LIENTE.TELEFONO,'#10' ALBARANES_CLIENTE.MOVIL,'#10' ALBARANES_CLIENTE.' +
+ 'PERSONA_CONTACTO,'#10' ALBARANES_CLIENTE.NOTAS_ENVIO,'#10' ALBARANES_C' +
+ 'LIENTE.OBSERVACIONES,'#10' ALBARANES_CLIENTE.IMPORTE_NETO,'#10' ALBARA' +
+ 'NES_CLIENTE.DESCUENTO,'#10' ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' ' +
+ 'ALBARANES_CLIENTE.BASE_IMPONIBLE,'#10' ALBARANES_CLIENTE.IMPORTE_TO' +
+ 'TAL,'#10' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' CONTRATOS_CLIEN' +
+ 'TE.REFERENCIA AS REF_CONTRATO,'#10' CONTRATOS_CLIENTE.FECHA_CONTRAT' +
+ 'O,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS N' +
+ 'OMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10 +
+ ' EMPRESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS C' +
+ 'ODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,' +
+ #10' EMPRESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_' +
+ '1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRES' +
+ 'AS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMP' +
+ 'RESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA,'#10' ALBARANES_C' +
+ 'LIENTE.IDIOMA_ISO'#10'FROM'#10' ALBARANES_CLIENTE'#10' INNER JOIN EMPRESAS' +
+ ' ON (EMPRESAS.ID = ALBARANES_CLIENTE.ID_EMPRESA)'#10' INNER JOIN CO' +
+ 'NTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT ' +
+ 'OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = ALBARANE' +
+ 'S_CLIENTE.ID_PEDIDO)'#10'/* LEFT OUTER JOIN CONTACTOS_DIRECCIONES O' +
+ 'N (CONTACTOS_DIRECCIONES.ID = ALBARANES_CLIENTE.ID_DIRECCION)*/'#10 +
+ 'WHERE ALBARANES_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -596,6 +612,19 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
DatasetField = 'NOTAS_ENVIO'
TableField = 'NOTAS_ENVIO'
+ end
+ item
+ DatasetField = 'PAIS_FISCAL'
+ TableField = ''
+ SQLOrigin = 'PAIS_FISCAL'
+ end
+ item
+ DatasetField = 'PAIS'
+ TableField = 'PAIS'
+ end
+ item
+ DatasetField = 'IDIOMA_ISO'
+ TableField = 'IDIOMA_ISO'
end>
end>
Name = 'Informe_Cabecera'
@@ -660,6 +689,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString
Size = 255
end
+ item
+ Name = 'PAIS_FISCAL'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'CODIGO_POSTAL_FISCAL'
DataType = datString
@@ -690,6 +724,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString
Size = 255
end
+ item
+ Name = 'PAIS'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'CODIGO_POSTAL'
DataType = datString
@@ -811,6 +850,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'PAGINA_WEB_EMPRESA'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'IDIOMA_ISO'
+ DataType = datString
+ Size = 2
end>
end
item
diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
index 8f7f31b..072e652 100644
--- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
+++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
@@ -231,6 +231,22 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
DatasetField = 'NOTAS_ENVIO'
TableField = 'NOTAS_ENVIO'
+ end
+ item
+ DatasetField = 'PAIS'
+ TableField = 'PAIS'
+ end
+ item
+ DatasetField = 'PAIS_ENVIO'
+ TableField = 'PAIS_ENVIO'
+ end
+ item
+ DatasetField = 'IDIOMA_ISO'
+ TableField = 'IDIOMA_ISO'
+ end
+ item
+ DatasetField = 'IDIOMA'
+ TableField = 'IDIOMA'
end>
end>
Name = 'AlbaranesCliente'
@@ -490,6 +506,30 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'PAIS'
+ DataType = datString
+ Size = 255
+ ServerAutoRefresh = True
+ end
+ item
+ Name = 'PAIS_ENVIO'
+ DataType = datString
+ Size = 255
+ ServerAutoRefresh = True
+ end
+ item
+ Name = 'IDIOMA_ISO'
+ DataType = datString
+ Size = 2
+ ServerAutoRefresh = True
+ end
+ item
+ Name = 'IDIOMA'
+ DataType = datString
+ Size = 255
+ ServerAutoRefresh = True
end>
end
item
@@ -862,6 +902,24 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datString
Size = 255
Value = ''
+ end
+ item
+ Name = 'PAIS'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
+ item
+ Name = 'PAIS_ENVIO'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
+ item
+ Name = 'IDIOMA_ISO'
+ DataType = datString
+ Size = 2
+ Value = ''
end>
Statements = <
item
@@ -877,17 +935,18 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIO' +
'NES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_M' +
'ODIFICACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO,' +
- ' FECHA_ENVIO, '#10' FECHA_RECEPCION, ID_TIENDA, NOTAS_ENVIO)'#10' V' +
- 'ALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO,' +
- ' :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO,' +
- ' :ID_FACTURA, :ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POBLA' +
- 'CION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :MOVIL, :IM' +
- 'PORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' ' +
- ' :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACI' +
- 'ONES,'#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP' +
- ', :FECHA_MODIFICACION,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PRE' +
- 'VISTA_ENVIO, :FECHA_ENVIO, :FECHA_RECEPCION,'#10' :ID_TIENDA, :N' +
- 'OTAS_ENVIO)'#10' '#10' '#10#10
+ ' FECHA_ENVIO, '#10' FECHA_RECEPCION, ID_TIENDA, NOTAS_ENVIO, PAI' +
+ 'S, PAIS_ENVIO, IDIOMA_ISO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_C' +
+ 'LIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10' :REFERENCIA_CLI' +
+ 'ENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :ID_DIRECCION,'#10' ' +
+ ':CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACT' +
+ 'O,'#10' :TELEFONO, :MOVIL, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCU' +
+ 'ENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :IVA, :IMPORTE_I' +
+ 'VA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INCIDENCIAS, :INCIDENC' +
+ 'IAS_ACTIVAS, CURRENT_TIMESTAMP, :FECHA_MODIFICACION,'#10' :USUAR' +
+ 'IO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :FECHA_' +
+ 'RECEPCION,'#10' :ID_TIENDA, :NOTAS_ENVIO, :PAIS, :PAIS_ENVIO, :I' +
+ 'DIOMA_ISO)'#10' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1099,6 +1158,24 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Size = 255
Value = ''
end
+ item
+ Name = 'PAIS'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
+ item
+ Name = 'PAIS_ENVIO'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
+ item
+ Name = 'IDIOMA_ISO'
+ DataType = datString
+ Size = 2
+ Value = ''
+ end
item
Name = 'OLD_ID'
Value = ''
@@ -1128,7 +1205,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'_PAGO = :ID_FORMA_PAGO, '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVI' +
'STA_ENVIO, '#10' FECHA_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION' +
' = :FECHA_RECEPCION,'#10' ID_TIENDA = :ID_TIENDA,'#10' NOTAS_ENVIO' +
- ' = :NOTAS_ENVIO'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ ' = :NOTAS_ENVIO,'#10' PAIS = :PAIS,'#10' PAIS_ENVIO = :PAIS_ENVIO,' +
+ #10' IDIOMA_ISO = :IDIOMA_ISO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
index 00ce54d..0bfacee 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
@@ -2,7 +2,6 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Caption = 'Lista de albaranes de cliente'
ClientWidth = 899
ExplicitWidth = 907
- ExplicitHeight = 482
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -130,7 +129,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
end
end
inherited tbxFiltro: TTBXToolbar
- ExplicitWidth = 454
+ ExplicitWidth = 379
inherited lblAno: TTBXLabelItem
Visible = True
end
@@ -149,7 +148,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
DockPos = 460
Visible = True
ExplicitLeft = 460
- ExplicitWidth = 271
+ ExplicitWidth = 322
object TBXItem42: TTBXItem
Action = actEnviar
DisplayMode = nbdmImageAndText
@@ -167,9 +166,11 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
object TBXSeparatorItem19: TTBXSeparatorItem
end
object TBXItem45: TTBXItem
- Action = actGenerarFactura
+ Action = actGenerarFacturaProforma
DisplayMode = nbdmImageAndText
end
+ object TBXSeparatorItem20: TTBXSeparatorItem
+ end
object TBXItem38: TTBXItem
Action = actGenerarEtiquetas
DisplayMode = nbdmImageAndText
@@ -193,12 +194,12 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
inherited actAnchoAuto: TAction
ImageIndex = 22
end
- object actGenerarFactura: TAction
+ object actGenerarFacturaProforma: TAction
Category = 'Acciones'
- Caption = 'Generar factura...'
+ Caption = 'Generar factura proforma'
ImageIndex = 23
- OnExecute = actGenerarFacturaExecute
- OnUpdate = actGenerarFacturaUpdate
+ OnExecute = actGenerarFacturaProformaExecute
+ OnUpdate = actGenerarFacturaProformaUpdate
end
object actEnviar: TAction
Category = 'Acciones'
@@ -1683,7 +1684,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Action = actEnviar
end
object Generarfactura1: TMenuItem [7]
- Action = actGenerarFactura
+ Action = actGenerarFacturaProforma
end
end
object JsNuevoAlbaranDialog: TJSDialog
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
index c5d7b11..ac19184 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
@@ -17,7 +17,7 @@ uses
type
TfEditorAlbaranesCliente = class(TfEditorGridBase, IEditorAlbaranesCliente)
JsNuevoAlbaranDialog: TJSDialog;
- actGenerarFactura: TAction;
+ actGenerarFacturaProforma: TAction;
N4: TMenuItem;
Generarfactura1: TMenuItem;
TBXSeparatorItem17: TTBXSeparatorItem;
@@ -36,9 +36,10 @@ type
actGenerarEtiquetas: TAction;
TBXItem38: TTBXItem;
JsListaAlbaranesNoEliminados: TJSDialog;
+ TBXSeparatorItem20: TTBXSeparatorItem;
procedure FormShow(Sender: TObject);
- procedure actGenerarFacturaUpdate(Sender: TObject);
- procedure actGenerarFacturaExecute(Sender: TObject);
+ procedure actGenerarFacturaProformaUpdate(Sender: TObject);
+ procedure actGenerarFacturaProformaExecute(Sender: TObject);
procedure actEnviarUpdate(Sender: TObject);
procedure actEnviarExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
@@ -184,13 +185,16 @@ begin
and ViewGrid.esSeleccionCeldaDatos;
end;
-procedure TfEditorAlbaranesCliente.actGenerarFacturaExecute(Sender: TObject);
+procedure TfEditorAlbaranesCliente.actGenerarFacturaProformaExecute(Sender: TObject);
begin
- GenerarFacturaCli(Albaranes.ID);
+//Se desactiva poder generar facturas a partir de albaranes ya que no lo usan, ellos facturan a partir del contrato.
+//lo que si necesitan es hacer facturas proforma a partir de un determinado albarán por lo que el ID_FACTURA siempre referenciará a una factura proforma
+
+ GenerarFacturaProformaCli(Albaranes.ID);
actRefrescar.Execute;
end;
-procedure TfEditorAlbaranesCliente.actGenerarFacturaUpdate(Sender: TObject);
+procedure TfEditorAlbaranesCliente.actGenerarFacturaProformaUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := HayDatos
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorDireccionEntregaAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorDireccionEntregaAlbaranCliente.dfm
index 6c24ea8..b540b0f 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorDireccionEntregaAlbaranCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorDireccionEntregaAlbaranCliente.dfm
@@ -3,7 +3,7 @@ object fEditorDireccionEntregaAlbaranCliente: TfEditorDireccionEntregaAlbaranCli
Top = 108
BorderStyle = bsDialog
Caption = 'Datos de la direcci'#243'n de entrega:'
- ClientHeight = 257
+ ClientHeight = 316
ClientWidth = 453
Color = clBtnFace
ParentFont = True
@@ -13,14 +13,14 @@ object fEditorDireccionEntregaAlbaranCliente: TfEditorDireccionEntregaAlbaranCli
OnShow = FormShow
DesignSize = (
453
- 257)
+ 316)
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 14
Width = 349
- Height = 225
+ Height = 251
Anchors = [akLeft, akTop, akRight]
Shape = bsFrame
end
@@ -58,7 +58,7 @@ object fEditorDireccionEntregaAlbaranCliente: TfEditorDireccionEntregaAlbaranCli
end
object Label6: TLabel
Left = 20
- Top = 185
+ Top = 203
Width = 109
Height = 13
AutoSize = False
@@ -66,12 +66,20 @@ object fEditorDireccionEntregaAlbaranCliente: TfEditorDireccionEntregaAlbaranCli
end
object Label7: TLabel
Left = 21
- Top = 210
+ Top = 228
Width = 109
Height = 13
AutoSize = False
Caption = 'Tel'#233'fono:'
end
+ object Label5: TLabel
+ Left = 20
+ Top = 171
+ Width = 110
+ Height = 13
+ AutoSize = False
+ Caption = 'Pa'#237's:'
+ end
object OKBtn: TButton
Left = 370
Top = 13
@@ -134,7 +142,7 @@ object fEditorDireccionEntregaAlbaranCliente: TfEditorDireccionEntregaAlbaranCli
end
object ePersonaContacto: TDBEdit
Left = 135
- Top = 182
+ Top = 200
Width = 210
Height = 21
DataField = 'PERSONA_CONTACTO'
@@ -143,7 +151,7 @@ object fEditorDireccionEntregaAlbaranCliente: TfEditorDireccionEntregaAlbaranCli
end
object eTelefono: TDBEdit
Left = 136
- Top = 207
+ Top = 225
Width = 210
Height = 21
DataField = 'TELEFONO'
@@ -159,6 +167,35 @@ object fEditorDireccionEntregaAlbaranCliente: TfEditorDireccionEntregaAlbaranCli
Height = 58
Width = 211
end
+ object cbPais: TcxDBComboBox
+ Left = 134
+ Top = 167
+ DataBinding.DataField = 'PAIS'
+ DataBinding.DataSource = dsDireccion
+ Properties.DropDownListStyle = lsEditFixedList
+ Properties.ImmediatePost = True
+ Properties.ImmediateUpdateText = True
+ Properties.PostPopupValueOnTab = True
+ Properties.OnInitPopup = cbPaisPropertiesInitPopup
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ Style.LookAndFeel.SkinName = ''
+ Style.ButtonStyle = bts3D
+ Style.PopupBorderStyle = epbsFrame3D
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.SkinName = ''
+ TabOrder = 9
+ Width = 211
+ end
object dsDireccion: TDADataSource
Left = 16
Top = 46
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorDireccionEntregaAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorDireccionEntregaAlbaranCliente.pas
index 6da3028..7562f8b 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorDireccionEntregaAlbaranCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorDireccionEntregaAlbaranCliente.pas
@@ -6,7 +6,7 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
uIEditorDireccionEntregaAlbaranCliente, uBizAlbaranesCliente, uDAInterfaces,
- cxMemo;
+ cxMemo, cxGraphics, cxMaskEdit, cxDropDownEdit;
type
TfEditorDireccionEntregaAlbaranCliente = class(TForm, IEditorDireccionEntregaAlbaranCliente)
@@ -27,9 +27,12 @@ type
Label7: TLabel;
eTelefono: TDBEdit;
eDireccion: TcxDBMemo;
+ cbPais: TcxDBComboBox;
+ Label5: TLabel;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure cbPaisPropertiesInitPopup(Sender: TObject);
private
pDireccion: String;
@@ -38,8 +41,11 @@ type
pCodigoPostal: String;
pPersonaContacto: String;
pTelefono: String;
-
+ pPais: String;
+ FPaises : TStringList;
FAlbaran : IBizAlbaranCliente;
+
+ procedure CargarPaises;
function GetAlbaran: IBizAlbaranCliente;
procedure SetAlbaran(const Value: IBizAlbaranCliente);
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
@@ -47,9 +53,44 @@ type
implementation
{$R *.dfm}
-
-
{ TfEditorDireccionEntrega }
+uses uProvinciasPoblacionesController;
+
+procedure TfEditorDireccionEntregaAlbaranCliente.CargarPaises;
+var
+ i : integer;
+begin
+ with TProvinciasPoblacionesController.Create do
+ try
+ FPaises := DarListaPaises;
+
+ with cbPais.Properties.Items do
+ begin
+ BeginUpdate;
+ try
+ Clear;
+ for i := 0 to FPaises.Count - 1 do
+ Add(FPaises.Names[i]);
+ finally
+ EndUpdate;
+ end;
+ end;
+ finally
+ Free;
+ end;
+end;
+
+procedure TfEditorDireccionEntregaAlbaranCliente.cbPaisPropertiesInitPopup(
+ Sender: TObject);
+begin
+ ShowHourglassCursor;
+ try
+ if not Assigned(FPaises) then
+ CargarPaises;
+ finally
+ HideHourglassCursor;
+ end;
+end;
procedure TfEditorDireccionEntregaAlbaranCliente.FormClose(Sender: TObject; var Action: TCloseAction);
begin
@@ -59,6 +100,7 @@ begin
eDireccion.EditValue := pDireccion;
ePoblacion.Field.Value := pPoblacion;
eProvincia.Field.Value := pProvincia;
+ cbPais.EditValue := pPais;
eCodigoPostal.Field.Value := pCodigoPostal;
ePersonaContacto.Field.Value := pPersonaContacto;
eTelefono.Field.Value := pTelefono;
@@ -74,6 +116,7 @@ begin
pCodigoPostal := eCodigoPostal.Text;
pPersonaContacto := ePersonaContacto.Text;
pTelefono := eTelefono.Text;
+ pPais := cbPais.EditValue;
end;
function TfEditorDireccionEntregaAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
index d680cb9..9bcaff7 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
@@ -20,7 +20,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
671)
object Label1: TLabel
Left = 412
- Top = 618
+ Top = 729
Width = 299
Height = 26
Caption =
@@ -30,7 +30,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object edtFechaAlbaran: TcxDBDateEdit
Left = 116
- Top = 22
+ Top = 82
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ALBARAN'
DataBinding.DataSource = DADataSource
@@ -56,7 +56,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object eReferencia: TcxDBTextEdit
Left = 116
- Top = -32
+ Top = 28
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = DADataSource
@@ -82,9 +82,9 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
Left = 412
- Top = -32
- Width = 442
- Height = 221
+ Top = 28
+ Width = 604
+ Height = 245
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@@ -94,12 +94,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 10
ReadOnly = False
ExplicitLeft = 412
- ExplicitTop = -32
- ExplicitWidth = 442
- ExplicitHeight = 221
+ ExplicitTop = 28
+ ExplicitWidth = 604
+ ExplicitHeight = 245
inherited dxLayoutControl1: TdxLayoutControl
- Width = 442
- Height = 221
+ Width = 604
+ Height = 245
ExplicitWidth = 442
ExplicitHeight = 221
inherited edtlNombre: TcxDBTextEdit
@@ -132,6 +132,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ExplicitWidth = 103
Width = 103
end
+ inherited edtIdioma: TcxDBTextEdit
+ ExplicitWidth = 371
+ Width = 371
+ end
end
inherited ActionList1: TActionList
Left = 306
@@ -142,7 +146,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object ePoblacion: TcxDBTextEdit
Left = 506
- Top = 392
+ Top = 476
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
@@ -161,7 +165,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object eCodigoPostal: TcxDBTextEdit
Left = 951
- Top = 392
+ Top = 476
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
@@ -180,7 +184,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object eProvincia: TcxDBTextEdit
Left = 506
- Top = 419
+ Top = 503
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
@@ -199,7 +203,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object ePersonaContacto: TcxDBTextEdit
Left = 506
- Top = 446
+ Top = 557
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
@@ -214,12 +218,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 18
+ TabOrder = 19
Width = 284
end
object eTlfTrabajo: TcxDBTextEdit
Left = 506
- Top = 473
+ Top = 584
DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
@@ -233,12 +237,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 19
+ TabOrder = 20
Width = 284
end
object Button1: TButton
Left = 250
- Top = 78
+ Top = 138
Width = 132
Height = 23
Action = actVerPedidoCli
@@ -246,7 +250,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object eReferenciaPedidoCli: TcxTextEdit
Left = 116
- Top = 78
+ Top = 138
Anchors = [akLeft, akTop, akRight]
Enabled = False
Properties.ReadOnly = False
@@ -269,7 +273,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object cbFormaPago: TcxDBLookupComboBox
Left = 116
- Top = 49
+ Top = 109
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
@@ -300,7 +304,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object bFormasPago: TButton
Left = 250
- Top = 49
+ Top = 109
Width = 132
Height = 23
Caption = 'Ver las formas de pago...'
@@ -309,7 +313,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object eFechaRecepcion: TcxDBDateEdit
Left = 546
- Top = 279
+ Top = 363
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION'
DataBinding.DataSource = DADataSource
@@ -334,16 +338,16 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object cbConAlmacen: TCheckBox
Left = 422
- Top = 586
+ Top = 697
Width = 179
Height = 21
Caption = 'Asociar este albar'#225'n al almac'#233'n:'
- TabOrder = 21
+ TabOrder = 22
OnClick = cbConAlmacenClick
end
object cbAlmacen: TcxDBLookupComboBox
Left = 607
- Top = 586
+ Top = 697
DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID'
@@ -368,12 +372,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 22
+ TabOrder = 23
Width = 586
end
object eRefFacturaCli: TcxDBTextEdit
Left = 116
- Top = 107
+ Top = 167
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REF_FACTURA'
DataBinding.DataSource = DADataSource
@@ -399,7 +403,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object eFechaPrevista: TcxDBDateEdit
Left = 546
- Top = 225
+ Top = 309
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
DataBinding.DataSource = DADataSource
@@ -426,7 +430,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object eRefCliente: TcxDBTextEdit
Left = 116
- Top = -5
+ Top = 55
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_CLIENTE'
DataBinding.DataSource = DADataSource
@@ -450,7 +454,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object eFechaEnvio: TcxDBDateEdit
Left = 546
- Top = 252
+ Top = 336
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource
@@ -475,7 +479,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
inline frViewTienda1: TfrViewTienda
Left = 22
- Top = 164
+ Top = 224
Width = 373
Height = 41
Enabled = False
@@ -488,7 +492,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 8
ReadOnly = False
ExplicitLeft = 22
- ExplicitTop = 164
+ ExplicitTop = 224
ExplicitWidth = 373
inherited dxLayoutControl1: TdxLayoutControl
Width = 373
@@ -501,7 +505,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 22
- Top = 241
+ Top = 301
Width = 521
Height = 228
Font.Charset = DEFAULT_CHARSET
@@ -513,7 +517,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 9
ReadOnly = False
ExplicitLeft = 22
- ExplicitTop = 241
+ ExplicitTop = 301
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
@@ -524,7 +528,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object eCalle: TcxDBMemo
Left = 506
- Top = 336
+ Top = 420
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource
@@ -546,7 +550,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object eNotasEnvio: TcxDBMemo
Left = 506
- Top = 500
+ Top = 611
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'NOTAS_ENVIO'
DataBinding.DataSource = DADataSource
@@ -562,10 +566,39 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 20
+ TabOrder = 21
Height = 50
Width = 510
end
+ object cbPais: TcxDBComboBox
+ Left = 506
+ Top = 530
+ DataBinding.DataField = 'PAIS'
+ DataBinding.DataSource = DADataSource
+ Properties.DropDownListStyle = lsEditFixedList
+ Properties.ImmediatePost = True
+ Properties.ImmediateUpdateText = True
+ Properties.PostPopupValueOnTab = True
+ Properties.OnInitPopup = cbPaisPropertiesInitPopup
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ Style.LookAndFeel.SkinName = ''
+ Style.ButtonStyle = bts3D
+ Style.PopupBorderStyle = epbsFrame3D
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.SkinName = ''
+ TabOrder = 18
+ Width = 772
+ end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -755,10 +788,20 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ControlOptions.ShowBorder = False
end
end
- object dxLayoutControl1Item11: TdxLayoutItem
- Caption = 'Provincia:'
- Control = eProvincia
- ControlOptions.ShowBorder = False
+ object dxLayoutControl1Group16: TdxLayoutGroup
+ ShowCaption = False
+ Hidden = True
+ ShowBorder = False
+ object dxLayoutControl1Item11: TdxLayoutItem
+ Caption = 'Provincia:'
+ Control = eProvincia
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item25: TdxLayoutItem
+ Caption = 'Pa'#237's:'
+ Control = cbPais
+ ControlOptions.ShowBorder = False
+ end
end
object dxLayoutControl1Item12: TdxLayoutItem
Caption = 'Pers. de contacto:'
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
index 1061048..344f289 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
@@ -102,6 +102,9 @@ type
eCalle: TcxDBMemo;
dxLayoutControl1Item8: TdxLayoutItem;
eNotasEnvio: TcxDBMemo;
+ dxLayoutControl1Item25: TdxLayoutItem;
+ cbPais: TcxDBComboBox;
+ dxLayoutControl1Group16: TdxLayoutGroup;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure actVerPedidoCliExecute(Sender: TObject);
@@ -120,6 +123,11 @@ type
procedure frViewClienteAlbaranButton2Click(Sender: TObject);
procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject);
procedure actModificarDireccionExecute(Sender: TObject);
+ procedure cbPaisPropertiesInitPopup(Sender: TObject);
+
+ private
+ FPaises : TStringList;
+ procedure CargarPaises;
protected
FAlbaran : IBizAlbaranCliente;
@@ -150,7 +158,7 @@ implementation
uses
uClientesController, uBizDireccionesContacto,
schAlbaranesClienteClient_Intf, uBizAlmacenes, uDateUtils,
- uDialogUtils, uFactuGES_App;
+ uDialogUtils, uFactuGES_App, uProvinciasPoblacionesController;
procedure TfrViewAlbaranCliente.actModificarDireccionExecute(Sender: TObject);
@@ -179,6 +187,30 @@ begin
FFormasPagoController.VerTodos(FFormasPago);
end;
+procedure TfrViewAlbaranCliente.CargarPaises;
+var
+ i : integer;
+begin
+ with TProvinciasPoblacionesController.Create do
+ try
+ FPaises := DarListaPaises;
+
+ with cbPais.Properties.Items do
+ begin
+ BeginUpdate;
+ try
+ Clear;
+ for i := 0 to FPaises.Count - 1 do
+ Add(FPaises.Names[i]);
+ finally
+ EndUpdate;
+ end;
+ end;
+ finally
+ Free;
+ end;
+end;
+
procedure TfrViewAlbaranCliente.cbConAlmacenClick(Sender: TObject);
begin
inherited;
@@ -198,6 +230,17 @@ begin
end;
end;
+procedure TfrViewAlbaranCliente.cbPaisPropertiesInitPopup(Sender: TObject);
+begin
+ ShowHourglassCursor;
+ try
+ if not Assigned(FPaises) then
+ CargarPaises;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
procedure TfrViewAlbaranCliente.CustomViewCreate(Sender: TObject);
begin
inherited;
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
index d8a4881..efe8bcd 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
@@ -121,6 +121,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Width = 45
end
object cxGridViewREF_FACTURA: TcxGridDBColumn
+ Caption = 'Factura proforma'
DataBinding.FieldName = 'REF_FACTURA'
BestFitMaxWidth = 45
Width = 61
@@ -192,6 +193,14 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
+ object cxGridViewPAIS: TcxGridDBColumn
+ Caption = 'Pa'#237's'
+ DataBinding.FieldName = 'PAIS'
+ end
+ object cxGridViewIDIOMA: TcxGridDBColumn
+ Caption = 'Idioma'
+ DataBinding.FieldName = 'IDIOMA'
+ end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todos'
@@ -256,6 +265,8 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 419
+ ExplicitWidth = 250
+ Width = 250
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 cbd9c72..7d61071 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
@@ -63,6 +63,8 @@ type
cxGridViewIMPORTE_NETO: TcxGridDBColumn;
cxGridViewDESCUENTO: TcxGridDBColumn;
cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn;
+ cxGridViewPAIS: TcxGridDBColumn;
+ cxGridViewIDIOMA: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.dfm
index 28ef04b..7236639 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.dfm
@@ -17,8 +17,6 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
- ExplicitWidth = 579
- ExplicitHeight = 220
DesignSize = (
598
299)
@@ -156,12 +154,12 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
end
object bVerFichaCliente: TBitBtn
Left = 396
- Top = 181
+ Top = 208
Width = 192
Height = 25
Action = actVerContacto
Caption = 'Ver ficha completa del cliente...'
- TabOrder = 8
+ TabOrder = 9
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
@@ -265,6 +263,28 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
Height = 21
Width = 103
end
+ object edtIdioma: TcxDBTextEdit
+ Left = 66
+ Top = 181
+ Anchors = [akLeft, akTop, akRight]
+ AutoSize = False
+ DataBinding.DataField = 'IDIOMA'
+ DataBinding.DataSource = dsCliente
+ ParentFont = False
+ Properties.ReadOnly = True
+ Properties.UseLeftAlignmentOnEditing = False
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 8
+ Height = 21
+ Width = 371
+ end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -347,6 +367,11 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
Control = edtTelefonos
ControlOptions.ShowBorder = False
end
+ object dxLayoutControl1Item3: TdxLayoutItem
+ Caption = 'Idioma:'
+ Control = edtIdioma
+ ControlOptions.ShowBorder = False
+ end
end
object dxLayoutControl1Item9: TdxLayoutItem
AutoAligns = [aaVertical]
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas b/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas
index 3bffc26..203906e 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas
@@ -73,6 +73,8 @@ type
edtReferencia: TcxDBTextEdit;
dxLayoutControl1Group6: TdxLayoutGroup;
dxLayoutControl1Group3: TdxLayoutGroup;
+ dxLayoutControl1Item3: TdxLayoutItem;
+ edtIdioma: TcxDBTextEdit;
procedure actElegirContactoExecute(Sender: TObject);
procedure actAnadirContactoExecute(Sender: TObject);
procedure actVerContactoUpdate(Sender: TObject);
@@ -186,6 +188,7 @@ begin
edtDireccion.Enabled := False;
edtReferencia.Enabled := False;
edtTelefonos.Enabled := False;
+ edtIdioma.Enabled := False;
end;
destructor TfrViewDatosYSeleccionClienteAlbaran.Destroy;
@@ -246,6 +249,7 @@ begin
POBLACION := ADireccion.POBLACION;
CODIGO_POSTAL := ADireccion.CODIGO_POSTAL;
PROVINCIA := ADireccion.PROVINCIA;
+ PAIS := ADireccion.PAIS;
PERSONA_CONTACTO := ADireccion.PERSONA_CONTACTO;
TELEFONO := ADireccion.TELEFONO;
MOVIL := ADireccion.MOVIL;
@@ -264,8 +268,9 @@ begin
ACadena := '';
if Assigned(FAlbaran) then
- ACadena := Format('%s %s %s %s',
- [FAlbaran.CLIENTE.CALLE, FAlbaran.CLIENTE.POBLACION, FAlbaran.CLIENTE.CODIGO_POSTAL, FAlbaran.CLIENTE.PROVINCIA]);
+ ACadena := Format('%s %s %s %s %s',
+ [FAlbaran.CLIENTE.CALLE, FAlbaran.CLIENTE.POBLACION, FAlbaran.CLIENTE.CODIGO_POSTAL,
+ FAlbaran.CLIENTE.PROVINCIA, FAlbaran.CLIENTE.PAIS]);
edtDireccion.Text := ACadena;
end;
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.dfm
index 8db9dfa..0c52035 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.dfm
@@ -1,22 +1,22 @@
inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCliente
Width = 846
- Height = 157
+ Height = 188
ExplicitWidth = 846
- ExplicitHeight = 157
+ ExplicitHeight = 188
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 846
- Height = 157
+ Height = 188
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
- ExplicitHeight = 266
+ ExplicitHeight = 157
DesignSize = (
846
- 157)
+ 188)
object ePoblacion: TcxDBTextEdit
Left = 64
Top = 66
@@ -76,7 +76,7 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
end
object eTlfTrabajo: TcxDBTextEdit
Left = 714
- Top = 120
+ Top = 147
DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame
@@ -90,12 +90,12 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 5
+ TabOrder = 6
Width = 122
end
object ePersonaContacto: TcxDBTextEdit
Left = 64
- Top = 120
+ Top = 147
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame
@@ -110,7 +110,7 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 4
+ TabOrder = 5
Width = 281
end
object eCalle: TcxDBMemo
@@ -135,6 +135,34 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
Height = 50
Width = 886
end
+ object cbPais: TcxDBComboBox
+ Left = 64
+ Top = 120
+ DataBinding.DataField = 'PAIS'
+ Properties.DropDownListStyle = lsEditFixedList
+ Properties.ImmediatePost = True
+ Properties.ImmediateUpdateText = True
+ Properties.PostPopupValueOnTab = True
+ Properties.OnInitPopup = cbPaisPropertiesInitPopup
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ Style.LookAndFeel.SkinName = ''
+ Style.ButtonStyle = bts3D
+ Style.PopupBorderStyle = epbsFrame3D
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.SkinName = ''
+ TabOrder = 4
+ Width = 211
+ end
object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -177,6 +205,11 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
Control = eProvincia
ControlOptions.ShowBorder = False
end
+ object dxLayoutControl1Item1: TdxLayoutItem
+ Caption = 'Pa'#237's:'
+ Control = cbPais
+ ControlOptions.ShowBorder = False
+ end
end
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.pas
index 29e12b3..b99d9bf 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.pas
@@ -39,11 +39,20 @@ type
dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Item7: TdxLayoutItem;
eCalle: TcxDBMemo;
+ dxLayoutControl1Item1: TdxLayoutItem;
+ cbPais: TcxDBComboBox;
+ procedure cbPaisPropertiesInitPopup(Sender: TObject);
+
+ private
+ FPaises : TStringList;
+ procedure CargarPaises;
+
protected
FAlbaran : IBizAlbaranCliente;
FController : IAlbaranesClienteController;
function GetAlbaranCliente: IBizAlbaranCliente;
procedure SetAlbaranCliente(const Value: IBizAlbaranCliente);
+
public
property AlbaranCliente: IBizAlbaranCliente read GetAlbaranCliente write SetAlbaranCliente;
constructor Create(AOwner: TComponent); override;
@@ -55,7 +64,43 @@ implementation
{$R *.dfm}
uses
- uEditorRegistryUtils;
+ uEditorRegistryUtils, uProvinciasPoblacionesController;
+
+procedure TfrViewDireccionEntregaAlbaranCliente.CargarPaises;
+var
+ i : integer;
+begin
+ with TProvinciasPoblacionesController.Create do
+ try
+ FPaises := DarListaPaises;
+
+ with cbPais.Properties.Items do
+ begin
+ BeginUpdate;
+ try
+ Clear;
+ for i := 0 to FPaises.Count - 1 do
+ Add(FPaises.Names[i]);
+ finally
+ EndUpdate;
+ end;
+ end;
+ finally
+ Free;
+ end;
+end;
+
+procedure TfrViewDireccionEntregaAlbaranCliente.cbPaisPropertiesInitPopup(
+ Sender: TObject);
+begin
+ ShowHourglassCursor;
+ try
+ if not Assigned(FPaises) then
+ CargarPaises;
+ finally
+ HideHourglassCursor;
+ end;
+end;
constructor TfrViewDireccionEntregaAlbaranCliente.Create(AOwner: TComponent);
begin
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
index 31eb521..efd67c3 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
+++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
@@ -705,6 +705,7 @@ begin
AAlbaran.POBLACION := ADireccionEnvio.POBLACION;
AAlbaran.CODIGO_POSTAL := ADireccionEnvio.CODIGO_POSTAL;
AAlbaran.PROVINCIA := ADireccionEnvio.PROVINCIA;
+// AAlbaran.PAIS := ADireccionEnvio.PAIS;
AAlbaran.TELEFONO := ADireccionEnvio.TELEFONO;
AAlbaran.PERSONA_CONTACTO := ADireccionEnvio.PERSONA_CONTACTO;
@@ -1289,6 +1290,7 @@ begin
AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorPOBLACION).Clear;
AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorCODIGO_POSTAL).Clear;
AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorPROVINCIA).Clear;
+// AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorPAIS).Clear;
AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorTELEFONO).Clear;
AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorPERSONA_CONTACTO).Clear;
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewElegirArticulosAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewElegirArticulosAlbaranesProveedor.dfm
index 681eae6..12c2adc 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewElegirArticulosAlbaranesProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewElegirArticulosAlbaranesProveedor.dfm
@@ -6,6 +6,9 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
Height = 286
ExplicitHeight = 286
inherited cxGridView: TcxGridDBTableView
+ inherited cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn
+ Visible = True
+ end
inherited cxGridViewPRECIO_COSTE: TcxGridDBColumn
Caption = 'Precio material'
Properties.DecimalPlaces = 4
@@ -43,9 +46,6 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
inherited cxGridLevel2: TcxGridLevel
Visible = False
end
- inherited cxGridLevel3: TcxGridLevel
- Caption = 'COMPRAS'
- end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas
index 7586b85..7bb0f9e 100644
--- a/Source/Modulos/Articulos/Controller/uArticulosController.pas
+++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas
@@ -47,6 +47,7 @@ type
function GetPrecioPunto: Currency;
property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
procedure AsignarTarifa(AArticulos: IBizArticulo);
+ procedure Comisionable(AArticulos: IBizArticulo; Valor: Integer);
end;
TArticulosController = class(TControllerBase, IArticulosController)
@@ -105,8 +106,9 @@ type
procedure VerProveedor(AArticulo : IBizArticulo);
procedure AsignarTarifa(AArticulos: IBizArticulo);
+ procedure Comisionable(AArticulos: IBizArticulo; Valor: Integer);
- property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
+ property PrecioPunto : Currency read GetPrecioPunto write SetPrecioPunto;
end;
implementation
@@ -376,6 +378,28 @@ begin
end;
end;
+procedure TArticulosController.Comisionable(AArticulos: IBizArticulo; Valor: Integer);
+begin
+ if Assigned(AArticulos) then
+ begin
+ //Asignamos en articulo
+ with AArticulos.DataTable do
+ begin
+ First;
+ while not EOF do
+ begin
+ begin
+ Edit;
+ AArticulos.COMISIONABLE := Valor;
+ Post;
+ end;
+ Next;
+ end;
+ ApplyUpdates;
+ end;
+ end;
+end;
+
constructor TArticulosController.Create;
begin
inherited;
diff --git a/Source/Modulos/Articulos/Views/uEditorArticulos.dfm b/Source/Modulos/Articulos/Views/uEditorArticulos.dfm
index bab4347..9e27ec4 100644
--- a/Source/Modulos/Articulos/Views/uEditorArticulos.dfm
+++ b/Source/Modulos/Articulos/Views/uEditorArticulos.dfm
@@ -43,11 +43,22 @@ inherited fEditorArticulos: TfEditorArticulos
DockPos = 275
Visible = True
ExplicitLeft = 406
- ExplicitWidth = 117
+ ExplicitWidth = 137
object TBXItem38: TTBXItem
Action = actAsignarTarifa
DisplayMode = nbdmImageAndText
- ImageIndex = 25
+ end
+ object TBXSeparatorItem17: TTBXSeparatorItem
+ end
+ object TBXItem39: TTBXItem
+ Action = actNoComisionable
+ DisplayMode = nbdmImageAndText
+ end
+ object TBXSeparatorItem18: TTBXSeparatorItem
+ end
+ object TBXItem40: TTBXItem
+ Action = actComisionable
+ DisplayMode = nbdmImageAndText
end
end
end
@@ -68,9 +79,22 @@ inherited fEditorArticulos: TfEditorArticulos
end
object actAsignarTarifa: TAction
Caption = 'Asignar tarifa'
+ ImageIndex = 25
OnExecute = actAsignarTarifaExecute
OnUpdate = actAsignarTarifaUpdate
end
+ object actNoComisionable: TAction
+ Caption = 'No comisionable'
+ ImageIndex = 26
+ OnExecute = actNoComisionableExecute
+ OnUpdate = actNoComisionableUpdate
+ end
+ object actComisionable: TAction
+ Caption = 'Comisionable'
+ ImageIndex = 27
+ OnExecute = actComisionableExecute
+ OnUpdate = actComisionableUpdate
+ end
end
inherited SmallImages: TPngImageList
PngImages = <
@@ -741,6 +765,50 @@ inherited fEditorArticulos: TfEditorArticulos
0049454E44AE426082}
Name = 'PngImage25'
Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000010000000100803000000282D0F
+ 530000001974455874536F6674776172650041646F626520496D616765526561
+ 647971C9653C000000C9504C5445BFBFBF6F6F6F4F4F4FAFAFAF3F3F3FEFEFEF
+ F7ECEC4B4B4B000000DA2000B01007D3250EA82A2AE74E33F5E7E7968785D01B
+ 04EACBCBC039298F8F8FC41C08E9BCB9D07B78D65B4BE18D85F3E3E3A7A3A7E9
+ E8E92D0706A80D079F1500E5CFCED48987DFDFDFA51F1F636363ABABABBB3028
+ D08180AD2E2DD18988F5E8E8C83F33B51B12BA3824CC220DBF1200FDFBFBF3F4
+ F34B514BCD220DC01502EC5A445A3C39C01603C3C3C3F2DEDEBD5C5CD3D1D3E5
+ C0C0716666F83408C26969D28380E8573BBA3731FFFFFF2C2D387A0000004374
+ 524E53FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+ FFFFFFFFFF00416204EF0000009F4944415478DA63746240058C9802FB9818FE
+ 3931DC7CE60813D80F147064B8F1CA0E2670EC2F03B3D53BC60F8A282A1E3DB0
+ 4335E3E84F27145BBE9EB583980D13D8CF64FF4AE4FC27C7CBA2A260811F67AD
+ 19EEC85FE0FFF38749122CF0F0833EC3AF6BDF9934DE2A41B41C62B465D8677A
+ 5BEE2F2F17C2E9777FC8BFFFC105D502029F7E8A1C357DFE8A172EF0E106BB21
+ C3116356B8C01326291075060052053EBADF40E4040000000049454E44AE4260
+ 82}
+ Name = 'PngImage26'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D4948445200000010000000100803000000282D0F
+ 530000001974455874536F6674776172650041646F626520496D616765526561
+ 647971C9653C000000A5504C54456F6F6FAFAFAFBFBFBF4F4F4FEFEFEF3F3F3F
+ 0000004B4B4BFEFCFDE29B94F3F4F3E6A49DF6E8E78F8F8FD57367ECC4C15121
+ 1BC3C3C3D89693ABABABFBF6F6D1402CD55544D03B27C70900E48C7FD4503DA7
+ A3A7D44431D24734DA6757EFC0BADB7C71E1978DF3CCC7D34C39CB1D04DFDFDF
+ D3D1D3C09D99F1C7C28F7B79EFC4BFEEB8B2E9E8E9A18B89DEA5A1F2E2E3D869
+ 5AF7F4F54B514B636363EFC7C2FEFBFAFFFFFF5941A1600000003774524E53FF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0010599D8B000000944944
+ 415478DA63346340058C9802671819FE9B307CBB620613380514306378FACA10
+ 2670E11F0393C1158DCF82282AEE7E324435E3E26F1310EFFF2D21882DB7BF18
+ 82C5BF7C1381089C623405E9D466FDC10716F8F0509F0168360F17AB38C4617F
+ 6F69BE61BFA1F6ED9D36D4A5E7FF1B3D63E2FFF65A9915E1F4C7DC9FFE7FD742
+ F2CBCF178C621CC89EBBC4C8C9A484D5B70099B2395A84FFCF76000000004945
+ 4E44AE426082}
+ Name = 'PngImage27'
+ Background = clWindow
end>
Bitmap = {}
end
diff --git a/Source/Modulos/Articulos/Views/uEditorArticulos.pas b/Source/Modulos/Articulos/Views/uEditorArticulos.pas
index 467d6e7..b9a45c3 100644
--- a/Source/Modulos/Articulos/Views/uEditorArticulos.pas
+++ b/Source/Modulos/Articulos/Views/uEditorArticulos.pas
@@ -19,11 +19,21 @@ type
actFamilias: TAction;
actAsignarTarifa: TAction;
TBXItem38: TTBXItem;
+ actNoComisionable: TAction;
+ TBXSeparatorItem17: TTBXSeparatorItem;
+ TBXItem39: TTBXItem;
+ actComisionable: TAction;
+ TBXSeparatorItem18: TTBXSeparatorItem;
+ TBXItem40: TTBXItem;
procedure FormShow(Sender: TObject);
procedure actFamiliasExecute(Sender: TObject);
procedure actAsignarTarifaExecute(Sender: TObject);
procedure actAsignarTarifaUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
+ procedure actNoComisionableExecute(Sender: TObject);
+ procedure actNoComisionableUpdate(Sender: TObject);
+ procedure actComisionableExecute(Sender: TObject);
+ procedure actComisionableUpdate(Sender: TObject);
private
FArticulos: IBizArticulo;
FController : IArticulosController;
@@ -200,6 +210,38 @@ begin
(Sender as TAction).Enabled := False;
end;
+procedure TfEditorArticulos.actComisionableExecute(Sender: TObject);
+var
+ AArticulos: IBizArticulo;
+ i: integer;
+
+begin
+ inherited;
+
+ ViewGrid.SaveGridStatus;
+ try
+ SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Articulos as ISeleccionable).SelectedRecords);
+ AArticulos := (Controller as IArticulosController).ExtraerSeleccionados(Articulos) as IBizArticulo;
+ Controller.Comisionable(AArticulos, 1);
+ finally
+ ViewGrid.RestoreGridStatus;
+ end;
+
+ if (AArticulos.DataTable.RecordCount > 0) then
+ RefrescarInterno;
+end;
+
+procedure TfEditorArticulos.actComisionableUpdate(Sender: TObject);
+begin
+ inherited;
+ if HayDatos and Assigned(ViewGrid) then
+ (Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
+ and ViewGrid.esSeleccionCeldaDatos
+ and (ViewGrid.NumSeleccionados > 0)
+ else
+ (Sender as TAction).Enabled := False;
+end;
+
procedure TfEditorArticulos.actEliminarUpdate(Sender: TObject);
begin
inherited;
@@ -223,6 +265,38 @@ begin
end;
end;
+procedure TfEditorArticulos.actNoComisionableExecute(Sender: TObject);
+var
+ AArticulos: IBizArticulo;
+ i: integer;
+
+begin
+ inherited;
+
+ ViewGrid.SaveGridStatus;
+ try
+ SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Articulos as ISeleccionable).SelectedRecords);
+ AArticulos := (Controller as IArticulosController).ExtraerSeleccionados(Articulos) as IBizArticulo;
+ Controller.Comisionable(AArticulos, 0);
+ finally
+ ViewGrid.RestoreGridStatus;
+ end;
+
+ if (AArticulos.DataTable.RecordCount > 0) then
+ RefrescarInterno;
+end;
+
+procedure TfEditorArticulos.actNoComisionableUpdate(Sender: TObject);
+begin
+ inherited;
+ if HayDatos and Assigned(ViewGrid) then
+ (Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
+ and ViewGrid.esSeleccionCeldaDatos
+ and (ViewGrid.NumSeleccionados > 0)
+ else
+ (Sender as TAction).Enabled := False;
+end;
+
procedure TfEditorArticulos.AsignarVista;
begin
ViewGrid := CreateView(TfrViewArticulos) as IViewArticulos;
diff --git a/Source/Modulos/Articulos/Views/uViewArticulo.dfm b/Source/Modulos/Articulos/Views/uViewArticulo.dfm
index 06a39c1..388f46e 100644
--- a/Source/Modulos/Articulos/Views/uViewArticulo.dfm
+++ b/Source/Modulos/Articulos/Views/uViewArticulo.dfm
@@ -1,6 +1,6 @@
inherited frViewArticulo: TfrViewArticulo
- Width = 1088
- Height = 588
+ Width = 1437
+ Height = 333
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@@ -10,19 +10,19 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticulo: TdxLayoutControl
Left = 0
Top = 0
- Width = 1088
- Height = 481
+ Width = 1437
+ Height = 833
Align = alTop
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth]
- ExplicitWidth = 451
+ ExplicitWidth = 832
DesignSize = (
- 1088
- 481)
+ 1437
+ 833)
object PngSpeedButton2: TPngSpeedButton
- Left = 1024
+ Left = 1373
Top = 731
Width = 23
Height = 22
@@ -49,7 +49,7 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end
object PngSpeedButton1: TPngSpeedButton
- Left = 1024
+ Left = 1373
Top = 759
Width = 23
Height = 22
@@ -97,31 +97,6 @@ inherited frViewArticulo: TfrViewArticulo
TabOrder = 4
Width = 108
end
- object eNoComisionable: TcxDBCheckBox
- Left = 116
- Top = 331
- Caption = 'Art'#237'culo no comisionable'
- DataBinding.DataField = 'COMISIONABLE'
- DataBinding.DataSource = dsViewArticulo
- Enabled = False
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- Properties.ValueChecked = 0
- Properties.ValueUnchecked = 1
- Style.BorderColor = clWindowFrame
- Style.BorderStyle = ebs3D
- Style.HotTrack = False
- Style.LookAndFeel.Kind = lfStandard
- Style.LookAndFeel.NativeStyle = True
- StyleDisabled.LookAndFeel.Kind = lfStandard
- StyleDisabled.LookAndFeel.NativeStyle = True
- StyleFocused.LookAndFeel.Kind = lfStandard
- StyleFocused.LookAndFeel.NativeStyle = True
- StyleHot.LookAndFeel.Kind = lfStandard
- StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 12
- Width = 144
- end
object eImagen: TcxImage
Left = 22
Top = 731
@@ -202,12 +177,12 @@ inherited frViewArticulo: TfrViewArticulo
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
- Left = 933
- ExplicitLeft = 933
+ Left = 1282
+ ExplicitLeft = 1282
end
inherited Button3: TBitBtn
- Left = 817
- ExplicitLeft = 817
+ Left = 1166
+ ExplicitLeft = 1166
end
end
end
@@ -324,10 +299,10 @@ inherited frViewArticulo: TfrViewArticulo
object cbNoInventariable: TcxDBCheckBox
Left = 22
Top = 220
- Caption = 'Art'#237'culo no inventariable'
+ Caption = ' Art'#237'culo no inventariable'
DataBinding.DataField = 'INVENTARIABLE'
DataBinding.DataSource = dsViewArticulo
- Properties.Alignment = taRightJustify
+ Properties.Alignment = taLeftJustify
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 0
@@ -344,7 +319,7 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
- Width = 144
+ Width = 175
end
object ePrecioPVP: TcxDBCurrencyEdit
Left = 116
@@ -392,7 +367,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 448
end
object ePrecioPVP2: TcxCurrencyEdit
- Left = 407
+ Left = 438
Top = 193
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = False
@@ -427,7 +402,7 @@ inherited frViewArticulo: TfrViewArticulo
end
object eFabricante: TcxDBTextEdit
Left = 116
- Top = 247
+ Top = 274
DataBinding.DataField = 'FABRICANTE'
DataBinding.DataSource = dsViewArticulo
Style.BorderColor = clWindowFrame
@@ -442,31 +417,31 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 9
- Width = 664
- end
- object eReferenciaFab: TcxDBTextEdit
- Left = 644
- Top = 247
- DataBinding.DataField = 'REFERENCIA_FAB'
- DataBinding.DataSource = dsViewArticulo
- Style.BorderColor = clWindowFrame
- Style.BorderStyle = ebs3D
- Style.Color = 14745599
- Style.HotTrack = False
- Style.LookAndFeel.Kind = lfStandard
- Style.LookAndFeel.NativeStyle = True
- StyleDisabled.LookAndFeel.Kind = lfStandard
- StyleDisabled.LookAndFeel.NativeStyle = True
- StyleFocused.LookAndFeel.Kind = lfStandard
- StyleFocused.LookAndFeel.NativeStyle = True
- StyleHot.LookAndFeel.Kind = lfStandard
- StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
Width = 664
end
+ object eReferenciaFab: TcxDBTextEdit
+ Left = 817
+ Top = 274
+ DataBinding.DataField = 'REFERENCIA_FAB'
+ DataBinding.DataSource = dsViewArticulo
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = 14745599
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 11
+ Width = 664
+ end
object eStockmin: TcxDBSpinEdit
- Left = 242
+ Left = 273
Top = 220
DataBinding.DataField = 'STOCK_MIN'
DataBinding.DataSource = dsViewArticulo
@@ -493,7 +468,7 @@ inherited frViewArticulo: TfrViewArticulo
end
object cbUnidadMedida: TcxDBComboBox
Left = 116
- Top = 274
+ Top = 301
DataBinding.DataField = 'UNIDAD_MEDIDA'
DataBinding.DataSource = dsViewArticulo
Properties.DropDownRows = 16
@@ -512,9 +487,33 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 11
+ TabOrder = 12
Width = 420
end
+ object eNoComisionable: TcxDBCheckBox
+ Left = 22
+ Top = 247
+ Caption = ' Art'#237'culo no comisionable'
+ DataBinding.DataField = 'COMISIONABLE'
+ DataBinding.DataSource = dsViewArticulo
+ Properties.ImmediatePost = True
+ Properties.NullStyle = nssUnchecked
+ Properties.ValueChecked = 0
+ Properties.ValueUnchecked = 1
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 9
+ Width = 675
+ end
object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -572,39 +571,49 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticuloGroup6: TdxLayoutGroup
ShowCaption = False
Hidden = True
- LayoutDirection = ldHorizontal
ShowBorder = False
- object dxLayoutControlArticuloGroup8: TdxLayoutGroup
+ object dxLayoutControlArticuloGroup9: TdxLayoutGroup
ShowCaption = False
Hidden = True
+ LayoutDirection = ldHorizontal
ShowBorder = False
- object dxLayoutControlArticuloItem16: TdxLayoutItem
- Caption = 'Puntos:'
- Control = ePrecioCoste
- ControlOptions.ShowBorder = False
- end
- object dxLayoutControlArticuloGroup7: TdxLayoutGroup
+ object dxLayoutControlArticuloGroup8: TdxLayoutGroup
ShowCaption = False
Hidden = True
- LayoutDirection = ldHorizontal
ShowBorder = False
- object dxLayoutControlArticuloItem7: TdxLayoutItem
- AutoAligns = [aaVertical]
- Caption = ' '
- ShowCaption = False
- Control = cbNoInventariable
+ object dxLayoutControlArticuloItem16: TdxLayoutItem
+ Caption = 'Puntos:'
+ Control = ePrecioCoste
ControlOptions.ShowBorder = False
end
- object dxLayoutControlArticuloItem21: TdxLayoutItem
- Caption = 'Stock m'#237'nimo:'
- Control = eStockmin
- ControlOptions.ShowBorder = False
+ object dxLayoutControlArticuloGroup7: TdxLayoutGroup
+ ShowCaption = False
+ Hidden = True
+ LayoutDirection = ldHorizontal
+ ShowBorder = False
+ object dxLayoutControlArticuloItem7: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ Caption = ' '
+ ShowCaption = False
+ Control = cbNoInventariable
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControlArticuloItem21: TdxLayoutItem
+ Caption = 'Stock m'#237'nimo:'
+ Control = eStockmin
+ ControlOptions.ShowBorder = False
+ end
end
end
+ object dxLayoutControlArticuloItem11: TdxLayoutItem
+ Caption = 'Precio PVP:'
+ Control = ePrecioPVP2
+ ControlOptions.ShowBorder = False
+ end
end
- object dxLayoutControlArticuloItem11: TdxLayoutItem
- Caption = 'Precio PVP:'
- Control = ePrecioPVP2
+ object dxLayoutControlArticuloItem1: TdxLayoutItem
+ ShowCaption = False
+ Control = eNoComisionable
ControlOptions.ShowBorder = False
end
end
@@ -642,15 +651,6 @@ inherited frViewArticulo: TfrViewArticulo
Caption = 'Proveedor para el art'#237'culo'
Enabled = False
Visible = False
- object dxLayoutControlArticuloItem1: TdxLayoutItem
- AutoAligns = [aaVertical]
- AlignHorz = ahClient
- Caption = ' '
- Enabled = False
- Visible = False
- Control = eNoComisionable
- ControlOptions.ShowBorder = False
- end
object dxLayoutControlArticuloItem15: TdxLayoutItem
Caption = 'Ref. del prov:'
Enabled = False
diff --git a/Source/Modulos/Articulos/Views/uViewArticulo.pas b/Source/Modulos/Articulos/Views/uViewArticulo.pas
index 8556e67..bf23046 100644
--- a/Source/Modulos/Articulos/Views/uViewArticulo.pas
+++ b/Source/Modulos/Articulos/Views/uViewArticulo.pas
@@ -34,8 +34,6 @@ type
dxLayoutControlArticuloItem8: TdxLayoutItem;
eDescripcion: TcxDBTextEdit;
dxLayoutControlArticuloGroup2: TdxLayoutGroup;
- dxLayoutControlArticuloItem1: TdxLayoutItem;
- eNoComisionable: TcxDBCheckBox;
dxLayoutControlArticuloGroup4: TdxLayoutGroup;
OpenDialog1: TOpenDialog;
SmallImages: TPngImageList;
@@ -88,6 +86,9 @@ type
cbUnidadMedida: TcxDBComboBox;
dxLayoutControlArticuloGroup6: TdxLayoutGroup;
dxLayoutControlArticuloGroup10: TdxLayoutGroup;
+ dxLayoutControlArticuloItem1: TdxLayoutItem;
+ eNoComisionable: TcxDBCheckBox;
+ dxLayoutControlArticuloGroup9: TdxLayoutGroup;
procedure actEliminarExecute(Sender: TObject);
procedure actAnadirExecute(Sender: TObject);
procedure cbFamiliaPropertiesInitPopup(Sender: TObject);
diff --git a/Source/Modulos/Articulos/Views/uViewArticulos.dfm b/Source/Modulos/Articulos/Views/uViewArticulos.dfm
index 90e8b3a..4c30c14 100644
--- a/Source/Modulos/Articulos/Views/uViewArticulos.dfm
+++ b/Source/Modulos/Articulos/Views/uViewArticulos.dfm
@@ -68,19 +68,12 @@ inherited frViewArticulos: TfrViewArticulos
item
Description = 'No'
Value = 0
- end
- item
- Description = 'S'#237
- ImageIndex = 1
- Tag = 1
end>
Properties.PostPopupValueOnTab = True
Properties.ShowDescriptions = False
- Visible = False
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
- VisibleForCustomization = False
Width = 22
end
object cxGridViewREFERENCIA: TcxGridDBColumn
@@ -193,7 +186,7 @@ inherited frViewArticulos: TfrViewArticulos
end
object cxGridLevel1: TcxGridLevel
Tag = 1
- Caption = 'TARIFA 2020'
+ Caption = 'TARIFA 2023'
end
object cxGridLevel2: TcxGridLevel
Tag = 2
@@ -217,6 +210,8 @@ inherited frViewArticulos: TfrViewArticulos
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 250
+ Width = 250
end
inherited edtFechaIniFiltro: TcxDateEdit
Enabled = False
@@ -224,6 +219,8 @@ inherited frViewArticulos: TfrViewArticulos
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 250
+ Width = 250
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 511
@@ -233,6 +230,8 @@ inherited frViewArticulos: TfrViewArticulos
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 511
+ ExplicitWidth = 250
+ Width = 250
end
inherited txtFiltroTodo2: TcxTextEdit
Left = 511
@@ -241,6 +240,8 @@ inherited frViewArticulos: TfrViewArticulos
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 511
+ ExplicitWidth = 250
+ Width = 250
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup
diff --git a/Source/Modulos/Articulos/Views/uViewArticulos.pas b/Source/Modulos/Articulos/Views/uViewArticulos.pas
index 35c0652..23ba637 100644
--- a/Source/Modulos/Articulos/Views/uViewArticulos.pas
+++ b/Source/Modulos/Articulos/Views/uViewArticulos.pas
@@ -165,14 +165,14 @@ begin
FFiltro := AddFilterGrid(fboAnd);
case cxGrid.ActiveLevel.Index of
- 1 : FFiltro.AddItem(cxGridViewTARIFA, foEqual, 'TARIFA 2020', 'TARIFA 2020');
+ 1 : FFiltro.AddItem(cxGridViewTARIFA, foEqual, 'TARIFA 2023', 'TARIFA 2023');
2 : FFiltro.AddItem(cxGridViewTARIFA, foEqual, 'COMPRAS', 'COMPRAS');
3 : begin
FFiltro.AddItem(cxGridViewTARIFA, foNotEqual, NULL, 'ARTICULOS CON TARIFA ASIGNADA');
FFiltro := AddFilterGrid(fboAnd);
FFiltro.AddItem(cxGridViewTARIFA, foNotEqual, 'COMPRAS', 'OTRAS TARIFAS');
FFiltro := AddFilterGrid(fboAnd);
- FFiltro.AddItem(cxGridViewTARIFA, foNotEqual, 'TARIFA 2020', 'OTRAS TARIFAS');
+ FFiltro.AddItem(cxGridViewTARIFA, foNotEqual, 'TARIFA 2023', 'OTRAS TARIFAS');
end;
end;
end;
diff --git a/Source/Modulos/Comisiones/Controller/uComisionesController.pas b/Source/Modulos/Comisiones/Controller/uComisionesController.pas
index 317fee4..60fac2b 100644
--- a/Source/Modulos/Comisiones/Controller/uComisionesController.pas
+++ b/Source/Modulos/Comisiones/Controller/uComisionesController.pas
@@ -5,7 +5,7 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
- uIDataModuleComisiones, uBizComisiones; //, uFacturasClienteController, uBizFacturasCliente;
+ uIDataModuleComisiones, uBizComisiones, uBizFacturasCliente, uFacturasClienteController;
type
IComisionesController = interface(IControllerBase)
@@ -17,25 +17,27 @@ type
function Anadir(AComision : IBizComisiones): Boolean;
function Eliminar(AComision : IBizComisiones): Boolean;
function Guardar(AComision : IBizComisiones): Boolean;
- procedure Preview(AComision : IBizComisiones; AllItems: Boolean = false);
- procedure Print(AComision : IBizComisiones; AllItems: Boolean = false);
+ procedure DescartarCambios(AComision : IBizComisiones);
+ procedure Preview(AComision : IBizComisiones; AllItems: Boolean = false; AllDetails: Boolean = false);
+ procedure Print(AComision : IBizComisiones; AllItems: Boolean = false; AllDetails: Boolean = false);
function ExtraerSeleccionados(AComisiones: IBizComisiones) : IBizComisiones;
function ElegirFacturasComision(AComision : IBizComisiones): Boolean;
function ElegirVendedoresComision(AComision : IBizComisiones): Boolean;
procedure RecalcularComisiones(AComision : IBizComisiones; Const ImporteTotal: Variant);
+ procedure EliminarFactura(AComision : IBizComisiones);
procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant);
end;
TComisionesController = class(TControllerBase, IComisionesController)
private
-// function BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
+ function BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
// procedure QuitarExistentes(AFacturas: IBizFacturaCliente; AFacturasComision: IBizFacturasComision);
procedure FiltrarEmpresa(AComisiones: IBizComisiones);
protected
FDataModule : IDataModuleComisiones;
-// FFacturasClienteController: IFacturasClienteController;
+ FFacturasClienteController: IFacturasClienteController;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
@@ -49,17 +51,19 @@ type
function Eliminar(AComision : IBizComisiones): Boolean;
function Guardar(AComision : IBizComisiones): Boolean;
+ procedure DescartarCambios(AComision : IBizComisiones);
function Anadir(AComision : IBizComisiones): Boolean;
function BuscarTodos: IBizComisiones;
function Buscar(const ID: Integer): IBizComisiones;
procedure VerTodos(AComision: IBizComisiones);
procedure Ver(AComision: IBizComisiones);
- procedure Preview(AComision : IBizComisiones; AllItems: Boolean = false);
- procedure Print(AComision : IBizComisiones; AllItems: Boolean = false);
+ procedure Preview(AComision : IBizComisiones; AllItems: Boolean = false; AllDetails: Boolean = false);
+ procedure Print(AComision : IBizComisiones; AllItems: Boolean = false; AllDetails: Boolean = false);
function ExtraerSeleccionados(AComisiones: IBizComisiones) : IBizComisiones;
function ElegirFacturasComision(AComision : IBizComisiones): Boolean;
function ElegirVendedoresComision(AComision : IBizComisiones): Boolean;
procedure RecalcularComisiones(AComision : IBizComisiones; Const ImporteTotal: Variant);
+ procedure EliminarFactura(AComision : IBizComisiones);
procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant);
end;
@@ -71,7 +75,7 @@ uses
uDAInterfaces, uDataTableUtils, uIEditorComision, uComisionesReportController,
uDateUtils, uROTypes, DateUtils, Controls, Windows, uDialogUtils, uNumUtils,
- uBizContactos, uVendedoresController, uBizFacturasCliente, uFacturasClienteController;
+ uBizContactos, uVendedoresController;
{ TComisionesController }
@@ -199,40 +203,42 @@ begin
end;
end;
-{
function TComisionesController.BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
var
- Cadena: String;
+ Condicion: TDAWhereExpression;
+ AArray : Array of TDAWhereExpression;
+ i: Integer;
+
begin
- if Assigned(AFacturas) then
+ Result := FDataModule.GetFacturasDesglosadas;
+ with Result.DataTable.DynamicWhere do
begin
- with AFacturas.DataTable do
+ //Solo sacaremos las facturas elegidas y pasadas por parámetro
+ if Assigned(AFacturas) then
begin
- if not Active then Active := True;
- First;
- Cadena := '';
- While not Eof do
+ with AFacturas.DataTable do
begin
- if (Length(Cadena) > 0) then
- Cadena := Cadena + ', ';
- Cadena := Cadena + IntToStr(AFacturas.ID);
- Next;
+ if not Active then Active := True;
+ SetLength(AArray, AFacturas.DataTable.RecordCount);
+ First;
+ i := 0;
+ While not Eof do
+ begin
+ AArray[i] := NewConstant(AFacturas.ID, datInteger);
+ Next;
+ Inc(i);
+ end;
end;
end;
- end;
-// Showmessage(Cadena);
- Result := FDataModule.GetFacturasDesglosadas;
- with Result.DataTable.Where do
- begin
- if NotEmpty then
- AddOperator(opAND);
- OpenBraket;
- AddText('ID_FACTURA in (' + Cadena + ')');
- CloseBraket;
+ Condicion := NewBinaryExpression(NewField('', fld_Facturas_ComisionID_FACTURA), NewList(AArray), dboIn);
+
+ if IsEmpty then
+ Expression := Condicion
+ else
+ Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
-}
function TComisionesController.Buscar(const ID: Integer): IBizComisiones;
begin
@@ -250,7 +256,7 @@ constructor TComisionesController.Create;
begin
inherited;
AsignarDataModule;
-// FFacturasClienteController := TFacturasClienteController.Create;
+ FFacturasClienteController := TFacturasClienteController.Create;
end;
function TComisionesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
@@ -258,9 +264,25 @@ begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
+procedure TComisionesController.DescartarCambios(AComision: IBizComisiones);
+begin
+ if not Assigned(AComision) then
+ raise Exception.Create ('Almacen no asignado');
+
+ ShowHourglassCursor;
+ try
+ if (AComision.State in dsEditModes) then
+ AComision.Cancel;
+
+ AComision.DataTable.CancelUpdates;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
destructor TComisionesController.Destroy;
begin
-// FFacturasClienteController := Nil;
+ FFacturasClienteController := Nil;
FDataModule := Nil;
inherited;
end;
@@ -281,11 +303,11 @@ begin
if (AComision.Facturas.DataTable.State in dsEditModes) then
AComision.Facturas.DataTable.Post;
- if (AComision.Vendedores.DataTable.State in dsEditModes) then
- AComision.Vendedores.DataTable.Post;
+// if (AComision.Vendedores.DataTable.State in dsEditModes) then
+// AComision.Vendedores.DataTable.Post;
-// if AComision.DataTable.FieldByName(fld_ComisionesID_AGENTE).IsNull then
-// raise Exception.Create('Debe indicar el agente de esta liquidación de comisiones.');
+ if AComision.DataTable.FieldByName(fld_ComisionesID_AGENTE).IsNull then
+ raise Exception.Create('Debe indicar el agente de esta liquidación de comisiones.');
if AComision.DataTable.FieldByName(fld_ComisionesFECHA).IsNull then
raise Exception.Create('Debe indicar la fecha de esta liquidación de comisiones.');
@@ -342,49 +364,59 @@ function TComisionesController.ElegirFacturasComision(AComision: IBizComisiones)
var
AFacturasSeleccionadas : IBizFacturaCliente;
AFacturasController: IFacturasClienteController;
+ AFacturasDesglosadas: IBizFacturasComision;
Cadena: TStringList;
begin
Result := False;
- if Assigned(AComision.Facturas) then
+ if (AComision.ID_AGENTE <> 0) then
begin
- //Recogemos los id de las facturas que ya tiene asociada la liquidación
- with AComision.Facturas.DataTable do
+
+ if Assigned(AComision.Facturas) then
begin
- if not Active then Active := True;
- First;
- Cadena := TStringList.Create;
- While not Eof do
+ //Recogemos los id de las facturas que ya tiene asociada la liquidación
+ with AComision.Facturas.DataTable do
begin
- Cadena.Add(IntToStr(AComision.Facturas.ID));
- Next;
- end;
- end;
-
- AFacturasController := TFacturasClienteController.Create;
- try
- AFacturasSeleccionadas := AFacturasController.BuscarTodasPendientesComision(AComision.ID_AGENTE, AComision.ID, Cadena.CommaText);
- AFacturasSeleccionadas := (AFacturasController.ElegirFacturas(AFacturasSeleccionadas, 'Elija uno o más facturas para incluirlos en esta liquidación de comisiones', True) as IBizFacturaCliente);
-
- if Assigned(AFacturasSeleccionadas) then
- begin
- ShowHourglassCursor;
- try
- //Copia las facturas desglosadas de las facturas seleccionadas
- DuplicarRegistros(AFacturasSeleccionadas.DataTable, AComision.Facturas.DataTable, mdrTodos, True, True, True);
- Result := True;
- finally
- HideHourglassCursor;
+ if not Active then Active := True;
+ First;
+ Cadena := TStringList.Create;
+ While not Eof do
+ begin
+ Cadena.Add(IntToStr(AComision.Facturas.ID_FACTURA));
+ Next;
end;
end;
- finally
- Cadena.Free;
- AFacturasController := Nil;
- AFacturasSeleccionadas := Nil;
+ AFacturasController := TFacturasClienteController.Create;
+ try
+ AFacturasSeleccionadas := AFacturasController.BuscarTodasPendientesComision(AComision.ID_AGENTE, AComision.ID, Cadena.CommaText);
+ AFacturasSeleccionadas := (AFacturasController.ElegirFacturas(AFacturasSeleccionadas, 'Elija uno o más facturas para incluirlos en esta liquidación de comisiones', True) as IBizFacturaCliente);
+
+ if Assigned(AFacturasSeleccionadas) then
+ begin
+ ShowHourglassCursor;
+ try
+ AFacturasDesglosadas := BuscarFacturasDesglosadas(AFacturasSeleccionadas);
+ AFacturasDesglosadas.DataTable.Active := True;
+
+ //Copia las facturas desglosadas de las facturas seleccionadas
+ DuplicarRegistros(AFacturasDesglosadas.DataTable, AComision.Facturas.DataTable, mdrTodos, True, True, False);
+ Result := True;
+ finally
+ HideHourglassCursor;
+ end;
+ end;
+
+ finally
+ Cadena.Free;
+ AFacturasController := Nil;
+ AFacturasSeleccionadas := Nil;
+ end;
end;
- end;
+ end
+ else
+ ShowWarningMessage('Debe elegir primero el comercial asociado a la liquidación');
end;
@@ -396,7 +428,7 @@ var
begin
Result := False;
-
+{
if Assigned(AComision.Vendedores) then
begin
//Recogemos los id de los vendedores que ya tiene asociada la liquidación
@@ -451,6 +483,7 @@ begin
AVendedoresSeleccionados := Nil;
end;
end;
+}
end;
function TComisionesController.Eliminar(AComision: IBizComisiones): Boolean;
@@ -474,6 +507,20 @@ begin
end;
end;
+procedure TComisionesController.EliminarFactura(AComision: IBizComisiones);
+var
+ IdFactura: Variant;
+begin
+ IdFactura := AComision.Facturas.ID_FACTURA;
+
+ AComision.Facturas.First;
+ while AComision.Facturas.DataTable.Locate('ID_FACTURA', IdFactura,[]) do
+ begin
+ AComision.Facturas.Delete;
+ AComision.Facturas.First;
+ end;
+end;
+
function TComisionesController.ExtraerSeleccionados(AComisiones: IBizComisiones): IBizComisiones;
var
ASeleccionados : IBizComisiones;
@@ -481,7 +528,6 @@ begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizComisiones);
CopyDataTableDA5(AComisiones.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
-
end;
procedure TComisionesController.FiltrarEmpresa(AComisiones: IBizComisiones);
@@ -506,6 +552,7 @@ end;
procedure TComisionesController.RecalcularComisiones(AComision: IBizComisiones; const ImporteTotal: Variant);
begin
+{
if Assigned(AComision)
and Assigned(AComision.Vendedores)
and (not AComision.Vendedores.IsEmpty) then
@@ -524,6 +571,7 @@ begin
AComision.Vendedores.DataTable.EnableControls;
end;
end;
+}
end;
procedure TComisionesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
@@ -546,6 +594,8 @@ begin
ShowHourglassCursor;
try
AComision.DataTable.ApplyUpdates;
+ AComision.Facturas.DataTable.ApplyUpdates;
+ AComision.Facturas.DataTable.Refresh;
Result := True;
finally
@@ -553,7 +603,7 @@ begin
end;
end;
end;
-procedure TComisionesController.Preview(AComision: IBizComisiones; AllItems: Boolean = false);
+procedure TComisionesController.Preview(AComision: IBizComisiones; AllItems: Boolean = false; AllDetails: Boolean = false);
var
AReportController : IComisionesReportController;
ID_Comisiones: TStringList;
@@ -580,7 +630,7 @@ begin
else
ID_Comisiones.Add(IntToStr(AComision.ID));
- AReportController.Preview(ID_Comisiones.CommaText);
+ AReportController.Preview(ID_Comisiones.CommaText, AllDetails);
finally
AReportController := NIL;
@@ -588,7 +638,7 @@ begin
end;
end;
-procedure TComisionesController.Print(AComision: IBizComisiones; AllItems: Boolean = false);
+procedure TComisionesController.Print(AComision: IBizComisiones; AllItems: Boolean = false; AllDetails: Boolean = false);
var
AReportController : IComisionesReportController;
ID_Comisiones: TStringList;
@@ -615,7 +665,7 @@ begin
else
ID_Comisiones.Add(IntToStr(AComision.ID));
- AReportController.Print(ID_Comisiones.CommaText);
+ AReportController.Print(ID_Comisiones.CommaText, AllDetails);
finally
AReportController := NIL;
diff --git a/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas b/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas
index f574463..10b1c07 100644
--- a/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas
+++ b/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas
@@ -10,8 +10,8 @@ uses
type
IComisionesReportController = interface(IControllerBase)
['{7ABB74C2-050C-4737-BC4C-C5F20883CED8}']
- procedure Preview(const AComisionID : String);
- procedure Print(const AComisionID : String);
+ procedure Preview(const AComisionID : String; const AllDetails: Boolean = False);
+ procedure Print(const AComisionID : String; const AllDetails: Boolean = False);
end;
TComisionesReportController = class(TControllerBase, IComisionesReportController)
@@ -22,8 +22,8 @@ type
constructor Create; override;
destructor Destroy; override;
- procedure Preview(const AComisionID : String);
- procedure Print(const AComisionID : String);
+ procedure Preview(const AComisionID : String; const AllDetails: Boolean = False);
+ procedure Print(const AComisionID : String; const AllDetails: Boolean = False);
end;
@@ -54,14 +54,14 @@ begin
inherited;
end;
-procedure TComisionesReportController.Preview(const AComisionID : String);
+procedure TComisionesReportController.Preview(const AComisionID : String; const AllDetails: Boolean);
var
AStream: Binary;
AEditor : IEditorComisionesPreview;
begin
AEditor := NIL;
- AStream := FDataModule.GetReport(AComisionID);
+ AStream := FDataModule.GetReport(AComisionID, AllDetails);
try
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
if Assigned(AEditor) then
@@ -77,7 +77,7 @@ begin
end;
end;
-procedure TComisionesReportController.Print(const AComisionID : String);
+procedure TComisionesReportController.Print(const AComisionID : String; const AllDetails: Boolean);
var
AStream: Binary;
AEditor : IEditorComisionesPreview;
@@ -86,7 +86,7 @@ begin
ShowHourglassCursor;
try
- AStream := FDataModule.GetReport(AComisionID);
+ AStream := FDataModule.GetReport(AComisionID, AllDetails);
try
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
if Assigned(AEditor) then
diff --git a/Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm b/Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm
index f7c1c11..3317209 100644
--- a/Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm
+++ b/Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm
@@ -14,12 +14,12 @@ inherited DataModuleComisiones: TDataModuleComisiones
Top = 84
end
object rda_Comisiones: TDARemoteDataAdapter
+ DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
- DataStreamer = Bin2DataStreamer
Left = 51
Top = 143
end
@@ -74,26 +74,30 @@ inherited DataModuleComisiones: TDataModuleComisiones
Alignment = taRightJustify
DictionaryEntry = 'Comisiones_IMPORTE_TOTAL'
end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DisplayLabel = 'Usuario'
DictionaryEntry = 'Comisiones_USUARIO'
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'DELEGACION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'COMISION'
+ DataType = datFloat
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Comisiones
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Comisiones'
IndexDefs = <>
Left = 224
@@ -109,11 +113,20 @@ inherited DataModuleComisiones: TDataModuleComisiones
RemoteUpdatesOptions = []
Fields = <
item
- Name = 'ID'
+ Name = 'ID_FACTURA'
DataType = datInteger
- DisplayLabel = 'Facturas_Comision_ID'
- DictionaryEntry = 'Facturas_Comision_ID'
- InPrimaryKey = True
+ end
+ item
+ Name = 'COMISION'
+ DataType = datFloat
+ end
+ item
+ Name = 'IMPORTE_COMISIONABLE'
+ DataType = datCurrency
+ end
+ item
+ Name = 'IMPORTE_COMISION'
+ DataType = datFloat
end
item
Name = 'ID_EMPRESA'
@@ -121,20 +134,6 @@ inherited DataModuleComisiones: TDataModuleComisiones
DisplayLabel = 'Facturas_Comision_ID_EMPRESA'
DictionaryEntry = 'Facturas_Comision_ID_EMPRESA'
end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- DisplayLabel = 'Referencia'
- DictionaryEntry = 'Facturas_Comision_REFERENCIA'
- end
- item
- Name = 'TIPO'
- DataType = datString
- Size = 1
- DisplayLabel = 'Facturas_Comision_TIPO'
- DictionaryEntry = 'Facturas_Comision_TIPO'
- end
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
@@ -143,10 +142,15 @@ inherited DataModuleComisiones: TDataModuleComisiones
DictionaryEntry = 'Facturas_Comision_ID_COMISION_LIQUIDADA'
end
item
- Name = 'FECHA_FACTURA'
+ Name = 'FECHA'
DataType = datDateTime
- DisplayLabel = 'Fecha'
- DictionaryEntry = 'Facturas_Comision_FECHA_FACTURA'
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Referencia'
+ DictionaryEntry = 'Facturas_Comision_REFERENCIA'
end
item
Name = 'SITUACION'
@@ -155,172 +159,12 @@ inherited DataModuleComisiones: TDataModuleComisiones
DisplayLabel = 'Situaci'#243'n'
DictionaryEntry = 'Facturas_Comision_SITUACION'
end
- item
- Name = 'BASE_IMPONIBLE'
- DataType = datCurrency
- DisplayLabel = 'Base imponible'
- Alignment = taRightJustify
- DictionaryEntry = 'Facturas_Comision_BASE_IMPONIBLE'
- end
- item
- Name = 'DESCUENTO'
- DataType = datFloat
- DisplayLabel = 'Facturas_Comision_DESCUENTO'
- DictionaryEntry = 'Facturas_Comision_DESCUENTO'
- end
- item
- Name = 'IMPORTE_DESCUENTO'
- DataType = datCurrency
- DisplayLabel = 'Facturas_Comision_IMPORTE_DESCUENTO'
- DictionaryEntry = 'Facturas_Comision_IMPORTE_DESCUENTO'
- end
- item
- Name = 'IVA'
- DataType = datFloat
- DisplayLabel = 'Facturas_Comision_IVA'
- DictionaryEntry = 'Facturas_Comision_IVA'
- end
- item
- Name = 'IMPORTE_IVA'
- DataType = datCurrency
- DisplayLabel = 'Facturas_Comision_IMPORTE_IVA'
- DictionaryEntry = 'Facturas_Comision_IMPORTE_IVA'
- end
- item
- Name = 'RE'
- DataType = datFloat
- DisplayLabel = 'Facturas_Comision_RE'
- DictionaryEntry = 'Facturas_Comision_RE'
- end
- item
- Name = 'IMPORTE_RE'
- DataType = datCurrency
- DisplayLabel = 'Facturas_Comision_IMPORTE_RE'
- DictionaryEntry = 'Facturas_Comision_IMPORTE_RE'
- end
- item
- Name = 'IMPORTE_TOTAL'
- DataType = datCurrency
- DisplayLabel = 'Facturas_Comision_IMPORTE_TOTAL'
- DictionaryEntry = 'Facturas_Comision_IMPORTE_TOTAL'
- end
- item
- Name = 'OBSERVACIONES'
- DataType = datMemo
- DisplayLabel = 'Facturas_Comision_OBSERVACIONES'
- DictionaryEntry = 'Facturas_Comision_OBSERVACIONES'
- end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DisplayLabel = 'IdCliente'
DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
end
- item
- Name = 'NOMBRE_CLIENTE'
- DataType = datString
- Size = 255
- DisplayLabel = 'Nombre cliente'
- DictionaryEntry = 'Facturas_Comision_NOMBRE_CLIENTE'
- end
- item
- Name = 'NOMBRE_COMERCIAL_CLIENTE'
- DataType = datString
- Size = 255
- DisplayLabel = 'Nombre comercial cliente'
- DictionaryEntry = 'Facturas_Comision_NOMBRE_COMERCIAL_CLIENTE'
- end
- item
- Name = 'NIF_CIF'
- DataType = datString
- Size = 15
- DisplayLabel = 'Facturas_Comision_NIF_CIF'
- DictionaryEntry = 'Facturas_Comision_NIF_CIF'
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- DisplayLabel = 'Raz'#243'n social'
- DictionaryEntry = 'Facturas_Comision_NOMBRE'
- end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- DisplayLabel = 'Facturas_Comision_CALLE'
- DictionaryEntry = 'Facturas_Comision_CALLE'
- end
- item
- Name = 'POBLACION'
- DataType = datString
- Size = 255
- DisplayLabel = 'Facturas_Comision_POBLACION'
- DictionaryEntry = 'Facturas_Comision_POBLACION'
- end
- item
- Name = 'PROVINCIA'
- DataType = datString
- Size = 255
- DisplayLabel = 'Facturas_Comision_PROVINCIA'
- DictionaryEntry = 'Facturas_Comision_PROVINCIA'
- end
- item
- Name = 'CODIGO_POSTAL'
- DataType = datString
- Size = 10
- DisplayLabel = 'Facturas_Comision_CODIGO_POSTAL'
- DictionaryEntry = 'Facturas_Comision_CODIGO_POSTAL'
- end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- DisplayLabel = 'Facturas_Comision_FECHA_ALTA'
- DictionaryEntry = 'Facturas_Comision_FECHA_ALTA'
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- DisplayLabel = 'Facturas_Comision_FECHA_MODIFICACION'
- DictionaryEntry = 'Facturas_Comision_FECHA_MODIFICACION'
- end
- item
- Name = 'USUARIO'
- DataType = datString
- Size = 30
- DisplayLabel = 'Facturas_Comision_USUARIO'
- DictionaryEntry = 'Facturas_Comision_USUARIO'
- end
- item
- Name = 'ID_FORMA_PAGO'
- DataType = datInteger
- DisplayLabel = 'Facturas_Comision_ID_FORMA_PAGO'
- DictionaryEntry = 'Facturas_Comision_ID_FORMA_PAGO'
- end
- item
- Name = 'RECARGO_EQUIVALENCIA'
- DataType = datSmallInt
- DisplayLabel = 'Facturas_Comision_RECARGO_EQUIVALENCIA'
- DictionaryEntry = 'Facturas_Comision_RECARGO_EQUIVALENCIA'
- end
- item
- Name = 'ID_TIPO_IVA'
- DataType = datInteger
- DisplayLabel = 'Facturas_Comision_ID_TIPO_IVA'
- DictionaryEntry = 'Facturas_Comision_ID_TIPO_IVA'
- end
- item
- Name = 'IMPORTE_NETO'
- DataType = datCurrency
- DisplayLabel = 'Facturas_Comision_IMPORTE_NETO'
- DictionaryEntry = 'Facturas_Comision_IMPORTE_NETO'
- end
- item
- Name = 'IMPORTE_PORTE'
- DataType = datCurrency
- DisplayLabel = 'Facturas_Comision_IMPORTE_PORTE'
- DictionaryEntry = 'Facturas_Comision_IMPORTE_PORTE'
- end
item
Name = 'ID_AGENTE'
DataType = datInteger
@@ -328,43 +172,14 @@ inherited DataModuleComisiones: TDataModuleComisiones
DictionaryEntry = 'Facturas_Comision_ID_AGENTE'
end
item
- Name = 'REFERENCIA_COMISION'
+ Name = 'AGENTE'
DataType = datString
Size = 255
- DisplayLabel = 'Facturas_Comision_REFERENCIA_COMISION'
- DictionaryEntry = 'Facturas_Comision_REFERENCIA_COMISION'
end
item
- Name = 'IGNORAR_CONTABILIDAD'
- DataType = datSmallInt
- DisplayLabel = 'Facturas_Comision_IGNORAR_CONTABILIDAD'
- DictionaryEntry = 'Facturas_Comision_IGNORAR_CONTABILIDAD'
- end
- item
- Name = 'ID_TIENDA'
- DataType = datInteger
- DisplayLabel = 'Facturas_Comision_ID_TIENDA'
- DictionaryEntry = 'Facturas_Comision_ID_TIENDA'
- end
- item
- Name = 'TIENDA'
+ Name = 'CLIENTE'
DataType = datString
Size = 255
- DisplayLabel = 'Facturas_Comision_TIENDA'
- DictionaryEntry = 'Facturas_Comision_TIENDA'
- end
- item
- Name = 'ID_SUBCUENTA'
- DataType = datInteger
- DisplayLabel = 'Facturas_Comision_ID_SUBCUENTA'
- DictionaryEntry = 'Facturas_Comision_ID_SUBCUENTA'
- end
- item
- Name = 'SUBCUENTA'
- DataType = datString
- Size = 255
- DisplayLabel = 'Facturas_Comision_SUBCUENTA'
- DictionaryEntry = 'Facturas_Comision_SUBCUENTA'
end>
Params = <>
MasterMappingMode = mmWhere
@@ -373,8 +188,6 @@ inherited DataModuleComisiones: TDataModuleComisiones
MasterSource = ds_Comisiones
MasterFields = 'ID'
DetailFields = 'ID_COMISION_LIQUIDADA'
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Facturas_Comision'
IndexDefs = <>
Left = 376
@@ -435,8 +248,6 @@ inherited DataModuleComisiones: TDataModuleComisiones
MasterSource = ds_Comisiones
MasterFields = 'ID'
DetailFields = 'ID_COMISION'
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Vendedores_Comision'
IndexDefs = <>
Left = 384
diff --git a/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas b/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas
index 870bbff..c3bea16 100644
--- a/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas
+++ b/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas
@@ -26,13 +26,15 @@ type
function _GetFacturas : IBizFacturasComision;
function _GetVendedores : IBizVendedoresComision;
public
- function GetItems : IBizComisiones; overload;
- function GetFacturasSinComision : IBizFacturasComision;
+// function GetItems : IBizComisiones; overload;
+ function GetItems (withDetails: Boolean = true) : IBizComisiones; overload;
+// function GetFacturasSinComision : IBizFacturasComision;
+ function GetFacturasDesglosadas : IBizFacturasComision;
function GetItem(const ID : Integer) : IBizComisiones;
function NewItem : IBizComisiones;
// Report
- function GetReport(const AComisionID: String): Binary;
+ function GetReport(const AComisionID: String; const AllDetails: Boolean = False): Binary;
end;
implementation
@@ -50,7 +52,7 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
-function TDataModuleComisiones.GetItems: IBizComisiones;
+{function TDataModuleComisiones.GetItems: IBizComisiones;
var
AComisiones : TDAMemDataTable;
begin
@@ -65,14 +67,14 @@ begin
with TBizComisiones(AComisiones.BusinessEventsObj) do
begin
Facturas := _GetFacturas;
- Vendedores := _GetVendedores;
+// Vendedores := _GetVendedores;
end;
Result := (AComisiones as IBizComisiones);
finally
HideHourglassCursor;
end;
-end;
+end;}
function TDataModuleComisiones._GetFacturas: IBizFacturasComision;
var
@@ -110,7 +112,21 @@ begin
end;
end;
-function TDataModuleComisiones.GetFacturasSinComision: IBizFacturasComision;
+function TDataModuleComisiones.GetFacturasDesglosadas: IBizFacturasComision;
+var
+ AFacturasDesglosadas : TDAMemDataTable;
+begin
+ ShowHourglassCursor;
+ try
+ AFacturasDesglosadas := CloneDataTable(tbl_Facturas_Comision);
+ AFacturasDesglosadas.BusinessRulesID := BIZ_CLIENT_FACTURAS_COMISION;
+ Result := (AFacturasDesglosadas as IBizFacturasComision);
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+{function TDataModuleComisiones.GetFacturasSinComision: IBizFacturasComision;
var
AFacturasSinComision : TDAMemDataTable;
begin
@@ -122,7 +138,7 @@ begin
finally
HideHourglassCursor;
end;
-end;
+end;}
function TDataModuleComisiones.GetItem(const ID: Integer): IBizComisiones;
var
@@ -148,9 +164,39 @@ begin
end;
end;
-function TDataModuleComisiones.GetReport(const AComisionID: String): Binary;
+function TDataModuleComisiones.GetItems(withDetails: Boolean): IBizComisiones;
+var
+ AComisiones : TDAMemDataTable;
begin
- Result := (RORemoteService as IsrvComisiones).GenerateReport(AComisionID);
+ ShowHourglassCursor;
+ try
+ AComisiones := CloneDataTable(tbl_Comisiones);
+
+ // EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
+ AComisiones.FieldByName(fld_ComisionesREFERENCIA).ServerAutoRefresh := TRUE;
+ AComisiones.BusinessRulesID := BIZ_CLIENT_COMISIONES;
+
+ if (withDetails = True) then
+ with TBizComisiones(AComisiones.BusinessEventsObj) do
+ begin
+ Facturas := _GetFacturas;
+ // Vendedores := _GetVendedores;
+ end;
+
+ Result := (AComisiones as IBizComisiones);
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+function TDataModuleComisiones.GetReport(const AComisionID: String; const AllDetails: Boolean): Binary;
+begin
+ try
+ ShowHourglassCursor;
+ Result := (RORemoteService as IsrvComisiones).GenerateReport(AComisionID, AllDetails);
+ finally
+ HideHourglassCursor;
+ end;
end;
function TDataModuleComisiones.NewItem: IBizComisiones;
diff --git a/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisiones.pas b/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisiones.pas
index 6abb7d9..1871b74 100644
--- a/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisiones.pas
+++ b/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisiones.pas
@@ -8,10 +8,12 @@ uses
type
IDataModuleComisiones = interface
['{91E197D0-2356-46ED-81CD-4907D47A961F}']
- function GetItems: IBizComisiones;
+// function GetItems: IBizComisiones; overload;
+ function GetItems (withDetails: Boolean = true) : IBizComisiones; overload;
function GetItem(const ID : Integer) : IBizComisiones;
function NewItem : IBizComisiones;
- function GetFacturasSinComision : IBizFacturasComision;
+// function GetFacturasSinComision : IBizFacturasComision;
+ function GetFacturasDesglosadas : IBizFacturasComision;
end;
implementation
diff --git a/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisionesReport.pas b/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisionesReport.pas
index ec6ab75..4524d45 100644
--- a/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisionesReport.pas
+++ b/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisionesReport.pas
@@ -8,7 +8,7 @@ uses
type
IDataModuleComisionesReport = interface
['{81994438-6047-4B97-83C1-257ED9CCDA74}']
- function GetReport(const AComisionID: String): Binary;
+ function GetReport(const AComisionID: String; const AllDetails: Boolean = False): Binary;
end;
implementation
diff --git a/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas b/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas
index 1abc4ae..252e2d6 100644
--- a/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas
+++ b/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas
@@ -3,15 +3,15 @@ unit schComisionesClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_Facturas_Comision = '{92237EE8-834B-480A-BECB-CC186D855782}';
- RID_Vendedores_Comision = '{B7ECCE40-B69A-4112-9328-B46B1906ABD5}';
- RID_Comisiones = '{7BAED95D-EB8C-44C7-8818-92A6E358CB24}';
+ RID_Facturas_Comision = '{78CA3C38-006F-4F54-8FCB-0F4A41D27151}';
+ RID_Vendedores_Comision = '{55E0AFEB-FFFC-4ECA-9576-7FBB0B505AD2}';
+ RID_Comisiones = '{07E4C615-63B8-4023-B5D8-924F07E3EAEF}';
{ Data table names }
nme_Facturas_Comision = 'Facturas_Comision';
@@ -19,88 +19,34 @@ const
nme_Comisiones = 'Comisiones';
{ Facturas_Comision fields }
- fld_Facturas_ComisionID = 'ID';
+ fld_Facturas_ComisionID_FACTURA = 'ID_FACTURA';
+ fld_Facturas_ComisionCOMISION = 'COMISION';
+ fld_Facturas_ComisionIMPORTE_COMISIONABLE = 'IMPORTE_COMISIONABLE';
+ fld_Facturas_ComisionIMPORTE_COMISION = 'IMPORTE_COMISION';
fld_Facturas_ComisionID_EMPRESA = 'ID_EMPRESA';
- fld_Facturas_ComisionREFERENCIA = 'REFERENCIA';
- fld_Facturas_ComisionTIPO = 'TIPO';
fld_Facturas_ComisionID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
- fld_Facturas_ComisionFECHA_FACTURA = 'FECHA_FACTURA';
+ fld_Facturas_ComisionFECHA = 'FECHA';
+ fld_Facturas_ComisionREFERENCIA = 'REFERENCIA';
fld_Facturas_ComisionSITUACION = 'SITUACION';
- fld_Facturas_ComisionBASE_IMPONIBLE = 'BASE_IMPONIBLE';
- fld_Facturas_ComisionDESCUENTO = 'DESCUENTO';
- fld_Facturas_ComisionIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
- fld_Facturas_ComisionIVA = 'IVA';
- fld_Facturas_ComisionIMPORTE_IVA = 'IMPORTE_IVA';
- fld_Facturas_ComisionRE = 'RE';
- fld_Facturas_ComisionIMPORTE_RE = 'IMPORTE_RE';
- fld_Facturas_ComisionIMPORTE_TOTAL = 'IMPORTE_TOTAL';
- fld_Facturas_ComisionOBSERVACIONES = 'OBSERVACIONES';
fld_Facturas_ComisionID_CLIENTE = 'ID_CLIENTE';
- fld_Facturas_ComisionNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
- fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
- fld_Facturas_ComisionNIF_CIF = 'NIF_CIF';
- fld_Facturas_ComisionNOMBRE = 'NOMBRE';
- fld_Facturas_ComisionCALLE = 'CALLE';
- fld_Facturas_ComisionPOBLACION = 'POBLACION';
- fld_Facturas_ComisionPROVINCIA = 'PROVINCIA';
- fld_Facturas_ComisionCODIGO_POSTAL = 'CODIGO_POSTAL';
- fld_Facturas_ComisionFECHA_ALTA = 'FECHA_ALTA';
- fld_Facturas_ComisionFECHA_MODIFICACION = 'FECHA_MODIFICACION';
- fld_Facturas_ComisionUSUARIO = 'USUARIO';
- fld_Facturas_ComisionID_FORMA_PAGO = 'ID_FORMA_PAGO';
- fld_Facturas_ComisionRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA';
- fld_Facturas_ComisionID_TIPO_IVA = 'ID_TIPO_IVA';
- fld_Facturas_ComisionIMPORTE_NETO = 'IMPORTE_NETO';
- fld_Facturas_ComisionIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_Facturas_ComisionID_AGENTE = 'ID_AGENTE';
- fld_Facturas_ComisionREFERENCIA_COMISION = 'REFERENCIA_COMISION';
- fld_Facturas_ComisionIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
- fld_Facturas_ComisionID_TIENDA = 'ID_TIENDA';
- fld_Facturas_ComisionTIENDA = 'TIENDA';
- fld_Facturas_ComisionID_SUBCUENTA = 'ID_SUBCUENTA';
- fld_Facturas_ComisionSUBCUENTA = 'SUBCUENTA';
+ fld_Facturas_ComisionAGENTE = 'AGENTE';
+ fld_Facturas_ComisionCLIENTE = 'CLIENTE';
{ Facturas_Comision field indexes }
- idx_Facturas_ComisionID = 0;
- idx_Facturas_ComisionID_EMPRESA = 1;
- idx_Facturas_ComisionREFERENCIA = 2;
- idx_Facturas_ComisionTIPO = 3;
- idx_Facturas_ComisionID_COMISION_LIQUIDADA = 4;
- idx_Facturas_ComisionFECHA_FACTURA = 5;
- idx_Facturas_ComisionSITUACION = 6;
- idx_Facturas_ComisionBASE_IMPONIBLE = 7;
- idx_Facturas_ComisionDESCUENTO = 8;
- idx_Facturas_ComisionIMPORTE_DESCUENTO = 9;
- idx_Facturas_ComisionIVA = 10;
- idx_Facturas_ComisionIMPORTE_IVA = 11;
- idx_Facturas_ComisionRE = 12;
- idx_Facturas_ComisionIMPORTE_RE = 13;
- idx_Facturas_ComisionIMPORTE_TOTAL = 14;
- idx_Facturas_ComisionOBSERVACIONES = 15;
- idx_Facturas_ComisionID_CLIENTE = 16;
- idx_Facturas_ComisionNOMBRE_CLIENTE = 17;
- idx_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE = 18;
- idx_Facturas_ComisionNIF_CIF = 19;
- idx_Facturas_ComisionNOMBRE = 20;
- idx_Facturas_ComisionCALLE = 21;
- idx_Facturas_ComisionPOBLACION = 22;
- idx_Facturas_ComisionPROVINCIA = 23;
- idx_Facturas_ComisionCODIGO_POSTAL = 24;
- idx_Facturas_ComisionFECHA_ALTA = 25;
- idx_Facturas_ComisionFECHA_MODIFICACION = 26;
- idx_Facturas_ComisionUSUARIO = 27;
- idx_Facturas_ComisionID_FORMA_PAGO = 28;
- idx_Facturas_ComisionRECARGO_EQUIVALENCIA = 29;
- idx_Facturas_ComisionID_TIPO_IVA = 30;
- idx_Facturas_ComisionIMPORTE_NETO = 31;
- idx_Facturas_ComisionIMPORTE_PORTE = 32;
- idx_Facturas_ComisionID_AGENTE = 33;
- idx_Facturas_ComisionREFERENCIA_COMISION = 34;
- idx_Facturas_ComisionIGNORAR_CONTABILIDAD = 35;
- idx_Facturas_ComisionID_TIENDA = 36;
- idx_Facturas_ComisionTIENDA = 37;
- idx_Facturas_ComisionID_SUBCUENTA = 38;
- idx_Facturas_ComisionSUBCUENTA = 39;
+ idx_Facturas_ComisionID_FACTURA = 0;
+ idx_Facturas_ComisionCOMISION = 1;
+ idx_Facturas_ComisionIMPORTE_COMISIONABLE = 2;
+ idx_Facturas_ComisionIMPORTE_COMISION = 3;
+ idx_Facturas_ComisionID_EMPRESA = 4;
+ idx_Facturas_ComisionID_COMISION_LIQUIDADA = 5;
+ idx_Facturas_ComisionFECHA = 6;
+ idx_Facturas_ComisionREFERENCIA = 7;
+ idx_Facturas_ComisionSITUACION = 8;
+ idx_Facturas_ComisionID_CLIENTE = 9;
+ idx_Facturas_ComisionID_AGENTE = 10;
+ idx_Facturas_ComisionAGENTE = 11;
+ idx_Facturas_ComisionCLIENTE = 12;
{ Vendedores_Comision fields }
fld_Vendedores_ComisionID = 'ID';
@@ -126,9 +72,10 @@ const
fld_ComisionesDESCRIPCION = 'DESCRIPCION';
fld_ComisionesFECHA = 'FECHA';
fld_ComisionesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
- fld_ComisionesFECHA_ALTA = 'FECHA_ALTA';
- fld_ComisionesFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_ComisionesUSUARIO = 'USUARIO';
+ fld_ComisionesNOMBRE = 'NOMBRE';
+ fld_ComisionesDELEGACION = 'DELEGACION';
+ fld_ComisionesCOMISION = 'COMISION';
{ Comisiones field indexes }
idx_ComisionesID = 0;
@@ -138,507 +85,184 @@ const
idx_ComisionesDESCRIPCION = 4;
idx_ComisionesFECHA = 5;
idx_ComisionesIMPORTE_TOTAL = 6;
- idx_ComisionesFECHA_ALTA = 7;
- idx_ComisionesFECHA_MODIFICACION = 8;
- idx_ComisionesUSUARIO = 9;
+ idx_ComisionesUSUARIO = 7;
+ idx_ComisionesNOMBRE = 8;
+ idx_ComisionesDELEGACION = 9;
+ idx_ComisionesCOMISION = 10;
type
{ IFacturas_Comision }
IFacturas_Comision = interface(IDAStronglyTypedDataTable)
- ['{601DB2B1-3514-4B82-9EB8-74AA3059A345}']
+ ['{3A739F16-CBBB-45E3-9BF3-85B1349C6A1D}']
{ Property getters and setters }
- function GetIDValue: Integer;
- procedure SetIDValue(const aValue: Integer);
- function GetIDIsNull: Boolean;
- procedure SetIDIsNull(const aValue: Boolean);
+ function GetID_FACTURAValue: Integer;
+ procedure SetID_FACTURAValue(const aValue: Integer);
+ function GetID_FACTURAIsNull: Boolean;
+ procedure SetID_FACTURAIsNull(const aValue: Boolean);
+ function GetCOMISIONValue: Float;
+ procedure SetCOMISIONValue(const aValue: Float);
+ function GetCOMISIONIsNull: Boolean;
+ procedure SetCOMISIONIsNull(const aValue: Boolean);
+ function GetIMPORTE_COMISIONABLEValue: Currency;
+ procedure SetIMPORTE_COMISIONABLEValue(const aValue: Currency);
+ function GetIMPORTE_COMISIONABLEIsNull: Boolean;
+ procedure SetIMPORTE_COMISIONABLEIsNull(const aValue: Boolean);
+ function GetIMPORTE_COMISIONValue: Float;
+ procedure SetIMPORTE_COMISIONValue(const aValue: Float);
+ function GetIMPORTE_COMISIONIsNull: Boolean;
+ procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
- function GetREFERENCIAValue: String;
- procedure SetREFERENCIAValue(const aValue: String);
- function GetREFERENCIAIsNull: Boolean;
- procedure SetREFERENCIAIsNull(const aValue: Boolean);
- function GetTIPOValue: String;
- procedure SetTIPOValue(const aValue: String);
- function GetTIPOIsNull: Boolean;
- procedure SetTIPOIsNull(const aValue: Boolean);
function GetID_COMISION_LIQUIDADAValue: Integer;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
function GetID_COMISION_LIQUIDADAIsNull: Boolean;
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
- function GetFECHA_FACTURAValue: DateTime;
- procedure SetFECHA_FACTURAValue(const aValue: DateTime);
- function GetFECHA_FACTURAIsNull: Boolean;
- procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
+ function GetFECHAValue: DateTime;
+ procedure SetFECHAValue(const aValue: DateTime);
+ function GetFECHAIsNull: Boolean;
+ procedure SetFECHAIsNull(const aValue: Boolean);
+ function GetREFERENCIAValue: String;
+ procedure SetREFERENCIAValue(const aValue: String);
+ function GetREFERENCIAIsNull: Boolean;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetSITUACIONValue: String;
procedure SetSITUACIONValue(const aValue: String);
function GetSITUACIONIsNull: Boolean;
procedure SetSITUACIONIsNull(const aValue: Boolean);
- function GetBASE_IMPONIBLEValue: Currency;
- procedure SetBASE_IMPONIBLEValue(const aValue: Currency);
- function GetBASE_IMPONIBLEIsNull: Boolean;
- procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
- function GetDESCUENTOValue: Float;
- procedure SetDESCUENTOValue(const aValue: Float);
- function GetDESCUENTOIsNull: Boolean;
- procedure SetDESCUENTOIsNull(const aValue: Boolean);
- function GetIMPORTE_DESCUENTOValue: Currency;
- procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
- function GetIMPORTE_DESCUENTOIsNull: Boolean;
- procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
- function GetIVAValue: Float;
- procedure SetIVAValue(const aValue: Float);
- function GetIVAIsNull: Boolean;
- procedure SetIVAIsNull(const aValue: Boolean);
- function GetIMPORTE_IVAValue: Currency;
- procedure SetIMPORTE_IVAValue(const aValue: Currency);
- function GetIMPORTE_IVAIsNull: Boolean;
- procedure SetIMPORTE_IVAIsNull(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 GetIMPORTE_TOTALValue: Currency;
- procedure SetIMPORTE_TOTALValue(const aValue: Currency);
- function GetIMPORTE_TOTALIsNull: Boolean;
- procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
- function GetOBSERVACIONESValue: IROStrings;
- function GetOBSERVACIONESIsNull: Boolean;
- procedure SetOBSERVACIONESIsNull(const aValue: Boolean);
function GetID_CLIENTEValue: Integer;
procedure SetID_CLIENTEValue(const aValue: Integer);
function GetID_CLIENTEIsNull: Boolean;
procedure SetID_CLIENTEIsNull(const aValue: Boolean);
- function GetNOMBRE_CLIENTEValue: String;
- procedure SetNOMBRE_CLIENTEValue(const aValue: String);
- function GetNOMBRE_CLIENTEIsNull: Boolean;
- procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
- function GetNOMBRE_COMERCIAL_CLIENTEValue: String;
- procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
- function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
- procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
- function GetNIF_CIFValue: String;
- procedure SetNIF_CIFValue(const aValue: String);
- function GetNIF_CIFIsNull: Boolean;
- procedure SetNIF_CIFIsNull(const aValue: Boolean);
- function GetNOMBREValue: String;
- procedure SetNOMBREValue(const aValue: String);
- function GetNOMBREIsNull: Boolean;
- procedure SetNOMBREIsNull(const aValue: Boolean);
- function GetCALLEValue: String;
- procedure SetCALLEValue(const aValue: String);
- function GetCALLEIsNull: Boolean;
- procedure SetCALLEIsNull(const aValue: Boolean);
- function GetPOBLACIONValue: String;
- procedure SetPOBLACIONValue(const aValue: String);
- function GetPOBLACIONIsNull: Boolean;
- procedure SetPOBLACIONIsNull(const aValue: Boolean);
- function GetPROVINCIAValue: String;
- procedure SetPROVINCIAValue(const aValue: String);
- function GetPROVINCIAIsNull: Boolean;
- procedure SetPROVINCIAIsNull(const aValue: Boolean);
- function GetCODIGO_POSTALValue: String;
- procedure SetCODIGO_POSTALValue(const aValue: String);
- function GetCODIGO_POSTALIsNull: Boolean;
- procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
- function GetFECHA_ALTAValue: DateTime;
- procedure SetFECHA_ALTAValue(const aValue: DateTime);
- function GetFECHA_ALTAIsNull: Boolean;
- procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
- function GetFECHA_MODIFICACIONValue: DateTime;
- procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
- function GetFECHA_MODIFICACIONIsNull: Boolean;
- procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
- function GetUSUARIOValue: String;
- procedure SetUSUARIOValue(const aValue: String);
- function GetUSUARIOIsNull: Boolean;
- procedure SetUSUARIOIsNull(const aValue: Boolean);
- function GetID_FORMA_PAGOValue: Integer;
- procedure SetID_FORMA_PAGOValue(const aValue: Integer);
- function GetID_FORMA_PAGOIsNull: Boolean;
- procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
- function GetRECARGO_EQUIVALENCIAValue: SmallInt;
- procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
- function GetRECARGO_EQUIVALENCIAIsNull: Boolean;
- procedure SetRECARGO_EQUIVALENCIAIsNull(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 GetIMPORTE_NETOValue: Currency;
- procedure SetIMPORTE_NETOValue(const aValue: Currency);
- function GetIMPORTE_NETOIsNull: Boolean;
- procedure SetIMPORTE_NETOIsNull(const aValue: Boolean);
- function GetIMPORTE_PORTEValue: Currency;
- procedure SetIMPORTE_PORTEValue(const aValue: Currency);
- function GetIMPORTE_PORTEIsNull: Boolean;
- procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
function GetID_AGENTEValue: Integer;
procedure SetID_AGENTEValue(const aValue: Integer);
function GetID_AGENTEIsNull: Boolean;
procedure SetID_AGENTEIsNull(const aValue: Boolean);
- function GetREFERENCIA_COMISIONValue: String;
- procedure SetREFERENCIA_COMISIONValue(const aValue: String);
- function GetREFERENCIA_COMISIONIsNull: Boolean;
- procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
- function GetIGNORAR_CONTABILIDADValue: SmallInt;
- procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
- function GetIGNORAR_CONTABILIDADIsNull: Boolean;
- procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
- function GetID_TIENDAValue: Integer;
- procedure SetID_TIENDAValue(const aValue: Integer);
- function GetID_TIENDAIsNull: Boolean;
- procedure SetID_TIENDAIsNull(const aValue: Boolean);
- function GetTIENDAValue: String;
- procedure SetTIENDAValue(const aValue: String);
- function GetTIENDAIsNull: Boolean;
- procedure SetTIENDAIsNull(const aValue: Boolean);
- function GetID_SUBCUENTAValue: Integer;
- procedure SetID_SUBCUENTAValue(const aValue: Integer);
- function GetID_SUBCUENTAIsNull: Boolean;
- procedure SetID_SUBCUENTAIsNull(const aValue: Boolean);
- function GetSUBCUENTAValue: String;
- procedure SetSUBCUENTAValue(const aValue: String);
- function GetSUBCUENTAIsNull: Boolean;
- procedure SetSUBCUENTAIsNull(const aValue: Boolean);
+ function GetAGENTEValue: String;
+ procedure SetAGENTEValue(const aValue: String);
+ function GetAGENTEIsNull: Boolean;
+ procedure SetAGENTEIsNull(const aValue: Boolean);
+ function GetCLIENTEValue: String;
+ procedure SetCLIENTEValue(const aValue: String);
+ function GetCLIENTEIsNull: Boolean;
+ procedure SetCLIENTEIsNull(const aValue: Boolean);
{ Properties }
- property ID: Integer read GetIDValue write SetIDValue;
- property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+ property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
+ property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
+ property IMPORTE_COMISIONABLE: Currency read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
+ property IMPORTE_COMISIONABLEIsNull: Boolean read GetIMPORTE_COMISIONABLEIsNull write SetIMPORTE_COMISIONABLEIsNull;
+ property IMPORTE_COMISION: Float read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
+ property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property TIPO: String read GetTIPOValue write SetTIPOValue;
- property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
- property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
- property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
+ property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
- property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
- property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
- property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
- property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
- property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
- property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
- property IVA: Float read GetIVAValue write SetIVAValue;
- property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
- property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
- property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
- 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 IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue;
- property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
- property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
- property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
- property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
- property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
- property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
- property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
- property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
- property CALLE: String read GetCALLEValue write SetCALLEValue;
- property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
- property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
- property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
- property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
- property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
- property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
- property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
- property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
- property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
- property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
- property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
- property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
- property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
- property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
- property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
- property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
- property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
- 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 IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
- property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
- property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
- property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
- property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
- property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
- property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
- property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
- property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
- property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
- property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
- property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
- property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
- property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
- property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
- property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
+ property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
+ property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
+ property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
+ property CLIENTEIsNull: Boolean read GetCLIENTEIsNull write SetCLIENTEIsNull;
end;
{ TFacturas_ComisionDataTableRules }
TFacturas_ComisionDataTableRules = class(TIntfObjectDADataTableRules, IFacturas_Comision)
private
- f_OBSERVACIONES: IROStrings;
- procedure OBSERVACIONES_OnChange(Sender: TObject);
protected
{ Property getters and setters }
- function GetIDValue: Integer; virtual;
- procedure SetIDValue(const aValue: Integer); virtual;
- function GetIDIsNull: Boolean; virtual;
- procedure SetIDIsNull(const aValue: Boolean); virtual;
+ function GetID_FACTURAValue: Integer; virtual;
+ procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+ function GetID_FACTURAIsNull: Boolean; virtual;
+ procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetCOMISIONValue: Float; virtual;
+ procedure SetCOMISIONValue(const aValue: Float); virtual;
+ function GetCOMISIONIsNull: Boolean; virtual;
+ procedure SetCOMISIONIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_COMISIONABLEValue: Currency; virtual;
+ procedure SetIMPORTE_COMISIONABLEValue(const aValue: Currency); virtual;
+ function GetIMPORTE_COMISIONABLEIsNull: Boolean; virtual;
+ procedure SetIMPORTE_COMISIONABLEIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_COMISIONValue: Float; virtual;
+ procedure SetIMPORTE_COMISIONValue(const aValue: Float); virtual;
+ function GetIMPORTE_COMISIONIsNull: Boolean; virtual;
+ procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIAValue: String; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetREFERENCIAIsNull: Boolean; virtual;
- procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
- function GetTIPOValue: String; virtual;
- procedure SetTIPOValue(const aValue: String); virtual;
- function GetTIPOIsNull: Boolean; virtual;
- procedure SetTIPOIsNull(const aValue: Boolean); virtual;
function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual;
- function GetFECHA_FACTURAValue: DateTime; virtual;
- procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
- function GetFECHA_FACTURAIsNull: Boolean; virtual;
- procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFECHAValue: DateTime; virtual;
+ procedure SetFECHAValue(const aValue: DateTime); virtual;
+ function GetFECHAIsNull: Boolean; virtual;
+ procedure SetFECHAIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIAValue: String; virtual;
+ procedure SetREFERENCIAValue(const aValue: String); virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetSITUACIONIsNull: Boolean; virtual;
procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
- function GetBASE_IMPONIBLEValue: Currency; virtual;
- procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
- function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
- procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
- function GetDESCUENTOValue: Float; virtual;
- procedure SetDESCUENTOValue(const aValue: Float); virtual;
- function GetDESCUENTOIsNull: Boolean; virtual;
- procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_DESCUENTOValue: Currency; virtual;
- procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
- function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
- procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
- function GetIVAValue: Float; virtual;
- procedure SetIVAValue(const aValue: Float); virtual;
- function GetIVAIsNull: Boolean; virtual;
- procedure SetIVAIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_IVAValue: Currency; virtual;
- procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
- function GetIMPORTE_IVAIsNull: Boolean; virtual;
- procedure SetIMPORTE_IVAIsNull(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 GetIMPORTE_TOTALValue: Currency; virtual;
- procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
- function GetIMPORTE_TOTALIsNull: Boolean; virtual;
- procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
- function GetOBSERVACIONESValue: IROStrings; virtual;
- function GetOBSERVACIONESIsNull: Boolean; virtual;
- procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
function GetID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
- function GetNOMBRE_CLIENTEValue: String; virtual;
- procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
- function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
- procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
- function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
- procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
- function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
- procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
- function GetNIF_CIFValue: String; virtual;
- procedure SetNIF_CIFValue(const aValue: String); virtual;
- function GetNIF_CIFIsNull: Boolean; virtual;
- procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
- function GetNOMBREValue: String; virtual;
- procedure SetNOMBREValue(const aValue: String); virtual;
- function GetNOMBREIsNull: Boolean; virtual;
- procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
- function GetCALLEValue: String; virtual;
- procedure SetCALLEValue(const aValue: String); virtual;
- function GetCALLEIsNull: Boolean; virtual;
- procedure SetCALLEIsNull(const aValue: Boolean); virtual;
- function GetPOBLACIONValue: String; virtual;
- procedure SetPOBLACIONValue(const aValue: String); virtual;
- function GetPOBLACIONIsNull: Boolean; virtual;
- procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
- function GetPROVINCIAValue: String; virtual;
- procedure SetPROVINCIAValue(const aValue: String); virtual;
- function GetPROVINCIAIsNull: Boolean; virtual;
- procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
- function GetCODIGO_POSTALValue: String; virtual;
- procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
- function GetCODIGO_POSTALIsNull: Boolean; virtual;
- procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
- function GetFECHA_ALTAValue: DateTime; virtual;
- procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
- function GetFECHA_ALTAIsNull: Boolean; virtual;
- procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
- function GetFECHA_MODIFICACIONValue: DateTime; virtual;
- procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
- function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
- procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
- function GetUSUARIOValue: String; virtual;
- procedure SetUSUARIOValue(const aValue: String); virtual;
- function GetUSUARIOIsNull: Boolean; virtual;
- procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
- function GetID_FORMA_PAGOValue: Integer; virtual;
- procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
- function GetID_FORMA_PAGOIsNull: Boolean; virtual;
- procedure SetID_FORMA_PAGOIsNull(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 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 GetIMPORTE_NETOValue: Currency; virtual;
- procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
- function GetIMPORTE_NETOIsNull: Boolean; virtual;
- procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_PORTEValue: Currency; virtual;
- procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
- function GetIMPORTE_PORTEIsNull: Boolean; virtual;
- procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetID_AGENTEValue: Integer; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetID_AGENTEIsNull: Boolean; virtual;
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIA_COMISIONValue: String; virtual;
- procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
- function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
- procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
- function GetIGNORAR_CONTABILIDADValue: SmallInt; virtual;
- procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual;
- function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
- procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
- function GetID_TIENDAValue: Integer; virtual;
- procedure SetID_TIENDAValue(const aValue: Integer); virtual;
- function GetID_TIENDAIsNull: Boolean; virtual;
- procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
- function GetTIENDAValue: String; virtual;
- procedure SetTIENDAValue(const aValue: String); virtual;
- function GetTIENDAIsNull: Boolean; virtual;
- procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
- function GetID_SUBCUENTAValue: Integer; virtual;
- procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
- function GetID_SUBCUENTAIsNull: Boolean; virtual;
- procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
- function GetSUBCUENTAValue: String; virtual;
- procedure SetSUBCUENTAValue(const aValue: String); virtual;
- function GetSUBCUENTAIsNull: Boolean; virtual;
- procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
+ function GetAGENTEValue: String; virtual;
+ procedure SetAGENTEValue(const aValue: String); virtual;
+ function GetAGENTEIsNull: Boolean; virtual;
+ procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
+ function GetCLIENTEValue: String; virtual;
+ procedure SetCLIENTEValue(const aValue: String); virtual;
+ function GetCLIENTEIsNull: Boolean; virtual;
+ procedure SetCLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties }
- property ID: Integer read GetIDValue write SetIDValue;
- property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+ property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
+ property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
+ property IMPORTE_COMISIONABLE: Currency read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
+ property IMPORTE_COMISIONABLEIsNull: Boolean read GetIMPORTE_COMISIONABLEIsNull write SetIMPORTE_COMISIONABLEIsNull;
+ property IMPORTE_COMISION: Float read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
+ property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property TIPO: String read GetTIPOValue write SetTIPOValue;
- property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
- property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
- property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
+ property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
- property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
- property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
- property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
- property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
- property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
- property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
- property IVA: Float read GetIVAValue write SetIVAValue;
- property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
- property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
- property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
- 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 IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue;
- property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
- property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
- property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
- property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
- property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
- property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
- property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
- property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
- property CALLE: String read GetCALLEValue write SetCALLEValue;
- property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
- property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
- property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
- property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
- property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
- property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
- property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
- property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
- property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
- property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
- property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
- property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
- property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
- property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
- property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
- property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
- property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
- 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 IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
- property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
- property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
- property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
- property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
- property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
- property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
- property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
- property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
- property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
- property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
- property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
- property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
- property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
- property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
- property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
+ property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
+ property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
+ property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
+ property CLIENTEIsNull: Boolean read GetCLIENTEIsNull write SetCLIENTEIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -648,7 +272,7 @@ type
{ IVendedores_Comision }
IVendedores_Comision = interface(IDAStronglyTypedDataTable)
- ['{B4E71678-F0BA-4633-8BB8-5F68EE690CE5}']
+ ['{FB5BA267-86E6-4EFF-8878-C6760EBB1B20}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -743,7 +367,7 @@ type
{ IComisiones }
IComisiones = interface(IDAStronglyTypedDataTable)
- ['{32ADC59A-A0CA-4CC5-B987-EEC90899CD9A}']
+ ['{B86DD54E-43C2-446C-9A78-2F6472027611}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -773,18 +397,22 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
- function GetFECHA_ALTAValue: DateTime;
- procedure SetFECHA_ALTAValue(const aValue: DateTime);
- function GetFECHA_ALTAIsNull: Boolean;
- procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
- function GetFECHA_MODIFICACIONValue: DateTime;
- procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
- function GetFECHA_MODIFICACIONIsNull: Boolean;
- procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
function GetUSUARIOIsNull: Boolean;
procedure SetUSUARIOIsNull(const aValue: Boolean);
+ function GetNOMBREValue: String;
+ procedure SetNOMBREValue(const aValue: String);
+ function GetNOMBREIsNull: Boolean;
+ procedure SetNOMBREIsNull(const aValue: Boolean);
+ function GetDELEGACIONValue: String;
+ procedure SetDELEGACIONValue(const aValue: String);
+ function GetDELEGACIONIsNull: Boolean;
+ procedure SetDELEGACIONIsNull(const aValue: Boolean);
+ function GetCOMISIONValue: Float;
+ procedure SetCOMISIONValue(const aValue: Float);
+ function GetCOMISIONIsNull: Boolean;
+ procedure SetCOMISIONIsNull(const aValue: Boolean);
{ Properties }
@@ -802,12 +430,14 @@ type
property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
- property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
- property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
- property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+ property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
+ property DELEGACIONIsNull: Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
+ property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
+ property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
end;
{ TComisionesDataTableRules }
@@ -843,18 +473,22 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
- function GetFECHA_ALTAValue: DateTime; virtual;
- procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
- function GetFECHA_ALTAIsNull: Boolean; virtual;
- procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
- function GetFECHA_MODIFICACIONValue: DateTime; virtual;
- procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
- function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
- procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
+ function GetNOMBREValue: String; virtual;
+ procedure SetNOMBREValue(const aValue: String); virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
+ function GetDELEGACIONValue: String; virtual;
+ procedure SetDELEGACIONValue(const aValue: String); virtual;
+ function GetDELEGACIONIsNull: Boolean; virtual;
+ procedure SetDELEGACIONIsNull(const aValue: Boolean); virtual;
+ function GetCOMISIONValue: Float; virtual;
+ procedure SetCOMISIONValue(const aValue: Float); virtual;
+ function GetCOMISIONIsNull: Boolean; virtual;
+ procedure SetCOMISIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -871,12 +505,14 @@ type
property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
- property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
- property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
- property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+ property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
+ property DELEGACIONIsNull: Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
+ property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
+ property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -890,14 +526,8 @@ uses Variants, uROBinaryHelpers;
{ TFacturas_ComisionDataTableRules }
constructor TFacturas_ComisionDataTableRules.Create(aDataTable: TDADataTable);
-var
- StrList: TStringList;
begin
inherited;
-
- StrList := TStringList.Create;
- StrList.OnChange := OBSERVACIONES_OnChange;
- f_OBSERVACIONES := NewROStrings(StrList,True);
end;
destructor TFacturas_ComisionDataTableRules.Destroy;
@@ -905,30 +535,88 @@ begin
inherited;
end;
-procedure TFacturas_ComisionDataTableRules.OBSERVACIONES_OnChange(Sender: TObject);
+function TFacturas_ComisionDataTableRules.GetID_FACTURAValue: Integer;
begin
- if DataTable.Editing then DataTable.Fields[idx_Facturas_ComisionOBSERVACIONES].AsVariant := TStringList(Sender).Text;
+ result := DataTable.Fields[idx_Facturas_ComisionID_FACTURA].AsInteger;
end;
-function TFacturas_ComisionDataTableRules.GetIDValue: Integer;
+procedure TFacturas_ComisionDataTableRules.SetID_FACTURAValue(const aValue: Integer);
begin
- result := DataTable.Fields[idx_Facturas_ComisionID].AsInteger;
+ DataTable.Fields[idx_Facturas_ComisionID_FACTURA].AsInteger := aValue;
end;
-procedure TFacturas_ComisionDataTableRules.SetIDValue(const aValue: Integer);
+function TFacturas_ComisionDataTableRules.GetID_FACTURAIsNull: boolean;
begin
- DataTable.Fields[idx_Facturas_ComisionID].AsInteger := aValue;
+ result := DataTable.Fields[idx_Facturas_ComisionID_FACTURA].IsNull;
end;
-function TFacturas_ComisionDataTableRules.GetIDIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionID].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIDIsNull(const aValue: Boolean);
+procedure TFacturas_ComisionDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_Facturas_ComisionID].AsVariant := Null;
+ DataTable.Fields[idx_Facturas_ComisionID_FACTURA].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetCOMISIONValue: Float;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionCOMISION].AsFloat;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetCOMISIONValue(const aValue: Float);
+begin
+ DataTable.Fields[idx_Facturas_ComisionCOMISION].AsFloat := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetCOMISIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionCOMISION].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetCOMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionCOMISION].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_COMISIONABLEValue: Currency;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_COMISIONABLE].AsCurrency;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_COMISIONABLEValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_COMISIONABLE].AsCurrency := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_COMISIONABLEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_COMISIONABLE].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_COMISIONABLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_COMISIONABLE].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_COMISIONValue: Float;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_COMISION].AsFloat;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_COMISIONValue(const aValue: Float);
+begin
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_COMISION].AsFloat := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_COMISIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_COMISION].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_COMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_COMISION].AsVariant := Null;
end;
function TFacturas_ComisionDataTableRules.GetID_EMPRESAValue: Integer;
@@ -952,48 +640,6 @@ begin
DataTable.Fields[idx_Facturas_ComisionID_EMPRESA].AsVariant := Null;
end;
-function TFacturas_ComisionDataTableRules.GetREFERENCIAValue: String;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionREFERENCIA].AsString;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetREFERENCIAValue(const aValue: String);
-begin
- DataTable.Fields[idx_Facturas_ComisionREFERENCIA].AsString := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetREFERENCIAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionREFERENCIA].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionREFERENCIA].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetTIPOValue: String;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionTIPO].AsString;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetTIPOValue(const aValue: String);
-begin
- DataTable.Fields[idx_Facturas_ComisionTIPO].AsString := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetTIPOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionTIPO].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetTIPOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionTIPO].AsVariant := Null;
-end;
-
function TFacturas_ComisionDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
begin
result := DataTable.Fields[idx_Facturas_ComisionID_COMISION_LIQUIDADA].AsInteger;
@@ -1015,25 +661,46 @@ begin
DataTable.Fields[idx_Facturas_ComisionID_COMISION_LIQUIDADA].AsVariant := Null;
end;
-function TFacturas_ComisionDataTableRules.GetFECHA_FACTURAValue: DateTime;
+function TFacturas_ComisionDataTableRules.GetFECHAValue: DateTime;
begin
- result := DataTable.Fields[idx_Facturas_ComisionFECHA_FACTURA].AsDateTime;
+ result := DataTable.Fields[idx_Facturas_ComisionFECHA].AsDateTime;
end;
-procedure TFacturas_ComisionDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+procedure TFacturas_ComisionDataTableRules.SetFECHAValue(const aValue: DateTime);
begin
- DataTable.Fields[idx_Facturas_ComisionFECHA_FACTURA].AsDateTime := aValue;
+ DataTable.Fields[idx_Facturas_ComisionFECHA].AsDateTime := aValue;
end;
-function TFacturas_ComisionDataTableRules.GetFECHA_FACTURAIsNull: boolean;
+function TFacturas_ComisionDataTableRules.GetFECHAIsNull: boolean;
begin
- result := DataTable.Fields[idx_Facturas_ComisionFECHA_FACTURA].IsNull;
+ result := DataTable.Fields[idx_Facturas_ComisionFECHA].IsNull;
end;
-procedure TFacturas_ComisionDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+procedure TFacturas_ComisionDataTableRules.SetFECHAIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_Facturas_ComisionFECHA_FACTURA].AsVariant := Null;
+ DataTable.Fields[idx_Facturas_ComisionFECHA].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetREFERENCIAValue: String;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionREFERENCIA].AsString;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetREFERENCIAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_Facturas_ComisionREFERENCIA].AsString := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionREFERENCIA].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionREFERENCIA].AsVariant := Null;
end;
function TFacturas_ComisionDataTableRules.GetSITUACIONValue: String;
@@ -1057,191 +724,6 @@ begin
DataTable.Fields[idx_Facturas_ComisionSITUACION].AsVariant := Null;
end;
-function TFacturas_ComisionDataTableRules.GetBASE_IMPONIBLEValue: Currency;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionBASE_IMPONIBLE].AsCurrency;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_Facturas_ComisionBASE_IMPONIBLE].AsCurrency := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetBASE_IMPONIBLEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionBASE_IMPONIBLE].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionBASE_IMPONIBLE].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetDESCUENTOValue: Float;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionDESCUENTO].AsFloat;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetDESCUENTOValue(const aValue: Float);
-begin
- DataTable.Fields[idx_Facturas_ComisionDESCUENTO].AsFloat := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetDESCUENTOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionDESCUENTO].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionDESCUENTO].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetIMPORTE_DESCUENTOValue: Currency;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_DESCUENTO].AsCurrency;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_Facturas_ComisionIMPORTE_DESCUENTO].AsCurrency := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetIMPORTE_DESCUENTOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_DESCUENTO].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionIMPORTE_DESCUENTO].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetIVAValue: Float;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionIVA].AsFloat;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIVAValue(const aValue: Float);
-begin
- DataTable.Fields[idx_Facturas_ComisionIVA].AsFloat := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetIVAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionIVA].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIVAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionIVA].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetIMPORTE_IVAValue: Currency;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_IVA].AsCurrency;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIMPORTE_IVAValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_Facturas_ComisionIMPORTE_IVA].AsCurrency := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetIMPORTE_IVAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_IVA].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIMPORTE_IVAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionIMPORTE_IVA].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetREValue: Float;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionRE].AsFloat;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetREValue(const aValue: Float);
-begin
- DataTable.Fields[idx_Facturas_ComisionRE].AsFloat := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetREIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionRE].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetREIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionRE].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetIMPORTE_REValue: Currency;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_RE].AsCurrency;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIMPORTE_REValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_Facturas_ComisionIMPORTE_RE].AsCurrency := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetIMPORTE_REIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_RE].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIMPORTE_REIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionIMPORTE_RE].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetIMPORTE_TOTALValue: Currency;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_TOTAL].AsCurrency;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_Facturas_ComisionIMPORTE_TOTAL].AsCurrency := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_TOTAL].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionIMPORTE_TOTAL].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetOBSERVACIONESValue: IROStrings;
-begin
- result := f_OBSERVACIONES;
- result.Text := DataTable.Fields[idx_Facturas_ComisionOBSERVACIONES].AsString;
-end;
-
-function TFacturas_ComisionDataTableRules.GetOBSERVACIONESIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionOBSERVACIONES].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionOBSERVACIONES].AsVariant := Null;
-end;
-
function TFacturas_ComisionDataTableRules.GetID_CLIENTEValue: Integer;
begin
result := DataTable.Fields[idx_Facturas_ComisionID_CLIENTE].AsInteger;
@@ -1263,342 +745,6 @@ begin
DataTable.Fields[idx_Facturas_ComisionID_CLIENTE].AsVariant := Null;
end;
-function TFacturas_ComisionDataTableRules.GetNOMBRE_CLIENTEValue: String;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionNOMBRE_CLIENTE].AsString;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_Facturas_ComisionNOMBRE_CLIENTE].AsString := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetNOMBRE_CLIENTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionNOMBRE_CLIENTE].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionNOMBRE_CLIENTE].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE].AsString;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE].AsString := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetNIF_CIFValue: String;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionNIF_CIF].AsString;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetNIF_CIFValue(const aValue: String);
-begin
- DataTable.Fields[idx_Facturas_ComisionNIF_CIF].AsString := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetNIF_CIFIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionNIF_CIF].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionNIF_CIF].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetNOMBREValue: String;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionNOMBRE].AsString;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetNOMBREValue(const aValue: String);
-begin
- DataTable.Fields[idx_Facturas_ComisionNOMBRE].AsString := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetNOMBREIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionNOMBRE].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionNOMBRE].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetCALLEValue: String;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionCALLE].AsString;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetCALLEValue(const aValue: String);
-begin
- DataTable.Fields[idx_Facturas_ComisionCALLE].AsString := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetCALLEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionCALLE].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetCALLEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionCALLE].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetPOBLACIONValue: String;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionPOBLACION].AsString;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetPOBLACIONValue(const aValue: String);
-begin
- DataTable.Fields[idx_Facturas_ComisionPOBLACION].AsString := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetPOBLACIONIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionPOBLACION].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionPOBLACION].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetPROVINCIAValue: String;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionPROVINCIA].AsString;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetPROVINCIAValue(const aValue: String);
-begin
- DataTable.Fields[idx_Facturas_ComisionPROVINCIA].AsString := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetPROVINCIAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionPROVINCIA].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionPROVINCIA].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetCODIGO_POSTALValue: String;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionCODIGO_POSTAL].AsString;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
-begin
- DataTable.Fields[idx_Facturas_ComisionCODIGO_POSTAL].AsString := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetCODIGO_POSTALIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionCODIGO_POSTAL].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionCODIGO_POSTAL].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetFECHA_ALTAValue: DateTime;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionFECHA_ALTA].AsDateTime;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_Facturas_ComisionFECHA_ALTA].AsDateTime := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetFECHA_ALTAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionFECHA_ALTA].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionFECHA_ALTA].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionFECHA_MODIFICACION].AsDateTime;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_Facturas_ComisionFECHA_MODIFICACION].AsDateTime := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionFECHA_MODIFICACION].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionFECHA_MODIFICACION].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetUSUARIOValue: String;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionUSUARIO].AsString;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetUSUARIOValue(const aValue: String);
-begin
- DataTable.Fields[idx_Facturas_ComisionUSUARIO].AsString := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetUSUARIOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionUSUARIO].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionUSUARIO].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetID_FORMA_PAGOValue: Integer;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionID_FORMA_PAGO].AsInteger;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_Facturas_ComisionID_FORMA_PAGO].AsInteger := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetID_FORMA_PAGOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionID_FORMA_PAGO].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionID_FORMA_PAGO].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionRECARGO_EQUIVALENCIA].AsSmallInt;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
-begin
- DataTable.Fields[idx_Facturas_ComisionRECARGO_EQUIVALENCIA].AsSmallInt := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionRECARGO_EQUIVALENCIA].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionRECARGO_EQUIVALENCIA].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetID_TIPO_IVAValue: Integer;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionID_TIPO_IVA].AsInteger;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_Facturas_ComisionID_TIPO_IVA].AsInteger := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetID_TIPO_IVAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionID_TIPO_IVA].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionID_TIPO_IVA].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetIMPORTE_NETOValue: Currency;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_NETO].AsCurrency;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIMPORTE_NETOValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_Facturas_ComisionIMPORTE_NETO].AsCurrency := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetIMPORTE_NETOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_NETO].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIMPORTE_NETOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionIMPORTE_NETO].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetIMPORTE_PORTEValue: Currency;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_PORTE].AsCurrency;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_Facturas_ComisionIMPORTE_PORTE].AsCurrency := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetIMPORTE_PORTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_PORTE].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionIMPORTE_PORTE].AsVariant := Null;
-end;
-
function TFacturas_ComisionDataTableRules.GetID_AGENTEValue: Integer;
begin
result := DataTable.Fields[idx_Facturas_ComisionID_AGENTE].AsInteger;
@@ -1620,130 +766,46 @@ begin
DataTable.Fields[idx_Facturas_ComisionID_AGENTE].AsVariant := Null;
end;
-function TFacturas_ComisionDataTableRules.GetREFERENCIA_COMISIONValue: String;
+function TFacturas_ComisionDataTableRules.GetAGENTEValue: String;
begin
- result := DataTable.Fields[idx_Facturas_ComisionREFERENCIA_COMISION].AsString;
+ result := DataTable.Fields[idx_Facturas_ComisionAGENTE].AsString;
end;
-procedure TFacturas_ComisionDataTableRules.SetREFERENCIA_COMISIONValue(const aValue: String);
+procedure TFacturas_ComisionDataTableRules.SetAGENTEValue(const aValue: String);
begin
- DataTable.Fields[idx_Facturas_ComisionREFERENCIA_COMISION].AsString := aValue;
+ DataTable.Fields[idx_Facturas_ComisionAGENTE].AsString := aValue;
end;
-function TFacturas_ComisionDataTableRules.GetREFERENCIA_COMISIONIsNull: boolean;
+function TFacturas_ComisionDataTableRules.GetAGENTEIsNull: boolean;
begin
- result := DataTable.Fields[idx_Facturas_ComisionREFERENCIA_COMISION].IsNull;
+ result := DataTable.Fields[idx_Facturas_ComisionAGENTE].IsNull;
end;
-procedure TFacturas_ComisionDataTableRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
+procedure TFacturas_ComisionDataTableRules.SetAGENTEIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_Facturas_ComisionREFERENCIA_COMISION].AsVariant := Null;
+ DataTable.Fields[idx_Facturas_ComisionAGENTE].AsVariant := Null;
end;
-function TFacturas_ComisionDataTableRules.GetIGNORAR_CONTABILIDADValue: SmallInt;
+function TFacturas_ComisionDataTableRules.GetCLIENTEValue: String;
begin
- result := DataTable.Fields[idx_Facturas_ComisionIGNORAR_CONTABILIDAD].AsSmallInt;
+ result := DataTable.Fields[idx_Facturas_ComisionCLIENTE].AsString;
end;
-procedure TFacturas_ComisionDataTableRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
+procedure TFacturas_ComisionDataTableRules.SetCLIENTEValue(const aValue: String);
begin
- DataTable.Fields[idx_Facturas_ComisionIGNORAR_CONTABILIDAD].AsSmallInt := aValue;
+ DataTable.Fields[idx_Facturas_ComisionCLIENTE].AsString := aValue;
end;
-function TFacturas_ComisionDataTableRules.GetIGNORAR_CONTABILIDADIsNull: boolean;
+function TFacturas_ComisionDataTableRules.GetCLIENTEIsNull: boolean;
begin
- result := DataTable.Fields[idx_Facturas_ComisionIGNORAR_CONTABILIDAD].IsNull;
+ result := DataTable.Fields[idx_Facturas_ComisionCLIENTE].IsNull;
end;
-procedure TFacturas_ComisionDataTableRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
+procedure TFacturas_ComisionDataTableRules.SetCLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_Facturas_ComisionIGNORAR_CONTABILIDAD].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetID_TIENDAValue: Integer;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionID_TIENDA].AsInteger;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetID_TIENDAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_Facturas_ComisionID_TIENDA].AsInteger := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetID_TIENDAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionID_TIENDA].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionID_TIENDA].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetTIENDAValue: String;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionTIENDA].AsString;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetTIENDAValue(const aValue: String);
-begin
- DataTable.Fields[idx_Facturas_ComisionTIENDA].AsString := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetTIENDAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionTIENDA].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetTIENDAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionTIENDA].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetID_SUBCUENTAValue: Integer;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionID_SUBCUENTA].AsInteger;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetID_SUBCUENTAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_Facturas_ComisionID_SUBCUENTA].AsInteger := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetID_SUBCUENTAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionID_SUBCUENTA].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionID_SUBCUENTA].AsVariant := Null;
-end;
-
-function TFacturas_ComisionDataTableRules.GetSUBCUENTAValue: String;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionSUBCUENTA].AsString;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetSUBCUENTAValue(const aValue: String);
-begin
- DataTable.Fields[idx_Facturas_ComisionSUBCUENTA].AsString := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetSUBCUENTAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionSUBCUENTA].IsNull;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetSUBCUENTAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Facturas_ComisionSUBCUENTA].AsVariant := Null;
+ DataTable.Fields[idx_Facturas_ComisionCLIENTE].AsVariant := Null;
end;
@@ -2043,48 +1105,6 @@ begin
DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsVariant := Null;
end;
-function TComisionesDataTableRules.GetFECHA_ALTAValue: DateTime;
-begin
- result := DataTable.Fields[idx_ComisionesFECHA_ALTA].AsDateTime;
-end;
-
-procedure TComisionesDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_ComisionesFECHA_ALTA].AsDateTime := aValue;
-end;
-
-function TComisionesDataTableRules.GetFECHA_ALTAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_ComisionesFECHA_ALTA].IsNull;
-end;
-
-procedure TComisionesDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_ComisionesFECHA_ALTA].AsVariant := Null;
-end;
-
-function TComisionesDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
-begin
- result := DataTable.Fields[idx_ComisionesFECHA_MODIFICACION].AsDateTime;
-end;
-
-procedure TComisionesDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_ComisionesFECHA_MODIFICACION].AsDateTime := aValue;
-end;
-
-function TComisionesDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
-begin
- result := DataTable.Fields[idx_ComisionesFECHA_MODIFICACION].IsNull;
-end;
-
-procedure TComisionesDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_ComisionesFECHA_MODIFICACION].AsVariant := Null;
-end;
-
function TComisionesDataTableRules.GetUSUARIOValue: String;
begin
result := DataTable.Fields[idx_ComisionesUSUARIO].AsString;
@@ -2106,6 +1126,69 @@ begin
DataTable.Fields[idx_ComisionesUSUARIO].AsVariant := Null;
end;
+function TComisionesDataTableRules.GetNOMBREValue: String;
+begin
+ result := DataTable.Fields[idx_ComisionesNOMBRE].AsString;
+end;
+
+procedure TComisionesDataTableRules.SetNOMBREValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ComisionesNOMBRE].AsString := aValue;
+end;
+
+function TComisionesDataTableRules.GetNOMBREIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ComisionesNOMBRE].IsNull;
+end;
+
+procedure TComisionesDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ComisionesNOMBRE].AsVariant := Null;
+end;
+
+function TComisionesDataTableRules.GetDELEGACIONValue: String;
+begin
+ result := DataTable.Fields[idx_ComisionesDELEGACION].AsString;
+end;
+
+procedure TComisionesDataTableRules.SetDELEGACIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ComisionesDELEGACION].AsString := aValue;
+end;
+
+function TComisionesDataTableRules.GetDELEGACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ComisionesDELEGACION].IsNull;
+end;
+
+procedure TComisionesDataTableRules.SetDELEGACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ComisionesDELEGACION].AsVariant := Null;
+end;
+
+function TComisionesDataTableRules.GetCOMISIONValue: Float;
+begin
+ result := DataTable.Fields[idx_ComisionesCOMISION].AsFloat;
+end;
+
+procedure TComisionesDataTableRules.SetCOMISIONValue(const aValue: Float);
+begin
+ DataTable.Fields[idx_ComisionesCOMISION].AsFloat := aValue;
+end;
+
+function TComisionesDataTableRules.GetCOMISIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ComisionesCOMISION].IsNull;
+end;
+
+procedure TComisionesDataTableRules.SetCOMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ComisionesCOMISION].AsVariant := Null;
+end;
+
initialization
RegisterDataTableRules(RID_Facturas_Comision, TFacturas_ComisionDataTableRules);
diff --git a/Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas b/Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas
index a87c86d..7c20163 100644
--- a/Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas
+++ b/Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas
@@ -9,507 +9,182 @@ 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_Facturas_ComisionDelta = '{748F8239-55DC-4C05-A849-907A5AAA7AB4}';
- RID_Vendedores_ComisionDelta = '{F6706BC0-B19A-4DD6-B74B-D0B2C8D6D52F}';
- RID_ComisionesDelta = '{046F6CB9-FA42-49F3-8EF9-A9B9B86B348B}';
+ RID_Facturas_ComisionDelta = '{C73C9E52-4A3E-4C22-9337-9F1E78C504FA}';
+ RID_Vendedores_ComisionDelta = '{50D2FA89-675F-44F6-ABAB-C4512A7E65BC}';
+ RID_ComisionesDelta = '{F01B4D90-1787-42E0-8585-62CF5B4B925E}';
type
{ IFacturas_ComisionDelta }
IFacturas_ComisionDelta = interface(IFacturas_Comision)
- ['{748F8239-55DC-4C05-A849-907A5AAA7AB4}']
+ ['{C73C9E52-4A3E-4C22-9337-9F1E78C504FA}']
{ Property getters and setters }
- function GetOldIDValue : Integer;
+ function GetOldID_FACTURAValue : Integer;
+ function GetOldCOMISIONValue : Float;
+ function GetOldIMPORTE_COMISIONABLEValue : Currency;
+ function GetOldIMPORTE_COMISIONValue : Float;
function GetOldID_EMPRESAValue : Integer;
- function GetOldREFERENCIAValue : String;
- function GetOldTIPOValue : String;
function GetOldID_COMISION_LIQUIDADAValue : Integer;
- function GetOldFECHA_FACTURAValue : DateTime;
+ function GetOldFECHAValue : DateTime;
+ function GetOldREFERENCIAValue : String;
function GetOldSITUACIONValue : String;
- function GetOldBASE_IMPONIBLEValue : Currency;
- function GetOldDESCUENTOValue : Float;
- function GetOldIMPORTE_DESCUENTOValue : Currency;
- function GetOldIVAValue : Float;
- function GetOldIMPORTE_IVAValue : Currency;
- function GetOldREValue : Float;
- function GetOldIMPORTE_REValue : Currency;
- function GetOldIMPORTE_TOTALValue : Currency;
- function GetOldOBSERVACIONESValue : IROStrings;
function GetOldID_CLIENTEValue : Integer;
- function GetOldNOMBRE_CLIENTEValue : String;
- function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
- function GetOldNIF_CIFValue : String;
- function GetOldNOMBREValue : String;
- function GetOldCALLEValue : String;
- function GetOldPOBLACIONValue : String;
- function GetOldPROVINCIAValue : String;
- function GetOldCODIGO_POSTALValue : String;
- function GetOldFECHA_ALTAValue : DateTime;
- function GetOldFECHA_MODIFICACIONValue : DateTime;
- function GetOldUSUARIOValue : String;
- function GetOldID_FORMA_PAGOValue : Integer;
- function GetOldRECARGO_EQUIVALENCIAValue : SmallInt;
- function GetOldID_TIPO_IVAValue : Integer;
- function GetOldIMPORTE_NETOValue : Currency;
- function GetOldIMPORTE_PORTEValue : Currency;
function GetOldID_AGENTEValue : Integer;
- function GetOldREFERENCIA_COMISIONValue : String;
- function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
- function GetOldID_TIENDAValue : Integer;
- function GetOldTIENDAValue : String;
- function GetOldID_SUBCUENTAValue : Integer;
- function GetOldSUBCUENTAValue : String;
+ function GetOldAGENTEValue : String;
+ function GetOldCLIENTEValue : String;
{ Properties }
- property OldID : Integer read GetOldIDValue;
+ property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+ property OldCOMISION : Float read GetOldCOMISIONValue;
+ property OldIMPORTE_COMISIONABLE : Currency read GetOldIMPORTE_COMISIONABLEValue;
+ property OldIMPORTE_COMISION : Float read GetOldIMPORTE_COMISIONValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldTIPO : String read GetOldTIPOValue;
property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
- property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+ property OldFECHA : DateTime read GetOldFECHAValue;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldSITUACION : String read GetOldSITUACIONValue;
- property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
- property OldDESCUENTO : Float read GetOldDESCUENTOValue;
- property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
- property OldIVA : Float read GetOldIVAValue;
- property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
- property OldRE : Float read GetOldREValue;
- property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue;
- property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
- property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
- property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
- property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
- property OldNIF_CIF : String read GetOldNIF_CIFValue;
- property OldNOMBRE : String read GetOldNOMBREValue;
- property OldCALLE : String read GetOldCALLEValue;
- property OldPOBLACION : String read GetOldPOBLACIONValue;
- property OldPROVINCIA : String read GetOldPROVINCIAValue;
- property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
- property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
- property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
- property OldUSUARIO : String read GetOldUSUARIOValue;
- property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
- property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
- property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
- property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
- property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
- property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
- property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
- property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
- property OldTIENDA : String read GetOldTIENDAValue;
- property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
- property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
+ property OldAGENTE : String read GetOldAGENTEValue;
+ property OldCLIENTE : String read GetOldCLIENTEValue;
end;
{ TFacturas_ComisionBusinessProcessorRules }
TFacturas_ComisionBusinessProcessorRules = class(TDABusinessProcessorRules, IFacturas_Comision, IFacturas_ComisionDelta)
private
- f_OBSERVACIONES: IROStrings;
- procedure OBSERVACIONES_OnChange(Sender: TObject);
protected
{ Property getters and setters }
- function GetIDValue: Integer; virtual;
- function GetIDIsNull: Boolean; virtual;
- function GetOldIDValue: Integer; virtual;
- function GetOldIDIsNull: Boolean; virtual;
- procedure SetIDValue(const aValue: Integer); virtual;
- procedure SetIDIsNull(const aValue: Boolean); virtual;
+ function GetID_FACTURAValue: Integer; virtual;
+ function GetID_FACTURAIsNull: Boolean; virtual;
+ function GetOldID_FACTURAValue: Integer; virtual;
+ function GetOldID_FACTURAIsNull: Boolean; virtual;
+ procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+ procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetCOMISIONValue: Float; virtual;
+ function GetCOMISIONIsNull: Boolean; virtual;
+ function GetOldCOMISIONValue: Float; virtual;
+ function GetOldCOMISIONIsNull: Boolean; virtual;
+ procedure SetCOMISIONValue(const aValue: Float); virtual;
+ procedure SetCOMISIONIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_COMISIONABLEValue: Currency; virtual;
+ function GetIMPORTE_COMISIONABLEIsNull: Boolean; virtual;
+ function GetOldIMPORTE_COMISIONABLEValue: Currency; virtual;
+ function GetOldIMPORTE_COMISIONABLEIsNull: Boolean; virtual;
+ procedure SetIMPORTE_COMISIONABLEValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_COMISIONABLEIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_COMISIONValue: Float; virtual;
+ function GetIMPORTE_COMISIONIsNull: Boolean; virtual;
+ function GetOldIMPORTE_COMISIONValue: Float; virtual;
+ function GetOldIMPORTE_COMISIONIsNull: Boolean; virtual;
+ procedure SetIMPORTE_COMISIONValue(const aValue: Float); virtual;
+ procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIAValue: String; virtual;
- function GetREFERENCIAIsNull: Boolean; virtual;
- function GetOldREFERENCIAValue: String; virtual;
- function GetOldREFERENCIAIsNull: Boolean; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
- function GetTIPOValue: String; virtual;
- function GetTIPOIsNull: Boolean; virtual;
- function GetOldTIPOValue: String; virtual;
- function GetOldTIPOIsNull: Boolean; virtual;
- procedure SetTIPOValue(const aValue: String); virtual;
- procedure SetTIPOIsNull(const aValue: Boolean); virtual;
function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual;
function GetOldID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual;
- function GetFECHA_FACTURAValue: DateTime; virtual;
- function GetFECHA_FACTURAIsNull: Boolean; virtual;
- function GetOldFECHA_FACTURAValue: DateTime; virtual;
- function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
- procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
- procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetFECHAValue: DateTime; virtual;
+ function GetFECHAIsNull: Boolean; virtual;
+ function GetOldFECHAValue: DateTime; virtual;
+ function GetOldFECHAIsNull: Boolean; virtual;
+ procedure SetFECHAValue(const aValue: DateTime); virtual;
+ procedure SetFECHAIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAValue(const aValue: String); virtual;
+ procedure SetREFERENCIAIsNull(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 GetBASE_IMPONIBLEValue: Currency; virtual;
- function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
- function GetOldBASE_IMPONIBLEValue: Currency; virtual;
- function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual;
- procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
- procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
- function GetDESCUENTOValue: Float; virtual;
- function GetDESCUENTOIsNull: Boolean; virtual;
- function GetOldDESCUENTOValue: Float; virtual;
- function GetOldDESCUENTOIsNull: Boolean; virtual;
- procedure SetDESCUENTOValue(const aValue: Float); virtual;
- procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_DESCUENTOValue: Currency; virtual;
- function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
- function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
- function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual;
- procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
- function GetIVAValue: Float; virtual;
- function GetIVAIsNull: Boolean; virtual;
- function GetOldIVAValue: Float; virtual;
- function GetOldIVAIsNull: Boolean; virtual;
- procedure SetIVAValue(const aValue: Float); virtual;
- procedure SetIVAIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_IVAValue: Currency; virtual;
- function GetIMPORTE_IVAIsNull: Boolean; virtual;
- function GetOldIMPORTE_IVAValue: Currency; virtual;
- function GetOldIMPORTE_IVAIsNull: Boolean; virtual;
- procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_IVAIsNull(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 GetIMPORTE_TOTALValue: Currency; virtual;
- function GetIMPORTE_TOTALIsNull: Boolean; virtual;
- function GetOldIMPORTE_TOTALValue: Currency; virtual;
- function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
- procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
- function GetOBSERVACIONESValue: IROStrings; virtual;
- function GetOBSERVACIONESIsNull: Boolean; virtual;
- function GetOldOBSERVACIONESValue: IROStrings; virtual;
- function GetOldOBSERVACIONESIsNull: Boolean; virtual;
- procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
function GetID_CLIENTEValue: Integer; virtual;
function GetID_CLIENTEIsNull: Boolean; virtual;
function GetOldID_CLIENTEValue: Integer; virtual;
function GetOldID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
- function GetNOMBRE_CLIENTEValue: String; virtual;
- function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
- function GetOldNOMBRE_CLIENTEValue: String; virtual;
- function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
- procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
- procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
- function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
- function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
- function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
- function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
- procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
- procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
- function GetNIF_CIFValue: String; virtual;
- function GetNIF_CIFIsNull: Boolean; virtual;
- function GetOldNIF_CIFValue: String; virtual;
- function GetOldNIF_CIFIsNull: Boolean; virtual;
- procedure SetNIF_CIFValue(const aValue: String); virtual;
- procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
- function GetNOMBREValue: String; virtual;
- function GetNOMBREIsNull: Boolean; virtual;
- function GetOldNOMBREValue: String; virtual;
- function GetOldNOMBREIsNull: Boolean; virtual;
- procedure SetNOMBREValue(const aValue: String); virtual;
- procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
- function GetCALLEValue: String; virtual;
- function GetCALLEIsNull: Boolean; virtual;
- function GetOldCALLEValue: String; virtual;
- function GetOldCALLEIsNull: Boolean; virtual;
- procedure SetCALLEValue(const aValue: String); virtual;
- procedure SetCALLEIsNull(const aValue: Boolean); virtual;
- function GetPOBLACIONValue: String; virtual;
- function GetPOBLACIONIsNull: Boolean; virtual;
- function GetOldPOBLACIONValue: String; virtual;
- function GetOldPOBLACIONIsNull: Boolean; virtual;
- procedure SetPOBLACIONValue(const aValue: String); virtual;
- procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
- function GetPROVINCIAValue: String; virtual;
- function GetPROVINCIAIsNull: Boolean; virtual;
- function GetOldPROVINCIAValue: String; virtual;
- function GetOldPROVINCIAIsNull: Boolean; virtual;
- procedure SetPROVINCIAValue(const aValue: String); virtual;
- procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
- function GetCODIGO_POSTALValue: String; virtual;
- function GetCODIGO_POSTALIsNull: Boolean; virtual;
- function GetOldCODIGO_POSTALValue: String; virtual;
- function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
- procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
- procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
- function GetFECHA_ALTAValue: DateTime; virtual;
- function GetFECHA_ALTAIsNull: Boolean; virtual;
- function GetOldFECHA_ALTAValue: DateTime; virtual;
- function GetOldFECHA_ALTAIsNull: Boolean; virtual;
- procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
- procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
- function GetFECHA_MODIFICACIONValue: DateTime; virtual;
- function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
- function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
- function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
- procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
- procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
- function GetUSUARIOValue: String; virtual;
- function GetUSUARIOIsNull: Boolean; virtual;
- function GetOldUSUARIOValue: String; virtual;
- function GetOldUSUARIOIsNull: Boolean; virtual;
- procedure SetUSUARIOValue(const aValue: String); virtual;
- procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
- function GetID_FORMA_PAGOValue: Integer; virtual;
- function GetID_FORMA_PAGOIsNull: Boolean; virtual;
- function GetOldID_FORMA_PAGOValue: Integer; virtual;
- function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
- procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
- procedure SetID_FORMA_PAGOIsNull(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 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 GetIMPORTE_NETOValue: Currency; virtual;
- function GetIMPORTE_NETOIsNull: Boolean; virtual;
- function GetOldIMPORTE_NETOValue: Currency; virtual;
- function GetOldIMPORTE_NETOIsNull: Boolean; virtual;
- procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_PORTEValue: Currency; virtual;
- function GetIMPORTE_PORTEIsNull: Boolean; virtual;
- function GetOldIMPORTE_PORTEValue: Currency; virtual;
- function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
- procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetID_AGENTEValue: Integer; virtual;
function GetID_AGENTEIsNull: Boolean; virtual;
function GetOldID_AGENTEValue: Integer; virtual;
function GetOldID_AGENTEIsNull: Boolean; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIA_COMISIONValue: String; virtual;
- function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
- function GetOldREFERENCIA_COMISIONValue: String; virtual;
- function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual;
- procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
- procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
- function GetIGNORAR_CONTABILIDADValue: SmallInt; virtual;
- function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
- function GetOldIGNORAR_CONTABILIDADValue: SmallInt; virtual;
- function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
- procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual;
- procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
- function GetID_TIENDAValue: Integer; virtual;
- function GetID_TIENDAIsNull: Boolean; virtual;
- function GetOldID_TIENDAValue: Integer; virtual;
- function GetOldID_TIENDAIsNull: Boolean; virtual;
- procedure SetID_TIENDAValue(const aValue: Integer); virtual;
- procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
- function GetTIENDAValue: String; virtual;
- function GetTIENDAIsNull: Boolean; virtual;
- function GetOldTIENDAValue: String; virtual;
- function GetOldTIENDAIsNull: Boolean; virtual;
- procedure SetTIENDAValue(const aValue: String); virtual;
- procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
- function GetID_SUBCUENTAValue: Integer; virtual;
- function GetID_SUBCUENTAIsNull: Boolean; virtual;
- function GetOldID_SUBCUENTAValue: Integer; virtual;
- function GetOldID_SUBCUENTAIsNull: Boolean; virtual;
- procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
- procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
- function GetSUBCUENTAValue: String; virtual;
- function GetSUBCUENTAIsNull: Boolean; virtual;
- function GetOldSUBCUENTAValue: String; virtual;
- function GetOldSUBCUENTAIsNull: Boolean; virtual;
- procedure SetSUBCUENTAValue(const aValue: String); virtual;
- procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
+ function GetAGENTEValue: String; virtual;
+ function GetAGENTEIsNull: Boolean; virtual;
+ function GetOldAGENTEValue: String; virtual;
+ function GetOldAGENTEIsNull: Boolean; virtual;
+ procedure SetAGENTEValue(const aValue: String); virtual;
+ procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
+ function GetCLIENTEValue: String; virtual;
+ function GetCLIENTEIsNull: Boolean; virtual;
+ function GetOldCLIENTEValue: String; virtual;
+ function GetOldCLIENTEIsNull: Boolean; virtual;
+ procedure SetCLIENTEValue(const aValue: String); virtual;
+ procedure SetCLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties }
- property ID : Integer read GetIDValue write SetIDValue;
- property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
- property OldID : Integer read GetOldIDValue;
- property OldIDIsNull : Boolean read GetOldIDIsNull;
+ property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+ property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+ property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+ property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
+ property COMISION : Float read GetCOMISIONValue write SetCOMISIONValue;
+ property COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
+ property OldCOMISION : Float read GetOldCOMISIONValue;
+ property OldCOMISIONIsNull : Boolean read GetOldCOMISIONIsNull;
+ property IMPORTE_COMISIONABLE : Currency read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
+ property IMPORTE_COMISIONABLEIsNull : Boolean read GetIMPORTE_COMISIONABLEIsNull write SetIMPORTE_COMISIONABLEIsNull;
+ property OldIMPORTE_COMISIONABLE : Currency read GetOldIMPORTE_COMISIONABLEValue;
+ property OldIMPORTE_COMISIONABLEIsNull : Boolean read GetOldIMPORTE_COMISIONABLEIsNull;
+ property IMPORTE_COMISION : Float read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
+ property IMPORTE_COMISIONIsNull : Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull;
+ property OldIMPORTE_COMISION : Float read GetOldIMPORTE_COMISIONValue;
+ property OldIMPORTE_COMISIONIsNull : Boolean read GetOldIMPORTE_COMISIONIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
- property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
- property TIPO : String read GetTIPOValue write SetTIPOValue;
- property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull;
- property OldTIPO : String read GetOldTIPOValue;
- property OldTIPOIsNull : Boolean read GetOldTIPOIsNull;
property ID_COMISION_LIQUIDADA : Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
property ID_COMISION_LIQUIDADAIsNull : Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
property OldID_COMISION_LIQUIDADAIsNull : Boolean read GetOldID_COMISION_LIQUIDADAIsNull;
- property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
- property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
- property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
- property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
+ property FECHA : DateTime read GetFECHAValue write SetFECHAValue;
+ property FECHAIsNull : Boolean read GetFECHAIsNull write SetFECHAIsNull;
+ property OldFECHA : DateTime read GetOldFECHAValue;
+ property OldFECHAIsNull : Boolean read GetOldFECHAIsNull;
+ property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
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 BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
- property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
- property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
- property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull;
- property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
- property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
- property OldDESCUENTO : Float read GetOldDESCUENTOValue;
- property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
- property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
- property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
- property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
- property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull;
- property IVA : Float read GetIVAValue write SetIVAValue;
- property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull;
- property OldIVA : Float read GetOldIVAValue;
- property OldIVAIsNull : Boolean read GetOldIVAIsNull;
- property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
- property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
- property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
- property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull;
- 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 IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
- property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
- property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue;
- property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
- property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
- property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull;
property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
- property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
- property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
- property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
- property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
- property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
- property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
- property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
- property OldNOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetOldNOMBRE_COMERCIAL_CLIENTEIsNull;
- property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
- property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
- property OldNIF_CIF : String read GetOldNIF_CIFValue;
- property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
- property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
- property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
- property OldNOMBRE : String read GetOldNOMBREValue;
- property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
- property CALLE : String read GetCALLEValue write SetCALLEValue;
- property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
- property OldCALLE : String read GetOldCALLEValue;
- property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
- property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
- property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
- property OldPOBLACION : String read GetOldPOBLACIONValue;
- property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
- property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
- property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
- property OldPROVINCIA : String read GetOldPROVINCIAValue;
- property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
- property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
- property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
- property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
- property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
- property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
- property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
- property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
- property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
- property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
- property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
- property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
- property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
- property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
- property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
- property OldUSUARIO : String read GetOldUSUARIOValue;
- property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
- property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
- property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
- property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
- property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
- 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 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 IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
- property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
- property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
- property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull;
- property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
- property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
- property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
- property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
- property REFERENCIA_COMISION : String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
- property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
- property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
- property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull;
- property IGNORAR_CONTABILIDAD : SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
- property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
- property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
- property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
- property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
- property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
- property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
- property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
- property TIENDA : String read GetTIENDAValue write SetTIENDAValue;
- property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
- property OldTIENDA : String read GetOldTIENDAValue;
- property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
- property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
- property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
- property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
- property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull;
- property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue;
- property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
- property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
- property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
+ property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
+ property AGENTEIsNull : Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
+ property OldAGENTE : String read GetOldAGENTEValue;
+ property OldAGENTEIsNull : Boolean read GetOldAGENTEIsNull;
+ property CLIENTE : String read GetCLIENTEValue write SetCLIENTEValue;
+ property CLIENTEIsNull : Boolean read GetCLIENTEIsNull write SetCLIENTEIsNull;
+ property OldCLIENTE : String read GetOldCLIENTEValue;
+ property OldCLIENTEIsNull : Boolean read GetOldCLIENTEIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -519,7 +194,7 @@ type
{ IVendedores_ComisionDelta }
IVendedores_ComisionDelta = interface(IVendedores_Comision)
- ['{F6706BC0-B19A-4DD6-B74B-D0B2C8D6D52F}']
+ ['{50D2FA89-675F-44F6-ABAB-C4512A7E65BC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_COMISIONValue : Integer;
@@ -613,7 +288,7 @@ type
{ IComisionesDelta }
IComisionesDelta = interface(IComisiones)
- ['{046F6CB9-FA42-49F3-8EF9-A9B9B86B348B}']
+ ['{F01B4D90-1787-42E0-8585-62CF5B4B925E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -622,9 +297,10 @@ type
function GetOldDESCRIPCIONValue : String;
function GetOldFECHAValue : DateTime;
function GetOldIMPORTE_TOTALValue : Currency;
- function GetOldFECHA_ALTAValue : DateTime;
- function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
+ function GetOldNOMBREValue : String;
+ function GetOldDELEGACIONValue : String;
+ function GetOldCOMISIONValue : Float;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -634,9 +310,10 @@ type
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFECHA : DateTime read GetOldFECHAValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
- property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
- property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldDELEGACION : String read GetOldDELEGACIONValue;
+ property OldCOMISION : Float read GetOldCOMISIONValue;
end;
{ TComisionesBusinessProcessorRules }
@@ -686,24 +363,30 @@ type
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
- function GetFECHA_ALTAValue: DateTime; virtual;
- function GetFECHA_ALTAIsNull: Boolean; virtual;
- function GetOldFECHA_ALTAValue: DateTime; virtual;
- function GetOldFECHA_ALTAIsNull: Boolean; virtual;
- procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
- procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
- function GetFECHA_MODIFICACIONValue: DateTime; virtual;
- function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
- function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
- function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
- procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
- procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
function GetUSUARIOIsNull: Boolean; virtual;
function GetOldUSUARIOValue: String; virtual;
function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
+ function GetNOMBREValue: String; virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ function GetOldNOMBREValue: String; virtual;
+ function GetOldNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREValue(const aValue: String); virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
+ function GetDELEGACIONValue: String; virtual;
+ function GetDELEGACIONIsNull: Boolean; virtual;
+ function GetOldDELEGACIONValue: String; virtual;
+ function GetOldDELEGACIONIsNull: Boolean; virtual;
+ procedure SetDELEGACIONValue(const aValue: String); virtual;
+ procedure SetDELEGACIONIsNull(const aValue: Boolean); virtual;
+ function GetCOMISIONValue: Float; virtual;
+ function GetCOMISIONIsNull: Boolean; virtual;
+ function GetOldCOMISIONValue: Float; virtual;
+ function GetOldCOMISIONIsNull: Boolean; virtual;
+ procedure SetCOMISIONValue(const aValue: Float); virtual;
+ procedure SetCOMISIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -734,18 +417,22 @@ type
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
- property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
- property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
- property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
- property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
- property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
- property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
- property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
- property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
+ property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
+ property DELEGACION : String read GetDELEGACIONValue write SetDELEGACIONValue;
+ property DELEGACIONIsNull : Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
+ property OldDELEGACION : String read GetOldDELEGACIONValue;
+ property OldDELEGACIONIsNull : Boolean read GetOldDELEGACIONIsNull;
+ property COMISION : Float read GetCOMISIONValue write SetCOMISIONValue;
+ property COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
+ property OldCOMISION : Float read GetOldCOMISIONValue;
+ property OldCOMISIONIsNull : Boolean read GetOldCOMISIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -760,14 +447,8 @@ uses
{ TFacturas_ComisionBusinessProcessorRules }
constructor TFacturas_ComisionBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
-var
- StrList: TStringList;
begin
inherited;
-
- StrList := TStringList.Create;
- StrList.OnChange := OBSERVACIONES_OnChange;
- f_OBSERVACIONES := NewROStrings(StrList,True);
end;
destructor TFacturas_ComisionBusinessProcessorRules.Destroy;
@@ -775,40 +456,128 @@ begin
inherited;
end;
-procedure TFacturas_ComisionBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject);
+function TFacturas_ComisionBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionOBSERVACIONES] := TStringList(Sender).Text;
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FACTURA];
end;
-function TFacturas_ComisionBusinessProcessorRules.GetIDValue: Integer;
+function TFacturas_ComisionBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID];
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FACTURA]);
end;
-function TFacturas_ComisionBusinessProcessorRules.GetIDIsNull: Boolean;
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID]);
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_FACTURA];
end;
-function TFacturas_ComisionBusinessProcessorRules.GetOldIDValue: Integer;
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID];
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_FACTURA]);
end;
-function TFacturas_ComisionBusinessProcessorRules.GetOldIDIsNull: Boolean;
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID]);
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FACTURA] := aValue;
end;
-procedure TFacturas_ComisionBusinessProcessorRules.SetIDValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FACTURA] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetCOMISIONValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCOMISION];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetCOMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCOMISION]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldCOMISIONValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCOMISION];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldCOMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCOMISION]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetCOMISIONValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCOMISION] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetCOMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCOMISION] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_COMISIONABLEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_COMISIONABLE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_COMISIONABLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_COMISIONABLE]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_COMISIONABLEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_COMISIONABLE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_COMISIONABLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_COMISIONABLE]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_COMISIONABLEValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_COMISIONABLE] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_COMISIONABLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_COMISIONABLE] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_COMISIONValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_COMISION];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_COMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_COMISION]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_COMISIONValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_COMISION];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_COMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_COMISION]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_COMISIONValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_COMISION] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_COMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_COMISION] := Null;
end;
function TFacturas_ComisionBusinessProcessorRules.GetID_EMPRESAValue: Integer;
@@ -842,68 +611,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_EMPRESA] := Null;
end;
-function TFacturas_ComisionBusinessProcessorRules.GetREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionREFERENCIA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionREFERENCIA]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetTIPOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIPO];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetTIPOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIPO]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldTIPOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionTIPO];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldTIPOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionTIPO]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetTIPOValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIPO] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIPO] := Null;
-end;
-
function TFacturas_ComisionBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA];
@@ -935,35 +642,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA] := Null;
end;
-function TFacturas_ComisionBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
+function TFacturas_ComisionBusinessProcessorRules.GetFECHAValue: DateTime;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_FACTURA];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA];
end;
-function TFacturas_ComisionBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean;
+function TFacturas_ComisionBusinessProcessorRules.GetFECHAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_FACTURA]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA]);
end;
-function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
+function TFacturas_ComisionBusinessProcessorRules.GetOldFECHAValue: DateTime;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_FACTURA];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA];
end;
-function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean;
+function TFacturas_ComisionBusinessProcessorRules.GetOldFECHAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_FACTURA]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA]);
end;
-procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+procedure TFacturas_ComisionBusinessProcessorRules.SetFECHAValue(const aValue: DateTime);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_FACTURA] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA] := aValue;
end;
-procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+procedure TFacturas_ComisionBusinessProcessorRules.SetFECHAIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_FACTURA] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionREFERENCIA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionREFERENCIA]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA] := Null;
end;
function TFacturas_ComisionBusinessProcessorRules.GetSITUACIONValue: String;
@@ -997,282 +735,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSITUACION] := Null;
end;
-function TFacturas_ComisionBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionBASE_IMPONIBLE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionBASE_IMPONIBLE]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionBASE_IMPONIBLE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionBASE_IMPONIBLE]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionBASE_IMPONIBLE] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionBASE_IMPONIBLE] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetDESCUENTOValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionDESCUENTO];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionDESCUENTO]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldDESCUENTOValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionDESCUENTO];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionDESCUENTO]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionDESCUENTO] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionDESCUENTO] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetIVAValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIVA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetIVAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIVA]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldIVAValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIVA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldIVAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIVA]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIVAValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIVA] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIVA] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_IVAValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_IVA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_IVA]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_IVA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_IVA]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_IVA] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_IVAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_IVA] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetREValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetREIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRE]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldREValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionRE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldREIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionRE]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetREValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRE] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetREIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRE] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_REValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_RE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_REIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_RE]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_REValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_RE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_REIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_RE]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_REValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_RE] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_REIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_RE] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_TOTAL];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_TOTAL]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_TOTAL];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_TOTAL]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_TOTAL] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_TOTAL] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
-begin
- result := f_OBSERVACIONES;
- result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionOBSERVACIONES];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionOBSERVACIONES]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
-begin
- result := NewROStrings();
- result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionOBSERVACIONES];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionOBSERVACIONES]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionOBSERVACIONES] := Null;
-end;
-
function TFacturas_ComisionBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_CLIENTE];
@@ -1304,502 +766,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_CLIENTE] := Null;
end;
-function TFacturas_ComisionBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetNIF_CIFValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNIF_CIF];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNIF_CIF]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldNIF_CIFValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNIF_CIF];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNIF_CIF]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNIF_CIF] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNIF_CIF] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetNOMBREValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetNOMBREIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBREValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBREValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetCALLEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCALLE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetCALLEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCALLE]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldCALLEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCALLE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCALLE]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetCALLEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCALLE] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCALLE] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetPOBLACIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPOBLACION];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPOBLACION]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldPOBLACIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionPOBLACION];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionPOBLACION]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPOBLACION] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPOBLACION] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetPROVINCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPROVINCIA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPROVINCIA]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldPROVINCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionPROVINCIA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionPROVINCIA]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPROVINCIA] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPROVINCIA] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetCODIGO_POSTALValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCODIGO_POSTAL];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCODIGO_POSTAL]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCODIGO_POSTAL];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCODIGO_POSTAL]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCODIGO_POSTAL] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCODIGO_POSTAL] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_ALTA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_ALTA]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_ALTA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_ALTA]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_ALTA] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_ALTA] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_MODIFICACION];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_MODIFICACION]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_MODIFICACION];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_MODIFICACION]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_MODIFICACION] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_MODIFICACION] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetUSUARIOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionUSUARIO];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionUSUARIO]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldUSUARIOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionUSUARIO];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionUSUARIO]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionUSUARIO] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionUSUARIO] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FORMA_PAGO];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FORMA_PAGO]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_FORMA_PAGO];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_FORMA_PAGO]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FORMA_PAGO] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FORMA_PAGO] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIPO_IVA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIPO_IVA]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_TIPO_IVA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_TIPO_IVA]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIPO_IVA] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIPO_IVA] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_NETOValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_NETO];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_NETO]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_NETO];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_NETO]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_NETO] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_NETO] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_PORTE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_PORTE]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_PORTE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_PORTE]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_PORTE] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_PORTE] := Null;
-end;
-
function TFacturas_ComisionBusinessProcessorRules.GetID_AGENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_AGENTE];
@@ -1831,190 +797,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_AGENTE] := Null;
end;
-function TFacturas_ComisionBusinessProcessorRules.GetREFERENCIA_COMISIONValue: String;
+function TFacturas_ComisionBusinessProcessorRules.GetAGENTEValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA_COMISION];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionAGENTE];
end;
-function TFacturas_ComisionBusinessProcessorRules.GetREFERENCIA_COMISIONIsNull: Boolean;
+function TFacturas_ComisionBusinessProcessorRules.GetAGENTEIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA_COMISION]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionAGENTE]);
end;
-function TFacturas_ComisionBusinessProcessorRules.GetOldREFERENCIA_COMISIONValue: String;
+function TFacturas_ComisionBusinessProcessorRules.GetOldAGENTEValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionREFERENCIA_COMISION];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionAGENTE];
end;
-function TFacturas_ComisionBusinessProcessorRules.GetOldREFERENCIA_COMISIONIsNull: Boolean;
+function TFacturas_ComisionBusinessProcessorRules.GetOldAGENTEIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionREFERENCIA_COMISION]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionAGENTE]);
end;
-procedure TFacturas_ComisionBusinessProcessorRules.SetREFERENCIA_COMISIONValue(const aValue: String);
+procedure TFacturas_ComisionBusinessProcessorRules.SetAGENTEValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA_COMISION] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionAGENTE] := aValue;
end;
-procedure TFacturas_ComisionBusinessProcessorRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
+procedure TFacturas_ComisionBusinessProcessorRules.SetAGENTEIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA_COMISION] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionAGENTE] := Null;
end;
-function TFacturas_ComisionBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: SmallInt;
+function TFacturas_ComisionBusinessProcessorRules.GetCLIENTEValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCLIENTE];
end;
-function TFacturas_ComisionBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean;
+function TFacturas_ComisionBusinessProcessorRules.GetCLIENTEIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCLIENTE]);
end;
-function TFacturas_ComisionBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: SmallInt;
+function TFacturas_ComisionBusinessProcessorRules.GetOldCLIENTEValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCLIENTE];
end;
-function TFacturas_ComisionBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean;
+function TFacturas_ComisionBusinessProcessorRules.GetOldCLIENTEIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCLIENTE]);
end;
-procedure TFacturas_ComisionBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
+procedure TFacturas_ComisionBusinessProcessorRules.SetCLIENTEValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCLIENTE] := aValue;
end;
-procedure TFacturas_ComisionBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
+procedure TFacturas_ComisionBusinessProcessorRules.SetCLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetID_TIENDAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIENDA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIENDA]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_TIENDA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_TIENDA]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIENDA] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIENDA] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetTIENDAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIENDA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetTIENDAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIENDA]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldTIENDAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionTIENDA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldTIENDAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionTIENDA]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetTIENDAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIENDA] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIENDA] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_SUBCUENTA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_SUBCUENTA]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_SUBCUENTA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_SUBCUENTA]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_SUBCUENTA] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_SUBCUENTA] := Null;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetSUBCUENTAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSUBCUENTA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSUBCUENTA]);
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldSUBCUENTAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionSUBCUENTA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionSUBCUENTA]);
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSUBCUENTA] := aValue;
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSUBCUENTA] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCLIENTE] := Null;
end;
@@ -2444,68 +1286,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesIMPORTE_TOTAL] := Null;
end;
-function TComisionesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_ALTA];
-end;
-
-function TComisionesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_ALTA]);
-end;
-
-function TComisionesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA_ALTA];
-end;
-
-function TComisionesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA_ALTA]);
-end;
-
-procedure TComisionesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_ALTA] := aValue;
-end;
-
-procedure TComisionesBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_ALTA] := Null;
-end;
-
-function TComisionesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_MODIFICACION];
-end;
-
-function TComisionesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_MODIFICACION]);
-end;
-
-function TComisionesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA_MODIFICACION];
-end;
-
-function TComisionesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA_MODIFICACION]);
-end;
-
-procedure TComisionesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_MODIFICACION] := aValue;
-end;
-
-procedure TComisionesBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_MODIFICACION] := Null;
-end;
-
function TComisionesBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesUSUARIO];
@@ -2537,6 +1317,99 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesUSUARIO] := Null;
end;
+function TComisionesBusinessProcessorRules.GetNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesNOMBRE];
+end;
+
+function TComisionesBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesNOMBRE]);
+end;
+
+function TComisionesBusinessProcessorRules.GetOldNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesNOMBRE];
+end;
+
+function TComisionesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesNOMBRE]);
+end;
+
+procedure TComisionesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesNOMBRE] := aValue;
+end;
+
+procedure TComisionesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesNOMBRE] := Null;
+end;
+
+function TComisionesBusinessProcessorRules.GetDELEGACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDELEGACION];
+end;
+
+function TComisionesBusinessProcessorRules.GetDELEGACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDELEGACION]);
+end;
+
+function TComisionesBusinessProcessorRules.GetOldDELEGACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesDELEGACION];
+end;
+
+function TComisionesBusinessProcessorRules.GetOldDELEGACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesDELEGACION]);
+end;
+
+procedure TComisionesBusinessProcessorRules.SetDELEGACIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDELEGACION] := aValue;
+end;
+
+procedure TComisionesBusinessProcessorRules.SetDELEGACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDELEGACION] := Null;
+end;
+
+function TComisionesBusinessProcessorRules.GetCOMISIONValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesCOMISION];
+end;
+
+function TComisionesBusinessProcessorRules.GetCOMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesCOMISION]);
+end;
+
+function TComisionesBusinessProcessorRules.GetOldCOMISIONValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesCOMISION];
+end;
+
+function TComisionesBusinessProcessorRules.GetOldCOMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesCOMISION]);
+end;
+
+procedure TComisionesBusinessProcessorRules.SetCOMISIONValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesCOMISION] := aValue;
+end;
+
+procedure TComisionesBusinessProcessorRules.SetCOMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesCOMISION] := Null;
+end;
+
initialization
RegisterBusinessProcessorRules(RID_Facturas_ComisionDelta, TFacturas_ComisionBusinessProcessorRules);
diff --git a/Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm b/Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm
index a4a9ead..1464ed6 100644
--- a/Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm
+++ b/Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm
@@ -65,9 +65,7 @@ object PluginComisiones: TPluginComisiones
object actComisiones: TAction
Category = 'Comisiones'
Caption = 'Liquidaciones de comisiones'
- Enabled = False
ImageIndex = 0
- Visible = False
OnExecute = actComisionesExecute
OnUpdate = actComisionesUpdate
end
@@ -79,7 +77,7 @@ object PluginComisiones: TPluginComisiones
object Empresas1: TMenuItem
Caption = 'Empresa'
object Comisiones1: TMenuItem
- Tag = 201
+ Tag = 300
Action = actComisiones
SubMenuImages = SmallImages
end
diff --git a/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm b/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm
index f70f05b..092eefe 100644
--- a/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm
+++ b/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm
@@ -44,18 +44,15 @@ object RptComisiones: TRptComisiones
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- end
item
Name = 'USUARIO'
DataType = datString
Size = 30
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
end>
Params = <
item
@@ -193,26 +190,24 @@ object RptComisiones: TRptComisiones
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
- TargetTable = 'V_FACTURAS_CLIENTE'
+ TargetTable = 'V_AGEN_COM_DET_AGRU'
Name = 'IBX'
SQL =
- 'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, TIPO, ID_COMISION_LIQUID' +
- 'ADA, '#10' FECHA_FACTURA, SITUACION, BASE_IMPONIBLE, DESCUENTO, '#10 +
- ' IMPORTE_DESCUENTO, IVA, IMPORTE_IVA, RE, IMPORTE_RE, '#10' IM' +
- 'PORTE_TOTAL, OBSERVACIONES, ID_CLIENTE, NOMBRE_CLIENTE, '#10' NOM' +
- 'BRE_COMERCIAL_CLIENTE, NIF_CIF, NOMBRE, CALLE, POBLACION, '#10' P' +
- 'ROVINCIA, CODIGO_POSTAL, FECHA_ALTA, FECHA_MODIFICACION, '#10' US' +
- 'UARIO, ID_FORMA_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA, '#10' IM' +
- 'PORTE_NETO, IMPORTE_PORTE, ID_AGENTE, REFERENCIA_COMISION, '#10' ' +
- 'IGNORAR_CONTABILIDAD, ID_TIENDA, TIENDA, ID_SUBCUENTA, '#10' SUBC' +
- 'UENTA'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE ID_COMISION_LIQUIDAD' +
- 'A = :ID'#10
+ 'select'#10' V_AGEN_COM_DET_AGRU.ID_FACTURA,'#10' V_AGEN_COM_' +
+ 'DET_AGRU.COMISION,'#10' V_AGEN_COM_DET_AGRU.IMPORTE_COMISIONAB' +
+ 'LE,'#10' V_AGEN_COM_DET_AGRU.IMPORTE_COMISION,'#10#10' FACTURA' +
+ 'S_CLIENTE.ID_EMPRESA,'#10' FACTURAS_CLIENTE.ID_COMISION_LIQUID' +
+ 'ADA,'#10' FACTURAS_CLIENTE.FECHA_FACTURA as FECHA,'#10' FACT' +
+ 'URAS_CLIENTE.REFERENCIA,'#10' FACTURAS_CLIENTE.SITUACION,'#10' ' +
+ ' FACTURAS_CLIENTE.ID_CLIENTE,'#10' FACTURAS_CLIENTE.ID_AGENT' +
+ 'E,'#10#10' CONTACTOS1.NOMBRE as AGENTE,'#10' CONTACTOS2.NOMBRE' +
+ ' as CLIENTE'#10#10#10'from V_AGEN_COM_DET_AGRU'#10'LEFT JOIN FACTURAS_CLIENT' +
+ 'E on (FACTURAS_CLIENTE.ID = V_AGEN_COM_DET_AGRU.ID_FACTURA)'#10'LEFT' +
+ ' JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = FACTURAS_CLIENTE.' +
+ 'ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONTACTOS2 ON (CONTACTOS2.ID = FA' +
+ 'CTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE ID_COMISION_LIQUIDADA = :ID'#10
StatementType = stSQL
ColumnMappings = <
- item
- DatasetField = 'ID'
- TableField = 'ID'
- end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
@@ -221,329 +216,107 @@ object RptComisiones: TRptComisiones
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
- item
- DatasetField = 'TIPO'
- TableField = 'TIPO'
- end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
end
- item
- DatasetField = 'FECHA_FACTURA'
- TableField = 'FECHA_FACTURA'
- end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
- item
- DatasetField = 'BASE_IMPONIBLE'
- TableField = 'BASE_IMPONIBLE'
- end
- item
- DatasetField = 'DESCUENTO'
- TableField = 'DESCUENTO'
- end
- item
- DatasetField = 'IMPORTE_DESCUENTO'
- TableField = 'IMPORTE_DESCUENTO'
- 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 = 'IMPORTE_TOTAL'
- TableField = 'IMPORTE_TOTAL'
- end
- item
- DatasetField = 'OBSERVACIONES'
- TableField = 'OBSERVACIONES'
- end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
- item
- DatasetField = 'NOMBRE_CLIENTE'
- TableField = 'NOMBRE_CLIENTE'
- end
- item
- DatasetField = 'NOMBRE_COMERCIAL_CLIENTE'
- TableField = 'NOMBRE_COMERCIAL_CLIENTE'
- end
- item
- DatasetField = 'NIF_CIF'
- TableField = 'NIF_CIF'
- end
- item
- DatasetField = 'NOMBRE'
- TableField = 'NOMBRE'
- end
- item
- DatasetField = 'CALLE'
- TableField = 'CALLE'
- end
- item
- DatasetField = 'POBLACION'
- TableField = 'POBLACION'
- end
- item
- DatasetField = 'PROVINCIA'
- TableField = 'PROVINCIA'
- end
- item
- DatasetField = 'CODIGO_POSTAL'
- TableField = 'CODIGO_POSTAL'
- end
- item
- DatasetField = 'FECHA_ALTA'
- TableField = 'FECHA_ALTA'
- end
- item
- DatasetField = 'FECHA_MODIFICACION'
- TableField = 'FECHA_MODIFICACION'
- end
- item
- DatasetField = 'USUARIO'
- TableField = 'USUARIO'
- end
- item
- DatasetField = 'ID_FORMA_PAGO'
- TableField = 'ID_FORMA_PAGO'
- end
- item
- DatasetField = 'RECARGO_EQUIVALENCIA'
- TableField = 'RECARGO_EQUIVALENCIA'
- end
- item
- DatasetField = 'ID_TIPO_IVA'
- TableField = 'ID_TIPO_IVA'
- end
- item
- DatasetField = 'IMPORTE_NETO'
- TableField = 'IMPORTE_NETO'
- end
- item
- DatasetField = 'IMPORTE_PORTE'
- TableField = 'IMPORTE_PORTE'
- end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
- DatasetField = 'REFERENCIA_COMISION'
- TableField = 'REFERENCIA_COMISION'
+ DatasetField = 'ID_FACTURA'
+ TableField = 'ID_FACTURA'
end
item
- DatasetField = 'IGNORAR_CONTABILIDAD'
- TableField = 'IGNORAR_CONTABILIDAD'
+ DatasetField = 'COMISION'
+ TableField = 'COMISION'
end
item
- DatasetField = 'ID_TIENDA'
- TableField = 'ID_TIENDA'
+ DatasetField = 'IMPORTE_COMISIONABLE'
+ TableField = ''
+ SQLOrigin = 'IMPORTE_COMISIONABLE'
end
item
- DatasetField = 'TIENDA'
- TableField = 'TIENDA'
+ DatasetField = 'IMPORTE_COMISION'
+ TableField = 'IMPORTE_COMISION'
end
item
- DatasetField = 'ID_SUBCUENTA'
- TableField = 'ID_SUBCUENTA'
+ DatasetField = 'FECHA'
+ TableField = 'FECHA'
end
item
- DatasetField = 'SUBCUENTA'
- TableField = 'SUBCUENTA'
+ DatasetField = 'AGENTE'
+ TableField = 'AGENTE'
+ end
+ item
+ DatasetField = 'CLIENTE'
+ TableField = 'CLIENTE'
end>
end>
- Name = 'InformeComisionesFacturas'
+ Name = 'InformeFacturasComision'
Fields = <
item
- Name = 'ID'
+ Name = 'ID_FACTURA'
DataType = datInteger
end
+ item
+ Name = 'COMISION'
+ DataType = datFloat
+ end
+ item
+ Name = 'IMPORTE_COMISIONABLE'
+ DataType = datCurrency
+ end
+ item
+ Name = 'IMPORTE_COMISION'
+ DataType = datFloat
+ end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
+ item
+ Name = 'ID_COMISION_LIQUIDADA'
+ DataType = datInteger
+ end
+ item
+ Name = 'FECHA'
+ DataType = datDateTime
+ end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
- item
- Name = 'TIPO'
- DataType = datString
- Size = 1
- end
- item
- Name = 'ID_COMISION_LIQUIDADA'
- DataType = datInteger
- end
- item
- Name = 'FECHA_FACTURA'
- DataType = datDateTime
- end
item
Name = 'SITUACION'
DataType = datString
- Size = 19
- end
- item
- Name = 'BASE_IMPONIBLE'
- DataType = datCurrency
- end
- item
- Name = 'DESCUENTO'
- DataType = datFloat
- end
- item
- Name = 'IMPORTE_DESCUENTO'
- DataType = datCurrency
- 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 = 'IMPORTE_TOTAL'
- DataType = datCurrency
- end
- item
- Name = 'OBSERVACIONES'
- DataType = datMemo
+ Size = 255
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
- item
- Name = 'NOMBRE_CLIENTE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'NOMBRE_COMERCIAL_CLIENTE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'NIF_CIF'
- DataType = datString
- Size = 15
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'POBLACION'
- DataType = datString
- Size = 255
- end
- item
- Name = 'PROVINCIA'
- DataType = datString
- Size = 255
- end
- item
- Name = 'CODIGO_POSTAL'
- DataType = datString
- Size = 10
- end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- end
- item
- Name = 'USUARIO'
- DataType = datString
- Size = 30
- end
- item
- Name = 'ID_FORMA_PAGO'
- DataType = datInteger
- end
- item
- Name = 'RECARGO_EQUIVALENCIA'
- DataType = datSmallInt
- end
- item
- Name = 'ID_TIPO_IVA'
- DataType = datInteger
- end
- item
- Name = 'IMPORTE_NETO'
- DataType = datCurrency
- end
- item
- Name = 'IMPORTE_PORTE'
- DataType = datCurrency
- end
item
Name = 'ID_AGENTE'
DataType = datInteger
end
item
- Name = 'REFERENCIA_COMISION'
+ Name = 'AGENTE'
DataType = datString
Size = 255
end
item
- Name = 'IGNORAR_CONTABILIDAD'
- DataType = datSmallInt
- end
- item
- Name = 'ID_TIENDA'
- DataType = datInteger
- end
- item
- Name = 'TIENDA'
- DataType = datString
- Size = 255
- end
- item
- Name = 'ID_SUBCUENTA'
- DataType = datInteger
- end
- item
- Name = 'SUBCUENTA'
+ Name = 'CLIENTE'
DataType = datString
Size = 255
end>
@@ -558,11 +331,8 @@ object RptComisiones: TRptComisiones
Statements = <
item
Connection = 'IBX'
- TargetTable = 'COMISIONES_LIQUIDADAS'
- SQL =
- 'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, ID_AGENTE, DESCRIPCION, ' +
- #10' FECHA, IMPORTE_TOTAL, FECHA_ALTA, FECHA_MODIFICACION, '#10' ' +
- 'USUARIO'#10' FROM'#10' COMISIONES_LIQUIDADAS'#10' WHERE ID = :ID'#10
+ TargetTable = 'V_AGENTES_COMISIONES'
+ SQL = 'SELECT *'#10' FROM'#10' V_AGENTES_COMISIONES'#10' WHERE ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -593,17 +363,14 @@ object RptComisiones: TRptComisiones
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
- item
- DatasetField = 'FECHA_ALTA'
- TableField = 'FECHA_ALTA'
- end
- item
- DatasetField = 'FECHA_MODIFICACION'
- TableField = 'FECHA_MODIFICACION'
- end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
+ end
+ item
+ DatasetField = 'NOMBRE'
+ TableField = ''
+ SQLOrigin = 'NOMBRE'
end>
end>
Name = 'InformeComisiones'
@@ -640,18 +407,151 @@ object RptComisiones: TRptComisiones
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- end
item
Name = 'USUARIO'
DataType = datString
Size = 30
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ end>
+ end
+ item
+ Params = <>
+ Statements = <
+ item
+ Connection = 'IBX'
+ ConnectionType = 'Interbase'
+ Default = True
+ TargetTable = 'V_AGEN_COMI_DET'
+ SQL =
+ 'select'#10' V.ID_EMPRESA,'#10' V.ID_FACTURA,'#10' V.FECHA,'#10' V.RE' +
+ 'FERENCIA,'#10' V.ID_COMISION_LIQUIDADA,'#10' V.ID_CLIENTE,'#10' V.I' +
+ 'D_AGENTE,'#10' V.ID_ARTICULO,'#10' V.ARTICULO,'#10' V.CONCEPTO_FACT' +
+ 'URA,'#10' V.CANTIDAD,'#10' V.IMPORTE_TOTAL,'#10' V.COMISION,'#10' V.' +
+ 'IMPORTE_COMISION'#10#10'from V_AGEN_COMI_DET as V'#10'WHERE {where}'#10#10
+ StatementType = stSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID_EMPRESA'
+ TableField = 'ID_EMPRESA'
+ end
+ item
+ DatasetField = 'REFERENCIA'
+ TableField = 'REFERENCIA'
+ end
+ item
+ DatasetField = 'ID_COMISION_LIQUIDADA'
+ TableField = 'ID_COMISION_LIQUIDADA'
+ end
+ item
+ DatasetField = 'ID_CLIENTE'
+ TableField = 'ID_CLIENTE'
+ end
+ item
+ DatasetField = 'ID_AGENTE'
+ TableField = 'ID_AGENTE'
+ end
+ item
+ DatasetField = 'ID_FACTURA'
+ TableField = 'ID_FACTURA'
+ end
+ item
+ DatasetField = 'COMISION'
+ TableField = 'COMISION'
+ end
+ item
+ DatasetField = 'IMPORTE_COMISION'
+ TableField = 'IMPORTE_COMISION'
+ end
+ item
+ DatasetField = 'FECHA'
+ TableField = 'FECHA'
+ end
+ item
+ DatasetField = 'ID_ARTICULO'
+ TableField = 'ID_ARTICULO'
+ end
+ item
+ DatasetField = 'CONCEPTO_FACTURA'
+ TableField = 'CONCEPTO_FACTURA'
+ end
+ item
+ DatasetField = 'CANTIDAD'
+ TableField = 'CANTIDAD'
+ end
+ item
+ DatasetField = 'IMPORTE_TOTAL'
+ TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'ARTICULO'
+ TableField = ''
+ SQLOrigin = 'ARTICULO'
+ end>
+ end>
+ Name = 'InformeFacturasComisionDesglosado'
+ Fields = <
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ end
+ item
+ Name = 'FECHA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'ID_COMISION_LIQUIDADA'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_CLIENTE'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_AGENTE'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_ARTICULO'
+ DataType = datInteger
+ end
+ item
+ Name = 'ARTICULO'
+ DataType = datString
+ Size = 1025
+ end
+ item
+ Name = 'CONCEPTO_FACTURA'
+ DataType = datString
+ Size = 2000
+ end
+ item
+ Name = 'CANTIDAD'
+ DataType = datCurrency
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ end
+ item
+ Name = 'COMISION'
+ DataType = datFloat
+ end
+ item
+ Name = 'IMPORTE_COMISION'
+ DataType = datFloat
end>
end>
JoinDataTables = <>
@@ -863,10 +763,10 @@ object RptComisiones: TRptComisiones
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.Zoom = 1.000000000000000000
- PrintOptions.Printer = 'Default'
+ PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
- ReportOptions.CreateDate = 39589.794825115700000000
- ReportOptions.LastChange = 39589.813437314820000000
+ ReportOptions.CreateDate = 45251.652106296300000000
+ ReportOptions.LastChange = 45253.529982268500000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False
@@ -885,228 +785,19 @@ object RptComisiones: TRptComisiones
Left = 48
Top = 80
end
- object frxDBDetalles1: TfrxDBDataset
- UserName = 'frxDBDetalles1'
- CloseDataSource = False
- DataSource = DADataDetalles1
- BCDToCurrency = False
- Left = 352
- Top = 16
- end
- object DADataDetalles1: TDADataSource
- DataSet = tbl_Facturas.Dataset
- DataTable = tbl_Facturas
- Left = 352
- Top = 72
- end
- object tbl_Facturas: TDAMemDataTable
- RemoteUpdatesOptions = []
- Fields = <
- item
- Name = 'ID'
- DataType = datInteger
- end
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- end
- item
- Name = 'TIPO'
- DataType = datString
- Size = 1
- end
- item
- Name = 'ID_COMISION_LIQUIDADA'
- DataType = datInteger
- end
- item
- Name = 'FECHA_FACTURA'
- DataType = datDateTime
- end
- item
- Name = 'SITUACION'
- DataType = datString
- Size = 19
- end
- item
- Name = 'BASE_IMPONIBLE'
- DataType = datCurrency
- end
- item
- Name = 'DESCUENTO'
- DataType = datFloat
- end
- item
- Name = 'IMPORTE_DESCUENTO'
- DataType = datCurrency
- 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 = 'IMPORTE_TOTAL'
- DataType = datCurrency
- end
- item
- Name = 'OBSERVACIONES'
- DataType = datMemo
- end
- item
- Name = 'ID_CLIENTE'
- DataType = datInteger
- end
- item
- Name = 'NOMBRE_CLIENTE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'NOMBRE_COMERCIAL_CLIENTE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'NIF_CIF'
- DataType = datString
- Size = 15
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'POBLACION'
- DataType = datString
- Size = 255
- end
- item
- Name = 'PROVINCIA'
- DataType = datString
- Size = 255
- end
- item
- Name = 'CODIGO_POSTAL'
- DataType = datString
- Size = 10
- end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- end
- item
- Name = 'USUARIO'
- DataType = datString
- Size = 30
- end
- item
- Name = 'ID_FORMA_PAGO'
- DataType = datInteger
- end
- item
- Name = 'RECARGO_EQUIVALENCIA'
- DataType = datSmallInt
- end
- item
- Name = 'ID_TIPO_IVA'
- DataType = datInteger
- end
- item
- Name = 'IMPORTE_NETO'
- DataType = datCurrency
- end
- item
- Name = 'IMPORTE_PORTE'
- DataType = datCurrency
- end
- item
- Name = 'ID_AGENTE'
- DataType = datInteger
- end
- item
- Name = 'REFERENCIA_COMISION'
- DataType = datString
- Size = 255
- end
- item
- Name = 'IGNORAR_CONTABILIDAD'
- DataType = datSmallInt
- end
- item
- Name = 'ID_TIENDA'
- DataType = datInteger
- end
- item
- Name = 'TIENDA'
- DataType = datString
- Size = 255
- end
- item
- Name = 'ID_SUBCUENTA'
- DataType = datInteger
- end
- item
- Name = 'SUBCUENTA'
- DataType = datString
- Size = 255
- end>
- Params = <
- item
- Name = 'ID'
- Value = ''
- ParamType = daptInput
- end>
- MasterMappingMode = mmDataRequest
- LogChanges = False
- StreamingOptions = [soDisableEventsWhileStreaming]
- RemoteFetchEnabled = False
- LocalSchema = schReport
- LocalDataStreamer = Bin2DataStreamer
- LogicalName = 'InformeComisionesFacturas'
- IndexDefs = <>
- Left = 352
- Top = 128
- end
object frxDBDetalles2: TfrxDBDataset
UserName = 'frxDBDetalles2'
CloseDataSource = False
DataSource = DADataDetalles2
BCDToCurrency = False
- Left = 456
- Top = 16
+ Left = 512
+ Top = 216
end
object DADataDetalles2: TDADataSource
DataSet = tbl_Vendedores.Dataset
DataTable = tbl_Vendedores
- Left = 456
- Top = 72
+ Left = 512
+ Top = 272
end
object tbl_Vendedores: TDAMemDataTable
RemoteUpdatesOptions = []
@@ -1152,7 +843,188 @@ object RptComisiones: TRptComisiones
LocalDataStreamer = Bin2DataStreamer
LogicalName = 'InformeComisionesVendedores'
IndexDefs = <>
- Left = 456
+ Left = 512
+ Top = 328
+ end
+ object tbl_FacturasComision: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ end
+ item
+ Name = 'COMISION'
+ DataType = datFloat
+ end
+ item
+ Name = 'IMPORTE_COMISIONABLE'
+ DataType = datCurrency
+ end
+ item
+ Name = 'IMPORTE_COMISION'
+ DataType = datFloat
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_COMISION_LIQUIDADA'
+ DataType = datInteger
+ end
+ item
+ Name = 'FECHA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'SITUACION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'ID_CLIENTE'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_AGENTE'
+ DataType = datInteger
+ end
+ item
+ Name = 'AGENTE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'CLIENTE'
+ DataType = datString
+ Size = 255
+ end>
+ Params = <
+ item
+ Name = 'ID'
+ Value = ''
+ ParamType = daptInput
+ end>
+ MasterMappingMode = mmDataRequest
+ LogChanges = False
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteFetchEnabled = False
+ LocalSchema = schReport
+ LocalDataStreamer = Bin2DataStreamer
+ LogicalName = 'InformeFacturasComision'
+ IndexDefs = <>
+ Left = 368
Top = 128
end
+ object DADataDetalles: TDADataSource
+ DataSet = tbl_FacturasComision.Dataset
+ DataTable = tbl_FacturasComision
+ Left = 368
+ Top = 72
+ end
+ object frxDBDetalles: TfrxDBDataset
+ UserName = 'frxDBDetalles'
+ CloseDataSource = False
+ DataSource = DADataDetalles
+ BCDToCurrency = False
+ Left = 368
+ Top = 16
+ end
+ object tbl_FacturasComisionDesglosado: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ end
+ item
+ Name = 'FECHA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'ID_COMISION_LIQUIDADA'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_CLIENTE'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_AGENTE'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_ARTICULO'
+ DataType = datInteger
+ end
+ item
+ Name = 'ARTICULO'
+ DataType = datString
+ Size = 1025
+ end
+ item
+ Name = 'CONCEPTO_FACTURA'
+ DataType = datString
+ Size = 2000
+ end
+ item
+ Name = 'CANTIDAD'
+ DataType = datCurrency
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ end
+ item
+ Name = 'COMISION'
+ DataType = datFloat
+ end
+ item
+ Name = 'IMPORTE_COMISION'
+ DataType = datFloat
+ end>
+ Params = <>
+ MasterMappingMode = mmWhere
+ LogChanges = False
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteFetchEnabled = False
+ LocalSchema = schReport
+ LocalDataStreamer = Bin2DataStreamer
+ MasterSource = DADataDetalles
+ MasterFields = 'ID_FACTURA'
+ DetailFields = 'ID_FACTURA'
+ LogicalName = 'InformeFacturasComisionDesglosado'
+ IndexDefs = <>
+ Left = 504
+ Top = 128
+ end
+ object DADataDetalles3: TDADataSource
+ DataSet = tbl_FacturasComisionDesglosado.Dataset
+ DataTable = tbl_FacturasComisionDesglosado
+ Left = 504
+ Top = 72
+ end
+ object frxDBDetalles3: TfrxDBDataset
+ UserName = 'frxDBDetalles3'
+ CloseDataSource = False
+ DataSource = DADataDetalles3
+ BCDToCurrency = False
+ Left = 504
+ Top = 16
+ end
end
diff --git a/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas b/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas
index 3c749f1..9c62b62 100644
--- a/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas
+++ b/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas
@@ -23,21 +23,24 @@ type
frxDBCabecera: TfrxDBDataset;
frxReport: TfrxReport;
Bin2DataStreamer: TDABin2DataStreamer;
- frxDBDetalles1: TfrxDBDataset;
- DADataDetalles1: TDADataSource;
- tbl_Facturas: TDAMemDataTable;
frxDBDetalles2: TfrxDBDataset;
DADataDetalles2: TDADataSource;
tbl_Vendedores: TDAMemDataTable;
+ tbl_FacturasComision: TDAMemDataTable;
+ DADataDetalles: TDADataSource;
+ frxDBDetalles: TfrxDBDataset;
+ tbl_FacturasComisionDesglosado: TDAMemDataTable;
+ DADataDetalles3: TDADataSource;
+ frxDBDetalles3: TfrxDBDataset;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject);
private
FConnection: IDAConnection;
//Genera cada uno de los albaranes a imprimir
- procedure GenerarComision(const ID: integer); overload;
+ procedure GenerarComision(const ID: integer; const AllDetails: Boolean); overload;
public
- function GenerarComision(const AComisionID : String): Binary; overload;
+ function GenerarComision(const AComisionID : String; const AllDetails: Boolean): Binary; overload;
end;
implementation
@@ -59,7 +62,7 @@ begin
frxReport.EngineOptions.NewSilentMode := simReThrow;
end;
-procedure TRptComisiones.GenerarComision(const ID: integer);
+procedure TRptComisiones.GenerarComision(const ID: integer; const AllDetails: Boolean);
var
AInforme: Variant;
@@ -67,22 +70,23 @@ begin
FConnection.BeginTransaction;
try
tbl_Comisiones.Active := False;
- tbl_Facturas.Active := False;
- tbl_Vendedores.Active := False;
+ tbl_FacturasComision.Active := False;
+ tbl_FacturasComisionDesglosado.Active := False;
tbl_Comisiones.ParamByName('ID').AsInteger := ID;
- tbl_Facturas.ParamByName('ID').AsInteger := ID;
- tbl_Vendedores.ParamByName('ID').AsInteger := ID;
+ tbl_FacturasComision.ParamByName('ID').AsInteger := ID;
+
tbl_Comisiones.Active := True;
- tbl_Facturas.Active := True;
- tbl_Vendedores.Active := True;
+ tbl_FacturasComision.Active := True;
+// tbl_FacturasComisionDesglosado.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, rptComision, tbl_Comisiones.FieldByName('ID_EMPRESA').AsString);
if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: GenerarComision, no encuentra informe' + rptComision));
frxReport.LoadFromFile(AInforme, True);
+ frxReport.Variables.Variables['AllDetails'] := AllDetails;
frxReport.ReportOptions.Name := 'Comisiones';
frxReport.PrepareReport(False);
finally
@@ -90,7 +94,7 @@ begin
end;
end;
-function TRptComisiones.GenerarComision(const AComisionID: String): Binary;
+function TRptComisiones.GenerarComision(const AComisionID: String; const AllDetails: Boolean): Binary;
var
ID_Comisiones: TStringList;
i: Integer;
@@ -103,7 +107,7 @@ begin
//Vamos generando todos y cada uno de las comisiones pedidas
for i := 0 to ID_Comisiones.Count - 1 do
- GenerarComision(StrToInt(ID_Comisiones.Strings[i]));
+ GenerarComision(StrToInt(ID_Comisiones.Strings[i]), AllDetails);
frxReport.PreviewPages.SaveToStream(Result);
end;
diff --git a/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm b/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm
index 3264da2..39305e3 100644
--- a/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm
+++ b/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm
@@ -301,13 +301,24 @@ object srvComisiones: TsrvComisiones
Statements = <
item
Connection = 'IBX'
- TargetTable = 'V_FACTURAS_CLIENTE'
- StatementType = stAutoSQL
+ Default = True
+ TargetTable = 'V_AGEN_COM_DET_AGRU'
+ SQL =
+ 'select'#10' V_AGEN_COM_DET_AGRU.ID_FACTURA,'#10' V_AGEN_COM_' +
+ 'DET_AGRU.COMISION,'#10' V_AGEN_COM_DET_AGRU.IMPORTE_COMISIONAB' +
+ 'LE,'#10' V_AGEN_COM_DET_AGRU.IMPORTE_COMISION,'#10#10' FACTURA' +
+ 'S_CLIENTE.ID_EMPRESA,'#10' FACTURAS_CLIENTE.ID_COMISION_LIQUID' +
+ 'ADA,'#10' FACTURAS_CLIENTE.FECHA_FACTURA as FECHA,'#10' FACT' +
+ 'URAS_CLIENTE.REFERENCIA,'#10' FACTURAS_CLIENTE.SITUACION,'#10' ' +
+ ' FACTURAS_CLIENTE.ID_CLIENTE,'#10' FACTURAS_CLIENTE.ID_AGENT' +
+ 'E,'#10#10' CONTACTOS1.NOMBRE as AGENTE,'#10' CONTACTOS2.NOMBRE' +
+ ' as CLIENTE'#10#10#10'from V_AGEN_COM_DET_AGRU'#10'LEFT JOIN FACTURAS_CLIENT' +
+ 'E on (FACTURAS_CLIENTE.ID = V_AGEN_COM_DET_AGRU.ID_FACTURA)'#10'LEFT' +
+ ' JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = FACTURAS_CLIENTE.' +
+ 'ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONTACTOS2 ON (CONTACTOS2.ID = FA' +
+ 'CTURAS_CLIENTE.ID_CLIENTE)'#10'where {where}'#10
+ StatementType = stSQL
ColumnMappings = <
- item
- DatasetField = 'ID'
- TableField = 'ID'
- end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
@@ -316,180 +327,77 @@ object srvComisiones: TsrvComisiones
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
- item
- DatasetField = 'TIPO'
- TableField = 'TIPO'
- end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
end
- item
- DatasetField = 'FECHA_FACTURA'
- TableField = 'FECHA_FACTURA'
- end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
- item
- DatasetField = 'BASE_IMPONIBLE'
- TableField = 'BASE_IMPONIBLE'
- end
- item
- DatasetField = 'DESCUENTO'
- TableField = 'DESCUENTO'
- end
- item
- DatasetField = 'IMPORTE_DESCUENTO'
- TableField = 'IMPORTE_DESCUENTO'
- 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 = 'IMPORTE_TOTAL'
- TableField = 'IMPORTE_TOTAL'
- end
- item
- DatasetField = 'OBSERVACIONES'
- TableField = 'OBSERVACIONES'
- end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
- item
- DatasetField = 'NOMBRE_CLIENTE'
- TableField = 'NOMBRE_CLIENTE'
- end
- item
- DatasetField = 'NOMBRE_COMERCIAL_CLIENTE'
- TableField = 'NOMBRE_COMERCIAL_CLIENTE'
- end
- item
- DatasetField = 'NIF_CIF'
- TableField = 'NIF_CIF'
- end
- item
- DatasetField = 'NOMBRE'
- TableField = 'NOMBRE'
- end
- item
- DatasetField = 'CALLE'
- TableField = 'CALLE'
- end
- item
- DatasetField = 'POBLACION'
- TableField = 'POBLACION'
- end
- item
- DatasetField = 'PROVINCIA'
- TableField = 'PROVINCIA'
- end
- item
- DatasetField = 'CODIGO_POSTAL'
- TableField = 'CODIGO_POSTAL'
- end
- item
- DatasetField = 'FECHA_ALTA'
- TableField = 'FECHA_ALTA'
- end
- item
- DatasetField = 'FECHA_MODIFICACION'
- TableField = 'FECHA_MODIFICACION'
- end
- item
- DatasetField = 'USUARIO'
- TableField = 'USUARIO'
- end
- item
- DatasetField = 'ID_FORMA_PAGO'
- TableField = 'ID_FORMA_PAGO'
- end
- item
- DatasetField = 'RECARGO_EQUIVALENCIA'
- TableField = 'RECARGO_EQUIVALENCIA'
- end
- item
- DatasetField = 'ID_TIPO_IVA'
- TableField = 'ID_TIPO_IVA'
- end
- item
- DatasetField = 'IMPORTE_NETO'
- TableField = 'IMPORTE_NETO'
- end
- item
- DatasetField = 'IMPORTE_PORTE'
- TableField = 'IMPORTE_PORTE'
- end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
- DatasetField = 'REFERENCIA_COMISION'
- TableField = 'REFERENCIA_COMISION'
+ DatasetField = 'AGENTE'
+ TableField = ''
+ SQLOrigin = 'AGENTE'
end
item
- DatasetField = 'IGNORAR_CONTABILIDAD'
- TableField = 'IGNORAR_CONTABILIDAD'
+ DatasetField = 'ID_FACTURA'
+ TableField = 'ID_FACTURA'
end
item
- DatasetField = 'ID_TIENDA'
- TableField = 'ID_TIENDA'
+ DatasetField = 'FECHA'
+ TableField = 'FECHA'
end
item
- DatasetField = 'TIENDA'
- TableField = 'TIENDA'
+ DatasetField = 'CLIENTE'
+ TableField = ''
+ SQLOrigin = 'CLIENTE'
end
item
- DatasetField = 'ID_SUBCUENTA'
- TableField = 'ID_SUBCUENTA'
+ DatasetField = 'COMISION'
+ TableField = 'COMISION'
end
item
- DatasetField = 'SUBCUENTA'
- TableField = 'SUBCUENTA'
+ DatasetField = 'IMPORTE_COMISIONABLE'
+ TableField = ''
+ SQLOrigin = 'IMPORTE_COMISIONABLE'
+ end
+ item
+ DatasetField = 'IMPORTE_COMISION'
+ TableField = 'IMPORTE_COMISION'
end>
end>
Name = 'Facturas_Comision'
Fields = <
item
- Name = 'ID'
+ Name = 'ID_FACTURA'
DataType = datInteger
- DictionaryEntry = 'Facturas_Comision_ID'
- InPrimaryKey = True
+ end
+ item
+ Name = 'COMISION'
+ DataType = datFloat
+ end
+ item
+ Name = 'IMPORTE_COMISIONABLE'
+ DataType = datCurrency
+ end
+ item
+ Name = 'IMPORTE_COMISION'
+ DataType = datFloat
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'Facturas_Comision_ID_EMPRESA'
end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Facturas_Comision_REFERENCIA'
- end
- item
- Name = 'TIPO'
- DataType = datString
- Size = 1
- DictionaryEntry = 'Facturas_Comision_TIPO'
- end
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
@@ -497,9 +405,14 @@ object srvComisiones: TsrvComisiones
DictionaryEntry = 'Facturas_Comision_ID_COMISION_LIQUIDADA'
end
item
- Name = 'FECHA_FACTURA'
+ Name = 'FECHA'
DataType = datDateTime
- DictionaryEntry = 'Facturas_Comision_FECHA_FACTURA'
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'Facturas_Comision_REFERENCIA'
end
item
Name = 'SITUACION'
@@ -507,182 +420,25 @@ object srvComisiones: TsrvComisiones
Size = 19
DictionaryEntry = 'Facturas_Comision_SITUACION'
end
- item
- Name = 'BASE_IMPONIBLE'
- DataType = datCurrency
- DictionaryEntry = 'Facturas_Comision_BASE_IMPONIBLE'
- end
- item
- Name = 'DESCUENTO'
- DataType = datFloat
- DictionaryEntry = 'Facturas_Comision_DESCUENTO'
- end
- item
- Name = 'IMPORTE_DESCUENTO'
- DataType = datCurrency
- DictionaryEntry = 'Facturas_Comision_IMPORTE_DESCUENTO'
- end
- item
- Name = 'IVA'
- DataType = datFloat
- DictionaryEntry = 'Facturas_Comision_IVA'
- end
- item
- Name = 'IMPORTE_IVA'
- DataType = datCurrency
- DictionaryEntry = 'Facturas_Comision_IMPORTE_IVA'
- end
- item
- Name = 'RE'
- DataType = datFloat
- DictionaryEntry = 'Facturas_Comision_RE'
- end
- item
- Name = 'IMPORTE_RE'
- DataType = datCurrency
- DictionaryEntry = 'Facturas_Comision_IMPORTE_RE'
- end
- item
- Name = 'IMPORTE_TOTAL'
- DataType = datCurrency
- DictionaryEntry = 'Facturas_Comision_IMPORTE_TOTAL'
- end
- item
- Name = 'OBSERVACIONES'
- DataType = datMemo
- DictionaryEntry = 'Facturas_Comision_OBSERVACIONES'
- end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
end
- item
- Name = 'NOMBRE_CLIENTE'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Facturas_Comision_NOMBRE_CLIENTE'
- end
- item
- Name = 'NOMBRE_COMERCIAL_CLIENTE'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Facturas_Comision_NOMBRE_COMERCIAL_CLIENTE'
- end
- item
- Name = 'NIF_CIF'
- DataType = datString
- Size = 15
- DictionaryEntry = 'Facturas_Comision_NIF_CIF'
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Facturas_Comision_NOMBRE'
- end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Facturas_Comision_CALLE'
- end
- item
- Name = 'POBLACION'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Facturas_Comision_POBLACION'
- end
- item
- Name = 'PROVINCIA'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Facturas_Comision_PROVINCIA'
- end
- item
- Name = 'CODIGO_POSTAL'
- DataType = datString
- Size = 10
- DictionaryEntry = 'Facturas_Comision_CODIGO_POSTAL'
- end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- DictionaryEntry = 'Facturas_Comision_FECHA_ALTA'
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- DictionaryEntry = 'Facturas_Comision_FECHA_MODIFICACION'
- end
- item
- Name = 'USUARIO'
- DataType = datString
- Size = 30
- DictionaryEntry = 'Facturas_Comision_USUARIO'
- end
- item
- Name = 'ID_FORMA_PAGO'
- DataType = datInteger
- DictionaryEntry = 'Facturas_Comision_ID_FORMA_PAGO'
- end
- item
- Name = 'RECARGO_EQUIVALENCIA'
- DataType = datSmallInt
- DictionaryEntry = 'Facturas_Comision_RECARGO_EQUIVALENCIA'
- end
- item
- Name = 'ID_TIPO_IVA'
- DataType = datInteger
- DictionaryEntry = 'Facturas_Comision_ID_TIPO_IVA'
- end
- item
- Name = 'IMPORTE_NETO'
- DataType = datCurrency
- DictionaryEntry = 'Facturas_Comision_IMPORTE_NETO'
- end
- item
- Name = 'IMPORTE_PORTE'
- DataType = datCurrency
- DictionaryEntry = 'Facturas_Comision_IMPORTE_PORTE'
- end
item
Name = 'ID_AGENTE'
DataType = datInteger
DictionaryEntry = 'Facturas_Comision_ID_AGENTE'
end
item
- Name = 'REFERENCIA_COMISION'
+ Name = 'AGENTE'
DataType = datString
Size = 255
- DictionaryEntry = 'Facturas_Comision_REFERENCIA_COMISION'
end
item
- Name = 'IGNORAR_CONTABILIDAD'
- DataType = datSmallInt
- DictionaryEntry = 'Facturas_Comision_IGNORAR_CONTABILIDAD'
- end
- item
- Name = 'ID_TIENDA'
- DataType = datInteger
- DictionaryEntry = 'Facturas_Comision_ID_TIENDA'
- end
- item
- Name = 'TIENDA'
+ Name = 'CLIENTE'
DataType = datString
Size = 255
- DictionaryEntry = 'Facturas_Comision_TIENDA'
- end
- item
- Name = 'ID_SUBCUENTA'
- DataType = datInteger
- DictionaryEntry = 'Facturas_Comision_ID_SUBCUENTA'
- end
- item
- Name = 'SUBCUENTA'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Facturas_Comision_SUBCUENTA'
end>
end
item
@@ -762,7 +518,7 @@ object srvComisiones: TsrvComisiones
Statements = <
item
Connection = 'IBX'
- TargetTable = 'COMISIONES_LIQUIDADAS'
+ TargetTable = 'V_AGENTES_COMISIONES'
StatementType = stAutoSQL
ColumnMappings = <
item
@@ -793,17 +549,21 @@ object srvComisiones: TsrvComisiones
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
- item
- DatasetField = 'FECHA_ALTA'
- TableField = 'FECHA_ALTA'
- end
- item
- DatasetField = 'FECHA_MODIFICACION'
- TableField = 'FECHA_MODIFICACION'
- end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
+ end
+ item
+ DatasetField = 'NOMBRE'
+ TableField = 'NOMBRE'
+ end
+ item
+ DatasetField = 'DELEGACION'
+ TableField = 'DELEGACION'
+ end
+ item
+ DatasetField = 'COMISION'
+ TableField = 'COMISION'
end>
end>
Name = 'Comisiones'
@@ -848,19 +608,25 @@ object srvComisiones: TsrvComisiones
DataType = datCurrency
DictionaryEntry = 'Comisiones_IMPORTE_TOTAL'
end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'Comisiones_USUARIO'
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'DELEGACION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'COMISION'
+ DataType = datFloat
end>
end>
JoinDataTables = <>
@@ -870,10 +636,11 @@ object srvComisiones: TsrvComisiones
Params = <
item
Name = 'ID_COMISION_LIQUIDADA'
+ DataType = datInteger
Value = ''
end
item
- Name = 'ID'
+ Name = 'ID_FACTURA'
Value = ''
end>
Statements = <
@@ -882,7 +649,7 @@ object srvComisiones: TsrvComisiones
TargetTable = 'FACTURAS_CLIENTE'
SQL =
'UPDATE FACTURAS_CLIENTE'#10'SET ID_COMISION_LIQUIDADA = :ID_COMISION' +
- '_LIQUIDADA'#10'WHERE (ID = :ID)'#10
+ '_LIQUIDADA'#10'WHERE (ID = :ID_FACTURA)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -891,7 +658,7 @@ object srvComisiones: TsrvComisiones
item
Params = <
item
- Name = 'OLD_ID'
+ Name = 'OLD_ID_FACTURA'
Value = ''
end>
Statements = <
@@ -900,7 +667,7 @@ object srvComisiones: TsrvComisiones
TargetTable = 'FACTURAS_CLIENTE'
SQL =
'UPDATE FACTURAS_CLIENTE'#10'SET ID_COMISION_LIQUIDADA = Null'#10'WHERE (' +
- 'ID = :OLD_ID)'#10
+ 'ID = :OLD_ID_FACTURA)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -910,10 +677,11 @@ object srvComisiones: TsrvComisiones
Params = <
item
Name = 'ID_COMISION_LIQUIDADA'
+ DataType = datInteger
Value = ''
end
item
- Name = 'OLD_ID'
+ Name = 'OLD_ID_FACTURA'
Value = ''
end>
Statements = <
@@ -922,7 +690,7 @@ object srvComisiones: TsrvComisiones
TargetTable = 'FACTURAS_CLIENTE'
SQL =
'UPDATE FACTURAS_CLIENTE'#10'SET ID_COMISION_LIQUIDADA = :ID_COMISION' +
- '_LIQUIDADA'#10'WHERE (ID = :OLD_ID)'#10
+ '_LIQUIDADA'#10'WHERE (ID = :OLD_ID_FACTURA)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1032,6 +800,151 @@ object srvComisiones: TsrvComisiones
ColumnMappings = <>
end>
Name = 'Update_Vendedores_Comision'
+ end
+ item
+ Params = <
+ item
+ Name = 'ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
+ Value = ''
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
+ item
+ Name = 'ID_AGENTE'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
+ item
+ Name = 'FECHA'
+ DataType = datDateTime
+ Value = ''
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ Value = ''
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 30
+ Value = ''
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ Default = True
+ TargetTable = 'COMISIONES_LIQUIDADAS'
+ SQL =
+ 'INSERT'#10' INTO COMISIONES_LIQUIDADAS'#10' (ID, ID_EMPRESA, REFEREN' +
+ 'CIA, ID_AGENTE, DESCRIPCION, FECHA, IMPORTE_TOTAL, USUARIO)'#10' VA' +
+ 'LUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :ID_AGENTE, :DESCRIPCIO' +
+ 'N, :FECHA, :IMPORTE_TOTAL, :USUARIO)'#10
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Insert_Comisiones'
+ end
+ item
+ Params = <
+ item
+ Name = 'OLD_ID'
+ Value = ''
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ Default = True
+ TargetTable = 'COMISIONES_LIQUIDADAS'
+ SQL =
+ 'DELETE'#10' FROM'#10' COMISIONES_LIQUIDADAS'#10' WHERE'#10' (ID = :OLD_I' +
+ 'D)'#10
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Delete_Comisiones'
+ end
+ item
+ Params = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
+ item
+ Name = 'ID_AGENTE'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
+ item
+ Name = 'FECHA'
+ DataType = datDateTime
+ Value = ''
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ Value = ''
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 30
+ Value = ''
+ end
+ item
+ Name = 'OLD_ID'
+ Value = ''
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ Default = True
+ TargetTable = 'COMISIONES_LIQUIDADAS'
+ SQL =
+ 'UPDATE COMISIONES_LIQUIDADAS'#10' SET'#10' ID = :ID,'#10' ID_EMPRESA ' +
+ '= :ID_EMPRESA,'#10' REFERENCIA = :REFERENCIA,'#10' ID_AGENTE = :ID' +
+ '_AGENTE,'#10' DESCRIPCION = :DESCRIPCION,'#10' FECHA = :FECHA,'#10' ' +
+ ' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' USUARIO = :USUARIO'#10' WHERE'#10 +
+ ' (ID = :OLD_ID)'#10
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Update_Comisiones'
end>
RelationShips = <
item
@@ -1124,7 +1037,7 @@ object srvComisiones: TsrvComisiones
DeleteCommandName = 'Delete_Facturas_Comision'
UpdateCommandName = 'Update_Facturas_Comision'
ReferencedDataset = 'Facturas_Comision'
- ProcessorOptions = [poPrepareCommands]
+ ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 80
@@ -1146,8 +1059,11 @@ object srvComisiones: TsrvComisiones
end
object bpComisiones: TDABusinessProcessor
Schema = schComisiones
+ InsertCommandName = 'Insert_Comisiones'
+ DeleteCommandName = 'Delete_Comisiones'
+ UpdateCommandName = 'Update_Comisiones'
ReferencedDataset = 'Comisiones'
- ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+ ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 144
diff --git a/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas b/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas
index b0b09a1..561317b 100644
--- a/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas
+++ b/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas
@@ -33,7 +33,7 @@ type
var aConnectionName: string);
{ IsrvComisiones methods }
protected
- function GenerateReport(const AComisionID: String): Binary;
+ function GenerateReport(const AComisionID: String; const AllDetails: Boolean): Binary;
end;
implementation
@@ -61,13 +61,13 @@ procedure TsrvComisiones.DataAbstractServiceBeforeAcquireConnection(
begin
ConnectionName := dmServer.ConnectionName;
end;
-function TsrvComisiones.GenerateReport(const AComisionID: String): Binary;
+function TsrvComisiones.GenerateReport(const AComisionID: String; const AllDetails: Boolean): Binary;
var
AReportGenerator : TRptComisiones;
begin
AReportGenerator := TRptComisiones.Create(nil);
try
- Result := AReportGenerator.GenerarComision(AComisionID);
+ Result := AReportGenerator.GenerarComision(AComisionID, AllDetails);
finally
FreeAndNIL(AReportGenerator);
end;
diff --git a/Source/Modulos/Comisiones/Views/Comisiones_view.dproj b/Source/Modulos/Comisiones/Views/Comisiones_view.dproj
index 2641ae4..aaf2bd4 100644
--- a/Source/Modulos/Comisiones/Views/Comisiones_view.dproj
+++ b/Source/Modulos/Comisiones/Views/Comisiones_view.dproj
@@ -47,85 +47,41 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
- TfEditorComision
+ TfEditorComision
- TfEditorComisiones
+ TfEditorComisiones
- TfEditorComision
+ TfEditorComision
- TFrame
+ TFrame
- TFrame
+ TFrame
- TFrame
+ TFrame
- TFrame
+ TFrame
diff --git a/Source/Modulos/Comisiones/Views/uEditorComision.dfm b/Source/Modulos/Comisiones/Views/uEditorComision.dfm
index 075a5ce..df35fa4 100644
--- a/Source/Modulos/Comisiones/Views/uEditorComision.dfm
+++ b/Source/Modulos/Comisiones/Views/uEditorComision.dfm
@@ -9,12 +9,13 @@ inherited fEditorComision: TfEditorComision
Scaled = False
OnClose = CustomEditorClose
ExplicitWidth = 755
- ExplicitHeight = 717
+ ExplicitHeight = 721
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 747
Caption = 'Liquidaci'#243'n de comisiones'
+ ExplicitTop = 52
ExplicitWidth = 747
inherited Image1: TImage
Left = 720
@@ -62,7 +63,7 @@ inherited fEditorComision: TfEditorComision
Width = 747
ExplicitWidth = 747
inherited tbxMain: TTBXToolbar
- ExplicitWidth = 488
+ ExplicitWidth = 551
inherited TBXItem2: TTBXItem
Visible = False
end
@@ -125,21 +126,21 @@ inherited fEditorComision: TfEditorComision
end
inherited pgPaginas: TPageControl
Width = 741
- Height = 506
+ Height = 503
MultiLine = True
- ExplicitTop = 109
+ ExplicitTop = 112
ExplicitWidth = 741
- ExplicitHeight = 506
+ ExplicitHeight = 503
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 733
- ExplicitHeight = 478
+ ExplicitHeight = 475
inline frViewComision1: TfrViewComision
Left = 0
Top = 0
Width = 733
- Height = 110
+ Height = 130
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -150,15 +151,15 @@ inherited fEditorComision: TfEditorComision
TabOrder = 0
ReadOnly = False
ExplicitWidth = 733
- ExplicitHeight = 110
+ ExplicitHeight = 130
inherited dxLayoutControlComision: TdxLayoutControl
Width = 733
- Height = 110
+ Height = 130
ExplicitWidth = 733
- ExplicitHeight = 110
+ ExplicitHeight = 130
DesignSize = (
733
- 110)
+ 130)
inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@@ -176,12 +177,12 @@ inherited fEditorComision: TfEditorComision
Width = 108
end
inherited edtFecha: TcxDBDateEdit
- Left = 414
+ Left = 422
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 414
+ ExplicitLeft = 422
ExplicitWidth = 170
Width = 170
end
@@ -197,9 +198,9 @@ inherited fEditorComision: TfEditorComision
end
object dxLayoutControl1: TdxLayoutControl
Left = 0
- Top = 110
+ Top = 130
Width = 733
- Height = 368
+ Height = 345
Align = alClient
ParentBackground = True
TabOrder = 1
@@ -230,34 +231,20 @@ inherited fEditorComision: TfEditorComision
ExplicitWidth = 607
ExplicitHeight = 240
inherited cxGridView: TcxGridDBTableView
- DataController.Summary.FooterSummaryItems = <
- item
- Kind = skSum
- end
- item
- Format = ',0.00 '#8364';-,0.00 '#8364
- Kind = skSum
- Column = frViewFacturasComision1.cxGridViewBASE_IMPONIBLE
- end>
end
end
inherited ToolBar1: TToolBar
Width = 607
ExplicitWidth = 607
- inherited ToolButton3: TToolButton
- ExplicitWidth = 98
- end
- inherited ToolButton8: TToolButton
- ExplicitWidth = 99
- end
end
end
inline frViewVendedoresComision1: TfrViewVendedoresComision
Left = 22
- Top = 202
+ Top = 179
Width = 662
Height = 150
Align = alBottom
+ Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@@ -267,7 +254,7 @@ inherited fEditorComision: TfEditorComision
TabOrder = 1
ReadOnly = False
ExplicitLeft = 22
- ExplicitTop = 202
+ ExplicitTop = 179
ExplicitWidth = 662
inherited cxGrid: TcxGrid
Width = 662
@@ -323,6 +310,8 @@ inherited fEditorComision: TfEditorComision
end
object dxLayoutControl1Group2: TdxLayoutGroup
Caption = 'Vendedores asociados a la liquidaci'#243'n'
+ Enabled = False
+ Visible = False
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avBottom
@@ -350,6 +339,7 @@ inherited fEditorComision: TfEditorComision
Font.Style = []
ParentFont = False
TabOrder = 5
+ Visible = False
ReadOnly = False
ExplicitTop = 618
ExplicitWidth = 747
@@ -358,23 +348,39 @@ inherited fEditorComision: TfEditorComision
Width = 747
ExplicitWidth = 747
inherited Bevel3: TBevel
- Left = 338
+ Left = 352
Top = 10
Height = 30
- ExplicitLeft = 338
+ ExplicitLeft = 352
ExplicitTop = 10
ExplicitHeight = 30
end
inherited Bevel4: TBevel
- Left = 450
+ Left = 464
Top = 52
Width = 192
- ExplicitLeft = 450
+ ExplicitLeft = 464
ExplicitTop = 52
ExplicitWidth = 192
end
+ inherited Bevel2: TBevel
+ Left = 10
+ Top = 195
+ Width = 333
+ ExplicitLeft = 10
+ ExplicitTop = 195
+ ExplicitWidth = 333
+ end
+ inherited Bevel1: TBevel
+ Left = 371
+ Top = 195
+ Width = 332
+ ExplicitLeft = 371
+ ExplicitTop = 195
+ ExplicitWidth = 332
+ end
inherited ImporteDto: TcxDBCurrencyEdit
- Left = 163
+ Left = 190
Top = 37
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
@@ -382,11 +388,13 @@ inherited fEditorComision: TfEditorComision
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 163
+ ExplicitLeft = 190
ExplicitTop = 37
+ ExplicitWidth = 93
+ Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
- Left = 521
+ Left = 535
Top = 87
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
@@ -394,22 +402,26 @@ inherited fEditorComision: TfEditorComision
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 521
+ ExplicitLeft = 535
ExplicitTop = 87
+ ExplicitWidth = 137
+ Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
- Left = 451
- Top = 141
+ Left = 465
+ Top = 168
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 451
- ExplicitTop = 141
+ ExplicitLeft = 465
+ ExplicitTop = 168
+ ExplicitWidth = 137
+ Width = 137
end
inherited edtDescuento: TcxDBSpinEdit
- Left = 92
+ Left = 119
Top = 37
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
@@ -417,11 +429,11 @@ inherited fEditorComision: TfEditorComision
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 92
+ ExplicitLeft = 119
ExplicitTop = 37
end
inherited edtIVA: TcxDBSpinEdit
- Left = 450
+ Left = 464
Top = 87
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
@@ -429,11 +441,11 @@ inherited fEditorComision: TfEditorComision
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 450
+ ExplicitLeft = 464
ExplicitTop = 87
end
inherited ImporteBase: TcxDBCurrencyEdit
- Left = 450
+ Left = 464
Top = 10
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
@@ -441,35 +453,55 @@ inherited fEditorComision: TfEditorComision
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 450
+ ExplicitLeft = 464
ExplicitTop = 10
+ ExplicitWidth = 92
+ Width = 92
end
inherited edtRE: TcxDBSpinEdit
- Left = 450
- Top = 114
+ Left = 464
+ Top = 141
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 450
+ ExplicitLeft = 464
+ ExplicitTop = 141
+ end
+ inherited edtIRPF: TcxDBSpinEdit
+ Left = 464
+ Top = 114
+ Style.IsFontAssigned = True
+ ExplicitLeft = 464
ExplicitTop = 114
end
inherited ImporteRE: TcxDBCurrencyEdit
- Left = 521
- Top = 114
+ Left = 535
+ Top = 141
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 521
+ ExplicitLeft = 535
+ ExplicitTop = 141
+ ExplicitWidth = 56
+ Width = 56
+ end
+ inherited ImporteIRPF: TcxDBCurrencyEdit
+ Left = 535
+ Top = 114
+ Style.IsFontAssigned = True
+ ExplicitLeft = 535
ExplicitTop = 114
+ ExplicitWidth = 56
+ Width = 56
end
inherited eImporteNeto: TcxDBCurrencyEdit
- Left = 92
+ Left = 119
Top = 10
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
@@ -477,11 +509,13 @@ inherited fEditorComision: TfEditorComision
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 92
+ ExplicitLeft = 119
ExplicitTop = 10
+ ExplicitWidth = 147
+ Width = 147
end
inherited ePorte: TcxDBCurrencyEdit
- Left = 92
+ Left = 119
Top = 64
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
@@ -489,36 +523,70 @@ inherited fEditorComision: TfEditorComision
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 92
+ ExplicitLeft = 119
ExplicitTop = 64
+ ExplicitWidth = 147
+ Width = 147
end
inherited eIVA: TcxDBLookupComboBox
- Left = 92
+ Left = 119
Top = 91
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 92
+ ExplicitLeft = 119
ExplicitTop = 91
+ ExplicitWidth = 81
+ Width = 81
end
inherited bTiposIVA: TButton
- Left = 190
+ Left = 204
Top = 91
- ExplicitLeft = 190
+ ExplicitLeft = 204
ExplicitTop = 91
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
- Left = 92
+ Left = 119
Top = 118
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 92
+ ExplicitLeft = 119
ExplicitTop = 118
+ ExplicitWidth = 219
+ Width = 219
+ end
+ inherited edtRetencion: TcxDBSpinEdit
+ Left = 464
+ Top = 210
+ Style.IsFontAssigned = True
+ ExplicitLeft = 464
+ ExplicitTop = 210
+ end
+ inherited edtImporteRetencion: TcxDBCurrencyEdit
+ Left = 535
+ Top = 210
+ Style.IsFontAssigned = True
+ ExplicitLeft = 535
+ ExplicitTop = 210
+ ExplicitWidth = 342
+ Width = 342
+ end
+ inherited edtFechaRetencion: TcxDBDateEdit
+ Left = 119
+ Top = 210
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 119
+ ExplicitTop = 210
+ ExplicitWidth = 333
+ Width = 333
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
@@ -554,6 +622,7 @@ inherited fEditorComision: TfEditorComision
end
inherited PnlComentario: TPanel [5]
Width = 747
+ ExplicitTop = 79
ExplicitWidth = 747
inherited lbComentario: TLabel
Width = 737
@@ -564,7 +633,536 @@ inherited fEditorComision: TfEditorComision
Left = 64
Top = 168
end
- inherited LargeImages: TPngImageList
+ inherited SmallImages: TPngImageList [7]
+ PngImages = <
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000774494D45000000000000000973942E000000097048597300001712
+ 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9
+ 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD
+ 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E
+ E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290
+ 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF
+ FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232
+ E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043
+ C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF
+ 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4
+ 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A
+ 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA
+ 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583
+ 000005100EB8572466A60000000049454E44AE426082}
+ Name = 'PngImage1'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001074944415478DA
+ 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A
+ C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211
+ AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643
+ 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601
+ C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4
+ CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346
+ B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501
+ 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08
+ 0029AC32F01825AACD0000000049454E44AE426082}
+ Name = 'PngImage2'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001514944415478DA
+ 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319
+ CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000
+ 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802
+ 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D
+ F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4
+ C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18
+ 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801
+ 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB
+ FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E
+ 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED
+ 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082}
+ Name = 'PngImage3'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA
+ 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF
+ 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17
+ 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8
+ E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42
+ BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0
+ 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F
+ E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D
+ CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C
+ 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98
+ B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941
+ 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF
+ DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7
+ 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F
+ D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE
+ D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583
+ CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8
+ FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED
+ 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0
+ EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E
+ 44AE426082}
+ Name = 'PngImage4'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA
+ A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304
+ 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994
+ 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F
+ 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546
+ 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8
+ 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA
+ 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E
+ 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8
+ E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0
+ 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8
+ 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37
+ 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB
+ 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932
+ 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04
+ E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148
+ D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2
+ 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56
+ A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E
+ AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13
+ 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058
+ 5538F0EAB25B380000000049454E44AE426082}
+ Name = 'PngImage5'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001934944415478DA
+ 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98
+ 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6
+ 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F
+ FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F
+ B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9
+ 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491
+ 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC
+ 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5
+ 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF
+ 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E
+ C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506
+ 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4
+ 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260
+ 82}
+ Name = 'PngImage6'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000774494D45000000000000000973942E000000097048597300001712
+ 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD
+ D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958
+ 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF
+ DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C
+ 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B
+ B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD
+ D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6
+ AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895
+ 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608
+ DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1
+ 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9
+ D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252
+ 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29
+ 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4
+ F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A
+ A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F
+ AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537
+ 19FE00839434866373C4BA0000000049454E44AE426082}
+ Name = 'PngImage7'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000774494D45000000000000000973942E000000097048597300001712
+ 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20
+ E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9
+ 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1
+ CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098
+ D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4
+ AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609
+ 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3
+ D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD
+ 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8
+ C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D
+ E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770
+ 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F
+ 16FA1194E3DBC30000000049454E44AE426082}
+ Name = 'PngImage8'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000774494D45000000000000000973942E000000097048597300001712
+ 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5
+ 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA
+ 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8
+ 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B
+ A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78
+ B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE
+ 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58
+ 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E
+ 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D
+ 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE
+ F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744
+ E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082}
+ Name = 'PngImage9'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD2520000016A4944415478DA
+ 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA
+ 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA
+ 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30
+ F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911
+ FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD
+ D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5
+ 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C
+ E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3
+ FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B
+ CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907
+ BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4
+ 0090010087546EF0ACB0C7920000000049454E44AE426082}
+ Name = 'PngImage10'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001024944415478DA
+ 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3
+ C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999
+ FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8
+ 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7
+ 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5
+ B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719
+ 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B
+ 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1
+ CDA578040000000049454E44AE426082}
+ Name = 'PngImage11'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001C04944415478DA
+ 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440
+ 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F
+ 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8
+ 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF
+ 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E
+ 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F
+ 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB
+ 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1
+ CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1
+ 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4
+ F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C
+ 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0
+ F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78
+ 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C
+ 80060000000049454E44AE426082}
+ Name = 'PngImage12'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA
+ 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF
+ CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B
+ 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E
+ 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3
+ B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0
+ 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7
+ EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567
+ 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41
+ 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB
+ 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060
+ A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A
+ 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA
+ E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C
+ EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149
+ D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E
+ 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65
+ 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3
+ 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082}
+ Name = 'PngImage13'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA
+ 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414
+ A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D
+ 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF
+ 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008
+ EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5
+ 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050
+ 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85
+ CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15
+ 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7
+ F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D
+ B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D
+ 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02
+ 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE
+ 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0
+ 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D
+ 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747
+ 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7
+ FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386
+ 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790
+ E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6
+ 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74
+ 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD
+ BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03
+ 503A4EA60D6AAC070000000049454E44AE426082}
+ Name = 'PngImage14'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA
+ 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251
+ 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E
+ C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC
+ 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910
+ 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537
+ BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0
+ 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB
+ B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048
+ 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5
+ E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676
+ 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8
+ 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002
+ 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29
+ 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF
+ 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF
+ 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5
+ 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF
+ AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632
+ 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4
+ E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384
+ 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72
+ CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD
+ DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8
+ 3FA68502A9830000000049454E44AE426082}
+ Name = 'PngImage0'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA
+ 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD
+ 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4
+ 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383
+ E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF
+ 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6
+ 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5
+ EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77
+ EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7
+ 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF
+ 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813
+ BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902
+ 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636
+ EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4
+ 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022
+ 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212
+ 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9
+ 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160
+ FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300
+ D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05
+ 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB
+ EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F
+ A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE
+ CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3
+ D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF
+ EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265
+ EA71FE0D330BBCF031BDB9A60000000049454E44AE426082}
+ Name = 'PngImage15'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA
+ 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B
+ 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB
+ 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720
+ F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED
+ AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F
+ 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB
+ C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF
+ A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C
+ 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C
+ CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A
+ 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A
+ 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF
+ 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5
+ FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43
+ 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020
+ 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807
+ F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB
+ 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C
+ B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631
+ 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83
+ F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C
+ E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F
+ CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E
+ 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548
+ 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000
+ 000049454E44AE426082}
+ Name = 'PngImage16'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD2520000019E4944415478DA
+ 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F
+ FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA
+ 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01
+ D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3
+ 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9
+ 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40
+ DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C
+ 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9
+ 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9
+ ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44
+ 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34
+ 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1
+ 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA
+ 0000000049454E44AE426082}
+ Name = 'PngImage17'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD2520000015D4944415478DA
+ 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0
+ 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060
+ 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298
+ E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0
+ 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161
+ 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319
+ 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5
+ BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068
+ 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2
+ E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41
+ 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500
+ 00000049454E44AE426082}
+ Name = 'PngImage18'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001B04944415478DA
+ 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3
+ C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999
+ FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7
+ 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E
+ 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840
+ 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3
+ CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657
+ 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28
+ 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34
+ 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9
+ F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296
+ D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801
+ 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A
+ 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082}
+ Name = 'PngImage19'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001034944415478DA
+ 636498F123988181610D032A0861C8E058CB400460041AF07F8201AA60C10520
+ 91C1C1489201604DC40114D7313234DCF84FB4561868D080BB8E71F3BEBBFF7D
+ 1C9550E4FFFCFDC7F0E7CF5F86DF60FC0F4C83F8DF7EFC66084FAF6738BF733A
+ 7603D6DEFBC710B2FB378A61732CFF307888FF061B7AEDEE4B86EAD6C9B80D60
+ 9CF993015B803EF0FDCAF0EBF75F863B8FDEE036006403EB9CDF0CA40628D800
+ 0F3B05B01F393BEE911C9E6003ECCDA4188E9CBBCFF0F70F3B03A9010A36A0AE
+ B307ACB8A9BC04C5005C9A91031425B52107283ECDC8018AD500429A41F8D1F3
+ F7D80D8005283ECDBF81F8F99B4FD80D8005283100AB01B0002516000097A51A
+ 7A68BA98860000000049454E44AE426082}
+ Name = 'PngImage20'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000001A34944415478DA9D922177E3300CC7655636C3B20596CD702C86C7E6
+ B141C342EF1BE42318167AECD81916BA6CD0638582852A0BCBA46CCDDAF46E77
+ EFF4E2A7D8F2FF2759B6724FD9354BF30B09810EF5B16C43866FACAC7DA67DD5
+ E364655A15020ECEDD42AD47C839EE4AE9EC5CE492EBB2CF9DFC676BCA83772D
+ 6C133CEFE14D395F066B0C032AA4346AD5B9905D20C49BD255350196D4BEF40D
+ C48A47657F44073D05CEDC9AFBF0585F63B61D1379AF7BF2B702C67D8509B0F6
+ 4329E52D1DE8CE2CF557B6B93144CAF13C04767702CCED62B12433587FB99141
+ 4E1C03C2B70011B72EC02E479843CEAD6E60D04BEED9C1825B47A54E6273CF15
+ F73CE9095226D00B891000FB66C1733E2F71CCACCC08EA36043165755141D334
+ 2CE6EEAFE429F0552F3468CD5E370CE05842F04E4FE2DFF6A05979CE04633524
+ 15F08707024484E0F9EA36C880ACAE7A70DE87931D7B0190BCD0B1326F11E256
+ 20FF0098C454D92324167A5320163B95FF47C0518EC02219F4E9D3AB01C780F4
+ 3780910A46D167763E3FF508B95A59BA105F037E76038EC28FE6C9B58DCDEC3F
+ E273F115E07FEC1D6B02010E884AA1F00000000049454E44AE426082}
+ Name = 'PngImage21'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001D24944415478DA
+ 635CBBFBE27F062C20D8559F1145C0600644DD850C1471469001412E7A286AD7
+ EDB9846A08507365811743FB846DC41BD0D23303CC3EFF529F61E19464861B77
+ 9E332C597190E1C7CFBF175FBFFFE10D34E8298601F7AD2419148F3D67F8FEF3
+ 37C3F71FBF19841D16C335C380181F0B4365E7D62F4083344086C00D0069E6B4
+ F26638B66E2E83C3F9AF0CDF7EFC62F08BAF02BBC0D74D9741474B96E1CAB5C7
+ 60FACFE7370C0BD75FDEFA6A5FBC0FD800C33A77B06686FBFBC0B61C3B7F9F41
+ 67FF2B8688F47A86F33BA73382C20064C8E65D97E186C1C2036C809FA30EC326
+ 5566062B4345B8E66FDF7F312415B4420C408A85CF471354A21ACFDE3976F216
+ C3DB838910035C2DD5C14E3E6ACAC7A0BEEB39C357A0E6DFBFFF32E4567533D4
+ 94646044F1C92B1F19A6AEBAC5F0F5780AC4006BA0CDA0400369046190ED2050
+ 54D70736003D96E6AC3DC35033E33AC3CB3D7110036051860DC00DF8788EE1FE
+ 726306C5C8B30CEB4EB3C0A39991810080C5D2EF358C0CAC16F10CF7B72C64E0
+ 8F44C412710698FE81D86E0F8CA8830C6057DCFA200B8E25A20C30BCA3CFA0E8
+ 130F8C82850CEFDF31307CB80CF491C313702C116580C8697D0C7166F77BE058
+ 22CA007CB1449401F862090078951B407104A20F0000000049454E44AE426082}
+ Name = 'PngImage22'
+ Background = clWindow
+ end>
+ Left = 555
+ Top = 0
+ Bitmap = {}
+ end
+ inherited LargeImages: TPngImageList [8]
PngImages = <
item
PngImage.Data = {
@@ -1368,541 +1966,12 @@ inherited fEditorComision: TfEditorComision
Top = 0
Bitmap = {}
end
- inherited JvFormStorage: TJvFormStorage
+ inherited JvFormStorage: TJvFormStorage [9]
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
Left = 528
Top = 32
end
- inherited SmallImages: TPngImageList [9]
- PngImages = <
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000774494D45000000000000000973942E000000097048597300001712
- 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9
- 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD
- 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E
- E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290
- 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF
- FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232
- E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043
- C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF
- 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4
- 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A
- 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA
- 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583
- 000005100EB8572466A60000000049454E44AE426082}
- Name = 'PngImage1'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001074944415478DA
- 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A
- C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211
- AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643
- 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601
- C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4
- CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346
- B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501
- 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08
- 0029AC32F01825AACD0000000049454E44AE426082}
- Name = 'PngImage2'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001514944415478DA
- 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319
- CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000
- 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802
- 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D
- F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4
- C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18
- 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801
- 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB
- FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E
- 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED
- 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082}
- Name = 'PngImage3'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA
- 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF
- 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17
- 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8
- E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42
- BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0
- 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F
- E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D
- CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C
- 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98
- B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941
- 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF
- DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7
- 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F
- D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE
- D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583
- CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8
- FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED
- 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0
- EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E
- 44AE426082}
- Name = 'PngImage4'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA
- A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304
- 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994
- 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F
- 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546
- 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8
- 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA
- 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E
- 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8
- E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0
- 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8
- 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37
- 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB
- 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932
- 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04
- E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148
- D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2
- 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56
- A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E
- AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13
- 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058
- 5538F0EAB25B380000000049454E44AE426082}
- Name = 'PngImage5'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001934944415478DA
- 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98
- 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6
- 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F
- FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F
- B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9
- 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491
- 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC
- 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5
- 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF
- 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E
- C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506
- 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4
- 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260
- 82}
- Name = 'PngImage6'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000774494D45000000000000000973942E000000097048597300001712
- 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD
- D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958
- 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF
- DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C
- 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B
- B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD
- D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6
- AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895
- 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608
- DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1
- 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9
- D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252
- 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29
- 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4
- F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A
- A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F
- AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537
- 19FE00839434866373C4BA0000000049454E44AE426082}
- Name = 'PngImage7'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000774494D45000000000000000973942E000000097048597300001712
- 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20
- E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9
- 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1
- CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098
- D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4
- AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609
- 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3
- D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD
- 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8
- C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D
- E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770
- 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F
- 16FA1194E3DBC30000000049454E44AE426082}
- Name = 'PngImage8'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000774494D45000000000000000973942E000000097048597300001712
- 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5
- 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA
- 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8
- 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B
- A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78
- B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE
- 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58
- 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E
- 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D
- 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE
- F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744
- E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082}
- Name = 'PngImage9'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD2520000016A4944415478DA
- 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA
- 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA
- 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30
- F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911
- FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD
- D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5
- 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C
- E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3
- FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B
- CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907
- BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4
- 0090010087546EF0ACB0C7920000000049454E44AE426082}
- Name = 'PngImage10'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001024944415478DA
- 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3
- C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999
- FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8
- 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7
- 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5
- B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719
- 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B
- 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1
- CDA578040000000049454E44AE426082}
- Name = 'PngImage11'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001C04944415478DA
- 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440
- 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F
- 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8
- 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF
- 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E
- 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F
- 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB
- 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1
- CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1
- 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4
- F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C
- 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0
- F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78
- 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C
- 80060000000049454E44AE426082}
- Name = 'PngImage12'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA
- 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF
- CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B
- 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E
- 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3
- B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0
- 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7
- EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567
- 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41
- 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB
- 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060
- A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A
- 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA
- E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C
- EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149
- D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E
- 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65
- 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3
- 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082}
- Name = 'PngImage13'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA
- 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414
- A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D
- 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF
- 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008
- EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5
- 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050
- 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85
- CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15
- 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7
- F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D
- B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D
- 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02
- 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE
- 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0
- 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D
- 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747
- 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7
- FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386
- 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790
- E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6
- 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74
- 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD
- BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03
- 503A4EA60D6AAC070000000049454E44AE426082}
- Name = 'PngImage14'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA
- 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251
- 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E
- C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC
- 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910
- 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537
- BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0
- 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB
- B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048
- 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5
- E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676
- 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8
- 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002
- 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29
- 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF
- 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF
- 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5
- 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF
- AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632
- 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4
- E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384
- 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72
- CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD
- DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8
- 3FA68502A9830000000049454E44AE426082}
- Name = 'PngImage0'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA
- 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD
- 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4
- 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383
- E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF
- 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6
- 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5
- EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77
- EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7
- 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF
- 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813
- BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902
- 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636
- EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4
- 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022
- 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212
- 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9
- 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160
- FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300
- D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05
- 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB
- EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F
- A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE
- CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3
- D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF
- EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265
- EA71FE0D330BBCF031BDB9A60000000049454E44AE426082}
- Name = 'PngImage15'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA
- 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B
- 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB
- 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720
- F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED
- AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F
- 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB
- C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF
- A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C
- 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C
- CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A
- 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A
- 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF
- 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5
- FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43
- 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020
- 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807
- F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB
- 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C
- B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631
- 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83
- F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C
- E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F
- CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E
- 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548
- 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000
- 000049454E44AE426082}
- Name = 'PngImage16'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD2520000019E4944415478DA
- 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F
- FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA
- 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01
- D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3
- 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9
- 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40
- DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C
- 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9
- 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9
- ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44
- 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34
- 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1
- 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA
- 0000000049454E44AE426082}
- Name = 'PngImage17'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD2520000015D4944415478DA
- 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0
- 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060
- 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298
- E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0
- 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161
- 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319
- 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5
- BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068
- 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2
- E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41
- 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500
- 00000049454E44AE426082}
- Name = 'PngImage18'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001B04944415478DA
- 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3
- C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999
- FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7
- 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E
- 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840
- 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3
- CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657
- 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28
- 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34
- 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9
- F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296
- D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801
- 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A
- 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082}
- Name = 'PngImage19'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001034944415478DA
- 636498F123988181610D032A0861C8E058CB400460041AF07F8201AA60C10520
- 91C1C1489201604DC40114D7313234DCF84FB4561868D080BB8E71F3BEBBFF7D
- 1C9550E4FFFCFDC7F0E7CF5F86DF60FC0F4C83F8DF7EFC66084FAF6738BF733A
- 7603D6DEFBC710B2FB378A61732CFF307888FF061B7AEDEE4B86EAD6C9B80D60
- 9CF993015B803EF0FDCAF0EBF75F863B8FDEE036006403EB9CDF0CA40628D800
- 0F3B05B01F393BEE911C9E6003ECCDA4188E9CBBCFF0F70F3B03A9010A36A0AE
- B307ACB8A9BC04C5005C9A91031425B52107283ECDC8018AD500429A41F8D1F3
- F7D80D8005283ECDBF81F8F99B4FD80D8005283100AB01B0002516000097A51A
- 7A68BA98860000000049454E44AE426082}
- Name = 'PngImage20'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000001A34944415478DA9D922177E3300CC7655636C3B20596CD702C86C7E6
- B141C342EF1BE42318167AECD81916BA6CD0638582852A0BCBA46CCDDAF46E77
- EFF4E2A7D8F2FF2759B6724FD9354BF30B09810EF5B16C43866FACAC7DA67DD5
- E364655A15020ECEDD42AD47C839EE4AE9EC5CE492EBB2CF9DFC676BCA83772D
- 6C133CEFE14D395F066B0C032AA4346AD5B9905D20C49BD255350196D4BEF40D
- C48A47657F44073D05CEDC9AFBF0585F63B61D1379AF7BF2B702C67D8509B0F6
- 4329E52D1DE8CE2CF557B6B93144CAF13C04767702CCED62B12433587FB99141
- 4E1C03C2B70011B72EC02E479843CEAD6E60D04BEED9C1825B47A54E6273CF15
- F73CE9095226D00B891000FB66C1733E2F71CCACCC08EA36043165755141D334
- 2CE6EEAFE429F0552F3468CD5E370CE05842F04E4FE2DFF6A05979CE04633524
- 15F08707024484E0F9EA36C880ACAE7A70DE87931D7B0190BCD0B1326F11E256
- 20FF0098C454D92324167A5320163B95FF47C0518EC02219F4E9D3AB01C780F4
- 3780910A46D167763E3FF508B95A59BA105F037E76038EC28FE6C9B58DCDEC3F
- E273F115E07FEC1D6B02010E884AA1F00000000049454E44AE426082}
- Name = 'PngImage21'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001D24944415478DA
- 635CBBFBE27F062C20D8559F1145C0600644DD850C1471469001412E7A286AD7
- EDB9846A08507365811743FB846DC41BD0D23303CC3EFF529F61E19464861B77
- 9E332C597190E1C7CFBF175FBFFFE10D34E8298601F7AD2419148F3D67F8FEF3
- 37C3F71FBF19841D16C335C380181F0B4365E7D62F4083344086C00D0069E6B4
- F26638B66E2E83C3F9AF0CDF7EFC62F08BAF02BBC0D74D9741474B96E1CAB5C7
- 60FACFE7370C0BD75FDEFA6A5FBC0FD800C33A77B06686FBFBC0B61C3B7F9F41
- 67FF2B8688F47A86F33BA73382C20064C8E65D97E186C1C2036C809FA30EC326
- 5566062B4345B8E66FDF7F312415B4420C408A85CF471354A21ACFDE3976F216
- C3DB838910035C2DD5C14E3E6ACAC7A0BEEB39C357A0E6DFBFFF32E4567533D4
- 94646044F1C92B1F19A6AEBAC5F0F5780AC4006BA0CDA0400369046190ED2050
- 54D70736003D96E6AC3DC35033E33AC3CB3D7110036051860DC00DF8788EE1FE
- 726306C5C8B30CEB4EB3C0A39991810080C5D2EF358C0CAC16F10CF7B72C64E0
- 8F44C412710698FE81D86E0F8CA8830C6057DCFA200B8E25A20C30BCA3CFA0E8
- 130F8C82850CEFDF31307CB80CF491C313702C116580C8697D0C7166F77BE058
- 22CA007CB1449401F862090078951B407104A20F0000000049454E44AE426082}
- Name = 'PngImage22'
- Background = clWindow
- end>
- Left = 555
- Top = 0
- Bitmap = {}
- end
inherited JvAppRegistryStorage: TJvAppRegistryStorage
Left = 560
Top = 32
diff --git a/Source/Modulos/Comisiones/Views/uEditorComision.pas b/Source/Modulos/Comisiones/Views/uEditorComision.pas
index d098137..161dcfa 100644
--- a/Source/Modulos/Comisiones/Views/uEditorComision.pas
+++ b/Source/Modulos/Comisiones/Views/uEditorComision.pas
@@ -42,9 +42,9 @@ type
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); override; //Importante, es donde deben quitarse eventos para que afecten a la tabla una vez que se cierre el editor
private
- FImporteTotalFacturas: Variant;
- FImporteTotalVendedores: Variant;
- FTotalVendedores: Variant;
+// FImporteTotalFacturas: Variant;
+// FImporteTotalVendedores: Variant;
+// FTotalVendedores: Variant;
protected
FController : IComisionesController;
@@ -115,37 +115,51 @@ var
bEsNuevo : Boolean;
begin
inherited;
+ bEsNuevo := False;
+ //Quitamos los eventos antes de eliminar para que no intercedan en la operacion
ShowHourglassCursor;
- frViewFacturasComision1.OnViewModified := Nil;
- //frViewDetallesFacturaCliente1.SaveGridStatus; // Para guardar estado del grid
- frViewFacturasComision1.cxGrid.ActiveView.BeginUpdate; // Para que no se mueva el foco
- frViewVendedoresComision1.cxGrid.ActiveView.BeginUpdate; // Para que no se mueva el foco
+ frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
+// frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
+
+// frViewRecibosComision1.OnViewModified := Nil;
+//frViewDetallesFacturaCliente1.SaveGridStatus; // Para guardar estado del grid
+// frViewDetallesFacturaCliente1.BeginUpdate; // Para que no se mueva el foco
try
bEsNuevo := FComision.EsNuevo;
+
+// AImporteTotal := ASender.FooterSummaryValues[1];
+// if Assigned(FController) then
+ FController.AsignarImporteTotal(Comision, frViewFacturasComision1.cxGridView.DataController.Summary.FooterSummaryValues[2]);
FController.Guardar(FComision);
finally
- frViewFacturasComision1.cxGrid.ActiveView.EndUpdate;
- frViewVendedoresComision1.cxGrid.ActiveView.EndUpdate;
+// frViewDetallesFacturaCliente1.EndUpdate;
// frViewDetallesFacturaCliente1.RestoreGridStatus;
+
+ frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := OnFacturasComisionAfterSummary;
+// frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := OnVendedoresComisionAfterSummary;
HideHourglassCursor;
end;
if bEsNuevo then
ShowInfoMessage('La liquidación de comisiones se ha dado de alta con el código ' + FComision.REFERENCIA);
+
Modified := False;
- frViewFacturasComision1.Modified := False;
-// frViewFacturasComision1.OnViewModified := OnFacturasChanged;
+
+// frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := OnFacturasComisionSummaryAfterSummary;
+// frViewRecibosComision1.Modified := False;
+// frViewRecibosComision1.OnViewModified := OnRecibosChanged;
+
end;
procedure TfEditorComision.ImprimirInterno;
begin
inherited;
- if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
- FController.Print(FComision, False)
+ if (Application.MessageBox('¿Desea imprimir la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
+ FController.Preview(FComision, False, False)
else
- FController.Print(FComision, True);
+ FController.Preview(FComision, False, True);
end;
procedure TfEditorComision.JvFormStorageRestorePlacement(Sender: TObject);
@@ -182,9 +196,9 @@ procedure TfEditorComision.PrevisualizarInterno;
begin
inherited;
if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
- FController.Preview(FComision, False)
+ FController.Preview(FComision, False, False)
else
- FController.Preview(FComision, True);
+ FController.Preview(FComision, False, True);
end;
procedure TfEditorComision.SetComision(const Value: IBizComisiones);
@@ -194,13 +208,13 @@ begin
begin
dsDataTable.DataTable := FComision.DataTable;
frViewFacturasComision1.Comision := FComision;
- frViewVendedoresComision1.Comision := FComision;
+// frViewVendedoresComision1.Comision := FComision;
end
else
begin
dsDataTable.DataTable := Nil;
frViewFacturasComision1.Comision := Nil;
- frViewVendedoresComision1.Comision := Nil;
+// frViewVendedoresComision1.Comision := Nil;
end;
if Assigned(FViewComision) then
@@ -233,7 +247,7 @@ end;
procedure TfEditorComision.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
- frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
+// frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
inherited;
end;
@@ -249,31 +263,28 @@ begin
raise Exception.Create('No hay ningún almacén asignado');
frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := OnFacturasComisionAfterSummary;
- frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := OnVendedoresComisionAfterSummary;
+// frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := OnVendedoresComisionAfterSummary;
Comision.DataTable.Active := True;
end;
procedure TfEditorComision.OnFacturasComisionAfterSummary(ASender: TcxDataSummary);
+Var
+ AImporteTotal: Variant;
+
begin
inherited;
- if (FImporteTotalFacturas <> ASender.FooterSummaryValues[1]) then
- begin
- FImporteTotalFacturas := ASender.FooterSummaryValues[1];
+ AImporteTotal := ASender.FooterSummaryValues[2];
- //Recalculamos comisiones
- if Assigned(FController)
- and (not VarIsNull(FImporteTotalFacturas))
- and (FImporteTotalFacturas > 0) then
- FController.RecalcularComisiones(Comision, FImporteTotalFacturas);
- end;
+ if Assigned(FController) then
+ FController.AsignarImporteTotal(Comision, AImporteTotal);
end;
procedure TfEditorComision.OnVendedoresComisionAfterSummary(ASender: TcxDataSummary);
begin
inherited;
-
+{
if (FTotalVendedores <> ASender.FooterSummaryValues[2]) then
begin
FTotalVendedores := ASender.FooterSummaryValues[2];
@@ -293,6 +304,7 @@ begin
if Assigned(FController) then
FController.AsignarImporteTotal(Comision, FImporteTotalVendedores);
end;
+}
end;
destructor TfEditorComision.Destroy;
@@ -310,9 +322,9 @@ end;
constructor TfEditorComision.Create(AOwner: TComponent);
begin
inherited;
- FImporteTotalFacturas := -1;
- FImporteTotalVendedores := -1;
- FTotalVendedores := -1;
+// FImporteTotalFacturas := -1;
+// FImporteTotalVendedores := -1;
+// FTotalVendedores := -1;
pgPaginas.ActivePageIndex := 0;
FViewComision := frViewComision1;
end;
diff --git a/Source/Modulos/Comisiones/Views/uEditorComisiones.dfm b/Source/Modulos/Comisiones/Views/uEditorComisiones.dfm
index 465632a..e04cb63 100644
--- a/Source/Modulos/Comisiones/Views/uEditorComisiones.dfm
+++ b/Source/Modulos/Comisiones/Views/uEditorComisiones.dfm
@@ -56,10 +56,10 @@ inherited fEditorComisiones: TfEditorComisiones
Width = 820
ExplicitWidth = 820
inherited tbxMain: TTBXToolbar
- ExplicitWidth = 561
+ ExplicitWidth = 632
end
inherited tbxFiltro: TTBXToolbar
- ExplicitWidth = 269
+ ExplicitWidth = 201
inherited tbxEditFiltro: TTBXEditItem
EditOptions = [tboUseEditWhenVertical]
end
@@ -77,16 +77,138 @@ inherited fEditorComisiones: TfEditorComisiones
end
end
end
- inherited TBXTMain2: TTBXToolbar
- Left = 334
- ExplicitLeft = 334
- end
end
inherited StatusBar: TJvStatusBar
Width = 820
ExplicitWidth = 820
end
- inherited EditorActionList: TActionList
+ inline frViewComisiones1: TfrViewComisiones [3]
+ Left = 0
+ Top = 106
+ Width = 820
+ Height = 319
+ Align = alClient
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 3
+ ReadOnly = False
+ ExplicitTop = 106
+ ExplicitWidth = 820
+ ExplicitHeight = 319
+ inherited cxGrid: TcxGrid
+ Width = 820
+ Height = 191
+ ExplicitWidth = 820
+ ExplicitHeight = 191
+ inherited cxGridView: TcxGridDBTableView
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Position = spFooter
+ Column = frViewComisiones1.cxGridViewIMPORTE_TOTAL
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Format = '0 almacenes'
+ Kind = skCount
+ end
+ item
+ Format = '0 Art'#237'culos'
+ Kind = skCount
+ end
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = frViewComisiones1.cxGridViewIMPORTE_TOTAL
+ end
+ item
+ Format = '0 liquidaciones'
+ Kind = skCount
+ Column = frViewComisiones1.cxGridViewREFERENCIA
+ end>
+ end
+ end
+ inherited frViewFiltroBase1: TfrViewFiltroBase
+ Width = 820
+ ExplicitWidth = 820
+ inherited TBXDockablePanel1: TTBXDockablePanel
+ ExplicitWidth = 820
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 820
+ ExplicitWidth = 820
+ inherited txtFiltroTodo: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ end
+ inherited edtFechaIniFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ end
+ inherited edtFechaFinFiltro: TcxDateEdit
+ Left = 469
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 469
+ end
+ inherited txtFiltroTodo2: TcxTextEdit
+ Left = 469
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 469
+ end
+ end
+ inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+ Width = 820
+ ExplicitWidth = 820
+ inherited tbxBotones: TTBXToolbar
+ Width = 810
+ ExplicitWidth = 810
+ end
+ end
+ end
+ end
+ inherited pnlAgrupaciones: TTBXDockablePanel
+ Top = 293
+ ExplicitTop = 293
+ ExplicitWidth = 820
+ inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+ Width = 820
+ ExplicitWidth = 820
+ inherited TBXToolbar1: TTBXToolbar
+ Width = 810
+ ExplicitWidth = 810
+ end
+ end
+ end
+ inherited dxComponentPrinter: TdxComponentPrinter
+ inherited dxComponentPrinterLink: TdxGridReportLink
+ ReportDocument.CreationDate = 45247.519370289350000000
+ BuiltInReportLink = True
+ end
+ end
+ inherited cxViewGridPopupMenu: TcxGridPopupMenu
+ PopupMenus = <
+ item
+ GridView = frViewComisiones1.cxGridView
+ HitTypes = [gvhtCell]
+ Index = 0
+ end>
+ end
+ end
+ inherited EditorActionList: TActionList [4]
inherited actNuevo: TAction
ImageIndex = 23
end
@@ -100,7 +222,7 @@ inherited fEditorComisiones: TfEditorComisiones
Visible = False
end
end
- inherited SmallImages: TPngImageList
+ inherited SmallImages: TPngImageList [5]
PngImages = <
item
PngImage.Data = {
@@ -643,7 +765,7 @@ inherited fEditorComisiones: TfEditorComisiones
end>
Bitmap = {}
end
- inherited LargeImages: TPngImageList
+ inherited LargeImages: TPngImageList [6]
PngImages = <
item
PngImage.Data = {
@@ -1484,6 +1606,14 @@ inherited fEditorComisiones: TfEditorComisiones
end>
Bitmap = {}
end
+ inherited JvFormStorage: TJvFormStorage [7]
+ end
+ inherited dsDataTable: TDADataSource [8]
+ end
+ inherited JvAppRegistryStorage: TJvAppRegistryStorage [9]
+ end
+ inherited StatusBarImages: TPngImageList [10]
+ end
inherited GridPopupMenu: TPopupMenu
object N4: TMenuItem [8]
Caption = '-'
diff --git a/Source/Modulos/Comisiones/Views/uEditorComisiones.pas b/Source/Modulos/Comisiones/Views/uEditorComisiones.pas
index d9a019e..dcccb11 100644
--- a/Source/Modulos/Comisiones/Views/uEditorComisiones.pas
+++ b/Source/Modulos/Comisiones/Views/uEditorComisiones.pas
@@ -22,6 +22,7 @@ type
TBXItem38: TTBXItem;
JsPrevisualizarDialog: TJSDialog;
JsImprimirDialog: TJSDialog;
+ frViewComisiones1: TfrViewComisiones;
procedure FormShow(Sender: TObject);
private
FComisiones: IBizComisiones;
@@ -56,6 +57,7 @@ implementation
uses
uCustomEditor, uDataModuleComisiones, uDataModuleUsuarios, uGridUtils,
//uEditorRemesaCliente,
+ uFactuGES_App,
uEditorDBBase, cxGrid, cxGridCustomTableView, uDBSelectionListUtils;
{$R *.dfm}
@@ -117,8 +119,11 @@ begin
else
AComisiones := Comisiones;
- if Assigned(AComisiones) then
- FController.Print(AComisiones, AllItems);
+ if Assigned(AComisiones) then
+ if (Application.MessageBox('¿Desea imprimir la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
+ FController.Print(AComisiones, AllItems, False)
+ else
+ FController.Print(AComisiones, AllItems, True);
end;
end;
end;
@@ -131,9 +136,13 @@ begin
end;
procedure TfEditorComisiones.ModificarInterno;
+var
+AComision: IBizComisiones;
begin
inherited;
+// AComision := FController.Buscar(Comisiones.ID);
FController.Ver(Comisiones);
+
end;
procedure TfEditorComisiones.NuevoInterno;
@@ -147,7 +156,7 @@ procedure TfEditorComisiones.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
-// FTitulo := 'Lista de liquidaciones de comisiones - ' + AppFactuGES.EmpresaActiva.NOMBRE;
+ FTitulo := 'Lista de liquidaciones de comisiones - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;
@@ -184,8 +193,11 @@ begin
else
AComisiones := Comisiones;
- if Assigned(AComisiones) then
- FController.Preview(AComisiones, AllItems);
+ if Assigned(AComisiones) then
+ if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
+ FController.Preview(AComisiones, AllItems, False)
+ else
+ FController.Preview(AComisiones, AllItems, True);
end;
end;
end;
@@ -232,7 +244,8 @@ end;
constructor TfEditorComisiones.Create(AOwner: TComponent);
begin
inherited;
- AsignarVista;
+//AsignarVista;
+ ViewGrid := frViewComisiones1;
end;
end.
diff --git a/Source/Modulos/Comisiones/Views/uViewComision.dfm b/Source/Modulos/Comisiones/Views/uViewComision.dfm
index d29b3c1..d61feeb 100644
--- a/Source/Modulos/Comisiones/Views/uViewComision.dfm
+++ b/Source/Modulos/Comisiones/Views/uViewComision.dfm
@@ -2,6 +2,7 @@ inherited frViewComision: TfrViewComision
Width = 451
Height = 304
Align = alClient
+ OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
OnShow = CustomViewShow
ExplicitWidth = 451
@@ -17,8 +18,6 @@ inherited frViewComision: TfrViewComision
TabStop = False
AutoContentSizes = [acsWidth]
LookAndFeel = dxLayoutOfficeLookAndFeel1
- ExplicitWidth = 473
- ExplicitHeight = 128
DesignSize = (
451
304)
@@ -97,6 +96,9 @@ inherited frViewComision: TfrViewComision
Properties.ListColumns = <
item
FieldName = 'NOMBRE'
+ end
+ item
+ FieldName = 'DELEGACION'
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
@@ -149,7 +151,6 @@ inherited frViewComision: TfrViewComision
end
object dxLayoutControlComisionItem1: TdxLayoutItem
Caption = 'Agente:'
- Visible = False
Control = cbAgente
ControlOptions.ShowBorder = False
end
diff --git a/Source/Modulos/Comisiones/Views/uViewComision.pas b/Source/Modulos/Comisiones/Views/uViewComision.pas
index 6281664..af5ff7e 100644
--- a/Source/Modulos/Comisiones/Views/uViewComision.pas
+++ b/Source/Modulos/Comisiones/Views/uViewComision.pas
@@ -12,7 +12,7 @@ uses
uComisionesController, cxSpinEdit, cxCurrencyEdit,
uBizComisiones, cxCalendar,
dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
- uDAInterfaces;
+ uDAInterfaces, uBizContactos, uComercialesController;
type
IViewComision = interface(IViewBase)
@@ -35,9 +35,13 @@ type
dsAgentes: TDADataSource;
procedure CustomViewShow(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
+ procedure CustomViewCreate(Sender: TObject);
protected
FComision: IBizComisiones;
+ FAgentes: IBizContacto;
+ FComercialesController: IComercialesController;
+
function GetComision: IBizComisiones;
procedure SetComision(const Value: IBizComisiones); virtual;
public
@@ -49,9 +53,7 @@ implementation
{$R *.dfm}
uses
- uDataModuleUsuarios,
- //uAgentesController,
- uBizContactos;
+ uDataModuleUsuarios;
{ TfrViewComisions }
@@ -60,28 +62,27 @@ uses
******************************* TfrViewComisions ********************************
}
+procedure TfrViewComision.CustomViewCreate(Sender: TObject);
+begin
+ inherited;
+ FComercialesController := TComercialesController.Create;
+ FAgentes := Nil;
+end;
+
procedure TfrViewComision.CustomViewDestroy(Sender: TObject);
begin
+ FComercialesController := Nil;
+ FAgentes := Nil;
dsAgentes.DataTable := Nil;
inherited;
end;
procedure TfrViewComision.CustomViewShow(Sender: TObject);
-//Var
-// AAgentes: IBizContacto;
-// FAgentesController: IAgentesController;
begin
inherited;
-{ try
- FAgentesController := TAgentesController.Create;
- AAgentes := FAgentesController.BuscarTodos;
- AAgentes.DataTable.Active := True;
- dsAgentes.DataTable := AAgentes.DataTable;
- finally
- AAgentes := Nil;
- FAgentesController := Nil;
- end;
-}
+ FAgentes := FComercialesController.BuscarActivos;
+ dsAgentes.DataTable := FAgentes.DataTable;
+ dsAgentes.DataTable.Active := True;
end;
function TfrViewComision.GetComision: IBizComisiones;
diff --git a/Source/Modulos/Comisiones/Views/uViewComisiones.dfm b/Source/Modulos/Comisiones/Views/uViewComisiones.dfm
index 3a6121b..a2a8668 100644
--- a/Source/Modulos/Comisiones/Views/uViewComisiones.dfm
+++ b/Source/Modulos/Comisiones/Views/uViewComisiones.dfm
@@ -34,23 +34,34 @@ inherited frViewComisiones: TfrViewComisiones
DataBinding.FieldName = 'REFERENCIA'
Width = 80
end
- object cxGridViewAGENTE: TcxGridDBColumn
- Caption = 'Agente'
- DataBinding.FieldName = 'NOMBRE'
- Visible = False
- VisibleForCustomization = False
- Width = 77
- end
object cxGridViewFECHA: TcxGridDBColumn
Caption = 'Fecha'
DataBinding.FieldName = 'FECHA'
Width = 71
end
+ object cxGridViewDELEGACION: TcxGridDBColumn
+ Caption = 'Delegacion'
+ DataBinding.FieldName = 'DELEGACION'
+ PropertiesClassName = 'TcxTextEditProperties'
+ end
+ object cxGridViewAGENTE: TcxGridDBColumn
+ Caption = 'Comercial'
+ DataBinding.FieldName = 'NOMBRE'
+ PropertiesClassName = 'TcxTextEditProperties'
+ Width = 77
+ end
object cxGridViewDESCRIPCION: TcxGridDBColumn
Caption = 'Descripci'#243'n'
DataBinding.FieldName = 'DESCRIPCION'
Width = 400
end
+ object cxGridViewCOMISION: TcxGridDBColumn
+ Caption = 'Comisi'#243'n'
+ DataBinding.FieldName = 'COMISION'
+ PropertiesClassName = 'TcxSpinEditProperties'
+ Properties.DisplayFormat = ',0.00 %;-,0.00 %'
+ Properties.MaxValue = 100.000000000000000000
+ end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe'
DataBinding.FieldName = 'IMPORTE_TOTAL'
@@ -62,6 +73,44 @@ inherited frViewComisiones: TfrViewComisiones
end
end
end
+ inherited frViewFiltroBase1: TfrViewFiltroBase
+ inherited TBXDockablePanel1: TTBXDockablePanel
+ inherited dxLayoutControl1: TdxLayoutControl
+ inherited txtFiltroTodo: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 250
+ Width = 250
+ end
+ inherited edtFechaIniFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 250
+ Width = 250
+ end
+ inherited edtFechaFinFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 250
+ Width = 250
+ end
+ inherited txtFiltroTodo2: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 250
+ Width = 250
+ end
+ end
+ end
+ end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38673.842406053240000000
diff --git a/Source/Modulos/Comisiones/Views/uViewComisiones.pas b/Source/Modulos/Comisiones/Views/uViewComisiones.pas
index 834a67a..2b41222 100644
--- a/Source/Modulos/Comisiones/Views/uViewComisiones.pas
+++ b/Source/Modulos/Comisiones/Views/uViewComisiones.pas
@@ -14,7 +14,8 @@ uses
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
cxGridCustomPopupMenu, cxGridPopupMenu, cxCurrencyEdit, cxSpinEdit, cxCheckBox,
cxCheckComboBox, cxImageComboBox, TB2Item, TBX, TB2Toolbar, TBXDkPanels,
- TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces;
+ TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces, uCustomView, uViewBase,
+ cxTextEdit;
type
IViewComisiones = interface(IViewGrid)
@@ -31,6 +32,8 @@ type
cxGridViewDESCRIPCION: TcxGridDBColumn;
cxGridViewAGENTE: TcxGridDBColumn;
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
+ cxGridViewDELEGACION: TcxGridDBColumn;
+ cxGridViewCOMISION: TcxGridDBColumn;
procedure cxGridViewIDCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
diff --git a/Source/Modulos/Comisiones/Views/uViewFacturasComision.dfm b/Source/Modulos/Comisiones/Views/uViewFacturasComision.dfm
index 3201d2a..d79b697 100644
--- a/Source/Modulos/Comisiones/Views/uViewFacturasComision.dfm
+++ b/Source/Modulos/Comisiones/Views/uViewFacturasComision.dfm
@@ -1,15 +1,16 @@
inherited frViewFacturasComision: TfrViewFacturasComision
- Width = 549
- Height = 376
+ Width = 1032
+ Height = 411
OnShow = CustomViewShow
- ExplicitWidth = 549
- ExplicitHeight = 376
+ ExplicitWidth = 1032
+ ExplicitHeight = 411
inherited cxGrid: TcxGrid
- Width = 549
- Height = 351
- ExplicitWidth = 549
- ExplicitHeight = 351
+ Width = 1032
+ Height = 386
+ ExplicitWidth = 1032
+ ExplicitHeight = 386
inherited cxGridView: TcxGridDBTableView
+ DataController.KeyFieldNames = 'ID_FACTURA'
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
@@ -18,6 +19,16 @@ inherited frViewFacturasComision: TfrViewFacturasComision
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewBASE_IMPONIBLE
+ end
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = cxGridViewIMPORTE_COMISION
+ end
+ item
+ Format = '0 Facturas'
+ Kind = skCount
+ Column = cxGridViewREFERENCIA
end>
OptionsCustomize.ColumnMoving = True
OptionsData.Appending = False
@@ -33,6 +44,7 @@ inherited frViewFacturasComision: TfrViewFacturasComision
VisibleForCustomization = False
end
inherited cxGridViewID: TcxGridDBColumn
+ DataBinding.FieldName = 'ID_FACTURA'
VisibleForCustomization = False
end
object cxGridViewID_EMPRESA: TcxGridDBColumn
@@ -47,37 +59,52 @@ inherited frViewFacturasComision: TfrViewFacturasComision
end
object cxGridViewFECHA: TcxGridDBColumn
Caption = 'Fecha factura'
- DataBinding.FieldName = 'FECHA_FACTURA'
+ DataBinding.FieldName = 'FECHA'
end
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Ref. factura'
DataBinding.FieldName = 'REFERENCIA'
end
- object cxGridViewSITUACION: TcxGridDBColumn
- Caption = 'Situaci'#243'n factura'
- DataBinding.FieldName = 'SITUACION'
- Visible = False
- VisibleForCustomization = False
- end
object cxGridViewID_CLIENTE: TcxGridDBColumn
DataBinding.FieldName = 'ID_CLIENTE'
Visible = False
VisibleForCustomization = False
end
object cxGridViewCLIENTE: TcxGridDBColumn
- Caption = 'Raz'#243'n social'
- DataBinding.FieldName = 'NOMBRE'
+ Caption = 'Cliente'
+ DataBinding.FieldName = 'CLIENTE'
end
object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
- Caption = 'Base imponible'
- DataBinding.FieldName = 'BASE_IMPONIBLE'
+ Caption = 'Importe comisionable'
+ DataBinding.FieldName = 'IMPORTE_COMISIONABLE'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ FooterAlignmentHorz = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
+ end
+ object cxGridViewCOMISION: TcxGridDBColumn
+ Caption = 'Porcentaje'
+ DataBinding.FieldName = 'COMISION'
+ PropertiesClassName = 'TcxSpinEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ Properties.DisplayFormat = '0.0 %;-0.0 %'
+ Properties.MaxValue = 100.000000000000000000
+ FooterAlignmentHorz = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
+ end
+ object cxGridViewIMPORTE_COMISION: TcxGridDBColumn
+ Caption = 'Importe comisi'#243'n'
+ DataBinding.FieldName = 'IMPORTE_COMISION'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
end
end
inherited ToolBar1: TToolBar
- Width = 549
- ExplicitWidth = 549
+ Width = 1032
+ ExplicitWidth = 1032
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
diff --git a/Source/Modulos/Comisiones/Views/uViewFacturasComision.pas b/Source/Modulos/Comisiones/Views/uViewFacturasComision.pas
index 8015d8b..cba102f 100644
--- a/Source/Modulos/Comisiones/Views/uViewFacturasComision.pas
+++ b/Source/Modulos/Comisiones/Views/uViewFacturasComision.pas
@@ -30,7 +30,6 @@ type
cxGridViewID_COMISION_LIQUIDADA: TcxGridDBColumn;
cxGridViewFECHA: TcxGridDBColumn;
cxGridViewREFERENCIA: TcxGridDBColumn;
- cxGridViewSITUACION: TcxGridDBColumn;
cxGridViewID_CLIENTE: TcxGridDBColumn;
cxGridViewCLIENTE: TcxGridDBColumn;
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
@@ -38,6 +37,8 @@ type
actContraer: TAction;
ToolButton3: TToolButton;
ToolButton8: TToolButton;
+ cxGridViewCOMISION: TcxGridDBColumn;
+ cxGridViewIMPORTE_COMISION: TcxGridDBColumn;
procedure actExpandirExecute(Sender: TObject);
procedure actContraerExecute(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dpk b/Source/Modulos/Contactos/Controller/Contactos_controller.dpk
index ab14128..b0a276f 100644
--- a/Source/Modulos/Contactos/Controller/Contactos_controller.dpk
+++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dpk
@@ -86,6 +86,7 @@ contains
uComercialesController in 'uComercialesController.pas',
uInstaladoresController in 'uInstaladoresController.pas',
uIEditorElegirComerciales in 'View\uIEditorElegirComerciales.pas',
- uIEditorElegirInstaladores in 'View\uIEditorElegirInstaladores.pas';
+ uIEditorElegirInstaladores in 'View\uIEditorElegirInstaladores.pas',
+ uIEditorVendedores in 'View\uIEditorVendedores.pas';
end.
diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj
index f7b43e0..5200a29 100644
--- a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj
+++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj
@@ -49,27 +49,6 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
JCL Debug IDE extension
JCL Project Analyzer
JCL Open and Save IDE dialogs with favorite folders
@@ -135,6 +114,7 @@
+
diff --git a/Source/Modulos/Contactos/Controller/uComercialesController.pas b/Source/Modulos/Contactos/Controller/uComercialesController.pas
index 7061bdb..0b2a9b2 100644
--- a/Source/Modulos/Contactos/Controller/uComercialesController.pas
+++ b/Source/Modulos/Contactos/Controller/uComercialesController.pas
@@ -18,6 +18,7 @@ type
function DarListaComerciales : TStringList;
function BuscarTodos: IBizContacto; overload;
function BuscarTodos(const CadenaIDs: String): IBizContacto; overload;
+ function BuscarActivos: IBizContacto;
// function DarIDComercialDeUsuario(const AUsuario: Integer): Integer;
end;
@@ -28,6 +29,7 @@ type
function Buscar(const ID: Integer): IBizContacto; override;
function BuscarTodos: IBizContacto; overload; override;
function BuscarTodos(const CadenaIDs: String): IBizContacto; overload;
+ function BuscarActivos: IBizContacto;
function Nuevo : IBizContacto; override;
procedure Ver(AContacto : IBizContacto); override;
procedure VerTodos(AContactos: IBizContacto); override;
@@ -62,6 +64,30 @@ begin
FiltrarEmpresa(Result);
end;
+function TComercialesController.BuscarActivos: IBizContacto;
+var
+ Condicion: TDAWhereExpression;
+begin
+ ShowHourglassCursor;
+ try
+ Result := BuscarTodos;
+
+ with Result.DataTable.DynamicWhere do
+ begin
+ // INACTIVOS
+ Condicion := NewBinaryExpression(NewField('', fld_ComercialesFECHA_BAJA), NewNull(), dboEqual);
+
+ if IsEmpty then
+ Expression := Condicion
+ else
+ Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+ end;
+
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
function TComercialesController.BuscarTodos(const CadenaIDs: String): IBizContacto;
var
Cadena : TStringList;
diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas
index 667483d..3042aed 100644
--- a/Source/Modulos/Contactos/Controller/uContactosController.pas
+++ b/Source/Modulos/Contactos/Controller/uContactosController.pas
@@ -7,13 +7,15 @@ uses
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos,
uBizDireccionesContacto, uDireccionesContactoController,
- uControllerBase, uBizContactosPersonal, uBizContactosDirecciones;
+ uControllerBase, uBizContactosPersonal, uBizContactosDirecciones,
+ uBizIdiomas;
type
IContactosController = interface(IControllerBase)
['{E91C24EB-D4D9-4203-809B-0AF90F41B32E}']
function Buscar(const ID: Integer): IBizContacto;
function BuscarTodos: IBizContacto;
+ function BuscarIdiomas: IBizIdiomas;
procedure Ver(AContacto : IBizContacto);
procedure VerTodos(AContactos: IBizContacto);
function Nuevo : IBizContacto;
@@ -60,6 +62,7 @@ type
// Se implementa en los controladores hijos
function Buscar(const ID: Integer): IBizContacto; virtual; abstract;
function BuscarTodos: IBizContacto; virtual; abstract;
+ function BuscarIdiomas: IBizIdiomas;
function Nuevo : IBizContacto; virtual; abstract;
procedure Ver(AContacto : IBizContacto); virtual; abstract;
procedure VerTodos(AContactos: IBizContacto); virtual; abstract;
@@ -76,7 +79,7 @@ type
implementation
uses
- Dialogs, uEditorRegistryUtils, cxControls, DB, uDAInterfaces, uDataTableUtils,
+ uStringsUtils, Dialogs, uEditorRegistryUtils, cxControls, DB, uDAInterfaces, uDataTableUtils,
schContactosClient_Intf, uFactuGES_App, Variants, JSDialogs, JSDialog,
uIEditorElegirPersonaContacto;
@@ -112,6 +115,11 @@ begin
end;
end;
+function TContactosController.BuscarIdiomas: IBizIdiomas;
+begin
+ Result := (FDataModule as IDataModuleContactos).GetIdiomas;
+end;
+
constructor TContactosController.Create;
begin
inherited;
@@ -137,6 +145,7 @@ begin
POBLACION := AContacto.POBLACION;
CODIGO_POSTAL := AContacto.CODIGO_POSTAL;
PROVINCIA := AContacto.PROVINCIA;
+ PAIS := AContacto.PAIS;
TELEFONO := AContacto.TELEFONO_1;
FAX := AContacto.FAX;
MOVIL := AContacto.MOVIL_1;
@@ -194,6 +203,7 @@ begin
Caption := AContacto.NOMBRE + ' ' + AContacto.NIF_CIF;
Info.Add(AContacto.CALLE);
Info.Add(AContacto.CODIGO_POSTAL + ' ' + AContacto.POBLACION + ' ' + AContacto.PROVINCIA);
+ Info.Add(AContacto.PAIS);
Value := -1;
Default := True;
end;
@@ -207,6 +217,7 @@ begin
Caption := AContacto.Direcciones.NOMBRE + ' ' + AContacto.Direcciones.NIF_CIF;
Info.Add(AContacto.Direcciones.CALLE);
Info.Add(AContacto.Direcciones.CODIGO_POSTAL + ' ' + AContacto.Direcciones.POBLACION + ' ' + AContacto.Direcciones.PROVINCIA);
+ Info.Add(AContacto.Direcciones.PAIS);
Value := AContacto.Direcciones.ID;
end;
AContacto.Direcciones.DataTable.Next;
@@ -389,7 +400,15 @@ begin
end;}
function TContactosController.ValidarContacto(AContacto: IBizContacto): Boolean;
+var
+ NifCifTratado: String;
+ NifValido: Boolean;
+ CifValido: Boolean;
+
begin
+ NifValido:= false;
+ CifValido:= false;
+
if not Assigned(AContacto) then
raise Exception.Create ('Contacto no asignado');
@@ -399,9 +418,23 @@ begin
if Length(AContacto.NOMBRE) = 0 then
raise Exception.Create('Debe indicar al menos el nombre de este contacto.');
+ if Length(AContacto.NIF_CIF) = 0 then
+ raise Exception.Create('Debe indicar el NIF/CIF del este contacto.')
+ else
+ begin
+ NifCifTratado := uStringsUtils.CadLimpiaCar(AContacto.NIF_CIF);
+ NifValido := uStringsUtils.comprobarLetraNIF(NifCifTratado);
+ if not NifValido then
+ CifValido := uStringsUtils.validarCIF(NifCifTratado);
+
+ if not (NifValido or CifValido) then
+ raise Exception.Create('El DNI/NIF/CIF introducido no es correcto.')
+ end;
+
// Asegurarse de valores en campos "automáticos"
AContacto.Edit;
AContacto.USUARIO := AppFactuGES.UsuarioActivo.UserName;
+ AContacto.NIF_CIF := NifCifTratado;
AContacto.Post;
Result := True;
diff --git a/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas b/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
index 50652c6..8675151 100644
--- a/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
+++ b/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
@@ -78,6 +78,7 @@ begin
CALLE := AContacto.CALLE;
POBLACION := AContacto.POBLACION;
PROVINCIA := AContacto.PROVINCIA;
+ PAIS := AContacto.PAIS;
CODIGO_POSTAL := AContacto.CODIGO_POSTAL;
TELEFONO := AContacto.TELEFONO_1;
FAX := AContacto.FAX;
diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
index 522cabb..675ed5f 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
@@ -1,6 +1,6 @@
inherited DataModuleClientes: TDataModuleClientes
Height = 325
- Width = 738
+ Width = 815
inherited rda_Contactos: TDARemoteDataAdapter
Top = 79
end
@@ -22,6 +22,9 @@ inherited DataModuleClientes: TDataModuleClientes
inherited ds_ContactosDirecciones: TDADataSource
DataSet = tbl_ContactosDirecciones.Dataset
end
+ inherited ds_Idiomas: TDADataSource
+ DataSet = tbl_Idiomas.Dataset
+ end
object tbl_Clientes: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
@@ -88,6 +91,21 @@ inherited DataModuleClientes: TDataModuleClientes
DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
+ item
+ Name = 'PAIS'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'IDIOMA_ISO'
+ DataType = datString
+ Size = 2
+ end
+ item
+ Name = 'IDIOMA'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'TELEFONO_1'
DataType = datString
@@ -319,14 +337,14 @@ inherited DataModuleClientes: TDataModuleClientes
LocalDataStreamer = Bin2DataStreamer
LogicalName = 'Clientes'
IndexDefs = <>
- Left = 64
- Top = 192
+ Left = 728
+ Top = 16
end
object ds_Clientes: TDADataSource
DataSet = tbl_Clientes.Dataset
DataTable = tbl_Clientes
- Left = 72
- Top = 248
+ Left = 728
+ Top = 80
end
object tbl_ClientesDescuentos: TDAMemDataTable
RemoteUpdatesOptions = []
diff --git a/Source/Modulos/Contactos/Data/uDataModuleComerciales.dfm b/Source/Modulos/Contactos/Data/uDataModuleComerciales.dfm
index 822372f..fbad003 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleComerciales.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleComerciales.dfm
@@ -14,6 +14,9 @@ inherited DataModuleComerciales: TDataModuleComerciales
inherited ds_ContactosDirecciones: TDADataSource
DataSet = tbl_ContactosDirecciones.Dataset
end
+ inherited ds_Idiomas: TDADataSource
+ DataSet = tbl_Idiomas.Dataset
+ end
object tbl_Comerciales: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
@@ -80,6 +83,21 @@ inherited DataModuleComerciales: TDataModuleComerciales
DisplayLabel = 'Comerciales_CODIGO_POSTAL'
DictionaryEntry = 'Comerciales_CODIGO_POSTAL'
end
+ item
+ Name = 'PAIS'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'IDIOMA_ISO'
+ DataType = datString
+ Size = 2
+ end
+ item
+ Name = 'IDIOMA'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'TELEFONO_1'
DataType = datString
@@ -197,6 +215,19 @@ inherited DataModuleComerciales: TDataModuleComerciales
Name = 'DELEGACION'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'FECHA_ALTA_EMPRESA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_BAJA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'CAUSA_BAJA'
+ DataType = datString
+ Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm b/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
index 2a0b507..473c437 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
@@ -90,6 +90,21 @@ inherited DataModuleContactos: TDataModuleContactos
DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
+ item
+ Name = 'PAIS'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'IDIOMA_ISO'
+ DataType = datString
+ Size = 2
+ end
+ item
+ Name = 'IDIOMA'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'TELEFONO_1'
DataType = datString
@@ -322,6 +337,11 @@ inherited DataModuleContactos: TDataModuleContactos
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
+ end
+ item
+ Name = 'PAIS'
+ DataType = datString
+ Size = 255
end>
Params = <>
MasterMappingMode = mmWhere
@@ -586,6 +606,11 @@ inherited DataModuleContactos: TDataModuleContactos
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'PAIS'
+ DataType = datString
+ Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@@ -601,4 +626,39 @@ inherited DataModuleContactos: TDataModuleContactos
Left = 304
Top = 232
end
+ object tbl_Idiomas: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Required = True
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ISO'
+ DataType = datString
+ Size = 2
+ Required = True
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ Required = True
+ end>
+ Params = <>
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_Contactos
+ LogicalName = 'Idiomas'
+ IndexDefs = <>
+ Left = 40
+ Top = 256
+ end
+ object ds_Idiomas: TDADataSource
+ DataSet = tbl_Idiomas.Dataset
+ DataTable = tbl_Idiomas
+ Left = 40
+ Top = 200
+ end
end
diff --git a/Source/Modulos/Contactos/Data/uDataModuleContactos.pas b/Source/Modulos/Contactos/Data/uDataModuleContactos.pas
index 28865f1..d32e70d 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleContactos.pas
+++ b/Source/Modulos/Contactos/Data/uDataModuleContactos.pas
@@ -11,7 +11,7 @@ uses
uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport,
uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest,
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
- uDAMemDataTable, uDataModuleBase, uBizContactosPersonal, uBizContactosDirecciones;
+ uDAMemDataTable, uDataModuleBase, uBizContactosPersonal, uBizContactosDirecciones, uBizIdiomas;
type
TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport)
@@ -28,6 +28,8 @@ type
ds_PersonalContacto: TDADataSource;
tbl_ContactosDirecciones: TDAMemDataTable;
ds_ContactosDirecciones: TDADataSource;
+ tbl_Idiomas: TDAMemDataTable;
+ ds_Idiomas: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
public
@@ -38,6 +40,7 @@ type
function NewDireccion : IBizDireccionesContacto;
function GetContactosDirecciones : IBizContactosDirecciones;
function GetContactoDirecciones(const IDContacto: Integer) : IBizContactosDirecciones;
+ function GetIdiomas : IBizIdiomas;
// Report
@@ -96,6 +99,20 @@ begin
end;
end;
+function TDataModuleContactos.GetIdiomas: IBizIdiomas;
+var
+ AIdiomas : TDAMemDataTable;
+begin
+ ShowHourglassCursor;
+ try
+ AIdiomas := CloneDataTable(tbl_Idiomas);
+ AIdiomas.BusinessRulesID := BIZ_CLIENT_IDIOMAS;
+ Result := (AIdiomas as IBizIdiomas);
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
function TDataModuleContactos.GetReport(const ListaID: TIntegerList): Binary;
var
AParam : TIntegerArray;
diff --git a/Source/Modulos/Contactos/Data/uDataModuleInstaladores.dfm b/Source/Modulos/Contactos/Data/uDataModuleInstaladores.dfm
index 512d514..7f51339 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleInstaladores.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleInstaladores.dfm
@@ -80,6 +80,21 @@ inherited DataModuleInstaladores: TDataModuleInstaladores
DisplayLabel = 'Instaladores_CODIGO_POSTAL'
DictionaryEntry = 'Instaladores_CODIGO_POSTAL'
end
+ item
+ Name = 'PAIS'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'IDIOMA_ISO'
+ DataType = datString
+ Size = 2
+ end
+ item
+ Name = 'IDIOMA'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'TELEFONO_1'
DataType = datString
diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
index 25dd557..c7a366b 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
@@ -13,6 +13,9 @@ inherited DataModuleProveedores: TDataModuleProveedores
inherited ds_PersonalContacto: TDADataSource
DataSet = tbl_PersonalContacto.Dataset
end
+ inherited ds_ContactosDirecciones: TDADataSource
+ DataSet = tbl_ContactosDirecciones.Dataset
+ end
object tbl_GruposProveedor: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
@@ -36,8 +39,6 @@ inherited DataModuleProveedores: TDataModuleProveedores
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos
LocalDataStreamer = Bin2DataStreamer
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'GruposProveedor'
IndexDefs = <>
Left = 448
@@ -115,6 +116,21 @@ inherited DataModuleProveedores: TDataModuleProveedores
DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
+ item
+ Name = 'PAIS'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'IDIOMA_ISO'
+ DataType = datString
+ Size = 2
+ end
+ item
+ Name = 'IDIOMA'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'TELEFONO_1'
DataType = datString
@@ -319,18 +335,16 @@ inherited DataModuleProveedores: TDataModuleProveedores
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos
LocalDataStreamer = Bin2DataStreamer
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Proveedores'
IndexDefs = <>
- Left = 296
+ Left = 584
Top = 168
end
object ds_Proveedores: TDADataSource
DataSet = tbl_Proveedores.Dataset
DataTable = tbl_Proveedores
- Left = 296
- Top = 232
+ Left = 584
+ Top = 240
end
object tbl_SubCuentasContacto: TDAMemDataTable
RemoteUpdatesOptions = []
@@ -383,8 +397,6 @@ inherited DataModuleProveedores: TDataModuleProveedores
MasterSource = ds_Proveedores
MasterFields = 'ID'
DetailFields = 'ID_CONTACTO'
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'SubCuentasContacto'
IndexDefs = <>
Left = 632
diff --git a/Source/Modulos/Contactos/Data/uDataModuleVendedores.dfm b/Source/Modulos/Contactos/Data/uDataModuleVendedores.dfm
index a7c1f86..74b7359 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleVendedores.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleVendedores.dfm
@@ -8,6 +8,12 @@ inherited DataModuleVendedores: TDataModuleVendedores
inherited ds_DatosBancarios: TDADataSource
DataSet = tbl_DatosBancarios.Dataset
end
+ inherited ds_PersonalContacto: TDADataSource
+ DataSet = tbl_PersonalContacto.Dataset
+ end
+ inherited ds_ContactosDirecciones: TDADataSource
+ DataSet = tbl_ContactosDirecciones.Dataset
+ end
object tbl_Vendedores: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
@@ -50,14 +56,14 @@ inherited DataModuleVendedores: TDataModuleVendedores
Name = 'CALLE'
DataType = datString
Size = 255
- DisplayLabel = 'Direcci'#195#179'n'
+ DisplayLabel = 'Direcci'#243'n'
DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
- DisplayLabel = 'Poblaci'#195#179'n'
+ DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'Contactos_POBLACION'
end
item
@@ -71,9 +77,24 @@ inherited DataModuleVendedores: TDataModuleVendedores
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
- DisplayLabel = 'C'#195#179'digo postal'
+ DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
+ item
+ Name = 'PAIS'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'IDIOMA_ISO'
+ DataType = datString
+ Size = 2
+ end
+ item
+ Name = 'IDIOMA'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'TELEFONO_1'
DataType = datString
@@ -92,7 +113,7 @@ inherited DataModuleVendedores: TDataModuleVendedores
Name = 'MOVIL_1'
DataType = datString
Size = 25
- DisplayLabel = 'M'#195#179'vil'
+ DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
@@ -188,8 +209,6 @@ inherited DataModuleVendedores: TDataModuleVendedores
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Vendedores'
IndexDefs = <>
Left = 392
diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dpk b/Source/Modulos/Contactos/Model/Contactos_model.dpk
index e7f53ff..7f7e0b2 100644
Binary files a/Source/Modulos/Contactos/Model/Contactos_model.dpk and b/Source/Modulos/Contactos/Model/Contactos_model.dpk differ
diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dproj b/Source/Modulos/Contactos/Model/Contactos_model.dproj
index 02af1aa..ba1e42b 100644
--- a/Source/Modulos/Contactos/Model/Contactos_model.dproj
+++ b/Source/Modulos/Contactos/Model/Contactos_model.dproj
@@ -50,19 +50,10 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
@@ -70,10 +61,17 @@
-
-
+
+
+
+
+
+
+
+
+
@@ -82,8 +80,11 @@
+
+
+