Primera fase de listado de proceso completa de pedidos de cliente, se arregla fichero de compilación para que no falle si limpias todo el codigo

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@193 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Build/Build.fbpInf

@@ -1,6 +1,6 @@
 <project ServerProjectName="">
   <watches/>
-  <collapsedNodes>{0F75D8EA-B6C2-4ECA-9E1E-45E235135301},{10527A84-0FB7-4007-9B23-9E5826133948},{154CD4CE-0F61-40F6-8CE6-CF525D3CFDCA},{282C2736-74F5-49C2-95D0-C1C4D359AEB2},{331AC851-CE2F-4986-9381-A257AB26B1AD},{3F8BEF26-5F4F-4B97-B1BC-118F36CBDD68},{4968AB21-B759-4F4A-9214-8792F67DA1E2},{4B038673-47F7-4436-BD07-D557FA62337E},{68D393D0-7234-4D5A-9D3A-A3FDC1593E55},{6C425F09-E04B-49EC-89E2-8C93D60E9055},{7251A871-CE6C-41D1-A404-735619825EAE},{856B4CEA-BF27-4696-8FFC-4507B6E29943},{A181C54F-9BE8-4404-9AB9-FEE8A9C3443D},{AD23CE23-8728-48FA-84FD-264E27BA8F46},{B70F0EA3-7874-42B0-BFB8-430D43AC2D61},{C662116C-EB3F-4161-A768-49D13B08EFE5},{CE990EA4-7660-4997-8CBF-6C6AA978753A},{E8E8671F-894B-4049-B4A6-905B57207637},{F2541E28-3C45-4A17-BEC5-185CBF9D2A90}</collapsedNodes>
+  <collapsedNodes>{0F75D8EA-B6C2-4ECA-9E1E-45E235135301},{10527A84-0FB7-4007-9B23-9E5826133948},{154CD4CE-0F61-40F6-8CE6-CF525D3CFDCA},{331AC851-CE2F-4986-9381-A257AB26B1AD},{3F8BEF26-5F4F-4B97-B1BC-118F36CBDD68},{4968AB21-B759-4F4A-9214-8792F67DA1E2},{4B038673-47F7-4436-BD07-D557FA62337E},{6C425F09-E04B-49EC-89E2-8C93D60E9055},{7251A871-CE6C-41D1-A404-735619825EAE},{856B4CEA-BF27-4696-8FFC-4507B6E29943},{A181C54F-9BE8-4404-9AB9-FEE8A9C3443D},{AD23CE23-8728-48FA-84FD-264E27BA8F46},{B70F0EA3-7874-42B0-BFB8-430D43AC2D61},{C662116C-EB3F-4161-A768-49D13B08EFE5},{CE990EA4-7660-4997-8CBF-6C6AA978753A},{E8E8671F-894B-4049-B4A6-905B57207637},{F2541E28-3C45-4A17-BEC5-185CBF9D2A90}</collapsedNodes>
   <breakpoints></breakpoints>
   <actions/>
   <propertysets/>
@@ -14,8 +14,8 @@
     <Notes>
       <![CDATA[]]>
     </Notes>
-    <LastBuildRun>00:00:09</LastBuildRun>
+    <LastBuildRun>00:02:23</LastBuildRun>
-    <LastBuildStart>31/01/2012 10:19:19</LastBuildStart>
+    <LastBuildStart>28/08/2013 15:46:41</LastBuildStart>
     <LastBuildState>False</LastBuildState>
   </properties>
 </project>

Source/GUIBase/GUIBase.dproj

@@ -59,30 +59,30 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Contactos\Views\Base.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\Base.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\cxTreeListD11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\cxTreeListD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dxBarD11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dxBarExtItemsD11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxBarExtItemsD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dxComnD11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxComnD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dxPsPrVwAdvD11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPsPrVwAdvD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\frx11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\frx11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\frxe11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\frxe11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\fs11.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\fs11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\JvAppFrmD11R.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Views\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>

Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.dfm */
 /* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.res */
-/* c:\temp\dtf230.tmp */
+/* c:\temp\dtf65E.tmp */

Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.res */
-/* c:\temp\dtf22E.tmp */
+/* c:\temp\dtf65C.tmp */

Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc

@@ -16,4 +16,4 @@ END
 /* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dfm */
 /* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dfm */
 /* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.res */
-/* c:\temp\dtf234.tmp */
+/* c:\temp\dtf662.tmp */

Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.dfm */
 /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.res */
-/* c:\temp\dtf226.tmp */
+/* c:\temp\dtf654.tmp */

Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.res */
-/* c:\temp\dtf224.tmp */
+/* c:\temp\dtf652.tmp */

Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc

@@ -19,4 +19,4 @@ END
 /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uViewInfVentasAlbArticulo.dfm */
 /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uEditorInfVentasAlbArticulo.dfm */
 /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.res */
-/* c:\temp\dtf22A.tmp */
+/* c:\temp\dtf658.tmp */

Source/Modulos/Informes base/Controller/InformesBase_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Informes base\Controller\InformesBase_controller.res */
-/* c:\temp\dtf21A.tmp */
+/* c:\temp\dtf648.tmp */

Source/Modulos/Informes base/Data/Informes_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Informes base\Data\uDataModuleInformes.dfm */
 /* C:\Codigo\Source\Modulos\Informes base\Data\Informes_data.res */
-/* c:\temp\dtf216.tmp */
+/* c:\temp\dtf642.tmp */

Source/Modulos/Informes base/Model/Informes_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Informes base\Model\Informes_model.res */
-/* c:\temp\dtf214.tmp */
+/* c:\temp\dtf640.tmp */

