diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index ad204da..e682a01 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Database/scripts/FACTUGES_de primera subida.fbk b/Database/scripts/FACTUGES_de primera subida.fbk
new file mode 100644
index 0000000..8d0aab5
Binary files /dev/null and b/Database/scripts/FACTUGES_de primera subida.fbk differ
diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 844a824..74467d2 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -924,7 +924,9 @@ CREATE TABLE FACTURAS_CLIENTE (
FECHA_VENCIMIENTO DATE,
ID_DIRECCION TIPO_ID,
ID_CONTRATO TIPO_ID,
- SIN_COMISION SMALLINT
+ SIN_COMISION SMALLINT,
+ SITUACION VARCHAR(255) COLLATE ES_ES,
+ REFERENCIA_PRESUPUESTO VARCHAR(255) COLLATE ES_ES
);
CREATE TABLE FACTURAS_CLIENTE_DETALLES (
@@ -2769,7 +2771,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
ID_CONTRATO,
REF_CONTRATO,
REF_CLI_CONTRATO,
- SIN_COMISION)
+ SIN_COMISION,
+ REFERENCIA_PRESUPUESTO)
AS
SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA,
@@ -2778,10 +2781,7 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA,
FACTURAS_CLIENTE.FECHA_FACTURA,
FACTURAS_CLIENTE.FECHA_VENCIMIENTO,
- case
- when V_FAC_CLI_SITUACION.SITUACION is null then FACTURAS_CLIENTE.SITUACION
- else TRIM(V_FAC_CLI_SITUACION.SITUACION)
- end as situacion,
+ FACTURAS_CLIENTE.SITUACION,
FACTURAS_CLIENTE.BASE_IMPONIBLE,
FACTURAS_CLIENTE.DESCUENTO,
FACTURAS_CLIENTE.IMPORTE_DESCUENTO,
@@ -2823,7 +2823,9 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_CONTRATO,
CONTRATOS_CLIENTE.REFERENCIA,
CONTRATOS_CLIENTE.REFERENCIA_CLIENTE,
- FACTURAS_CLIENTE.SIN_COMISION
+ FACTURAS_CLIENTE.SIN_COMISION,
+ FACTURAS_CLIENTE.REFERENCIA_PRESUPUESTO
+
FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE
diff --git a/Resources/Iconos/logo-uecko.jpg b/Resources/Iconos/logo-uecko.jpg
deleted file mode 100644
index c427e25..0000000
Binary files a/Resources/Iconos/logo-uecko.jpg and /dev/null differ
diff --git a/Resources/Iconos/logo.jpg b/Resources/Iconos/logo.jpg
new file mode 100644
index 0000000..0b99a6c
Binary files /dev/null and b/Resources/Iconos/logo.jpg differ
diff --git a/Resources/Iconos/logotipo abeto design.jpg b/Resources/Iconos/logotipo abeto design.jpg
deleted file mode 100644
index 495419f..0000000
Binary files a/Resources/Iconos/logotipo abeto design.jpg and /dev/null differ
diff --git a/Resources/Iconos/logotipo abeto pie de hoja.bmp b/Resources/Iconos/logotipo abeto pie de hoja.bmp
deleted file mode 100644
index 5baa57e..0000000
Binary files a/Resources/Iconos/logotipo abeto pie de hoja.bmp and /dev/null differ
diff --git a/Resources/Iconos/pie-uecko.jpg b/Resources/Iconos/pie-uecko.jpg
deleted file mode 100644
index 3f4061d..0000000
Binary files a/Resources/Iconos/pie-uecko.jpg and /dev/null differ
diff --git a/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm b/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
index 90559a2..404bedf 100644
--- a/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
+++ b/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
@@ -8,13 +8,12 @@ inherited fEditorEmpresa: TfEditorEmpresa
ClientWidth = 674
Scaled = False
ExplicitWidth = 682
- ExplicitHeight = 592
+ ExplicitHeight = 581
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 674
Caption = 'Empresa'
- ExplicitTop = 52
ExplicitWidth = 674
inherited Image1: TImage
Left = 647
@@ -25,7 +24,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 674
ExplicitWidth = 674
inherited tbxMain: TTBXToolbar
- ExplicitWidth = 370
+ ExplicitWidth = 330
inherited TBXItem2: TTBXItem
Visible = False
end
@@ -87,20 +86,19 @@ inherited fEditorEmpresa: TfEditorEmpresa
end
inherited pgPaginas: TPageControl
Width = 668
- Height = 420
- ExplicitTop = 112
+ Height = 423
ExplicitWidth = 668
- ExplicitHeight = 420
+ ExplicitHeight = 423
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 660
- ExplicitHeight = 392
+ ExplicitHeight = 395
inline frViewEmpresa1: TfrViewEmpresa
Left = 0
Top = 0
Width = 660
- Height = 392
+ Height = 395
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -111,23 +109,23 @@ inherited fEditorEmpresa: TfEditorEmpresa
TabOrder = 0
ReadOnly = False
ExplicitWidth = 660
- ExplicitHeight = 392
+ ExplicitHeight = 395
inherited dxLayoutControl1: TdxLayoutControl
Width = 660
- Height = 392
+ Height = 395
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 660
- ExplicitHeight = 392
+ ExplicitHeight = 395
inherited PngSpeedButton1: TPngSpeedButton
- Left = 596
+ Left = 599
Top = 295
- ExplicitLeft = 596
+ ExplicitLeft = 599
ExplicitTop = 295
end
inherited PngSpeedButton2: TPngSpeedButton
- Left = 596
+ Left = 599
Top = 267
- ExplicitLeft = 596
+ ExplicitLeft = 599
ExplicitTop = 267
end
inherited eCalle: TcxDBTextEdit
@@ -161,95 +159,95 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 100
end
inherited eCodigoPostal: TcxDBTextEdit
- Left = 341
+ Left = 343
Top = 297
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 341
+ ExplicitLeft = 343
ExplicitTop = 297
end
inherited ePaginaWeb: TcxDBTextEdit
- Left = 529
+ Left = 531
Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 529
+ ExplicitLeft = 531
ExplicitTop = 216
ExplicitWidth = 165
Width = 165
end
inherited eMailParticular: TcxDBTextEdit
- Left = 529
+ Left = 531
Top = 189
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 529
+ ExplicitLeft = 531
ExplicitTop = 189
ExplicitWidth = 165
Width = 165
end
inherited eMailTrabajo: TcxDBTextEdit
- Left = 529
+ Left = 531
Top = 162
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 529
+ ExplicitLeft = 531
ExplicitTop = 162
ExplicitWidth = 129
Width = 129
end
inherited eTlfParticular: TcxDBTextEdit
- Left = 529
+ Left = 531
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 529
+ ExplicitLeft = 531
ExplicitTop = 57
ExplicitWidth = 91
Width = 91
end
inherited eTlfTrabajo: TcxDBTextEdit
- Left = 529
+ Left = 531
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 529
+ ExplicitLeft = 531
ExplicitTop = 30
ExplicitWidth = 127
Width = 127
end
inherited eTlfMovil: TcxDBTextEdit
- Left = 529
+ Left = 531
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 529
+ ExplicitLeft = 531
ExplicitTop = 84
ExplicitWidth = 155
Width = 155
end
inherited eFax: TcxDBTextEdit
- Left = 529
+ Left = 531
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 529
+ ExplicitLeft = 531
ExplicitTop = 111
ExplicitWidth = 121
Width = 121
@@ -285,13 +283,13 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 76
end
inherited cxDBImage1: TcxDBImage
- Left = 434
+ Left = 436
Top = 267
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 434
+ ExplicitLeft = 436
ExplicitTop = 267
ExplicitWidth = 140
ExplicitHeight = 100
@@ -328,8 +326,6 @@ inherited fEditorEmpresa: TfEditorEmpresa
ExplicitHeight = 150
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewEmpresa1.DADataSource
- ExplicitWidth = 384
- ExplicitHeight = 20
Height = 150
Width = 521
end
@@ -365,12 +361,14 @@ inherited fEditorEmpresa: TfEditorEmpresa
end
object pagDatosBancarios: TTabSheet
Caption = 'Datos bancarios'
+ Enabled = False
ImageIndex = 1
+ TabVisible = False
inline frViewDatosBancarios1: TfrViewDatosBancarios
Left = 0
Top = 0
Width = 660
- Height = 392
+ Height = 395
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -381,12 +379,12 @@ inherited fEditorEmpresa: TfEditorEmpresa
TabOrder = 0
ReadOnly = False
ExplicitWidth = 660
- ExplicitHeight = 392
+ ExplicitHeight = 395
inherited cxGrid: TcxGrid
Width = 660
- Height = 367
+ Height = 370
ExplicitWidth = 660
- ExplicitHeight = 367
+ ExplicitHeight = 370
end
inherited ToolBar1: TToolBar
Width = 660
@@ -403,7 +401,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
Left = 0
Top = 0
Width = 660
- Height = 392
+ Height = 395
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -414,10 +412,10 @@ inherited fEditorEmpresa: TfEditorEmpresa
TabOrder = 0
ReadOnly = False
ExplicitWidth = 660
- ExplicitHeight = 392
+ ExplicitHeight = 395
inherited cxGrid: TcxGrid
Width = 660
- Height = 367
+ Height = 370
ExplicitWidth = 660
ExplicitHeight = 367
inherited cxGridView: TcxGridDBTableView
@@ -429,13 +427,24 @@ 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
end
inherited PnlComentario: TPanel
Width = 674
- ExplicitTop = 79
ExplicitWidth = 674
inherited lbComentario: TLabel
Width = 664
diff --git a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
index 857ec66..61032c9 100644
--- a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
+++ b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
@@ -375,6 +375,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Left = 195
Top = 163
Anchors = [akLeft, akTop, akRight]
+ Enabled = False
Properties.DropDownListStyle = lsEditFixedList
Properties.DropDownRows = 25
Properties.ImmediatePost = True
@@ -443,6 +444,8 @@ inherited frViewEmpresa: TfrViewEmpresa
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = DADataSource
+ ExplicitWidth = 412
+ ExplicitHeight = 110
end
end
object eValidez: TcxDBSpinEdit
@@ -450,6 +453,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Top = 190
DataBinding.DataField = 'VALIDEZ_PRESUPUESTOS'
DataBinding.DataSource = DADataSource
+ Enabled = False
Properties.Alignment.Horz = taRightJustify
Properties.MaxValue = 12.000000000000000000
Style.BorderColor = clWindowFrame
@@ -472,6 +476,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Top = 217
DataBinding.DataField = 'PRECIO_PUNTO'
DataBinding.DataSource = DADataSource
+ Enabled = False
Properties.Alignment.Horz = taRightJustify
Properties.UseLeftAlignmentOnEditing = False
TabOrder = 6
@@ -515,16 +520,22 @@ inherited frViewEmpresa: TfrViewEmpresa
end
object dxLayoutControl1Item18: TdxLayoutItem
Caption = 'Forma de pago por defecto:'
+ Enabled = False
+ Visible = False
Control = cbFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item21: TdxLayoutItem
Caption = 'Meses de validez en presupuestos:'
+ Enabled = False
+ Visible = False
Control = eValidez
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item22: TdxLayoutItem
Caption = 'Precio punto:'
+ Enabled = False
+ Visible = False
Control = ePrecioPunto
ControlOptions.ShowBorder = False
end
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 7dae4e8..a0c3f23 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -65,55 +65,55 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Cliente/uPantallaPrincipal.dfm b/Source/Cliente/uPantallaPrincipal.dfm
index 4823962..657f49a 100644
--- a/Source/Cliente/uPantallaPrincipal.dfm
+++ b/Source/Cliente/uPantallaPrincipal.dfm
@@ -320,6 +320,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
end
object actInformacionEmpresa: TAction
Caption = 'Informaci'#243'n de empresa'
+ ImageIndex = 2
OnExecute = actInformacionEmpresaExecute
OnUpdate = actMenuComprasUpdate
end
@@ -767,6 +768,21 @@ object fPantallaPrincipal: TfPantallaPrincipal
B441F03700F9CE0000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000000EE4944415478DA
+ 63FCFFFF3F0325801164C0D22D27C93225DAC79C116E00904350C3DF7FFF197E
+ FFF9CBF0EBF71F0687E02286733BA6116F00B2E645EB0E30CC5BBA09D3006E6E
+ 6E86AF5FBF82696CE0F9ABB70CBF7FFF6558BEF930760308D90CD20C62AFD97E
+ 0CBF01F85C72FDCE13864D7B4E127601369B7F81E97F0CDB0F9C26EC82B7EF3F
+ 32080BF263B8E0D4C5BB0CFB8F5FC06DC02FA04D2836C2D848E2474E5FC61D0B
+ AFDEBC67101311C41AA047CFDE021B7AEAC2354C03423D4C08DA0C133F7FF526
+ A60101CE86446906B1AFDCBC836980B7BD1EC3920D0789CE071806F44E59485A
+ 4E0202B80194000082585AF04025F9110000000049454E44AE426082}
+ Name = 'PngImage2'
+ Background = clWindow
end>
Left = 251
Top = 213
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index e1875bd..8bbd5c0 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -58,34 +58,34 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res
index 1641339..8b251f3 100644
Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ
diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3
index d2a26c6..1ea5efe 100644
--- a/Source/Informes/1/InfFacturaCliente.fr3
+++ b/Source/Informes/1/InfFacturaCliente.fr3
@@ -1,74 +1,42 @@
-
+
-
+
-
-
-
-
-
-
+
+
-
-
-
-
-
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
+
+
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeIVAClientes.fr3 b/Source/Informes/InformeIVAClientes.fr3
index 8a8a063..0663bb5 100644
--- a/Source/Informes/InformeIVAClientes.fr3
+++ b/Source/Informes/InformeIVAClientes.fr3
@@ -1,34 +1,34 @@
-
+
-
-
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
+
+
-
-
+
+
@@ -37,11 +37,11 @@
-
-
-
-
-
+
+
+
+
+
@@ -56,19 +56,19 @@
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
+
+
+
+
diff --git a/Source/Informes/InformeIVAClientesDesglosado.fr3 b/Source/Informes/InformeIVAClientesDesglosado.fr3
index ac01038..5ba1640 100644
--- a/Source/Informes/InformeIVAClientesDesglosado.fr3
+++ b/Source/Informes/InformeIVAClientesDesglosado.fr3
@@ -1,13 +1,13 @@
-
+
-
-
+
+
@@ -15,20 +15,20 @@
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
-
+
+
@@ -37,11 +37,11 @@
-
-
-
-
-
+
+
+
+
+
@@ -60,19 +60,19 @@
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
+
+
+
+
diff --git a/Source/Informes/InformeIVAProveedores.fr3 b/Source/Informes/InformeIVAProveedores.fr3
deleted file mode 100644
index c0e3435..0000000
--- a/Source/Informes/InformeIVAProveedores.fr3
+++ /dev/null
@@ -1,107 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeIVAProveedoresDesglosado.fr3 b/Source/Informes/InformeIVAProveedoresDesglosado.fr3
deleted file mode 100644
index ddb7dde..0000000
--- a/Source/Informes/InformeIVAProveedoresDesglosado.fr3
+++ /dev/null
@@ -1,111 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoFacturasCliente.fr3 b/Source/Informes/InformeListadoFacturasCliente.fr3
index 008a9db..dec3d8c 100644
--- a/Source/Informes/InformeListadoFacturasCliente.fr3
+++ b/Source/Informes/InformeListadoFacturasCliente.fr3
@@ -1,29 +1,29 @@
-
+
-
-
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
+
+
@@ -37,10 +37,10 @@
-
-
-
-
+
+
+
+
@@ -55,19 +55,19 @@
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
+
+
+
+
diff --git a/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3 b/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3
index 4280f4d..168ddf6 100644
--- a/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3
+++ b/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3
@@ -1,25 +1,25 @@
-
+
-
-
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
@@ -32,19 +32,19 @@
-
-
-
-
+
+
+
+
-
-
-
-
+
+
+
+
@@ -59,19 +59,19 @@
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
+
+
+
+
diff --git a/Source/Informes/InformeListadoFacturasClientePendientes.fr3 b/Source/Informes/InformeListadoFacturasClientePendientes.fr3
index 10f95ba..78c3592 100644
--- a/Source/Informes/InformeListadoFacturasClientePendientes.fr3
+++ b/Source/Informes/InformeListadoFacturasClientePendientes.fr3
@@ -1,23 +1,23 @@
-
+
-
-
+
+
-
-
-
-
-
+
+
+
+
+
@@ -28,9 +28,9 @@
-
-
-
+
+
+
@@ -46,19 +46,19 @@
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
+
+
+
+
diff --git a/Source/Informes/InformeListadoFacturasClientePendientesDesglosado.fr3 b/Source/Informes/InformeListadoFacturasClientePendientesDesglosado.fr3
index f01667d..c7b8bb3 100644
--- a/Source/Informes/InformeListadoFacturasClientePendientesDesglosado.fr3
+++ b/Source/Informes/InformeListadoFacturasClientePendientesDesglosado.fr3
@@ -1,23 +1,23 @@
-
+
-
-
+
+
-
-
-
-
-
+
+
+
+
+
@@ -28,9 +28,9 @@
-
-
-
+
+
+
@@ -50,19 +50,19 @@
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
+
+
+
+
diff --git a/Source/Informes/InformeListadoFacturasProveedor.fr3 b/Source/Informes/InformeListadoFacturasProveedor.fr3
deleted file mode 100644
index 2c9edae..0000000
--- a/Source/Informes/InformeListadoFacturasProveedor.fr3
+++ /dev/null
@@ -1,71 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoFacturasProveedorDesglosado.fr3 b/Source/Informes/InformeListadoFacturasProveedorDesglosado.fr3
deleted file mode 100644
index e699e3e..0000000
--- a/Source/Informes/InformeListadoFacturasProveedorDesglosado.fr3
+++ /dev/null
@@ -1,75 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoFacturasProveedorPendientes.fr3 b/Source/Informes/InformeListadoFacturasProveedorPendientes.fr3
deleted file mode 100644
index c484f5d..0000000
--- a/Source/Informes/InformeListadoFacturasProveedorPendientes.fr3
+++ /dev/null
@@ -1,66 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoFacturasProveedorPendientesDesglosado.fr3 b/Source/Informes/InformeListadoFacturasProveedorPendientesDesglosado.fr3
deleted file mode 100644
index 7901990..0000000
--- a/Source/Informes/InformeListadoFacturasProveedorPendientesDesglosado.fr3
+++ /dev/null
@@ -1,70 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 b/Source/Informes/InformeListadoFacturasRecibosCliente.fr3
deleted file mode 100644
index 227d5ac..0000000
--- a/Source/Informes/InformeListadoFacturasRecibosCliente.fr3
+++ /dev/null
@@ -1,65 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoPresupuestos.fr3 b/Source/Informes/InformeListadoPresupuestos.fr3
deleted file mode 100644
index e820f70..0000000
--- a/Source/Informes/InformeListadoPresupuestos.fr3
+++ /dev/null
@@ -1,42 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoPresupuestosDesglosado.fr3 b/Source/Informes/InformeListadoPresupuestosDesglosado.fr3
deleted file mode 100644
index da24346..0000000
--- a/Source/Informes/InformeListadoPresupuestosDesglosado.fr3
+++ /dev/null
@@ -1,46 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoRecibosCliPendientes.fr3 b/Source/Informes/InformeListadoRecibosCliPendientes.fr3
deleted file mode 100644
index 78408ac..0000000
--- a/Source/Informes/InformeListadoRecibosCliPendientes.fr3
+++ /dev/null
@@ -1,43 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3 b/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3
deleted file mode 100644
index 29fe803..0000000
--- a/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3
+++ /dev/null
@@ -1,47 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoRecibosCliente.fr3 b/Source/Informes/InformeListadoRecibosCliente.fr3
deleted file mode 100644
index 7600f8d..0000000
--- a/Source/Informes/InformeListadoRecibosCliente.fr3
+++ /dev/null
@@ -1,41 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoRecibosClienteDesglosado.fr3 b/Source/Informes/InformeListadoRecibosClienteDesglosado.fr3
deleted file mode 100644
index 2fc26d1..0000000
--- a/Source/Informes/InformeListadoRecibosClienteDesglosado.fr3
+++ /dev/null
@@ -1,45 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoRecibosProvPendientes.fr3 b/Source/Informes/InformeListadoRecibosProvPendientes.fr3
deleted file mode 100644
index 9c1a566..0000000
--- a/Source/Informes/InformeListadoRecibosProvPendientes.fr3
+++ /dev/null
@@ -1,41 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoRecibosProvPendientesDesglosado.fr3 b/Source/Informes/InformeListadoRecibosProvPendientesDesglosado.fr3
deleted file mode 100644
index 3da9ef2..0000000
--- a/Source/Informes/InformeListadoRecibosProvPendientesDesglosado.fr3
+++ /dev/null
@@ -1,45 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoRecibosProveedor.fr3 b/Source/Informes/InformeListadoRecibosProveedor.fr3
deleted file mode 100644
index 029524c..0000000
--- a/Source/Informes/InformeListadoRecibosProveedor.fr3
+++ /dev/null
@@ -1,41 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Informes/InformeListadoRecibosProveedorDesglosado.fr3 b/Source/Informes/InformeListadoRecibosProveedorDesglosado.fr3
deleted file mode 100644
index ea85915..0000000
--- a/Source/Informes/InformeListadoRecibosProveedorDesglosado.fr3
+++ /dev/null
@@ -1,45 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Modulos/Contactos/Contactos_Group.config b/Source/Modulos/Contactos/Contactos_Group.config
deleted file mode 100644
index c8f2834..0000000
--- a/Source/Modulos/Contactos/Contactos_Group.config
+++ /dev/null
@@ -1,2 +0,0 @@
-
-
\ No newline at end of file
diff --git a/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm b/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
index 24aabac..7a57424 100644
--- a/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
+++ b/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
@@ -302,7 +302,7 @@ object PluginContactos: TPluginContactos
end
object actProcedenciasCliente: TAction
Caption = 'Procedencias de cliente'
- ImageIndex = 6
+ ImageIndex = 5
OnExecute = actProcedenciasClienteExecute
end
end
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res
index 8b251f3..1641339 100644
Binary files a/Source/Modulos/Contactos/Views/Contactos_view.res and b/Source/Modulos/Contactos/Views/Contactos_view.res differ
diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
index 60c55e8..d3dd9a0 100644
--- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
@@ -5,7 +5,7 @@ inherited fEditorCliente: TfEditorCliente
ClientHeight = 658
ClientWidth = 937
ExplicitWidth = 945
- ExplicitHeight = 692
+ ExplicitHeight = 685
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -100,21 +100,21 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 923
ExplicitHeight = 499
inherited PngSpeedButton1: TPngSpeedButton
- Left = 861
+ Left = 862
Top = 218
- ExplicitLeft = 861
+ ExplicitLeft = 862
ExplicitTop = 218
end
inherited PngSpeedButton2: TPngSpeedButton
- Left = 861
+ Left = 862
Top = 190
- ExplicitLeft = 861
+ ExplicitLeft = 862
ExplicitTop = 190
end
inherited PngSpeedButton3: TPngSpeedButton
- Left = 861
+ Left = 862
Top = 162
- ExplicitLeft = 861
+ ExplicitLeft = 862
ExplicitTop = 162
end
inherited eCalle: TcxDBTextEdit
@@ -368,7 +368,7 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 521
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewCliente1.dsContacto
- ExplicitWidth = 862
+ ExplicitWidth = 521
Width = 521
end
end
@@ -382,6 +382,7 @@ inherited fEditorCliente: TfEditorCliente
object pagDirecciones: TTabSheet [1]
Caption = 'Direcciones'
ImageIndex = 1
+ TabVisible = False
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
Left = 0
Top = 0
@@ -401,8 +402,8 @@ inherited fEditorCliente: TfEditorCliente
inherited cxGrid: TcxGrid
Width = 923
Height = 474
- ExplicitWidth = 882
- ExplicitHeight = 461
+ ExplicitWidth = 923
+ ExplicitHeight = 474
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn
SortIndex = 0
@@ -412,23 +413,12 @@ inherited fEditorCliente: TfEditorCliente
end
inherited ToolBar1: TToolBar
Width = 923
- ExplicitWidth = 882
- inherited ToolButton1: TToolButton
- ExplicitWidth = 113
- end
- inherited ToolButton4: TToolButton
- ExplicitWidth = 113
- end
- inherited ToolButton2: TToolButton
- ExplicitWidth = 113
- end
- inherited ToolButton7: TToolButton
- ExplicitWidth = 113
- end
+ ExplicitWidth = 923
end
end
end
inherited pagPersonal: TTabSheet [2]
+ TabVisible = False
ExplicitWidth = 923
ExplicitHeight = 499
inherited frViewPersonalContacto1: TfrViewPersonalContacto
@@ -439,12 +429,12 @@ inherited fEditorCliente: TfEditorCliente
inherited cxGrid: TcxGrid
Width = 923
Height = 474
- ExplicitWidth = 882
- ExplicitHeight = 461
+ ExplicitWidth = 923
+ ExplicitHeight = 474
end
inherited ToolBar1: TToolBar
Width = 923
- ExplicitWidth = 882
+ ExplicitWidth = 923
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
@@ -463,6 +453,7 @@ inherited fEditorCliente: TfEditorCliente
object pagDatosComerciales: TTabSheet [3]
Caption = 'Datos comerciales'
ImageIndex = 4
+ TabVisible = False
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
Left = 0
Top = 0
@@ -614,6 +605,7 @@ inherited fEditorCliente: TfEditorCliente
end
end
inherited pagDatosBancarios: TTabSheet [4]
+ TabVisible = False
ExplicitWidth = 923
ExplicitHeight = 499
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
diff --git a/Source/Modulos/Contactos/Views/uEditorClientes.dfm b/Source/Modulos/Contactos/Views/uEditorClientes.dfm
index 427814a..ea188d8 100644
--- a/Source/Modulos/Contactos/Views/uEditorClientes.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorClientes.dfm
@@ -5,7 +5,7 @@ inherited fEditorClientes: TfEditorClientes
ClientHeight = 519
ClientWidth = 786
ExplicitWidth = 794
- ExplicitHeight = 557
+ ExplicitHeight = 546
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -52,17 +52,16 @@ inherited fEditorClientes: TfEditorClientes
Width = 786
ExplicitWidth = 786
inherited tbxMain: TTBXToolbar
- ExplicitWidth = 711
+ ExplicitWidth = 632
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 786
end
inherited TBXTMain2: TTBXToolbar
- Left = 276
+ Left = 275
DockPos = 275
- Visible = True
- ExplicitLeft = 276
- ExplicitWidth = 91
+ ExplicitLeft = 275
+ ExplicitWidth = 83
object TBXItem38: TTBXItem
Action = actInformes
DisplayMode = nbdmImageAndText
@@ -77,9 +76,9 @@ inherited fEditorClientes: TfEditorClientes
end
inline frViewClientes1: TfrViewClientes [3]
Left = 0
- Top = 106
+ Top = 102
Width = 786
- Height = 394
+ Height = 398
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -89,14 +88,14 @@ inherited fEditorClientes: TfEditorClientes
ParentFont = False
TabOrder = 3
ReadOnly = False
- ExplicitTop = 106
+ ExplicitTop = 102
ExplicitWidth = 786
- ExplicitHeight = 394
+ ExplicitHeight = 398
inherited cxGrid: TcxGrid
Width = 786
- Height = 266
+ Height = 270
ExplicitWidth = 786
- ExplicitHeight = 266
+ ExplicitHeight = 270
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@@ -157,8 +156,8 @@ inherited fEditorClientes: TfEditorClientes
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
- Top = 368
- ExplicitTop = 368
+ Top = 372
+ ExplicitTop = 372
ExplicitWidth = 786
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 786
diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.dfm b/Source/Modulos/Contactos/Views/uEditorContactos.dfm
index 67952d3..9a66b54 100644
--- a/Source/Modulos/Contactos/Views/uEditorContactos.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorContactos.dfm
@@ -2,6 +2,7 @@ inherited fEditorContactos: TfEditorContactos
Left = 285
Top = 448
Caption = 'Lista de contactos'
+ ExplicitWidth = 320
ExplicitHeight = 482
PixelsPerInch = 96
TextHeight = 13
@@ -13,7 +14,7 @@ inherited fEditorContactos: TfEditorContactos
ExplicitWidth = 543
end
inherited tbxFiltro: TTBXToolbar
- ExplicitWidth = 276
+ ExplicitWidth = 269
inherited tbxEditFiltro: TTBXEditItem
EditOptions = [tboUseEditWhenVertical]
end
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index 0b79af8..2672a58 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
@@ -593,9 +593,11 @@ begin
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
REFERENCIA := ''; //Para que se asigne una nueva
+ REFERENCIA_PRESUPUESTO := ''; //Para que se asigne una nueva
SITUACION := CTE_PENDIENTE; //Al ser una nueva debe de estar pendiente
FECHA_FACTURA := DateOf(Now);
ID_COMISION_LIQUIDADA := 0;
+ OBSERVACIONES.Clear;
{$IFDEF CONTABILIDAD}
ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
@@ -896,6 +898,7 @@ var
begin
Result := True;
+{
AComentario := Null;
if not Assigned(AFactura) then
diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
index 52bcbc4..9ab609b 100644
--- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
@@ -346,6 +346,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DataType = datSmallInt
DisplayLabel = 'FacturasCliente_SIN_COMISION'
DictionaryEntry = 'FacturasCliente_SIN_COMISION'
+ end
+ item
+ Name = 'REFERENCIA_PRESUPUESTO'
+ DataType = datString
+ Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
index 4e7d23a..8806287 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
@@ -3,15 +3,15 @@ unit schFacturasClienteClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosFacturas = '{C9E93D4F-3A5E-4C8E-8305-B2AAB8E41C83}';
- RID_FacturasCliente = '{240D687B-A424-48A6-87C4-B55E1910A62F}';
- RID_FacturasCliente_Detalles = '{103A3F35-8D1F-4517-AFFF-023722C59B2A}';
+ RID_ListaAnosFacturas = '{4FB44137-F728-4E8D-8D74-69487A7AC43A}';
+ RID_FacturasCliente = '{BFB7896A-EEAB-4F0C-9109-BAB209348E84}';
+ RID_FacturasCliente_Detalles = '{7586225E-B066-4C1D-B3C1-D5620D73D814}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -75,6 +75,7 @@ const
fld_FacturasClienteREF_CONTRATO = 'REF_CONTRATO';
fld_FacturasClienteREF_CLI_CONTRATO = 'REF_CLI_CONTRATO';
fld_FacturasClienteSIN_COMISION = 'SIN_COMISION';
+ fld_FacturasClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO';
{ FacturasCliente field indexes }
idx_FacturasClienteID = 0;
@@ -127,6 +128,7 @@ const
idx_FacturasClienteREF_CONTRATO = 47;
idx_FacturasClienteREF_CLI_CONTRATO = 48;
idx_FacturasClienteSIN_COMISION = 49;
+ idx_FacturasClienteREFERENCIA_PRESUPUESTO = 50;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@@ -165,7 +167,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
- ['{05716F30-A380-4511-8D1C-1CB66CE89B74}']
+ ['{15A2EAF7-43DA-4695-BBFA-DD864D47A79F}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -179,7 +181,7 @@ type
end;
{ TListaAnosFacturasDataTableRules }
- TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
+ TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
private
protected
{ Property getters and setters }
@@ -200,7 +202,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
- ['{FFCE2216-A516-4FFC-B701-559E5CA69879}']
+ ['{DCCE714A-24FC-4693-A768-AE271A87BD4B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -401,6 +403,10 @@ type
procedure SetSIN_COMISIONValue(const aValue: SmallInt);
function GetSIN_COMISIONIsNull: Boolean;
procedure SetSIN_COMISIONIsNull(const aValue: Boolean);
+ function GetREFERENCIA_PRESUPUESTOValue: String;
+ procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String);
+ function GetREFERENCIA_PRESUPUESTOIsNull: Boolean;
+ procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean);
{ Properties }
@@ -504,10 +510,12 @@ type
property REF_CLI_CONTRATOIsNull: Boolean read GetREF_CLI_CONTRATOIsNull write SetREF_CLI_CONTRATOIsNull;
property SIN_COMISION: SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue;
property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
+ property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
+ property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
end;
{ TFacturasClienteDataTableRules }
- TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
+ TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -712,6 +720,10 @@ type
procedure SetSIN_COMISIONValue(const aValue: SmallInt); virtual;
function GetSIN_COMISIONIsNull: Boolean; virtual;
procedure SetSIN_COMISIONIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_PRESUPUESTOValue: String; virtual;
+ procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
+ function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -814,6 +826,8 @@ type
property REF_CLI_CONTRATOIsNull: Boolean read GetREF_CLI_CONTRATOIsNull write SetREF_CLI_CONTRATOIsNull;
property SIN_COMISION: SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue;
property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
+ property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
+ property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -823,7 +837,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{2B6FCA91-CF89-45F3-B606-258098698EBE}']
+ ['{EC03457E-43B2-4E08-A995-24CBF1341748}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -921,7 +935,7 @@ type
end;
{ TFacturasCliente_DetallesDataTableRules }
- TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
+ TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
private
protected
{ Property getters and setters }
@@ -2129,6 +2143,27 @@ begin
DataTable.Fields[idx_FacturasClienteSIN_COMISION].AsVariant := Null;
end;
+function TFacturasClienteDataTableRules.GetREFERENCIA_PRESUPUESTOValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsString;
+end;
+
+procedure TFacturasClienteDataTableRules.SetREFERENCIA_PRESUPUESTOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsString := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetREFERENCIA_PRESUPUESTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsVariant := Null;
+end;
+
{ TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
index 24d1d93..fb6f771 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
@@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosFacturasDelta = '{42E63B9E-C30F-4EC7-94CA-5E04DD371267}';
- RID_FacturasClienteDelta = '{5001B597-C42F-43E3-8F12-76971C88F8E8}';
- RID_FacturasCliente_DetallesDelta = '{E16AF380-A076-4EDB-9CB4-5446DBF8C9AE}';
+ RID_ListaAnosFacturasDelta = '{263E7CFE-EAF5-4A59-994D-C319488DE385}';
+ RID_FacturasClienteDelta = '{D73F0972-622D-4F89-A8AC-DC65E3205A58}';
+ RID_FacturasCliente_DetallesDelta = '{E5E8C1DD-3188-42A6-AA15-C0FD7AC9B68B}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
- ['{42E63B9E-C30F-4EC7-94CA-5E04DD371267}']
+ ['{263E7CFE-EAF5-4A59-994D-C319488DE385}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
- ['{5001B597-C42F-43E3-8F12-76971C88F8E8}']
+ ['{D73F0972-622D-4F89-A8AC-DC65E3205A58}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -102,6 +102,7 @@ type
function GetOldREF_CONTRATOValue : String;
function GetOldREF_CLI_CONTRATOValue : String;
function GetOldSIN_COMISIONValue : SmallInt;
+ function GetOldREFERENCIA_PRESUPUESTOValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -154,6 +155,7 @@ type
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
property OldREF_CLI_CONTRATO : String read GetOldREF_CLI_CONTRATOValue;
property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
+ property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
end;
{ TFacturasClienteBusinessProcessorRules }
@@ -462,6 +464,12 @@ type
function GetOldSIN_COMISIONIsNull: Boolean; virtual;
procedure SetSIN_COMISIONValue(const aValue: SmallInt); virtual;
procedure SetSIN_COMISIONIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_PRESUPUESTOValue: String; virtual;
+ function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_PRESUPUESTOValue: String; virtual;
+ function GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -664,6 +672,10 @@ type
property SIN_COMISIONIsNull : Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
property OldSIN_COMISIONIsNull : Boolean read GetOldSIN_COMISIONIsNull;
+ property REFERENCIA_PRESUPUESTO : String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
+ property REFERENCIA_PRESUPUESTOIsNull : Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
+ property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
+ property OldREFERENCIA_PRESUPUESTOIsNull : Boolean read GetOldREFERENCIA_PRESUPUESTOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -673,7 +685,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
- ['{E16AF380-A076-4EDB-9CB4-5446DBF8C9AE}']
+ ['{E5E8C1DD-3188-42A6-AA15-C0FD7AC9B68B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -2490,6 +2502,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSIN_COMISION] := Null;
end;
+function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_PRESUPUESTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_PRESUPUESTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_PRESUPUESTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_PRESUPUESTOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO] := Null;
+end;
+
{ TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
index 50cf8ca..978df4d 100644
--- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
+++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
@@ -72,6 +72,10 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
end
+ item
+ DatasetField = 'FECHA_VENCIMIENTO'
+ TableField = 'FECHA_VENCIMIENTO'
+ end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
@@ -116,6 +120,18 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
+ item
+ DatasetField = 'REFERENCIA_CLIENTE'
+ TableField = 'REFERENCIA_CLIENTE'
+ end
+ item
+ DatasetField = 'NOMBRE_CLIENTE'
+ TableField = 'NOMBRE_CLIENTE'
+ end
+ item
+ DatasetField = 'NOMBRE_COMERCIAL_CLIENTE'
+ TableField = 'NOMBRE_COMERCIAL_CLIENTE'
+ end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
@@ -124,6 +140,10 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
+ item
+ DatasetField = 'ID_DIRECCION'
+ TableField = 'ID_DIRECCION'
+ end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
@@ -200,18 +220,6 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'SUBCUENTA'
TableField = 'SUBCUENTA'
end
- item
- DatasetField = 'NOMBRE_CLIENTE'
- TableField = 'NOMBRE_CLIENTE'
- end
- item
- DatasetField = 'NOMBRE_COMERCIAL_CLIENTE'
- TableField = 'NOMBRE_COMERCIAL_CLIENTE'
- end
- item
- DatasetField = 'FECHA_VENCIMIENTO'
- TableField = 'FECHA_VENCIMIENTO'
- end
item
DatasetField = 'ID_EJERCICIO'
TableField = 'ID_EJERCICIO'
@@ -224,10 +232,6 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'ASIENTO_PUNTEADO'
TableField = 'ASIENTO_PUNTEADO'
end
- item
- DatasetField = 'ID_DIRECCION'
- TableField = 'ID_DIRECCION'
- end
item
DatasetField = 'ID_CONTRATO'
TableField = 'ID_CONTRATO'
@@ -236,17 +240,17 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'REF_CONTRATO'
TableField = 'REF_CONTRATO'
end
+ item
+ DatasetField = 'REF_CLI_CONTRATO'
+ TableField = 'REF_CLI_CONTRATO'
+ end
item
DatasetField = 'SIN_COMISION'
TableField = 'SIN_COMISION'
end
item
- DatasetField = 'REFERENCIA_CLIENTE'
- TableField = 'REFERENCIA_CLIENTE'
- end
- item
- DatasetField = 'REF_CLI_CONTRATO'
- TableField = 'REF_CLI_CONTRATO'
+ DatasetField = 'REFERENCIA_PRESUPUESTO'
+ TableField = 'REFERENCIA_PRESUPUESTO'
end>
end>
Name = 'FacturasCliente'
@@ -524,6 +528,11 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'SIN_COMISION'
DataType = datSmallInt
DictionaryEntry = 'FacturasCliente_SIN_COMISION'
+ end
+ item
+ Name = 'REFERENCIA_PRESUPUESTO'
+ DataType = datString
+ Size = 255
end>
end
item
@@ -1126,6 +1135,12 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datString
Size = 255
Value = ''
+ end
+ item
+ Name = 'REFERENCIA_PRESUPUESTO'
+ DataType = datString
+ Size = 255
+ Value = ''
end>
Statements = <
item
@@ -1142,16 +1157,17 @@ object srvFacturasCliente: TsrvFacturasCliente
'RIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IV' +
'A,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD' +
','#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SIN_COMISION,'#10' SITUACIO' +
- 'N)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FE' +
- 'CHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :BASE_IMPONIBLE,'#10' :D' +
- 'ESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' ' +
- ' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10 +
- ' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,'#10' :POB' +
- 'LACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' CURRENT_TIMESTAM' +
- 'P,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10 +
- ' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :IG' +
- 'NORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10' :ID_CONTRATO,'#10' :SIN_C' +
- 'OMISION,'#10' :SITUACION);'#10
+ 'N,'#10' REFERENCIA_PRESUPUESTO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRE' +
+ 'SA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,' +
+ #10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' ' +
+ ' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE' +
+ '_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :' +
+ 'NOMBRE,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_' +
+ 'POSTAL,'#10' CURRENT_TIMESTAMP,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,' +
+ #10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,' +
+ #10' :IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10 +
+ ' :ID_CONTRATO,'#10' :SIN_COMISION,'#10' :SITUACION,'#10' :REFERE' +
+ 'NCIA_PRESUPUESTO);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1323,6 +1339,12 @@ object srvFacturasCliente: TsrvFacturasCliente
Size = 255
Value = ''
end
+ item
+ Name = 'REFERENCIA_PRESUPUESTO'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
item
Name = 'OLD_ID'
Value = ''
@@ -1348,7 +1370,8 @@ object srvFacturasCliente: TsrvFacturasCliente
'TO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNO' +
'RAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TI' +
'ENDA,'#10' ID_CONTRATO = :ID_CONTRATO,'#10' SIN_COMISION = :SIN_CO' +
- 'MISION,'#10' SITUACION = :SITUACION'#10' WHERE'#10' (ID = :OLD_ID);'#10
+ 'MISION,'#10' SITUACION = :SITUACION,'#10' REFERENCIA_PRESUPUESTO =' +
+ ' :REFERENCIA_PRESUPUESTO'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
index 8617324..e24eef4 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
@@ -13,7 +13,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 922
Caption = 'Nueva factura de cliente'
- ExplicitWidth = 860
+ ExplicitWidth = 922
inherited Image1: TImage
Left = 895
Picture.Data = {
@@ -40,7 +40,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
inherited TBXDock: TTBXDock
Width = 922
- ExplicitWidth = 860
+ ExplicitWidth = 922
inherited tbxMain: TTBXToolbar
ExplicitWidth = 488
inherited TBXItem2: TTBXItem
@@ -75,20 +75,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
item
Width = 200
end>
- ExplicitTop = 643
- ExplicitWidth = 860
+ ExplicitTop = 686
+ ExplicitWidth = 922
end
inherited pgPaginas: TPageControl
Width = 916
Height = 411
OnChanging = pgPaginasChanging
- ExplicitWidth = 854
- ExplicitHeight = 368
+ ExplicitWidth = 916
+ ExplicitHeight = 411
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
- ExplicitWidth = 846
- ExplicitHeight = 340
+ ExplicitWidth = 908
+ ExplicitHeight = 383
inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0
Top = 0
@@ -103,13 +103,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 846
- ExplicitHeight = 340
+ ExplicitWidth = 908
+ ExplicitHeight = 383
inherited dxLayoutControl1: TdxLayoutControl
Width = 908
Height = 383
- ExplicitWidth = 846
- ExplicitHeight = 340
+ ExplicitWidth = 908
+ ExplicitHeight = 383
inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@@ -270,8 +270,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
- ExplicitWidth = 846
- ExplicitHeight = 340
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0
Top = 0
@@ -288,8 +286,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 846
- ExplicitHeight = 340
+ ExplicitWidth = 908
+ ExplicitHeight = 383
inherited ToolBar1: TToolBar
Width = 908
Height = 24
@@ -319,57 +317,57 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 57
end
inherited UpDown1: TUpDown
- Left = 585
+ Left = 570
Top = 0
- ExplicitLeft = 585
+ ExplicitLeft = 570
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
- Left = 602
+ Left = 587
Top = 0
- ExplicitLeft = 602
+ ExplicitLeft = 587
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
- Left = 610
+ Left = 595
Top = 0
- ExplicitLeft = 610
+ ExplicitLeft = 595
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
- Left = 644
+ Left = 629
Top = 0
- ExplicitLeft = 644
+ ExplicitLeft = 629
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
- Left = 678
+ Left = 663
Top = 0
- ExplicitLeft = 678
+ ExplicitLeft = 663
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
- Left = 712
+ Left = 697
Top = 0
- ExplicitLeft = 712
+ ExplicitLeft = 697
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
- Left = 720
+ Left = 705
Top = 0
- ExplicitLeft = 720
+ ExplicitLeft = 705
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
- Left = 754
+ Left = 739
Top = 0
- ExplicitLeft = 754
+ ExplicitLeft = 739
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
- Left = 788
+ Left = 773
Top = 0
- ExplicitLeft = 788
+ ExplicitLeft = 773
ExplicitTop = 0
end
end
@@ -386,9 +384,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 908
ExplicitTop = 24
ExplicitWidth = 908
- inherited TBXToolbar1: TTBXToolbar
- ExplicitWidth = 548
- end
end
inherited cxRichEdit1: TcxRichEdit
Style.IsFontAssigned = True
@@ -399,8 +394,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Caption = 'Contabilidad'
ImageIndex = 2
TabVisible = False
- ExplicitWidth = 846
- ExplicitHeight = 340
inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 0
Top = 0
@@ -415,11 +408,11 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 846
+ ExplicitWidth = 908
ExplicitHeight = 73
inherited dxLayoutControl1: TdxLayoutControl
Width = 908
- ExplicitWidth = 846
+ ExplicitWidth = 908
inherited cbSubCuentas: TcxComboBox
Left = 85
Style.LookAndFeel.SkinName = ''
@@ -452,7 +445,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited PnlComentario: TPanel
Width = 922
TabOrder = 5
- ExplicitWidth = 860
+ ExplicitWidth = 922
inherited lbComentario: TLabel
Width = 912
Height = 25
@@ -472,13 +465,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False
TabOrder = 4
ReadOnly = False
- ExplicitTop = 480
- ExplicitWidth = 860
+ ExplicitTop = 523
+ ExplicitWidth = 922
ExplicitHeight = 163
inherited dxLayoutControl1: TdxLayoutControl
Width = 922
LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1
- ExplicitWidth = 860
+ ExplicitWidth = 922
inherited Bevel3: TBevel
Left = 489
Top = 30
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
index 32f49a0..b2d24d5 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
@@ -310,9 +310,9 @@ var
AVerLogotipo: Boolean;
begin
inherited;
- AVerLogotipo:= False;
- if(AppFactuGES.EmpresaActiva.IVA > 0) then
- AVerLogotipo := (Application.MessageBox('¿Desea imprimir el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
+ AVerLogotipo:= True;
+// if(AppFactuGES.EmpresaActiva.IVA > 0) then
+// AVerLogotipo := (Application.MessageBox('¿Desea imprimir el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Print(FFactura, False, aVerLogotipo);
end;
@@ -365,7 +365,7 @@ begin
if Assigned(FFactura) then
begin
APrimerCliente := (FFactura.Cliente.ID = 0);
-
+{
if (ShowConfirmMessage('Cambio forma de pago', '¿Desea actualizar la forma de pago a la asignada en la ficha del cliente seleccionado?') = IDYES) then
FController.ActualizarFormaDePago(FFactura, FFactura.Cliente.ID_FORMA_PAGO);
@@ -378,6 +378,7 @@ begin
ShowInfoMessage('Se han actualizado las líneas con el descuento del cliente seleccionado');
end;
end;
+}
end;
end;
@@ -434,8 +435,8 @@ var
begin
inherited;
AVerLogotipo:= False;
- if(AppFactuGES.EmpresaActiva.IVA > 0) then
- AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
+// if(AppFactuGES.EmpresaActiva.IVA > 0) then
+// AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Preview(FFactura, False, AVerLogotipo);
end;
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
index c363a4a..66e839e 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
@@ -3805,10 +3805,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
item
Caption = 'Listado de IVA.'
Value = 200
- end
- item
- Caption = 'Listado facturas/cobros del cliente seleccionado'
- Value = 400
end>
ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
index 11b1900..52c44bd 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
@@ -328,10 +328,6 @@ begin
if Assigned(AFacturas) then
begin
- if(AppFactuGES.EmpresaActiva.IVA > 0) then
- AVerLogotipo := (Application.MessageBox('¿Desea imprimir el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES)
- else
- AVerLogotipo := False;
FController.Print(AFacturas, AllItems, AVerLogotipo);
end;
end;
@@ -443,10 +439,6 @@ begin
if Assigned(AFacturas) then
begin
- if(AppFactuGES.EmpresaActiva.IVA > 0) then
- AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES)
- else
- AVerLogotipo := False;
FController.Preview(AFacturas, AllItems, AVerLogotipo);
end;
end;
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
index be73651..5452053 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
@@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente
- Width = 1061
- Height = 533
+ Width = 451
+ Height = 304
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@@ -9,19 +9,17 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
- Width = 1061
- Height = 533
+ Width = 451
+ Height = 304
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
- ExplicitWidth = 451
- ExplicitHeight = 304
DesignSize = (
- 1061
- 533)
+ 451
+ 304)
object eReferencia: TcxDBTextEdit
Left = 135
Top = 30
@@ -66,7 +64,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
object cbFormaPago: TcxDBLookupComboBox
Left = 135
- Top = 135
+ Top = 162
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Enabled = False
@@ -94,22 +92,22 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 3
+ TabOrder = 4
Width = 78
end
object bFormasPago: TButton
- Left = 399
- Top = 135
+ Left = 297
+ Top = 162
Width = 132
Height = 23
Caption = 'Ver las formas de pago...'
Enabled = False
- TabOrder = 4
+ TabOrder = 5
OnClick = bFormasPagoClick
end
inline frViewTienda1: TfrViewTienda
Left = 22
- Top = 269
+ Top = 296
Width = 351
Height = 48
Enabled = False
@@ -119,10 +117,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 8
+ TabOrder = 9
ReadOnly = False
ExplicitLeft = 22
- ExplicitTop = 269
+ ExplicitTop = 296
ExplicitWidth = 351
ExplicitHeight = 48
inherited dxLayoutControl1: TdxLayoutControl
@@ -142,7 +140,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
end
inline frViewClienteFactura1: TfrViewClienteFactura
- Left = 559
+ Left = 457
Top = 30
Width = 398
Height = 265
@@ -152,9 +150,9 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 10
+ TabOrder = 11
ReadOnly = False
- ExplicitLeft = 559
+ ExplicitLeft = 457
ExplicitTop = 30
ExplicitWidth = 398
ExplicitHeight = 265
@@ -184,12 +182,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
- Left = 388
- ExplicitLeft = 388
+ Left = 192
+ ExplicitLeft = 192
end
inherited Button3: TBitBtn
- Left = 278
- ExplicitLeft = 278
+ Left = 82
+ ExplicitLeft = 82
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
@@ -199,7 +197,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
object edtFechaVencimiento: TcxDBDateEdit
Left = 135
- Top = 164
+ Top = 191
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
@@ -220,12 +218,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 5
+ TabOrder = 6
Width = 310
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 22
- Top = 398
+ Top = 425
Width = 521
Height = 20
Font.Charset = DEFAULT_CHARSET
@@ -234,10 +232,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 11
+ TabOrder = 12
ReadOnly = False
ExplicitLeft = 22
- ExplicitTop = 398
+ ExplicitTop = 425
ExplicitHeight = 20
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
@@ -248,7 +246,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
object cbRecargoEquivalencia: TcxDBCheckBox
Left = 22
- Top = 347
+ Top = 374
Caption = ' No acogida a comisiones'
DataBinding.DataField = 'SIN_COMISION'
DataBinding.DataSource = DADataSource
@@ -274,12 +272,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 9
+ TabOrder = 10
Width = 158
end
object edtSituacion: TcxDBComboBox
Left = 135
- Top = 84
+ Top = 111
DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
@@ -288,12 +286,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
'PENDIENTE'
'PARCIALMENTE PAGADA'
'PAGADA')
- TabOrder = 2
+ TabOrder = 3
Width = 121
end
object edtRefContrato: TcxDBTextEdit
Left = 135
- Top = 215
+ Top = 242
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'REF_CONTRATO'
@@ -310,13 +308,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 6
+ TabOrder = 7
Height = 21
Width = 294
end
object edtRefClienteContrato: TcxDBTextEdit
Left = 135
- Top = 242
+ Top = 269
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'REF_CLI_CONTRATO'
@@ -333,10 +331,30 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 7
+ TabOrder = 8
Height = 21
Width = 294
end
+ object edtReferenciaPresupuesto: TcxDBTextEdit
+ Left = 135
+ Top = 84
+ Anchors = [akLeft, akTop, akRight]
+ DataBinding.DataField = 'REFERENCIA_PRESUPUESTO'
+ DataBinding.DataSource = DADataSource
+ Properties.ReadOnly = False
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Color = clInfoBk
+ Style.HotTrack = False
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.Color = clMenuBar
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 2
+ Width = 294
+ end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -366,6 +384,11 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Control = edtFecha
ControlOptions.ShowBorder = False
end
+ object dxLayoutControl1Item11: TdxLayoutItem
+ Caption = 'Ref. presupuesto:'
+ Control = edtReferenciaPresupuesto
+ ControlOptions.ShowBorder = False
+ end
object ledtSituacion: TdxLayoutItem
Caption = 'Situaci'#243'n:'
Control = edtSituacion
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
index f1b929d..4132821 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
@@ -64,6 +64,8 @@ type
edtRefContrato: TcxDBTextEdit;
dxLayoutControl1Item9: TdxLayoutItem;
edtRefClienteContrato: TcxDBTextEdit;
+ dxLayoutControl1Item11: TdxLayoutItem;
+ edtReferenciaPresupuesto: TcxDBTextEdit;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
index 60a1a7c..ebc84b8 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
@@ -56,6 +56,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
SortOrder = soDescending
Width = 28
end
+ object cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn
+ Caption = 'Ref. presupuesto'
+ DataBinding.FieldName = 'REFERENCIA_PRESUPUESTO'
+ end
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
Caption = 'Nombre comercial'
DataBinding.FieldName = 'NOMBRE_COMERCIAL_CLIENTE'
@@ -169,9 +173,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Visible = False
VisibleForCustomization = False
end
- object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
- DataBinding.FieldName = 'FECHA_VENCIMIENTO'
- end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todas'
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
index cdaa845..dd8d36a 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
@@ -61,7 +61,7 @@ type
cxGridViewIMPORTE_RE: TcxGridDBColumn;
cxGridViewRE: TcxGridDBColumn;
cxGridViewREF_CONTRATO: TcxGridDBColumn;
- cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
+ cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn;
cxGridViewREF_CLI_CONTRATO: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
diff --git a/Source/Modulos/Formas de pago/Plugin/uPluginFormasPago.dfm b/Source/Modulos/Formas de pago/Plugin/uPluginFormasPago.dfm
index 21628f0..d6bc045 100644
--- a/Source/Modulos/Formas de pago/Plugin/uPluginFormasPago.dfm
+++ b/Source/Modulos/Formas de pago/Plugin/uPluginFormasPago.dfm
@@ -53,7 +53,9 @@ object PluginFormasPago: TPluginFormasPago
object actFormasPago: TAction
Category = 'FormasPago'
Caption = 'Formas de pago'
+ Enabled = False
ImageIndex = 0
+ Visible = False
OnExecute = actFormasPagoExecute
end
end
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 8edba57..c88857a 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -134,14 +134,14 @@ uses
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
- schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
- schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
- schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
+ schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
+ schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
+ schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index b81ce35..8713c69 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,308 +1,311 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
-
-
- Delphi.Personality
-
-
- FalseTrueFalseTrueFalse2630FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.3.0FactuGES (Servidor)2.6.3.0martes, 08 de octubre de 2013 18:53
- File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
- TRORemoteDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+
+
+ Delphi.Personality
+
+
+FalseTrueFalseTrueFalse2630FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.3.0FactuGES (Servidor)2.6.3.0martes, 08 de octubre de 2013 18:53
+
+ File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
+ FactuGES_Server.dprTrue
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TRORemoteDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+