diff --git a/Resources/Iconos/Inventario/24x24/Thumbs.db b/Resources/Iconos/Inventario/24x24/Thumbs.db index de5ae813..60fd9c8a 100644 Binary files a/Resources/Iconos/Inventario/24x24/Thumbs.db and b/Resources/Iconos/Inventario/24x24/Thumbs.db differ diff --git a/Source/Modulos/Historico de movimientos/Data/uDataModuleHistoricoMovimientos.dfm b/Source/Modulos/Historico de movimientos/Data/uDataModuleHistoricoMovimientos.dfm index 71428bd4..34db1a3a 100644 --- a/Source/Modulos/Historico de movimientos/Data/uDataModuleHistoricoMovimientos.dfm +++ b/Source/Modulos/Historico de movimientos/Data/uDataModuleHistoricoMovimientos.dfm @@ -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' diff --git a/Source/Modulos/Historico de movimientos/HistoricoMovimientos_Group.groupproj b/Source/Modulos/Historico de movimientos/HistoricoMovimientos_Group.groupproj index 8e85a000..73c411bd 100644 --- a/Source/Modulos/Historico de movimientos/HistoricoMovimientos_Group.groupproj +++ b/Source/Modulos/Historico de movimientos/HistoricoMovimientos_Group.groupproj @@ -8,6 +8,7 @@ + @@ -19,7 +20,7 @@ Default.Personality - + @@ -111,14 +112,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosClient_Intf.pas b/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosClient_Intf.pas index 33a17b70..c8d003ee 100644 --- a/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosClient_Intf.pas +++ b/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosClient_Intf.pas @@ -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; diff --git a/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosServer_Intf.pas b/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosServer_Intf.pas index 2ce16ff8..afa6f730 100644 --- a/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosServer_Intf.pas +++ b/Source/Modulos/Historico de movimientos/Model/schHistoricoMovimientosServer_Intf.pas @@ -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; diff --git a/Source/Modulos/Historico de movimientos/Plugin/uPluginHistoricoMovimientos.dfm b/Source/Modulos/Historico de movimientos/Plugin/uPluginHistoricoMovimientos.dfm index 74d9d834..20196b5b 100644 --- a/Source/Modulos/Historico de movimientos/Plugin/uPluginHistoricoMovimientos.dfm +++ b/Source/Modulos/Historico de movimientos/Plugin/uPluginHistoricoMovimientos.dfm @@ -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 diff --git a/Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.dfm b/Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.dfm index f6f85cf9..0245f6d1 100644 --- a/Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.dfm +++ b/Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.dfm @@ -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 diff --git a/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm b/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm index f9dcbb3f..140e40c9 100644 --- a/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm +++ b/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm @@ -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 diff --git a/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm b/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm index c8e87eb3..79d57b4b 100644 --- a/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm +++ b/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm @@ -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 diff --git a/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas b/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas index f3693949..542a0ab4 100644 --- a/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas +++ b/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas @@ -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; diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 1c20c5dc..ecb5b946 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -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}