diff --git a/Source/Informes/InfPedidoProveedor.fr3 b/Source/Informes/InfPedidoProveedor.fr3
index 4eaa1787..78e2d629 100644
--- a/Source/Informes/InfPedidoProveedor.fr3
+++ b/Source/Informes/InfPedidoProveedor.fr3
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="42291,7971660764" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;NOMBRE_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_CLIENTE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;);&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;    if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;ImprimirPrecio&#62; then&#13;&#10;  begin              &#13;&#10;     eImporteUnidad.Visible := True;  &#13;&#10;     lImporteUnidad.Visible := True;  &#13;&#10;     eImporteTotal.Visible := True;  &#13;&#10;     lImporteTotal.Visible := True;  &#13;&#10;     ImporteUnidad.Visible := True;  &#13;&#10;     ImporteTotal.Visible := True;           &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     eImporteUnidad.Visible := False;  &#13;&#10;     lImporteUnidad.Visible := False;  &#13;&#10;     eImporteTotal.Visible := False;  &#13;&#10;     lImporteTotal.Visible := False;  &#13;&#10;     ImporteUnidad.Visible := False;  &#13;&#10;     ImporteTotal.Visible := False;&#13;&#10;     eConcepto.Width := eConcepto.Width + eImporteTotal.Width + eImporteUnidad.Width;&#13;&#10;     Concepto.Width := eConcepto.Width - 10;&#13;&#10;     eCantidad.Left := eCantidad.Left + eImporteUnidad.Width;                                                         &#13;&#10;  end&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end.  " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C14000000204E616D653D22546F74616C506167696E61732200010C0E000000204E616D653D22506167696E612200010C16000000204E616D653D22496D7072696D697250726563696F2200010C1C000000204E616D653D22496D7072696D697252656650726F766565646F722200010C14000000204E616D653D2253686F776C6F676F7469706F220000055374796C650100">
+<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="42300,5905143519" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;ID_ALMACEN&#34;&#62; &#60;&#62; 1) then&#13;&#10;     if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;        DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;);&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;    if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;ImprimirPrecio&#62; then&#13;&#10;  begin              &#13;&#10;     eImporteUnidad.Visible := True;  &#13;&#10;     lImporteUnidad.Visible := True;  &#13;&#10;     eImporteTotal.Visible := True;  &#13;&#10;     lImporteTotal.Visible := True;  &#13;&#10;     ImporteUnidad.Visible := True;  &#13;&#10;     ImporteTotal.Visible := True;           &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     eImporteUnidad.Visible := False;  &#13;&#10;     lImporteUnidad.Visible := False;  &#13;&#10;     eImporteTotal.Visible := False;  &#13;&#10;     lImporteTotal.Visible := False;  &#13;&#10;     ImporteUnidad.Visible := False;  &#13;&#10;     ImporteTotal.Visible := False;&#13;&#10;     eConcepto.Width := eConcepto.Width + eImporteTotal.Width + eImporteUnidad.Width;&#13;&#10;     Concepto.Width := eConcepto.Width - 10;&#13;&#10;     eCantidad.Left := eCantidad.Left + eImporteUnidad.Width;                                                         &#13;&#10;  end&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end.  " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C14000000204E616D653D22546F74616C506167696E61732200010C0E000000204E616D653D22506167696E612200010C16000000204E616D653D22496D7072696D697250726563696F2200010C1C000000204E616D653D22496D7072696D697252656650726F766565646F722200010C14000000204E616D653D2253686F776C6F676F7469706F220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="476" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
@@ -33,8 +33,6 @@
       <TfrxMemoView Name="Memo2" Left="365,92115" Top="30,89765" Width="347,93723" Height="38,89765" ShowHint="False" Font.Charset="1" Font.Color="8421504" Font.Height="-29" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="PEDIDO A PROVEEDOR"/>
       <TfrxMemoView Name="Memo1" Left="508,57514" Top="187,04731" Width="94,01577" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Fecha pedido:"/>
       <TfrxMemoView Name="Memo6" Left="608,70903" Top="187,04731" Width="102,05504" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HideZeros="True" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_PEDIDO&#34;]"/>
