Pedidos a proveedor: se ha mejorado la recepción de un pedido que contiene artículos libres. Ahora salen las descripciones de esos artículos al recibirlos y cuando aparecen en los albaranes que se tienen que generar.

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

Build/Build.fbp5

@@ -688,7 +688,7 @@ source_path
               <Property name="PauseInterval" type="Cardinal">0</Property>
               <Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Servidor\FactuGES_Server.dpr</Property>
               <Property name="RegenerateResource" type="WordBool">True</Property>
-              <Property name="ReleaseVersion" type="Integer">6</Property>
+              <Property name="ReleaseVersion" type="Integer">7</Property>
               <Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
               <Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
               <Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
@@ -703,15 +703,15 @@ source_path
               <Property name="UseVersionFromDOF" type="Boolean">True</Property>
               <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
 FileDescription=
-FileVersion=1.4.6.0
+FileVersion=1.4.7.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=
-ProductVersion=1.4.6.0
+ProductVersion=1.4.7.0
 Comments=
-CompileDate=martes, 11 de noviembre de 2008 20:02
+CompileDate=jueves, 27 de noviembre de 2008 16:53
 ]]>
                 </Property>
               <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
@@ -9871,7 +9871,7 @@ Comments=
                   <Property name="IgnoreFailure" type="WordBool">False</Property>
                   <Property name="IncludeCompileDate" type="WordBool">False</Property>
                   <Property name="IncludeManifest" type="Boolean">False</Property>
-                  <Property name="IncludeVerInfo" type="WordBool">False</Property>
+                  <Property name="IncludeVerInfo" type="WordBool">True</Property>
                   <Property name="IsAction" type="Boolean">True</Property>
                   <Property name="IsBreakPoint" type="WordBool">False</Property>
                   <Property name="IsDebug" type="WordBool">False</Property>
@@ -9881,7 +9881,7 @@ Comments=
                   <Property name="IsSpecial" type="WordBool">False</Property>
                   <Property name="KeepCFG" type="Boolean">False</Property>
                   <Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
-                  <Property name="Locale" type="Integer">3081</Property>
+                  <Property name="Locale" type="Integer">3082</Property>
                   <Property MultiValue="0" name="LogToVariable" type="string"></Property>
                   <Property name="MajorVersion" type="Integer">1</Property>
                   <Property MultiValue="0" name="ManifestFile" type="string"></Property>
@@ -9905,7 +9905,16 @@ Comments=
                   <Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
                   <Property name="UsePropertySet" type="Boolean">False</Property>
                   <Property name="UseVersionFromDOF" type="Boolean">False</Property>
-                  <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[FileVersion=1.0.0.0
+                  <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
 ]]>
                     </Property>
                   <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
@@ -13173,7 +13182,7 @@ Comments=
                   <Property name="IgnoreFailure" type="WordBool">False</Property>
                   <Property name="IncludeCompileDate" type="WordBool">False</Property>
                   <Property name="IncludeManifest" type="Boolean">False</Property>
-                  <Property name="IncludeVerInfo" type="WordBool">False</Property>
+                  <Property name="IncludeVerInfo" type="WordBool">True</Property>
                   <Property name="IsAction" type="Boolean">True</Property>
                   <Property name="IsBreakPoint" type="WordBool">False</Property>
                   <Property name="IsDebug" type="WordBool">False</Property>
@@ -13183,7 +13192,7 @@ Comments=
                   <Property name="IsSpecial" type="WordBool">False</Property>
                   <Property name="KeepCFG" type="Boolean">False</Property>
                   <Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
-                  <Property name="Locale" type="Integer">3081</Property>
+                  <Property name="Locale" type="Integer">3082</Property>
                   <Property MultiValue="0" name="LogToVariable" type="string"></Property>
                   <Property name="MajorVersion" type="Integer">1</Property>
                   <Property MultiValue="0" name="ManifestFile" type="string"></Property>
@@ -13207,7 +13216,16 @@ Comments=
                   <Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
                   <Property name="UsePropertySet" type="Boolean">False</Property>
                   <Property name="UseVersionFromDOF" type="Boolean">False</Property>
