diff --git a/Database/scripts/factuges_sysdata.sql b/Database/scripts/factuges_sysdata.sql index 77cefb7..9933ca1 100644 --- a/Database/scripts/factuges_sysdata.sql +++ b/Database/scripts/factuges_sysdata.sql @@ -8,20 +8,6 @@ INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (3, 'EMPLEADO'); SET GENERATOR GEN_CATEGORIAS_ID TO 4; COMMIT WORK; -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (1, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por artículo', 'Informe de ventas por artículo', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (2, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por cliente', 'Informe de ventas por cliente y artículo', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (3, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por agente y cliente', 'Informe de ventas por agente y cliente', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (4, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por artículo', 'Informe de margen por artículo teniendo en cuenta el precio neto de venta promedio', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (5, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por proveedor', 'Informe de ventas por proveedor y artículo', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (6, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por cliente', 'Informe de margen por artículo agrupado por cliente teniendo en cuenta el precio neto de venta promedio', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (7, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por agente y cliente', 'Informe de margen por artículo agrupado por agente y cliente teniendo en cuenta el precio neto de venta promedio', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (8, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult. venta) por artículo', 'Informe de margen por artículo teniendo en cuenta el precio neto de última venta', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (9, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult.venta) por clientes', 'Informe de margen por artículo agrupado por cliente teniendo en cuenta el precio neto de última venta', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (10, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult. venta) por agente y cliente', 'Informe de margen por artículo agrupado por agente y cliente teniendo en cuenta el precio neto de última venta', NULL, 'S'); -SET GENERATOR GEN_INFORMES_ID TO 11; -COMMIT WORK; - - INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (1, 1, 'REF_FACTURAS_CLIENTE', 'FAC08/000001', 'Ref. facturas de cliente'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (2, 1, 'REF_PEDIDOS_PROVEEDOR', 'PED08/000001', 'Ref. pedidos de proveedor'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (3, NULL, 'REF_ALBARANES_CLIENTE', 'ALB08/000001', 'Ref. albaranes de cliente'); @@ -99,8 +85,9 @@ INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 24; COMMIT WORK; -INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL) VALUES (1, '', 'NOVISEDA S.L.', 'NOVISEDA S.L.', '-', '-', '-', '-', '-', NULL, NULL, NULL, '-', NULL, NULL, NULL, NULL, NULL, NULL, 'Insc. en el Reg. Merc. de -, Tomo -, Libro 0, Folio -, Sección -, Hoja M- CIF: -'); -INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL) VALUES (2, '', 'PRUEBAS - NOVISEDA S.L.', 'PRUEBAS - NOVISEDA S.L.', '-', '-', '-', '-', '-', NULL, NULL, NULL, '-', NULL, NULL, NULL, NULL, NULL, NULL, 'Insc. en el Reg. Merc. de -, Tomo -, Libro 0, Folio -, Sección -, Hoja M- CIF: -'); +INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, PARAM_TIEMPO, PARAM_MARGEN, ID_TIPO_IVA, ID_FORMA_PAGO) VALUES (1, 'B-81150278', 'NOVISEDA S.L.', 'NOVISEDA S.L.', 'C/ San Alejandro, 10', 'Madrid', 'Madrid', '28005', '91 364 22 06', NULL, NULL, NULL, '91 365 53 54', 'noviseda@fedecon.es', NULL, NULL, NULL, NULL, 'Administrador', 'Reg. Merc. de Madrid, Tomo 9.450, Libro 0, Folio 1, Sección 8ª, Hoja M-151873. Inscripción 1ª CIF: B-81150278', NULL, NULL, NULL, NULL); +INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, PARAM_TIEMPO, PARAM_MARGEN, ID_TIPO_IVA, ID_FORMA_PAGO) VALUES (2, 'B-81159278', 'PRUEBAS - NOVISEDA S.L.', 'PRUEBAS - NOVISEDA S.L.', 'C/ San Alejandro, 10', 'Madrid', 'Madrid', '28005', '91 364 22 06', NULL, '', NULL, '91 365 53 54', 'noviseda@fedecon.es', NULL, NULL, NULL, NULL, 'Administrador', 'Reg. Merc. de Madrid, Tomo 9.450, Libro 0, Folio 1, Sección 8ª, Hoja M-151873. Inscripción 1ª CIF: B-81150278', NULL, NULL, NULL, NULL); + SET GENERATOR GEN_EMPRESAS_ID TO 3; COMMIT WORK; diff --git a/Resources/Logotipos/logo.jpg b/Resources/Logotipos/logo.jpg new file mode 100644 index 0000000..7c85516 Binary files /dev/null and b/Resources/Logotipos/logo.jpg differ diff --git a/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm b/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm index d432a4a..4babb22 100644 --- a/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm +++ b/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm @@ -326,8 +326,6 @@ inherited fEditorEmpresa: TfEditorEmpresa StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 165 - ExplicitWidth = 202 - Width = 202 end inherited cbTipoIVA: TcxComboBox Top = 138 @@ -336,8 +334,6 @@ inherited fEditorEmpresa: TfEditorEmpresa StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 138 - ExplicitWidth = 202 - Width = 202 end end end @@ -371,6 +367,18 @@ inherited fEditorEmpresa: TfEditorEmpresa inherited ToolBar1: TToolBar Width = 660 ExplicitWidth = 660 + inherited ToolButton1: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 113 + end end end end diff --git a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm index cf5b535..9215ae1 100644 --- a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm +++ b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm @@ -23,6 +23,7 @@ inherited frViewEmpresa: TfrViewEmpresa Width = 23 Height = 22 Action = actEliminar + Enabled = False PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] end object PngSpeedButton2: TPngSpeedButton @@ -31,6 +32,7 @@ inherited frViewEmpresa: TfrViewEmpresa Width = 23 Height = 22 Action = actAnadir + Enabled = False PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] end object eCalle: TcxDBTextEdit @@ -148,6 +150,7 @@ inherited frViewEmpresa: TfrViewEmpresa Top = 388 DataBinding.DataField = 'NOTAS' DataBinding.DataSource = DADataSource + Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.LookAndFeel.Kind = lfStandard @@ -329,6 +332,7 @@ inherited frViewEmpresa: TfrViewEmpresa Top = 277 DataBinding.DataField = 'LOGOTIPO' DataBinding.DataSource = DADataSource + Enabled = False Properties.Stretch = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D @@ -350,6 +354,7 @@ inherited frViewEmpresa: TfrViewEmpresa Top = 220 DataBinding.DataField = 'PARAM_MARGEN' DataBinding.DataSource = DADataSource + Enabled = False Properties.OnValidate = eParamMargenPropertiesValidate Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D @@ -375,6 +380,7 @@ inherited frViewEmpresa: TfrViewEmpresa Top = 220 DataBinding.DataField = 'PARAM_TIEMPO' DataBinding.DataSource = DADataSource + Enabled = False Properties.Alignment.Horz = taRightJustify Properties.OnValidate = eParamTiempoPropertiesValidate Style.BorderColor = clWindowFrame @@ -551,6 +557,8 @@ inherited frViewEmpresa: TfrViewEmpresa end object dxLayoutControl1Group13: TdxLayoutGroup Caption = 'Datos cat'#225'logo art'#237'culos' + Enabled = False + Visible = False LayoutDirection = ldHorizontal object dxLayoutControl1Item18: TdxLayoutItem Caption = 'Margen de venta:' @@ -609,6 +617,8 @@ inherited frViewEmpresa: TfrViewEmpresa AlignHorz = ahClient AlignVert = avClient Caption = 'Observaciones' + Enabled = False + Visible = False object dxLayoutControl1Item8: TdxLayoutItem AutoAligns = [aaHorizontal] AlignVert = avClient @@ -674,6 +684,7 @@ inherited frViewEmpresa: TfrViewEmpresa AlignHorz = ahClient AlignVert = avClient Caption = 'Logotipo' + Enabled = False Visible = False LayoutDirection = ldHorizontal object dxLayoutControl1Item17: TdxLayoutItem diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.dfm b/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.dfm index ce97dfe..764caa2 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.dfm +++ b/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.dfm @@ -2,6 +2,12 @@ inherited fEditorPerfilUsuario: TfEditorPerfilUsuario Caption = 'fEditorPerfilUsuario' PixelsPerInch = 96 TextHeight = 13 + inherited JvNavPanelHeader: TJvNavPanelHeader + inherited lblDesbloquear: TcxLabel + AnchorX = 821 + AnchorY = 14 + end + end inherited TBXDock: TTBXDock inherited tbxMain: TTBXToolbar ExplicitWidth = 330 @@ -11,7 +17,7 @@ inherited fEditorPerfilUsuario: TfEditorPerfilUsuario inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 - ExplicitWidth = 638 + ExplicitWidth = 887 ExplicitHeight = 332 end end diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas b/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas index 45fb379..5a90110 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas +++ b/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas @@ -9,7 +9,8 @@ uses StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane, uIEditorPerfilUsuario, uUsuariosController, uCustomView, uViewBase, - uViewPerfilUsuario, uBizUsuarios, dxLayoutLookAndFeels; + uViewPerfilUsuario, uBizUsuarios, dxLayoutLookAndFeels, cxControls, + cxContainer, cxEdit, cxLabel; type TfEditorPerfilUsuario = class(TfEditorDBItem, IEditorPerfilUsuario) @@ -74,8 +75,8 @@ end; constructor TfEditorPerfilUsuario.Create(AOwner: TComponent); begin inherited; - pgPaginas.ActivePageIndex := 0; AsignarVista; + pgPaginas.ActivePageIndex := 0; end; destructor TfEditorPerfilUsuario.Destroy; diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorPerfilesUsuario.dfm b/Source/ApplicationBase/Usuarios/Views/uEditorPerfilesUsuario.dfm index 5c38073..f74d912 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorPerfilesUsuario.dfm +++ b/Source/ApplicationBase/Usuarios/Views/uEditorPerfilesUsuario.dfm @@ -37,5 +37,9 @@ inherited fEditorPerfilesUsuario: TfEditorPerfilesUsuario inherited actDuplicar: TAction Visible = False end + inherited actExportarExcel: TAction + Enabled = False + Visible = False + end end end diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm b/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm index 9f64d64..32a573b 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm +++ b/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm @@ -2,6 +2,12 @@ inherited fEditorUsuario: TfEditorUsuario Caption = 'fEditorUsuario' PixelsPerInch = 96 TextHeight = 13 + inherited JvNavPanelHeader: TJvNavPanelHeader + inherited lblDesbloquear: TcxLabel + AnchorX = 821 + AnchorY = 14 + end + end inherited TBXDock: TTBXDock inherited tbxMain: TTBXToolbar ExplicitWidth = 465 @@ -22,10 +28,14 @@ inherited fEditorUsuario: TfEditorUsuario end inherited pgPaginas: TPageControl inherited pagGeneral: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 887 + ExplicitHeight = 332 inline frViewUsuario1: TfrViewUsuario Left = 0 Top = 0 - Width = 638 + Width = 887 Height = 332 Align = alClient Font.Charset = DEFAULT_CHARSET @@ -36,14 +46,14 @@ inherited fEditorUsuario: TfEditorUsuario ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 638 + ExplicitWidth = 887 ExplicitHeight = 332 inherited dxLayoutControlArticulo: TdxLayoutControl - Width = 638 + Width = 887 LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitWidth = 638 + ExplicitWidth = 887 DesignSize = ( - 638 + 887 249) inherited PngSpeedButton3: TPngSpeedButton Top = 84 @@ -51,12 +61,20 @@ inherited fEditorUsuario: TfEditorUsuario end inherited eNombre: TcxDBTextEdit Top = 30 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 30 ExplicitWidth = 164 Width = 164 end inherited eUsuario: TcxDBTextEdit Top = 57 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 57 ExplicitWidth = 108 Width = 108 @@ -64,22 +82,38 @@ inherited fEditorUsuario: TfEditorUsuario inherited eMail: TcxDBHyperLinkEdit Top = 84 Properties.Prefix = 'mailto:' + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 84 end inherited ePassword: TcxTextEdit Top = 163 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 163 ExplicitWidth = 121 Width = 121 end inherited eConfirmarPassword: TcxTextEdit Top = 190 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 190 ExplicitWidth = 372 Width = 372 end inherited cbPerfil: TcxComboBox Top = 112 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 112 end end diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas b/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas index 2a70d10..73e1b92 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas +++ b/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas @@ -9,7 +9,7 @@ uses StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane, uIEditorUsuario, uUsuariosController, uCustomView, uViewBase, uViewUsuario, - uBizUsuarios, dxLayoutLookAndFeels; + uBizUsuarios, dxLayoutLookAndFeels, cxControls, cxContainer, cxEdit, cxLabel; type TfEditorUsuario = class(TfEditorDBItem, IEditorUsuario) @@ -24,6 +24,7 @@ type procedure actEliminarUpdate(Sender: TObject); procedure actCambiarPasswordExecute(Sender: TObject); procedure actCambiarPasswordUpdate(Sender: TObject); + procedure FormShow(Sender: TObject); private FController : IUsuariosController; FUsuario : IBizUsuario; @@ -57,7 +58,7 @@ implementation {$R *.dfm} uses - uDialogUtils, cxControls; + uDialogUtils; { TfEditorUsuario } @@ -106,6 +107,12 @@ begin end; end; +procedure TfEditorUsuario.FormShow(Sender: TObject); +begin + inherited; +// +end; + function TfEditorUsuario.GetController: IUsuariosController; begin Result := FController; diff --git a/Source/Base/Controladores/uControllerDetallesBase.pas b/Source/Base/Controladores/uControllerDetallesBase.pas index f1d6220..4139cbd 100644 --- a/Source/Base/Controladores/uControllerDetallesBase.pas +++ b/Source/Base/Controladores/uControllerDetallesBase.pas @@ -300,7 +300,7 @@ procedure TControllerDetallesBase.CalculoDetalleDescuento( ImporteDto : Double; Redondeado : Double;} begin -//Este metodo calcula el descuento por capitulo que no se activa para tecsitel +//Este metodo calcula el descuento por capitulo que no se activa para noviseda { with DataTable do begin if not Editing then Edit; diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index e813878..9276bf9 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -53,7 +53,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1000FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.0.0FactuGES1.0.0.02.0.0.0FactuGES.dprFalse +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1000FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.0.0FactuGES1.0.0.0FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 98e844d..7123305 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -15,8 +15,7 @@ BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "FileVersion", "1.0.0.0\0" VALUE "InternalName", "FactuGES\0" - VALUE "ProductName", "1.0.0.0\0" - VALUE "ProductVersion", "2.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 808c1e5..ef36764 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/GUIBase/GUIBase.identcache b/Source/GUIBase/GUIBase.identcache index 24635f5..210f820 100644 Binary files a/Source/GUIBase/GUIBase.identcache and b/Source/GUIBase/GUIBase.identcache differ diff --git a/Source/GUIBase/uEditorBase.pas b/Source/GUIBase/uEditorBase.pas index 1da68fc..0adab11 100644 --- a/Source/GUIBase/uEditorBase.pas +++ b/Source/GUIBase/uEditorBase.pas @@ -127,6 +127,8 @@ type procedure actEliminarUpdate(Sender: TObject); procedure actGuardarCerrarUpdate(Sender: TObject); procedure actGuardarUpdate(Sender: TObject); + procedure FormShow(Sender: TObject); + protected FWindowCaption : String; FHeaderText : String; @@ -154,7 +156,7 @@ type constructor Create(AOwner: TComponent); override; function ShowModal : Integer; override; procedure Show; - procedure FormShow(Sender: TObject); + published property WindowCaption : String read GetWindowCaption write SetWindowCaption; property HeaderText : String read GetHeaderText write SetHeaderText; diff --git a/Source/GUIBase/uEditorPreview.dfm b/Source/GUIBase/uEditorPreview.dfm index e0f9966..d5242de 100644 --- a/Source/GUIBase/uEditorPreview.dfm +++ b/Source/GUIBase/uEditorPreview.dfm @@ -34,6 +34,8 @@ inherited fEditorPreview: TfEditorPreview end object TBXSubmenuItem8: TTBXSubmenuItem [11] Caption = 'Exportar' + Enabled = False + Visible = False object TBXItem53: TTBXItem Action = actExportarPDF Images = SmallImages @@ -273,31 +275,41 @@ inherited fEditorPreview: TfEditorPreview object actExportarPDF: TAction Category = 'Exportaci'#243'n' Caption = 'Exportar a PDF...' + Enabled = False ImageIndex = 21 + Visible = False OnExecute = actExportarPDFExecute end object actExportarRTF: TAction Category = 'Exportaci'#243'n' Caption = 'Exportar a documento Word...' + Enabled = False ImageIndex = 24 + Visible = False OnExecute = actExportarRTFExecute end object actExportarExcel: TAction Category = 'Exportaci'#243'n' Caption = 'Exportar a libro Excel...' + Enabled = False ImageIndex = 22 + Visible = False OnExecute = actExportarExcelExecute end object actExportarCorreo: TAction Category = 'Exportaci'#243'n' Caption = 'Enviar por correo electr'#243'nico...' + Enabled = False ImageIndex = 25 + Visible = False OnExecute = actExportarCorreoExecute end object actExportarTexto: TAction Category = 'Exportaci'#243'n' Caption = 'Exportar a texto simple...' + Enabled = False ImageIndex = 23 + Visible = False OnExecute = actExportarTextoExecute end end @@ -2478,7 +2490,7 @@ inherited fEditorPreview: TfEditorPreview Bitmap = {} end object frxReport1: TfrxReport - Version = '4.3' + Version = '4.7.71' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' @@ -2529,6 +2541,7 @@ inherited fEditorPreview: TfEditorPreview ShowDialog = False UseFileCache = True ShowProgress = True + OverwritePrompt = False Monochrome = True Left = 120 Top = 384 @@ -2536,13 +2549,21 @@ inherited fEditorPreview: TfEditorPreview object frxPDFExport1: TfrxPDFExport UseFileCache = True ShowProgress = True + OverwritePrompt = False PrintOptimized = True Outline = False + Background = False + HTMLTags = False Author = 'FastReport'#174 Subject = 'FastReport PDF export' - Background = False Creator = 'FastReport (http://www.fast-report.com)' - HTMLTags = False + ProtectionFlags = [ePrint, eModify, eCopy, eAnnot] + HideToolbar = False + HideMenubar = False + HideWindowUI = False + FitWindow = False + CenterWindow = False + PrintScaling = False Left = 160 Top = 384 end @@ -2550,6 +2571,7 @@ inherited fEditorPreview: TfEditorPreview ShowDialog = False UseFileCache = True ShowProgress = True + OverwritePrompt = False Monochrome = True Left = 192 Top = 384 @@ -2557,6 +2579,8 @@ inherited fEditorPreview: TfEditorPreview object frxXLSExport1: TfrxXLSExport UseFileCache = True ShowProgress = True + OverwritePrompt = False + ExportEMF = True AsText = False Background = True FastExport = True @@ -2569,25 +2593,32 @@ inherited fEditorPreview: TfEditorPreview object frxMailExport1: TfrxMailExport UseFileCache = True ShowProgress = True + OverwritePrompt = False ShowExportDialog = True SmtpPort = 25 UseIniFile = True + TimeOut = 60 + ConfurmReading = False Left = 80 Top = 384 end object frxRTFExport: TfrxRTFExport UseFileCache = True ShowProgress = True + OverwritePrompt = False + ExportEMF = True Wysiwyg = True Creator = 'FastReport http://www.fast-report.com' SuppressPageHeadersFooters = False HeaderFooterMode = hfText + AutoSize = False Left = 232 Top = 384 end object frxSimpleTextExport1: TfrxSimpleTextExport UseFileCache = True ShowProgress = True + OverwritePrompt = False Frames = False EmptyLines = False OEMCodepage = False diff --git a/Source/Informes/1/InformeIVAClientes.fr3 b/Source/Informes/1/InformeIVAClientes.fr3 deleted file mode 100644 index 26ad5a3..0000000 --- a/Source/Informes/1/InformeIVAClientes.fr3 +++ /dev/null @@ -1,61 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeIVAClientesDesglosado.fr3 b/Source/Informes/1/InformeIVAClientesDesglosado.fr3 deleted file mode 100644 index a83d27e..0000000 --- a/Source/Informes/1/InformeIVAClientesDesglosado.fr3 +++ /dev/null @@ -1,65 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoFacturasCliente.fr3 b/Source/Informes/1/InformeListadoFacturasCliente.fr3 deleted file mode 100644 index 125e3a9..0000000 --- a/Source/Informes/1/InformeListadoFacturasCliente.fr3 +++ /dev/null @@ -1,63 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoFacturasClienteDesglosado.fr3 b/Source/Informes/1/InformeListadoFacturasClienteDesglosado.fr3 deleted file mode 100644 index 87ba4bf..0000000 --- a/Source/Informes/1/InformeListadoFacturasClienteDesglosado.fr3 +++ /dev/null @@ -1,68 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoFacturasClientePendientes.fr3 b/Source/Informes/1/InformeListadoFacturasClientePendientes.fr3 deleted file mode 100644 index d606d18..0000000 --- a/Source/Informes/1/InformeListadoFacturasClientePendientes.fr3 +++ /dev/null @@ -1,39 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoFacturasClientePendientesDesglosado.fr3 b/Source/Informes/1/InformeListadoFacturasClientePendientesDesglosado.fr3 deleted file mode 100644 index 92daa20..0000000 --- a/Source/Informes/1/InformeListadoFacturasClientePendientesDesglosado.fr3 +++ /dev/null @@ -1,43 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoRecibosCliPendientes.fr3 b/Source/Informes/1/InformeListadoRecibosCliPendientes.fr3 deleted file mode 100644 index e474289..0000000 --- a/Source/Informes/1/InformeListadoRecibosCliPendientes.fr3 +++ /dev/null @@ -1,55 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoRecibosCliPendientesDesglosado.fr3 b/Source/Informes/1/InformeListadoRecibosCliPendientesDesglosado.fr3 deleted file mode 100644 index 78b8dd0..0000000 --- a/Source/Informes/1/InformeListadoRecibosCliPendientesDesglosado.fr3 +++ /dev/null @@ -1,59 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoRecibosCliente.fr3 b/Source/Informes/1/InformeListadoRecibosCliente.fr3 deleted file mode 100644 index 47ddd65..0000000 --- a/Source/Informes/1/InformeListadoRecibosCliente.fr3 +++ /dev/null @@ -1,52 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoRecibosClienteDesglosado.fr3 b/Source/Informes/1/InformeListadoRecibosClienteDesglosado.fr3 deleted file mode 100644 index 3b7324a..0000000 --- a/Source/Informes/1/InformeListadoRecibosClienteDesglosado.fr3 +++ /dev/null @@ -1,56 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeIVAClientes.fr3 b/Source/Informes/2/InformeIVAClientes.fr3 deleted file mode 100644 index 80da615..0000000 --- a/Source/Informes/2/InformeIVAClientes.fr3 +++ /dev/null @@ -1,61 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeIVAClientesDesglosado.fr3 b/Source/Informes/2/InformeIVAClientesDesglosado.fr3 deleted file mode 100644 index cf3e1e9..0000000 --- a/Source/Informes/2/InformeIVAClientesDesglosado.fr3 +++ /dev/null @@ -1,65 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoFacturasCliente.fr3 b/Source/Informes/2/InformeListadoFacturasCliente.fr3 deleted file mode 100644 index 8f71b0f..0000000 --- a/Source/Informes/2/InformeListadoFacturasCliente.fr3 +++ /dev/null @@ -1,63 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoFacturasClienteDesglosado.fr3 b/Source/Informes/2/InformeListadoFacturasClienteDesglosado.fr3 deleted file mode 100644 index 59ac922..0000000 --- a/Source/Informes/2/InformeListadoFacturasClienteDesglosado.fr3 +++ /dev/null @@ -1,67 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoFacturasClientePendientes.fr3 b/Source/Informes/2/InformeListadoFacturasClientePendientes.fr3 deleted file mode 100644 index 256d0bb..0000000 --- a/Source/Informes/2/InformeListadoFacturasClientePendientes.fr3 +++ /dev/null @@ -1,39 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoFacturasClientePendientesDesglosado.fr3 b/Source/Informes/2/InformeListadoFacturasClientePendientesDesglosado.fr3 deleted file mode 100644 index 4987383..0000000 --- a/Source/Informes/2/InformeListadoFacturasClientePendientesDesglosado.fr3 +++ /dev/null @@ -1,43 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoRecibosCliPendientes.fr3 b/Source/Informes/2/InformeListadoRecibosCliPendientes.fr3 deleted file mode 100644 index 191ae4b..0000000 --- a/Source/Informes/2/InformeListadoRecibosCliPendientes.fr3 +++ /dev/null @@ -1,55 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoRecibosCliPendientesDesglosado.fr3 b/Source/Informes/2/InformeListadoRecibosCliPendientesDesglosado.fr3 deleted file mode 100644 index bd598f6..0000000 --- a/Source/Informes/2/InformeListadoRecibosCliPendientesDesglosado.fr3 +++ /dev/null @@ -1,59 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoRecibosCliente.fr3 b/Source/Informes/2/InformeListadoRecibosCliente.fr3 deleted file mode 100644 index e11ffda..0000000 --- a/Source/Informes/2/InformeListadoRecibosCliente.fr3 +++ /dev/null @@ -1,52 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoRecibosClienteDesglosado.fr3 b/Source/Informes/2/InformeListadoRecibosClienteDesglosado.fr3 deleted file mode 100644 index bc4c287..0000000 --- a/Source/Informes/2/InformeListadoRecibosClienteDesglosado.fr3 +++ /dev/null @@ -1,56 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas index fb03ca2..16835cf 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas @@ -167,7 +167,7 @@ uses uIEditorElegirAlbaranesCliente, uIEditorDireccionEntregaAlbaranCliente, schContactosClient_Intf, uAlbaranesClienteReportController, uControllerDetallesBase, -// Pedidos no estará en TECSITEL +// Pedidos no estará en noviseda // uPedidosClienteController, uBizPedidosCliente, uBizDetallesPedidoCliente, schPedidosClienteClient_Intf, uDialogUtils, Windows, Forms, Dialogs, uGUIBase, uIntegerListUtils, diff --git a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas index 0349e82..e2ac039 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas @@ -187,7 +187,7 @@ end; procedure TDetallesAlbaranClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); begin -//Como en tecsitel no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno +//Como en noviseda no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno //de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos. if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then if Assigned(AArticulos) then diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm index 3939739..fb21a9c 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm @@ -2,6 +2,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente Caption = 'Lista de albaranes de cliente' ClientWidth = 583 ExplicitWidth = 591 + ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas index 970f44b..7c39a8d 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas @@ -91,7 +91,7 @@ implementation uses uDataModuleAlbaranesCliente, uDataModuleUsuarios, uFactuGES_App, uGenerarFacturasCliAlbCliUtils, -//En tecsitel no estaran habilitados los pedidos +//En noviseda no estaran habilitados los pedidos // uPedidosClienteController, uBizPedidosCliente, uDialogUtils, schAlbaranesClienteClient_Intf, // uFacturasClienteController, uBizFacturasCliente, diff --git a/Source/Modulos/Articulos/Controller/Articulos_controller.identcache b/Source/Modulos/Articulos/Controller/Articulos_controller.identcache index 0386652..e31e4f4 100644 Binary files a/Source/Modulos/Articulos/Controller/Articulos_controller.identcache and b/Source/Modulos/Articulos/Controller/Articulos_controller.identcache differ diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas index 1ae4c614..c073c84 100644 --- a/Source/Modulos/Articulos/Controller/uArticulosController.pas +++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas @@ -182,7 +182,7 @@ function TArticulosController.BuscarReferencia(const Ref: String; AClienteID: In begin ShowHourglassCursor; try -//En tecsitel se desactiva el sacar una lista de articulos personalizada por cliente +//En noviseda se desactiva el sacar una lista de articulos personalizada por cliente // if (AClienteID = -1) then Result := BuscarTodos; // else @@ -217,7 +217,7 @@ function TArticulosController.BuscarReferenciaProveedor(const Ref: String; AClie begin ShowHourglassCursor; try -//En tecsitel se desactiva el sacar una lista de articulos personalizada por cliente +//En noviseda se desactiva el sacar una lista de articulos personalizada por cliente // if (AClienteID = -1) then Result := BuscarTodosPorProveedor; // else @@ -254,7 +254,7 @@ end; function TArticulosController.BuscarTodos(ACliente: IBizCliente): IBizArticulo; begin -//En tecsitel se desactiva el sacar una lista de articulos personalizada por cliente +//En noviseda se desactiva el sacar una lista de articulos personalizada por cliente // if not Assigned(ACliente) then // raise Exception.Create('Falta ACliente: BuscarTodos'); diff --git a/Source/Modulos/Articulos/Views/uViewArticulos.dfm b/Source/Modulos/Articulos/Views/uViewArticulos.dfm index 70ea988..2f91a81 100644 --- a/Source/Modulos/Articulos/Views/uViewArticulos.dfm +++ b/Source/Modulos/Articulos/Views/uViewArticulos.dfm @@ -159,7 +159,6 @@ inherited frViewArticulos: TfrViewArticulos end inherited pnlAgrupaciones: TTBXDockablePanel Top = 436 - Visible = True ExplicitTop = 436 ExplicitWidth = 715 inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas index 051aa2e..84965e1 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas @@ -158,7 +158,7 @@ end; procedure TDetallesFacturaClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); begin -//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP +//En noviseda no se tiene en cuenta el descuento de cliente para el precio PVP // if Assigned(AArticulos) then // ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO // else @@ -173,7 +173,7 @@ end; procedure TDetallesFacturaClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); begin -//Como en tecsitel no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno +//Como en noviseda no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno //de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos. if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then if Assigned(AArticulos) then diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas index f35d201..43eed2b 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas @@ -66,7 +66,7 @@ end; function TDataModuleFacturasCliente.NewItem: IBizFacturaCliente; begin -// + Result := GetItem(ID_NULO) end; function TDataModuleFacturasCliente._GetDetalles: IBizDetallesFacturaCliente; diff --git a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.identcache b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.identcache index 2a1d9cf..0e3b850 100644 Binary files a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.identcache and b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.identcache differ diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm index 2a26cba..d2d644b 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm @@ -2,7 +2,6 @@ inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview Caption = 'Previsualizar la factura' ClientWidth = 622 ExplicitWidth = 630 - ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -20,7 +19,6 @@ inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview ExplicitWidth = 622 end inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 540 object TBXItem58: TTBXItem [1] Action = actExportarRTF Images = SmallImages diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 75b7f4c..26d77fe 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -1015,7 +1015,7 @@ begin ARecibos := ARecibosProveedorController.BuscarRecibosFactura(AFactura.ID); ARecibosProveedorController.EliminarTodo(ARecibos); - //Se cambia la lógica a peticion de tecsitel, en el caso de meter una fecha de vencimiento, + //Se cambia la lógica a peticion de noviseda, en el caso de meter una fecha de vencimiento, //los plazos de la forma de pago no tendrán efecto, se generará un recibo con el 100% y fecha de vencimiento //de la factura. With AFormaPago.Plazos.DataTable do diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm index c454b88..01d48fb 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm @@ -5,6 +5,7 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor ClientWidth = 700 Position = poDesigned ExplicitWidth = 708 + ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas index 30e8d6b..c249a2e 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas @@ -345,7 +345,7 @@ procedure TfEditorPedidosProveedor.NuevoInterno; begin inherited; -// Para Tecsitel: No preguntar si hacer el pedido de proveedor +// Para noviseda: No preguntar si hacer el pedido de proveedor // basado en pedido de cliente. { Respuesta := JsNuevoPedidoProveedorDialog.Execute; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas index 60a056c..4dafade 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas @@ -162,7 +162,7 @@ end; procedure TDetallesPresupuestoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); begin -//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP +//En noviseda no se tiene en cuenta el descuento de cliente para el precio PVP // if Assigned(AArticulos) then // ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO // else @@ -177,7 +177,7 @@ end; procedure TDetallesPresupuestoClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); begin -//Como en tecsitel no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno +//Como en noviseda no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno //de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos. if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then if Assigned(AArticulos) then diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm index 1ee7574..573c75e 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm @@ -68,8 +68,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente Left = 0 Top = 0 Width = 677 - Height = 335 - Align = alTop + Height = 301 + Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 @@ -82,12 +82,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente ExplicitHeight = 335 inherited dxLayoutControl1: TdxLayoutControl Width = 677 - Height = 335 + Height = 301 ExplicitWidth = 677 ExplicitHeight = 335 DesignSize = ( 677 - 335) + 301) inherited eReferencia: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' @@ -123,53 +123,53 @@ inherited fEditorReciboCliente: TfEditorReciboCliente Width = 315 end inherited eFechaEmision: TcxDBTextEdit - Left = 441 + Left = 438 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 441 + ExplicitLeft = 438 ExplicitWidth = 214 Width = 214 end inherited eFormaPago: TcxDBTextEdit - Left = 441 + Left = 438 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 441 + ExplicitLeft = 438 ExplicitWidth = 214 Width = 214 end inherited eImporteTotal: TcxDBCurrencyEdit - Left = 441 + Left = 438 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 441 + ExplicitLeft = 438 ExplicitWidth = 214 Width = 214 end inherited eNombreCliente: TcxDBTextEdit - Left = 441 + Left = 438 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 441 + ExplicitLeft = 438 ExplicitWidth = 214 Width = 214 end inherited eNifCif: TcxDBTextEdit - Left = 441 + Left = 438 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 441 + ExplicitLeft = 438 ExplicitWidth = 214 Width = 214 end @@ -206,12 +206,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente Width = 217 end inherited eCuenta: TcxDBTextEdit - Left = 441 + Left = 438 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 441 + ExplicitLeft = 438 ExplicitWidth = 214 Width = 214 end diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm index 09f0e75..94ff798 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm @@ -1,22 +1,24 @@ inherited frViewReciboCliente: TfrViewReciboCliente - Width = 795 - Height = 333 - ExplicitWidth = 795 - ExplicitHeight = 333 + Width = 856 + Height = 450 + ExplicitWidth = 856 + ExplicitHeight = 450 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 795 - Height = 333 + Width = 856 + Height = 450 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 + ExplicitWidth = 795 + ExplicitHeight = 333 DesignSize = ( - 795 - 333) + 856 + 450) object eReferencia: TcxDBTextEdit Left = 120 Top = 30 @@ -126,7 +128,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 314 end object eFechaEmision: TcxDBTextEdit - Left = 545 + Left = 529 Top = 30 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_FACTURA' @@ -156,7 +158,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 228 end object eFormaPago: TcxDBTextEdit - Left = 545 + Left = 529 Top = 57 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FORMA_PAGO_FACTURA' @@ -186,7 +188,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 228 end object eImporteTotal: TcxDBCurrencyEdit - Left = 545 + Left = 529 Top = 111 AutoSize = False DataBinding.DataField = 'IMPORTE_FACTURA' @@ -222,7 +224,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 228 end object eNombreCliente: TcxDBTextEdit - Left = 545 + Left = 529 Top = 194 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NOMBRE_CLIENTE' @@ -252,7 +254,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 228 end object eNifCif: TcxDBTextEdit - Left = 545 + Left = 529 Top = 167 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NIF_CIF_CLIENTE' @@ -400,7 +402,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 216 end object eCuenta: TcxDBTextEdit - Left = 545 + Left = 529 Top = 84 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'DATOS_BANCARIOS' @@ -498,6 +500,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente end object dxLayoutControl1Group8: TdxLayoutGroup AutoAligns = [aaVertical] + AlignHorz = ahClient Caption = 'New Group' ShowCaption = False ShowBorder = False @@ -548,6 +551,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente end object dxLayoutControl1Group7: TdxLayoutGroup AutoAligns = [aaHorizontal] + AlignVert = avClient Caption = 'Observaciones' object dxLayoutControl1Item5: TdxLayoutItem AutoAligns = [aaHorizontal] diff --git a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas index b61ef6b..f02a9a2 100644 --- a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas +++ b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas @@ -220,8 +220,9 @@ begin // if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos del albaran seleccionados a su factura correspondiente?', [])) = IDYES) then // Result := GenerarFacturaCliAlb(AAlbaran) // else +// Result := GenerarFacturaCliAlb(AAlbaran, False); //Siempre se copiaran todos los detalles del albarán a la factura ya que siempre será una relación 1 a 1. - Result := GenerarFacturaCliAlb(AAlbaran, False); + Result := GenerarFacturaCliAlb(AAlbaran); end; if Assigned(AAlbaranesClienteController) then @@ -299,10 +300,13 @@ begin if Assigned(AAlbaranes) then begin - if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos de/los albaran/es seleccionados a sus facturas correspondientes?', [])) = IDYES) then - Result := GenerarFacturaCliAlb(AAlbaranes) - else - Result := GenerarFacturaCliAlb(AAlbaranes, False); +// if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos de/los albaran/es seleccionados a sus facturas correspondientes?', [])) = IDYES) then +// Result := GenerarFacturaCliAlb(AAlbaranes) +// else +// Result := GenerarFacturaCliAlb(AAlbaranes, False); +//Siempre se copiaran todos los detalles del albarán a la factura ya que siempre será una relación 1 a 1. + Result := GenerarFacturaCliAlb(AAlbaranes); + end; if Assigned(AAlbaranesClienteController) then @@ -357,7 +361,9 @@ begin AAlbaranesController.RecuperarCliente(AListaAlbaranes); AListaAlbaranes.Cliente.DataTable.Active := True; AFacturas.Cliente := AListaAlbaranes.Cliente; - AFacturas.ID_FORMA_PAGO := AListaAlbaranes.ID_FORMA_PAGO; + AFacturas.ID_FORMA_PAGO := AListaAlbaranes.ID_FORMA_PAGO; + AFacturas.DATOS_BANCARIOS := AListaAlbaranes.DATOS_BANCARIOS; + AFacturas.PERSONA_CONTACTO := AListaAlbaranes.PERSONA_CONTACTO; //Si el albaran es de tipo devolución hacemos la factura de tipo abono if (AListaAlbaranes.TIPO = CTE_TIPO_ALBARAN_DEV) then @@ -385,7 +391,7 @@ begin Edit; CONCEPTO := 'Albaran ' + AListaAlbaranes.REFERENCIA; CANTIDAD := 1; - IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los pedidos por lo tanto el + IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL; //noviseda no utiliza el IVA en los pedidos por lo tanto el //importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE) Post; end; @@ -404,7 +410,8 @@ begin // Añado el contenido del albarán CopiarArticulosAlbaran(AListaAlbaranes.Detalles, AFacturaActual.Detalles); - AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO); +//No hay porte en noviseda +{ AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO); with AFacturaActual.Detalles do begin Edit; @@ -413,6 +420,7 @@ begin IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_PORTE; Post; end; +} // Añado el resumen AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL); diff --git a/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas b/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas index a8bb813..d0d4414 100644 --- a/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas +++ b/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas @@ -402,7 +402,7 @@ begin Edit; CONCEPTO := 'Albaran ' + AListaAlbaranes.REFERENCIA; CANTIDAD := 1; - IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los pedidos por lo tanto el + IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL; //noviseda no utiliza el IVA en los pedidos por lo tanto el //importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE) Post; end; diff --git a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas index e1462b2..6c0bceb 100644 --- a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas +++ b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas @@ -361,7 +361,7 @@ begin Edit; CONCEPTO := 'Pedido ' + AListaPedidos.REFERENCIA; CANTIDAD := 1; - IMPORTE_UNIDAD := AListaPedidos.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los pedidos por lo tanto el + IMPORTE_UNIDAD := AListaPedidos.IMPORTE_TOTAL; //noviseda no utiliza el IVA en los pedidos por lo tanto el //importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE) Post; end; diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas index ea200d8..9d5d0c6 100644 --- a/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas +++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas @@ -353,7 +353,7 @@ begin Edit; CONCEPTO := 'Presupuesto ' + AListaPresupuestos.REFERENCIA; CANTIDAD := 1; - IMPORTE_UNIDAD := AListaPresupuestos.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los presupuestos por lo tanto el + IMPORTE_UNIDAD := AListaPresupuestos.IMPORTE_TOTAL; //noviseda no utiliza el IVA en los presupuestos por lo tanto el //importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE) Post; end; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index e8dd944..be644cd 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 4c7f5c0..28d8ace 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -35,7 +35,7 @@ Delphi.Personality - FalseTrueFalse/standaloneTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0viernes, 15 de enero de 2010 17:13 + FalseTrueFalse/standaloneTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0miércoles, 20 de enero de 2010 11:54 ExpressPrinting System by Developer Express Inc. FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 04fb6da..62f8a20 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0" - VALUE "CompileDate", "martes, 19 de enero de 2010 19:31\0" + VALUE "CompileDate", "miércoles, 20 de enero de 2010 12:54\0" END END BLOCK "VarFileInfo"