diff --git a/Source/Modulos/Articulos/Articulos_Group.groupproj b/Source/Modulos/Articulos/Articulos_Group.groupproj index 3f402ca4..85a972b6 100644 --- a/Source/Modulos/Articulos/Articulos_Group.groupproj +++ b/Source/Modulos/Articulos/Articulos_Group.groupproj @@ -8,7 +8,7 @@ - + @@ -48,6 +48,15 @@ + + + + + + + + + @@ -102,23 +111,14 @@ - - - - - - - - - - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm b/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm index edf41a27..b3d36c5c 100644 --- a/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm +++ b/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm @@ -54,6 +54,11 @@ inherited DataModuleArticulos: TDataModuleArticulos DisplayLabel = 'Descripci'#243'n' DictionaryEntry = 'Articulos_DESCRIPCION' end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'FAMILIA' DataType = datString @@ -178,6 +183,11 @@ inherited DataModuleArticulos: TDataModuleArticulos DataType = datString Size = 255 end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'FAMILIA' DataType = datString @@ -246,7 +256,7 @@ inherited DataModuleArticulos: TDataModuleArticulos Params = < item Name = 'ID_CLIENTE' - Value = '' + Value = '2' ParamType = daptInput end> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas index f23ea174..57ec9644 100644 --- a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas +++ b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas @@ -9,8 +9,8 @@ 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_Articulos = '{96B1BC75-3838-4481-8FAB-C5709E2A2B97}'; - RID_ArticulosParaCliente = '{1C488DD9-5F46-43A2-9440-617591319C59}'; + RID_Articulos = '{79461C02-C303-4849-B89B-1A86EB440B71}'; + RID_ArticulosParaCliente = '{79CE72E6-EEE0-4CD7-BF63-178D4CBAD3E7}'; { Data table names } nme_Articulos = 'Articulos'; @@ -21,6 +21,7 @@ const fld_ArticulosID_EMPRESA = 'ID_EMPRESA'; fld_ArticulosREFERENCIA = 'REFERENCIA'; fld_ArticulosDESCRIPCION = 'DESCRIPCION'; + fld_ArticulosUNIDAD_MEDIDA = 'UNIDAD_MEDIDA'; fld_ArticulosFAMILIA = 'FAMILIA'; fld_ArticulosIMAGEN = 'IMAGEN'; fld_ArticulosCOMISIONABLE = 'COMISIONABLE'; @@ -42,27 +43,29 @@ const idx_ArticulosID_EMPRESA = 1; idx_ArticulosREFERENCIA = 2; idx_ArticulosDESCRIPCION = 3; - idx_ArticulosFAMILIA = 4; - idx_ArticulosIMAGEN = 5; - idx_ArticulosCOMISIONABLE = 6; - idx_ArticulosFECHA_ALTA = 7; - idx_ArticulosFECHA_MODIFICACION = 8; - idx_ArticulosUSUARIO = 9; - idx_ArticulosREFERENCIA_PROV = 10; - idx_ArticulosPRECIO_COSTE = 11; - idx_ArticulosPRECIO_PORTE = 12; - idx_ArticulosDESCUENTO = 13; - idx_ArticulosPRECIO_NETO = 14; - idx_ArticulosINVENTARIABLE = 15; - idx_ArticulosID_PROVEEDOR = 16; - idx_ArticulosNOMBRE_PROVEEDOR = 17; - idx_ArticulosELIMINADO = 18; + idx_ArticulosUNIDAD_MEDIDA = 4; + idx_ArticulosFAMILIA = 5; + idx_ArticulosIMAGEN = 6; + idx_ArticulosCOMISIONABLE = 7; + idx_ArticulosFECHA_ALTA = 8; + idx_ArticulosFECHA_MODIFICACION = 9; + idx_ArticulosUSUARIO = 10; + idx_ArticulosREFERENCIA_PROV = 11; + idx_ArticulosPRECIO_COSTE = 12; + idx_ArticulosPRECIO_PORTE = 13; + idx_ArticulosDESCUENTO = 14; + idx_ArticulosPRECIO_NETO = 15; + idx_ArticulosINVENTARIABLE = 16; + idx_ArticulosID_PROVEEDOR = 17; + idx_ArticulosNOMBRE_PROVEEDOR = 18; + idx_ArticulosELIMINADO = 19; { ArticulosParaCliente fields } fld_ArticulosParaClienteID = 'ID'; fld_ArticulosParaClienteID_EMPRESA = 'ID_EMPRESA'; fld_ArticulosParaClienteREFERENCIA = 'REFERENCIA'; fld_ArticulosParaClienteDESCRIPCION = 'DESCRIPCION'; + fld_ArticulosParaClienteUNIDAD_MEDIDA = 'UNIDAD_MEDIDA'; fld_ArticulosParaClienteFAMILIA = 'FAMILIA'; fld_ArticulosParaClienteIMAGEN = 'IMAGEN'; fld_ArticulosParaClienteCOMISIONABLE = 'COMISIONABLE'; @@ -84,26 +87,27 @@ const idx_ArticulosParaClienteID_EMPRESA = 1; idx_ArticulosParaClienteREFERENCIA = 2; idx_ArticulosParaClienteDESCRIPCION = 3; - idx_ArticulosParaClienteFAMILIA = 4; - idx_ArticulosParaClienteIMAGEN = 5; - idx_ArticulosParaClienteCOMISIONABLE = 6; - idx_ArticulosParaClienteFECHA_ALTA = 7; - idx_ArticulosParaClienteFECHA_MODIFICACION = 8; - idx_ArticulosParaClienteUSUARIO = 9; - idx_ArticulosParaClienteREFERENCIA_PROV = 10; - idx_ArticulosParaClientePRECIO_COSTE = 11; - idx_ArticulosParaClientePRECIO_PORTE = 12; - idx_ArticulosParaClienteDESCUENTO = 13; - idx_ArticulosParaClientePRECIO_NETO = 14; - idx_ArticulosParaClienteINVENTARIABLE = 15; - idx_ArticulosParaClienteID_PROVEEDOR = 16; - idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 17; - idx_ArticulosParaClienteELIMINADO = 18; + idx_ArticulosParaClienteUNIDAD_MEDIDA = 4; + idx_ArticulosParaClienteFAMILIA = 5; + idx_ArticulosParaClienteIMAGEN = 6; + idx_ArticulosParaClienteCOMISIONABLE = 7; + idx_ArticulosParaClienteFECHA_ALTA = 8; + idx_ArticulosParaClienteFECHA_MODIFICACION = 9; + idx_ArticulosParaClienteUSUARIO = 10; + idx_ArticulosParaClienteREFERENCIA_PROV = 11; + idx_ArticulosParaClientePRECIO_COSTE = 12; + idx_ArticulosParaClientePRECIO_PORTE = 13; + idx_ArticulosParaClienteDESCUENTO = 14; + idx_ArticulosParaClientePRECIO_NETO = 15; + idx_ArticulosParaClienteINVENTARIABLE = 16; + idx_ArticulosParaClienteID_PROVEEDOR = 17; + idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 18; + idx_ArticulosParaClienteELIMINADO = 19; type { IArticulos } IArticulos = interface(IDAStronglyTypedDataTable) - ['{E4DF8395-5D03-4DF6-8828-6CC926D541A4}'] + ['{1F24EC6B-18D1-43B7-B276-6889F602834E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -121,6 +125,10 @@ type procedure SetDESCRIPCIONValue(const aValue: String); function GetDESCRIPCIONIsNull: Boolean; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); + function GetUNIDAD_MEDIDAValue: String; + procedure SetUNIDAD_MEDIDAValue(const aValue: String); + function GetUNIDAD_MEDIDAIsNull: Boolean; + procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); function GetFAMILIAValue: String; procedure SetFAMILIAValue(const aValue: String); function GetFAMILIAIsNull: Boolean; @@ -191,6 +199,8 @@ type property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; + property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property IMAGEN: IROStream read GetIMAGENValue; @@ -246,6 +256,10 @@ type procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONIsNull(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 GetFAMILIAValue: String; virtual; procedure SetFAMILIAValue(const aValue: String); virtual; function GetFAMILIAIsNull: Boolean; virtual; @@ -315,6 +329,8 @@ type property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; + property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property IMAGEN: IROStream read GetIMAGENValue; @@ -354,7 +370,7 @@ type { IArticulosParaCliente } IArticulosParaCliente = interface(IDAStronglyTypedDataTable) - ['{C30A8751-1293-43C0-AEE1-8E0C09A5671F}'] + ['{009C7FBB-A768-4BF4-9FB7-5CDB273A163C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -372,6 +388,10 @@ type procedure SetDESCRIPCIONValue(const aValue: String); function GetDESCRIPCIONIsNull: Boolean; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); + function GetUNIDAD_MEDIDAValue: String; + procedure SetUNIDAD_MEDIDAValue(const aValue: String); + function GetUNIDAD_MEDIDAIsNull: Boolean; + procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); function GetFAMILIAValue: String; procedure SetFAMILIAValue(const aValue: String); function GetFAMILIAIsNull: Boolean; @@ -442,6 +462,8 @@ type property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; + property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property IMAGEN: IROStream read GetIMAGENValue; @@ -497,6 +519,10 @@ type procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONIsNull(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 GetFAMILIAValue: String; virtual; procedure SetFAMILIAValue(const aValue: String); virtual; function GetFAMILIAIsNull: Boolean; virtual; @@ -566,6 +592,8 @@ type property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; + property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property IMAGEN: IROStream read GetIMAGENValue; @@ -713,6 +741,27 @@ begin DataTable.Fields[idx_ArticulosDESCRIPCION].AsVariant := Null; end; +function TArticulosDataTableRules.GetUNIDAD_MEDIDAValue: String; +begin + result := DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].AsString; +end; + +procedure TArticulosDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String); +begin + DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].AsString := aValue; +end; + +function TArticulosDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].IsNull; +end; + +procedure TArticulosDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosUNIDAD_MEDIDA].AsVariant := Null; +end; + function TArticulosDataTableRules.GetFAMILIAValue: String; begin result := DataTable.Fields[idx_ArticulosFAMILIA].AsString; @@ -1135,6 +1184,27 @@ begin DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].AsVariant := Null; end; +function TArticulosParaClienteDataTableRules.GetUNIDAD_MEDIDAValue: String; +begin + result := DataTable.Fields[idx_ArticulosParaClienteUNIDAD_MEDIDA].AsString; +end; + +procedure TArticulosParaClienteDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String); +begin + DataTable.Fields[idx_ArticulosParaClienteUNIDAD_MEDIDA].AsString := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteUNIDAD_MEDIDA].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteUNIDAD_MEDIDA].AsVariant := Null; +end; + function TArticulosParaClienteDataTableRules.GetFAMILIAValue: String; begin result := DataTable.Fields[idx_ArticulosParaClienteFAMILIA].AsString; diff --git a/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas index a3134983..6606e504 100644 --- a/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas +++ b/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas @@ -9,18 +9,19 @@ 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_ArticulosDelta = '{1EF85C21-66D6-4680-A910-2679A098D282}'; - RID_ArticulosParaClienteDelta = '{CE4D74E0-1868-4D88-9483-CED9CD6BC658}'; + RID_ArticulosDelta = '{C0937769-365F-4948-AE41-A6B3B28A4C51}'; + RID_ArticulosParaClienteDelta = '{D132BF20-DB8F-4A41-A479-9F31BABB1922}'; type { IArticulosDelta } IArticulosDelta = interface(IArticulos) - ['{1EF85C21-66D6-4680-A910-2679A098D282}'] + ['{C0937769-365F-4948-AE41-A6B3B28A4C51}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldDESCRIPCIONValue : String; + function GetOldUNIDAD_MEDIDAValue : String; function GetOldFAMILIAValue : String; function GetOldIMAGENValue : IROStream; function GetOldCOMISIONABLEValue : Integer; @@ -42,6 +43,7 @@ type property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue; property OldFAMILIA : String read GetOldFAMILIAValue; property OldIMAGEN : IROStream read GetOldIMAGENValue; property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue; @@ -90,6 +92,12 @@ type function GetOldDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONIsNull(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 GetFAMILIAValue: String; virtual; function GetFAMILIAIsNull: Boolean; virtual; function GetOldFAMILIAValue: String; virtual; @@ -197,6 +205,10 @@ type property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; + 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 FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property OldFAMILIA : String read GetOldFAMILIAValue; @@ -266,12 +278,13 @@ type { IArticulosParaClienteDelta } IArticulosParaClienteDelta = interface(IArticulosParaCliente) - ['{CE4D74E0-1868-4D88-9483-CED9CD6BC658}'] + ['{D132BF20-DB8F-4A41-A479-9F31BABB1922}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldDESCRIPCIONValue : String; + function GetOldUNIDAD_MEDIDAValue : String; function GetOldFAMILIAValue : String; function GetOldIMAGENValue : IROStream; function GetOldCOMISIONABLEValue : SmallInt; @@ -293,6 +306,7 @@ type property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue; property OldFAMILIA : String read GetOldFAMILIAValue; property OldIMAGEN : IROStream read GetOldIMAGENValue; property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue; @@ -341,6 +355,12 @@ type function GetOldDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONIsNull(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 GetFAMILIAValue: String; virtual; function GetFAMILIAIsNull: Boolean; virtual; function GetOldFAMILIAValue: String; virtual; @@ -448,6 +468,10 @@ type property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; + 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 FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property OldFAMILIA : String read GetOldFAMILIAValue; @@ -666,6 +690,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION] := Null; end; +function TArticulosBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA]; +end; + +function TArticulosBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA]); +end; + +function TArticulosBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUNIDAD_MEDIDA]; +end; + +function TArticulosBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUNIDAD_MEDIDA]); +end; + +procedure TArticulosBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA] := aValue; +end; + +procedure TArticulosBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA] := Null; +end; + function TArticulosBusinessProcessorRules.GetFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA]; @@ -1279,6 +1334,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION] := Null; end; +function TArticulosParaClienteBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUNIDAD_MEDIDA]; +end; + +function TArticulosParaClienteBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUNIDAD_MEDIDA]); +end; + +function TArticulosParaClienteBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteUNIDAD_MEDIDA]; +end; + +function TArticulosParaClienteBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteUNIDAD_MEDIDA]); +end; + +procedure TArticulosParaClienteBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUNIDAD_MEDIDA] := aValue; +end; + +procedure TArticulosParaClienteBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUNIDAD_MEDIDA] := Null; +end; + function TArticulosParaClienteBusinessProcessorRules.GetFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFAMILIA]; diff --git a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm index b2df3907..e48d5af6 100644 --- a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm +++ b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm @@ -204,6 +204,10 @@ object srvArticulos: TsrvArticulos item DatasetField = 'ELIMINADO' TableField = 'ELIMINADO' + end + item + DatasetField = 'UNIDAD_MEDIDA' + TableField = 'UNIDAD_MEDIDA' end> end> Name = 'Articulos' @@ -233,6 +237,11 @@ object srvArticulos: TsrvArticulos Size = 255 DictionaryEntry = 'Articulos_DESCRIPCION' end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'FAMILIA' DataType = datString @@ -316,7 +325,7 @@ object srvArticulos: TsrvArticulos Params = < item Name = 'ID_CLIENTE' - Value = '' + Value = '2' ParamType = daptInput end> Statements = < @@ -325,17 +334,18 @@ object srvArticulos: TsrvArticulos TargetTable = 'ARTICULOS' SQL = 'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' + - 'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FAMILIA, V_AR' + - 'TICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA' + - ','#10' V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' ' + - ' V_ARTICULOS.REFERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COST' + - 'E,'#10' V_ARTICULOS.PRECIO_PORTE,'#10' CLIENTES_DTOS_PROVEED' + - 'ORES.DESCUENTO,'#10' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTICUL' + - 'OS.INVENTARIABLE,'#10' V_ARTICULOS.ID_PROVEEDOR,'#10' V_ARTI' + - 'CULOS.NOMBRE_PROVEEDOR,'#10' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTI' + - 'CULOS'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DT' + - 'OS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLI' + - 'ENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'#10'where {where}'#10 + 'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.UNIDAD_MEDIDA' + + ','#10' V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS.CO' + + 'MISIONABLE, V_ARTICULOS.FECHA_ALTA,'#10' V_ARTICULOS.FECHA_MOD' + + 'IFICACION, V_ARTICULOS.USUARIO,'#10' V_ARTICULOS.REFERENCIA_PR' + + 'OV,'#10' V_ARTICULOS.PRECIO_COSTE,'#10' V_ARTICULOS.PRECIO_P' + + 'ORTE,'#10' CLIENTES_DTOS_PROVEEDORES.DESCUENTO,'#10' V_ARTIC' + + 'ULOS.PRECIO_NETO,'#10' V_ARTICULOS.INVENTARIABLE,'#10' V_ART' + + 'ICULOS.ID_PROVEEDOR,'#10' V_ARTICULOS.NOMBRE_PROVEEDOR,'#10' ' + + ' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTICULOS'#10'LEFT OUTER JOIN CLIENTES' + + '_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR = ' + + 'V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLIENTES_DTOS_PROVEEDORES.ID_CLIE' + + 'NTE = :ID_CLIENTE))'#10'where {where}'#10 StatementType = stSQL ColumnMappings = < item @@ -414,6 +424,10 @@ object srvArticulos: TsrvArticulos item DatasetField = 'ELIMINADO' TableField = 'ELIMINADO' + end + item + DatasetField = 'UNIDAD_MEDIDA' + TableField = 'UNIDAD_MEDIDA' end> end> Name = 'ArticulosParaCliente' @@ -437,6 +451,11 @@ object srvArticulos: TsrvArticulos DataType = datString Size = 255 end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'FAMILIA' DataType = datString @@ -510,8 +529,6 @@ object srvArticulos: TsrvArticulos Params = < item Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_ARTICULOS_ID' Value = '' end item @@ -526,6 +543,10 @@ object srvArticulos: TsrvArticulos Name = 'DESCRIPCION' Value = '' end + item + Name = 'UNIDAD_MEDIDA' + Value = '' + end item Name = 'FAMILIA' Value = '' @@ -588,14 +609,14 @@ object srvArticulos: TsrvArticulos TargetTable = 'ARTICULOS' SQL = 'INSERT'#10' INTO ARTICULOS'#10' (ID, ID_EMPRESA, REFERENCIA, DESCRIP' + - 'CION, FAMILIA, IMAGEN, '#10' COMISIONABLE, FECHA_ALTA, FECHA_MOD' + - 'IFICACION, USUARIO, '#10' PRECIO_COSTE, PRECIO_PORTE, DESCUENTO,' + - ' ID_PROVEEDOR, '#10' PRECIO_NETO, REFERENCIA_PROV, INVENTARIABLE' + - ', ELIMINADO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :DESCR' + - 'IPCION, :FAMILIA, '#10' :IMAGEN, :COMISIONABLE, :FECHA_ALTA, :FE' + - 'CHA_MODIFICACION, '#10' :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, ' + - ':DESCUENTO, '#10' :ID_PROVEEDOR, :PRECIO_NETO, :REFERENCIA_PROV,' + - #10' :INVENTARIABLE, :ELIMINADO)' + 'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_A' + + 'LTA, FECHA_MODIFICACION, USUARIO, '#10' PRECIO_COSTE, PRECIO_POR' + + 'TE, DESCUENTO, ID_PROVEEDOR, '#10' PRECIO_NETO, REFERENCIA_PROV,' + + ' INVENTARIABLE, ELIMINADO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFE' + + 'RENCIA, :DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10' :IMAGEN, :C' + + 'OMISIONABLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :' + + 'PRECIO_COSTE, :PRECIO_PORTE, :DESCUENTO, '#10' :ID_PROVEEDOR, :P' + + 'RECIO_NETO, :REFERENCIA_PROV,'#10' :INVENTARIABLE, :ELIMINADO)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -633,6 +654,10 @@ object srvArticulos: TsrvArticulos Name = 'DESCRIPCION' Value = '' end + item + Name = 'UNIDAD_MEDIDA' + Value = '' + end item Name = 'FAMILIA' Value = '' @@ -699,15 +724,15 @@ object srvArticulos: TsrvArticulos TargetTable = 'ARTICULOS' SQL = 'UPDATE ARTICULOS'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA,'#10' REFERE' + - 'NCIA = :REFERENCIA, '#10' DESCRIPCION = :DESCRIPCION, '#10' FAMILI' + - 'A = :FAMILIA, '#10' IMAGEN = :IMAGEN, '#10' COMISIONABLE = :COMISI' + - 'ONABLE, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION =' + - ' :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' PRECIO_COSTE' + - ' = :PRECIO_COSTE, '#10' PRECIO_PORTE = :PRECIO_PORTE, '#10' DESCUE' + - 'NTO = :DESCUENTO, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' PRECIO' + - '_NETO = :PRECIO_NETO,'#10' INVENTARIABLE = :INVENTARIABLE,'#10' RE' + - 'FERENCIA_PROV = :REFERENCIA_PROV,'#10' ELIMINADO = :ELIMINADO'#10' W' + - 'HERE'#10' (ID = :OLD_ID)'#10 + 'NCIA = :REFERENCIA, '#10' DESCRIPCION = :DESCRIPCION, '#10' UNIDAD' + + '_MEDIDA = :UNIDAD_MEDIDA,'#10' FAMILIA = :FAMILIA, '#10' IMAGEN = ' + + ':IMAGEN, '#10' COMISIONABLE = :COMISIONABLE, '#10' FECHA_ALTA = :F' + + 'ECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' U' + + 'SUARIO = :USUARIO, '#10' PRECIO_COSTE = :PRECIO_COSTE, '#10' PRECI' + + 'O_PORTE = :PRECIO_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' ID_PR' + + 'OVEEDOR = :ID_PROVEEDOR, '#10' PRECIO_NETO = :PRECIO_NETO,'#10' IN' + + 'VENTARIABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_' + + 'PROV,'#10' ELIMINADO = :ELIMINADO'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Articulos/Views/Articulos_view.dpk b/Source/Modulos/Articulos/Views/Articulos_view.dpk index 68d2370c..f6deb99e 100644 --- a/Source/Modulos/Articulos/Views/Articulos_view.dpk +++ b/Source/Modulos/Articulos/Views/Articulos_view.dpk @@ -29,6 +29,7 @@ requires Articulos_model, Articulos_controller, Familias_controller, + UnidadesMedida_controller, Contactos_view; contains diff --git a/Source/Modulos/Articulos/Views/Articulos_view.dproj b/Source/Modulos/Articulos/Views/Articulos_view.dproj index c3b541f2..d1560b90 100644 --- a/Source/Modulos/Articulos/Views/Articulos_view.dproj +++ b/Source/Modulos/Articulos/Views/Articulos_view.dproj @@ -42,55 +42,14 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - True - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - Articulos_view.dpk - - +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Articulos_view.dpk - + MainSource @@ -103,26 +62,31 @@
fEditorArticulo
+ TfEditorArticulo
fEditorArticulos
+ TfEditorArticulos
fEditorElegirArticulos
+ TfEditorElegirArticulos +
frViewArticulo
+ TFrame
frViewArticulos
+ TFrame
frViewDetallesArticulos
+ TFrame - -