Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

se activa historico de movimientos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@573 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-09-05 13:58:54 +00:00
parent e420a19a8c
commit f2f94ea7b3
11 changed files with 352 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Resources/Iconos/Inventario/24x24/Thumbs.db
View File

Binary file not shown.

20
Source/Modulos/Historico de movimientos/Data/uDataModuleHistoricoMovimientos.dfm
View File

@ -72,11 +72,25 @@ inherited DataModuleHistoricoMovimientos: TDataModuleHistoricoMovimientos
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_REFERENCIA'
end
item
Name = 'REFERENCIA_PROV'
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DisplayLabel = 'Ref. proveedor'
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_REFERENCIA_PROV'
DisplayLabel = 'Unidad de medida'
DictionaryEntry = 'HistoricoMovimientos_UNIDAD_MEDIDA'
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
DisplayLabel = 'Fabricante'
DictionaryEntry = 'HistoricoMovimientos_FABRICANTE'
end
item
Name = 'REFERENCIA_FABR'
DataType = datString
Size = 255
DisplayLabel = 'Ref. fabricante'
DictionaryEntry = 'HistoricoMovimientos_REFERENCIA_FABR'
end
item
Name = 'DESCRIPCION'

18
Source/Modulos/Historico de movimientos/HistoricoMovimientos_Group.groupproj
View File

@ -8,6 +8,7 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="Controller\HistoricoMovimientos_controller.dproj" />
<Projects Include="Data\HistoricoMovimientos_data.dproj" />
@ -19,7 +20,7 @@
<Borland.Personality>Default.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Target Name="Base">
<MSBuild Projects="..\..\Base\Base.dproj" Targets="" />
@ -111,14 +112,23 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesProveedor_view">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="" />
</Target>
<Target Name="AlbaranesProveedor_view:Clean">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesProveedor_view:Make">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;Contactos_view;HistoricoMovimientos_model;HistoricoMovimientos_data;HistoricoMovimientos_controller;HistoricoMovimientos_view;HistoricoMovimientos_plugin;FactuGES;FactuGES_Server" />
<CallTarget Targets="Base;GUIBase;Contactos_view;HistoricoMovimientos_model;HistoricoMovimientos_data;HistoricoMovimientos_controller;HistoricoMovimientos_view;HistoricoMovimientos_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;Contactos_view:Clean;HistoricoMovimientos_model:Clean;HistoricoMovimientos_data:Clean;HistoricoMovimientos_controller:Clean;HistoricoMovimientos_view:Clean;HistoricoMovimientos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;Contactos_view:Clean;HistoricoMovimientos_model:Clean;HistoricoMovimientos_data:Clean;HistoricoMovimientos_controller:Clean;HistoricoMovimientos_view:Clean;HistoricoMovimientos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;Contactos_view:Make;HistoricoMovimientos_model:Make;HistoricoMovimientos_data:Make;HistoricoMovimientos_controller:Make;HistoricoMovimientos_view:Make;HistoricoMovimientos_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;Contactos_view:Make;HistoricoMovimientos_model:Make;HistoricoMovimientos_data:Make;HistoricoMovimientos_controller:Make;HistoricoMovimientos_view:Make;HistoricoMovimientos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

130
Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosClient_Intf.pas
View File

