Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se arreglan editores para que cuando no hay ejercicio activo en la empresa se desactiven por defecto la contabilidad

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@338 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-11-26 18:08:44 +00:00
parent 08e376d8ae
commit 0904a0dc59
23 changed files with 254 additions and 98 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Database/scripts/factuges_sysdata.sql
View File

@ -2,14 +2,18 @@ SET SQL DIALECT 3;
SET NAMES ISO8859_1; SET NAMES ISO8859_1;
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, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, REGISTRO_MERCANTIL, IVA) VALUES (1, 'B85274322', 'Acana Home S.L.', 'Acana Home S.L.', 'C/Alcalá, 295', 'Madrid', 'Madrid', '28027', '91 4054951', NULL, NULL, NULL, '91 4055163', 'info@acanahome.com', NULL, 'www.acanahome.com', NULL, NULL, NULL, 'Administrador', NULL, '', 16); 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, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, REGISTRO_MERCANTIL) VALUES (1, 'B85274322', 'Acana Home S.L.', 'Acana Home S.L.', 'C/Alcalá, 295', 'Madrid', 'Madrid', '28027', '91 4054951', NULL, NULL, NULL, '91 4055163', 'info@acanahome.com', NULL, 'www.acanahome.com', NULL, NULL, NULL, 'Administrador', NULL, '');
SET GENERATOR GEN_EMPRESAS_ID TO 2; 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, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, REGISTRO_MERCANTIL) VALUES (2, Null, 'Acana', 'Acana', Nul, Null, Null, Null, Null, NULL, NULL, NULL, Null, Null, NULL, Null, NULL, NULL, NULL, 'Administrador', NULL, '');
SET GENERATOR GEN_EMPRESAS_ID TO 3;
COMMIT WORK; COMMIT WORK;
INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (1, 1, 'C/ Alcalá, 295', 'Madrid', 'Madrid', '28027', 'Cristina Puerta', 'Alcalá', '91 405 49 51', '667 60 57 11', '91 405 51 63', NULL, NULL, NULL, NULL, '01'); INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (1, 1, 'C/ Alcalá, 295', 'Madrid', 'Madrid', '28027', 'Cristina Puerta', 'Alcalá', '91 405 49 51', '667 60 57 11', '91 405 51 63', NULL, NULL, NULL, NULL, '01');
INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (2, 1, 'Bulevar Indalecio Prieto Ed. 14', 'Madrid', 'Madrid', '28032', 'José Luis Puerta', 'Valdebernardo', '91 301 65 57', '618 31 09 40', '91 301 65 58', NULL, NULL, NULL, NULL, '02'); INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (2, 1, 'Bulevar Indalecio Prieto Ed. 14', 'Madrid', 'Madrid', '28032', 'José Luis Puerta', 'Valdebernardo', '91 301 65 57', '618 31 09 40', '91 301 65 58', NULL, NULL, NULL, NULL, '02');
INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (3, 1, NULL, NULL, NULL, NULL, NULL, 'Abeto', NULL, NULL, NULL, NULL, NULL, NULL, NULL, '03'); INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (3, 1, NULL, NULL, NULL, NULL, NULL, 'Abeto', NULL, NULL, NULL, NULL, NULL, NULL, NULL, '03');
SET GENERATOR GEN_EMPRESAS_TIENDAS_ID TO 4; INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (4, 2, 'C/ Alcalá, 295', 'Madrid', 'Madrid', '28027', 'Cristina Puerta', 'Alcalá', '91 405 49 51', '667 60 57 11', '91 405 51 63', NULL, NULL, NULL, NULL, '01');
INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (5, 2, 'Bulevar Indalecio Prieto Ed. 14', 'Madrid', 'Madrid', '28032', 'José Luis Puerta', 'Valdebernardo', '91 301 65 57', '618 31 09 40', '91 301 65 58', NULL, NULL, NULL, NULL, '02');
INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (6, 2, NULL, NULL, NULL, NULL, NULL, 'Abeto', NULL, NULL, NULL, NULL, NULL, NULL, NULL, '03');
SET GENERATOR GEN_EMPRESAS_TIENDAS_ID TO 7;
COMMIT WORK; COMMIT WORK;
INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (1, 'CLIENTE'); INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (1, 'CLIENTE');

