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

Se adapta el módulo de clientes para poder ver documentos relacionados, se pone un botón nuevo en el que poder ver todos los articulos pendientes de servir

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@115 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2010-04-19 15:57:24 +00:00
parent 3654966994
commit 458bf4e950
35 changed files with 1775 additions and 626 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.

45
Database/scripts/factuges.sql
View File

@ -2453,8 +2453,6 @@ ON (V_ALB_PROV_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID)
WHERE (V_ALB_PROV_DETALLES.ID_ALMACEN IS NOT NULL) WHERE (V_ALB_PROV_DETALLES.ID_ALMACEN IS NOT NULL)
; ;
/* View: V_HIS_MOV_REGULARIZACIONES */ /* View: V_HIS_MOV_REGULARIZACIONES */
CREATE VIEW V_HIS_MOV_REGULARIZACIONES( CREATE VIEW V_HIS_MOV_REGULARIZACIONES(
FECHA, FECHA,
@ -2467,12 +2465,11 @@ AS
SELECT FECHA_MOVIMIENTO, ID_ALMACEN, ID_ARTICULO, TIPO, SELECT FECHA_MOVIMIENTO, ID_ALMACEN, ID_ARTICULO, TIPO,
CASE WHEN TIPO = 'S' THEN (-1)* CANTIDAD CASE WHEN TIPO = 'S' THEN (-1)* CANTIDAD
ELSE CANTIDAD END, ELSE CANTIDAD END,
'Regularizaci¢n por - ' || CAUSA 'Regularización por - ' || CAUSA
FROM MOVIMIENTOS FROM MOVIMIENTOS
; ;
/* View: V_HIS_MOV_AUX */ /* View: V_HIS_MOV_AUX */
CREATE VIEW V_HIS_MOV_AUX( CREATE VIEW V_HIS_MOV_AUX(
FECHA, FECHA,
@ -4473,6 +4470,46 @@ or ((v_ped_cli_detalle_colores.COLOR11 - coalesce(v_alb_cli_detalle_colores.COLO
or ((v_ped_cli_detalle_colores.COLOR12 - coalesce(v_alb_cli_detalle_colores.COLOR12, 0)) <> 0) or ((v_ped_cli_detalle_colores.COLOR12 - coalesce(v_alb_cli_detalle_colores.COLOR12, 0)) <> 0)
; ;
CREATE VIEW V_ARTICULOS_PENDIENTES(
ID_ARTICULO,
REFERENCIA,
DESCRIPCION,
COLOR1,
COLOR2,
COLOR3,
COLOR4,
COLOR5,
COLOR6,
COLOR7,
COLOR8,
COLOR9,
COLOR10,
COLOR11,
COLOR12,
TOTAL)
AS
select V_PED_CLI_ART_COLORES_PEND.ID_ARTICULO, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR1),
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR2),
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR3),
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR4),
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR5),
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR6),
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR7),
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR8),
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR9),
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR10),
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR11),
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR12),
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR1) + SUM(V_PED_CLI_ART_COLORES_PEND.COLOR2) + SUM(V_PED_CLI_ART_COLORES_PEND.COLOR3) +
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR4) + SUM(V_PED_CLI_ART_COLORES_PEND.COLOR5) + SUM(V_PED_CLI_ART_COLORES_PEND.COLOR6) +
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR7) + SUM(V_PED_CLI_ART_COLORES_PEND.COLOR8) + SUM(V_PED_CLI_ART_COLORES_PEND.COLOR9) +
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR10)+SUM(V_PED_CLI_ART_COLORES_PEND.COLOR11) + SUM(V_PED_CLI_ART_COLORES_PEND.COLOR12)
from V_PED_CLI_ART_COLORES_PEND
left join articulos on (articulos.ID = V_PED_CLI_ART_COLORES_PEND.ID_ARTICULO)
group by 1,2,3
;
/******************************************************************************/ /******************************************************************************/
/**** Primary Keys ****/ /**** Primary Keys ****/

52
Source/GUIBase/GUIBase.dproj
View File

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

1
Source/GUIBase/uEditorColores.pas
View File

@ -100,6 +100,7 @@ procedure TfEditorColores.FormShow(Sender: TObject);
begin begin
inherited; inherited;
PonerTituloArticulo; PonerTituloArticulo;
eColor1.SetFocus;
end; end;
function TfEditorColores.GetTotal: Double; function TfEditorColores.GetTotal: Double;

26
Source/Modulos/Contactos/Contactos_Group.groupproj
View File

@ -9,6 +9,8 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.dproj" />
<Projects Include="..\Pedidos de cliente\Plugin\PedidosCliente_plugin.dproj" />
<Projects Include="Controller\Contactos_controller.dproj" /> <Projects Include="Controller\Contactos_controller.dproj" />
<Projects Include="Data\Contactos_data.dproj" /> <Projects Include="Data\Contactos_data.dproj" />
<Projects Include="Model\Contactos_model.dproj" /> <Projects Include="Model\Contactos_model.dproj" />
@ -111,14 +113,32 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="AlbaranesCliente_plugin">
<MSBuild Projects="..\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_plugin:Clean">
<MSBuild Projects="..\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_plugin:Make">
<MSBuild Projects="..\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.dproj" Targets="Make" />
</Target>
<Target Name="PedidosCliente_plugin">
<MSBuild Projects="..\Pedidos de cliente\Plugin\PedidosCliente_plugin.dproj" Targets="" />
</Target>
<Target Name="PedidosCliente_plugin:Clean">
<MSBuild Projects="..\Pedidos de cliente\Plugin\PedidosCliente_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosCliente_plugin:Make">
<MSBuild Projects="..\Pedidos de cliente\Plugin\PedidosCliente_plugin.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_plugin;PedidosCliente_plugin" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_plugin:Clean;PedidosCliente_plugin:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_plugin:Make;PedidosCliente_plugin:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

14
Source/Modulos/Contactos/Controller/uClientesController.pas
View File

@ -19,7 +19,7 @@ type
function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload; function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false); procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false);
procedure Print(ACliente : IBizCliente; AllItems: Boolean = false); procedure Print(ACliente : IBizCliente; AllItems: Boolean = false);
procedure VerPresupuestosDeCliente(ACliente : IBizCliente); procedure VerPedidosDeCliente(ACliente : IBizCliente);
procedure VerAlbaranesDeCliente(ACliente : IBizCliente); procedure VerAlbaranesDeCliente(ACliente : IBizCliente);
procedure VerFacturasDeCliente(ACliente : IBizCliente); procedure VerFacturasDeCliente(ACliente : IBizCliente);
procedure VerRecibosDeCliente(ACliente : IBizCliente); procedure VerRecibosDeCliente(ACliente : IBizCliente);
@ -52,7 +52,7 @@ type
function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload; function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false); procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false);
procedure Print(ACliente : IBizCliente; AllItems: Boolean = false); procedure Print(ACliente : IBizCliente; AllItems: Boolean = false);
procedure VerPresupuestosDeCliente(ACliente : IBizCliente); procedure VerPedidosDeCliente(ACliente : IBizCliente);
procedure VerAlbaranesDeCliente(ACliente : IBizCliente); procedure VerAlbaranesDeCliente(ACliente : IBizCliente);
procedure VerFacturasDeCliente(ACliente : IBizCliente); procedure VerFacturasDeCliente(ACliente : IBizCliente);
procedure VerRecibosDeCliente(ACliente : IBizCliente); procedure VerRecibosDeCliente(ACliente : IBizCliente);
@ -475,10 +475,10 @@ begin
end; end;
end; end;
procedure TClientesController.VerPresupuestosDeCliente(ACliente : IBizCliente); procedure TClientesController.VerPedidosDeCliente(ACliente : IBizCliente);
var var
AModule : TModuleController; AModule : TModuleController;
APlugin : IMCPresupuestosCliente; APlugin : IMCPedidosCliente;
begin begin
if not Assigned(ACliente) then if not Assigned(ACliente) then
raise Exception.Create ('Cliente no asignado (VerPresupuestosDeCliente)'); raise Exception.Create ('Cliente no asignado (VerPresupuestosDeCliente)');
@ -486,11 +486,11 @@ begin
if not ACliente.DataTable.Active then if not ACliente.DataTable.Active then
ACliente.DataTable.Active := True; ACliente.DataTable.Active := True;
AModule := AppFactuGES.GetModule(MODULENAME_PRESUPUESTOS_CLIENTE); AModule := AppFactuGES.GetModule(MODULENAME_PEDIDOS_CLIENTE);
if Assigned(AModule) then if Assigned(AModule) then
try try
if Supports(AModule, IMCPresupuestosCliente, APlugin) then if Supports(AModule, IMCPedidosCliente, APlugin) then
APlugin.VerPresupuestos(ACliente.ID, ACliente.NOMBRE); APlugin.VerPedidos(ACliente.ID, ACliente.NOMBRE);
finally finally
APlugin := NIL; APlugin := NIL;
end; end;

86
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -73,7 +73,7 @@ inherited fEditorCliente: TfEditorCliente
Visible = False Visible = False
DropdownCombo = True DropdownCombo = True
object TBXItem36: TSpTBXItem object TBXItem36: TSpTBXItem
Action = actDocumentosPresupuestos Action = actDocumentosPedidos
end end
object TBXItem35: TSpTBXItem object TBXItem35: TSpTBXItem
Action = actDocumentosAlbaranes Action = actDocumentosAlbaranes
@ -105,7 +105,7 @@ inherited fEditorCliente: TfEditorCliente
Caption = 'Documentos relacionados' Caption = 'Documentos relacionados'
ImageIndex = 22 ImageIndex = 22
object TBXItem39: TSpTBXItem object TBXItem39: TSpTBXItem
Action = actDocumentosPresupuestos Action = actDocumentosPedidos
end end
object TBXItem38: TSpTBXItem object TBXItem38: TSpTBXItem
Action = actDocumentosAlbaranes Action = actDocumentosAlbaranes
@ -151,16 +151,16 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 778 ExplicitWidth = 778
ExplicitHeight = 502 ExplicitHeight = 502
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 716 Left = 733
ExplicitLeft = 716 ExplicitLeft = 733
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 716 Left = 733
ExplicitLeft = 716 ExplicitLeft = 733
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 716 Left = 733
ExplicitLeft = 716 ExplicitLeft = 733
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 138 Left = 138
@ -193,12 +193,12 @@ inherited fEditorCliente: TfEditorCliente
Width = 246 Width = 246
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 301 Left = 310
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 301 ExplicitLeft = 310
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -249,48 +249,48 @@ inherited fEditorCliente: TfEditorCliente
Width = 246 Width = 246
end end
inherited cbFelicitacion: TcxDBCheckBox inherited cbFelicitacion: TcxDBCheckBox
Left = 396 Left = 405
ExplicitLeft = 396 ExplicitLeft = 405
ExplicitWidth = 370 ExplicitWidth = 370
Width = 370 Width = 370
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 491 Left = 500
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 500
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 491 Left = 500
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 500
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 491 Left = 500
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 500
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 491 Left = 500
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 500
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
@ -305,44 +305,44 @@ inherited fEditorCliente: TfEditorCliente
Width = 246 Width = 246
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 215 Left = 218
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 215 ExplicitLeft = 218
ExplicitWidth = 162 ExplicitWidth = 162
Width = 162 Width = 162
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 491 Left = 500
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 500
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 491 Left = 500
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 500
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 491 Left = 500
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 500
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
@ -419,6 +419,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 778 Width = 778
ExplicitWidth = 778 ExplicitWidth = 778
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end end
end end
end end
@ -667,6 +679,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 778 Width = 778
ExplicitWidth = 778 ExplicitWidth = 778
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end end
end end
end end
@ -701,13 +725,13 @@ inherited fEditorCliente: TfEditorCliente
Visible = False Visible = False
OnExecute = actDocumentosFacturasExecute OnExecute = actDocumentosFacturasExecute
end end
object actDocumentosPresupuestos: TAction object actDocumentosPedidos: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Presupuestos' Caption = 'Pedidos'
Enabled = False Enabled = False
ImageIndex = 23 ImageIndex = 23
Visible = False Visible = False
OnExecute = actDocumentosPresupuestosExecute OnExecute = actDocumentosPedidosExecute
end end
object actDocumentosAlbaranes: TAction object actDocumentosAlbaranes: TAction
Category = 'Acciones' Category = 'Acciones'