@ -3,13 +3,13 @@ unit schHistoricoMovimientosClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, 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_HistoricoMovimientos = '{78F8AAD8-7791-4695-84E0-778DD741063E}';
RID_HistoricoMovimientos = '{612A1E7F-B9C3-498A-A41B-1494C47F5DAD}';
{ Data table names }
nme_HistoricoMovimientos = 'HistoricoMovimientos';
@ -22,7 +22,9 @@ const
fld_HistoricoMovimientosID_ARTICULO = 'ID_ARTICULO';
fld_HistoricoMovimientosFAMILIA = 'FAMILIA';
fld_HistoricoMovimientosREFERENCIA = 'REFERENCIA';
fld_HistoricoMovimientosREFERENCIA_PROV = 'REFERENCIA_PROV';
fld_HistoricoMovimientosUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
fld_HistoricoMovimientosFABRICANTE = 'FABRICANTE';
fld_HistoricoMovimientosREFERENCIA_FABR = 'REFERENCIA_FABR';
fld_HistoricoMovimientosDESCRIPCION = 'DESCRIPCION';
fld_HistoricoMovimientosTIPO_MOVIMIENTO = 'TIPO_MOVIMIENTO';
fld_HistoricoMovimientosCANTIDAD = 'CANTIDAD';
@ -36,16 +38,18 @@ const
idx_HistoricoMovimientosID_ARTICULO = 4;
idx_HistoricoMovimientosFAMILIA = 5;
idx_HistoricoMovimientosREFERENCIA = 6;
idx_HistoricoMovimientosREFERENCIA_PROV = 7;
idx_HistoricoMovimientosDESCRIPCION = 8;
idx_HistoricoMovimientosTIPO_MOVIMIENTO = 9;
idx_HistoricoMovimientosCANTIDAD = 10;
idx_HistoricoMovimientosCAUSA = 11;
idx_HistoricoMovimientosUNIDAD_MEDIDA = 7;
idx_HistoricoMovimientosFABRICANTE = 8;
idx_HistoricoMovimientosREFERENCIA_FABR = 9;
idx_HistoricoMovimientosDESCRIPCION = 10;
idx_HistoricoMovimientosTIPO_MOVIMIENTO = 11;
idx_HistoricoMovimientosCANTIDAD = 12;
idx_HistoricoMovimientosCAUSA = 13;
type
{ IHistoricoMovimientos }
IHistoricoMovimientos = interface(IDAStronglyTypedDataTable)
['{13452610-3745-4EF7-9F6D-224ACA695E83}']
['{AFB2228F-B55B-476F-9C1F-664A1DA2C27E}']
{ Property getters and setters }
function GetFECHAValue: DateTime;
procedure SetFECHAValue(const aValue: DateTime);
@ -75,10 +79,18 @@ type
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetREFERENCIA_PROVValue: String;
procedure SetREFERENCIA_PROVValue(const aValue: String);
function GetREFERENCIA_PROVIsNull: Boolean;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String;
procedure SetUNIDAD_MEDIDAValue(const aValue: String);
function GetUNIDAD_MEDIDAIsNull: Boolean;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
function GetFABRICANTEValue: String;
procedure SetFABRICANTEValue(const aValue: String);
function GetFABRICANTEIsNull: Boolean;
procedure SetFABRICANTEIsNull(const aValue: Boolean);
function GetREFERENCIA_FABRValue: String;
procedure SetREFERENCIA_FABRValue(const aValue: String);
function GetREFERENCIA_FABRIsNull: Boolean;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
@ -112,8 +124,12 @@ type
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property TIPO_MOVIMIENTO: String read GetTIPO_MOVIMIENTOValue write SetTIPO_MOVIMIENTOValue;
@ -125,7 +141,7 @@ type
end;
{ THistoricoMovimientosDataTableRules }
THistoricoMovimientosDataTableRules = class(TIntfObjectDADataTableRules, IHistoricoMovimientos)
THistoricoMovimientosDataTableRules = class(TDADataTableRules, IHistoricoMovimientos)
private
protected
{ Property getters and setters }
@ -157,10 +173,18 @@ type
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVValue: String; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
function GetREFERENCIA_PROVIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetFABRICANTEValue: String; virtual;
procedure SetFABRICANTEValue(const aValue: String); virtual;
function GetFABRICANTEIsNull: Boolean; virtual;
procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FABRValue: String; virtual;
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
function GetREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
@ -193,8 +217,12 @@ type
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property TIPO_MOVIMIENTO: String read GetTIPO_MOVIMIENTOValue write SetTIPO_MOVIMIENTOValue;
@ -372,25 +400,67 @@ begin
DataTable.Fields[idx_HistoricoMovimientosREFERENCIA].AsVariant := Null;
end;
function THistoricoMovimientosDataTableRules.GetREFERENCIA_PROVValue: String;
function THistoricoMovimientosDataTableRules.GetUNIDAD_MEDIDAValue: String;
begin
result := DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_PROV].AsString;
result := DataTable.Fields[idx_HistoricoMovimientosUNIDAD_MEDIDA].AsString;
end;
procedure THistoricoMovimientosDataTableRules.SetREFERENCIA_PROVValue(const aValue: String);
procedure THistoricoMovimientosDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_PROV].AsString := aValue;
DataTable.Fields[idx_HistoricoMovimientosUNIDAD_MEDIDA].AsString := aValue;
end;
function THistoricoMovimientosDataTableRules.GetREFERENCIA_PROVIsNull: boolean;
function THistoricoMovimientosDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
begin
result := DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_PROV].IsNull;
result := DataTable.Fields[idx_HistoricoMovimientosUNIDAD_MEDIDA].IsNull;
end;
procedure THistoricoMovimientosDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
procedure THistoricoMovimientosDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_PROV].AsVariant := Null;
DataTable.Fields[idx_HistoricoMovimientosUNIDAD_MEDIDA].AsVariant := Null;
end;
function THistoricoMovimientosDataTableRules.GetFABRICANTEValue: String;
begin
result := DataTable.Fields[idx_HistoricoMovimientosFABRICANTE].AsString;
end;
procedure THistoricoMovimientosDataTableRules.SetFABRICANTEValue(const aValue: String);
begin
DataTable.Fields[idx_HistoricoMovimientosFABRICANTE].AsString := aValue;
end;
function THistoricoMovimientosDataTableRules.GetFABRICANTEIsNull: boolean;
begin
result := DataTable.Fields[idx_HistoricoMovimientosFABRICANTE].IsNull;
end;
procedure THistoricoMovimientosDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_HistoricoMovimientosFABRICANTE].AsVariant := Null;
end;
function THistoricoMovimientosDataTableRules.GetREFERENCIA_FABRValue: String;
begin
result := DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_FABR].AsString;
end;
procedure THistoricoMovimientosDataTableRules.SetREFERENCIA_FABRValue(const aValue: String);
begin
DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_FABR].AsString := aValue;
end;
function THistoricoMovimientosDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
begin
result := DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_FABR].IsNull;
end;
procedure THistoricoMovimientosDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_HistoricoMovimientosREFERENCIA_FABR].AsVariant := Null;
end;
function THistoricoMovimientosDataTableRules.GetDESCRIPCIONValue: String;