23
Source/Modulos/Contabilidad/Views/uEditorCuentas.dfm
View File

@ -2,8 +2,6 @@ inherited fEditorCuentas: TfEditorCuentas
Left = 489 Left = 489
Top = 325 Top = 325
Caption = 'Lista de cuentas' Caption = 'Lista de cuentas'
ExplicitWidth = 320
ExplicitHeight = 471
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -66,9 +64,6 @@ inherited fEditorCuentas: TfEditorCuentas
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar
ExplicitWidth = 474
end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 269 ExplicitWidth = 269
inherited tbxEditFiltro: TTBXEditItem inherited tbxEditFiltro: TTBXEditItem
@ -107,12 +102,6 @@ inherited fEditorCuentas: TfEditorCuentas
ExplicitWidth = 543 ExplicitWidth = 543
ExplicitHeight = 195 ExplicitHeight = 195
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = '0 ejercicios'
Kind = skCount
Column = frViewCuentas1.cxGridViewREF_CUENTA
end>
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
end end
@ -127,15 +116,27 @@ inherited fEditorCuentas: TfEditorCuentas
Width = 543 Width = 543
ExplicitWidth = 543 ExplicitWidth = 543
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 337 Left = 337
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 337 ExplicitLeft = 337
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121

28
Source/Modulos/Contabilidad/Views/uEditorDiario.dfm
View File

@ -2,8 +2,6 @@ inherited fEditorDiario: TfEditorDiario
Left = 489 Left = 489
Top = 325 Top = 325
Caption = 'Libro de diario' Caption = 'Libro de diario'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -33,9 +31,6 @@ inherited fEditorDiario: TfEditorDiario
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar
ExplicitWidth = 543
end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 269 ExplicitWidth = 269
inherited tbxEditFiltro: TTBXEditItem inherited tbxEditFiltro: TTBXEditItem
@ -74,17 +69,6 @@ inherited fEditorDiario: TfEditorDiario
ExplicitWidth = 543 ExplicitWidth = 543
ExplicitHeight = 195 ExplicitHeight = 195
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewDiario1.cxGridViewDEBE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewDiario1.cxGridViewHABER
end>
inherited cxGridViewID_ASIENTO: TcxGridDBColumn inherited cxGridViewID_ASIENTO: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
end end
@ -99,15 +83,27 @@ inherited fEditorDiario: TfEditorDiario
Width = 543 Width = 543
ExplicitWidth = 543 ExplicitWidth = 543
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 337 Left = 337
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 337 ExplicitLeft = 337
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121

23
Source/Modulos/Contabilidad/Views/uEditorEpigrafes.dfm
View File

@ -2,8 +2,6 @@ inherited fEditorEpigrafes: TfEditorEpigrafes
Left = 489 Left = 489
Top = 325 Top = 325
Caption = 'Lista de epigrafes' Caption = 'Lista de epigrafes'
ExplicitWidth = 320
ExplicitHeight = 471
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -66,9 +64,6 @@ inherited fEditorEpigrafes: TfEditorEpigrafes
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar
ExplicitWidth = 474
end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 269 ExplicitWidth = 269
inherited tbxEditFiltro: TTBXEditItem inherited tbxEditFiltro: TTBXEditItem
@ -107,12 +102,6 @@ inherited fEditorEpigrafes: TfEditorEpigrafes
ExplicitWidth = 543 ExplicitWidth = 543
ExplicitHeight = 195 ExplicitHeight = 195
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = '0 ejercicios'
Kind = skCount
Column = frViewEpigrafes1.cxGridViewREF_EPIGRAFE
end>
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
end end
@ -127,15 +116,27 @@ inherited fEditorEpigrafes: TfEditorEpigrafes
Width = 543 Width = 543
ExplicitWidth = 543 ExplicitWidth = 543
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 337 Left = 337
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 337 ExplicitLeft = 337
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121