-                  <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[FileVersion=1.0.0.0
+                  <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
 ]]>
                     </Property>
                   <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
@@ -19246,7 +19264,7 @@ Comments=
               <Property name="PauseInterval" type="Cardinal">0</Property>
               <Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Cliente\FactuGES.dpr</Property>
               <Property name="RegenerateResource" type="WordBool">True</Property>
-              <Property name="ReleaseVersion" type="Integer">5</Property>
+              <Property name="ReleaseVersion" type="Integer">8</Property>
               <Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
               <Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
               <Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
@@ -19261,13 +19279,13 @@ Comments=
               <Property name="UseVersionFromDOF" type="Boolean">False</Property>
               <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Rodax Software S.L.
 FileDescription=
-FileVersion=1.4.5.0
+FileVersion=1.4.8.0
 InternalName=FactuGES
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=FactuGES
-ProductVersion=1.4.5.0
+ProductVersion=1.4.8.0
 Comments=
 ]]>
                 </Property>

Build/Installer.fbp5

@@ -1249,7 +1249,7 @@ updateclient_path
             <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
             <Property MultiValue="1" name="Description" type="string"><![CDATA[Generar instalación]]>
               </Property>
-            <Property name="Enabled" type="WordBool">False</Property>
+            <Property name="Enabled" type="WordBool">True</Property>
             <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
             <Property name="IgnoreFailure" type="WordBool">False</Property>
             <Property name="IsAction" type="Boolean">True</Property>
@@ -1331,7 +1331,7 @@ updateclient_path
                 </Property>
               <Property name="ActionTextColor" type="Cardinal">0</Property>
               <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
-              <Property name="Enabled" type="WordBool">True</Property>
+              <Property name="Enabled" type="WordBool">False</Property>
               <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
               <Property name="IgnoreFailure" type="WordBool">False</Property>
               <Property name="InnoVersion" type="TInnoSetupVersion">Inno5</Property>

Database/scripts/factuges.sql

@@ -1348,17 +1348,19 @@ CREATE VIEW V_ALB_PROV_DETALLES(
     ID_PEDIDO,
     ID_ALMACEN,
     ID_ARTICULO,
+    DESCRIPCION,	
     CANTIDAD)
 AS
 SELECT  ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN,
         ALBARANES_PROVEEDOR.ID_PEDIDO,
         ALBARANES_PROVEEDOR.ID_ALMACEN,
         COALESCE(ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, 0),
+        CASE
+            WHEN ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO IS NULL THEN ALBARANES_PROVEEDOR_DETALLES.CONCEPTO
+            ELSE NULL
+        END,
         SUM (COALESCE(ALBARANES_PROVEEDOR_DETALLES.CANTIDAD, 0)) AS CANTIDAD
