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

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

@ -317,7 +317,10 @@ begin
if not FCliente.DataTable.Active then if not FCliente.DataTable.Active then
FCliente.DataTable.Active := True; 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 if FCliente.Direcciones.RecordCount > 0 then
ElegirDireccionCliente ElegirDireccionCliente
@ -386,7 +389,10 @@ begin
if not FCliente.DataTable.Active then if not FCliente.DataTable.Active then
FCliente.DataTable.Active := True; 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; RefrescarDireccion;
end end
else begin else begin

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

@ -318,7 +318,9 @@ begin
if not FProveedor.DataTable.Active then if not FProveedor.DataTable.Active then
FProveedor.DataTable.Active := True; 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 if FProveedor.Direcciones.RecordCount > 0 then
ElegirDireccionProveedor ElegirDireccionProveedor
@ -387,7 +389,10 @@ begin
if not FProveedor.DataTable.Active then if not FProveedor.DataTable.Active then
FProveedor.DataTable.Active := True; 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; RefrescarDireccion;
end end
else begin else begin

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

@ -325,7 +325,9 @@ begin
if not FProveedor.DataTable.Active then if not FProveedor.DataTable.Active then
FProveedor.DataTable.Active := True; 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 if FProveedor.Direcciones.RecordCount > 0 then
ElegirDireccionProveedor ElegirDireccionProveedor
@ -394,7 +396,10 @@ begin
if not FProveedor.DataTable.Active then if not FProveedor.DataTable.Active then
FProveedor.DataTable.Active := True; 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; RefrescarDireccion;
end end
else begin else begin

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

@ -316,7 +316,10 @@ begin
if not FCliente.DataTable.Active then if not FCliente.DataTable.Active then
FCliente.DataTable.Active := True; 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 if FCliente.Direcciones.RecordCount > 0 then
ElegirDireccionCliente ElegirDireccionCliente
@ -385,7 +388,10 @@ begin
if not FCliente.DataTable.Active then if not FCliente.DataTable.Active then
FCliente.DataTable.Active := True; 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; RefrescarDireccion;
end end
else begin 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 BEGIN
VALUE "FileVersion", "1.7.7.0\0" VALUE "FileVersion", "1.7.7.0\0"
VALUE "ProductVersion", "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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"