8
Source/Modulos/Contactos/Views/uEditorCliente.pas
View File

@ -32,7 +32,7 @@ type
TBXSubmenuItem3: TSpTBXSubmenuItem; TBXSubmenuItem3: TSpTBXSubmenuItem;
TBXItem33: TSpTBXItem; TBXItem33: TSpTBXItem;
TBXSeparatorItem6: TSpTBXSeparatorItem; TBXSeparatorItem6: TSpTBXSeparatorItem;
actDocumentosPresupuestos: TAction; actDocumentosPedidos: TAction;
actDocumentosAlbaranes: TAction; actDocumentosAlbaranes: TAction;
actDocumentosFacturas: TAction; actDocumentosFacturas: TAction;
TBXSubmenuItem8: TSpTBXSubmenuItem; TBXSubmenuItem8: TSpTBXSubmenuItem;
@ -49,7 +49,7 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actGruposClienteExecute(Sender: TObject); procedure actGruposClienteExecute(Sender: TObject);
procedure actDocumentosFacturasExecute(Sender: TObject); procedure actDocumentosFacturasExecute(Sender: TObject);
procedure actDocumentosPresupuestosExecute(Sender: TObject); procedure actDocumentosPedidosExecute(Sender: TObject);
procedure actDocumentosAlbaranesExecute(Sender: TObject); procedure actDocumentosAlbaranesExecute(Sender: TObject);
procedure actDocumentosRecibosExecute(Sender: TObject); procedure actDocumentosRecibosExecute(Sender: TObject);
protected protected
@ -82,10 +82,10 @@ begin
(FController as IClientesController).VerFacturasDeCliente(IBizCliente(FContacto)); (FController as IClientesController).VerFacturasDeCliente(IBizCliente(FContacto));
end; end;
procedure TfEditorCliente.actDocumentosPresupuestosExecute(Sender: TObject); procedure TfEditorCliente.actDocumentosPedidosExecute(Sender: TObject);
begin begin
inherited; inherited;
(FController as IClientesController).VerPresupuestosDeCliente(IBizCliente(FContacto)); (FController as IClientesController).VerPedidosDeCliente(IBizCliente(FContacto));
end; end;
procedure TfEditorCliente.actDocumentosRecibosExecute(Sender: TObject); procedure TfEditorCliente.actDocumentosRecibosExecute(Sender: TObject);

28
Source/Modulos/Contactos/Views/uEditorClientes.dfm
View File

@ -52,16 +52,15 @@ inherited fEditorClientes: TfEditorClientes
Width = 857 Width = 857
ExplicitWidth = 857 ExplicitWidth = 857
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 632 ExplicitWidth = 799
object TBXSubmenuItem3: TSpTBXSubmenuItem [13] object TBXSubmenuItem3: TSpTBXSubmenuItem [13]
Caption = 'Documentos relacionados' Caption = 'Documentos relacionados'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
ImageIndex = 24 ImageIndex = 24
Images = SmallImages Images = SmallImages
Visible = False
DropdownCombo = True DropdownCombo = True
object TBXItem43: TSpTBXItem object TBXItem43: TSpTBXItem
Action = actDocumentosPresupuestos Action = actDocumentosPedidos
end end
object TBXItem42: TSpTBXItem object TBXItem42: TSpTBXItem
Action = actDocumentosAlbaranes Action = actDocumentosAlbaranes
@ -90,7 +89,7 @@ inherited fEditorClientes: TfEditorClientes
Images = SmallImages Images = SmallImages
DropdownCombo = True DropdownCombo = True
object TBXItem40: TSpTBXItem object TBXItem40: TSpTBXItem
Action = actDocumentosPresupuestos Action = actDocumentosPedidos
end end
object TBXItem39: TSpTBXItem object TBXItem39: TSpTBXItem
Action = actDocumentosAlbaranes Action = actDocumentosAlbaranes
@ -135,7 +134,7 @@ inherited fEditorClientes: TfEditorClientes
Width = 857 Width = 857
Height = 270 Height = 270
ExplicitWidth = 857 ExplicitWidth = 857
ExplicitHeight = 168 ExplicitHeight = 270
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -225,6 +224,9 @@ inherited fEditorClientes: TfEditorClientes
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = < PopupMenus = <
item item
@ -249,9 +251,7 @@ inherited fEditorClientes: TfEditorClientes
object actDocumentosFacturas: TAction [2] object actDocumentosFacturas: TAction [2]
Category = 'Acciones' Category = 'Acciones'
Caption = 'Facturas' Caption = 'Facturas'
Enabled = False
ImageIndex = 27 ImageIndex = 27
Visible = False
OnExecute = actDocumentosFacturasExecute OnExecute = actDocumentosFacturasExecute
OnUpdate = actDocumentosFacturasUpdate OnUpdate = actDocumentosFacturasUpdate
end end
@ -267,30 +267,24 @@ inherited fEditorClientes: TfEditorClientes
Enabled = False Enabled = False
Visible = False Visible = False
end end
object actDocumentosPresupuestos: TAction object actDocumentosPedidos: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Presupuestos' Caption = 'Pedidos'
Enabled = False
ImageIndex = 25 ImageIndex = 25
Visible = False OnExecute = actDocumentosPedidosExecute
OnExecute = actDocumentosPresupuestosExecute
OnUpdate = actDocumentosFacturasUpdate OnUpdate = actDocumentosFacturasUpdate
end end
object actDocumentosAlbaranes: TAction object actDocumentosAlbaranes: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Albaranes' Caption = 'Albaranes'
Enabled = False
ImageIndex = 26 ImageIndex = 26
Visible = False
OnExecute = actDocumentosAlbaranesExecute OnExecute = actDocumentosAlbaranesExecute
OnUpdate = actDocumentosFacturasUpdate OnUpdate = actDocumentosFacturasUpdate
end end
object actDocumentosRecibos: TAction object actDocumentosRecibos: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Recibos' Caption = 'Recibos'
Enabled = False
ImageIndex = 28 ImageIndex = 28
Visible = False
OnExecute = actDocumentosRecibosExecute OnExecute = actDocumentosRecibosExecute
OnUpdate = actDocumentosFacturasUpdate OnUpdate = actDocumentosFacturasUpdate
end end
@ -2227,7 +2221,7 @@ inherited fEditorClientes: TfEditorClientes
Caption = 'Documentos relacionados' Caption = 'Documentos relacionados'
ImageIndex = 24 ImageIndex = 24
object Presupuestos1: TMenuItem object Presupuestos1: TMenuItem
Action = actDocumentosPresupuestos Action = actDocumentosPedidos
end end
object Albaranes1: TMenuItem object Albaranes1: TMenuItem
Action = actDocumentosAlbaranes Action = actDocumentosAlbaranes

8
Source/Modulos/Contactos/Views/uEditorClientes.pas
View File

@ -21,7 +21,7 @@ type
actGruposCliente: TAction; actGruposCliente: TAction;
JsListaContactosNoEliminados: TJSDialog; JsListaContactosNoEliminados: TJSDialog;
frViewClientes1: TfrViewClientes; frViewClientes1: TfrViewClientes;
actDocumentosPresupuestos: TAction; actDocumentosPedidos: TAction;
actDocumentosAlbaranes: TAction; actDocumentosAlbaranes: TAction;
actDocumentosFacturas: TAction; actDocumentosFacturas: TAction;
TBXItem381: TSpTBXItem; TBXItem381: TSpTBXItem;
@ -44,7 +44,7 @@ type
TBXItem45: TSpTBXItem; TBXItem45: TSpTBXItem;
procedure actGruposClienteExecute(Sender: TObject); procedure actGruposClienteExecute(Sender: TObject);
procedure actDocumentosFacturasUpdate(Sender: TObject); procedure actDocumentosFacturasUpdate(Sender: TObject);
procedure actDocumentosPresupuestosExecute(Sender: TObject); procedure actDocumentosPedidosExecute(Sender: TObject);
procedure actDocumentosFacturasExecute(Sender: TObject); procedure actDocumentosFacturasExecute(Sender: TObject);
procedure actDocumentosAlbaranesExecute(Sender: TObject); procedure actDocumentosAlbaranesExecute(Sender: TObject);
procedure actDocumentosRecibosExecute(Sender: TObject); procedure actDocumentosRecibosExecute(Sender: TObject);
@ -90,10 +90,10 @@ begin
and ViewGrid.EsSeleccionCeldaDatos and ViewGrid.EsSeleccionCeldaDatos
end; end;
procedure TfEditorClientes.actDocumentosPresupuestosExecute(Sender: TObject); procedure TfEditorClientes.actDocumentosPedidosExecute(Sender: TObject);
begin begin
inherited; inherited;
(FController as IClientesController).VerPresupuestosDeCliente(IBizCliente(FContactos)); (FController as IClientesController).VerPedidosDeCliente(IBizCliente(FContactos));
end; end;
procedure TfEditorClientes.actDocumentosRecibosExecute(Sender: TObject); procedure TfEditorClientes.actDocumentosRecibosExecute(Sender: TObject);

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

@ -54,6 +54,7 @@ contains
uIEditorDireccionEntregaPedidoCliente in 'View\uIEditorDireccionEntregaPedidoCliente.pas', uIEditorDireccionEntregaPedidoCliente in 'View\uIEditorDireccionEntregaPedidoCliente.pas',
uPedidosClienteReportController in 'uPedidosClienteReportController.pas', uPedidosClienteReportController in 'uPedidosClienteReportController.pas',
uIEditorPedidosClientePreview in 'View\uIEditorPedidosClientePreview.pas', uIEditorPedidosClientePreview in 'View\uIEditorPedidosClientePreview.pas',
uIDialogListaPedidosCliEnvioEMail in 'View\uIDialogListaPedidosCliEnvioEMail.pas'; uIDialogListaPedidosCliEnvioEMail in 'View\uIDialogListaPedidosCliEnvioEMail.pas',
uIEditorArticulosPendientes in 'View\uIEditorArticulosPendientes.pas';
end. end.

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

@ -49,34 +49,35 @@
<DelphiCompile Include="PedidosCliente_controller.dpk"> <DelphiCompile Include="PedidosCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
<DCCReference Include="..\..\..\Servidor\Articulos_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\PedidosCliente_data.dcp" />
<DCCReference Include="..\..\..\Servidor\PedidosCliente_model.dcp" />
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
<DCCReference Include="uArticulosPedidoClienteController.pas" /> <DCCReference Include="uArticulosPedidoClienteController.pas" />
<DCCReference Include="uDetallesPedidoClienteController.pas" /> <DCCReference Include="uDetallesPedidoClienteController.pas" />
<DCCReference Include="uPedidosClienteController.pas" /> <DCCReference Include="uPedidosClienteController.pas" />
<DCCReference Include="uPedidosClienteReportController.pas" /> <DCCReference Include="uPedidosClienteReportController.pas" />
<DCCReference Include="View\adortl.dcp" />
<DCCReference Include="View\Articulos_controller.dcp" />
<DCCReference Include="View\Contactos_controller.dcp" />
<DCCReference Include="View\Contactos_model.dcp" />
<DCCReference Include="View\cxLibraryD11.dcp" />
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
<DCCReference Include="View\dbrtl.dcp" />
<DCCReference Include="View\dsnap.dcp" />
<DCCReference Include="View\dxGDIPlusD11.dcp" />
<DCCReference Include="View\dxThemeD11.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\PedidosCliente_data.dcp" />
<DCCReference Include="View\PedidosCliente_model.dcp" />
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIDialogListaPedidosCliEnvioEMail.pas" /> <DCCReference Include="View\uIDialogListaPedidosCliEnvioEMail.pas" />
<DCCReference Include="View\uIEditorArticulosPendientes.pas" />
<DCCReference Include="View\uIEditorDireccionEntregaPedidoCliente.pas" /> <DCCReference Include="View\uIEditorDireccionEntregaPedidoCliente.pas" />
<DCCReference Include="View\uIEditorElegirArticulosPedidosCliente.pas" /> <DCCReference Include="View\uIEditorElegirArticulosPedidosCliente.pas" />
<DCCReference Include="View\uIEditorElegirPedidosCliente.pas" /> <DCCReference Include="View\uIEditorElegirPedidosCliente.pas" />
<DCCReference Include="View\uIEditorPedidoCliente.pas" /> <DCCReference Include="View\uIEditorPedidoCliente.pas" />
<DCCReference Include="View\uIEditorPedidosCliente.pas" /> <DCCReference Include="View\uIEditorPedidosCliente.pas" />
<DCCReference Include="View\uIEditorPedidosClientePreview.pas" /> <DCCReference Include="View\uIEditorPedidosClientePreview.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1B7.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf18A.tmp */

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