-      <TfrxMemoView Name="Memo9" Left="366,83488" Top="149,96073" Width="119,89765" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Fax del proveedor:"/>
-      <TfrxMemoView Name="Memo15" Left="494,85065" Top="149,96073" Width="217,91342" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;FAX&#34;]"/>
       <TfrxMemoView Name="eImporteUnidad" Left="502" Top="374" Width="101,25726667" Height="26,45669291" OnBeforePrint="eImporteUnidadOnBeforePrint" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Importe coste"/>
       <TfrxMemoView Name="eImporteTotal" Left="603" Top="374" Width="115,25726667" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
       <TfrxLineView Name="lImporteUnidad" Left="502" Top="374" Width="0" Height="430" ShowHint="False" Frame.Typ="1"/>
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj
index a330f2c5..172ba728 100644
--- a/Source/Modulos/Contactos/Views/Contactos_view.dproj
+++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj
@@ -47,34 +47,40 @@
     <DelphiCompile Include="Contactos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="bdertl.dcp" />
-    <DCCReference Include="Contactos_controller.dcp" />
-    <DCCReference Include="Contactos_model.dcp" />
-    <DCCReference Include="cxDataD11.dcp" />
-    <DCCReference Include="cxEditorsD11.dcp" />
-    <DCCReference Include="cxLibraryD11.dcp" />
-    <DCCReference Include="DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="dxThemeD11.dcp" />
-    <DCCReference Include="FormasPago_controller.dcp" />
-    <DCCReference Include="FormasPago_model.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="GUISDK_D11R.dcp" />
-    <DCCReference Include="Jcl.dcp" />
-    <DCCReference Include="JclVcl.dcp" />
-    <DCCReference Include="JvCoreD11R.dcp" />
-    <DCCReference Include="JvGlobusD11R.dcp" />
-    <DCCReference Include="JvSystemD11R.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
-    <DCCReference Include="TiposIVA_controller.dcp" />
-    <DCCReference Include="TiposIVA_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.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\cxLibraryD11.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\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\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.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\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.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\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="uContactosViewRegister.pas" />
     <DCCReference Include="uEditorCliente.pas">
       <Form>fEditorCliente</Form>
@@ -222,12 +228,6 @@
       <Form>frViewVendedores</Form>
       <DesignClass>TCustomView</DesignClass>
     </DCCReference>
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vclactnband.dcp" />
-    <DCCReference Include="vcldb.dcp" />
-    <DCCReference Include="vcljpg.dcp" />
-    <DCCReference Include="vclx.dcp" />
-    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Contactos/Views/Contactos_view.res and b/Source/Modulos/Contactos/Views/Contactos_view.res differ
diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.dfm b/Source/Modulos/Contactos/Views/uEditorContactos.dfm
index 357b0213..1870c0bc 100644
--- a/Source/Modulos/Contactos/Views/uEditorContactos.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorContactos.dfm
@@ -2,8 +2,6 @@ inherited fEditorContactos: TfEditorContactos
   Left = 285
   Top = 448
   Caption = 'Lista de contactos'
-  ExplicitWidth = 320
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
index e24e7c7d..65429eba 100644
--- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm	
@@ -88,54 +88,25 @@ object RptPedidosProveedor: TRptPedidosProveedor
             Connection = 'IBX'
             TargetTable = 'PEDIDOS_PROVEEDOR'
             SQL = 