-
+FROM ALBARANES_PROVEEDOR_DETALLES INNER JOIN ALBARANES_PROVEEDOR ON (ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID)
-FROM ALBARANES_PROVEEDOR_DETALLES
-INNER JOIN ALBARANES_PROVEEDOR
-ON (ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID)
 
 /*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos
 LEFT JOIN ARTICULOS
@@ -1371,11 +1373,11 @@ AND   (ARTICULOS.INVENTARIABLE = 1)
 GROUP BY ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN,
         ALBARANES_PROVEEDOR.ID_PEDIDO,
         ALBARANES_PROVEEDOR.ID_ALMACEN,
-        ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO
+        ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO,
+        5
 ;
 
 
-
 /* View: V_ALBARANES_CLIENTE */
 CREATE VIEW V_ALBARANES_CLIENTE(
     ID,
@@ -2521,14 +2523,14 @@ GROUP BY ID_ALMACEN,
 CREATE VIEW V_PED_PROV_ARTICULOS_RECIBIDOS(
     ID_PEDIDO,
     ID_ARTICULO,
+	DESCRIPCION,
     CANTIDAD)
 AS
-SELECT ID_PEDIDO, ID_ARTICULO, SUM(CANTIDAD) AS CANTIDAD
+SELECT ID_PEDIDO, ID_ARTICULO, DESCRIPCION,
+    SUM(CANTIDAD) AS CANTIDAD
 FROM V_ALB_PROV_DETALLES
 WHERE (ID_PEDIDO is not null)
-GROUP BY ID_PEDIDO, ID_ARTICULO
+GROUP BY ID_PEDIDO, ID_ARTICULO, DESCRIPCION;
-;
-
 
 
 /* View: V_PED_PROV_DETALLES */
@@ -2536,11 +2538,16 @@ CREATE VIEW V_PED_PROV_DETALLES(
     ID_PEDIDO,
     ID_ALMACEN,
     ID_ARTICULO,
+    DESCRIPCION,
     CANTIDAD)
 AS
 SELECT  PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO,
         PEDIDOS_PROVEEDOR.ID_ALMACEN,
         COALESCE(PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO, 0),
+        CASE
+            WHEN PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO IS NULL THEN PEDIDOS_PROVEEDOR_DETALLES.CONCEPTO
+            ELSE NULL
+        END,
         SUM(COALESCE(PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD, 0))
 
 FROM PEDIDOS_PROVEEDOR_DETALLES
@@ -2557,8 +2564,8 @@ AND   (ARTICULOS.INVENTARIABLE = 1)
 
 GROUP BY PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO,
          PEDIDOS_PROVEEDOR.ID_ALMACEN,
-         PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO
+         PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO,
-;
+         4;
 
 
 
@@ -2566,12 +2573,14 @@ GROUP BY PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO,
 CREATE VIEW V_PED_PROV_ARTICULOS_AUX(
     ID_PEDIDO,
     ID_ARTICULO,
+	DESCRIPCION,
     CANTIDAD_PEDIDA,
     CANTIDAD_RECIBIDA)
 AS
 SELECT
       V_PED_PROV_DETALLES.ID_PEDIDO,
       V_PED_PROV_DETALLES.ID_ARTICULO,
+      V_PED_PROV_DETALLES.DESCRIPCION,
       V_PED_PROV_DETALLES.CANTIDAD AS CANTIDAD_PEDIDA,
       0 as CANTIDAD_RECIBIDA
 FROM V_PED_PROV_DETALLES
@@ -2579,17 +2588,18 @@ UNION ALL
 SELECT
       V_PED_PROV_ARTICULOS_RECIBIDOS.ID_PEDIDO,
       V_PED_PROV_ARTICULOS_RECIBIDOS.ID_ARTICULO,
+      V_PED_PROV_ARTICULOS_RECIBIDOS.DESCRIPCION,
       NULL as CANTIDAD_PEDIDA,
       V_PED_PROV_ARTICULOS_RECIBIDOS.CANTIDAD AS CANTIDAD_RECIBIDA
 FROM V_PED_PROV_ARTICULOS_RECIBIDOS
 ;
 
 
-
 /* View: V_PED_PROV_ARTICULOS */
 CREATE VIEW V_PED_PROV_ARTICULOS(
     ID_PEDIDO,
     ID_ARTICULO,
+	DESCRIPCION,
     CANTIDAD_PEDIDA,
     CANTIDAD_RECIBIDA,
     CANTIDAD_PENDIENTE)
@@ -2597,6 +2607,7 @@ AS
 SELECT ID_PEDIDO,
        /*PEDIDOS_PROVEEDOR.ID_ALMACEN,*/
        ID_ARTICULO,
+       DESCRIPCION,
        SUM(CANTIDAD_PEDIDA) as CANTIDAD_PEDIDA,
        SUM(CANTIDAD_RECIBIDA) as CANTIDAD_RECIBIDA,
        SUM(CANTIDAD_PEDIDA) - SUM(CANTIDAD_RECIBIDA) as CANTIDAD_PENDIENTE
@@ -2607,7 +2618,8 @@ ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS_AUX.ID_PEDIDO)
 */
 GROUP BY ID_PEDIDO,
          /*PEDIDOS_PROVEEDOR.ID_ALMACEN,*/
-         ID_ARTICULO
+         ID_ARTICULO,
+         DESCRIPCION
 HAVING SUM(CANTIDAD_PEDIDA) IS NOT NULL
 ;
 