31
Source/Modulos/Contabilidad/Views/uEditorSubCuentas.dfm
View File

@ -65,9 +65,6 @@ inherited fEditorSubCuentas: TfEditorSubCuentas
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar
ExplicitWidth = 474
end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 269 ExplicitWidth = 269
inherited tbxEditFiltro: TTBXEditItem inherited tbxEditFiltro: TTBXEditItem
@ -106,12 +103,6 @@ inherited fEditorSubCuentas: TfEditorSubCuentas
ExplicitWidth = 543 ExplicitWidth = 543
ExplicitHeight = 195 ExplicitHeight = 195
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = '0 ejercicios'
Kind = skCount
Column = frViewSubCuentas1.cxGridViewREF_SUBCUENTA
end>
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
end end
@ -125,9 +116,31 @@ inherited fEditorSubCuentas: TfEditorSubCuentas
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 543 Width = 543
ExplicitWidth = 543 ExplicitWidth = 543
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 337 Left = 337
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 337 ExplicitLeft = 337
ExplicitWidth = 121
Width = 121
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

14
Source/Modulos/Contabilidad/Views/uViewCuentas.dfm
View File

@ -4,7 +4,7 @@ inherited frViewCuentas: TfrViewCuentas
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = '0 ejercicios' Format = '0 cuentas'
Kind = skCount Kind = skCount
Column = cxGridViewREF_CUENTA Column = cxGridViewREF_CUENTA
end> end>
@ -51,14 +51,26 @@ inherited frViewCuentas: TfrViewCuentas
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end

17
Source/Modulos/Contabilidad/Views/uViewDiario.dfm
View File

@ -12,6 +12,11 @@ inherited frViewDiario: TfrViewDiario
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Column = cxGridViewHABER Column = cxGridViewHABER
end
item
Format = '0 apuntes'
Kind = skCount
Column = cxGridViewCONCEPTO
end> end>
OptionsBehavior.PullFocusing = True OptionsBehavior.PullFocusing = True
object cxGridViewID_ASIENTO: TcxGridDBColumn object cxGridViewID_ASIENTO: TcxGridDBColumn
@ -97,14 +102,26 @@ inherited frViewDiario: TfrViewDiario
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end

15
Source/Modulos/Contabilidad/Views/uViewEpigrafes.dfm
View File

@ -8,7 +8,7 @@ inherited frViewEpigrafes: TfrViewEpigrafes
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = '0 ejercicios' Format = '0 epigrafes'
Kind = skCount Kind = skCount
Column = cxGridViewREF_EPIGRAFE Column = cxGridViewREF_EPIGRAFE
end> end>
@ -43,14 +43,26 @@ inherited frViewEpigrafes: TfrViewEpigrafes
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
@ -60,7 +72,6 @@ inherited frViewEpigrafes: TfrViewEpigrafes
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 423 Top = 423
ExplicitTop = 423 ExplicitTop = 423
ExplicitWidth = 554
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink

14
Source/Modulos/Contabilidad/Views/uViewSubCuentas.dfm
View File

@ -4,7 +4,7 @@ inherited frViewSubCuentas: TfrViewSubCuentas
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = '0 ejercicios' Format = '0 subcuentas'
Kind = skCount Kind = skCount
Column = cxGridViewREF_SUBCUENTA Column = cxGridViewREF_SUBCUENTA
end> end>
@ -59,14 +59,26 @@ inherited frViewSubCuentas: TfrViewSubCuentas
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end