@ -22,12 +22,17 @@ type
procedure RecuperarCliente(APedido : IBizPedidoCliente); procedure RecuperarCliente(APedido : IBizPedidoCliente);
function Buscar(const ID: Integer): IBizPedidoCliente; function Buscar(const ID: Integer): IBizPedidoCliente;
function BuscarTodos: IBizPedidoCliente; function BuscarTodos: IBizPedidoCliente; overload;
function BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente; overload;
function BuscarPendientes : IBizPedidoCliente; function BuscarPendientes : IBizPedidoCliente;
function BuscarPendientesPedir(const ID : Integer): IBizPedidoClienteArticulosPendientesPedirAProv; function BuscarArticulosPendientes: IBizArticulosPendientes;
procedure Ver(APedido : IBizPedidoCliente); procedure Ver(APedido : IBizPedidoCliente);
procedure VerTodos(APedidos: IBizPedidoCliente); procedure VerTodos(APedidos: IBizPedidoCliente);
procedure VerTodosPedidos(APedidos: IBizPedidoCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = '');
procedure VerDireccionEntrega(APedido : IBizPedidoCliente); procedure VerDireccionEntrega(APedido : IBizPedidoCliente);
procedure VerArticulosPendientes;
function Nuevo : IBizPedidoCliente; function Nuevo : IBizPedidoCliente;
function Anadir(APedido : IBizPedidoCliente) : Boolean; function Anadir(APedido : IBizPedidoCliente) : Boolean;
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
@ -102,13 +107,18 @@ type
function Existe(const ID: Integer) : Boolean; virtual; function Existe(const ID: Integer) : Boolean; virtual;
function Anadir(APedido : IBizPedidoCliente) : Boolean; function Anadir(APedido : IBizPedidoCliente) : Boolean;
function Buscar(const ID: Integer): IBizPedidoCliente; function Buscar(const ID: Integer): IBizPedidoCliente;
function BuscarTodos: IBizPedidoCliente; function BuscarTodos: IBizPedidoCliente; overload;
function BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente; overload;
function BuscarPendientes : IBizPedidoCliente; function BuscarPendientes : IBizPedidoCliente;
function BuscarPendientesPedir(const ID : Integer): IBizPedidoClienteArticulosPendientesPedirAProv; function BuscarArticulosPendientes: IBizArticulosPendientes;
function Nuevo : IBizPedidoCliente; function Nuevo : IBizPedidoCliente;
procedure Ver(APedido : IBizPedidoCliente); procedure Ver(APedido : IBizPedidoCliente);
procedure VerTodos(APedidos: IBizPedidoCliente); procedure VerTodos(APedidos: IBizPedidoCliente);
procedure VerTodosPedidos(APedidos: IBizPedidoCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = '');
procedure VerDireccionEntrega(APedido : IBizPedidoCliente); procedure VerDireccionEntrega(APedido : IBizPedidoCliente);
procedure VerArticulosPendientes;
function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente; function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente;
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto; procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto;
APedido: IBizPedidoCliente); APedido: IBizPedidoCliente);
@ -144,7 +154,8 @@ uses
schPedidosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPedidoCliente, schPedidosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPedidoCliente,
uIEditorElegirPedidosCliente, uIEditorDireccionEntregaPedidoCliente, uIEditorElegirPedidosCliente, uIEditorDireccionEntregaPedidoCliente,
schContactosClient_Intf, uPedidosClienteReportController, uIntegerListUtils, schContactosClient_Intf, uPedidosClienteReportController, uIntegerListUtils,
uIDialogListaPedidosCliEnvioEMail, uSistemaFunc, uStringsUtils, uDialogElegirEMail, Forms, uEMailUtils; uIDialogListaPedidosCliEnvioEMail, uSistemaFunc, uStringsUtils, uDialogElegirEMail,
uIEditorArticulosPendientes, Forms, uEMailUtils;
{ TPedidosClienteController } { TPedidosClienteController }
@ -191,12 +202,34 @@ begin
end; end;
end; end;
function TPedidosClienteController.BuscarPendientesPedir( function TPedidosClienteController.BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente;
const ID: Integer): IBizPedidoClienteArticulosPendientesPedirAProv; var
Condicion: TDAWhereExpression;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := FDataModule.GetArticulosPendientesPedirAProv(ID); Result := BuscarTodos;
with Result.DataTable.DynamicWhere do
begin
// ID_CLIENTE
Condicion := NewBinaryExpression(NewField('', fld_PedidosClienteID_CLIENTE), NewConstant(ID_Cliente, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
end;
function TPedidosClienteController.BuscarArticulosPendientes: IBizArticulosPendientes;
begin
ShowHourglassCursor;
try
Result := FDataModule.GetArticulosPendientes;
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
@ -407,6 +440,30 @@ begin
end; end;
end; end;
procedure TPedidosClienteController.VerArticulosPendientes;
var
AEditor : IEditorArticulosPendientes;
begin
AEditor := NIL;
ShowHourglassCursor;
try
CreateEditor('EditorArticulosPendientes', IEditorArticulosPendientes, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
// Controller := Self; //OJO ORDEN MUY IMPORTANTE
ArticulosPendientes := BuscarArticulosPendientes;
ShowModal;
AEditor.Release;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
procedure TPedidosClienteController.VerDireccionEntrega( procedure TPedidosClienteController.VerDireccionEntrega(
APedido: IBizPedidoCliente); APedido: IBizPedidoCliente);
var var
@ -457,6 +514,36 @@ begin
end; end;
end; end;
procedure TPedidosClienteController.VerTodosPedidos(APedidos: IBizPedidoCliente;
const AVerModal: Boolean; const AWindowCaption, AHeaderText: String);
var
AEditor : IEditorPedidosCliente;
begin
AEditor := NIL;
CreateEditor('EditorPedidosCliente', IEditorPedidosCliente, AEditor);
if Assigned(AEditor) then
try
if not EsCadenaVacia(AWindowCaption) then
AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AHeaderText) then
AEditor.HeaderText := AHeaderText;
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.Pedidos := APedidos;
AEditor.MultiSelect := True;
if AVerModal then
AEditor.ShowModal
else
AEditor.ShowEmbedded;
finally
if AVerModal then
AEditor.Release;
AEditor := NIL;
end;
end;
function TPedidosClienteController._Vacio: IBizPedidoCliente; function TPedidosClienteController._Vacio: IBizPedidoCliente;
begin begin
Result := Buscar(ID_NULO); Result := Buscar(ID_NULO);

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

@ -14,4 +14,4 @@ END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1B5.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf188.tmp */

140
Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm
View File

@ -427,61 +427,6 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
Left = 208 Left = 208
Top = 256 Top = 256
end end
object tbl_PedidoCliente_ArticulosPendientesPedirAProv: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_PEDIDO'
DataType = datAutoInc
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_PEDIDO'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_ARTICULO'
end
item
Name = 'CANT_PEDIDA_CLIENTE'
DataType = datInteger
DisplayLabel = 'Cant. pedida por cliente'
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE'
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_PROVEEDOR'
end
item
Name = 'CANT_PEDIDA_PROVEEDOR'
DataType = datInteger
DisplayLabel = 'Cant. pedida a proveedor'
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR'
end
item
Name = 'CANT_PENDIENTE_PEDIR'
DataType = datInteger
DisplayLabel = 'Cant. pendiente pedir'
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR'
end>
Params = <
item
Name = 'ID_PEDIDO'
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
LogicalName = 'PedidoCliente_ArticulosPendientesPedirAProv'
IndexDefs = <>
Left = 440
Top = 192
end
object ds_PedidoCliente_ArticulosPendientesPedirAProv: TDADataSource
DataSet = tbl_PedidoCliente_ArticulosPendientesPedirAProv.Dataset
DataTable = tbl_PedidoCliente_ArticulosPendientesPedirAProv
Left = 440
Top = 256
end
object tbl_ListaAnosPedidos: TDAMemDataTable object tbl_ListaAnosPedidos: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
@ -700,4 +645,89 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
Left = 208 Left = 208
Top = 384 Top = 384
end end
object tbl_ArticulosPendientes: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_ARTICULO'
InPrimaryKey = True
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'COLOR1'
DataType = datLargeInt
end
item
Name = 'COLOR2'
DataType = datLargeInt
end
item
Name = 'COLOR3'
DataType = datLargeInt
end
item
Name = 'COLOR4'
DataType = datLargeInt
end
item
Name = 'COLOR5'
DataType = datLargeInt
end
item
Name = 'COLOR6'
DataType = datLargeInt
end
item
Name = 'COLOR7'
DataType = datLargeInt
end
item
Name = 'COLOR8'
DataType = datLargeInt
end
item
Name = 'COLOR9'
DataType = datLargeInt
end
item
Name = 'COLOR10'
DataType = datLargeInt
end
item
Name = 'COLOR11'
DataType = datLargeInt
end
item
Name = 'COLOR12'
DataType = datLargeInt
end
item
Name = 'TOTAL'
DataType = datLargeInt
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
RemoteDataAdapter = rda_PedidosCliente
LogicalName = 'ArticulosPendientes'
IndexDefs = <>
Left = 416
Top = 256
end
object ds_ArticulosPendientes: TDADataSource
DataSet = tbl_ArticulosPendientes.Dataset
DataTable = tbl_ArticulosPendientes
Left = 416
Top = 192
end
end end

24
Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.pas
View File

@ -22,8 +22,6 @@ type
ds_PedidosCliente_Detalles: TDADataSource; ds_PedidosCliente_Detalles: TDADataSource;
tbl_PedidoCliente_Articulos_Pendientes: TDAMemDataTable; tbl_PedidoCliente_Articulos_Pendientes: TDAMemDataTable;
ds_PedidoCliente_Articulos_Pendientes: TDADataSource; ds_PedidoCliente_Articulos_Pendientes: TDADataSource;
tbl_PedidoCliente_ArticulosPendientesPedirAProv: TDAMemDataTable;
ds_PedidoCliente_ArticulosPendientesPedirAProv: TDADataSource;
tbl_ListaAnosPedidos: TDAMemDataTable; tbl_ListaAnosPedidos: TDAMemDataTable;
ds_ListaAnosPedidos: TDADataSource; ds_ListaAnosPedidos: TDADataSource;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
@ -32,6 +30,8 @@ type
ds_PedidosCliente_Detalle_Color: TDADataSource; ds_PedidosCliente_Detalle_Color: TDADataSource;
tbl_PedidoCliente_Art_Colores_Pendientes: TDAMemDataTable; tbl_PedidoCliente_Art_Colores_Pendientes: TDAMemDataTable;
ds_PedidoCliente_Art_Colores_Pendientes: TDADataSource; ds_PedidoCliente_Art_Colores_Pendientes: TDADataSource;
tbl_ArticulosPendientes: TDAMemDataTable;
ds_ArticulosPendientes: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
private private
@ -46,8 +46,8 @@ type
function GetItem(const ID : Integer) : IBizPedidoCliente; function GetItem(const ID : Integer) : IBizPedidoCliente;
function NewItem : IBizPedidoCliente; function NewItem : IBizPedidoCliente;
function GetArticulosPendientesPedirAProv(const IDPedido: Integer): IBizPedidoClienteArticulosPendientesPedirAProv; function GetArticulosPendientes: IBizArticulosPendientes; overload;
function GetArticulosPendientes(const IDPedido: Integer): IBizPedidoClienteArticulosPend; function GetArticulosPendientes(const IDPedido: Integer): IBizPedidoClienteArticulosPend; overload;
function GetArtColoresPendientes: IBizPedidoClienteArtColoresPend; function GetArtColoresPendientes: IBizPedidoClienteArtColoresPend;
// Report // Report
@ -168,8 +168,7 @@ begin
end; end;
end; end;
function TDataModulePedidosCliente.GetArticulosPendientes( function TDataModulePedidosCliente.GetArticulosPendientes(const IDPedido: Integer): IBizPedidoClienteArticulosPend;
const IDPedido: Integer): IBizPedidoClienteArticulosPend;
var var
AArticulos : TDAMemDataTable; AArticulos : TDAMemDataTable;
begin begin
@ -184,21 +183,18 @@ begin
end; end;
end; end;
function TDataModulePedidosCliente.GetArticulosPendientesPedirAProv( function TDataModulePedidosCliente.GetArticulosPendientes: IBizArticulosPendientes;
const IDPedido: Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
var var
AArticulos : TDAMemDataTable; AArticulos : TDAMemDataTable;
begin begin
{ ShowHourglassCursor; ShowHourglassCursor;
try try
AArticulos := _CloneDataTable(tbl_PedidoCliente_ArticulosPendientesPedirAProv); AArticulos := CloneDataTable(tbl_ArticulosPendientes);
AArticulos.BusinessRulesID := BIZ_CLIENT_PEDIDO_CLIENTE_ARTICULOS_PENDIENTES_PEDIR_A_PROV; AArticulos.BusinessRulesID := BIZ_ARTICULOS_PENDIENTES;
AArticulos.ParamByName('ID_PEDIDO').AsInteger := IDPedido; Result := (AArticulos as IBizArticulosPendientes);
Result := (AArticulos as IBizPedidoClienteArticulosPendientesPedirAProv);
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
}
end; end;
function TDataModulePedidosCliente.GetItem(const ID: Integer): IBizPedidoCliente; function TDataModulePedidosCliente.GetItem(const ID: Integer): IBizPedidoCliente;

6
Source/Modulos/Pedidos de cliente/Model/Data/uIDataModulePedidosCliente.pas
View File

@ -12,9 +12,9 @@ type
function GetItems: IBizPedidoCliente; function GetItems: IBizPedidoCliente;
function GetItem(const ID : Integer) : IBizPedidoCliente; function GetItem(const ID : Integer) : IBizPedidoCliente;
function NewItem : IBizPedidoCliente; function NewItem : IBizPedidoCliente;
function GetArticulosPendientes(const IDPedido: Integer): IBizPedidoClienteArticulosPend; function GetArticulosPendientes(const IDPedido: Integer): IBizPedidoClienteArticulosPend; overload;
function GetArtColoresPendientes: IBizPedidoClienteArtColoresPend; function GetArtColoresPendientes: IBizPedidoClienteArtColoresPend;
function GetArticulosPendientesPedirAProv(const IDPedido: Integer): IBizPedidoClienteArticulosPendientesPedirAProv; function GetArticulosPendientes: IBizArticulosPendientes; overload;
end; end;
implementation implementation

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

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1B3.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf186.tmp */

640
Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas
View File

@ -10,18 +10,18 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidoCliente_Art_Colores_Pendientes = '{54115F75-2664-4E4F-834E-124EEB0C84B3}'; RID_PedidoCliente_Art_Colores_Pendientes = '{DAE6EDB6-AC3C-48FE-8267-9FCF8F893536}';
RID_ListaAnosPedidos = '{9403FEF1-C5C3-4D71-912B-76B2CC833DC0}'; RID_ListaAnosPedidos = '{8A8427D3-3139-4A1B-9A96-1491FD942CD2}';
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{64718B70-7CF0-4EF9-A4DD-E518DFFB5F2F}'; RID_ArticulosPendientes = '{EA7857E1-253B-4C47-9E62-0030C8D0CB2E}';
RID_PedidosCliente = '{20E17637-C877-4040-AC6F-41ED17EE7749}'; RID_PedidosCliente = '{8F6CACE9-0B0B-47F4-9315-DD71C9BDCA22}';
RID_PedidosCliente_Detalles = '{8E4556EF-6251-447B-9A2F-314B00880A8F}'; RID_PedidosCliente_Detalles = '{4C1BBFCE-BE3B-4F5F-9FF2-EE52A2A10063}';
RID_PedidoCliente_Articulos_Pendientes = '{2886183F-49D3-4FD3-AA9C-E1B0DFB28894}'; RID_PedidoCliente_Articulos_Pendientes = '{30F8BA2A-2230-40DD-A760-36D1F7051BB8}';
RID_PedidosCliente_Detalle_Color = '{4DF3B5B1-846C-421F-9A5E-ED56D6D45201}'; RID_PedidosCliente_Detalle_Color = '{E4A714F8-E64E-41D9-A2DE-E880C4C95108}';
{ Data table names } { Data table names }
nme_PedidoCliente_Art_Colores_Pendientes = 'PedidoCliente_Art_Colores_Pendientes'; nme_PedidoCliente_Art_Colores_Pendientes = 'PedidoCliente_Art_Colores_Pendientes';
nme_ListaAnosPedidos = 'ListaAnosPedidos'; nme_ListaAnosPedidos = 'ListaAnosPedidos';
nme_PedidoCliente_ArticulosPendientesPedirAProv = 'PedidoCliente_ArticulosPendientesPedirAProv'; nme_ArticulosPendientes = 'ArticulosPendientes';
nme_PedidosCliente = 'PedidosCliente'; nme_PedidosCliente = 'PedidosCliente';
nme_PedidosCliente_Detalles = 'PedidosCliente_Detalles'; nme_PedidosCliente_Detalles = 'PedidosCliente_Detalles';
nme_PedidoCliente_Articulos_Pendientes = 'PedidoCliente_Articulos_Pendientes'; nme_PedidoCliente_Articulos_Pendientes = 'PedidoCliente_Articulos_Pendientes';
@ -65,21 +65,41 @@ const
{ ListaAnosPedidos field indexes } { ListaAnosPedidos field indexes }
idx_ListaAnosPedidosANO = 0; idx_ListaAnosPedidosANO = 0;
{ PedidoCliente_ArticulosPendientesPedirAProv fields } { ArticulosPendientes fields }
fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO = 'ID_PEDIDO'; fld_ArticulosPendientesID_ARTICULO = 'ID_ARTICULO';
fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO = 'ID_ARTICULO'; fld_ArticulosPendientesREFERENCIA = 'REFERENCIA';
fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE = 'CANT_PEDIDA_CLIENTE'; fld_ArticulosPendientesDESCRIPCION = 'DESCRIPCION';
fld_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR = 'ID_PROVEEDOR'; fld_ArticulosPendientesCOLOR1 = 'COLOR1';
fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR = 'CANT_PEDIDA_PROVEEDOR'; fld_ArticulosPendientesCOLOR2 = 'COLOR2';
fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR = 'CANT_PENDIENTE_PEDIR'; fld_ArticulosPendientesCOLOR3 = 'COLOR3';
fld_ArticulosPendientesCOLOR4 = 'COLOR4';
fld_ArticulosPendientesCOLOR5 = 'COLOR5';
fld_ArticulosPendientesCOLOR6 = 'COLOR6';
fld_ArticulosPendientesCOLOR7 = 'COLOR7';
fld_ArticulosPendientesCOLOR8 = 'COLOR8';
fld_ArticulosPendientesCOLOR9 = 'COLOR9';
fld_ArticulosPendientesCOLOR10 = 'COLOR10';
fld_ArticulosPendientesCOLOR11 = 'COLOR11';
fld_ArticulosPendientesCOLOR12 = 'COLOR12';
fld_ArticulosPendientesTOTAL = 'TOTAL';
{ PedidoCliente_ArticulosPendientesPedirAProv field indexes } { ArticulosPendientes field indexes }
idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO = 0; idx_ArticulosPendientesID_ARTICULO = 0;
idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO = 1; idx_ArticulosPendientesREFERENCIA = 1;
idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE = 2; idx_ArticulosPendientesDESCRIPCION = 2;
idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR = 3; idx_ArticulosPendientesCOLOR1 = 3;
idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR = 4; idx_ArticulosPendientesCOLOR2 = 4;
idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR = 5; idx_ArticulosPendientesCOLOR3 = 5;
idx_ArticulosPendientesCOLOR4 = 6;
idx_ArticulosPendientesCOLOR5 = 7;
idx_ArticulosPendientesCOLOR6 = 8;
idx_ArticulosPendientesCOLOR7 = 9;
idx_ArticulosPendientesCOLOR8 = 10;
idx_ArticulosPendientesCOLOR9 = 11;
idx_ArticulosPendientesCOLOR10 = 12;
idx_ArticulosPendientesCOLOR11 = 13;
idx_ArticulosPendientesCOLOR12 = 14;
idx_ArticulosPendientesTOTAL = 15;
{ PedidosCliente fields } { PedidosCliente fields }
fld_PedidosClienteID = 'ID'; fld_PedidosClienteID = 'ID';
@ -238,7 +258,7 @@ const
type type
{ IPedidoCliente_Art_Colores_Pendientes } { IPedidoCliente_Art_Colores_Pendientes }
IPedidoCliente_Art_Colores_Pendientes = interface(IDAStronglyTypedDataTable) IPedidoCliente_Art_Colores_Pendientes = interface(IDAStronglyTypedDataTable)
['{32201652-7936-46E1-85CA-543B750E39B6}'] ['{1BFD3DF3-9112-44CF-AD7B-D6A81CC5157F}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
@ -429,7 +449,7 @@ type
{ IListaAnosPedidos } { IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable) IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
['{A77970C4-600B-41C8-BED5-AAEBDA357B58}'] ['{A93D242C-7BE8-4BCE-9D51-C5BE9E75923B}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -462,94 +482,214 @@ type
end; end;
{ IPedidoCliente_ArticulosPendientesPedirAProv } { IArticulosPendientes }
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable) IArticulosPendientes = interface(IDAStronglyTypedDataTable)
['{EBDE6CE5-A430-4B8C-8F26-D9B68A20ACC1}'] ['{764F380F-50B6-4FBC-8E75-531B3859322D}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
function GetID_PEDIDOIsNull: Boolean;
procedure SetID_PEDIDOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer; function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean; function GetID_ARTICULOIsNull: Boolean;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); procedure SetID_ARTICULOIsNull(const aValue: Boolean);
function GetCANT_PEDIDA_CLIENTEValue: Float; function GetREFERENCIAValue: String;
procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Float); procedure SetREFERENCIAValue(const aValue: String);
function GetCANT_PEDIDA_CLIENTEIsNull: Boolean; function GetREFERENCIAIsNull: Boolean;
procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetID_PROVEEDORValue: Integer; function GetDESCRIPCIONValue: String;
procedure SetID_PROVEEDORValue(const aValue: Integer); procedure SetDESCRIPCIONValue(const aValue: String);
function GetID_PROVEEDORIsNull: Boolean; function GetDESCRIPCIONIsNull: Boolean;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetCANT_PEDIDA_PROVEEDORValue: Float; function GetCOLOR1Value: Int64;
procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float); procedure SetCOLOR1Value(const aValue: Int64);
function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean; function GetCOLOR1IsNull: Boolean;
procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); procedure SetCOLOR1IsNull(const aValue: Boolean);
function GetCANT_PENDIENTE_PEDIRValue: Float; function GetCOLOR2Value: Int64;
procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Float); procedure SetCOLOR2Value(const aValue: Int64);
function GetCANT_PENDIENTE_PEDIRIsNull: Boolean; function GetCOLOR2IsNull: Boolean;
procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); procedure SetCOLOR2IsNull(const aValue: Boolean);
function GetCOLOR3Value: Int64;
procedure SetCOLOR3Value(const aValue: Int64);
function GetCOLOR3IsNull: Boolean;
procedure SetCOLOR3IsNull(const aValue: Boolean);
function GetCOLOR4Value: Int64;
procedure SetCOLOR4Value(const aValue: Int64);
function GetCOLOR4IsNull: Boolean;
procedure SetCOLOR4IsNull(const aValue: Boolean);
function GetCOLOR5Value: Int64;
procedure SetCOLOR5Value(const aValue: Int64);
function GetCOLOR5IsNull: Boolean;
procedure SetCOLOR5IsNull(const aValue: Boolean);
function GetCOLOR6Value: Int64;
procedure SetCOLOR6Value(const aValue: Int64);
function GetCOLOR6IsNull: Boolean;
procedure SetCOLOR6IsNull(const aValue: Boolean);
function GetCOLOR7Value: Int64;
procedure SetCOLOR7Value(const aValue: Int64);
function GetCOLOR7IsNull: Boolean;
procedure SetCOLOR7IsNull(const aValue: Boolean);
function GetCOLOR8Value: Int64;
procedure SetCOLOR8Value(const aValue: Int64);
function GetCOLOR8IsNull: Boolean;
procedure SetCOLOR8IsNull(const aValue: Boolean);
function GetCOLOR9Value: Int64;
procedure SetCOLOR9Value(const aValue: Int64);
function GetCOLOR9IsNull: Boolean;
procedure SetCOLOR9IsNull(const aValue: Boolean);
function GetCOLOR10Value: Int64;
procedure SetCOLOR10Value(const aValue: Int64);
function GetCOLOR10IsNull: Boolean;
procedure SetCOLOR10IsNull(const aValue: Boolean);
function GetCOLOR11Value: Int64;
procedure SetCOLOR11Value(const aValue: Int64);
function GetCOLOR11IsNull: Boolean;
procedure SetCOLOR11IsNull(const aValue: Boolean);
function GetCOLOR12Value: Int64;
procedure SetCOLOR12Value(const aValue: Int64);
function GetCOLOR12IsNull: Boolean;
procedure SetCOLOR12IsNull(const aValue: Boolean);
function GetTOTALValue: Int64;
procedure SetTOTALValue(const aValue: Int64);
function GetTOTALIsNull: Boolean;
procedure SetTOTALIsNull(const aValue: Boolean);
{ Properties } { Properties }
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CANT_PEDIDA_CLIENTE: Float read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property CANT_PEDIDA_CLIENTEIsNull: Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property CANT_PEDIDA_PROVEEDOR: Float read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue; property COLOR1: Int64 read GetCOLOR1Value write SetCOLOR1Value;
property CANT_PEDIDA_PROVEEDORIsNull: Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull; property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
property CANT_PENDIENTE_PEDIR: Float read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue; property COLOR2: Int64 read GetCOLOR2Value write SetCOLOR2Value;
property CANT_PENDIENTE_PEDIRIsNull: Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull; property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
property COLOR3: Int64 read GetCOLOR3Value write SetCOLOR3Value;
property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
property COLOR4: Int64 read GetCOLOR4Value write SetCOLOR4Value;
property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
property COLOR5: Int64 read GetCOLOR5Value write SetCOLOR5Value;
property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
property COLOR6: Int64 read GetCOLOR6Value write SetCOLOR6Value;
property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
property COLOR7: Int64 read GetCOLOR7Value write SetCOLOR7Value;
property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
property COLOR8: Int64 read GetCOLOR8Value write SetCOLOR8Value;
property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
property COLOR9: Int64 read GetCOLOR9Value write SetCOLOR9Value;
property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
property COLOR10: Int64 read GetCOLOR10Value write SetCOLOR10Value;
property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
property COLOR11: Int64 read GetCOLOR11Value write SetCOLOR11Value;
property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
property COLOR12: Int64 read GetCOLOR12Value write SetCOLOR12Value;
property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
property TOTAL: Int64 read GetTOTALValue write SetTOTALValue;
property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull;
end; end;
{ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules } { TArticulosPendientesDataTableRules }
TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv) TArticulosPendientesDataTableRules = class(TIntfObjectDADataTableRules, IArticulosPendientes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetCANT_PEDIDA_CLIENTEValue: Float; virtual; function GetREFERENCIAValue: String; virtual;
procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Float); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetCANT_PEDIDA_CLIENTEIsNull: Boolean; virtual; function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual; function GetDESCRIPCIONValue: String; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual; function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetCANT_PEDIDA_PROVEEDORValue: Float; virtual; function GetCOLOR1Value: Int64; virtual;
procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float); virtual; procedure SetCOLOR1Value(const aValue: Int64); virtual;
function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean; virtual; function GetCOLOR1IsNull: Boolean; virtual;
procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); virtual; procedure SetCOLOR1IsNull(const aValue: Boolean); virtual;
function GetCANT_PENDIENTE_PEDIRValue: Float; virtual; function GetCOLOR2Value: Int64; virtual;
procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Float); virtual; procedure SetCOLOR2Value(const aValue: Int64); virtual;
function GetCANT_PENDIENTE_PEDIRIsNull: Boolean; virtual; function GetCOLOR2IsNull: Boolean; virtual;
procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); virtual; procedure SetCOLOR2IsNull(const aValue: Boolean); virtual;
function GetCOLOR3Value: Int64; virtual;
procedure SetCOLOR3Value(const aValue: Int64); virtual;
function GetCOLOR3IsNull: Boolean; virtual;
procedure SetCOLOR3IsNull(const aValue: Boolean); virtual;
function GetCOLOR4Value: Int64; virtual;
procedure SetCOLOR4Value(const aValue: Int64); virtual;
function GetCOLOR4IsNull: Boolean; virtual;
procedure SetCOLOR4IsNull(const aValue: Boolean); virtual;
function GetCOLOR5Value: Int64; virtual;
procedure SetCOLOR5Value(const aValue: Int64); virtual;
function GetCOLOR5IsNull: Boolean; virtual;
procedure SetCOLOR5IsNull(const aValue: Boolean); virtual;
function GetCOLOR6Value: Int64; virtual;
procedure SetCOLOR6Value(const aValue: Int64); virtual;
function GetCOLOR6IsNull: Boolean; virtual;
procedure SetCOLOR6IsNull(const aValue: Boolean); virtual;
function GetCOLOR7Value: Int64; virtual;
procedure SetCOLOR7Value(const aValue: Int64); virtual;
function GetCOLOR7IsNull: Boolean; virtual;
procedure SetCOLOR7IsNull(const aValue: Boolean); virtual;
function GetCOLOR8Value: Int64; virtual;
procedure SetCOLOR8Value(const aValue: Int64); virtual;
function GetCOLOR8IsNull: Boolean; virtual;
procedure SetCOLOR8IsNull(const aValue: Boolean); virtual;
function GetCOLOR9Value: Int64; virtual;
procedure SetCOLOR9Value(const aValue: Int64); virtual;
function GetCOLOR9IsNull: Boolean; virtual;
procedure SetCOLOR9IsNull(const aValue: Boolean); virtual;
function GetCOLOR10Value: Int64; virtual;
procedure SetCOLOR10Value(const aValue: Int64); virtual;
function GetCOLOR10IsNull: Boolean; virtual;
procedure SetCOLOR10IsNull(const aValue: Boolean); virtual;
function GetCOLOR11Value: Int64; virtual;
procedure SetCOLOR11Value(const aValue: Int64); virtual;
function GetCOLOR11IsNull: Boolean; virtual;
procedure SetCOLOR11IsNull(const aValue: Boolean); virtual;
function GetCOLOR12Value: Int64; virtual;
procedure SetCOLOR12Value(const aValue: Int64); virtual;
function GetCOLOR12IsNull: Boolean; virtual;
procedure SetCOLOR12IsNull(const aValue: Boolean); virtual;
function GetTOTALValue: Int64; virtual;
procedure SetTOTALValue(const aValue: Int64); virtual;
function GetTOTALIsNull: Boolean; virtual;
procedure SetTOTALIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CANT_PEDIDA_CLIENTE: Float read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property CANT_PEDIDA_CLIENTEIsNull: Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property CANT_PEDIDA_PROVEEDOR: Float read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue; property COLOR1: Int64 read GetCOLOR1Value write SetCOLOR1Value;
property CANT_PEDIDA_PROVEEDORIsNull: Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull; property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
property CANT_PENDIENTE_PEDIR: Float read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue; property COLOR2: Int64 read GetCOLOR2Value write SetCOLOR2Value;
property CANT_PENDIENTE_PEDIRIsNull: Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull; property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
property COLOR3: Int64 read GetCOLOR3Value write SetCOLOR3Value;
property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
property COLOR4: Int64 read GetCOLOR4Value write SetCOLOR4Value;
property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
property COLOR5: Int64 read GetCOLOR5Value write SetCOLOR5Value;
property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
property COLOR6: Int64 read GetCOLOR6Value write SetCOLOR6Value;
property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
property COLOR7: Int64 read GetCOLOR7Value write SetCOLOR7Value;
property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
property COLOR8: Int64 read GetCOLOR8Value write SetCOLOR8Value;
property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
property COLOR9: Int64 read GetCOLOR9Value write SetCOLOR9Value;
property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
property COLOR10: Int64 read GetCOLOR10Value write SetCOLOR10Value;
property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
property COLOR11: Int64 read GetCOLOR11Value write SetCOLOR11Value;
property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
property COLOR12: Int64 read GetCOLOR12Value write SetCOLOR12Value;
property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
property TOTAL: Int64 read GetTOTALValue write SetTOTALValue;
property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -559,7 +699,7 @@ type
{ IPedidosCliente } { IPedidosCliente }
IPedidosCliente = interface(IDAStronglyTypedDataTable) IPedidosCliente = interface(IDAStronglyTypedDataTable)
['{095475C5-5040-4831-9310-8028A76B7568}'] ['{AFC13DCE-C06B-43F6-8659-EF8F363AA406}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1014,7 +1154,7 @@ type
{ IPedidosCliente_Detalles } { IPedidosCliente_Detalles }
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{38AC30F0-521A-4DA3-AED0-D3D56657ABFA}'] ['{65AE1BAD-EEB3-48CE-8366-FB559610658B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1217,7 +1357,7 @@ type
{ IPedidoCliente_Articulos_Pendientes } { IPedidoCliente_Articulos_Pendientes }
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{CDD4E426-925A-47C9-AE39-E07ED452A219}'] ['{FB1F9D4A-319A-4FB3-8576-26E149E18E06}']
{ Property getters and setters } { Property getters and setters }
function GetID_ARTICULOValue: Integer; function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
@ -1288,7 +1428,7 @@ type
{ IPedidosCliente_Detalle_Color } { IPedidosCliente_Detalle_Color }
IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable) IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
['{AF1847ED-E9E1-42A7-A205-C99502AE53DF}'] ['{FEED9557-5E73-47D9-A62B-E92C858D9608}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1820,141 +1960,351 @@ begin
end; end;
{ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules } { TArticulosPendientesDataTableRules }
constructor TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.Create(aDataTable: TDADataTable); constructor TArticulosPendientesDataTableRules.Create(aDataTable: TDADataTable);
begin begin
inherited; inherited;
end; end;
destructor TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.Destroy; destructor TArticulosPendientesDataTableRules.Destroy;
begin begin
inherited; inherited;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_PEDIDOValue: Integer; function TArticulosPendientesDataTableRules.GetID_ARTICULOValue: Integer;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].AsInteger; result := DataTable.Fields[idx_ArticulosPendientesID_ARTICULO].AsInteger;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_PEDIDOValue(const aValue: Integer); procedure TArticulosPendientesDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].AsInteger := aValue; DataTable.Fields[idx_ArticulosPendientesID_ARTICULO].AsInteger := aValue;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_PEDIDOIsNull: boolean; function TArticulosPendientesDataTableRules.GetID_ARTICULOIsNull: boolean;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].IsNull; result := DataTable.Fields[idx_ArticulosPendientesID_ARTICULO].IsNull;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean); procedure TArticulosPendientesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].AsVariant := Null; DataTable.Fields[idx_ArticulosPendientesID_ARTICULO].AsVariant := Null;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_ARTICULOValue: Integer; function TArticulosPendientesDataTableRules.GetREFERENCIAValue: String;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsInteger; result := DataTable.Fields[idx_ArticulosPendientesREFERENCIA].AsString;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_ARTICULOValue(const aValue: Integer); procedure TArticulosPendientesDataTableRules.SetREFERENCIAValue(const aValue: String);
begin begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsInteger := aValue; DataTable.Fields[idx_ArticulosPendientesREFERENCIA].AsString := aValue;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_ARTICULOIsNull: boolean; function TArticulosPendientesDataTableRules.GetREFERENCIAIsNull: boolean;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].IsNull; result := DataTable.Fields[idx_ArticulosPendientesREFERENCIA].IsNull;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); procedure TArticulosPendientesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsVariant := Null; DataTable.Fields[idx_ArticulosPendientesREFERENCIA].AsVariant := Null;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEValue: Float; function TArticulosPendientesDataTableRules.GetDESCRIPCIONValue: String;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsFloat; result := DataTable.Fields[idx_ArticulosPendientesDESCRIPCION].AsString;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_CLIENTEValue(const aValue: Float); procedure TArticulosPendientesDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsFloat := aValue; DataTable.Fields[idx_ArticulosPendientesDESCRIPCION].AsString := aValue;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEIsNull: boolean; function TArticulosPendientesDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].IsNull; result := DataTable.Fields[idx_ArticulosPendientesDESCRIPCION].IsNull;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); procedure TArticulosPendientesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsVariant := Null; DataTable.Fields[idx_ArticulosPendientesDESCRIPCION].AsVariant := Null;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_PROVEEDORValue: Integer; function TArticulosPendientesDataTableRules.GetCOLOR1Value: Int64;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].AsInteger; result := DataTable.Fields[idx_ArticulosPendientesCOLOR1].AsLargeInt;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_PROVEEDORValue(const aValue: Integer); procedure TArticulosPendientesDataTableRules.SetCOLOR1Value(const aValue: Int64);
begin begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].AsInteger := aValue; DataTable.Fields[idx_ArticulosPendientesCOLOR1].AsLargeInt := aValue;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_PROVEEDORIsNull: boolean; function TArticulosPendientesDataTableRules.GetCOLOR1IsNull: boolean;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].IsNull; result := DataTable.Fields[idx_ArticulosPendientesCOLOR1].IsNull;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean); procedure TArticulosPendientesDataTableRules.SetCOLOR1IsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].AsVariant := Null; DataTable.Fields[idx_ArticulosPendientesCOLOR1].AsVariant := Null;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORValue: Float; function TArticulosPendientesDataTableRules.GetCOLOR2Value: Int64;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsFloat; result := DataTable.Fields[idx_ArticulosPendientesCOLOR2].AsLargeInt;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float); procedure TArticulosPendientesDataTableRules.SetCOLOR2Value(const aValue: Int64);
begin begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsFloat := aValue; DataTable.Fields[idx_ArticulosPendientesCOLOR2].AsLargeInt := aValue;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORIsNull: boolean; function TArticulosPendientesDataTableRules.GetCOLOR2IsNull: boolean;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].IsNull; result := DataTable.Fields[idx_ArticulosPendientesCOLOR2].IsNull;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); procedure TArticulosPendientesDataTableRules.SetCOLOR2IsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsVariant := Null; DataTable.Fields[idx_ArticulosPendientesCOLOR2].AsVariant := Null;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRValue: Float; function TArticulosPendientesDataTableRules.GetCOLOR3Value: Int64;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsFloat; result := DataTable.Fields[idx_ArticulosPendientesCOLOR3].AsLargeInt;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PENDIENTE_PEDIRValue(const aValue: Float); procedure TArticulosPendientesDataTableRules.SetCOLOR3Value(const aValue: Int64);
begin begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsFloat := aValue; DataTable.Fields[idx_ArticulosPendientesCOLOR3].AsLargeInt := aValue;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRIsNull: boolean; function TArticulosPendientesDataTableRules.GetCOLOR3IsNull: boolean;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].IsNull; result := DataTable.Fields[idx_ArticulosPendientesCOLOR3].IsNull;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); procedure TArticulosPendientesDataTableRules.SetCOLOR3IsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsVariant := Null; DataTable.Fields[idx_ArticulosPendientesCOLOR3].AsVariant := Null;
end;
function TArticulosPendientesDataTableRules.GetCOLOR4Value: Int64;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR4].AsLargeInt;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR4Value(const aValue: Int64);
begin
DataTable.Fields[idx_ArticulosPendientesCOLOR4].AsLargeInt := aValue;
end;
function TArticulosPendientesDataTableRules.GetCOLOR4IsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR4].IsNull;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR4IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPendientesCOLOR4].AsVariant := Null;
end;
function TArticulosPendientesDataTableRules.GetCOLOR5Value: Int64;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR5].AsLargeInt;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR5Value(const aValue: Int64);
begin
DataTable.Fields[idx_ArticulosPendientesCOLOR5].AsLargeInt := aValue;
end;
function TArticulosPendientesDataTableRules.GetCOLOR5IsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR5].IsNull;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR5IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPendientesCOLOR5].AsVariant := Null;
end;
function TArticulosPendientesDataTableRules.GetCOLOR6Value: Int64;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR6].AsLargeInt;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR6Value(const aValue: Int64);
begin
DataTable.Fields[idx_ArticulosPendientesCOLOR6].AsLargeInt := aValue;
end;
function TArticulosPendientesDataTableRules.GetCOLOR6IsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR6].IsNull;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR6IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPendientesCOLOR6].AsVariant := Null;
end;
function TArticulosPendientesDataTableRules.GetCOLOR7Value: Int64;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR7].AsLargeInt;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR7Value(const aValue: Int64);
begin
DataTable.Fields[idx_ArticulosPendientesCOLOR7].AsLargeInt := aValue;
end;
function TArticulosPendientesDataTableRules.GetCOLOR7IsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR7].IsNull;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR7IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPendientesCOLOR7].AsVariant := Null;
end;
function TArticulosPendientesDataTableRules.GetCOLOR8Value: Int64;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR8].AsLargeInt;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR8Value(const aValue: Int64);
begin
DataTable.Fields[idx_ArticulosPendientesCOLOR8].AsLargeInt := aValue;
end;
function TArticulosPendientesDataTableRules.GetCOLOR8IsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR8].IsNull;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR8IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPendientesCOLOR8].AsVariant := Null;
end;
function TArticulosPendientesDataTableRules.GetCOLOR9Value: Int64;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR9].AsLargeInt;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR9Value(const aValue: Int64);
begin
DataTable.Fields[idx_ArticulosPendientesCOLOR9].AsLargeInt := aValue;
end;
function TArticulosPendientesDataTableRules.GetCOLOR9IsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR9].IsNull;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR9IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPendientesCOLOR9].AsVariant := Null;
end;
function TArticulosPendientesDataTableRules.GetCOLOR10Value: Int64;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR10].AsLargeInt;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR10Value(const aValue: Int64);
begin
DataTable.Fields[idx_ArticulosPendientesCOLOR10].AsLargeInt := aValue;
end;
function TArticulosPendientesDataTableRules.GetCOLOR10IsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR10].IsNull;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR10IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPendientesCOLOR10].AsVariant := Null;
end;
function TArticulosPendientesDataTableRules.GetCOLOR11Value: Int64;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR11].AsLargeInt;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR11Value(const aValue: Int64);
begin
DataTable.Fields[idx_ArticulosPendientesCOLOR11].AsLargeInt := aValue;
end;
function TArticulosPendientesDataTableRules.GetCOLOR11IsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR11].IsNull;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR11IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPendientesCOLOR11].AsVariant := Null;
end;
function TArticulosPendientesDataTableRules.GetCOLOR12Value: Int64;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR12].AsLargeInt;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR12Value(const aValue: Int64);
begin
DataTable.Fields[idx_ArticulosPendientesCOLOR12].AsLargeInt := aValue;
end;
function TArticulosPendientesDataTableRules.GetCOLOR12IsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPendientesCOLOR12].IsNull;
end;
procedure TArticulosPendientesDataTableRules.SetCOLOR12IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPendientesCOLOR12].AsVariant := Null;
end;
function TArticulosPendientesDataTableRules.GetTOTALValue: Int64;
begin
result := DataTable.Fields[idx_ArticulosPendientesTOTAL].AsLargeInt;
end;
procedure TArticulosPendientesDataTableRules.SetTOTALValue(const aValue: Int64);
begin
DataTable.Fields[idx_ArticulosPendientesTOTAL].AsLargeInt := aValue;
end;
function TArticulosPendientesDataTableRules.GetTOTALIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPendientesTOTAL].IsNull;
end;
procedure TArticulosPendientesDataTableRules.SetTOTALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPendientesTOTAL].AsVariant := Null;
end; end;
@ -3470,7 +3820,7 @@ end;
initialization initialization
RegisterDataTableRules(RID_PedidoCliente_Art_Colores_Pendientes, TPedidoCliente_Art_Colores_PendientesDataTableRules); RegisterDataTableRules(RID_PedidoCliente_Art_Colores_Pendientes, TPedidoCliente_Art_Colores_PendientesDataTableRules);
RegisterDataTableRules(RID_ListaAnosPedidos, TListaAnosPedidosDataTableRules); RegisterDataTableRules(RID_ListaAnosPedidos, TListaAnosPedidosDataTableRules);
RegisterDataTableRules(RID_PedidoCliente_ArticulosPendientesPedirAProv, TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules); RegisterDataTableRules(RID_ArticulosPendientes, TArticulosPendientesDataTableRules);
RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules); RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules);
RegisterDataTableRules(RID_PedidosCliente_Detalles, TPedidosCliente_DetallesDataTableRules); RegisterDataTableRules(RID_PedidosCliente_Detalles, TPedidosCliente_DetallesDataTableRules);
RegisterDataTableRules(RID_PedidoCliente_Articulos_Pendientes, TPedidoCliente_Articulos_PendientesDataTableRules); RegisterDataTableRules(RID_PedidoCliente_Articulos_Pendientes, TPedidoCliente_Articulos_PendientesDataTableRules);

