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

Se repasa codigo porque seguia fallando lo de los espacios en calidades y el codigo postal de rivas acaba en 22

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@589 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2014-03-19 18:02:06 +00:00
parent 51d3eb228f
commit e1970d854d
10 changed files with 90 additions and 99 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Source/Informes/5/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/5/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

72
Source/Informes/5/InfReciboCliente.fr3
View File

File diff suppressed because one or more lines are too long

12
Source/Informes/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

18
Source/Informes/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

3
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -916,7 +916,6 @@ begin
APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO));
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO));
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO));
APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO));
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO);
if (ACadena <> '') then
APresupuesto.CALIDADES.Add(ACadena);
@ -941,7 +940,6 @@ begin
APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO));
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO));
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO));
APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO));
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO);
if (ACadena <> '') then
APresupuesto.CALIDADES.Add(ACadena);
@ -953,7 +951,6 @@ begin
APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_OBRA));
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA));
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA));
APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA));
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA);
if (ACadena <> '') then
APresupuesto.CALIDADES.Add(ACadena);

63
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -171,17 +171,17 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
item
Width = 200
end>
ExplicitTop = 657
ExplicitTop = 782
ExplicitWidth = 848
end
inherited pgPaginas: TPageControl
Width = 842
Height = 442
ActivePage = pagCalidades
ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 842
ExplicitHeight = 317
ExplicitHeight = 442
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
@ -191,7 +191,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitHeight = 289
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
Left = 0
Top = 0
@ -209,7 +208,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 834
ExplicitHeight = 289
ExplicitHeight = 414
inherited ToolBar1: TToolBar
Width = 834
Height = 24
@ -239,57 +238,57 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 587
Left = 571
Top = 0
ExplicitLeft = 587
ExplicitLeft = 571
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 604
Left = 588
Top = 0
ExplicitLeft = 604
ExplicitLeft = 588
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 612
Left = 596
Top = 0
ExplicitLeft = 612
ExplicitLeft = 596
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 646
Left = 630
Top = 0
ExplicitLeft = 646
ExplicitLeft = 630
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 680
Left = 664
Top = 0
ExplicitLeft = 680
ExplicitLeft = 664
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 714
Left = 698
Top = 0
ExplicitLeft = 714
ExplicitLeft = 698
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 722
Left = 706
Top = 0
ExplicitLeft = 722
ExplicitLeft = 706
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 756
Left = 740
Top = 0
ExplicitLeft = 756
ExplicitLeft = 740
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 790
Left = 774
Top = 0
ExplicitLeft = 790
ExplicitLeft = 774
ExplicitTop = 0
end
end
@ -299,7 +298,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Height = 364
ExplicitTop = 50
ExplicitWidth = 834
ExplicitHeight = 239
ExplicitHeight = 364
end
inherited TBXDock1: TTBXDock
Top = 24
@ -307,7 +306,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 24
ExplicitWidth = 834
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 663
ExplicitWidth = 665
end
end
inherited cxLookupComboBox1: TcxLookupComboBox
@ -324,7 +323,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagCalidades: TTabSheet
Caption = 'Calidades'
ImageIndex = 4
ExplicitHeight = 289
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
@ -334,7 +332,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 289
object memCalidades: TcxDBMemo
Left = 10
Top = 10
@ -373,7 +370,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitHeight = 289
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@ -389,7 +385,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 834
ExplicitHeight = 289
ExplicitHeight = 414
inherited pnlSup: TPanel
Width = 834
ExplicitWidth = 834
@ -401,10 +397,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 834
Height = 386
ExplicitWidth = 834
ExplicitHeight = 261
ExplicitHeight = 386
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 830
ExplicitHeight = 244
ExplicitHeight = 369
Height = 369
Width = 830
end
@ -414,7 +410,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagDocumentos: TTabSheet
Caption = 'Documentos'
ImageIndex = 5
ExplicitHeight = 289
inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente
Left = 0
Top = 0
@ -430,7 +425,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 834
ExplicitHeight = 289
ExplicitHeight = 414
inherited TBXDock: TTBXDock
Width = 834
ExplicitWidth = 834
@ -470,7 +465,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ParentFont = False
TabOrder = 5
ReadOnly = False
ExplicitTop = 429
ExplicitTop = 554
ExplicitWidth = 848
ExplicitHeight = 228
inherited dxLayoutControl1: TdxLayoutControl

1
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
View File

@ -2,7 +2,6 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn
Visible = True
VisibleForCustomization = False
end
object cxGridViewTIPO_ARTICULO: TcxGridDBColumn [3]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.5.6.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.5.6.0\0"
VALUE "CompileDate", "miércoles, 26 de febrero de 2014 14:07\0"
VALUE "CompileDate", "miércoles, 19 de marzo de 2014 18:35\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.