4
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -648,7 +648,9 @@ begin
if (AFactura.Detalles.DataTable.RecordCount = 0) then if (AFactura.Detalles.DataTable.RecordCount = 0) then
raise Exception.Create('La factura debe tener al menos un concepto en su contenido'); raise Exception.Create('La factura debe tener al menos un concepto en su contenido');
if (AFactura.IGNORAR_CONTABILIDAD = 0) and (AFactura.Cliente.SubCuentas.ID < 1) then if (AFactura.IGNORAR_CONTABILIDAD = 0) and ((AFactura.Cliente.SubCuentas.ID < 1)
//REPASAR
or (AFactura.Cliente.SubCuentas.ID_EJERCICIO <> AppFactuGES.EjercicioActivo.ID)) then
raise Exception.Create('Para que la factura pueda pasar la parte contable es necesario que el proveedor tenga asignada una subcuenta'); raise Exception.Create('Para que la factura pueda pasar la parte contable es necesario que el proveedor tenga asignada una subcuenta');
//En caso de ser un Abono no podra tener un importe total positivo //En caso de ser un Abono no podra tener un importe total positivo

6
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -332,8 +332,10 @@ begin
CODIGO_POSTAL := FCliente.CODIGO_POSTAL; CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
PROVINCIA := FCliente.PROVINCIA; PROVINCIA := FCliente.PROVINCIA;
POBLACION := FCliente.POBLACION; POBLACION := FCliente.POBLACION;
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; if FCliente.ID_FORMA_PAGO > 0 then
ID_TIPO_IVA := FCliente.ID_TIPO_IVA; ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
if FCliente.ID_TIPO_IVA > 0 then
ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA; RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
Post; Post;

1
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -71,6 +71,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 854 Width = 854
Height = 398 Height = 398
ActivePage = pagContabilidad
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79

8
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -325,9 +325,9 @@ begin
FFactura.DataTable.Edit; FFactura.DataTable.Edit;
// Actualizar IVA y RE a partir del tipo de IVA del cliente. // Actualizar IVA y RE a partir del tipo de IVA del cliente.
Factura.IVA := ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA; Factura.IVA := FTiposIVA.IVA; //((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA;
if FFactura.Cliente.RECARGO_EQUIVALENCIA = 1 then if FFactura.Cliente.RECARGO_EQUIVALENCIA = 1 then
Factura.RE := ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).RE Factura.RE := FTiposIVA.RE
else else
Factura.RE := 0; Factura.RE := 0;
@ -454,8 +454,8 @@ begin
end; end;
{$IFDEF CONTABILIDAD} {$IFDEF CONTABILIDAD}
// frViewListaSubCuentas1.eContabilizar.EditValue := FFactura.IGNORAR_CONTABILIDAD; frViewListaSubCuentas1.eContabilizar.EditValue := FFactura.IGNORAR_CONTABILIDAD;
// frViewListaSubCuentas1.ElegirSubCuenta(FFactura.ID_SUBCUENTA); frViewListaSubCuentas1.ElegirSubCuenta(FFactura.ID_SUBCUENTA);
{$ENDIF} {$ENDIF}
end end

6
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -321,8 +321,10 @@ begin
CODIGO_POSTAL := FProveedor.CODIGO_POSTAL; CODIGO_POSTAL := FProveedor.CODIGO_POSTAL;
PROVINCIA := FProveedor.PROVINCIA; PROVINCIA := FProveedor.PROVINCIA;
POBLACION := FProveedor.POBLACION; POBLACION := FProveedor.POBLACION;
ID_FORMA_PAGO := FProveedor.ID_FORMA_PAGO; if FProveedor.ID_FORMA_PAGO > 0 then
ID_TIPO_IVA := FProveedor.ID_TIPO_IVA; ID_FORMA_PAGO := FProveedor.ID_FORMA_PAGO;
if FProveedor.ID_TIPO_IVA > 0 then
ID_TIPO_IVA := FProveedor.ID_TIPO_IVA;
// RECARGO_EQUIVALENCIA := FProveedor.RECARGO_EQUIVALENCIA; // RECARGO_EQUIVALENCIA := FProveedor.RECARGO_EQUIVALENCIA;
Post; Post;

