From 331bb696437a174f50b88b8ea940d02045637f90 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 4 Aug 2009 14:58:06 +0000 Subject: [PATCH] Se arreglan los datosseleccion de los documentos para que cuando hacemos uno nuevo el campo persona de contacto este desactivado hasta que se asigne un cliente o proveedor git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@968 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../uViewDatosYSeleccionClienteAlbaran.pas | 10 ++++++++-- .../uViewDatosYSeleccionProveedorAlbaran.pas | 9 +++++++-- .../uViewDatosYSeleccionProveedorPedido.pas | 9 +++++++-- ...uViewDatosYSeleccionClientePresupuesto.pas | 10 ++++++++-- Source/Servidor/FactuGES_Server.RES | Bin 23200 -> 23204 bytes Source/Servidor/FactuGES_Server.rc | 2 +- 6 files changed, 31 insertions(+), 9 deletions(-) diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas b/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas index f64fe3cc..cfbcd938 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas @@ -317,7 +317,10 @@ begin if not FCliente.DataTable.Active then FCliente.DataTable.Active := True; - edtPersonaContacto.Enabled := True; + + //Solo podremos establecer persona de contacto si se ha asignado un cliente + if FCliente.ID > 0 then + edtPersonaContacto.Enabled := True; if FCliente.Direcciones.RecordCount > 0 then ElegirDireccionCliente @@ -386,7 +389,10 @@ begin if not FCliente.DataTable.Active then FCliente.DataTable.Active := True; - edtPersonaContacto.Enabled := True; + //Solo podremos establecer persona de contacto si se ha asignado un cliente + if FCliente.ID > 0 then + edtPersonaContacto.Enabled := True; + RefrescarDireccion; end else begin diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.pas index 9bbc40bc..b06f7b6f 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.pas @@ -318,7 +318,9 @@ begin if not FProveedor.DataTable.Active then FProveedor.DataTable.Active := True; - edtPersonaContacto.Enabled := True; + //Solo podremos establecer persona de contacto si se ha asignado un proveedor + if FProveedor.ID > 0 then + edtPersonaContacto.Enabled := True; if FProveedor.Direcciones.RecordCount > 0 then ElegirDireccionProveedor @@ -387,7 +389,10 @@ begin if not FProveedor.DataTable.Active then FProveedor.DataTable.Active := True; - edtPersonaContacto.Enabled := True; + //Solo podremos establecer persona de contacto si se ha asignado un proveedor + if FProveedor.ID > 0 then + edtPersonaContacto.Enabled := True; + RefrescarDireccion; end else begin diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas index 828f7ea1..fda671a2 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas @@ -325,7 +325,9 @@ begin if not FProveedor.DataTable.Active then FProveedor.DataTable.Active := True; - edtPersonaContacto.Enabled := True; + //Solo podremos establecer persona de contacto si se ha asignado un proveedor + if FProveedor.ID > 0 then + edtPersonaContacto.Enabled := True; if FProveedor.Direcciones.RecordCount > 0 then ElegirDireccionProveedor @@ -394,7 +396,10 @@ begin if not FProveedor.DataTable.Active then FProveedor.DataTable.Active := True; - edtPersonaContacto.Enabled := True; + //Solo podremos establecer persona de contacto si se ha asignado un proveedor + if FProveedor.ID > 0 then + edtPersonaContacto.Enabled := True; + RefrescarDireccion; end else begin diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas index c2e2e88f..9215a6cc 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas @@ -316,7 +316,10 @@ begin if not FCliente.DataTable.Active then FCliente.DataTable.Active := True; - edtPersonaContacto.Enabled := True; + + //Solo podremos establecer persona de contacto si se ha asignado un cliente + if FCliente.ID > 0 then + edtPersonaContacto.Enabled := True; if FCliente.Direcciones.RecordCount > 0 then ElegirDireccionCliente @@ -385,7 +388,10 @@ begin if not FCliente.DataTable.Active then FCliente.DataTable.Active := True; - edtPersonaContacto.Enabled := True; + //Solo podremos establecer persona de contacto si se ha asignado un cliente + if FCliente.ID > 0 then + edtPersonaContacto.Enabled := True; + RefrescarDireccion; end else begin diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 563231dff2e8c9c3b2288ad18be4b260c86cdd4c..b2953fc754e0360047afa86e30562f0eab895bff 100644 GIT binary patch delta 99 zcmZ3mm2t^d#tnBO7*|Zb8zB!Q|3*YJvQ3VRRAziMxi+$zIgLSi^6yApQv(JQ1_g!` qhEyP#$dJyE&rr-z0wiH#Mhpf(XbI#SGMF(~0acqYFieh&at8oR?HQl| delta 77 zcmZ3om2tsV#tnBO7?(`G8zB!Q|3*YJvP_PQRAziIxi+$zIfX%K^6yApVM7KJ1_g!` fhEyP##ZbzS!;m@IHcFh`oWY90kilqjY?M0yMY9*W diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 9f99a564..3f995668 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "1.7.7.0\0" VALUE "ProductVersion", "1.7.7.0\0" - VALUE "CompileDate", "martes, 14 de julio de 2009 17:12\0" + VALUE "CompileDate", "martes, 04 de agosto de 2009 16:44\0" END END BLOCK "VarFileInfo"