-              'SELECT'#10'  V_PEDIDOS_PROVEEDOR.ID,'#10'  V_PEDIDOS_PROVEEDOR.ID_EMPRES' +
-              'A,'#10'  V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10'  V_PEDIDOS_PROVEEDOR.FECHA' +
-              '_PEDIDO,'#10'  V_PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10'  V_PEDIDOS_PROVEE' +
-              'DOR.FECHA_ENVIO,'#10'  V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10'  V_PEDIDO' +
-              'S_PROVEEDOR.VENDEDOR,'#10'  V_PROVEEDORES.NOMBRE,'#10'  V_PROVEEDORES.FA' +
-              'X,'#10#10'  '#39#39' AS NOMBRE_CLIENTE,'#10#10'  IIF ((V_PEDIDOS_PROVEEDOR.ID_ALMA' +
-              'CEN = 0), V_PEDIDOS_PROVEEDOR.CALLE, ALMACENES.CALLE) AS CALLE,'#10 +
-              '  IIF ((V_PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), V_PEDIDOS_PROVEEDOR' +
-              '.POBLACION, ALMACENES.POBLACION) AS POBLACION,'#10'  IIF ((V_PEDIDOS' +
-              '_PROVEEDOR.ID_ALMACEN = 0), V_PEDIDOS_PROVEEDOR.PROVINCIA, ALMAC' +
-              'ENES.PROVINCIA) AS PROVINCIA,'#10'  IIF ((V_PEDIDOS_PROVEEDOR.ID_ALM' +
-              'ACEN = 0), V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL, ALMACENES.CODIGO_P' +
-              'OSTAL) AS CODIGO_POSTAL,'#10'  IIF ((V_PEDIDOS_PROVEEDOR.ID_ALMACEN ' +
-              '= 0), V_PEDIDOS_PROVEEDOR.PERSONA_CONTACTO, ALMACENES.PERSONA_CO' +
-              'NTACTO) AS PERSONA_CONTACTO,'#10'  IIF ((V_PEDIDOS_PROVEEDOR.ID_ALMA' +
-              'CEN = 0), V_PEDIDOS_PROVEEDOR.TELEFONO, ALMACENES.TELEFONO) AS T' +
-              'ELEFONO,'#10#10'  EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10'  EMPRESAS.NOMB' +
-              'RE AS NOMBRE_EMPRESA,'#10'  EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EM' +
-              'PRESA,'#10'  EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10'  EMPRESAS.F' +
-              'AX AS FAX_EMPRESA,'#10'  EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10'  EMPR' +
-              'ESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10'  EMPRESAS.PAGINA_WEB AS PAGINA' +
-              '_WEB_EMPRESA'#10'FROM'#10'  V_PEDIDOS_PROVEEDOR'#10'  LEFT OUTER JOIN V_PROV' +
-              'EEDORES ON (V_PROVEEDORES.ID = V_PEDIDOS_PROVEEDOR.ID_PROVEEDOR)' +
-              #10'  LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_PEDIDOS_PROVEEDO' +
-              'R.ID_EMPRESA)'#10'  LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = V_P' +
-              'EDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE V_PEDIDOS_PROVEEDOR.ID = :ID'#10
+              '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.FECHA_EN' +
+              'VIO,'#10'  PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10'  VENDEDORES.NOMBRE as V' +
+              'ENDEDOR,'#10'  PROVEEDOR.NOMBRE,'#10'  PROVEEDOR.FAX,'#10#10'  CONTRATOS_CLIEN' +
+              'TE.referencia as referencia_contrato,'#10'  CONTRATOS_CLIENTE.refere' +
+              'ncia_CLIENTE,'#10'  CLIENTES.NOMBRE AS NOMBRE_CLIENTE,'#10'  '#10'  PEDIDOS_' +
+              'PROVEEDOR.ID_ALMACEN,'#10'  PEDIDOS_PROVEEDOR.CALLE,'#10'  PEDIDOS_PROVE' +
+              'EDOR.POBLACION,'#10'  PEDIDOS_PROVEEDOR.PROVINCIA,'#10'  PEDIDOS_PROVEED' +
+              'OR.CODIGO_POSTAL,'#10'  PEDIDOS_PROVEEDOR.PERSONA_CONTACTO,'#10'  PEDIDO' +
+              'S_PROVEEDOR.TELEFONO'#10#10'FROM'#10'  PEDIDOS_PROVEEDOR'#10'  LEFT OUTER JOIN' +
+              ' CONTACTOS PROVEEDOR ON (PROVEEDOR .ID = PEDIDOS_PROVEEDOR.ID_PR' +
+              'OVEEDOR)'#10'  LEFT OUTER JOIN CONTACTOS VENDEDORES ON (VENDEDORES.I' +
+              'D = PEDIDOS_PROVEEDOR.ID_VENDEDOR)'#10'  LEFT OUTER JOIN CONTRATOS_C' +
+              'LIENTE ON (CONTRATOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_CONTRATO_' +
+              'CLIENTE)'#10'  LEFT OUTER JOIN CONTACTOS CLIENTES ON (CLIENTES.ID = ' +
+              'CONTRATOS_CLIENTE.ID_CLIENTE)'#10'WHERE PEDIDOS_PROVEEDOR.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
-              item
-                DatasetField = 'OBSERVACIONES'
-                TableField = 'OBSERVACIONES'
-              end
-              item
-                DatasetField = 'NOMBRE'
-                TableField = 'NOMBRE'
-              end
-              item
-                DatasetField = 'CALLE'
-                TableField = 'CALLE'
-              end
-              item
-                DatasetField = 'POBLACION'
-                TableField = 'POBLACION'
-              end
-              item
-                DatasetField = 'REFERENCIA'
-                TableField = 'REFERENCIA'
-              end
               item
                 DatasetField = 'ID'
                 TableField = 'ID'