778
Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas
View File

File diff suppressed because it is too large Load Diff

8
Source/Modulos/Pedidos de cliente/Model/uBizPedidosCliente.pas
View File

@ -9,7 +9,7 @@ uses
const const
BIZ_CLIENT_PEDIDO_CLIENTE = 'Client.PedidoCliente'; BIZ_CLIENT_PEDIDO_CLIENTE = 'Client.PedidoCliente';
BIZ_CLIENT_PEDIDO_CLIENTE_ARTICULOS_PENDIENTES_PEDIR_A_PROV = 'Client.PedidoClienteArticulosPendientesPedirAProv'; BIZ_ARTICULOS_PENDIENTES = 'Client.ArticulosPendientes';
SITUACION_PEDIDO_PENDIENTE = 'PENDIENTE'; SITUACION_PEDIDO_PENDIENTE = 'PENDIENTE';
SITUACION_PEDIDO_ENPROCESO = 'EN PROCESO'; SITUACION_PEDIDO_ENPROCESO = 'EN PROCESO';
@ -39,7 +39,7 @@ type
function DarListaSituaciones: TStringList; function DarListaSituaciones: TStringList;
end; end;
IBizPedidoClienteArticulosPendientesPedirAProv = interface(IPedidoCliente_ArticulosPendientesPedirAProv) IBizArticulosPendientes = interface(IArticulosPendientes)
['{00537EF7-363E-4A50-BA03-1C0B79D17D31}'] ['{00537EF7-363E-4A50-BA03-1C0B79D17D31}']
end; end;
@ -93,7 +93,7 @@ type
destructor Destroy; override; destructor Destroy; override;
end; end;
TBizPedidoClienteArticulosPendientesPedirAProv = class(TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules, IBizPedidoClienteArticulosPendientesPedirAProv) TBizArticulosPendientes = class(TArticulosPendientesDataTableRules, IBizArticulosPendientes)
end; end;
@ -326,7 +326,7 @@ end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_PEDIDO_CLIENTE, TBizPedidoCliente); RegisterDataTableRules(BIZ_CLIENT_PEDIDO_CLIENTE, TBizPedidoCliente);
RegisterDataTableRules(BIZ_CLIENT_PEDIDO_CLIENTE_ARTICULOS_PENDIENTES_PEDIR_A_PROV, TBizPedidoClienteArticulosPendientesPedirAProv); RegisterDataTableRules(BIZ_ARTICULOS_PENDIENTES, TBizArticulosPendientes);
finalization finalization

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

