diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 1257efdb..9237feb0 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -54,58 +54,58 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 8b251f31..1641339f 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
index 39794fe5..af4462cc 100644
--- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
@@ -168,20 +168,21 @@ object RptPedidosProveedor: TRptPedidosProveedor
'SELECT'#10' PEDIDOS_PROVEEDOR.ID,'#10' PEDIDOS_PROVEEDOR.ID_EMPRESA,'#10' ' +
' PEDIDOS_PROVEEDOR.REFERENCIA,'#10' PEDIDOS_PROVEEDOR.FECHA_PEDIDO,' +
#10' PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10' PEDIDOS_PROVEEDOR.OBSERVAC' +
- 'IONES,'#10' CONTACTOS.NOMBRE,'#10' CONTACTOS.FAX,'#10' CONTACTOS.PERSONA_' +
- 'CONTACTO,'#10' PROVEEDORES_DATOS.CODIGO_ASIGNADO AS CODIGO_CLIENTE,' +
- #10' PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10' COALESCE(ALMACENES.CALLE, PED' +
- 'IDOS_PROVEEDOR.CALLE) AS CALLE,'#10' COALESCE(ALMACENES.POBLACION, ' +
- 'PEDIDOS_PROVEEDOR.POBLACION) AS POBLACION,'#10' COALESCE(ALMACENES.' +
- 'PROVINCIA, PEDIDOS_PROVEEDOR.PROVINCIA) AS PROVINCIA,'#10' COALESCE' +
- '(ALMACENES.CODIGO_POSTAL, PEDIDOS_PROVEEDOR.CODIGO_POSTAL) AS CO' +
- 'DIGO_POSTAL,'#10' PEDIDOS_PROVEEDOR.PERSONA_CONTACTO AS ENTREGAR_A,' +
- #10' PEDIDOS_PROVEEDOR.IMPORTE_TOTAL'#10'FROM'#10' PEDIDOS_PROVEEDOR'#10' IN' +
- 'NER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_PROVE' +
- 'EDOR)'#10' LEFT OUTER JOIN PROVEEDORES_DATOS ON (PROVEEDORES_DATOS.' +
- 'ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN' +
- ' ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHER' +
- 'E PEDIDOS_PROVEEDOR.ID = :ID'#10#10#10#10
+ 'IONES,'#10' CONTACTOS.NOMBRE,'#10' CONTACTOS.FAX,'#10' PEDIDOS_PROVEEDOR.' +
+ 'PERSONA_CONTACTO_PROV AS PERSONA_CONTACTO,'#10' PROVEEDORES_DATOS.C' +
+ 'ODIGO_ASIGNADO AS CODIGO_CLIENTE,'#10' PEDIDOS_PROVEEDOR.ID_ALMACEN' +
+ ','#10' COALESCE(ALMACENES.CALLE, PEDIDOS_PROVEEDOR.CALLE) AS CALLE,' +
+ #10' COALESCE(ALMACENES.POBLACION, PEDIDOS_PROVEEDOR.POBLACION) AS' +
+ ' POBLACION,'#10' COALESCE(ALMACENES.PROVINCIA, PEDIDOS_PROVEEDOR.PR' +
+ 'OVINCIA) AS PROVINCIA,'#10' COALESCE(ALMACENES.CODIGO_POSTAL, PEDID' +
+ 'OS_PROVEEDOR.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' PEDIDOS_PROVEEDO' +
+ 'R.PERSONA_CONTACTO AS ENTREGAR_A,'#10' PEDIDOS_PROVEEDOR.IMPORTE_TO' +
+ 'TAL'#10'FROM'#10' PEDIDOS_PROVEEDOR'#10' INNER JOIN CONTACTOS ON (CONTACTO' +
+ 'S.ID = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN PROVEED' +
+ 'ORES_DATOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = PEDIDOS_PROVEEDO' +
+ 'R.ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = P' +
+ 'EDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PROVEEDOR.ID = :ID'#10#10#10 +
+ #10
StatementType = stSQL
ColumnMappings = <
item
diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm
index 5f4a930c..2f0aa978 100644
--- a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm
@@ -22,21 +22,21 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
'SELECT'#10' PEDIDOS_PROVEEDOR.ID,'#10' PEDIDOS_PROVEEDOR.ID_EMPRESA,'#10' ' +
' PEDIDOS_PROVEEDOR.REFERENCIA,'#10' PEDIDOS_PROVEEDOR.FECHA_PEDIDO,' +
#10' PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10' PEDIDOS_PROVEEDOR.OBSERVAC' +
- 'IONES,'#10' CONTACTOS.NOMBRE,'#10' CONTACTOS.FAX,'#10' CONTACTOS.PERSONA_' +
- 'CONTACTO,'#10' PROVEEDORES_DATOS.CODIGO_ASIGNADO AS CODIGO_CLIENTE,' +
- #10' PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10' COALESCE(ALMACENES.CALLE, PED' +
- 'IDOS_PROVEEDOR.CALLE) AS CALLE_ALMACEN,'#10' COALESCE(ALMACENES.POB' +
- 'LACION, PEDIDOS_PROVEEDOR.POBLACION) AS POBLACION_ALMACEN,'#10' COA' +
- 'LESCE(ALMACENES.PROVINCIA, PEDIDOS_PROVEEDOR.PROVINCIA) AS PROVI' +
- 'NCIA_ALMACEN,'#10' COALESCE(ALMACENES.CODIGO_POSTAL, PEDIDOS_PROVEE' +
- 'DOR.CODIGO_POSTAL) AS CODIGO_POSTAL_ALMACEN,'#10' PEDIDOS_PROVEEDOR' +
- '.PERSONA_CONTACTO AS PERSONA_CONTACTO_ALMACEN,'#10' PEDIDOS_PROVEED' +
- 'OR.IMPORTE_TOTAL'#10'FROM'#10' PEDIDOS_PROVEEDOR'#10' INNER JOIN CONTACTOS' +
- ' ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER' +
- ' JOIN PROVEEDORES_DATOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = PED' +
- 'IDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENES ON (ALM' +
- 'ACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PROVEEDO' +
- 'R.ID = :ID'#10#10#10#10#10
+ 'IONES,'#10' CONTACTOS.NOMBRE,'#10' CONTACTOS.FAX,'#10' PEDIDOS_PROVEEDOR.' +
+ 'PERSONA_CONTACTO_PROV AS PERSONA_CONTACTO,'#10' PROVEEDORES_DATOS.C' +
+ 'ODIGO_ASIGNADO AS CODIGO_CLIENTE,'#10' PEDIDOS_PROVEEDOR.ID_ALMACEN' +
+ ','#10' COALESCE(ALMACENES.CALLE, PEDIDOS_PROVEEDOR.CALLE) AS CALLE_' +
+ 'ALMACEN,'#10' COALESCE(ALMACENES.POBLACION, PEDIDOS_PROVEEDOR.POBLA' +
+ 'CION) AS POBLACION_ALMACEN,'#10' COALESCE(ALMACENES.PROVINCIA, PEDI' +
+ 'DOS_PROVEEDOR.PROVINCIA) AS PROVINCIA_ALMACEN,'#10' COALESCE(ALMACE' +
+ 'NES.CODIGO_POSTAL, PEDIDOS_PROVEEDOR.CODIGO_POSTAL) AS CODIGO_PO' +
+ 'STAL_ALMACEN,'#10' PEDIDOS_PROVEEDOR.PERSONA_CONTACTO AS PERSONA_CO' +
+ 'NTACTO_ALMACEN,'#10' PEDIDOS_PROVEEDOR.IMPORTE_TOTAL'#10'FROM'#10' PEDIDOS' +
+ '_PROVEEDOR'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PRO' +
+ 'VEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN PROVEEDORES_DATOS ON (PRO' +
+ 'VEEDORES_DATOS.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' ' +
+ 'LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.I' +
+ 'D_ALMACEN)'#10'WHERE PEDIDOS_PROVEEDOR.ID = :ID'#10#10#10#10#10
StatementType = stSQL
ColumnMappings = <
item
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas
index e75fc78e..b99d20c5 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas
@@ -261,8 +261,9 @@ begin
else begin
FPedido.ID_DIRECCION := FDireccion.ID;
FPedido.IMPORTE_PORTE := FDireccion.PORTE;
- FPedido.PERSONA_CONTACTO_PROV := FDireccion.PERSONA_CONTACTO;
end;
+ FPedido.PERSONA_CONTACTO_PROV := FDireccion.PERSONA_CONTACTO;
+
EscribirTextoDireccion;
end;
end;
@@ -318,7 +319,14 @@ begin
FProveedor.DataTable.Active := True;
edtPersonaContacto.Enabled := True;
- RefrescarDireccion;
+
+ if FProveedor.Direcciones.RecordCount > 0 then
+ ElegirDireccionProveedor
+ else begin
+ FPedido.Edit;
+ FPedido.PERSONA_CONTACTO_PROV := FProveedor.PERSONA_CONTACTO;
+ RefrescarDireccion;
+ end;
end
else begin
dsProveedor.DataTable := NIL;
@@ -379,6 +387,7 @@ begin
if not FProveedor.DataTable.Active then
FProveedor.DataTable.Active := True;
+ edtPersonaContacto.Enabled := True;
RefrescarDireccion;
end
else begin
@@ -394,9 +403,10 @@ begin
if (csLoading in Self.ComponentState) then
Exit;
-
+
actAnadirContacto.Enabled := not ReadOnly;
actElegirContacto.Enabled := not ReadOnly;
+ edtPersonaContacto.Enabled := not ReadOnly;
end;
procedure TfrViewDatosYSeleccionProveedorPedido.VerFichaProveedor;