138
Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosServer_Intf.pas
View File

@ -9,12 +9,12 @@ 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_HistoricoMovimientosDelta = '{3CD3F6E4-FEEA-4235-AA03-835172F2594A}';
RID_HistoricoMovimientosDelta = '{FDA16BD5-0E9F-4BB8-A13E-ABEB2EB044BB}';
type
{ IHistoricoMovimientosDelta }
IHistoricoMovimientosDelta = interface(IHistoricoMovimientos)
['{3CD3F6E4-FEEA-4235-AA03-835172F2594A}']
['{FDA16BD5-0E9F-4BB8-A13E-ABEB2EB044BB}']
{ Property getters and setters }
function GetOldFECHAValue : DateTime;
function GetOldID_ALMACENValue : Integer;
@ -23,7 +23,9 @@ type
function GetOldID_ARTICULOValue : Integer;
function GetOldFAMILIAValue : String;
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVValue : String;
function GetOldUNIDAD_MEDIDAValue : String;
function GetOldFABRICANTEValue : String;
function GetOldREFERENCIA_FABRValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldTIPO_MOVIMIENTOValue : String;
function GetOldCANTIDADValue : Integer;
@ -37,7 +39,9 @@ type
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldFABRICANTE : String read GetOldFABRICANTEValue;
property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldTIPO_MOVIMIENTO : String read GetOldTIPO_MOVIMIENTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
@ -91,12 +95,24 @@ type
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVValue: String; virtual;
function GetREFERENCIA_PROVIsNull: Boolean; virtual;
function GetOldREFERENCIA_PROVValue: String; virtual;
function GetOldREFERENCIA_PROVIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
function GetOldUNIDAD_MEDIDAValue: String; virtual;
function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetFABRICANTEValue: String; virtual;
function GetFABRICANTEIsNull: Boolean; virtual;
function GetOldFABRICANTEValue: String; virtual;
function GetOldFABRICANTEIsNull: Boolean; virtual;
procedure SetFABRICANTEValue(const aValue: String); virtual;
procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FABRValue: String; virtual;
function GetREFERENCIA_FABRIsNull: Boolean; virtual;
function GetOldREFERENCIA_FABRValue: String; virtual;
function GetOldREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
@ -151,10 +167,18 @@ type
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull;
property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull;
property FABRICANTE : String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull : Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property OldFABRICANTE : String read GetOldFABRICANTEValue;
property OldFABRICANTEIsNull : Boolean read GetOldFABRICANTEIsNull;
property REFERENCIA_FABR : String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
@ -411,35 +435,97 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA] := Null;
end;
function THistoricoMovimientosBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
function THistoricoMovimientosBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_PROV];
result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosUNIDAD_MEDIDA];
end;
function THistoricoMovimientosBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean;
function THistoricoMovimientosBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_PROV]);
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosUNIDAD_MEDIDA]);
end;
function THistoricoMovimientosBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
function THistoricoMovimientosBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosREFERENCIA_PROV];
result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosUNIDAD_MEDIDA];
end;
function THistoricoMovimientosBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean;
function THistoricoMovimientosBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosREFERENCIA_PROV]);
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosUNIDAD_MEDIDA]);
end;
procedure THistoricoMovimientosBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
procedure THistoricoMovimientosBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_PROV] := aValue;
BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosUNIDAD_MEDIDA] := aValue;
end;
procedure THistoricoMovimientosBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
procedure THistoricoMovimientosBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_PROV] := Null;
BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosUNIDAD_MEDIDA] := Null;
end;
function THistoricoMovimientosBusinessProcessorRules.GetFABRICANTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFABRICANTE];
end;
function THistoricoMovimientosBusinessProcessorRules.GetFABRICANTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFABRICANTE]);
end;
function THistoricoMovimientosBusinessProcessorRules.GetOldFABRICANTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosFABRICANTE];
end;
function THistoricoMovimientosBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosFABRICANTE]);
end;
procedure THistoricoMovimientosBusinessProcessorRules.SetFABRICANTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFABRICANTE] := aValue;
end;
procedure THistoricoMovimientosBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosFABRICANTE] := Null;
end;
function THistoricoMovimientosBusinessProcessorRules.GetREFERENCIA_FABRValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_FABR];
end;
function THistoricoMovimientosBusinessProcessorRules.GetREFERENCIA_FABRIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_FABR]);
end;
function THistoricoMovimientosBusinessProcessorRules.GetOldREFERENCIA_FABRValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosREFERENCIA_FABR];
end;
function THistoricoMovimientosBusinessProcessorRules.GetOldREFERENCIA_FABRIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_HistoricoMovimientosREFERENCIA_FABR]);
end;
procedure THistoricoMovimientosBusinessProcessorRules.SetREFERENCIA_FABRValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_FABR] := aValue;
end;
procedure THistoricoMovimientosBusinessProcessorRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_HistoricoMovimientosREFERENCIA_FABR] := Null;
end;
function THistoricoMovimientosBusinessProcessorRules.GetDESCRIPCIONValue: String;