@ -14,4 +14,4 @@ END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf227.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1FA.tmp */

21
Source/Modulos/Pedidos de cliente/Plugin/uPluginPedidosCliente.pas
View File

@ -30,7 +30,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
Forms, Dialogs, SysUtils, Forms, Dialogs, SysUtils, cxControls,
uPedidosClienteController, uBizPedidosCliente, uPedidosClienteViewRegister; uPedidosClienteController, uBizPedidosCliente, uPedidosClienteViewRegister;
function GetModule : TModuleController; function GetModule : TModuleController;
@ -67,8 +67,25 @@ end;
procedure TPluginPedidosCliente.VerPedidos(const ID_Cliente: Integer; procedure TPluginPedidosCliente.VerPedidos(const ID_Cliente: Integer;
const ANombreCliente: String); const ANombreCliente: String);
var
APedidosClienteController : IPedidosClienteController;
APedidosCliente : IBizPedidoCliente;
AText : String;
begin begin
// AText := Format('Lista de pedidos del cliente %s', [ANombreCliente]);
APedidosClienteController := TPedidosClienteController.Create;
try
ShowHourglassCursor;
try
APedidosCliente := APedidosClienteController.BuscarTodos(ID_Cliente);
finally
HideHourglassCursor;
end;
APedidosClienteController.VerTodosPedidos(APedidosCliente, True, AText);
finally
APedidosCliente := NIL;
APedidosClienteController := NIL;
end;
end; end;
initialization initialization