36
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -303,40 +303,40 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 57 ExplicitWidth = 57
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 202 Left = 218
ExplicitLeft = 202 ExplicitLeft = 218
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 219 Left = 235
ExplicitLeft = 219 ExplicitLeft = 235
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 227 Left = 243
ExplicitLeft = 227 ExplicitLeft = 243
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 261 Left = 277
ExplicitLeft = 261 ExplicitLeft = 277
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 295 Left = 311
ExplicitLeft = 295 ExplicitLeft = 311
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 329 Left = 345
ExplicitLeft = 329 ExplicitLeft = 345
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 337 Left = 353
ExplicitLeft = 337 ExplicitLeft = 353
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 371 Left = 387
ExplicitLeft = 371 ExplicitLeft = 387
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 405 Left = 421
ExplicitLeft = 405 ExplicitLeft = 421
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid

BIN
Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.dfm
View File

Binary file not shown.

2
Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.pas
View File

@ -37,7 +37,7 @@ uses
uViewRecibosCliente, uEditorRecibosCliente, uBizRecibosCliente, uIEditorElegirRecibosCliente, uViewRecibosCliente, uEditorRecibosCliente, uBizRecibosCliente, uIEditorElegirRecibosCliente,
Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls, Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls,
cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog; cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog, uDAInterfaces;
type type

9
Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm
View File

@ -58,7 +58,6 @@ object fEditorFechaPago: TfEditorFechaPago
Height = 41 Height = 41
Align = alBottom Align = alBottom
TabOrder = 1 TabOrder = 1
ExplicitTop = 172
object bAceptar: TButton object bAceptar: TButton
Left = 39 Left = 39
Top = 8 Top = 8
@ -95,10 +94,18 @@ object fEditorFechaPago: TfEditorFechaPago
ExplicitTop = 80 ExplicitTop = 80
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited cbSubCuentas: TcxComboBox inherited cbSubCuentas: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376 ExplicitWidth = 376
Width = 376 Width = 376
end end
inherited eContabilizar: TcxCheckBox inherited eContabilizar: TcxCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 203 ExplicitWidth = 203
Width = 203 Width = 203
end end

12
Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas
View File

@ -46,7 +46,7 @@ implementation
{$R *.dfm} {$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc} {$INCLUDE ..\..\..\FactuGES.inc}
uses uDialogUtils; uses uDialogUtils, uFactuGES_App;
procedure TfEditorFechaPago.DeshabilitarContabilidad; procedure TfEditorFechaPago.DeshabilitarContabilidad;
begin begin
@ -95,6 +95,16 @@ begin
{$ELSE} {$ELSE}
frViewListaSubCuentas1.Visible := false; frViewListaSubCuentas1.Visible := false;
{$ENDIF} {$ENDIF}
//Contabilidad
if Assigned(AppFactuGES.EjercicioActivo) then
begin
frViewListaSubcuentas1.eContabilizar.Checked := False;
end
else
begin
frViewListaSubcuentas1.eContabilizar.Checked := True;
end;
end; end;
function TfEditorFechaPago.GetFechaPago: TDateTime; function TfEditorFechaPago.GetFechaPago: TDateTime;

50
Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm
View File