@@ -145,66 +116,13 @@ object RptPedidosProveedor: TRptPedidosProveedor
                 TableField = 'ID_EMPRESA'
               end
               item
-                DatasetField = 'CODIGO_POSTAL'
-                TableField = 'CODIGO_POSTAL'
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
               end
               item
                 DatasetField = 'FECHA_PEDIDO'
                 TableField = 'FECHA_PEDIDO'
               end
-              item
-                DatasetField = 'PROVINCIA'
-                TableField = 'PROVINCIA'
-              end
-              item
-                DatasetField = 'PERSONA_CONTACTO'
-                TableField = 'PERSONA_CONTACTO'
-              end
-              item
-                DatasetField = 'TELEFONO'
-                TableField = 'TELEFONO'
-              end
-              item
-                DatasetField = 'NOMBRE_EMPRESA'
-                TableField = 'NOMBRE_EMPRESA'
-              end
-              item
-                DatasetField = 'NIF_CIF_EMPRESA'
-                TableField = 'NIF_CIF_EMPRESA'
-              end
-              item
-                DatasetField = 'RAZON_SOCIAL_EMPRESA'
-                TableField = 'RAZON_SOCIAL_EMPRESA'
-              end
-              item
-                DatasetField = 'TELEFONO_1_EMPRESA'
-                TableField = 'TELEFONO_1_EMPRESA'
-              end
-              item
-                DatasetField = 'FAX_EMPRESA'
-                TableField = 'FAX_EMPRESA'
-              end
-              item
-                DatasetField = 'MOVIL_1_EMPRESA'
-                TableField = 'MOVIL_1_EMPRESA'
-              end
-              item
-                DatasetField = 'EMAIL_1_EMPRESA'
-                TableField = 'EMAIL_1_EMPRESA'
-              end
-              item
-                DatasetField = 'PAGINA_WEB_EMPRESA'
-                TableField = 'PAGINA_WEB_EMPRESA'
-              end
-              item
-                DatasetField = 'FAX'
-                TableField = 'FAX'
-              end
-              item
-                DatasetField = 'NOMBRE_CLIENTE'
-                TableField = '<unknown>'
-                SQLOrigin = 'NOMBRE_CLIENTE'
-              end
               item
                 DatasetField = 'FECHA_ENTREGA'
                 TableField = 'FECHA_ENTREGA'