152
Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm
View File

@ -160,77 +160,147 @@ object srvPedidosCliente: TsrvPedidosCliente
end> end>
end end
item item
Params = < Params = <>
item
Name = 'ID_PEDIDO'
Value = ''
ParamType = daptInput
end>
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
SQL = TargetTable = 'V_ARTICULOS_PENDIENTES'
'SELECT '#10' ID_PEDIDO, ID_ARTICULO, CANT_PEDIDA_CLIENTE, ID_PROV' + StatementType = stAutoSQL
'EEDOR, '#10' CANT_PEDIDA_PROVEEDOR, CANT_PENDIENTE_PEDIR'#10' FROM'#10' ' +
' V_PED_CLI_ART_PEND_PEDIR_PROV'#10' WHERE ID_PEDIDO = :ID_PEDIDO'
StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
item item
DatasetField = 'ID_ARTICULO' DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO' TableField = 'ID_ARTICULO'
end end
item item
DatasetField = 'CANT_PEDIDA_CLIENTE' DatasetField = 'REFERENCIA'
TableField = 'CANT_PEDIDA_CLIENTE' TableField = 'REFERENCIA'
end end
item item
DatasetField = 'ID_PROVEEDOR' DatasetField = 'DESCRIPCION'
TableField = 'ID_PROVEEDOR' TableField = 'DESCRIPCION'
end end
item item
DatasetField = 'CANT_PEDIDA_PROVEEDOR' DatasetField = 'COLOR1'
TableField = 'CANT_PEDIDA_PROVEEDOR' TableField = 'COLOR1'
end end
item item
DatasetField = 'CANT_PENDIENTE_PEDIR' DatasetField = 'COLOR2'
TableField = 'CANT_PENDIENTE_PEDIR' TableField = 'COLOR2'
end
item
DatasetField = 'COLOR3'
TableField = 'COLOR3'
end
item
DatasetField = 'COLOR4'
TableField = 'COLOR4'
end
item
DatasetField = 'COLOR5'
TableField = 'COLOR5'
end
item
DatasetField = 'COLOR6'
TableField = 'COLOR6'
end
item
DatasetField = 'COLOR7'
TableField = 'COLOR7'
end
item
DatasetField = 'COLOR8'
TableField = 'COLOR8'
end
item
DatasetField = 'COLOR9'
TableField = 'COLOR9'
end
item
DatasetField = 'COLOR10'
TableField = 'COLOR10'
end
item
DatasetField = 'COLOR11'
TableField = 'COLOR11'
end
item
DatasetField = 'COLOR12'
TableField = 'COLOR12'
end
item
DatasetField = 'TOTAL'
TableField = 'TOTAL'
end> end>
end> end>
Name = 'PedidoCliente_ArticulosPendientesPedirAProv' Name = 'ArticulosPendientes'
Fields = < Fields = <
item
Name = 'ID_PEDIDO'
DataType = datAutoInc
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_PEDIDO'
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_ARTICULO' DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_ARTICULO'
InPrimaryKey = True
end end
item item
Name = 'CANT_PEDIDA_CLIENTE' Name = 'REFERENCIA'
DataType = datFloat DataType = datString
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE' Size = 255
end end
item item
Name = 'ID_PROVEEDOR' Name = 'DESCRIPCION'
DataType = datInteger DataType = datString
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_PROVEEDOR' Size = 255
end end
item item
Name = 'CANT_PEDIDA_PROVEEDOR' Name = 'COLOR1'
DataType = datFloat DataType = datLargeInt
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR'
end end
item item
Name = 'CANT_PENDIENTE_PEDIR' Name = 'COLOR2'
DataType = datFloat DataType = datLargeInt
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR' end
item
Name = 'COLOR3'
DataType = datLargeInt
end
item
Name = 'COLOR4'
DataType = datLargeInt
end
item
Name = 'COLOR5'
DataType = datLargeInt
end
item
Name = 'COLOR6'
DataType = datLargeInt
end
item
Name = 'COLOR7'
DataType = datLargeInt
end
item
Name = 'COLOR8'
DataType = datLargeInt
end
item
Name = 'COLOR9'
DataType = datLargeInt
end
item
Name = 'COLOR10'
DataType = datLargeInt
end
item
Name = 'COLOR11'
DataType = datLargeInt
end
item
Name = 'COLOR12'
DataType = datLargeInt
end
item
Name = 'TOTAL'
DataType = datLargeInt
end> end>
end end
item item

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