Source/Base/Base.dproj

@@ -54,58 +54,58 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\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/GUIBase/uViewDetallesBase.dfm

@@ -64,7 +64,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       DroppedDownWidth = 145
       MaxMRUCount = 0
       FontName = 'Tahoma'
-      ItemIndex = 42
+      ItemIndex = 39
       Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
       Sorted = True
       TabOrder = 2

Source/GUIBase/uViewDetallesBase.pas

@@ -677,6 +677,8 @@ begin
     TcxMyRichEdit(AEdit)._Grid := _Grid;
   end;
 
+  // Este exit es para que no se genere código RTF para el tamaño de la fuente
+  // porque luego sale demasiado grande en los informes impresos. 
   Exit; ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
   
   if AEdit is TcxRichEdit then
@@ -738,7 +740,6 @@ var
 begin
   inherited;
 
-
   AStyle := NIL;
   if Assigned(AItem) then
   begin
@@ -748,9 +749,6 @@ begin
       AStyle := cxStyle_NORMAL_IMPAR;
   end;
 
-
-
-
   if Assigned(ARecord) then
   begin
 
@@ -765,22 +763,6 @@ begin
 
     if ARecord.Values[3] = TIPO_DETALLE_DESCUENTO then
       AStyle := cxStyle_DESCUENTO;
-
-{
-    ATipo := DarTipoConcepto(ARecord);
-
-    if ATipo = TIPO_DETALLE_TITULO then
-      AStyle := cxStyle_TITULO;
-
-    if ATipo = TIPO_DETALLE_TITULO_OPCIONAL then
-      AStyle := cxStyle_TITULO_OPCIONAL;
-
-    if ATipo = TIPO_DETALLE_SUBTOTAL then
-      AStyle := cxStyle_SUBTOTAL;
-
-    if ATipo = TIPO_DETALLE_DESCUENTO then
-      AStyle := cxStyle_DESCUENTO;
-}
   end;
 
 end;

Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas

@@ -232,7 +232,15 @@ begin
           ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
 //Se cambia porque puede haber articulos del pedido que no tengan referencia de proveedor
 //          ADetallesController.AnadirArticulo(ADetalles, AInventarioRecibido.REFERENCIA, tCliente);
-          ADetallesController.AnadirArticulo(ADetalles, AInventarioRecibido.ID_ARTICULO);
+
+          if AInventarioRecibido.ID_ARTICULO = 0 then
+          begin
+            ADetalles.Edit;
+            ADetalles.CONCEPTO := AInventarioRecibido.DESCRIPCION;
+          end
+          else
+            ADetallesController.AnadirArticulo(ADetalles, AInventarioRecibido.ID_ARTICULO);
+
           ADetalles.Edit;
 
           APedido.Detalles.First;

Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm

@@ -12,7 +12,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
   inherited JvNavPanelHeader: TJvNavPanelHeader
     Width = 853
     Caption = 'Entrada de art'#237'culos en '
