diff --git a/Database/ACANA.FDB b/Database/ACANA.FDB
index 1abaa6e3..b0490d4c 100644
Binary files a/Database/ACANA.FDB and b/Database/ACANA.FDB differ
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 5df5fbb9..50c04110 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -58,48 +58,48 @@
MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
TForm
diff --git a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
index e78f1095..c40bad3e 100644
--- a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
+++ b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
@@ -213,9 +213,8 @@ begin
Execute;
end;
-//REPASAR en el caso de que se modifique el contacto sera todo manual
//En caso de no ignorar contabilidad se deberá dar de alta una cuenta para el cliente si el usuario no la ha asignado
-{ if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0) then
+ if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0) then
begin
with TsrvContabilidad.Create(NIL) do
try
@@ -229,7 +228,6 @@ begin
Free;
end;
end;
-}
finally
ACommand := NIL;
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj
index fc5c5265..98fdad74 100644
--- a/Source/Modulos/Contactos/Views/Contactos_view.dproj
+++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj
@@ -49,31 +49,31 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res
index 8b251f31..1641339f 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/uEditorProveedor.dfm b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
index 99fe1d9e..aa26787f 100644
--- a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
@@ -3,7 +3,7 @@ inherited fEditorProveedor: TfEditorProveedor
ClientHeight = 590
ClientWidth = 648
ExplicitWidth = 656
- ExplicitHeight = 617
+ ExplicitHeight = 624
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.pas b/Source/Modulos/Contactos/Views/uEditorProveedor.pas
index 02dd9513..755b1f78 100644
--- a/Source/Modulos/Contactos/Views/uEditorProveedor.pas
+++ b/Source/Modulos/Contactos/Views/uEditorProveedor.pas
@@ -28,6 +28,7 @@ type
frViewSubCuentaContacto1: TfrViewSubCuentaContacto;
procedure actGruposProveedorExecute(Sender: TObject);
protected
+ procedure GuardarInterno; override;
procedure EliminarInterno; override;
procedure SetContacto(const Value: IBizContacto); override;
public
@@ -77,6 +78,18 @@ begin
inherited;
end;
+procedure TfEditorProveedor.GuardarInterno;
+begin
+
+ //Si estamos modificando un proveedor y se activa la contabilidad, debemos avisar que se asignará una subcuenta al proveedor
+ if not Contacto.EsNuevo
+ and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0) then
+ if (ShowConfirmMessage('Confirmación de subcuenta', 'Se creará una nueva subcuenta para el proveedor' + #10#13 + '¿Esta seguro que desea continuar?') = IDNO) then
+ frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue := 1;
+
+ inherited;
+end;
+
procedure TfEditorProveedor.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 93e9a190..d482932b 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -30,6 +30,7 @@
FalseTrueFalseTrueFalse1100FalseFalseFalseFalseFalse308212521.1.0.01.1.0.0martes, 25 de marzo de 2008 19:25
+
RemObjects Pascal Script - RemObjects SDK 3.0 Integration
FactuGES_Server.dpr