1
Source/Modulos/Historico de movimientos/Plugin/uPluginHistoricoMovimientos.dfm
View File

@ -144,7 +144,6 @@ object PluginHistoricoMovimientos: TPluginHistoricoMovimientos
object actHistoricoMovimientos: TAction
Category = 'Log'#237'stica'
Caption = 'Hist'#243'rico de movimiento'
Enabled = False
ImageIndex = 0
OnExecute = actHistoricoMovimientosExecute
end

46
Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.dfm
View File

@ -65,8 +65,16 @@ object srvHistoricoMovimientos: TsrvHistoricoMovimientos
TableField = 'REFERENCIA'
end
item
DatasetField = 'REFERENCIA_PROV'
TableField = 'REFERENCIA_PROV'
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'FABRICANTE'
TableField = 'FABRICANTE'
end
item
DatasetField = 'REFERENCIA_FABR'
TableField = 'REFERENCIA_FABR'
end>
end>
Name = 'HistoricoMovimientos'
@ -113,10 +121,22 @@ object srvHistoricoMovimientos: TsrvHistoricoMovimientos
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_REFERENCIA'
end
item
Name = 'REFERENCIA_PROV'
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_REFERENCIA_PROV'
DictionaryEntry = 'HistoricoMovimientos_UNIDAD_MEDIDA'
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
DictionaryEntry = 'HistoricoMovimientos_FABRICANTE'
end
item
Name = 'REFERENCIA_FABR'
DataType = datString
Size = 255
DictionaryEntry = 'HistoricoMovimientos_REFERENCIA_FABR'
end
item
Name = 'DESCRIPCION'
@ -219,6 +239,24 @@ object srvHistoricoMovimientos: TsrvHistoricoMovimientos
DataType = datString
Size = 255
DisplayLabel = 'Ref. proveedor'
end
item
Name = 'HistoricoMovimientos_UNIDAD_MEDIDA'
DataType = datString
Size = 255
DisplayLabel = 'Unidad de medida'
end
item
Name = 'HistoricoMovimientos_FABRICANTE'
DataType = datString
Size = 255
DisplayLabel = 'Fabricante'
end
item
Name = 'HistoricoMovimientos_REFERENCIA_FABR'
DataType = datString
Size = 255
DisplayLabel = 'Ref. fabricante'
end>
Left = 166
Top = 22