Source/Modulos/Informes base/Views/Informes_view.drc

@@ -15,4 +15,4 @@ END
 /* C:\Codigo\Source\Modulos\Informes base\Views\uViewInformes.dfm */
 /* C:\Codigo\Source\Modulos\Informes base\Views\uEditorInformes.dfm */
 /* C:\Codigo\Source\Modulos\Informes base\Views\Informes_view.res */
-/* c:\temp\dtf21E.tmp */
+/* c:\temp\dtf64C.tmp */

Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dproj

@@ -49,28 +49,30 @@
     <DelphiCompile Include="PedidosCliente_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Base.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Lib\designide.dcp" />
+    <DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\..\Lib\PedidosCliente_data.dcp" />
+    <DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
+    <DCCReference Include="..\..\Lib\vcl.dcp" />
+    <DCCReference Include="..\..\Lib\vclactnband.dcp" />
+    <DCCReference Include="..\..\Lib\vclx.dcp" />
+    <DCCReference Include="..\..\Lib\xmlrtl.dcp" />
     <DCCReference Include="uArticulosPedidoClienteController.pas" />
     <DCCReference Include="uDetallesPedidoClienteController.pas" />
     <DCCReference Include="uPedidosClienteController.pas" />
     <DCCReference Include="uPedidosClienteReportController.pas" />
-    <DCCReference Include="View\Articulos_controller.dcp" />
-    <DCCReference Include="View\Base.dcp" />
-    <DCCReference Include="View\Contactos_controller.dcp" />
-    <DCCReference Include="View\designide.dcp" />
-    <DCCReference Include="View\GUISDK_D11R.dcp" />
-    <DCCReference Include="View\PedidosCliente_data.dcp" />
     <DCCReference Include="View\uIDialogListaPedidosClienteEnvioEMail.pas" />
     <DCCReference Include="View\uIDialogListaPedidosCliEnvioEMail.pas" />
     <DCCReference Include="View\uIEditorDireccionEntregaPedidoCliente.pas" />
     <DCCReference Include="View\uIEditorElegirArticulosPedidosCliente.pas" />
     <DCCReference Include="View\uIEditorElegirPedidosCliente.pas" />
+    <DCCReference Include="View\uIEditorListadoProcesoPedidoCliente.pas" />
     <DCCReference Include="View\uIEditorPedidoCliente.pas" />
     <DCCReference Include="View\uIEditorPedidosCliente.pas" />
     <DCCReference Include="View\uIEditorPedidosClientePreview.pas" />
-    <DCCReference Include="View\vcl.dcp" />
-    <DCCReference Include="View\vclactnband.dcp" />
-    <DCCReference Include="View\vclx.dcp" />
-    <DCCReference Include="View\xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
-/* c:\temp\dtf254.tmp */
+/* c:\temp\dtf6D6.tmp */

Source/Modulos/Pedidos de cliente/Controller/View/uIEditorListadoProcesoPedidoCliente.pas

@@ -0,0 +1,29 @@
+unit uIEditorListadoProcesoPedidoCliente;
+
+interface
+
+uses
+  uEditorDBItem, uBizPedidosCliente, uBizPedidosProveedor;
+//uPedidosClienteController;
+
+type
+  IEditorListadoProcesoPedidoCliente = interface(IEditorDBItem)
+  ['{E294B4E2-DB66-4D6F-958D-66C5583BA1F2}']
+//    function GetController : IPedidosClienteController;
+//    procedure SetController (const Value : IPedidosClienteController);
+//    property Controller : IPedidosClienteController read GetController
+//      write SetController;
+
+    function GetPedidosCliente: IBizPedidoCliente;
+    procedure SetPedidosCliente(const Value: IBizPedidoCliente);
+    property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente;
+
+    function GetPedidosProveedor: IBizPedidoProveedor;
+    procedure SetPedidosProveedor(const Value: IBizPedidoProveedor);
+    property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor;
+
+  end;
+
+implementation
+
+end.

Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas

@@ -6,7 +6,8 @@ interface
 uses
   Classes, SysUtils, uDADataTable, 
   uControllerBase, uIDataModulePedidosCliente, uClientesController,
-  uDetallesPedidoClienteController, uBizPedidosCliente, uBizDetallesPedidoCliente;
+  uDetallesPedidoClienteController, uBizPedidosCliente, uBizDetallesPedidoCliente,
+  uBizPedidosProveedor;
 
 type
   IPedidosClienteController = interface(IControllerBase)
@@ -32,6 +33,9 @@ type
       const AVerModal : Boolean = False; const AWindowCaption: String = '';
       const AHeaderText: String = '');
 	  procedure VerDireccionEntrega(APedido : IBizPedidoCliente);
+
+    procedure VerListadoProcesoPedidoCliente(const ASituacion: String);
+
     function Nuevo : IBizPedidoCliente;
     procedure Anadir(APedido : IBizPedidoCliente);
     function Eliminar(const ID : Integer): Boolean; overload;
@@ -118,6 +122,7 @@ type
     function BuscarTodos: IBizPedidoCliente; overload;
     function BuscarTodos(const AID_Cliente: Integer): IBizPedidoCliente; overload;
     function BuscarPendientes : IBizPedidoCliente;