@ -69,7 +69,23 @@ requires
teeUI, teeUI,
tee, tee,
fsTee11, fsTee11,
frxTee11; frxTee11,
SpTBXLib_d11,
TntUnicodeVcl,
tb2k_d11,
cxGridD11,
cxExportD11,
dxPScxPCProdD11,
dxPSCoreD11,
dxPsPrVwAdvD11,
dxBarExtItemsD11,
dxBarD11,
dxPScxExtCommonD11,
dxPScxCommonD11,
dxPSLnksD11,
vclshlctrls,
dxPScxGrid6LnkD11,
JvPageCompsD11R;
contains contains
uPedidosClienteViewRegister in 'uPedidosClienteViewRegister.pas', uPedidosClienteViewRegister in 'uPedidosClienteViewRegister.pas',
@ -84,6 +100,8 @@ contains
uViewDireccionEntregaPedidoCliente in 'uViewDireccionEntregaPedidoCliente.pas' {frViewDireccionEntregaPedidoCliente: TFrame}, uViewDireccionEntregaPedidoCliente in 'uViewDireccionEntregaPedidoCliente.pas' {frViewDireccionEntregaPedidoCliente: TFrame},
uEditorPedidosClienteReport in 'uEditorPedidosClienteReport.pas' {fEditorPedidosClientePreview: TfEditorPedidosClientePreview}, uEditorPedidosClienteReport in 'uEditorPedidosClienteReport.pas' {fEditorPedidosClientePreview: TfEditorPedidosClientePreview},
uViewDatosYSeleccionClientePedido in 'uViewDatosYSeleccionClientePedido.pas' {frViewDatosYSeleccionClientePedido: TFrame}, uViewDatosYSeleccionClientePedido in 'uViewDatosYSeleccionClientePedido.pas' {frViewDatosYSeleccionClientePedido: TFrame},
uViewTotalesPedido in 'uViewTotalesPedido.pas' {frViewTotalesPedido: TFrame}; uViewTotalesPedido in 'uViewTotalesPedido.pas' {frViewTotalesPedido: TFrame},
uViewArticulosPendientes in 'uViewArticulosPendientes.pas' {frViewArticulosPendientes: TFrame},
uEditorArticulosPendientes in 'uEditorArticulosPendientes.pas' {fEditorArticulosPendientes: TfEditorElegirArticulosPedidoCliente};
end. end.

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