24
Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
ClientHeight = 620
ClientWidth = 902
ExplicitWidth = 910
ExplicitHeight = 647
ExplicitHeight = 654
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -137,7 +137,7 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
Width = 902
ExplicitWidth = 902
inherited tbxMain: TTBXToolbar
ExplicitWidth = 358
ExplicitWidth = 501
end
inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 269
@ -224,15 +224,23 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 553
Left = 225
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 553
ExplicitLeft = 225
ExplicitWidth = 121
Width = 121
end
inherited eLista: TcxComboBox
Left = 383
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 383
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 902
@ -263,6 +271,14 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
BuiltInReportLink = True
end
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
GridView = frViewHistoricoMovimientos1.cxGridView
HitTypes = [gvhtCell]
Index = 0
end>
end
end
inherited EditorActionList: TActionList [4]
Left = 88

46
Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm
View File

@ -40,14 +40,15 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
Properties.Items = <
item
Description = 'Entrada'
ImageIndex = 1
ImageIndex = 2
Value = 'Entrada'
end
item
Description = 'Salida'
ImageIndex = 2
ImageIndex = 3
Value = 'Salida'
end>
Properties.LargeImages = GridPNGImageList
end
object cxGridViewFAMILIA: TcxGridDBColumn
Caption = 'Familia'
@ -56,12 +57,18 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA'
end
object cxGridViewREFERENCIA_PROV: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA_PROV'
end
object cxGridViewDESCRIPCION: TcxGridDBColumn
DataBinding.FieldName = 'DESCRIPCION'
end
object cxGridViewFABRICANTE: TcxGridDBColumn
DataBinding.FieldName = 'FABRICANTE'
end
object cxGridViewREFERENCIA_FABR: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA_FABR'
end
object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
DataBinding.FieldName = 'UNIDAD_MEDIDA'
end
object cxGridViewCANTIDAD: TcxGridDBColumn
DataBinding.FieldName = 'CANTIDAD'
PropertiesClassName = 'TcxSpinEditProperties'
@ -95,6 +102,8 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 510
Width = 510
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
@ -108,6 +117,14 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited eLista: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 215
Width = 215
end
end
end
end
@ -230,6 +247,25 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
Name = 'Icono_header'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD2520000015D4944415478DA
63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0
3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060
24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298
E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0
60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161
10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319
1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5
BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068
06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2
E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41
00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500
00000049454E44AE426082}
Name = 'PngImage3'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF

4
Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas
View File

@ -37,10 +37,12 @@ type
cxGridViewID_ALMACEN: TcxGridDBColumn;
cxGridViewFECHA: TcxGridDBColumn;
cxGridViewCANTIDAD: TcxGridDBColumn;
cxGridViewREFERENCIA_PROV: TcxGridDBColumn;
cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
cxGridViewTIPO_MOVIMIENTO: TcxGridDBColumn;
cxGridViewCAUSA: TcxGridDBColumn;
cxStyleSalida: TcxStyle;
cxGridViewFABRICANTE: TcxGridDBColumn;
cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -64,8 +64,6 @@ uses
srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDataAbstractService},
srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: TDataAbstractService},
srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDataAbstractService},
schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas',
schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas',
uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule},
uBizRemesasClienteServer in '..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas',
uBizRemesasProveedorServer in '..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas',
@ -129,7 +127,9 @@ uses
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas';
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas',
schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}