+    function BuscarSituacion(Const ASituacion: String) : IBizPedidoCliente;
     function BuscarPendientesPedir(const ID : Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
     function BuscarPendientesPedirNoArticulos(const ID : Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
 
@@ -131,6 +136,8 @@ type
 	  procedure VerDireccionEntrega(APedido : IBizPedidoCliente);
     function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente;
 
+    procedure VerListadoProcesoPedidoCliente(const ASituacion: String);
+
     procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = False;
       const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
     function Print(APedido : IBizPedidoCliente; AllItems: Boolean = False;
@@ -171,7 +178,8 @@ uses
   schPedidosClienteClient_Intf, uDAInterfaces, uPedidosClienteReportController,
   uDateUtils, uIEditorPedidoCliente, uIEditorElegirPedidosCliente,
   Dialogs, uIEditorDireccionEntregaPedidoCliente, uIDialogListaPedidosClienteEnvioEMail,
-  Variants, uSistemaFunc, uEMailUtils, uDialogElegirEMail, uIntegerListUtils, uStringsUtils;
+  Variants, uSistemaFunc, uEMailUtils, uDialogElegirEMail, uIntegerListUtils, uStringsUtils,
+  uIEditorListadoProcesoPedidoCliente;
 
 { TPedidosClienteController }
 
@@ -277,6 +285,30 @@ begin
   end;
 end;
 
+function TPedidosClienteController.BuscarSituacion(Const ASituacion: String): IBizPedidoCliente;
+var
+  Condicion: TDAWhereExpression;
+begin
+  ShowHourglassCursor;
+  try
+    Result := BuscarTodos;
+
+    // Filtrar los pedidos pendientes de recepcion
+    with Result.DataTable.DynamicWhere do
+    begin
+      // (SITUACION = ASITUACION)
+      Condicion := NewBinaryExpression(NewField('', fld_PedidosClienteSITUACION), NewConstant(ASituacion, datString), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 {function TPedidosClienteController.BuscarSinFacturar: IBizPedidoCliente;
 var
   Condicion: TDAWhereExpression;
@@ -589,6 +621,33 @@ begin
     end;
 end;
 
+procedure TPedidosClienteController.VerListadoProcesoPedidoCliente(const ASituacion: String);
+var
+  APedidosCliente: IBizPedidoCliente;
+  APedidosProveedor: IBizPedidoProveedor;
+  AEditor : IEditorListadoProcesoPedidoCliente;
+begin
+  AEditor := NIL;
+
+  APedidosCliente := BuscarSituacion(ASituacion);
+
+  CreateEditor('EditorListadoProcesoPedidoCLiente', IEditorListadoProcesoPedidoCLiente, AEditor);
+  if Assigned(AEditor) then
+    try
+//      AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
+      AEditor.PedidosCliente := APedidosCliente;
+      AEditor.PedidosProveedor := APedidosProveedor;      
+ //     AEditor.IdAlmacenObra := IdAlmacenObra;
+ //     AEditor.DetalleReservas := BuscarDetalleReservas;
+ //     AEditor.Articulo := AArticulo;
+ //     AEditor.MultiSelect := True;
+      AEditor.ShowModal;
+    finally
+      AEditor.Release;
+      AEditor := NIL;
+    end;
+end;
+
 procedure TPedidosClienteController._AnadirMarcaEnvioCorreo(APedido: IBizPedidoCliente);
 var
   ASoloLectura : Boolean;

Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */
-/* c:\temp\dtf252.tmp */
+/* c:\temp\dtf686.tmp */

Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */
-/* c:\temp\dtf250.tmp */
+/* c:\temp\dtf684.tmp */

Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */
-/* c:\temp\dtf2BC.tmp */
+/* c:\temp\dtf6F0.tmp */

Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dpk

@@ -84,7 +84,8 @@ requires
   PedCli_AlbCli_relation,
   Almacenes_model,
   Almacenes_controller,
-  PedCli_PedProv_relation;
+  PedCli_PedProv_relation,
+  PedidosProveedor_model;
 
 contains
   uPedidosClienteViewRegister in 'uPedidosClienteViewRegister.pas',
@@ -100,6 +101,9 @@ contains
   uEditorDireccionEntregaPedidoCliente in 'uEditorDireccionEntregaPedidoCliente.pas' {frEditorDireccionEntregaPedidoCliente: TForm},
   uEditorElegirArticulosPedidoCliente in 'uEditorElegirArticulosPedidoCliente.pas' {frEditorElegirArticulosPedidoCliente: TForm},
   uEditorPedidosClienteReport in 'uEditorPedidosClienteReport.pas' {frEditorPedidosClienteReport: T},
-  uDialogListaPedidosClienteEnvioEMail in 'uDialogListaPedidosClienteEnvioEMail.pas' {frDialogListaPedidosClienteEnvioEMail: TForm};
+  uDialogListaPedidosClienteEnvioEMail in 'uDialogListaPedidosClienteEnvioEMail.pas' {frDialogListaPedidosClienteEnvioEMail: T},
+  uDialogOpcionesProcesoPedidoCliente in 'uDialogOpcionesProcesoPedidoCliente.pas' {fDialogOpcionesProcesoPedidoCliente: TfEditorPedidosProveedor},
+  uEditorListadoProcesoPedidoCliente in 'uEditorListadoProcesoPedidoCliente.pas' {fEditorListadoProcesoPedidoCliente: TfEditorPedidosProveedor},
+  uViewListadoProcesoPedidoCliente in 'uViewListadoProcesoPedidoCliente.pas' {frViewListadoProcesoPedidoCliente: TFrame};
 
 end.

Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dproj

@@ -49,66 +49,67 @@
     <DelphiCompile Include="PedidosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Facturas de cliente\Views\adortl.dcp" />
+    <DCCReference Include="..\..\Lib\adortl.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\Almacenes_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\Almacenes_model.dcp" />
+    <DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\Articulos_view.dcp" />
+    <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\bdertl.dcp" />
+    <DCCReference Include="..\..\Lib\bdertl.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\Contactos_model.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\Contactos_view.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\cxDataD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxDataD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\cxEditorsD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\cxExportD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxExportD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\cxGridD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxGridD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\cxPageControlD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\dbrtl.dcp" />
+    <DCCReference Include="..\..\Lib\dbrtl.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\dclcxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Lib\dclcxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\designide.dcp" />
+    <DCCReference Include="..\..\Lib\designide.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\dsnap.dcp" />
+    <DCCReference Include="..\..\Lib\dsnap.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\dxComnD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxComnD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\dxCoreD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\dxPSLnksD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxPSLnksD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\dxThemeD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\fqb110.dcp" />
+    <DCCReference Include="..\..\Lib\fqb110.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\frx11.dcp" />
+    <DCCReference Include="..\..\Lib\frx11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\frxe11.dcp" />
+    <DCCReference Include="..\..\Lib\frxe11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\fs11.dcp" />
+    <DCCReference Include="..\..\Lib\fs11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\GestorInformes_controller.dcp" />
+    <DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\GUIBase.dcp" />
+    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\Jcl.dcp" />
+    <DCCReference Include="..\..\Lib\Jcl.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\JclVcl.dcp" />
+    <DCCReference Include="..\..\Lib\JclVcl.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\JvCoreD11R.dcp" />
+    <DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\..\Lib\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\..\Lib\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\JvSystemD11R.dcp" />
+    <DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\PedCli_AlbCli_relation.dcp" />
+    <DCCReference Include="..\..\Lib\PedCli_AlbCli_relation.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\PedCli_PedProv_relation.dcp" />
+    <DCCReference Include="..\..\Lib\PedCli_PedProv_relation.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\PedidosCliente_controller.dcp" />
+    <DCCReference Include="..\..\Lib\PedidosCliente_controller.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\PedidosCliente_model.dcp" />
+    <DCCReference Include="..\..\Lib\PedidosCliente_model.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\PngComponentsD10.dcp" />
+    <DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\PNG_D10.dcp" />
+    <DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\PNG_D10.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\rtl.dcp" />
+    <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\tb2k_d10.dcp" />
+    <DCCReference Include="..\..\Lib\rtl.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\tbx_d10.dcp" />
+    <DCCReference Include="..\..\Lib\tb2k_d10.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\vcl.dcp" />
+    <DCCReference Include="..\..\Lib\tbx_d10.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\vclactnband.dcp" />
+    <DCCReference Include="..\..\Lib\vcl.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\vcldb.dcp" />
+    <DCCReference Include="..\..\Lib\vclactnband.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\vcljpg.dcp" />
+    <DCCReference Include="..\..\Lib\vcldb.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\vclshlctrls.dcp" />
+    <DCCReference Include="..\..\Lib\vcljpg.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\vclx.dcp" />
+    <DCCReference Include="..\..\Lib\vclshlctrls.dcp" />
-    <DCCReference Include="..\..\Facturas de cliente\Views\xmlrtl.dcp" />
+    <DCCReference Include="..\..\Lib\vclx.dcp" />
+    <DCCReference Include="..\..\Lib\xmlrtl.dcp" />
     <DCCReference Include="uDialogListaPedidosClienteEnvioEMail.pas">
       <Form>frDialogListaPedidosClienteEnvioEMail</Form>
       <DesignClass>T</DesignClass>
@@ -117,6 +118,10 @@
       <Form>fDialogOpcionesImpresionPedidosCliente</Form>
       <DesignClass>TfEditorPedidosProveedor</DesignClass>
     </DCCReference>
+    <DCCReference Include="uDialogOpcionesProcesoPedidoCliente.pas">
+      <Form>fDialogOpcionesProcesoPedidoCliente</Form>
+      <DesignClass>TfEditorPedidosProveedor</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorDireccionEntregaPedidoCliente.pas">
       <Form>frEditorDireccionEntregaPedidoCliente</Form>
       <DesignClass>TForm</DesignClass>
@@ -125,6 +130,10 @@
       <Form>frEditorElegirArticulosPedidoCliente</Form>
       <DesignClass>TForm</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorListadoProcesoPedidoCliente.pas">
+      <Form>fEditorListadoProcesoPedidoCliente</Form>
+      <DesignClass>TfEditorPedidosProveedor</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorPedidoCliente.pas">
       <Form>frEditorPedidoCliente</Form>
       <DesignClass>TFrame</DesignClass>
@@ -154,6 +163,10 @@
       <Form>frViewElegirArticulosPedidosCliente</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewListadoProcesoPedidoCliente.pas">
+      <Form>frViewListadoProcesoPedidoCliente</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewPedidoCliente.pas">
       <Form>frViewPedidoCliente</Form>
       <DesignClass>TFrame</DesignClass>

Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc

@@ -14,6 +14,7 @@ END
 
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewPedidosCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uDialogOpcionesImpresionPedidosCliente.dfm */
+/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uDialogOpcionesProcesoPedidoCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewDireccionEntregaPedidoCli.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewDatosYSeleccionClientePedido.dfm */
@@ -25,5 +26,7 @@ END
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewElegirArticulosPedidosCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
+/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewListadoProcesoPedidoCliente.dfm */
+/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorListadoProcesoPedidoCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */
-/* c:\temp\dtf2BA.tmp */
+/* c:\temp\dtf6EE.tmp */

Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesProcesoPedidoCliente.dfm

@@ -0,0 +1,79 @@
+inherited fDialogOpcionesProcesoPedidoCliente: TfDialogOpcionesProcesoPedidoCliente
+  Caption = 'Opciones para listar proceso completo de pedido de cliente'
+  ClientHeight = 197
+  ClientWidth = 393
+  ExplicitWidth = 399
+  ExplicitHeight = 229
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited Bevel2: TBevel
+    Width = 393
+    ExplicitWidth = 393
+  end
+  inherited Bevel3: TBevel
+    Top = 153
+    Width = 393
+    ExplicitTop = 195
+    ExplicitWidth = 393
+  end
+  inherited pnlBotones: TPanel
+    Top = 155
+    Width = 393
+    ExplicitTop = 155
+    ExplicitWidth = 393
+    inherited btnAceptar: TButton
+      Left = 229
+      ExplicitLeft = 229
+    end
+    inherited btnCancelar: TButton
+      Left = 308
+      ExplicitLeft = 308
+    end
+  end
+  inherited pnlHeader: TPanel
+    Width = 393
+    ExplicitWidth = 393
+    inherited lblInstruccion: TLabel
+      Width = 343
+      Margins.Bottom = 10
+      Caption = 'Indique las siguiente opciones para el listado:'
+      ExplicitWidth = 256
+    end
+    inherited Label2: TLabel
+      Top = 31
+      Width = 318
+      Height = 25
+      Visible = False
+      ExplicitTop = 31
+    end
+  end
+  inherited pnlCuerpo: TPanel
+    Width = 393
+    Height = 87
+    ExplicitWidth = 393
+    ExplicitHeight = 87
+    object Label1: TLabel
+      Left = 25
+      Top = 6
+      Width = 47
+      Height = 13
+      Caption = 'Situaci'#243'n:'
+    end
+    object cbSituacion: TcxComboBox
+      Left = 78
+      Top = 6
+      TabOrder = 0
+      Text = 'cbSituacion'
+      Width = 203
+    end
+  end
+  inherited ActionList1: TActionList
+    Top = 16
+    inherited actAceptar: TAction
+      OnExecute = actAceptarExecute
+    end
+    inherited actCancelar: TAction
+      OnExecute = actCancelarExecute
+    end
+  end
+end

Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesProcesoPedidoCliente.pas

@@ -0,0 +1,58 @@
+unit uDialogOpcionesProcesoPedidoCliente;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, cxGraphics, cxControls,
+  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit;
+
+type
+  TfDialogOpcionesProcesoPedidoCliente = class(TfDialogBase)
+    cbSituacion: TcxComboBox;
+    Label1: TLabel;
+    procedure actAceptarExecute(Sender: TObject);
+    procedure actCancelarExecute(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+  function ElegirOpcionesProcesoPedidoCliente(var ASituacion: String): Boolean;
+
+implementation
+
+{$R *.dfm}
+
+function ElegirOpcionesProcesoPedidoCliente(var ASituacion : String): Boolean;
+var
+  AEditor : TfDialogOpcionesProcesoPedidoCliente;
+begin
+  AEditor := TfDialogOpcionesProcesoPedidoCliente.Create(NIL);
+  try
+    AEditor.cbSituacion.EditValue := ASituacion;
+
+    Result := (AEditor.ShowModal = mrOk);
+    if Result then
+    begin
+      ASituacion := AEditor.cbSituacion.EditValue;
+    end;
+  finally
+    AEditor.Release;
+  end;
+end;
+
+procedure TfDialogOpcionesProcesoPedidoCliente.actAceptarExecute(Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrOk
+end;
+
+procedure TfDialogOpcionesProcesoPedidoCliente.actCancelarExecute(Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrCancel;
+end;
+
+end.

Source/Modulos/Pedidos de cliente/Views/uEditorListadoProcesoPedidoCliente.dfm

@@ -0,0 +1,123 @@
+inherited fEditorListadoProcesoPedidoCliente: TfEditorListadoProcesoPedidoCliente
+  Caption = 'fEditorListadoProcesoPedidoCliente'
+  PixelsPerInch = 96
+  TextHeight = 13
+  inline frViewListadoProcesoPedidoCliente1: TfrViewListadoProcesoPedidoCliente [3]
+    Left = 0
+    Top = 102
+    Width = 894
+    Height = 383
+    Align = alClient
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 3
+    ReadOnly = False
+    ExplicitTop = 102
+    ExplicitWidth = 894
+    ExplicitHeight = 383
+    inherited cxGrid: TcxGrid
+      Width = 894
+      Height = 255
+      ExplicitWidth = 894
+      ExplicitHeight = 255
+    end
+    inherited frViewFiltroBase1: TfrViewFiltroBase
+      Width = 894
+      ExplicitWidth = 894
+      inherited TBXDockablePanel1: TTBXDockablePanel
+        ExplicitWidth = 894
+        inherited dxLayoutControl1: TdxLayoutControl
+          Width = 894
+          ExplicitWidth = 894
+          inherited txtFiltroTodo: TcxTextEdit
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+          end
+          inherited edtFechaIniFiltro: TcxDateEdit
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 272
+            Width = 272
+          end
+          inherited edtFechaFinFiltro: TcxDateEdit
+            Left = 391
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitLeft = 391
+            ExplicitWidth = 221
+            Width = 221
+          end
+          inherited eLista: TcxComboBox
+            Left = 659
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitLeft = 659
+            ExplicitWidth = 215
+            Width = 215
+          end
+        end
+        inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+          Width = 894
+          ExplicitWidth = 894
+          inherited tbxBotones: TTBXToolbar
+            Width = 884
+            ExplicitWidth = 884
+          end
+        end
+      end
+    end
+    inherited pnlAgrupaciones: TTBXDockablePanel
+      Top = 357
+      ExplicitTop = 357
+      ExplicitWidth = 894
+      inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+        Width = 894
+        ExplicitWidth = 894
+        inherited TBXToolbar1: TTBXToolbar
+          Width = 884
+          ExplicitWidth = 884
+        end
+      end
+    end
+    inherited dxComponentPrinter: TdxComponentPrinter
+      inherited dxComponentPrinterLink: TdxGridReportLink
+        ReportDocument.CreationDate = 41514.493756377310000000
+        BuiltInReportLink = True
+      end
+    end
+    inherited cxViewGridPopupMenu: TcxGridPopupMenu
+      PopupMenus = <
+        item
+          GridView = frViewListadoProcesoPedidoCliente1.cxGridView
+          HitTypes = [gvhtCell]
+          Index = 0
+        end>
+    end
+  end
+  inherited EditorActionList: TActionList [4]
+  end
+  inherited SmallImages: TPngImageList [5]
+  end
+  inherited LargeImages: TPngImageList [6]
+  end
+  inherited JvFormStorage: TJvFormStorage [7]
+  end
+  inherited dsDataTable: TDADataSource [8]
+  end
+  inherited JvAppRegistryStorage: TJvAppRegistryStorage [9]
+  end
+  inherited StatusBarImages: TPngImageList [10]
+  end
+end

Source/Modulos/Pedidos de cliente/Views/uEditorListadoProcesoPedidoCliente.pas

@@ -0,0 +1,97 @@
+unit uEditorListadoProcesoPedidoCliente;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uEditorGridBase, Menus, JvAppStorage, JvAppRegistryStorage, DB,
+  uDAInterfaces, uDADataTable, JvComponentBase, JvFormPlacement, ImgList,
+  PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
+  TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
+  JvExControls, JvNavigationPane, uIEditorListadoProcesoPedidoCLiente,
+  uCustomView, uViewBase, uViewGridBase, uViewGrid,
+  uViewListadoProcesoPedidoCliente, uBizPedidosCliente, uBizPedidosProveedor;
+
+type
+  TfEditorListadoProcesoPedidoCliente = class(TfEditorGridBase, IEditorListadoProcesoPedidoCliente)
+    frViewListadoProcesoPedidoCliente1: TfrViewListadoProcesoPedidoCliente;
+  protected
+    FPedidosCliente: IBizPedidoCliente;
+    FPedidosProveedor: IBizPedidoProveedor;
+
+    function GetPedidosCliente: IBizPedidoCliente;
+    procedure SetPedidosCliente(const Value: IBizPedidoCliente);
+    function GetPedidosProveedor: IBizPedidoProveedor;
+    procedure SetPedidosProveedor(const Value: IBizPedidoProveedor);
+
+  public
+    property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente;
+    property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor;
+
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;    
+  end;
+
+
+implementation
+
+{$R *.dfm}
+
+{ TfEditorListadoProcesoPedidoCliente }
+
+constructor TfEditorListadoProcesoPedidoCliente.Create(AOwner: TComponent);
+begin
+  inherited;
+  ViewGrid := frViewListadoProcesoPedidoCliente1;
+end;
+
+destructor TfEditorListadoProcesoPedidoCliente.Destroy;
+begin
+  FPedidosCliente := Nil;
+  inherited;
+end;
+
+function TfEditorListadoProcesoPedidoCliente.GetPedidosCliente: IBizPedidoCliente;
+begin
+  Result := FPedidosCliente;
+end;
+
+function TfEditorListadoProcesoPedidoCliente.GetPedidosProveedor: IBizPedidoProveedor;
+begin
+  Result := FPedidosProveedor;
+end;
+
+procedure TfEditorListadoProcesoPedidoCliente.SetPedidosCliente(const Value: IBizPedidoCliente);
+begin
+  FPedidosCliente := Value;
+
+  if Assigned(FPedidosCliente) then
+  begin
+    //Se guarda el where de la sentencia origen, por si el editor tiene filtros que
+    //afecten a este where y en un futuro se desea volver al where origen (filtro de año))
+    DynWhereDataTable := FPedidosCliente.DataTable.DynamicWhere.Xml;
+
+    dsDataTable.DataTable := FPedidosCliente.DataTable;
+    if Assigned(ViewGrid) then
+      (ViewGrid as IViewListadoProcesoPedidoCliente).PedidosCliente := PedidosCliente;
+  end;
+end;
+
+procedure TfEditorListadoProcesoPedidoCliente.SetPedidosProveedor(const Value: IBizPedidoProveedor);
+begin
+  FPedidosProveedor := Value;
+
+  if Assigned(FPedidosProveedor) then
+  begin
+    //Se guarda el where de la sentencia origen, por si el editor tiene filtros que
+    //afecten a este where y en un futuro se desea volver al where origen (filtro de año))
+//    DynWhereDataTable := FPedidosCliente.DataTable.DynamicWhere.Xml;
+
+    dsDataTable.DataTable := FPedidosProveedor.DataTable;
+    if Assigned(ViewGrid) then
+      (ViewGrid as IViewListadoProcesoPedidoCliente).PedidosProveedor := PedidosProveedor;
+  end;
+
+end;
+
+end.

Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm

@@ -5,7 +5,6 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
   ClientWidth = 700
   Position = poDesigned
   ExplicitWidth = 708
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -69,11 +68,15 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
       Left = 427
       Visible = True
       ExplicitLeft = 427
-      ExplicitWidth = 79
+      ExplicitWidth = 209
       object TBXItem39: TTBXItem
         Action = actGenerar
         DisplayMode = nbdmImageAndText
       end
+      object TBXItem42: TTBXItem
+        Action = actVerProcesoCompleto
+        DisplayMode = nbdmImageAndText
+      end
       object TBXItem38: TTBXItem
         Action = actFacturarPedido
         DisplayMode = nbdmImageAndText
@@ -276,6 +279,12 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
       Caption = 'Generar pedido a proveedor'
       OnExecute = actGenerarPedidoProvExecute
     end
+    object actVerProcesoCompleto: TAction
+      Category = 'Acciones'
+      Caption = 'Ver proceso completo'
+      ImageIndex = 2
+      OnExecute = actVerProcesoCompletoExecute
+    end
   end
   inherited SmallImages: TPngImageList [5]
     PngImages = <

Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas

@@ -36,6 +36,8 @@ type
     actGenerar: TAction;
     actGenerarAlbaranCli: TAction;
     actGenerarPedidoProv: TAction;
+    actVerProcesoCompleto: TAction;
+    TBXItem42: TTBXItem;
     procedure FormShow(Sender: TObject);
     procedure actCambiarSituacionExecute(Sender: TObject);
     procedure actRecibirPedidoUpdate(Sender: TObject);
@@ -51,6 +53,7 @@ type
     procedure actGenerarUpdate(Sender: TObject);
     procedure actGenerarAlbaranCliExecute(Sender: TObject);
     procedure actGenerarPedidoProvExecute(Sender: TObject);
+    procedure actVerProcesoCompletoExecute(Sender: TObject);
 
   protected
     FPedidos: IBizPedidoCliente;
@@ -69,7 +72,7 @@ type
     procedure ImprimirInterno; override;
     procedure PrevisualizarInterno; override;
     procedure RefrescarInterno; override;
-        
+
   public
     procedure PonerTitulos(const ATitulo: string = ''); override;
 
@@ -86,7 +89,8 @@ uses
 //  uGenerarFacturasProvPedUtils,
 //  uInventarioController, uBizInventario,
   uDialogUtils, uGridStatusUtils, uDBSelectionListUtils, cxControls,
-  uDialogOpcionesImpresionPedidosCliente, uGestorInformesController,
+  uDialogOpcionesImpresionPedidosCliente, uDialogOpcionesProcesoPedidoCliente,
+  uGestorInformesController,
 //  uAlbaranesProveedorController, uBizAlbaranesProveedor,
   uGenerarAlbaranesCliUtils, uGenerarPedidosProvUtils;
 
@@ -254,6 +258,16 @@ begin
 //                                (FPedidos.SITUACION <> SITUACION_PEDIDO_RECIBIDO);
 end;
 
+procedure TfEditorPedidosCliente.actVerProcesoCompletoExecute(Sender: TObject);
+var
+  ASituacion: String;
+begin
+  inherited;
+  ASituacion := 'PENDIENTE';
+  if ElegirOpcionesProcesoPedidoCliente(ASituacion) then
+     FController.VerListadoProcesoPedidoCliente(ASituacion);
+end;
+
 constructor TfEditorPedidosCliente.Create(AOwner: TComponent);
 begin
   inherited;

Source/Modulos/Pedidos de cliente/Views/uPedidosClienteViewRegister.pas

@@ -15,7 +15,8 @@ uses
   uDialogListaPedidosClienteEnvioEMail,
 //  uEditorElegirPedidosCliente,
   uEditorElegirArticulosPedidoCliente,
-  uEditorDireccionEntregaPedidoCliente;
+  uEditorDireccionEntregaPedidoCliente,
+  uEditorListadoProcesoPedidoCLiente;
 //  uEditorSituacionPedidoCliente;
 
 procedure RegisterViews;
@@ -28,7 +29,7 @@ begin
   EditorRegistry.RegisterClass(TfEditorPedidosClientePreview, 'EditorPedidosClientePreview');
 //  EditorRegistry.RegisterClass(TfEditorSituacionPedidoCliente, 'EditorSituacionPedidoCliente');
   EditorRegistry.RegisterClass(TfDialogListaPedidosClienteEnvioEMail, 'DialogListaPedidosClienteEnvioEMail');
-
+  EditorRegistry.RegisterClass(TfEditorListadoProcesoPedidoCliente, 'EditorListadoProcesoPedidoCliente');
 end;
 
 procedure UnregisterViews;
@@ -41,6 +42,7 @@ begin
   EditorRegistry.UnRegisterClass(TfEditorPedidosClientePreview);
   EditorRegistry.UnRegisterClass(TfDialogListaPedidosClienteEnvioEMail);
 //  EditorRegistry.UnRegisterClass(TfEditorSituacionPedidoCliente);
+  EditorRegistry.UnRegisterClass(TfEditorListadoProcesoPedidoCliente);
 end;
 
 end.

Source/Modulos/Pedidos de cliente/Views/uViewListadoProcesoPedidoCliente.dfm

@@ -0,0 +1,62 @@
+inherited frViewListadoProcesoPedidoCliente: TfrViewListadoProcesoPedidoCliente
+  OnShow = CustomViewShow
+  inherited cxGrid: TcxGrid
+    inherited cxGridView: TcxGridDBTableView
+      DataController.KeyFieldNames = 'ID'
+      object cxGridViewREFERENCIA: TcxGridDBColumn
+        DataBinding.FieldName = 'REFERENCIA'
+      end
+      object cxGridViewNOMBRE: TcxGridDBColumn
+        DataBinding.FieldName = 'NOMBRE'
+      end
+      object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
+        DataBinding.FieldName = 'REFERENCIA_CLIENTE'
+      end
+      object cxGridViewSITUACION: TcxGridDBColumn
+        DataBinding.FieldName = 'SITUACION'
+      end
+    end
+  end
+  inherited frViewFiltroBase1: TfrViewFiltroBase
+    inherited TBXDockablePanel1: TTBXDockablePanel
+      inherited dxLayoutControl1: TdxLayoutControl
+        inherited txtFiltroTodo: TcxTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+        end
+        inherited edtFechaIniFiltro: TcxDateEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 272
+          Width = 272
+        end
+        inherited edtFechaFinFiltro: TcxDateEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 221
+          Width = 221
+        end
+        inherited eLista: TcxComboBox
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 215
+          Width = 215
+        end
+      end
+    end
+  end
+  inherited dxComponentPrinter: TdxComponentPrinter
+    inherited dxComponentPrinterLink: TdxGridReportLink
+      ReportDocument.CreationDate = 41514.488531400460000000
+      BuiltInReportLink = True
+    end
+  end
+end

Source/Modulos/Pedidos de cliente/Views/uViewListadoProcesoPedidoCliente.pas

@@ -0,0 +1,97 @@
+unit uViewListadoProcesoPedidoCliente;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
+  dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
+  dxPSEdgePatterns, cxGridCustomPopupMenu, cxGridPopupMenu, ImgList,
+  PngImageList, ActnList, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, uDAInterfaces,
+  uDADataTable, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uCustomView,
+  uViewBase, uViewFiltroBase, cxGridLevel, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
+  cxGrid, uBizPedidosCliente, uBizPedidosProveedor;
+
+type
+  IViewListadoProcesoPedidoCliente = interface(IViewGrid)
+  ['{51AE72F0-E6F7-49E6-A376-EBFB5B118E62}']
+    function GetPedidosCliente: IBizPedidoCliente;
+    procedure SetPedidosCliente(const Value: IBizPedidoCliente);
+    property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente;
+
+    function GetPedidosProveedor: IBizPedidoProveedor;
+    procedure SetPedidosProveedor(const Value: IBizPedidoProveedor);
+    property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor;
+  end;
+
+  TfrViewListadoProcesoPedidoCliente = class(TfrViewGrid, IViewListadoProcesoPedidoCliente)
+    cxGridViewREFERENCIA: TcxGridDBColumn;
+    cxGridViewNOMBRE: TcxGridDBColumn;
+    cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
+    cxGridViewSITUACION: TcxGridDBColumn;
+    procedure CustomViewShow(Sender: TObject);
+  protected
+    FPedidosCliente: IBizPedidoCliente;
+    FPedidosProveedor: IBizPedidoProveedor;
+
+    function GetPedidosCliente: IBizPedidoCliente;
+    procedure SetPedidosCliente(const Value: IBizPedidoCliente);
+
+    function GetPedidosProveedor: IBizPedidoProveedor;
+    procedure SetPedidosProveedor(const Value: IBizPedidoProveedor);
+
+  public
+    property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente;
+    property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor;
+    destructor Destroy; override;
+  end;
+
+implementation
+{$R *.dfm}
+
+{ TfrViewListadoProcesoPedidoCliente }
+
+procedure TfrViewListadoProcesoPedidoCliente.CustomViewShow(Sender: TObject);
+begin
+  inherited;
+  if Assigned(FPedidosCliente) then
+     FPedidosCliente.Active := True;
+end;
+
+destructor TfrViewListadoProcesoPedidoCliente.Destroy;
+begin
+  FPedidosCliente:= Nil;
+  inherited;
+end;
+
+function TfrViewListadoProcesoPedidoCliente.GetPedidosCliente: IBizPedidoCliente;
+begin
+  Result := FPedidosCliente;
+end;
+
+function TfrViewListadoProcesoPedidoCliente.GetPedidosProveedor: IBizPedidoProveedor;
+begin
+  Result := FPedidosProveedor;
+end;
+
+procedure TfrViewListadoProcesoPedidoCliente.SetPedidosCliente(const Value: IBizPedidoCliente);
+begin
+  FPedidosCliente := Value;
+  if Assigned(FPedidosCliente) then
+     dsDataSource.DataTable := FPedidosCliente.DataTable
+  else
+     dsDataSource.DataTable := Nil;
+end;
+
+procedure TfrViewListadoProcesoPedidoCliente.SetPedidosProveedor(const Value: IBizPedidoProveedor);
+begin
+  FPedidosProveedor := Value;
+//  if Assigned(FPedidosProveedor) then
+//     dsDataSource.DataTable := FPedidosProveedor.DataTable
+//  else
+//     dsDataSource.DataTable := Nil;
+end;
+
+end.

Source/Modulos/Tienda web/Data/TiendaWeb_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */
 /* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */
-/* c:\temp\dtf26A.tmp */
+/* c:\temp\dtf69C.tmp */

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "4.3.2.0\0"
               VALUE "ProductVersion", "4.3.2.0\0"
-              VALUE "CompileDate", "martes, 23 de julio de 2013 16:59\0"
+              VALUE "CompileDate", "miércoles, 28 de agosto de 2013 15:52\0"
          END
     END
     BLOCK "VarFileInfo"