diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index 78e3587..7a363e3 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Build/Build.fbpInf b/Build/Build.fbpInf
index f35545f..6efef5e 100644
--- a/Build/Build.fbpInf
+++ b/Build/Build.fbpInf
@@ -14,8 +14,8 @@
- 00:00:41
- 25/04/2013 12:54:13
+ 00:00:00
+ 26/04/2013 13:00:52
False
diff --git a/Build/Build.fbz6 b/Build/Build.fbz6
index 8c66e62..fa03048 100644
Binary files a/Build/Build.fbz6 and b/Build/Build.fbz6 differ
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index 49bbcfb..547af96 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -58,34 +58,34 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj
index 252da7f..523c633 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj
+++ b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj
@@ -41,17 +41,17 @@
Delphi.Personality
Package
-FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0AlbaranesCliente_controller.dpk
+FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0AlbaranesCliente_controller.dpk
MainSource
-
-
-
-
+
+
+
+
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas
index f9dc910..e5cfe72 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas
+++ b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas
@@ -39,7 +39,7 @@ type
implementation
-uses Dialogs, uDialogUtils, Variants, uControllerDetallesBase,
+uses Dialogs, uDialogUtils, Variants, uControllerDetallesBase, uFactuGES_App,
uCalculosUtils, uDataModuleAlbaranesCliente, uArticulosAlbaranClienteController;
{ TDetallesAlbaranClienteController }
@@ -51,9 +51,10 @@ begin
if Assigned(ADetalles) then
begin
try
- AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
- ActualizarDetalles(ADetalles, AArticulos);
- //ShowInfoMessage('Se han actualizado los descuentos para el cliente seleccionado'); <- No sacarlo en Acana
+// AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
+// ActualizarDetalles(ADetalles, AArticulos);
+ ActualizarDetalles(ADetalles, ACliente.DESCUENTO_LINEA);
+ ShowInfoMessage('Se han actualizado los descuentos para el cliente seleccionado');
finally
AArticulos := Nil;
end;
@@ -134,7 +135,17 @@ end;
procedure TDetallesAlbaranClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
+var
+ ACadena : String;
begin
+ ACadena := ADetalles.DataTable.FieldByName('CONCEPTO').AsString;
+ if (AArticulos.REFERENCIA_PROV <> '') then
+ ACadena := AArticulos.REFERENCIA_PROV + ' ' + ACadena;
+ if (AArticulos.FAMILIA <> '') then
+ ACadena := AArticulos.FAMILIA + ' ' + ACadena;
+ ADetalles.DataTable.FieldByName('CONCEPTO').AsString := ACadena;
+
+//El descuento que hemos puesto a la vista de articulos es el del cliente seleccionado en el documento
if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO
else
@@ -149,8 +160,9 @@ end;
procedure TDetallesAlbaranClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
+if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
if Assigned(AArticulos) then
- ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_COSTE
+ ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO
else
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
end;
diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
index ae9a320..43a9dfe 100644
--- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
@@ -242,6 +242,9 @@ begin
if FCliente.ID_FORMA_PAGO > 0 then
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
+// Se establece un descuento especial general a petición de angelica
+ DESCUENTO := FCliente.DESCUENTO;
+
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
//si se quita el id de la cabecera y los detalles se desincroniza
if bEnEdicion then
diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
index 2f756bc..df7fa49 100644
--- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
+++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
@@ -43,6 +43,14 @@
Package
FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
+
File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found
File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found
File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found
@@ -54,14 +62,14 @@
MainSource
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
index 5abfacf..b7c8cf5 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
@@ -2,19 +2,19 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 332
Top = 147
Caption = 'Nuevo alb'#225'ran de cliente'
- ClientHeight = 585
- ClientWidth = 765
+ ClientHeight = 628
+ ClientWidth = 787
OnClose = CustomEditorClose
- ExplicitWidth = 773
- ExplicitHeight = 619
+ ExplicitWidth = 795
+ ExplicitHeight = 662
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
- Width = 765
+ Width = 787
Caption = 'Nuevo albar'#225'n de cliente'
- ExplicitWidth = 765
+ ExplicitWidth = 787
inherited Image1: TImage
- Left = 738
+ Left = 760
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -126,8 +126,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
end
inherited TBXDock: TTBXDock
- Width = 765
- ExplicitWidth = 765
+ Width = 787
+ ExplicitWidth = 787
inherited tbxMain: TTBXToolbar
ExplicitWidth = 488
inherited TBXItem2: TTBXItem
@@ -141,31 +141,31 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
end
inherited tbxMenu: TTBXToolbar
- ExplicitWidth = 765
+ ExplicitWidth = 787
end
end
inherited StatusBar: TJvStatusBar
- Top = 566
- Width = 765
+ Top = 609
+ Width = 787
Panels = <
item
Width = 200
end>
- ExplicitTop = 566
- ExplicitWidth = 765
+ ExplicitTop = 609
+ ExplicitWidth = 787
end
inherited pgPaginas: TPageControl
- Width = 759
- Height = 376
+ Width = 781
+ Height = 424
TabOrder = 1
OnChanging = pgPaginasChanging
- ExplicitWidth = 759
- ExplicitHeight = 376
+ ExplicitWidth = 781
+ ExplicitHeight = 424
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
- ExplicitWidth = 751
- ExplicitHeight = 348
+ ExplicitWidth = 773
+ ExplicitHeight = 396
end
object pagContenido: TTabSheet
Caption = 'Contenido'
@@ -173,8 +173,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente
Left = 0
Top = 0
- Width = 751
- Height = 348
+ Width = 773
+ Height = 396
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@@ -186,21 +186,24 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 751
- ExplicitHeight = 348
+ ExplicitWidth = 773
+ ExplicitHeight = 396
inherited ToolBar1: TToolBar
- Width = 751
- ExplicitWidth = 751
+ Width = 773
+ ExplicitWidth = 773
end
inherited cxGrid: TcxGrid
- Width = 751
- Height = 276
- ExplicitWidth = 751
- ExplicitHeight = 276
+ Width = 773
+ Height = 324
+ ExplicitWidth = 773
+ ExplicitHeight = 300
end
inherited TBXDock1: TTBXDock
- Width = 751
- ExplicitWidth = 751
+ Width = 773
+ ExplicitWidth = 773
+ inherited TBXToolbar1: TTBXToolbar
+ ExplicitWidth = 548
+ end
end
end
end
@@ -210,8 +213,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
- Width = 751
- Height = 348
+ Width = 773
+ Height = 396
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -221,25 +224,25 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 751
- ExplicitHeight = 348
+ ExplicitWidth = 773
+ ExplicitHeight = 396
inherited pnlSup: TPanel
- Width = 751
- ExplicitWidth = 751
+ Width = 773
+ ExplicitWidth = 773
inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21
end
end
inherited GroupBox1: TGroupBox
- Width = 751
- Height = 320
- ExplicitWidth = 751
- ExplicitHeight = 320
+ Width = 773
+ Height = 368
+ ExplicitWidth = 773
+ ExplicitHeight = 368
inherited eIncidencias: TcxDBMemo
- ExplicitWidth = 747
- ExplicitHeight = 303
- Height = 303
- Width = 747
+ ExplicitWidth = 769
+ ExplicitHeight = 351
+ Height = 351
+ Width = 769
end
end
end
@@ -247,9 +250,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
- Top = 488
- Width = 765
- Height = 78
+ Top = 536
+ Width = 787
+ Height = 73
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -259,31 +262,31 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ParentFont = False
TabOrder = 5
ReadOnly = False
- ExplicitTop = 488
- ExplicitWidth = 765
- ExplicitHeight = 78
+ ExplicitTop = 536
+ ExplicitWidth = 787
+ ExplicitHeight = 73
inherited dxLayoutControl1: TdxLayoutControl
- Width = 765
- Height = 78
+ Width = 787
+ Height = 73
Align = alClient
LookAndFeel = dxLayoutOfficeLookAndFeel1
- ExplicitWidth = 765
- ExplicitHeight = 78
+ ExplicitWidth = 787
+ ExplicitHeight = 73
inherited Bevel3: TBevel
- Left = 368
+ Left = 378
Top = 11
Width = 7
Height = 54
- ExplicitLeft = 368
+ ExplicitLeft = 378
ExplicitTop = 11
ExplicitWidth = 7
ExplicitHeight = 54
end
inherited Bevel4: TBevel
- Left = 484
+ Left = 494
Top = 53
Width = 210
- ExplicitLeft = 484
+ ExplicitLeft = 494
ExplicitTop = 53
ExplicitWidth = 210
end
@@ -297,21 +300,21 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 188
end
inherited ImporteIVA: TcxDBCurrencyEdit
- Left = 555
+ Left = 565
Top = 88
DataBinding.DataField = ''
Style.IsFontAssigned = True
- ExplicitLeft = 555
+ ExplicitLeft = 565
ExplicitTop = 88
ExplicitWidth = 182
Width = 182
end
inherited ImporteTotal: TcxDBCurrencyEdit
- Left = 485
- Top = 142
+ Left = 495
+ Top = 169
Style.IsFontAssigned = True
- ExplicitLeft = 485
- ExplicitTop = 142
+ ExplicitLeft = 495
+ ExplicitTop = 169
ExplicitWidth = 252
Width = 252
end
@@ -323,40 +326,56 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitTop = 38
end
inherited edtIVA: TcxDBSpinEdit
- Left = 484
+ Left = 494
Top = 88
DataBinding.DataField = ''
Style.IsFontAssigned = True
- ExplicitLeft = 484
+ ExplicitLeft = 494
ExplicitTop = 88
end
inherited ImporteBase: TcxDBCurrencyEdit
- Left = 484
+ Left = 494
Top = 11
Style.IsFontAssigned = True
- ExplicitLeft = 484
+ ExplicitLeft = 494
ExplicitTop = 11
ExplicitWidth = 253
Width = 253
end
inherited edtRE: TcxDBSpinEdit
- Left = 484
- Top = 115
+ Left = 494
+ Top = 142
DataBinding.DataField = ''
Style.IsFontAssigned = True
- ExplicitLeft = 484
+ ExplicitLeft = 494
+ ExplicitTop = 142
+ end
+ inherited edtIRPF: TcxDBSpinEdit
+ Left = 494
+ Top = 115
+ Style.IsFontAssigned = True
+ ExplicitLeft = 494
ExplicitTop = 115
end
inherited ImporteRE: TcxDBCurrencyEdit
- Left = 555
- Top = 115
+ Left = 565
+ Top = 142
DataBinding.DataField = ''
Style.IsFontAssigned = True
- ExplicitLeft = 555
- ExplicitTop = 115
+ ExplicitLeft = 565
+ ExplicitTop = 142
ExplicitWidth = 182
Width = 182
end
+ inherited ImporteIRPF: TcxDBCurrencyEdit
+ Left = 565
+ Top = 115
+ Style.IsFontAssigned = True
+ ExplicitLeft = 565
+ ExplicitTop = 115
+ ExplicitWidth = 56
+ Width = 56
+ end
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93
Top = 11
@@ -387,9 +406,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 121
end
inherited bTiposIVA: TButton
- Left = 220
+ Left = 230
Top = 92
- ExplicitLeft = 220
+ ExplicitLeft = 230
ExplicitTop = 92
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
@@ -407,11 +426,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ShowCaption = False
ShowBorder = False
inherited dxLayoutControl1Group2: TdxLayoutGroup
- inherited dxLayoutControl1Item8: TdxLayoutItem
- Visible = False
- end
inherited dxLayoutControl1Group7: TdxLayoutGroup
- Visible = False
+ inherited dxLayoutControl1Item9: TdxLayoutItem
+ Visible = False
+ end
end
inherited dxLayoutControl1Group6: TdxLayoutGroup
Visible = False
@@ -423,9 +441,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Group11: TdxLayoutGroup
- inherited dxLayoutControl1Item12: TdxLayoutItem
- Visible = False
- end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
@@ -436,6 +451,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False
end
+ inherited dxLayoutControl1Item3: TdxLayoutItem
+ Visible = False
+ end
end
end
end
@@ -443,10 +461,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
end
inherited PnlComentario: TPanel [5]
- Width = 765
- ExplicitWidth = 765
+ Width = 787
+ ExplicitWidth = 787
inherited lbComentario: TLabel
- Width = 755
+ Width = 777
Height = 25
end
end
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
index 5bfbcac..61ccf94 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
@@ -272,7 +272,7 @@ begin
FAlbaran.IMPORTE_PORTE := 0;
end;
- // Si el pedido tiene detalles hay que mirar si los descuentos
+ // Si el albaran tiene detalles hay que mirar si los descuentos
// para los artículos hay que cambiarlos.
if (FAlbaran.Detalles.RecordCount > 0) then
FController.DetallesController.ActualizarDetalles(FAlbaran.Detalles, FAlbaran.Cliente);
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
index 3f02dd7..fdfae48 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
@@ -1,10 +1,6 @@
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
- inherited cxGridViewDESCUENTO: TcxGridDBColumn
- Visible = False
- VisibleForCustomization = False
- end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
diff --git a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
index 801586c..41f56e0 100644
--- a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
+++ b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
@@ -18,7 +18,8 @@ type
function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean; overload;
function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean; overload;
- procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
+ procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); overload;
+ procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ADescuento: Float); overload;
procedure CambiarSignoDetalles(ADetalles: IDAStronglyTypedDataTable; const AAll: Boolean = True);
procedure AnadirConceptoInicial(ADetalles: IDAStronglyTypedDataTable; AConcepto: String);
end;
@@ -42,7 +43,8 @@ type
function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean; overload;
function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean; overload;
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True);
- procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
+ procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); overload;
+ procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ADescuento: Float); overload;
procedure CambiarSignoDetalles(ADetalles: IDAStronglyTypedDataTable; const AAll: Boolean = True);
procedure AnadirConceptoInicial(ADetalles: IDAStronglyTypedDataTable; AConcepto: String);
@@ -81,10 +83,45 @@ begin
try
if AArticulos.DataTable.Locate(CAMPO_ID, FieldByName(CAMPO_ID_ARTICULOS).AsVariant, []) then
begin
- //Para mantener la cantidad que ya tuviera el detalle se debe guardar y volver a poner
+ //Para mantener la cantidad que ya tuviera el detalle se debe guardar y volver a poner
ACantidad := ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsFloat;
- RellenarDetalle(ADetalles, AArticulos, ACantidad);
- end;
+ RellenarDetalle(ADetalles, AArticulos, ACantidad);
+ end;
+ except
+ on E: Exception do
+ ShowMessage(E.Message);
+ end;
+ Next;
+ end;
+ //Volvemos a dejarlo al principio
+ ADetalles.DataTable.First;
+ end;
+ finally
+ EndUpdate(ADetalles);
+ end;
+ end;
+end;
+
+procedure TControllerDetallesArticulos.ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ADescuento: Float);
+var
+ ACantidad: Float;
+begin
+ if Assigned(ADetalles) then
+ begin
+ BeginUpdate(ADetalles);
+ try
+ ADetalles.DataTable.First;
+ with ADetalles.DataTable do
+ begin
+ while not EOF do
+ begin
+ Edit;
+ try
+ if not ADetalles.DataTable.FieldByName('DESCUENTO').IsNull then
+ begin
+ //Para mantener la cantidad que ya tuviera el detalle se debe guardar y volver a poner
+ ADetalles.DataTable.FieldByName('DESCUENTO').AsFloat := ADescuento;
+ end;
except
on E: Exception do
ShowMessage(E.Message);
diff --git a/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
index 5cb5f75..4cdf664 100644
--- a/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
+++ b/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
@@ -69,8 +69,9 @@ begin
if Assigned(ADetalles) then
begin
try
- AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
- ActualizarDetalles(ADetalles, AArticulos);
+// AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
+// ActualizarDetalles(ADetalles, AArticulos);
+ ActualizarDetalles(ADetalles, ACliente.DESCUENTO_LINEA);
ShowInfoMessage('Se ha actualizado el descuento para el cliente seleccionado');
finally
AArticulos := Nil;
@@ -151,10 +152,17 @@ begin
end;
procedure TDetallesContratoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
+var
+ ACadena : String;
begin
- ADetalles.DataTable.FieldByName('PROPIEDAD').AsString := AArticulos.FAMILIA + ' ' + AArticulos.REFERENCIA_PROV;
+ ACadena := ADetalles.DataTable.FieldByName('PROPIEDAD').AsString;
+ if (AArticulos.REFERENCIA_PROV <> '') then
+ ACadena := AArticulos.REFERENCIA_PROV + ' ' + ACadena;
+ if (AArticulos.FAMILIA <> '') then
+ ACadena := AArticulos.FAMILIA + ' ' + ACadena;
+ ADetalles.DataTable.FieldByName('PROPIEDAD').AsString := ACadena;
-//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP
+//El descuento que hemos puesto a la vista de articulos es el del cliente seleccionado en el documento
if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO
else
@@ -226,8 +234,6 @@ end;
procedure TDetallesContratoClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
-//Como en tecsitel no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
-//de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos.
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO
diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
index cfa45d3..cda059e 100644
--- a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
@@ -220,67 +220,67 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitLeft = 368
ExplicitTop = 0
end
- inherited UpDown1: TUpDown [6]
+ inherited ToolButton13: TToolButton [6]
Left = 513
Top = 0
ExplicitLeft = 513
ExplicitTop = 0
end
- inherited ToolButton13: TToolButton [7]
- Left = 530
+ inherited ToolButton6: TToolButton [7]
+ Left = 521
Top = 0
- ExplicitLeft = 530
+ ExplicitLeft = 521
ExplicitTop = 0
end
- inherited ToolButton6: TToolButton [8]
- Left = 538
+ inherited ToolButton7: TToolButton [8]
+ Left = 555
Top = 0
- ExplicitLeft = 538
+ ExplicitLeft = 555
ExplicitTop = 0
end
- inherited ToolButton7: TToolButton [9]
- Left = 572
+ inherited ToolButton8: TToolButton [9]
+ Left = 589
Top = 0
- ExplicitLeft = 572
+ ExplicitLeft = 589
ExplicitTop = 0
end
- inherited ToolButton8: TToolButton [10]
- Left = 606
+ inherited ToolButton12: TToolButton [10]
+ Left = 623
Top = 0
- ExplicitLeft = 606
+ ExplicitLeft = 623
ExplicitTop = 0
end
- inherited ToolButton12: TToolButton [11]
- Left = 640
+ inherited ToolButton9: TToolButton [11]
+ Left = 631
Top = 0
- ExplicitLeft = 640
+ ExplicitLeft = 631
ExplicitTop = 0
end
- inherited ToolButton9: TToolButton [12]
- Left = 648
+ inherited ToolButton10: TToolButton [12]
+ Left = 665
Top = 0
- ExplicitLeft = 648
+ ExplicitLeft = 665
ExplicitTop = 0
end
- inherited ToolButton10: TToolButton [13]
- Left = 682
+ inherited ToolButton11: TToolButton [13]
+ Left = 699
Top = 0
- ExplicitLeft = 682
+ ExplicitLeft = 699
ExplicitTop = 0
end
- inherited ToolButton11: TToolButton [14]
- Left = 716
+ inherited FontSize: TEdit [14]
+ Left = 733
Top = 0
- ExplicitLeft = 716
+ Width = 90
+ ExplicitLeft = 733
ExplicitTop = 0
+ ExplicitWidth = 90
end
- inherited FontSize: TEdit [15]
- Left = 750
+ inherited UpDown1: TUpDown [15]
+ Left = 823
Top = 0
- Width = 74
- ExplicitLeft = 750
+ ExplicitLeft = 823
ExplicitTop = 0
- ExplicitWidth = 74
end
end
inherited cxGrid: TcxGrid
@@ -291,6 +291,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 831
ExplicitHeight = 192
inherited cxGridView: TcxGridDBTableView
+ inherited cxGridViewPROPIEDAD: TcxGridDBColumn
+ IsCaptionAssigned = True
+ end
end
end
inherited TBXDock1: TTBXDock
@@ -299,7 +302,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitTop = 24
ExplicitWidth = 831
inherited TBXToolbar1: TTBXToolbar
- ExplicitWidth = 564
+ ExplicitWidth = 665
end
end
inherited cxLookupComboBox1: TcxLookupComboBox
diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
index d3eef8f..819ddec 100644
--- a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
@@ -302,9 +302,8 @@ begin
begin
FContrato.Cliente := ViewContrato.ViewClienteContrato.Cliente;
-//Desactivado porque en Contratos no utilizan el catálogo de clientes
-// if (FContrato.Detalles.RecordCount > 0) then
-// FController.DetallesController.ActualizarDetalles(FContrato.Detalles, FContrato.Cliente);
+ if (FContrato.Detalles.RecordCount > 0) then
+ FController.DetallesController.ActualizarDetalles(FContrato.Detalles, FContrato.Cliente);
end;
end;
diff --git a/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas
index 8b303eb..d03e716 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas
+++ b/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas
@@ -56,8 +56,9 @@ begin
if Assigned(ADetalles) then
begin
try
- AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
- ActualizarDetalles(ADetalles, AArticulos);
+// AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
+// ActualizarDetalles(ADetalles, AArticulos);
+ ActualizarDetalles(ADetalles, ACliente.DESCUENTO_LINEA);
ShowInfoMessage('Se han actualizado los descuentos para el cliente seleccionado');
finally
AArticulos := Nil;
@@ -143,7 +144,16 @@ begin
end;
procedure TDetallesFacturaClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
+var
+ ACadena : String;
begin
+ ACadena := ADetalles.DataTable.FieldByName('CONCEPTO').AsString;
+ if (AArticulos.REFERENCIA_PROV <> '') then
+ ACadena := AArticulos.REFERENCIA_PROV + ' ' + ACadena;
+ if (AArticulos.FAMILIA <> '') then
+ ACadena := AArticulos.FAMILIA + ' ' + ACadena;
+ ADetalles.DataTable.FieldByName('CONCEPTO').AsString := ACadena;
+
if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO
else
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
index 7495f92..392b129 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
@@ -73,8 +73,9 @@ begin
if Assigned(ADetalles) then
begin
try
- AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
- ActualizarDetalles(ADetalles, AArticulos);
+// AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
+// ActualizarDetalles(ADetalles, AArticulos);
+ ActualizarDetalles(ADetalles, ACliente.DESCUENTO_LINEA);
ShowInfoMessage('Se ha actualizado el descuento para el cliente seleccionado');
finally
AArticulos := Nil;
@@ -238,10 +239,17 @@ begin
end;
procedure TDetallesPresupuestoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
+var
+ ACadena : String;
begin
- ADetalles.DataTable.FieldByName('PROPIEDAD').AsString := AArticulos.FAMILIA + ' ' + AArticulos.REFERENCIA_PROV;
+ ACadena := ADetalles.DataTable.FieldByName('PROPIEDAD').AsString;
+ if (AArticulos.REFERENCIA_PROV <> '') then
+ ACadena := AArticulos.REFERENCIA_PROV + ' ' + ACadena;
+ if (AArticulos.FAMILIA <> '') then
+ ACadena := AArticulos.FAMILIA + ' ' + ACadena;
+ ADetalles.DataTable.FieldByName('PROPIEDAD').AsString := ACadena;
-//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP
+//El descuento que hemos puesto a la vista de articulos es el del cliente seleccionado en el documento
if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO
else
@@ -346,8 +354,6 @@ end;
procedure TDetallesPresupuestoClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
-//Como en tecsitel no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
-//de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos.
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_COSTE * AppFactuGES.EmpresaActiva.PRECIO_PUNTO
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
index ecd9abc..5555721 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
@@ -294,6 +294,9 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitWidth = 834
ExplicitHeight = 239
inherited cxGridView: TcxGridDBTableView
+ inherited cxGridViewPROPIEDAD: TcxGridDBColumn
+ IsCaptionAssigned = True
+ end
end
end
inherited TBXDock1: TTBXDock
@@ -302,7 +305,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 24
ExplicitWidth = 834
inherited TBXToolbar1: TTBXToolbar
- ExplicitWidth = 564
+ ExplicitWidth = 665
end
end
inherited cxLookupComboBox1: TcxLookupComboBox
@@ -422,18 +425,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 848
inherited Bevel3: TBevel
- Left = 352
+ Left = 304
Top = 57
- Height = 122
- ExplicitLeft = 352
+ ExplicitLeft = 304
ExplicitTop = 57
- ExplicitHeight = 122
end
inherited Bevel4: TBevel
- Left = 464
+ Left = 416
Top = 88
Width = 342
- ExplicitLeft = 464
+ ExplicitLeft = 416
ExplicitTop = 88
ExplicitWidth = 342
end
@@ -441,26 +442,20 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Top = 84
Style.IsFontAssigned = True
ExplicitTop = 84
- ExplicitWidth = 93
- Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
- Left = 535
+ Left = 487
Top = 108
Style.IsFontAssigned = True
- ExplicitLeft = 535
+ ExplicitLeft = 487
ExplicitTop = 108
- ExplicitWidth = 137
- Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
- Left = 465
+ Left = 417
Top = 189
Style.IsFontAssigned = True
- ExplicitLeft = 465
+ ExplicitLeft = 417
ExplicitTop = 189
- ExplicitWidth = 137
- Width = 137
end
inherited edtDescuento: TcxDBSpinEdit
Top = 84
@@ -468,72 +463,60 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 84
end
inherited edtIVA: TcxDBSpinEdit
- Left = 464
+ Left = 416
Top = 108
Style.IsFontAssigned = True
- ExplicitLeft = 464
+ ExplicitLeft = 416
ExplicitTop = 108
end
inherited ImporteBase: TcxDBCurrencyEdit
- Left = 464
+ Left = 416
Top = 57
Style.IsFontAssigned = True
- ExplicitLeft = 464
+ ExplicitLeft = 416
ExplicitTop = 57
- ExplicitWidth = 92
- Width = 92
end
inherited edtRE: TcxDBSpinEdit
- Left = 464
+ Left = 416
Top = 162
Style.IsFontAssigned = True
- ExplicitLeft = 464
+ ExplicitLeft = 416
ExplicitTop = 162
end
inherited edtIRPF: TcxDBSpinEdit
- Left = 464
+ Left = 416
Top = 135
Style.IsFontAssigned = True
- ExplicitLeft = 464
+ ExplicitLeft = 416
ExplicitTop = 135
end
inherited ImporteRE: TcxDBCurrencyEdit
- Left = 535
+ Left = 487
Top = 162
Style.IsFontAssigned = True
- ExplicitLeft = 535
+ ExplicitLeft = 487
ExplicitTop = 162
- ExplicitWidth = 56
- Width = 56
end
inherited ImporteIRPF: TcxDBCurrencyEdit
- Left = 535
+ Left = 487
Top = 135
Style.IsFontAssigned = True
- ExplicitLeft = 535
+ ExplicitLeft = 487
ExplicitTop = 135
- ExplicitWidth = 56
- Width = 56
end
inherited eImporteNeto: TcxDBCurrencyEdit
Top = 57
Style.IsFontAssigned = True
ExplicitTop = 57
- ExplicitWidth = 147
- Width = 147
end
inherited ePorte: TcxDBCurrencyEdit
Top = 111
Style.IsFontAssigned = True
ExplicitTop = 111
- ExplicitWidth = 147
- Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Top = 138
ExplicitTop = 138
- ExplicitWidth = 81
- Width = 81
end
inherited cbValorado: TcxDBCheckBox
Left = 11
@@ -544,17 +527,15 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 455
end
inherited bTiposIVA: TButton
- Left = 204
+ Left = 156
Top = 138
OnClick = frViewTotales1bTiposIVAClick
- ExplicitLeft = 204
+ ExplicitLeft = 156
ExplicitTop = 138
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 165
ExplicitTop = 165
- ExplicitWidth = 219
- Width = 219
end
end
inherited DADataSource: TDADataSource
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
index 14437c9..cf422e2 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
@@ -302,9 +302,8 @@ begin
begin
FPresupuesto.Cliente := ViewPresupuesto.ViewClientePresupuesto.Cliente;
-//Desactivado porque en presupuestos no utilizan el catálogo de clientes
-// if (FPresupuesto.Detalles.RecordCount > 0) then
-// FController.DetallesController.ActualizarDetalles(FPresupuesto.Detalles, FPresupuesto.Cliente);
+ if (FPresupuesto.Detalles.RecordCount > 0) then
+ FController.DetallesController.ActualizarDetalles(FPresupuesto.Detalles, FPresupuesto.Cliente);
end;
end;
diff --git a/Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas b/Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
index 4b8edbc..54b05ba 100644
--- a/Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
+++ b/Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
@@ -107,7 +107,7 @@ begin
ADetalles.REFERENCIA := AArticulos.REFERENCIA;
ADetalles.ID_ARTICULO := AArticulos.ID_ARTICULO;
if (AArticulos.PROPIEDAD <> '') then
- ADetalles.CONCEPTO := AArticulos.PROPIEDAD + ': '+ AArticulos.CONCEPTO
+ ADetalles.CONCEPTO := AArticulos.PROPIEDAD + ' '+ AArticulos.CONCEPTO
else
ADetalles.CONCEPTO := AArticulos.CONCEPTO;
diff --git a/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas b/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas
index 66e993f..d87005a 100644
--- a/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas
+++ b/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas
@@ -118,7 +118,7 @@ begin
ADetalles.REFERENCIA := AArticulos.REFERENCIA;
ADetalles.ID_ARTICULO := AArticulos.ID_ARTICULO;
if (AArticulos.PROPIEDAD <> '') then
- ADetalles.CONCEPTO := AArticulos.PROPIEDAD + ': '+ AArticulos.CONCEPTO
+ ADetalles.CONCEPTO := AArticulos.PROPIEDAD + ' '+ AArticulos.CONCEPTO
else
ADetalles.CONCEPTO := AArticulos.CONCEPTO;
diff --git a/Source/Modulos/Subfamilias/Model/schSubfamiliasClient_Intf.pas b/Source/Modulos/Subfamilias/Model/schSubfamiliasClient_Intf.pas
index 6b62d15..5847d9a 100644
--- a/Source/Modulos/Subfamilias/Model/schSubfamiliasClient_Intf.pas
+++ b/Source/Modulos/Subfamilias/Model/schSubfamiliasClient_Intf.pas
@@ -3,7 +3,7 @@ unit schSubfamiliasClient_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@@ -45,7 +45,7 @@ type
end;
{ TSubfamiliasDataTableRules }
- TSubfamiliasDataTableRules = class(TDADataTableRules, ISubfamilias)
+ TSubfamiliasDataTableRules = class(TIntfObjectDADataTableRules, ISubfamilias)
private
protected
{ Property getters and setters }
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index b608c2b..cc81bf8 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,304 +1,300 @@
-
+
-
- {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
-
-
-FalseTrueFalseTrueFalse2550FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.5.0FactuGES (Servidor)2.5.5.0martes, 05 de febrero de 2013 11:10
-
-
-
-
- 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
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- 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
+
+
+ FalseTrueFalseTrueFalse2550FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.5.0FactuGES (Servidor)2.5.5.0martes, 05 de febrero de 2013 11:10
+ 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
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+