diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 0b9211bc..3e318998 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -1244,7 +1244,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE ( RECARGO_EQUIVALENCIA TIPO_BOOLEANO, RE TIPO_PORCENTAJE, IMPORTE_RE TIPO_IMPORTE, - ID_CONTRATO TIPO_ID + ID_CONTRATO TIPO_ID , + NO_VALORADO TIPO_BOOLEANO ); CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES ( @@ -3635,7 +3636,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE( ID_VENDEDOR, VENDEDOR, ID_CONTRATO, - REF_CONTRATO) + REF_CONTRATO, + NO_VALORADO) AS SELECT PRESUPUESTOS_CLIENTE.ID, @@ -3677,7 +3679,8 @@ SELECT PRESUPUESTOS_CLIENTE.ID_VENDEDOR, CONTACTOS2.NOMBRE AS VENDEDOR, PRESUPUESTOS_CLIENTE.ID_CONTRATO, - CONTRATOS_CLIENTE.REFERENCIA + CONTRATOS_CLIENTE.REFERENCIA, + PRESUPUESTOS_CLIENTE.NO_VALORADO FROM PRESUPUESTOS_CLIENTE diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index 28783a40..a2fc16c9 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,34 +58,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/uEditorDBItem.dfm b/Source/GUIBase/uEditorDBItem.dfm index e20006f4..15294aa7 100644 --- a/Source/GUIBase/uEditorDBItem.dfm +++ b/Source/GUIBase/uEditorDBItem.dfm @@ -85,6 +85,10 @@ inherited fEditorDBItem: TfEditorDBItem TabOrder = 2 object pagGeneral: TTabSheet Caption = 'General' + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 end end object PnlComentario: TPanel [4] @@ -103,14 +107,12 @@ inherited fEditorDBItem: TfEditorDBItem AlignWithMargins = True Left = 6 Top = 4 - Width = 640 - Height = 25 + Width = 55 + Height = 13 Margins.Left = 5 Align = alClient Caption = 'Comentario' WordWrap = True - ExplicitWidth = 55 - ExplicitHeight = 13 end end inherited EditorActionList: TActionList diff --git a/Source/Informes/InfPresupuestoCliente.fr3 b/Source/Informes/InfPresupuestoCliente.fr3 index e96dc03d..05314f03 100644 --- a/Source/Informes/InfPresupuestoCliente.fr3 +++ b/Source/Informes/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -14,19 +14,19 @@ - + - + - + @@ -34,7 +34,7 @@ - + @@ -54,11 +54,12 @@ + - + - + diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm index f84d58cb..a2a69b94 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm @@ -244,6 +244,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente Name = 'REF_CONTRATO' DataType = datString Size = 255 + end + item + Name = 'NO_VALORADO' + DataType = datSmallInt end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas index ecc54b2d..a862e05b 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas @@ -3,18 +3,18 @@ unit schPresupuestosClienteClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_Valores = '{8F678C89-C84C-491D-88A8-3FA8AA200B7B}'; - RID_Propiedades = '{CB86B7AA-E200-4D33-9831-736BBCCD1145}'; - RID_ListaAnosPresupuestos = '{953D58F9-E500-46FB-A447-9E4FDB1653E5}'; - RID_PresupuestosCliente = '{CAB2C1BC-02C2-4740-BC0E-C80FC7CA0D43}'; - RID_CapitulosPresupuesto = '{7BF1E379-4B80-487C-AD64-9DC12F8E4293}'; - RID_PresupuestosCliente_Detalles = '{51C04670-8D87-4DFA-8D34-2E8CC96C11AA}'; + RID_Valores = '{8A248C45-9A96-4FD6-8BF5-F5DD87468FB0}'; + RID_Propiedades = '{62BED4E0-B77C-4391-AC72-1330D1BDDF91}'; + RID_ListaAnosPresupuestos = '{18983DA7-37EA-4FE3-9B68-494C2FEDAC97}'; + RID_PresupuestosCliente = '{B2A0846C-F3BD-4FE6-A1EB-66480B11C8AE}'; + RID_CapitulosPresupuesto = '{CF0AEF82-06DB-47B4-80B2-004C9807E6CA}'; + RID_PresupuestosCliente_Detalles = '{4A1E8272-F885-46E3-A4C9-DD07E86A2A49}'; { Data table names } nme_Valores = 'Valores'; @@ -90,6 +90,7 @@ const fld_PresupuestosClienteVENDEDOR = 'VENDEDOR'; fld_PresupuestosClienteID_CONTRATO = 'ID_CONTRATO'; fld_PresupuestosClienteREF_CONTRATO = 'REF_CONTRATO'; + fld_PresupuestosClienteNO_VALORADO = 'NO_VALORADO'; { PresupuestosCliente field indexes } idx_PresupuestosClienteID = 0; @@ -131,6 +132,7 @@ const idx_PresupuestosClienteVENDEDOR = 36; idx_PresupuestosClienteID_CONTRATO = 37; idx_PresupuestosClienteREF_CONTRATO = 38; + idx_PresupuestosClienteNO_VALORADO = 39; { CapitulosPresupuesto fields } fld_CapitulosPresupuestoID = 'ID'; @@ -185,7 +187,7 @@ const type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{97D666A4-0354-4F3D-8A26-AE1C181A52D0}'] + ['{FD357A67-C729-46D0-A93B-092D32EF7BD9}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -211,7 +213,7 @@ type end; { TValoresDataTableRules } - TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores) + TValoresDataTableRules = class(TDADataTableRules, IValores) private protected { Property getters and setters } @@ -244,7 +246,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{3238E30E-57F0-4C9C-8951-66CCCC70EB77}'] + ['{55925E9A-70DD-4907-9775-D84ED9DDDC6E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -270,7 +272,7 @@ type end; { TPropiedadesDataTableRules } - TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades) + TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades) private protected { Property getters and setters } @@ -303,7 +305,7 @@ type { IListaAnosPresupuestos } IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) - ['{6AFE2837-CEC0-4DBC-B594-53220DD34736}'] + ['{D0535709-D00F-4249-9347-0DC816C84FA6}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -317,7 +319,7 @@ type end; { TListaAnosPresupuestosDataTableRules } - TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos) + TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos) private protected { Property getters and setters } @@ -338,7 +340,7 @@ type { IPresupuestosCliente } IPresupuestosCliente = interface(IDAStronglyTypedDataTable) - ['{6A36C4B0-590E-4B26-8142-7699225805F6}'] + ['{32E7F691-CD44-4414-B5CF-F20AE6652BBC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -492,6 +494,10 @@ type procedure SetREF_CONTRATOValue(const aValue: String); function GetREF_CONTRATOIsNull: Boolean; procedure SetREF_CONTRATOIsNull(const aValue: Boolean); + function GetNO_VALORADOValue: SmallInt; + procedure SetNO_VALORADOValue(const aValue: SmallInt); + function GetNO_VALORADOIsNull: Boolean; + procedure SetNO_VALORADOIsNull(const aValue: Boolean); { Properties } @@ -573,10 +579,12 @@ type property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull; property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue; property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull; + property NO_VALORADO: SmallInt read GetNO_VALORADOValue write SetNO_VALORADOValue; + property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull; end; { TPresupuestosClienteDataTableRules } - TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente) + TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente) private f_FORMA_PAGO: IROStrings; f_PLAZO_ENTREGA: IROStrings; @@ -740,6 +748,10 @@ type procedure SetREF_CONTRATOValue(const aValue: String); virtual; function GetREF_CONTRATOIsNull: Boolean; virtual; procedure SetREF_CONTRATOIsNull(const aValue: Boolean); virtual; + function GetNO_VALORADOValue: SmallInt; virtual; + procedure SetNO_VALORADOValue(const aValue: SmallInt); virtual; + function GetNO_VALORADOIsNull: Boolean; virtual; + procedure SetNO_VALORADOIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -820,6 +832,8 @@ type property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull; property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue; property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull; + property NO_VALORADO: SmallInt read GetNO_VALORADOValue write SetNO_VALORADOValue; + property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -829,7 +843,7 @@ type { ICapitulosPresupuesto } ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable) - ['{27538BB0-5AAB-4F43-B48F-7B2E90A73045}'] + ['{35FC48F2-F977-48FE-A35F-249F1DC30A17}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -873,7 +887,7 @@ type end; { TCapitulosPresupuestoDataTableRules } - TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto) + TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto) private protected { Property getters and setters } @@ -924,7 +938,7 @@ type { IPresupuestosCliente_Detalles } IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{A5BF3AF5-328E-4F20-8716-0B3844EF7FB5}'] + ['{7825A33D-23E9-4C85-BF64-35EE17100CE7}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1022,7 +1036,7 @@ type end; { TPresupuestosCliente_DetallesDataTableRules } - TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles) + TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles) private protected { Property getters and setters } @@ -2164,6 +2178,27 @@ begin DataTable.Fields[idx_PresupuestosClienteREF_CONTRATO].AsVariant := Null; end; +function TPresupuestosClienteDataTableRules.GetNO_VALORADOValue: SmallInt; +begin + result := DataTable.Fields[idx_PresupuestosClienteNO_VALORADO].AsSmallInt; +end; + +procedure TPresupuestosClienteDataTableRules.SetNO_VALORADOValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_PresupuestosClienteNO_VALORADO].AsSmallInt := aValue; +end; + +function TPresupuestosClienteDataTableRules.GetNO_VALORADOIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosClienteNO_VALORADO].IsNull; +end; + +procedure TPresupuestosClienteDataTableRules.SetNO_VALORADOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosClienteNO_VALORADO].AsVariant := Null; +end; + { TCapitulosPresupuestoDataTableRules } constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas index 94a7f91e..10eddb34 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas @@ -9,17 +9,17 @@ 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_ValoresDelta = '{3304418B-9CEC-4A8E-B46C-B11D0D8F7FB2}'; - RID_PropiedadesDelta = '{48FC4878-0972-4697-A1C1-41764D19B4AF}'; - RID_ListaAnosPresupuestosDelta = '{F5D7132D-0FCF-47CE-867B-8BA530302FAC}'; - RID_PresupuestosClienteDelta = '{7D8F5258-4284-4AA6-BFE7-C03DF174BCC8}'; - RID_CapitulosPresupuestoDelta = '{9EA18AF5-5763-4D4D-A195-9152C1058813}'; - RID_PresupuestosCliente_DetallesDelta = '{639409C3-40C2-4E80-B232-CC22EBA51DDE}'; + RID_ValoresDelta = '{AA9644B7-EC9A-4EA2-8298-3CBC27486E70}'; + RID_PropiedadesDelta = '{0EE5CE01-3C2D-4773-AD08-35637A0B76B9}'; + RID_ListaAnosPresupuestosDelta = '{2FDFADE5-C92C-417B-AB90-536690A1FAB5}'; + RID_PresupuestosClienteDelta = '{2E46BBAA-A0AD-4649-BA55-DF504B40D213}'; + RID_CapitulosPresupuestoDelta = '{F15B79D8-0929-4D08-9E3F-3F4FBB9EBD5B}'; + RID_PresupuestosCliente_DetallesDelta = '{0D7528AC-6393-4480-868F-8D6CA59F06F4}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{3304418B-9CEC-4A8E-B46C-B11D0D8F7FB2}'] + ['{AA9644B7-EC9A-4EA2-8298-3CBC27486E70}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PROPIEDADValue : Integer; @@ -77,7 +77,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{48FC4878-0972-4697-A1C1-41764D19B4AF}'] + ['{0EE5CE01-3C2D-4773-AD08-35637A0B76B9}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -135,7 +135,7 @@ type { IListaAnosPresupuestosDelta } IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) - ['{F5D7132D-0FCF-47CE-867B-8BA530302FAC}'] + ['{2FDFADE5-C92C-417B-AB90-536690A1FAB5}'] { Property getters and setters } function GetOldANOValue : String; @@ -169,7 +169,7 @@ type { IPresupuestosClienteDelta } IPresupuestosClienteDelta = interface(IPresupuestosCliente) - ['{7D8F5258-4284-4AA6-BFE7-C03DF174BCC8}'] + ['{2E46BBAA-A0AD-4649-BA55-DF504B40D213}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -210,6 +210,7 @@ type function GetOldVENDEDORValue : String; function GetOldID_CONTRATOValue : Integer; function GetOldREF_CONTRATOValue : String; + function GetOldNO_VALORADOValue : SmallInt; { Properties } property OldID : Integer read GetOldIDValue; @@ -251,6 +252,7 @@ type property OldVENDEDOR : String read GetOldVENDEDORValue; property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue; property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue; + property OldNO_VALORADO : SmallInt read GetOldNO_VALORADOValue; end; { TPresupuestosClienteBusinessProcessorRules } @@ -496,6 +498,12 @@ type function GetOldREF_CONTRATOIsNull: Boolean; virtual; procedure SetREF_CONTRATOValue(const aValue: String); virtual; procedure SetREF_CONTRATOIsNull(const aValue: Boolean); virtual; + function GetNO_VALORADOValue: SmallInt; virtual; + function GetNO_VALORADOIsNull: Boolean; virtual; + function GetOldNO_VALORADOValue: SmallInt; virtual; + function GetOldNO_VALORADOIsNull: Boolean; virtual; + procedure SetNO_VALORADOValue(const aValue: SmallInt); virtual; + procedure SetNO_VALORADOIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -654,6 +662,10 @@ type property REF_CONTRATOIsNull : Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull; property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue; property OldREF_CONTRATOIsNull : Boolean read GetOldREF_CONTRATOIsNull; + property NO_VALORADO : SmallInt read GetNO_VALORADOValue write SetNO_VALORADOValue; + property NO_VALORADOIsNull : Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull; + property OldNO_VALORADO : SmallInt read GetOldNO_VALORADOValue; + property OldNO_VALORADOIsNull : Boolean read GetOldNO_VALORADOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -663,7 +675,7 @@ type { ICapitulosPresupuestoDelta } ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto) - ['{9EA18AF5-5763-4D4D-A195-9152C1058813}'] + ['{F15B79D8-0929-4D08-9E3F-3F4FBB9EBD5B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -757,7 +769,7 @@ type { IPresupuestosCliente_DetallesDelta } IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) - ['{639409C3-40C2-4E80-B232-CC22EBA51DDE}'] + ['{0D7528AC-6393-4480-868F-8D6CA59F06F4}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PRESUPUESTOValue : Integer; @@ -2461,6 +2473,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREF_CONTRATO] := Null; end; +function TPresupuestosClienteBusinessProcessorRules.GetNO_VALORADOValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNO_VALORADO]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetNO_VALORADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNO_VALORADO]); +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldNO_VALORADOValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteNO_VALORADO]; +end; + +function TPresupuestosClienteBusinessProcessorRules.GetOldNO_VALORADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteNO_VALORADO]); +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetNO_VALORADOValue(const aValue: SmallInt); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNO_VALORADO] := aValue; +end; + +procedure TPresupuestosClienteBusinessProcessorRules.SetNO_VALORADOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNO_VALORADO] := Null; +end; + { TCapitulosPresupuestoBusinessProcessorRules } constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas index 5ad87794..88e2a4c2 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas @@ -265,7 +265,8 @@ begin FECHA_PRESUPUESTO := DateOf(Date); FECHA_VIGENCIA := IncMonth(Date, AppFactuGES.EmpresaActiva.VALIDEZ_PRESUPUESTOS); - + + NO_VALORADO := 0; INCIDENCIAS_ACTIVAS := 0; RE := 0; REFERENCIA := ''; diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm index 7815a6b7..6d622be3 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm @@ -217,21 +217,20 @@ object RptPresupuestosCliente: TRptPresupuestosCliente 'ESTOS_CLIENTE.IVA,'#10' V_PRESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS' + '_CLIENTE.IMPORTE_RE,'#10' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10' ' + 'V_PRESUPUESTOS_CLIENTE.NIF_CIF, CONTACTOS.REFERENCIA as REF_CLIE' + - 'NTE,'#10' V_PRESUPUESTOS_CLIENTE.NOMBRE,'#10' V_PRESUPUESTOS_CLIEN' + - 'TE.IMPORTE_IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALES' + - 'CE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' C' + - 'OALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS' + - ' POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTAC' + - 'TOS.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.' + - 'CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' CO' + - 'ALESCE(CONTACTOS_DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS ' + - 'TELEFONO,'#10' COALESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MO' + - 'VIL_1) AS MOVIL,'#10#10' V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' ' + - ' V_PRESUPUESTOS_CLIENTE.VENDEDOR'#10'FROM'#10' V_PRESUPUESTOS_CLIEN' + - 'TE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CL' + - 'IENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (' + - 'CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10 + - 'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID = :ID'#10 + 'NTE,'#10' V_PRESUPUESTOS_CLIENTE.NOMBRE, CONTACTOS.TELEFONO_1, CO' + + 'NTACTOS.MOVIL_1,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V_PRESU' + + 'PUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALESCE(CONTACTOS_DIRECCIONE' + + 'S.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIREC' + + 'CIONES.POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESC' + + 'E(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVI' + + 'NCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTO' + + 'S.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' V_PRESUPUESTOS_CLIENTE.PE' + + 'RSONA_CONTACTO,'#10' V_PRESUPUESTOS_CLIENTE.VENDEDOR, V_PRESUPUES' + + 'TOS_CLIENTE.NO_VALORADO'#10'FROM'#10' V_PRESUPUESTOS_CLIENTE'#10' INNE' + + 'R JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CL' + + 'IENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_D' + + 'IRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' V' + + '_PRESUPUESTOS_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -351,12 +350,16 @@ object RptPresupuestosCliente: TRptPresupuestosCliente TableField = 'VENDEDOR' end item - DatasetField = 'TELEFONO' - TableField = 'TELEFONO' + DatasetField = 'TELEFONO_1' + TableField = 'TELEFONO_1' end item - DatasetField = 'MOVIL' - TableField = 'MOVIL' + DatasetField = 'MOVIL_1' + TableField = 'MOVIL_1' + end + item + DatasetField = 'NO_VALORADO' + TableField = 'NO_VALORADO' end> end> Name = 'Informe_Cabecera' @@ -451,6 +454,16 @@ object RptPresupuestosCliente: TRptPresupuestosCliente DataType = datString Size = 255 end + item + Name = 'TELEFONO_1' + DataType = datString + Size = 25 + end + item + Name = 'MOVIL_1' + DataType = datString + Size = 25 + end item Name = 'IMPORTE_IVA' DataType = datCurrency @@ -479,16 +492,6 @@ object RptPresupuestosCliente: TRptPresupuestosCliente DataType = datString Size = 10 end - item - Name = 'TELEFONO' - DataType = datString - Size = 25 - end - item - Name = 'MOVIL' - DataType = datString - Size = 25 - end item Name = 'PERSONA_CONTACTO' DataType = datString @@ -498,6 +501,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente Name = 'VENDEDOR' DataType = datString Size = 255 + end + item + Name = 'NO_VALORADO' + DataType = datSmallInt end> ReadOnly = True end @@ -859,7 +866,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 40141.433941921300000000 + ReportOptions.LastChange = 40122.745990115700000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False @@ -1024,6 +1031,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente Name = 'VENDEDOR' DataType = datString Size = 255 + end + item + Name = 'NO_VALORADO' + DataType = datSmallInt end> Params = < item diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm index f1aa63f9..106dbef2 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm +++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm @@ -291,6 +291,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item DatasetField = 'REF_CONTRATO' TableField = 'REF_CONTRATO' + end + item + DatasetField = 'NO_VALORADO' + TableField = 'NO_VALORADO' end> end> Name = 'PresupuestosCliente' @@ -488,6 +492,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'REF_CONTRATO' DataType = datString Size = 255 + end + item + Name = 'NO_VALORADO' + DataType = datSmallInt end> end item @@ -879,6 +887,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'ID_CONTRATO' DataType = datInteger Value = '' + end + item + Name = 'NO_VALORADO' + DataType = datSmallInt + Value = '' end> Statements = < item @@ -893,16 +906,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente ', FECHA_ALTA, USUARIO, IMPORTE_NETO, IMPORTE_PORTE,'#10' DESCUEN' + 'TO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' + '_IVA,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, IMPORTE_TOTAL, ' + - 'ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10' ID_CONTRATO)'#10' VALUE' + - 'S'#10' (:ID,'#10' :FECHA_PRESUPUESTO, :FECHA_VIGENCIA, :FECHA_DEC' + - 'ISION, :REFERENCIA,'#10' :SITUACION, :ID_CLIENTE, :ID_DIRECCION,' + - ' :PERSONA_CONTACTO,'#10' :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACI' + - 'ONES, :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP' + - ', :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMP' + - 'ORTE_DESCUENTO, :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IV' + - 'A,'#10' :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL,' + - ' :ID_FORMA_PAGO, :ID_TIENDA, :ID_VENDEDOR,'#10' :ID_CONTRATO)'#10' ' + - ' '#10#10#10#10#10 + 'ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10' ID_CONTRATO, NO_VALO' + + 'RADO)'#10' VALUES'#10' (:ID,'#10' :FECHA_PRESUPUESTO, :FECHA_VIGENCI' + + 'A, :FECHA_DECISION, :REFERENCIA,'#10' :SITUACION, :ID_CLIENTE, :' + + 'ID_DIRECCION, :PERSONA_CONTACTO,'#10' :FORMA_PAGO, :PLAZO_ENTREG' + + 'A, :OBSERVACIONES, :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, CURR' + + 'ENT_TIMESTAMP, :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DE' + + 'SCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA' + + ', :IMPORTE_IVA,'#10' :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA, :I' + + 'MPORTE_TOTAL, :ID_FORMA_PAGO, :ID_TIENDA, :ID_VENDEDOR,'#10' :ID' + + '_CONTRATO, :NO_VALORADO)'#10' '#10#10#10#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -1074,6 +1087,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DataType = datInteger Value = '' end + item + Name = 'NO_VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'OLD_ID' Value = '' @@ -1099,8 +1117,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente 'IBLE, '#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IVA = :IVA, '#10' IMPO' + 'RTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' + ' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_TIENDA,'#10' ' + - ' ID_VENDEDOR = :ID_VENDEDOR,'#10' ID_CONTRATO = :ID_CONTRATO'#10' W' + - 'HERE'#10' (ID = :OLD_ID)'#10#10 + ' ID_VENDEDOR = :ID_VENDEDOR,'#10' ID_CONTRATO = :ID_CONTRATO,'#10' ' + + ' NO_VALORADO = :NO_VALORADO'#10' WHERE'#10' (ID = :OLD_ID)'#10#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk index 1abeaa2d..1d95a3c0 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk +++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk @@ -47,7 +47,9 @@ requires vcljpg, dxLayoutControlD11, dxComnD11, - PreCli_ConCli_relation; + PreCli_ConCli_relation, + dxCoreD11, + vclx; contains uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas', @@ -64,6 +66,7 @@ contains uViewDocumentosPresupuestoCliente in 'uViewDocumentosPresupuestoCliente.pas' {frViewDocumentosPresupuestoCliente: TFrame}, uViewDatosYSeleccionClientePresupuesto in 'uViewDatosYSeleccionClientePresupuesto.pas' {frViewDatosYSeleccionClientePresupuesto: TFrame}, uEditorAsignarDescuento in 'uEditorAsignarDescuento.pas' {fEditorAsignarDescuento}, - uEditorFechaDecisionPresupuesto in 'uEditorFechaDecisionPresupuesto.pas' {fEditorFechaDecisionPresupuesto}; + uEditorFechaDecisionPresupuesto in 'uEditorFechaDecisionPresupuesto.pas' {fEditorFechaDecisionPresupuesto}, + uViewTotalesPresupuesto in 'uViewTotalesPresupuesto.pas' {frViewTotalesPresupuesto: TFrame}; end. diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj index 8b751eb6..8db7b839 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj +++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj @@ -49,29 +49,27 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + +
fEditorAsignarDescuento
 @@ -127,6 +125,14 @@
frViewPresupuestosCliente
TFrame + +
frViewTotalesPresupuesto
+ TFrame + + + + +