@ -51,13 +51,21 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 171 Top = 171
Width = 654 Width = 654
Height = 72
ExplicitTop = 171 ExplicitTop = 171
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 72
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 126 ExplicitWidth = 269
inherited TBXItem2: TTBXItem
Visible = False
end
inherited TBXItem5: TTBXItem inherited TBXItem5: TTBXItem
Visible = False Visible = False
end end
inherited TBXItem4: TTBXItem
Visible = False
end
inherited TBXItem6: TTBXItem inherited TBXItem6: TTBXItem
Visible = False Visible = False
end end
@ -66,12 +74,12 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 126 Left = 269
Top = 23 Top = 23
DockPos = 104 DockPos = 104
DockRow = 1 DockRow = 1
Visible = False Visible = False
ExplicitLeft = 126 ExplicitLeft = 269
ExplicitTop = 23 ExplicitTop = 23
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
@ -82,7 +90,9 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 334 Left = 334
Visible = False
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitHeight = 23
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -137,18 +147,18 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
end end
end end
inherited frViewRecibosProveedor1: TfrViewRecibosProveedor [5] inherited frViewRecibosProveedor1: TfrViewRecibosProveedor [5]
Top = 246 Top = 243
Width = 654 Width = 654
Height = 363 Height = 366
ExplicitTop = 246 ExplicitTop = 243
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 363 ExplicitHeight = 366
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 654 Width = 654
Height = 235 Height = 238
RootLevelOptions.DetailTabsPosition = dtpNone RootLevelOptions.DetailTabsPosition = dtpNone
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 235 ExplicitHeight = 238
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -178,29 +188,45 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
Width = 654 Width = 654
ExplicitWidth = 654 ExplicitWidth = 654
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 252
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 252
ExplicitWidth = 343 ExplicitWidth = 343
Width = 343 Width = 343
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 654 Width = 654
ExplicitWidth = 654
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 644 Width = 644
ExplicitWidth = 644
end end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 337 Top = 340
ExplicitTop = 337 ExplicitTop = 340
ExplicitWidth = 654 ExplicitWidth = 654
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 654 Width = 654
@ -375,7 +401,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
end end
inherited JvFormStorage: TJvFormStorage [13] inherited JvFormStorage: TJvFormStorage [13]
end end
inherited GridPopupMenu: TPopupMenu inherited GridPopupMenu: TPopupMenu [14]
Left = 80 Left = 80
Top = 192 Top = 192
end end

4
Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.pas
View File

@ -1,4 +1,4 @@
{ {
=============================================================================== ===============================================================================
Copyright (©) 2007. Rodax Software. Copyright (©) 2007. Rodax Software.
=============================================================================== ===============================================================================
@ -37,7 +37,7 @@ uses
uViewRecibosProveedor, uEditorRecibosProveedor, uBizRecibosProveedor, uIEditorElegirRecibosProveedor, uViewRecibosProveedor, uEditorRecibosProveedor, uBizRecibosProveedor, uIEditorElegirRecibosProveedor,
Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls, Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls,
cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog; cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog, uDAInterfaces;
type type

29
Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm
View File

@ -12,6 +12,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
DesignSize = ( DesignSize = (
@ -30,13 +31,17 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 164 Width = 164
end end
@ -51,12 +56,16 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 4
Width = 108 Width = 108
end end
@ -72,13 +81,17 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Style.Color = clInfoBk Style.Color = clInfoBk
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False Style.Shadow = False
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 170 Width = 170
end end
@ -103,14 +116,18 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Width = 39 Width = 39
end end
@ -125,14 +142,18 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 3
Width = 121 Width = 121
end end
@ -157,11 +178,19 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Width = 429 Width = 429
ExplicitWidth = 429 ExplicitWidth = 429
inherited cbSubCuentas: TcxComboBox inherited cbSubCuentas: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376 ExplicitWidth = 376
Width = 376 Width = 376
end end
inherited eContabilizar: TcxCheckBox inherited eContabilizar: TcxCheckBox
Left = 276 Left = 276
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 276 ExplicitLeft = 276
ExplicitWidth = 203 ExplicitWidth = 203
Width = 203 Width = 203

10
Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas
View File

@ -120,6 +120,16 @@ begin
dxlcCuentaBancaria.visible := true; dxlcCuentaBancaria.visible := true;
dxlcCuentaContable.Visible := false; dxlcCuentaContable.Visible := false;
{$ENDIF} {$ENDIF}
//Contabilidad
if Assigned(AppFactuGES.EjercicioActivo) then
begin
frViewListaSubcuentas1.eContabilizar.Checked := False;
end
else
begin
frViewListaSubcuentas1.eContabilizar.Checked := True;
end;
end; end;
function TfrViewRemesaCliente.GetController: IRemesasClienteController; function TfrViewRemesaCliente.GetController: IRemesasClienteController;