@ -43,7 +43,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">PedidosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">PedidosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
@ -52,51 +51,71 @@
<DelphiCompile Include="PedidosCliente_view.dpk"> <DelphiCompile Include="PedidosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" /> <DCCReference Include="..\Controller\View\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" /> <DCCReference Include="..\Controller\View\AlbaranesCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" /> <DCCReference Include="..\Controller\View\AlbaranesCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" /> <DCCReference Include="..\Controller\View\Articulos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="..\Controller\View\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="..\Controller\View\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Controller\View\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\Controller\View\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" /> <DCCReference Include="..\Controller\View\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Controller\View\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\Controller\View\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" /> <DCCReference Include="..\Controller\View\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" /> <DCCReference Include="..\Controller\View\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" /> <DCCReference Include="..\Controller\View\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" /> <DCCReference Include="..\Controller\View\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Controller\View\dxBarD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Controller\View\dxBarExtItemsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\Controller\View\dxComnD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_controller.dcp" /> <DCCReference Include="..\Controller\View\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" /> <DCCReference Include="..\Controller\View\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxTee11.dcp" /> <DCCReference Include="..\Controller\View\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fsTee11.dcp" /> <DCCReference Include="..\Controller\View\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" /> <DCCReference Include="..\Controller\View\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" /> <DCCReference Include="..\Controller\View\dxPScxExtCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" /> <DCCReference Include="..\Controller\View\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" /> <DCCReference Include="..\Controller\View\dxPScxPCProdD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Controller\View\dxPSLnksD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Controller\View\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" /> <DCCReference Include="..\Controller\View\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PedCli_AlbCli_relation.dcp" /> <DCCReference Include="..\Controller\View\FacturasCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosCliente_controller.dcp" /> <DCCReference Include="..\Controller\View\FacturasCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosCliente_model.dcp" /> <DCCReference Include="..\Controller\View\frxTee11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="..\Controller\View\fsTee11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="..\Controller\View\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Controller\View\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\Controller\View\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tee.dcp" /> <DCCReference Include="..\Controller\View\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\teeUI.dcp" /> <DCCReference Include="..\Controller\View\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\Controller\View\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\Controller\View\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\Controller\View\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclimg.dcp" /> <DCCReference Include="..\Controller\View\PedCli_AlbCli_relation.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\Controller\View\PedidosCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\Controller\View\PedidosCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" /> <DCCReference Include="..\Controller\View\PngComponentsD10.dcp" />
<DCCReference Include="..\Controller\View\PNG_D10.dcp" />
<DCCReference Include="..\Controller\View\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Controller\View\rtl.dcp" />
<DCCReference Include="..\Controller\View\SpTBXLib_d11.dcp" />
<DCCReference Include="..\Controller\View\tb2k_d11.dcp" />
<DCCReference Include="..\Controller\View\tee.dcp" />
<DCCReference Include="..\Controller\View\teeUI.dcp" />
<DCCReference Include="..\Controller\View\TntUnicodeVcl.dcp" />
<DCCReference Include="..\Controller\View\vcl.dcp" />
<DCCReference Include="..\Controller\View\vclactnband.dcp" />
<DCCReference Include="..\Controller\View\vcldb.dcp" />
<DCCReference Include="..\Controller\View\vclimg.dcp" />
<DCCReference Include="..\Controller\View\vcljpg.dcp" />
<DCCReference Include="..\Controller\View\vclshlctrls.dcp" />
<DCCReference Include="..\Controller\View\vclx.dcp" />
<DCCReference Include="..\Controller\View\xmlrtl.dcp" />
<DCCReference Include="uEditorArticulosPendientes.pas">
<Form>fEditorArticulosPendientes</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirArticulosPedidoCliente.pas"> <DCCReference Include="uEditorElegirArticulosPedidoCliente.pas">
<Form>fEditorElegirArticulosPedidoCliente</Form> <Form>fEditorElegirArticulosPedidoCliente</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass> <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
@ -118,6 +137,10 @@
<DesignClass>TfEditorPedidosClientePreview</DesignClass> <DesignClass>TfEditorPedidosClientePreview</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uPedidosClienteViewRegister.pas" /> <DCCReference Include="uPedidosClienteViewRegister.pas" />
<DCCReference Include="uViewArticulosPendientes.pas">
<Form>frViewArticulosPendientes</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDatosYSeleccionClientePedido.pas"> <DCCReference Include="uViewDatosYSeleccionClientePedido.pas">
<Form>frViewDatosYSeleccionClientePedido</Form> <Form>frViewDatosYSeleccionClientePedido</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>

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

@ -24,5 +24,7 @@ END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewElegirArticulosPedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewElegirArticulosPedidosCliente.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosClienteReport.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosClienteReport.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewArticulosPendientes.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorArticulosPendientes.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf225.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1F8.tmp */

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

@ -1,15 +1,16 @@
inherited fEditorPedidosCliente: TfEditorPedidosCliente inherited fEditorPedidosCliente: TfEditorPedidosCliente
Caption = 'Lista de pedidos de cliente' Caption = 'Lista de pedidos de cliente'
ClientWidth = 674 ClientWidth = 767
ExplicitWidth = 682 ExplicitWidth = 775
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 674 Width = 767
Caption = 'Lista de pedidos de cliente' Caption = 'Lista de pedidos de cliente'
ExplicitWidth = 674 ExplicitWidth = 767
inherited Image1: TImage inherited Image1: TImage
Left = 647 Left = 740
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -121,26 +122,30 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
end end
end end
inherited TBXDock: TSpTBXDock inherited TBXDock: TSpTBXDock
Width = 674 Width = 767
ExplicitWidth = 674 ExplicitWidth = 767
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 632 ExplicitWidth = 632
end end
inherited tbxMenu: TSpTBXToolbar inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 674 ExplicitWidth = 767
end end
inherited TBXTMain2: TSpTBXToolbar inherited TBXTMain2: TSpTBXToolbar
Visible = True Visible = True
ExplicitWidth = 167 ExplicitWidth = 309
object SpTBXItem1: TSpTBXItem object SpTBXItem1: TSpTBXItem
Action = actGenerarAlbaranCli Action = actGenerarAlbaranCli
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object SpTBXItem2: TSpTBXItem
Action = actVerArticulosPendientes
DisplayMode = nbdmImageAndText
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 674 Width = 767
ExplicitWidth = 674 ExplicitWidth = 767
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
inherited actNuevo: TAction inherited actNuevo: TAction
@ -171,11 +176,11 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
OnExecute = actGenerarFacturaExecute OnExecute = actGenerarFacturaExecute
OnUpdate = actGenerarFacturaUpdate OnUpdate = actGenerarFacturaUpdate
end end
object actGenerarPedidoProv: TAction object actVerArticulosPendientes: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Generar pedido a proveedor' Caption = 'Ver art'#237'culos pendientes'
ImageIndex = 25 ImageIndex = 25
OnExecute = actGenerarPedidoProvExecute OnExecute = actVerArticulosPendientesExecute
end end
object actGenerar: TAction object actGenerar: TAction
Category = 'Acciones' Category = 'Acciones'

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

@ -20,7 +20,7 @@ type
TfEditorPedidosCliente = class(TfEditorGridBase, IEditorPedidosCliente) TfEditorPedidosCliente = class(TfEditorGridBase, IEditorPedidosCliente)
actGenerarAlbaranCli: TAction; actGenerarAlbaranCli: TAction;
actGenerarFactura: TAction; actGenerarFactura: TAction;
actGenerarPedidoProv: TAction; actVerArticulosPendientes: TAction;
N4: TMenuItem; N4: TMenuItem;
actGenerar: TAction; actGenerar: TAction;
Generar2: TMenuItem; Generar2: TMenuItem;
@ -30,12 +30,13 @@ type
JsListaPedidosNoEliminados: TJSDialog; JsListaPedidosNoEliminados: TJSDialog;
actEnviarEmail: TAction; actEnviarEmail: TAction;
SpTBXItem1: TSpTBXItem; SpTBXItem1: TSpTBXItem;
SpTBXItem2: TSpTBXItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actGenerarAlbaranCliExecute(Sender: TObject); procedure actGenerarAlbaranCliExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
procedure actGenerarFacturaUpdate(Sender: TObject); procedure actGenerarFacturaUpdate(Sender: TObject);
procedure actGenerarFacturaExecute(Sender: TObject); procedure actGenerarFacturaExecute(Sender: TObject);
procedure actGenerarPedidoProvExecute(Sender: TObject); procedure actVerArticulosPendientesExecute(Sender: TObject);
procedure actGenerarExecute(Sender: TObject); procedure actGenerarExecute(Sender: TObject);
procedure actGenerarUpdate(Sender: TObject); procedure actGenerarUpdate(Sender: TObject);
procedure actEnviarEmailExecute(Sender: TObject); procedure actEnviarEmailExecute(Sender: TObject);
@ -152,7 +153,7 @@ begin
begin begin
case JsGenerarDialog.CustomButtonResult of case JsGenerarDialog.CustomButtonResult of
200 : begin // Generar uno o más pedidos a proveedor 200 : begin // Generar uno o más pedidos a proveedor
actGenerarPedidoProv.Execute; // actGenerarPedidoProv.Execute;
end; end;
100 : begin // Albaran nuevo 100 : begin // Albaran nuevo
actGenerarAlbaranCli.Execute; actGenerarAlbaranCli.Execute;
@ -190,10 +191,10 @@ begin
and (FPedidos.SITUACION = SITUACION_PEDIDO_PENDIENTE); and (FPedidos.SITUACION = SITUACION_PEDIDO_PENDIENTE);
end; end;
procedure TfEditorPedidosCliente.actGenerarPedidoProvExecute(Sender: TObject); procedure TfEditorPedidosCliente.actVerArticulosPendientesExecute(Sender: TObject);
begin begin
inherited; inherited;
// GenerarPedidosProv(FPedidos); FController.VerArticulosPendientes;
end; end;
procedure TfEditorPedidosCliente.actGenerarUpdate(Sender: TObject); procedure TfEditorPedidosCliente.actGenerarUpdate(Sender: TObject);

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

@ -9,10 +9,11 @@ implementation
uses uses
uEditorRegistryUtils, uEditorPedidosCliente, uEditorPedidoCliente, uEditorElegirPedidosCliente, uEditorRegistryUtils, uEditorPedidosCliente, uEditorPedidoCliente, uEditorElegirPedidosCliente,
uEditorElegirArticulosPedidoCliente, uEditorPedidosClienteReport; // uDialogListaPedidosCliEnvioEMail; uEditorElegirArticulosPedidoCliente, uEditorPedidosClienteReport, uEditorArticulosPendientes; // uDialogListaPedidosCliEnvioEMail;
procedure RegisterViews; procedure RegisterViews;
begin begin
EditorRegistry.RegisterClass(TfEditorArticulosPendientes, 'EditorArticulosPendientes');
EditorRegistry.RegisterClass(TfEditorPedidosCliente, 'EditorPedidosCliente'); EditorRegistry.RegisterClass(TfEditorPedidosCliente, 'EditorPedidosCliente');
EditorRegistry.RegisterClass(TfEditorPedidoCliente, 'EditorPedidoCliente'); EditorRegistry.RegisterClass(TfEditorPedidoCliente, 'EditorPedidoCliente');
EditorRegistry.RegisterClass(TfEditorElegirPedidosCliente, 'EditorElegirPedidosCliente'); EditorRegistry.RegisterClass(TfEditorElegirPedidosCliente, 'EditorElegirPedidosCliente');
@ -23,6 +24,7 @@ end;
procedure UnregisterViews; procedure UnregisterViews;
begin begin
EditorRegistry.UnRegisterClass(TfEditorArticulosPendientes);
EditorRegistry.UnRegisterClass(TfEditorPedidosCliente); EditorRegistry.UnRegisterClass(TfEditorPedidosCliente);
EditorRegistry.UnRegisterClass(TfEditorPedidoCliente); EditorRegistry.UnRegisterClass(TfEditorPedidoCliente);
EditorRegistry.UnRegisterClass(TfEditorElegirPedidosCliente); EditorRegistry.UnRegisterClass(TfEditorElegirPedidosCliente);

18
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas
View File

@ -399,14 +399,14 @@ begin
//Se copian los detalles del pedido a la factura //Se copian los detalles del pedido a la factura
else else
begin begin
// Añado el título //No quieren titulo // Añado el título
AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_TITULO); // AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_TITULO);
with AFacturaActual.Detalles do // with AFacturaActual.Detalles do
begin // begin
Edit; // Edit;
CONCEPTO := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN); // CONCEPTO := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN);
Post; // Post;
end; // end;
// Añado el contenido del albarán // Añado el contenido del albarán
CopiarArticulosAlbaran(AListaAlbaranes.Detalles, AFacturaActual.Detalles); CopiarArticulosAlbaran(AListaAlbaranes.Detalles, AFacturaActual.Detalles);
@ -427,7 +427,7 @@ begin
with AFacturaActual.Detalles do with AFacturaActual.Detalles do
begin begin
Edit; Edit;
CONCEPTO := 'Total del albarán ' + AListaAlbaranes.REFERENCIA; CONCEPTO := 'Total del albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN);
Post; Post;
end; end;
end; end;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -139,10 +139,10 @@ uses
uRptPedidosCliente_Server in '..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas' {RptPedidosCliente}, uRptPedidosCliente_Server in '..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas' {RptPedidosCliente},
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas'; schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -17,7 +17,7 @@ BEGIN
VALUE "InternalName", "FactuGES Servidor\0" VALUE "InternalName", "FactuGES Servidor\0"
VALUE "ProductName", "FactuGES Servidor\0" VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "1.0.2.0\0" VALUE "ProductVersion", "1.0.2.0\0"
VALUE "CompileDate", "jueves, 08 de abril de 2010 19:11\0" VALUE "CompileDate", "lunes, 19 de abril de 2010 17:17\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"