Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@968 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2009-08-04 14:58:06 +00:00
parent b09f8611fc
commit 331bb69643
6 changed files with 31 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas
View File

@ -317,6 +317,9 @@ begin
if not FCliente.DataTable.Active then
FCliente.DataTable.Active := 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
@ -386,7 +389,10 @@ begin
if not FCliente.DataTable.Active then
FCliente.DataTable.Active := 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

5
Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.pas
View File

@ -318,6 +318,8 @@ begin
if not FProveedor.DataTable.Active then
FProveedor.DataTable.Active := 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
@ -387,7 +389,10 @@ begin
if not FProveedor.DataTable.Active then
FProveedor.DataTable.Active := 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

5
Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas
View File

@ -325,6 +325,8 @@ begin
if not FProveedor.DataTable.Active then
FProveedor.DataTable.Active := 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
@ -394,7 +396,10 @@ begin
if not FProveedor.DataTable.Active then
FProveedor.DataTable.Active := 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

6
Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas
View File

@ -316,6 +316,9 @@ begin
if not FCliente.DataTable.Active then
FCliente.DataTable.Active := 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
@ -385,7 +388,10 @@ begin
if not FCliente.DataTable.Active then
FCliente.DataTable.Active := 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

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -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"