diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339f..8b251f31 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 8799ffbd..6ecbd7a9 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -51,8 +51,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2460FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.4.6.0FactuGESFactuGES2.4.6.0 - +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2470FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.4.7.0FactuGESFactuGES2.4.7.0 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index e0be7cce..d9993713 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,4,6,0 -PRODUCTVERSION 2,4,6,0 +FILEVERSION 2,4,7,0 +PRODUCTVERSION 2,4,7,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.4.6.0\0" + VALUE "FileVersion", "2.4.7.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "2.4.6.0\0" + VALUE "ProductVersion", "2.4.7.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 67a95d45..17e37214 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index e1b15b8e..8f59b689 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,34 +58,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res index 1641339f..8b251f31 100644 Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ diff --git a/Source/Modulos/Articulos/Data/Articulos_data.RES b/Source/Modulos/Articulos/Data/Articulos_data.RES index 1641339f..8b251f31 100644 Binary files a/Source/Modulos/Articulos/Data/Articulos_data.RES and b/Source/Modulos/Articulos/Data/Articulos_data.RES differ diff --git a/Source/Modulos/Articulos/Model/Articulos_model.RES b/Source/Modulos/Articulos/Model/Articulos_model.RES index 1641339f..8b251f31 100644 Binary files a/Source/Modulos/Articulos/Model/Articulos_model.RES and b/Source/Modulos/Articulos/Model/Articulos_model.RES differ diff --git a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas index c829ea7c..315fda80 100644 --- a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas +++ b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas @@ -3,7 +3,7 @@ unit schArticulosClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids @@ -234,7 +234,7 @@ type end; { TArticulosDataTableRules } - TArticulosDataTableRules = class(TDADataTableRules, IArticulos) + TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos) private f_IMAGEN: IROStream; procedure IMAGEN_OnChange(Sender: TObject); @@ -497,7 +497,7 @@ type end; { TArticulosParaClienteDataTableRules } - TArticulosParaClienteDataTableRules = class(TDADataTableRules, IArticulosParaCliente) + TArticulosParaClienteDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCliente) private f_IMAGEN: IROStream; procedure IMAGEN_OnChange(Sender: TObject); diff --git a/Source/Modulos/Articulos/Views/Articulos_view.RES b/Source/Modulos/Articulos/Views/Articulos_view.RES index 1641339f..8b251f31 100644 Binary files a/Source/Modulos/Articulos/Views/Articulos_view.RES and b/Source/Modulos/Articulos/Views/Articulos_view.RES differ diff --git a/Source/Modulos/Articulos/Views/Articulos_view.dproj b/Source/Modulos/Articulos/Views/Articulos_view.dproj index acac828b..8eb5a69e 100644 --- a/Source/Modulos/Articulos/Views/Articulos_view.dproj +++ b/Source/Modulos/Articulos/Views/Articulos_view.dproj @@ -54,11 +54,11 @@ MainSource - - - - - + + + + +
fEditorArticulo
diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas index 704f8470..d47eb4eb 100644 --- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas +++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas @@ -11,7 +11,7 @@ uses uIntegerListUtils; type - TEnumTiposContrato = (teCocina, teArmario, teBano, teElectrodomestico, teVarios); + TEnumTiposContrato = (teCocina, teArmario, teBano, teElectrodomestico, teObra, teVarios); IContratosClienteController = interface(IControllerBase) ['{D6544299-A233-4FF0-BDA4-328DA06DCFD8}'] @@ -771,6 +771,14 @@ begin AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, AContrato.Detalles); end; + teObra: + begin + AContrato.TIPO_CONTRATO := CTE_OBRA; + AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_OBRA)); + AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA)); + AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA)); + (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, AContrato.Detalles); + end; teVarios: begin AContrato.TIPO_CONTRATO := CTE_VARIOS; diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm index 95ce7a5e..08da6859 100644 --- a/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm @@ -145,6 +145,10 @@ inherited fEditorContratosCliente: TfEditorContratosCliente Caption = 'Contrato de electrodom'#233'stico' OnClick = bElectrodomesticoClick end + object bObra: TTBXItem + Caption = 'Contrato de obra' + OnClick = bObraClick + end object bVarios: TTBXItem Caption = 'Contrato de varios' OnClick = bVariosClick diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas b/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas index b3b9fc66..0419dd46 100644 --- a/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas @@ -43,6 +43,7 @@ type actListadoBeneficios: TAction; TBXItem42: TTBXItem; TBXSubmenuItem3: TTBXSubmenuItem; + bObra: TTBXItem; procedure FormShow(Sender: TObject); procedure actGenerarAlbaranCliExecute(Sender: TObject); procedure actEliminarUpdate(Sender: TObject); @@ -64,6 +65,7 @@ type procedure bBanoClick(Sender: TObject); procedure bElectrodomesticoClick(Sender: TObject); procedure bVariosClick(Sender: TObject); + procedure bObraClick(Sender: TObject); protected FContratos: IBizContratoCliente; @@ -358,6 +360,13 @@ begin FController.Ver(Contratos); end; +procedure TfEditorContratosCliente.bObraClick(Sender: TObject); +begin + inherited; + if FController.Anadir(Contratos, teObra) then + FController.Ver(Contratos); +end; + procedure TfEditorContratosCliente.bVariosClick(Sender: TObject); begin inherited; diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorElegirArticulosContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uEditorElegirArticulosContratoCliente.pas index d46e88b0..48e898b8 100644 --- a/Source/Modulos/Contratos de cliente/Views/uEditorElegirArticulosContratoCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uEditorElegirArticulosContratoCliente.pas @@ -15,7 +15,7 @@ uses type TfEditorElegirArticulosContratoCliente = class(TfEditorElegirArticulos, IEditorElegirArticulosContratosCliente) public - constructor Create(AOwner: TComponent); override; + procedure AsignarVista; override; end; @@ -26,9 +26,10 @@ uses uViewElegirArticulosContratosCliente; { TfEditorElegirArticulosPedidoCliente } -constructor TfEditorElegirArticulosContratoCliente.Create(AOwner: TComponent); +{ TfEditorElegirArticulosContratoCliente } + +procedure TfEditorElegirArticulosContratoCliente.AsignarVista; begin - inherited; ViewGrid := CreateView(TfrViewElegirArticulosContratosCliente) as IViewElegirArticulosContratosCliente; end; diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm index 71cc05e1..72b5da66 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm @@ -118,7 +118,6 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente end inherited TBXDock1: TTBXDock inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 451 object TBXSubmenuItem1: TTBXSubmenuItem [0] Caption = 'A'#241'adir cap'#237'tulo' DisplayMode = nbdmImageAndText @@ -146,6 +145,9 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente Action = actCapituloElectrodomesticos Caption = 'Cap'#237'tulo de electrodom'#233'sticos' end + object TBXItem22: TTBXItem + Action = actCapituloObra + end object TBXItem20: TTBXItem Action = actCapituloVarios end @@ -249,6 +251,11 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente Caption = 'Capitulo de importes' OnExecute = actCapituloImportesExecute end + object actCapituloObra: TAction + Category = 'Operaciones' + Caption = 'Cap'#237'tulo de obra' + OnExecute = actCapituloObraExecute + end end inherited cxStyleRepository: TcxStyleRepository inherited cxStyle_IMPORTETOTAL: TcxStyle diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas index 5cf42b7c..6ca6790e 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas @@ -55,6 +55,8 @@ type actCapituloImportes: TAction; TBXSeparatorItem11: TTBXSeparatorItem; TBXItem21: TTBXItem; + actCapituloObra: TAction; + TBXItem22: TTBXItem; procedure actAsignarDescuentoExecute(Sender: TObject); procedure actAsignarDescuentoUpdate(Sender: TObject); procedure CustomViewShow(Sender: TObject); @@ -70,6 +72,7 @@ type procedure actCapituloImportesExecute(Sender: TObject); procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); + procedure actCapituloObraExecute(Sender: TObject); private procedure AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean = false); @@ -189,6 +192,12 @@ begin AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES '); end; +procedure TfrViewDetallesContratoCliente.actCapituloObraExecute( + Sender: TObject); +begin + AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA '); +end; + procedure TfrViewDetallesContratoCliente.actCapituloVariosExecute(Sender: TObject); begin AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS '); diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm index 40fd4f81..ad37ff3a 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm @@ -16,4 +16,15 @@ inherited frViewDetallesFacturaProveedor: TfrViewDetallesFacturaProveedor end end end + inherited TBXDock1: TTBXDock + inherited TBXToolbar1: TTBXToolbar + ExplicitWidth = 447 + end + end + inherited ActionListContenido: TActionList + inherited actAnadirArticulos: TAction + Enabled = False + Visible = False + end + end end diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 96c94b43..a4f11036 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -15,6 +15,7 @@ const CTE_BANO = 'Baño'; CTE_ARMARIO = 'Armarios'; CTE_ELECTRODOMESTICO = 'Electrodomésticos'; + CTE_OBRA = 'Obra'; CTE_VARIOS = 'Varios'; @@ -43,8 +44,13 @@ const CTE_OBSERVACIONES_VARIOS = 'OBSERVACIONES_VARIOS'; CTE_CONDICIONES_VARIOS = 'CONDICIONES_VARIOS'; + CTE_FORMA_PAGO_OBRA = 'FORMA_PAGO_OBRA'; + CTE_PLAZOS_ENTREGA_OBRA = 'PLAZOS_ENTREGA_OBRA'; + CTE_OBSERVACIONES_OBRA = 'OBSERVACIONES_OBRA'; + CTE_CONDICIONES_OBRA = 'CONDICIONES_OBRA'; + type - TEnumTiposPresupuesto = (teCocina, teArmario, teBano, teElectrodomestico, teVarios); + TEnumTiposPresupuesto = (teCocina, teArmario, teBano, teElectrodomestico, teObra, teVarios); IPresupuestosClienteController = interface(IControllerBase) ['{21ED0332-F0E0-468D-8D53-8CA362757191}'] @@ -919,6 +925,14 @@ begin APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO)); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, APresupuesto.Detalles); end; + teObra: + begin + APresupuesto.TIPO_PRESUPUESTO := CTE_OBRA; + APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_OBRA)); + APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA)); + APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA)); + (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, APresupuesto.Detalles); + end; teVarios: begin APresupuesto.TIPO_PRESUPUESTO := CTE_VARIOS; diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas index e5e71490..6574c952 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas @@ -16,6 +16,7 @@ const TIPO_CAPITULO_B = 'B'; //BAÑO TIPO_CAPITULO_C = 'C'; //COCINA TIPO_CAPITULO_E = 'E'; //ELECTRODOMÉSTICOS + TIPO_CAPITULO_O = 'O'; //OBRA TIPO_CAPITULO_V = 'V'; //VARIOS TIPO_CAPITULO_C_VACIO = 'CV'; //COCINAVACIO diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk index b10dbc7c..30e26158 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk +++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk @@ -75,6 +75,7 @@ contains uViewConfiguracionDocBano in 'uViewConfiguracionDocBano.pas' {frViewConfiguracionDocBano: TFrame}, uViewConfiguracionDocCocina in 'uViewConfiguracionDocCocina.pas' {frViewConfiguracionDocCocina: TFrame}, uViewConfiguracionDocElectrodomestico in 'uViewConfiguracionDocElectrodomestico.pas' {frViewConfiguracionDocElectrodomestico: TFrame}, - uViewConfiguracionDocVarios in 'uViewConfiguracionDocVarios.pas' {frViewConfiguracionDocVarios: TFrame}; + uViewConfiguracionDocVarios in 'uViewConfiguracionDocVarios.pas' {frViewConfiguracionDocVarios: TFrame}, + uViewConfiguracionDocObra in 'uViewConfiguracionDocObra.pas' {frViewConfiguracionDocObra: 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 ba38bcb1..78ceda42 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj +++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj @@ -101,7 +101,7 @@ -
frViewPresupuestoCliente
+
frViewConfiguracionDocArmario
TFrame @@ -116,6 +116,10 @@
frViewConfiguracionDocElectrodomestico
TFrame + +
frViewConfiguracionDocObr
+ TFrame +
frViewConfiguracionDocVarios
TFrame diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm index c39e81b6..a25f91b4 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm @@ -145,6 +145,10 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente Caption = 'Presupuesto de electrodom'#233'stico' OnClick = bElectrodomesticoClick end + object bObra: TTBXItem + Caption = 'Presupuesto de obra' + OnClick = bObraClick + end object bVarios: TTBXItem Caption = 'Presupuesto de varios' OnClick = bVariosClick diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas index b940bc5a..fe326de9 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas @@ -53,6 +53,7 @@ type bBano: TTBXItem; bArmario: TTBXItem; bCocina: TTBXItem; + bObra: TTBXItem; procedure FormShow(Sender: TObject); procedure actGenerarAlbaranCliExecute(Sender: TObject); procedure actEliminarUpdate(Sender: TObject); @@ -72,6 +73,7 @@ type procedure bBanoClick(Sender: TObject); procedure bElectrodomesticoClick(Sender: TObject); procedure bVariosClick(Sender: TObject); + procedure bObraClick(Sender: TObject); protected FPresupuestos: IBizPresupuestoCliente; @@ -308,6 +310,13 @@ begin FController.Ver(Presupuestos); end; +procedure TfEditorPresupuestosCliente.bObraClick(Sender: TObject); +begin + inherited; + if FController.Anadir(Presupuestos, teObra) then + FController.Ver(Presupuestos); +end; + procedure TfEditorPresupuestosCliente.bVariosClick(Sender: TObject); begin inherited; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uPresupuestosClienteViewRegister.pas b/Source/Modulos/Presupuestos de cliente/Views/uPresupuestosClienteViewRegister.pas index ebc9c50d..6eac3a4f 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uPresupuestosClienteViewRegister.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uPresupuestosClienteViewRegister.pas @@ -10,7 +10,7 @@ implementation uses uViewConfiguracionRegistryUtils, uViewConfiguracionDocCocina, uViewConfiguracionDocArmario, uViewConfiguracionDocBano, - uViewConfiguracionDocElectrodomestico, uViewConfiguracionDocVarios, + uViewConfiguracionDocElectrodomestico, uViewConfiguracionDocVarios, uViewConfiguracionDocObra, uEditorRegistryUtils, uEditorPresupuestosCliente, uEditorPresupuestoCliente, uEditorElegirPresupuestosCliente, uEditorElegirArticulosPresupuestoCliente, uEditorPresupuestosClienteReport, uEditorAsignarDescuento; @@ -28,6 +28,7 @@ begin ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionDocBano, 'Documento Baño'); ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionDocElectrodomestico, 'Documento Electrodoméstico'); ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionDocVarios, 'Documento Varios'); + ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionDocObra, 'Documento Obra'); end; procedure UnregisterViews; @@ -44,6 +45,7 @@ begin ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionDocBano); ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionDocElectrodomestico); ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionDocVarios); + ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionDocObra); end; end. diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.dfm new file mode 100644 index 00000000..5d2a693c --- /dev/null +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.dfm @@ -0,0 +1,79 @@ +inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra + Width = 759 + Height = 564 + object Label1: TLabel [0] + Left = 11 + Top = 79 + Width = 76 + Height = 13 + Caption = 'Forma de pago:' + end + object Label2: TLabel [1] + Left = 11 + Top = 204 + Width = 90 + Height = 13 + Caption = 'Plazos de entrega:' + end + object Label4: TLabel [2] + Left = 11 + Top = 326 + Width = 75 + Height = 13 + Caption = 'Observaciones:' + end + inherited Panel1: TPanel + Width = 749 + TabOrder = 2 + ExplicitWidth = 530 + inherited Label3: TLabel + Width = 737 + end + end + inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel + Width = 759 + LabelCaption = 'Configuraci'#243'n de los documentos de obra' + ExplicitWidth = 540 + end + object eCondiciones: TcxRichEdit + Left = 11 + Top = 448 + Properties.ScrollBars = ssVertical + Lines.Strings = ( + 'eCondiciones') + TabOrder = 0 + Visible = False + Height = 57 + Width = 529 + end + object ePlazosEntrega: TMemo + Left = 11 + Top = 225 + Width = 529 + Height = 90 + Ctl3D = True + ParentCtl3D = False + ScrollBars = ssVertical + TabOrder = 3 + end + object eFormaPago: TMemo + Left = 11 + Top = 100 + Width = 529 + Height = 90 + Ctl3D = True + ParentCtl3D = False + ScrollBars = ssVertical + TabOrder = 4 + end + object eObservaciones: TMemo + Left = 11 + Top = 346 + Width = 529 + Height = 90 + Ctl3D = True + ParentCtl3D = False + ScrollBars = ssVertical + TabOrder = 5 + end +end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.pas new file mode 100644 index 00000000..c900dd50 --- /dev/null +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.pas @@ -0,0 +1,68 @@ +unit uViewConfiguracionDocObra; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, + cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls; + +type + TfrViewConfiguracionDocObra = class(TfrViewConfiguracionBase) + eCondiciones: TcxRichEdit; + ePlazosEntrega: TMemo; + eFormaPago: TMemo; + eObservaciones: TMemo; + Label1: TLabel; + Label2: TLabel; + Label4: TLabel; + public + class function GetViewClass : TClass; override; + class function DarEtiqueta : String; override; + procedure CargarValores; override; + procedure GuardarValores; override; + end; + +var + frViewConfiguracionDocObra: TfrViewConfiguracionDocObra; + +implementation +{$R *.dfm} +{ TfrViewConfiguracionDocOBRA } + +uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController; + +procedure TfrViewConfiguracionDocObra.CargarValores; +begin + inherited; + eFormaPago.Lines.Clear; + eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_OBRA); + ePlazosEntrega.Lines.Clear; + ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_OBRA); + eObservaciones.Lines.Clear; + eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_OBRA); + eCondiciones.Lines.Clear; + eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_OBRA); +end; + +class function TfrViewConfiguracionDocObra.DarEtiqueta: String; +begin + Result := 'Documentos obra'; +end; + +class function TfrViewConfiguracionDocObra.GetViewClass: TClass; +begin + Result := TfrViewConfiguracionDocOBRA; +end; + +procedure TfrViewConfiguracionDocObra.GuardarValores; +begin + inherited; + AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_OBRA, eFormaPago.Text); + AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA, ePlazosEntrega.Text); + AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA, eObservaciones.Text); + AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_OBRA, eCondiciones.Text); +end; + + +end. diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.dfm index 23a45855..679dfdea 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.dfm @@ -1,6 +1,6 @@ inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios - Width = 551 - Height = 448 + Width = 913 + Height = 669 object Label1: TLabel [0] Left = 11 Top = 79 @@ -23,15 +23,15 @@ inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios Caption = 'Observaciones:' end inherited Panel1: TPanel - Width = 541 + Width = 903 TabOrder = 2 ExplicitWidth = 530 inherited Label3: TLabel - Width = 529 + Width = 891 end end inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel - Width = 551 + Width = 913 LabelCaption = 'Configuraci'#243'n de los documentos de varios' ExplicitWidth = 540 end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm index 44126a60..784e5be7 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm @@ -123,7 +123,6 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente inherited TBXDock1: TTBXDock inherited TBXToolbar1: TTBXToolbar DockPos = 0 - ExplicitWidth = 451 object TBXSubmenuItem1: TTBXSubmenuItem [0] Caption = 'A'#241'adir cap'#237'tulo' DisplayMode = nbdmImageAndText @@ -151,6 +150,9 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente Action = actCapituloElectrodomesticos Caption = 'Cap'#237'tulo de electrodom'#233'sticos' end + object TBXItem22: TTBXItem + Action = actCapituloObra + end object TBXItem20: TTBXItem Action = actCapituloVarios end @@ -254,6 +256,11 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente Caption = 'Capitulo de importes' OnExecute = actCapituloImportesExecute end + object actCapituloObra: TAction + Category = 'Operaciones' + Caption = 'Cap'#237'tulo de obra' + OnExecute = actCapituloObraExecute + end end inherited cxStyleRepository: TcxStyleRepository inherited cxStyle_IMPORTETOTAL: TcxStyle diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas index 8d249b03..e6d375d4 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas @@ -55,6 +55,8 @@ type actCapituloImportes: TAction; TBXSeparatorItem11: TTBXSeparatorItem; TBXItem21: TTBXItem; + TBXItem22: TTBXItem; + actCapituloObra: TAction; procedure actAsignarDescuentoExecute(Sender: TObject); procedure actAsignarDescuentoUpdate(Sender: TObject); procedure CustomViewShow(Sender: TObject); @@ -70,6 +72,7 @@ type procedure actCapituloImportesExecute(Sender: TObject); procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); + procedure actCapituloObraExecute(Sender: TObject); private procedure AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean = false); @@ -188,6 +191,12 @@ begin AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES '); end; +procedure TfrViewDetallesPresupuestoCliente.actCapituloObraExecute( + Sender: TObject); +begin + AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA '); +end; + procedure TfrViewDetallesPresupuestoCliente.actCapituloVariosExecute(Sender: TObject); begin AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS '); diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index f02e295e..e15e4bf9 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,301 +1,294 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - - - Delphi.Personality - - -FalseTrueFalseTrueFalse2450FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.4.5.0FactuGES (Servidor)2.4.6.0lunes, 11 de octubre de 2010 10:56 - - - - - - - - File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found - FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEjercicios
- TDataAbstractService - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones
- TRORemoteDataModule - - - - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - -
RptComisiones
- TDataModule - - -
srvComisiones
- TDataAbstractService - - - - - -
srvContabilidad
- TDataAbstractService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
srvContactos
- TDARemoteService - - - - - -
RptContratosCliente
- - -
srvContratosCliente
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + + + Delphi.Personality + + + FalseTrueFalseTrueFalse2470FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.4.7.0FactuGES (Servidor)2.4.7.0jueves, 26 de abril de 2012 12:06 + File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found + FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEjercicios
+ TDataAbstractService + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones
+ TRORemoteDataModule + + + + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + +
RptComisiones
+ TDataModule + + +
srvComisiones
+ TDataAbstractService + + + + + +
srvContabilidad
+ TDataAbstractService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + + +
RptContratosCliente
+ + +
srvContratosCliente
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +