Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@193 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2013-08-28 13:58:51 +00:00
parent d774f30d97
commit b3387d2781
37 changed files with 775 additions and 124 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

6
Build/Build.fbpInf
View File

@ -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>
<LastBuildStart>31/01/2012 10:19:19</LastBuildStart>
<LastBuildRun>00:02:23</LastBuildRun>
<LastBuildStart>28/08/2013 15:46:41</LastBuildStart>
<LastBuildState>False</LastBuildState>
</properties>
</project>

BIN
Build/Build.fbz6
View File

Binary file not shown.

48
Source/GUIBase/GUIBase.dproj
View File

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

2
Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc
View File

@ -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 */

2
Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc
View File

@ -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 */

2
Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
View File

@ -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 */

2
Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
View File

@ -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 */

2
Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
View File

@ -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 */

2
Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
View File

@ -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 */

2
Source/Modulos/Informes base/Controller/InformesBase_controller.drc
View File

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

2
Source/Modulos/Informes base/Data/Informes_data.drc
View File

@ -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 */

2
Source/Modulos/Informes base/Model/Informes_model.drc
View File

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

2
Source/Modulos/Informes base/Views/Informes_view.drc
View File

@ -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 */

BIN
Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dpk
View File

Binary file not shown.

22
Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dproj
View File

@ -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

2
Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
View File

@ -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 */

29
Source/Modulos/Pedidos de cliente/Controller/View/uIEditorListadoProcesoPedidoCliente.pas Normal file
View File

@ -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.

63
Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas
View File

@ -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;

2
Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
View File

@ -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 */

2
Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
View File

@ -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 */

2
Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
View File

@ -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 */

8
Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dpk
View File

@ -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.

133
Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dproj
View File

@ -49,66 +49,67 @@
<DelphiCompile Include="PedidosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\Views\adortl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\Almacenes_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\Articulos_view.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\bdertl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\Contactos_controller.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\Contactos_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\Contactos_view.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\cxDataD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\cxExportD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\cxGridD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\dclcxLibraryD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\designide.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\dsnap.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\dxComnD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\dxCoreD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\dxPSLnksD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\fqb110.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\frx11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\frxe11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\fs11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\GUIBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\Jcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\JclVcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\PedCli_AlbCli_relation.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\PedCli_PedProv_relation.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\PedidosCliente_controller.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\PedidosCliente_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\tb2k_d10.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\tbx_d10.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\vclshlctrls.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\vclx.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\xmlrtl.dcp" />
<DCCReference Include="..\..\Lib\adortl.dcp" />
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\bdertl.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\cxExportD11.dcp" />
<DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\cxGridD11.dcp" />
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
<DCCReference Include="..\..\Lib\dclcxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\designide.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" />
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Lib\dxPSCoreD11.dcp" />
<DCCReference Include="..\..\Lib\dxPScxCommonD11.dcp" />
<DCCReference Include="..\..\Lib\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\..\Lib\dxPSLnksD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\fqb110.dcp" />
<DCCReference Include="..\..\Lib\frx11.dcp" />
<DCCReference Include="..\..\Lib\frxe11.dcp" />
<DCCReference Include="..\..\Lib\fs11.dcp" />
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Lib\Jcl.dcp" />
<DCCReference Include="..\..\Lib\JclVcl.dcp" />
<DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Lib\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Lib\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Lib\PedCli_AlbCli_relation.dcp" />
<DCCReference Include="..\..\Lib\PedCli_PedProv_relation.dcp" />
<DCCReference Include="..\..\Lib\PedidosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\PedidosCliente_model.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\tb2k_d10.dcp" />
<DCCReference Include="..\..\Lib\tbx_d10.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" />
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
<DCCReference Include="..\..\Lib\vclshlctrls.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>

5
Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
View File

@ -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 */

79
Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesProcesoPedidoCliente.dfm Normal file
View File

@ -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

58
Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesProcesoPedidoCliente.pas Normal file
View File

@ -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.

123
Source/Modulos/Pedidos de cliente/Views/uEditorListadoProcesoPedidoCliente.dfm Normal file
View File

@ -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

97
Source/Modulos/Pedidos de cliente/Views/uEditorListadoProcesoPedidoCliente.pas Normal file
View File

@ -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.

13
Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm
View File

@ -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 = <

18
Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas
View File

@ -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;

6
Source/Modulos/Pedidos de cliente/Views/uPedidosClienteViewRegister.pas
View File

@ -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.

62
Source/Modulos/Pedidos de cliente/Views/uViewListadoProcesoPedidoCliente.dfm Normal file
View File

@ -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

97
Source/Modulos/Pedidos de cliente/Views/uViewListadoProcesoPedidoCliente.pas Normal file
View File

@ -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.

2
Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
View File

@ -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 */

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -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"