* Ticket #166 -> Arreglo en informes y repaso

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@786 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Base/Base.dproj

@@ -54,58 +54,58 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\designide.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\GUISDK_D11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de cliente\Plugin\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

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_' +
+              'IONES,'#10'  CONTACTOS.NOMBRE,'#10'  CONTACTOS.FAX,'#10'  PEDIDOS_PROVEEDOR.' +
-              'CONTACTO,'#10'  PROVEEDORES_DATOS.CODIGO_ASIGNADO AS CODIGO_CLIENTE,' +
+              'PERSONA_CONTACTO_PROV AS PERSONA_CONTACTO,'#10'  PROVEEDORES_DATOS.C' +
-              #10'  PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10'  COALESCE(ALMACENES.CALLE, PED' +
+              'ODIGO_ASIGNADO AS CODIGO_CLIENTE,'#10'  PEDIDOS_PROVEEDOR.ID_ALMACEN' +
-              'IDOS_PROVEEDOR.CALLE) AS CALLE,'#10'  COALESCE(ALMACENES.POBLACION, ' +
+              ','#10'  COALESCE(ALMACENES.CALLE, PEDIDOS_PROVEEDOR.CALLE) AS CALLE,' +
-              'PEDIDOS_PROVEEDOR.POBLACION) AS POBLACION,'#10'  COALESCE(ALMACENES.' +
+              #10'  COALESCE(ALMACENES.POBLACION, PEDIDOS_PROVEEDOR.POBLACION) AS' +
-              'PROVINCIA, PEDIDOS_PROVEEDOR.PROVINCIA) AS PROVINCIA,'#10'  COALESCE' +
+              ' POBLACION,'#10'  COALESCE(ALMACENES.PROVINCIA, PEDIDOS_PROVEEDOR.PR' +
-              '(ALMACENES.CODIGO_POSTAL, PEDIDOS_PROVEEDOR.CODIGO_POSTAL) AS CO' +
+              'OVINCIA) AS PROVINCIA,'#10'  COALESCE(ALMACENES.CODIGO_POSTAL, PEDID' +
-              'DIGO_POSTAL,'#10'  PEDIDOS_PROVEEDOR.PERSONA_CONTACTO AS ENTREGAR_A,' +
+              'OS_PROVEEDOR.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10'  PEDIDOS_PROVEEDO' +
-              #10'  PEDIDOS_PROVEEDOR.IMPORTE_TOTAL'#10'FROM'#10'  PEDIDOS_PROVEEDOR'#10'  IN' +
+              'R.PERSONA_CONTACTO AS ENTREGAR_A,'#10'  PEDIDOS_PROVEEDOR.IMPORTE_TO' +
-              'NER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_PROVE' +
+              'TAL'#10'FROM'#10'  PEDIDOS_PROVEEDOR'#10'  INNER JOIN CONTACTOS ON (CONTACTO' +
-              'EDOR)'#10'  LEFT OUTER JOIN PROVEEDORES_DATOS ON (PROVEEDORES_DATOS.' +
+              'S.ID = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10'  LEFT OUTER JOIN PROVEED' +
-              'ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10'  LEFT OUTER JOIN' +
+              'ORES_DATOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = PEDIDOS_PROVEEDO' +
-              ' ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHER' +
+              'R.ID_PROVEEDOR)'#10'  LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = P' +
-              'E PEDIDOS_PROVEEDOR.ID = :ID'#10#10#10#10
+              'EDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PROVEEDOR.ID = :ID'#10#10#10 +
+              #10
             StatementType = stSQL
             ColumnMappings = <
               item

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_' +
+              'IONES,'#10'  CONTACTOS.NOMBRE,'#10'  CONTACTOS.FAX,'#10'  PEDIDOS_PROVEEDOR.' +
-              'CONTACTO,'#10'  PROVEEDORES_DATOS.CODIGO_ASIGNADO AS CODIGO_CLIENTE,' +
+              'PERSONA_CONTACTO_PROV AS PERSONA_CONTACTO,'#10'  PROVEEDORES_DATOS.C' +
-              #10'  PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10'  COALESCE(ALMACENES.CALLE, PED' +
+              'ODIGO_ASIGNADO AS CODIGO_CLIENTE,'#10'  PEDIDOS_PROVEEDOR.ID_ALMACEN' +
-              'IDOS_PROVEEDOR.CALLE) AS CALLE_ALMACEN,'#10'  COALESCE(ALMACENES.POB' +
+              ','#10'  COALESCE(ALMACENES.CALLE, PEDIDOS_PROVEEDOR.CALLE) AS CALLE_' +
-              'LACION, PEDIDOS_PROVEEDOR.POBLACION) AS POBLACION_ALMACEN,'#10'  COA' +
+              'ALMACEN,'#10'  COALESCE(ALMACENES.POBLACION, PEDIDOS_PROVEEDOR.POBLA' +
-              'LESCE(ALMACENES.PROVINCIA, PEDIDOS_PROVEEDOR.PROVINCIA) AS PROVI' +
+              'CION) AS POBLACION_ALMACEN,'#10'  COALESCE(ALMACENES.PROVINCIA, PEDI' +
-              'NCIA_ALMACEN,'#10'  COALESCE(ALMACENES.CODIGO_POSTAL, PEDIDOS_PROVEE' +
+              'DOS_PROVEEDOR.PROVINCIA) AS PROVINCIA_ALMACEN,'#10'  COALESCE(ALMACE' +
-              'DOR.CODIGO_POSTAL) AS CODIGO_POSTAL_ALMACEN,'#10'  PEDIDOS_PROVEEDOR' +
+              'NES.CODIGO_POSTAL, PEDIDOS_PROVEEDOR.CODIGO_POSTAL) AS CODIGO_PO' +
-              '.PERSONA_CONTACTO AS PERSONA_CONTACTO_ALMACEN,'#10'  PEDIDOS_PROVEED' +
+              'STAL_ALMACEN,'#10'  PEDIDOS_PROVEEDOR.PERSONA_CONTACTO AS PERSONA_CO' +
-              'OR.IMPORTE_TOTAL'#10'FROM'#10'  PEDIDOS_PROVEEDOR'#10'  INNER JOIN CONTACTOS' +
+              'NTACTO_ALMACEN,'#10'  PEDIDOS_PROVEEDOR.IMPORTE_TOTAL'#10'FROM'#10'  PEDIDOS' +
-              ' ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10'  LEFT OUTER' +
+              '_PROVEEDOR'#10'  INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PRO' +
-              ' JOIN PROVEEDORES_DATOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = PED' +
+              'VEEDOR.ID_PROVEEDOR)'#10'  LEFT OUTER JOIN PROVEEDORES_DATOS ON (PRO' +
-              'IDOS_PROVEEDOR.ID_PROVEEDOR)'#10'  LEFT OUTER JOIN ALMACENES ON (ALM' +
+              'VEEDORES_DATOS.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10'  ' +
-              'ACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PROVEEDO' +
+              'LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.I' +
-              'R.ID = :ID'#10#10#10#10#10
+              'D_ALMACEN)'#10'WHERE PEDIDOS_PROVEEDOR.ID = :ID'#10#10#10#10#10
             StatementType = stSQL
             ColumnMappings = <
               item

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;