@@ -213,10 +131,67 @@ object RptPedidosProveedor: TRptPedidosProveedor
                 DatasetField = 'FECHA_ENVIO'
                 TableField = 'FECHA_ENVIO'
               end
+              item
+                DatasetField = 'OBSERVACIONES'
+                TableField = 'OBSERVACIONES'
+              end
               item
                 DatasetField = 'VENDEDOR'
                 TableField = '<unknown>'
                 SQLOrigin = 'VENDEDOR'
+              end
+              item
+                DatasetField = 'NOMBRE'
+                TableField = '<unknown>'
+                SQLOrigin = 'NOMBRE'
+              end
+              item
+                DatasetField = 'FAX'
+                TableField = '<unknown>'
+                SQLOrigin = 'FAX'
+              end
+              item
+                DatasetField = 'REFERENCIA_CONTRATO'
+                TableField = '<unknown>'
+                SQLOrigin = 'REFERENCIA_CONTRATO'
+              end
+              item
+                DatasetField = 'REFERENCIA_CLIENTE'
+                TableField = '<unknown>'
+                SQLOrigin = 'REFERENCIA_CLIENTE'
+              end
+              item
+                DatasetField = 'NOMBRE_CLIENTE'
+                TableField = '<unknown>'
+                SQLOrigin = 'NOMBRE_CLIENTE'
+              end
+              item
+                DatasetField = 'CALLE'
+                TableField = 'CALLE'
+              end
+              item
+                DatasetField = 'POBLACION'
+                TableField = 'POBLACION'
+              end
+              item
+                DatasetField = 'PROVINCIA'
+                TableField = 'PROVINCIA'
+              end
+              item
+                DatasetField = 'CODIGO_POSTAL'
+                TableField = 'CODIGO_POSTAL'
+              end
+              item
+                DatasetField = 'PERSONA_CONTACTO'
+                TableField = 'PERSONA_CONTACTO'
+              end
+              item
+                DatasetField = 'TELEFONO'
+                TableField = 'TELEFONO'
+              end
+              item
+                DatasetField = 'ID_ALMACEN'
+                TableField = 'ID_ALMACEN'
               end>
           end>
         Name = 'Informe_Cabecera'
@@ -265,11 +240,25 @@ object RptPedidosProveedor: TRptPedidosProveedor
             DataType = datString
             Size = 25
           end
+          item
+            Name = 'REFERENCIA_CONTRATO'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'REFERENCIA_CLIENTE'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'NOMBRE_CLIENTE'
             DataType = datString
             Size = 255
           end
+          item
+            Name = 'ID_ALMACEN'
+            DataType = datInteger
+          end
           item
             Name = 'CALLE'
             DataType = datString
@@ -299,46 +288,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
             Name = 'TELEFONO'
             DataType = datString
             Size = 25
-          end
-          item
-            Name = 'NIF_CIF_EMPRESA'
-            DataType = datString
-            Size = 15
-          end
-          item
-            Name = 'NOMBRE_EMPRESA'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'RAZON_SOCIAL_EMPRESA'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'TELEFONO_1_EMPRESA'
-            DataType = datString
-            Size = 25
-          end
-          item
-            Name = 'FAX_EMPRESA'
-            DataType = datString
-            Size = 25
-          end
-          item
-            Name = 'MOVIL_1_EMPRESA'
-            DataType = datString
-            Size = 25
-          end
-          item
-            Name = 'EMAIL_1_EMPRESA'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'PAGINA_WEB_EMPRESA'
-            DataType = datString
-            Size = 255
           end>
       end
       item
@@ -497,7 +446,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 39065.872423495400000000
-    ReportOptions.LastChange = 42291.759212881950000000
+    ReportOptions.LastChange = 42300.581549502310000000
     ScriptLanguage = 'PascalScript'
     ShowProgress = False
     StoreInDFM = False