-    ExplicitWidth = 773
+    ExplicitWidth = 853
     inherited Image1: TImage
       Left = 720
       Picture.Data = {
@@ -36,12 +36,12 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
     end
     inherited lblDesbloquear: TcxLabel
       Left = 755
-      ExplicitLeft = 675
+      ExplicitLeft = 755
     end
   end
   inherited TBXDock: TTBXDock
     Width = 853
-    ExplicitWidth = 773
+    ExplicitWidth = 853
     inherited tbxMain: TTBXToolbar
       ExplicitWidth = 164
       object TBXItem7: TTBXItem [16]
@@ -69,12 +69,12 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
     MultiLine = True
     Visible = False
     ExplicitTop = 257
-    ExplicitWidth = 767
+    ExplicitWidth = 847
     ExplicitHeight = 277
     inherited pagGeneral: TTabSheet
       ExplicitLeft = 4
       ExplicitTop = 24
-      ExplicitWidth = 759
+      ExplicitWidth = 839
       ExplicitHeight = 249
     end
   end
@@ -86,7 +86,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
         Width = 200
       end>
     ExplicitTop = 537
-    ExplicitWidth = 773
+    ExplicitWidth = 853
   end
   object ToolBar1: TToolBar [4]
     AlignWithMargins = True
@@ -110,7 +110,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
     ShowHint = True
     TabOrder = 4
     Transparent = True
-    ExplicitWidth = 763
     object ToolButton1: TToolButton
       Left = 0
       Top = 0
@@ -143,7 +142,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
     Top = 76
     Width = 853
     Height = 146
-    ExplicitWidth = 773
     object pnlMovimiento: TTBXDockablePanel
       Left = 0
       Top = 89
@@ -214,7 +212,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
         StyleHot.LookAndFeel.NativeStyle = True
         TabOrder = 1
         Height = 21
-        Width = 535
+        Width = 1977
       end
     end
     object pnlEntradaPedido: TTBXDockablePanel
@@ -345,22 +343,28 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
     TabOrder = 6
     ReadOnly = False
     ExplicitTop = 254
-    ExplicitWidth = 773
+    ExplicitWidth = 853
     ExplicitHeight = 283
     inherited cxGrid: TcxGrid
       Width = 837
       Height = 139
-      ExplicitWidth = 757
+      ExplicitWidth = 837
       ExplicitHeight = 139
+      inherited cxGridView: TcxGridDBTableView
+        DataController.KeyFieldNames = 'RecID'
+        inherited cxGridViewSTOCK: TcxGridDBColumn
+          Properties.Alignment.Horz = taRightJustify
+        end
+      end
     end
     inherited frViewFiltroBase1: TfrViewFiltroBase
       Width = 853
-      ExplicitWidth = 773
+      ExplicitWidth = 853
       inherited TBXDockablePanel1: TTBXDockablePanel
-        ExplicitWidth = 773
+        ExplicitWidth = 853
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 853
-          ExplicitWidth = 773
+          ExplicitWidth = 853
           inherited txtFiltroTodo: TcxTextEdit
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
@@ -392,10 +396,10 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
         end
         inherited TBXAlignmentPanel1: TTBXAlignmentPanel
           Width = 853
-          ExplicitWidth = 773
+          ExplicitWidth = 853
           inherited tbxBotones: TTBXToolbar
             Width = 843
-            ExplicitWidth = 763
+            ExplicitWidth = 843
           end
         end
       end
@@ -403,13 +407,13 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
     inherited pnlAgrupaciones: TTBXDockablePanel
       Top = 257
       ExplicitTop = 257
-      ExplicitWidth = 773
+      ExplicitWidth = 853
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
         Width = 853
-        ExplicitWidth = 773
+        ExplicitWidth = 853
         inherited TBXToolbar1: TTBXToolbar
           Width = 843
-          ExplicitWidth = 763
+          ExplicitWidth = 843
         end
       end
     end

Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm

@@ -362,7 +362,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
     Params = <
       item
         Name = 'ID'
-        Value = ''
+        Value = '41'
         ParamType = daptInput
       end>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas

@@ -9,9 +9,9 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_PedidosProveedor = '{8C8CD94B-CD11-495F-A16A-8F3B9BEABA73}';
+  RID_PedidosProveedor = '{E2652269-320B-4D43-9416-4F5D0C4E23D6}';
-  RID_PedidosProveedor_Detalles = '{52075C87-DC98-4AD7-AE4B-027415F6B511}';
+  RID_PedidosProveedor_Detalles = '{C42EB1EF-95E8-4856-8C5D-8E1A612ADBB5}';
-  RID_PedidosProveedor_Articulos_Pendientes = '{C5807540-7274-400F-8400-28EDB852A39D}';
+  RID_PedidosProveedor_Articulos_Pendientes = '{8D6A57CC-6CD9-4223-93A1-94090350476A}';
 
   { Data table names }
   nme_PedidosProveedor = 'PedidosProveedor';
@@ -161,7 +161,7 @@ const
 type
   { IPedidosProveedor }
   IPedidosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{77A2BA43-5DE9-4272-986F-3D3A120352D6}']
+  ['{7AAC7427-C170-452F-98E6-7C76C7861CD9}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -688,7 +688,7 @@ type
 
   { IPedidosProveedor_Detalles }
   IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{1688B7AF-8975-402E-B175-13632647A605}']
+  ['{63AB74B8-929A-447A-A847-03FCEB7B1654}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -903,7 +903,7 @@ type
 
   { IPedidosProveedor_Articulos_Pendientes }
   IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
-  ['{23BF9A89-AD50-447F-9532-E9C5A8AE052B}']
+  ['{C271A1BF-757D-4303-99EA-23C238D75AB6}']
     { Property getters and setters }
     function GetID_PEDIDOValue: Integer;
     procedure SetID_PEDIDOValue(const aValue: Integer);

Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas

@@ -9,14 +9,14 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_PedidosProveedorDelta = '{92B2043D-D31C-48BF-9253-B9FEEA699B6A}';
+  RID_PedidosProveedorDelta = '{B8E3C26F-6327-4643-9DD8-EAB3D15FDA84}';
-  RID_PedidosProveedor_DetallesDelta = '{11A37703-CD98-4D9B-AFE2-BA7D4C9E1B31}';
+  RID_PedidosProveedor_DetallesDelta = '{64AC3126-C520-48D6-9555-5D59ABDCA7E6}';
-  RID_PedidosProveedor_Articulos_PendientesDelta = '{A84711B7-4198-47B3-8A46-D337D23E9E96}';
+  RID_PedidosProveedor_Articulos_PendientesDelta = '{6550B049-2DF2-4B23-AD8C-7DD1E6C96A08}';
 
 type
   { IPedidosProveedorDelta }
   IPedidosProveedorDelta = interface(IPedidosProveedor)
-  ['{92B2043D-D31C-48BF-9253-B9FEEA699B6A}']
+  ['{B8E3C26F-6327-4643-9DD8-EAB3D15FDA84}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -544,7 +544,7 @@ type
 
   { IPedidosProveedor_DetallesDelta }
   IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
-  ['{11A37703-CD98-4D9B-AFE2-BA7D4C9E1B31}']
+  ['{64AC3126-C520-48D6-9555-5D59ABDCA7E6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PEDIDOValue : Integer;
@@ -758,7 +758,7 @@ type
 
   { IPedidosProveedor_Articulos_PendientesDelta }
   IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
-  ['{A84711B7-4198-47B3-8A46-D337D23E9E96}']
+  ['{6550B049-2DF2-4B23-AD8C-7DD1E6C96A08}']
     { Property getters and setters }
     function GetOldID_PEDIDOValue : Integer;
     function GetOldREFERENCIAValue : String;

Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj

@@ -20,6 +20,7 @@
     <Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
     <Projects Include="..\Inventario\Controller\Inventario_controller.dproj" />
     <Projects Include="..\Inventario\Data\Inventario_data.dproj" />
+    <Projects Include="..\Inventario\Views\Inventario_view.dproj" />
     <Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
     <Projects Include="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" />
     <Projects Include="Controller\PedidosProveedor_controller.dproj" />
@@ -241,14 +242,23 @@
   <Target Name="Inventario_data:Make">
     <MSBuild Projects="..\Inventario\Data\Inventario_data.dproj" Targets="Make" />
   </Target>
+  <Target Name="Inventario_view">
+    <MSBuild Projects="..\Inventario\Views\Inventario_view.dproj" Targets="" />
+  </Target>
+  <Target Name="Inventario_view:Clean">
+    <MSBuild Projects="..\Inventario\Views\Inventario_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Inventario_view:Make">
+    <MSBuild Projects="..\Inventario\Views\Inventario_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;FacturasProveedor_controller;PedProv_FacProv_relation;PedidosProveedor_view;PedidosProveedor_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;FacturasProveedor_controller;PedProv_FacProv_relation;PedidosProveedor_view;PedidosProveedor_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_FacProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_FacProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_controller:Make;PedProv_FacProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_controller:Make;PedProv_FacProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm

@@ -618,26 +618,26 @@ object srvPedidosProveedor: TsrvPedidosProveedor
         Params = <
           item
             Name = 'ID'
-            Value = ''
+            Value = '41'
             ParamType = daptInput
           end>
         Statements = <
           item
             Connection = 'IBX'
             SQL = 
-              'select V_PED_PROV_ARTICULOS.ID_PEDIDO,'#10'       ARTICULOS.REFERENC' +
+              'SELECT V_PED_PROV_ARTICULOS.ID_PEDIDO,'#10'       ARTICULOS.REFERENC' +
               'IA,'#10'       V_PED_PROV_ARTICULOS.ID_ARTICULO,'#10'       COALESCE(ART' +
-              'ICULOS.DESCRIPCION, '#39'"Articulos no dados de alta en la aplicaci'#243 +
+              'ICULOS.DESCRIPCION, V_PED_PROV_ARTICULOS.DESCRIPCION) as CONCEPT' +
-              'n"'#39' )  as CONCEPTO,'#10'       V_PED_PROV_ARTICULOS.CANTIDAD_PENDIEN' +
+              'O,'#10'       V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE as CANTIDAD,'#10' ' +
-              'TE as CANTIDAD,'#10'       ARTICULOS_PROVEEDORES.REFERENCIA_PROV as ' +
+              '      ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REFERENCIA_PROVEE' +
-              'REFERENCIA_PROVEEDOR'#10#10'FROM V_PED_PROV_ARTICULOS'#10'LEFT JOIN ARTICU' +
+              'DOR'#10'FROM V_PED_PROV_ARTICULOS'#10'     LEFT JOIN ARTICULOS ON (ARTIC' +
-              'LOS ON (ARTICULOS.ID = V_PED_PROV_ARTICULOS.ID_ARTICULO)'#10'LEFT JO' +
+              'ULOS.ID = V_PED_PROV_ARTICULOS.ID_ARTICULO)'#10'     LEFT JOIN PEDID' +
-              'IN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTIC' +
+              'OS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS.ID_' +
-              'ULOS.ID_PEDIDO)'#10'LEFT JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_P' +
+              'PEDIDO)'#10'     LEFT JOIN ARTICULOS_PROVEEDORES ON'#10'        ((ARTICU' +
-              'ROVEEDORES.ID_ARTICULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORE' +
+              'LOS_PROVEEDORES.ID_ARTICULO = ARTICULOS.ID) AND'#10'         (ARTICU' +
-              'S.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE (V_PED_P' +
+              'LOS_PROVEEDORES.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR))'#10 +
-              'ROV_ARTICULOS.CANTIDAD_PENDIENTE <> 0)'#10'AND (V_PED_PROV_ARTICULOS' +
+              'WHERE (V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE <> 0)'#10'  AND (V_PE' +
-              '.ID_PEDIDO = :ID)'#10
+              'D_PROV_ARTICULOS.ID_PEDIDO = :ID)'#10
             StatementType = stSQL
             ColumnMappings = <
               item

Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/uGenerarAlbaranesProvUtils.pas

@@ -1,72 +1,3 @@
-{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
-{$MINSTACKSIZE $00004000}
-{$MAXSTACKSIZE $00100000}
-{$IMAGEBASE $00400000}
-{$APPTYPE GUI}
-{$WARN SYMBOL_DEPRECATED ON}
-{$WARN SYMBOL_LIBRARY ON}
-{$WARN SYMBOL_PLATFORM ON}
-{$WARN SYMBOL_EXPERIMENTAL ON}
-{$WARN UNIT_LIBRARY ON}
-{$WARN UNIT_PLATFORM ON}
-{$WARN UNIT_DEPRECATED ON}
-{$WARN UNIT_EXPERIMENTAL ON}
-{$WARN HRESULT_COMPAT ON}
-{$WARN HIDING_MEMBER ON}
-{$WARN HIDDEN_VIRTUAL ON}
-{$WARN GARBAGE ON}
-{$WARN BOUNDS_ERROR ON}
-{$WARN ZERO_NIL_COMPAT ON}
-{$WARN STRING_CONST_TRUNCED ON}
-{$WARN FOR_LOOP_VAR_VARPAR ON}
-{$WARN TYPED_CONST_VARPAR ON}
-{$WARN ASG_TO_TYPED_CONST ON}
-{$WARN CASE_LABEL_RANGE ON}
-{$WARN FOR_VARIABLE ON}
-{$WARN CONSTRUCTING_ABSTRACT ON}
-{$WARN COMPARISON_FALSE ON}
-{$WARN COMPARISON_TRUE ON}
-{$WARN COMPARING_SIGNED_UNSIGNED ON}
-{$WARN COMBINING_SIGNED_UNSIGNED ON}
-{$WARN UNSUPPORTED_CONSTRUCT ON}
-{$WARN FILE_OPEN ON}
-{$WARN FILE_OPEN_UNITSRC ON}
-{$WARN BAD_GLOBAL_SYMBOL ON}
-{$WARN DUPLICATE_CTOR_DTOR ON}
-{$WARN INVALID_DIRECTIVE ON}
-{$WARN PACKAGE_NO_LINK ON}
-{$WARN PACKAGED_THREADVAR ON}
-{$WARN IMPLICIT_IMPORT ON}
-{$WARN HPPEMIT_IGNORED ON}
-{$WARN NO_RETVAL ON}
-{$WARN USE_BEFORE_DEF ON}
-{$WARN FOR_LOOP_VAR_UNDEF ON}
-{$WARN UNIT_NAME_MISMATCH ON}
-{$WARN NO_CFG_FILE_FOUND ON}
-{$WARN IMPLICIT_VARIANTS ON}
-{$WARN UNICODE_TO_LOCALE ON}
-{$WARN LOCALE_TO_UNICODE ON}
-{$WARN IMAGEBASE_MULTIPLE ON}
-{$WARN SUSPICIOUS_TYPECAST ON}
-{$WARN PRIVATE_PROPACCESSOR ON}
-{$WARN UNSAFE_TYPE OFF}
-{$WARN UNSAFE_CODE OFF}
-{$WARN UNSAFE_CAST OFF}
-{$WARN OPTION_TRUNCATED ON}
-{$WARN WIDECHAR_REDUCED ON}
-{$WARN DUPLICATES_IGNORED ON}
-{$WARN UNIT_INIT_SEQ ON}
-{$WARN LOCAL_PINVOKE ON}
-{$WARN MESSAGE_DIRECTIVE ON}
-{$WARN TYPEINFO_IMPLICITLY_ADDED ON}
-{$WARN XML_WHITESPACE_NOT_ALLOWED ON}
-{$WARN XML_UNKNOWN_ENTITY ON}
-{$WARN XML_INVALID_NAME_START ON}
-{$WARN XML_INVALID_NAME ON}
-{$WARN XML_EXPECTED_CHARACTER ON}
-{$WARN XML_CREF_NO_RESOLVE ON}
-{$WARN XML_NO_PARM ON}
-{$WARN XML_NO_MATCHING_PARM ON}
 unit uGenerarAlbaranesProvUtils;
 
 interface
@@ -360,7 +291,6 @@ begin
   end
   else begin
     try
-
       // En AInventarioRecibido tenemos la lista de articulos que hemos recibido y
       // que utilizaremos para hacer el albarán
       AArticulosPendientes := ADetallesPedidosProveedorController.ArticulosPendientes(APedido.ID);

Source/Servidor/FactuGES_Server.dpr

@@ -101,8 +101,6 @@ uses
   schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
   uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente: TDataModule},
   uRptWordPresupuestoCliente in '..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas' {RptWordPresupuestoCliente: TDataModule},
-  schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
-  schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
   srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService},
   schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
   schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
@@ -132,7 +130,9 @@ uses
   schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
   schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
-  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
+  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
+  schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
+  schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.4.9.0\0"
               VALUE "ProductVersion", "1.4.9.0\0"
-              VALUE "CompileDate", "lunes, 22 de diciembre de 2008 10:41\0"
+              VALUE "CompileDate", "miércoles, 07 de enero de 2009 10:01\0"
          END
     END
     BLOCK "VarFileInfo"