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)
;
/* View: V_HIS_MOV_REGULARIZACIONES */
CREATE VIEW V_HIS_MOV_REGULARIZACIONES(
FECHA,
@ -2467,12 +2465,11 @@ AS
SELECT FECHA_MOVIMIENTO, ID_ALMACEN, ID_ARTICULO, TIPO,
CASE WHEN TIPO = 'S' THEN (-1)* CANTIDAD
ELSE CANTIDAD END,
'Regularizaci¢n por - ' || CAUSA
'Regularización por - ' || CAUSA
FROM MOVIMIENTOS
;
/* View: V_HIS_MOV_AUX */
CREATE VIEW V_HIS_MOV_AUX(
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)
;
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 ****/

52
Source/GUIBase/GUIBase.dproj
View File

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

1
Source/GUIBase/uEditorColores.pas
View File

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

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

@ -9,6 +9,8 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.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="Data\Contactos_data.dproj" />
<Projects Include="Model\Contactos_model.dproj" />
@ -111,14 +113,32 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</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">
<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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

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

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

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

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

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

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

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

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

@ -21,7 +21,7 @@ type
actGruposCliente: TAction;
JsListaContactosNoEliminados: TJSDialog;
frViewClientes1: TfrViewClientes;
actDocumentosPresupuestos: TAction;
actDocumentosPedidos: TAction;
actDocumentosAlbaranes: TAction;
actDocumentosFacturas: TAction;
TBXItem381: TSpTBXItem;
@ -44,7 +44,7 @@ type
TBXItem45: TSpTBXItem;
procedure actGruposClienteExecute(Sender: TObject);
procedure actDocumentosFacturasUpdate(Sender: TObject);
procedure actDocumentosPresupuestosExecute(Sender: TObject);
procedure actDocumentosPedidosExecute(Sender: TObject);
procedure actDocumentosFacturasExecute(Sender: TObject);
procedure actDocumentosAlbaranesExecute(Sender: TObject);
procedure actDocumentosRecibosExecute(Sender: TObject);
@ -90,10 +90,10 @@ begin
and ViewGrid.EsSeleccionCeldaDatos
end;
procedure TfEditorClientes.actDocumentosPresupuestosExecute(Sender: TObject);
procedure TfEditorClientes.actDocumentosPedidosExecute(Sender: TObject);
begin
inherited;
(FController as IClientesController).VerPresupuestosDeCliente(IBizCliente(FContactos));
(FController as IClientesController).VerPedidosDeCliente(IBizCliente(FContactos));
end;
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',
uPedidosClienteReportController in 'uPedidosClienteReportController.pas',
uIEditorPedidosClientePreview in 'View\uIEditorPedidosClientePreview.pas',
uIDialogListaPedidosCliEnvioEMail in 'View\uIDialogListaPedidosCliEnvioEMail.pas';
uIDialogListaPedidosCliEnvioEMail in 'View\uIDialogListaPedidosCliEnvioEMail.pas',
uIEditorArticulosPendientes in 'View\uIEditorArticulosPendientes.pas';
end.

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

@ -49,34 +49,35 @@
<DelphiCompile Include="PedidosCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</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="uDetallesPedidoClienteController.pas" />
<DCCReference Include="uPedidosClienteController.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\uIEditorArticulosPendientes.pas" />
<DCCReference Include="View\uIEditorDireccionEntregaPedidoCliente.pas" />
<DCCReference Include="View\uIEditorElegirArticulosPedidosCliente.pas" />
<DCCReference Include="View\uIEditorElegirPedidosCliente.pas" />
<DCCReference Include="View\uIEditorPedidoCliente.pas" />
<DCCReference Include="View\uIEditorPedidosCliente.pas" />
<DCCReference Include="View\uIEditorPedidosClientePreview.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vcldb.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

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

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo 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);
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 BuscarPendientesPedir(const ID : Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
function BuscarArticulosPendientes: IBizArticulosPendientes;
procedure Ver(APedido : IBizPedidoCliente);
procedure VerTodos(APedidos: IBizPedidoCliente);
procedure VerTodosPedidos(APedidos: IBizPedidoCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = '');
procedure VerDireccionEntrega(APedido : IBizPedidoCliente);
procedure VerArticulosPendientes;
function Nuevo : IBizPedidoCliente;
function Anadir(APedido : IBizPedidoCliente) : Boolean;
function Eliminar(const ID : Integer): Boolean; overload;
@ -102,13 +107,18 @@ type
function Existe(const ID: Integer) : Boolean; virtual;
function Anadir(APedido : IBizPedidoCliente) : Boolean;
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 BuscarPendientesPedir(const ID : Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
function BuscarArticulosPendientes: IBizArticulosPendientes;
function Nuevo : IBizPedidoCliente;
procedure Ver(APedido : IBizPedidoCliente);
procedure VerTodos(APedidos: IBizPedidoCliente);
procedure VerTodosPedidos(APedidos: IBizPedidoCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = '');
procedure VerDireccionEntrega(APedido : IBizPedidoCliente);
procedure VerArticulosPendientes;
function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente;
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto;
APedido: IBizPedidoCliente);
@ -144,7 +154,8 @@ uses
schPedidosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPedidoCliente,
uIEditorElegirPedidosCliente, uIEditorDireccionEntregaPedidoCliente,
schContactosClient_Intf, uPedidosClienteReportController, uIntegerListUtils,
uIDialogListaPedidosCliEnvioEMail, uSistemaFunc, uStringsUtils, uDialogElegirEMail, Forms, uEMailUtils;
uIDialogListaPedidosCliEnvioEMail, uSistemaFunc, uStringsUtils, uDialogElegirEMail,
uIEditorArticulosPendientes, Forms, uEMailUtils;
{ TPedidosClienteController }
@ -191,12 +202,34 @@ begin
end;
end;
function TPedidosClienteController.BuscarPendientesPedir(
const ID: Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
function TPedidosClienteController.BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
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
HideHourglassCursor;
end;
@ -407,6 +440,30 @@ begin
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(
APedido: IBizPedidoCliente);
var
@ -457,6 +514,36 @@ begin
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;
begin
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\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
Top = 256
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
RemoteUpdatesOptions = []
Fields = <
@ -700,4 +645,89 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
Left = 208
Top = 384
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

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

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

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

@ -13,4 +13,4 @@ BEGIN
END
/* 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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_PedidoCliente_Art_Colores_Pendientes = '{54115F75-2664-4E4F-834E-124EEB0C84B3}';
RID_ListaAnosPedidos = '{9403FEF1-C5C3-4D71-912B-76B2CC833DC0}';
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{64718B70-7CF0-4EF9-A4DD-E518DFFB5F2F}';
RID_PedidosCliente = '{20E17637-C877-4040-AC6F-41ED17EE7749}';
RID_PedidosCliente_Detalles = '{8E4556EF-6251-447B-9A2F-314B00880A8F}';
RID_PedidoCliente_Articulos_Pendientes = '{2886183F-49D3-4FD3-AA9C-E1B0DFB28894}';
RID_PedidosCliente_Detalle_Color = '{4DF3B5B1-846C-421F-9A5E-ED56D6D45201}';
RID_PedidoCliente_Art_Colores_Pendientes = '{DAE6EDB6-AC3C-48FE-8267-9FCF8F893536}';
RID_ListaAnosPedidos = '{8A8427D3-3139-4A1B-9A96-1491FD942CD2}';
RID_ArticulosPendientes = '{EA7857E1-253B-4C47-9E62-0030C8D0CB2E}';
RID_PedidosCliente = '{8F6CACE9-0B0B-47F4-9315-DD71C9BDCA22}';
RID_PedidosCliente_Detalles = '{4C1BBFCE-BE3B-4F5F-9FF2-EE52A2A10063}';
RID_PedidoCliente_Articulos_Pendientes = '{30F8BA2A-2230-40DD-A760-36D1F7051BB8}';
RID_PedidosCliente_Detalle_Color = '{E4A714F8-E64E-41D9-A2DE-E880C4C95108}';
{ Data table names }
nme_PedidoCliente_Art_Colores_Pendientes = 'PedidoCliente_Art_Colores_Pendientes';
nme_ListaAnosPedidos = 'ListaAnosPedidos';
nme_PedidoCliente_ArticulosPendientesPedirAProv = 'PedidoCliente_ArticulosPendientesPedirAProv';
nme_ArticulosPendientes = 'ArticulosPendientes';
nme_PedidosCliente = 'PedidosCliente';
nme_PedidosCliente_Detalles = 'PedidosCliente_Detalles';
nme_PedidoCliente_Articulos_Pendientes = 'PedidoCliente_Articulos_Pendientes';
@ -65,21 +65,41 @@ const
{ ListaAnosPedidos field indexes }
idx_ListaAnosPedidosANO = 0;
{ PedidoCliente_ArticulosPendientesPedirAProv fields }
fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO = 'ID_PEDIDO';
fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO = 'ID_ARTICULO';
fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE = 'CANT_PEDIDA_CLIENTE';
fld_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR = 'ID_PROVEEDOR';
fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR = 'CANT_PEDIDA_PROVEEDOR';
fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR = 'CANT_PENDIENTE_PEDIR';
{ ArticulosPendientes fields }
fld_ArticulosPendientesID_ARTICULO = 'ID_ARTICULO';
fld_ArticulosPendientesREFERENCIA = 'REFERENCIA';
fld_ArticulosPendientesDESCRIPCION = 'DESCRIPCION';
fld_ArticulosPendientesCOLOR1 = 'COLOR1';
fld_ArticulosPendientesCOLOR2 = 'COLOR2';
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 }
idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO = 0;
idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO = 1;
idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE = 2;
idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR = 3;
idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR = 4;
idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR = 5;
{ ArticulosPendientes field indexes }
idx_ArticulosPendientesID_ARTICULO = 0;
idx_ArticulosPendientesREFERENCIA = 1;
idx_ArticulosPendientesDESCRIPCION = 2;
idx_ArticulosPendientesCOLOR1 = 3;
idx_ArticulosPendientesCOLOR2 = 4;
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 }
fld_PedidosClienteID = 'ID';
@ -238,7 +258,7 @@ const
type
{ IPedidoCliente_Art_Colores_Pendientes }
IPedidoCliente_Art_Colores_Pendientes = interface(IDAStronglyTypedDataTable)
['{32201652-7936-46E1-85CA-543B750E39B6}']
['{1BFD3DF3-9112-44CF-AD7B-D6A81CC5157F}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@ -429,7 +449,7 @@ type
{ IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
['{A77970C4-600B-41C8-BED5-AAEBDA357B58}']
['{A93D242C-7BE8-4BCE-9D51-C5BE9E75923B}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -462,94 +482,214 @@ type
end;
{ IPedidoCliente_ArticulosPendientesPedirAProv }
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
['{EBDE6CE5-A430-4B8C-8F26-D9B68A20ACC1}']
{ IArticulosPendientes }
IArticulosPendientes = interface(IDAStronglyTypedDataTable)
['{764F380F-50B6-4FBC-8E75-531B3859322D}']
{ 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;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
procedure SetID_ARTICULOIsNull(const aValue: Boolean);
function GetCANT_PEDIDA_CLIENTEValue: Float;
procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Float);
function GetCANT_PEDIDA_CLIENTEIsNull: Boolean;
procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean);
function GetID_PROVEEDORValue: Integer;
procedure SetID_PROVEEDORValue(const aValue: Integer);
function GetID_PROVEEDORIsNull: Boolean;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
function GetCANT_PEDIDA_PROVEEDORValue: Float;
procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float);
function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean;
procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean);
function GetCANT_PENDIENTE_PEDIRValue: Float;
procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Float);
function GetCANT_PENDIENTE_PEDIRIsNull: Boolean;
procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetCOLOR1Value: Int64;
procedure SetCOLOR1Value(const aValue: Int64);
function GetCOLOR1IsNull: Boolean;
procedure SetCOLOR1IsNull(const aValue: Boolean);
function GetCOLOR2Value: Int64;
procedure SetCOLOR2Value(const aValue: Int64);
function GetCOLOR2IsNull: 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 }
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_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CANT_PEDIDA_CLIENTE: Float read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
property CANT_PEDIDA_CLIENTEIsNull: Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property CANT_PEDIDA_PROVEEDOR: Float read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue;
property CANT_PEDIDA_PROVEEDORIsNull: Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull;
property CANT_PENDIENTE_PEDIR: Float read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue;
property CANT_PENDIENTE_PEDIRIsNull: Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property COLOR1: Int64 read GetCOLOR1Value write SetCOLOR1Value;
property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
property COLOR2: Int64 read GetCOLOR2Value write SetCOLOR2Value;
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;
{ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules }
TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
{ TArticulosPendientesDataTableRules }
TArticulosPendientesDataTableRules = class(TIntfObjectDADataTableRules, IArticulosPendientes)
private
protected
{ 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;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetCANT_PEDIDA_CLIENTEValue: Float; virtual;
procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Float); virtual;
function GetCANT_PEDIDA_CLIENTEIsNull: Boolean; virtual;
procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCANT_PEDIDA_PROVEEDORValue: Float; virtual;
procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float); virtual;
function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean; virtual;
procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCANT_PENDIENTE_PEDIRValue: Float; virtual;
procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Float); virtual;
function GetCANT_PENDIENTE_PEDIRIsNull: Boolean; virtual;
procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetCOLOR1Value: Int64; virtual;
procedure SetCOLOR1Value(const aValue: Int64); virtual;
function GetCOLOR1IsNull: Boolean; virtual;
procedure SetCOLOR1IsNull(const aValue: Boolean); virtual;
function GetCOLOR2Value: Int64; virtual;
procedure SetCOLOR2Value(const aValue: Int64); virtual;
function GetCOLOR2IsNull: 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 }
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_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CANT_PEDIDA_CLIENTE: Float read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
property CANT_PEDIDA_CLIENTEIsNull: Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property CANT_PEDIDA_PROVEEDOR: Float read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue;
property CANT_PEDIDA_PROVEEDORIsNull: Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull;
property CANT_PENDIENTE_PEDIR: Float read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue;
property CANT_PENDIENTE_PEDIRIsNull: Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property COLOR1: Int64 read GetCOLOR1Value write SetCOLOR1Value;
property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
property COLOR2: Int64 read GetCOLOR2Value write SetCOLOR2Value;
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
constructor Create(aDataTable: TDADataTable); override;
@ -559,7 +699,7 @@ type
{ IPedidosCliente }
IPedidosCliente = interface(IDAStronglyTypedDataTable)
['{095475C5-5040-4831-9310-8028A76B7568}']
['{AFC13DCE-C06B-43F6-8659-EF8F363AA406}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1014,7 +1154,7 @@ type
{ IPedidosCliente_Detalles }
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{38AC30F0-521A-4DA3-AED0-D3D56657ABFA}']
['{65AE1BAD-EEB3-48CE-8366-FB559610658B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1217,7 +1357,7 @@ type
{ IPedidoCliente_Articulos_Pendientes }
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{CDD4E426-925A-47C9-AE39-E07ED452A219}']
['{FB1F9D4A-319A-4FB3-8576-26E149E18E06}']
{ Property getters and setters }
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
@ -1288,7 +1428,7 @@ type
{ IPedidosCliente_Detalle_Color }
IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
['{AF1847ED-E9E1-42A7-A205-C99502AE53DF}']
['{FEED9557-5E73-47D9-A62B-E92C858D9608}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1820,141 +1960,351 @@ begin
end;
{ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules }
constructor TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.Create(aDataTable: TDADataTable);
{ TArticulosPendientesDataTableRules }
constructor TArticulosPendientesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.Destroy;
destructor TArticulosPendientesDataTableRules.Destroy;
begin
inherited;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_PEDIDOValue: Integer;
function TArticulosPendientesDataTableRules.GetID_ARTICULOValue: Integer;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].AsInteger;
result := DataTable.Fields[idx_ArticulosPendientesID_ARTICULO].AsInteger;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
procedure TArticulosPendientesDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].AsInteger := aValue;
DataTable.Fields[idx_ArticulosPendientesID_ARTICULO].AsInteger := aValue;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_PEDIDOIsNull: boolean;
function TArticulosPendientesDataTableRules.GetID_ARTICULOIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].IsNull;
result := DataTable.Fields[idx_ArticulosPendientesID_ARTICULO].IsNull;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean);
procedure TArticulosPendientesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].AsVariant := Null;
DataTable.Fields[idx_ArticulosPendientesID_ARTICULO].AsVariant := Null;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_ARTICULOValue: Integer;
function TArticulosPendientesDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsInteger;
result := DataTable.Fields[idx_ArticulosPendientesREFERENCIA].AsString;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
procedure TArticulosPendientesDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsInteger := aValue;
DataTable.Fields[idx_ArticulosPendientesREFERENCIA].AsString := aValue;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_ARTICULOIsNull: boolean;
function TArticulosPendientesDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].IsNull;
result := DataTable.Fields[idx_ArticulosPendientesREFERENCIA].IsNull;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
procedure TArticulosPendientesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsVariant := Null;
DataTable.Fields[idx_ArticulosPendientesREFERENCIA].AsVariant := Null;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEValue: Float;
function TArticulosPendientesDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsFloat;
result := DataTable.Fields[idx_ArticulosPendientesDESCRIPCION].AsString;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_CLIENTEValue(const aValue: Float);
procedure TArticulosPendientesDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsFloat := aValue;
DataTable.Fields[idx_ArticulosPendientesDESCRIPCION].AsString := aValue;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEIsNull: boolean;
function TArticulosPendientesDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].IsNull;
result := DataTable.Fields[idx_ArticulosPendientesDESCRIPCION].IsNull;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean);
procedure TArticulosPendientesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsVariant := Null;
DataTable.Fields[idx_ArticulosPendientesDESCRIPCION].AsVariant := Null;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_PROVEEDORValue: Integer;
function TArticulosPendientesDataTableRules.GetCOLOR1Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].AsInteger;
result := DataTable.Fields[idx_ArticulosPendientesCOLOR1].AsLargeInt;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
procedure TArticulosPendientesDataTableRules.SetCOLOR1Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].AsInteger := aValue;
DataTable.Fields[idx_ArticulosPendientesCOLOR1].AsLargeInt := aValue;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_PROVEEDORIsNull: boolean;
function TArticulosPendientesDataTableRules.GetCOLOR1IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].IsNull;
result := DataTable.Fields[idx_ArticulosPendientesCOLOR1].IsNull;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
procedure TArticulosPendientesDataTableRules.SetCOLOR1IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].AsVariant := Null;
DataTable.Fields[idx_ArticulosPendientesCOLOR1].AsVariant := Null;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORValue: Float;
function TArticulosPendientesDataTableRules.GetCOLOR2Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsFloat;
result := DataTable.Fields[idx_ArticulosPendientesCOLOR2].AsLargeInt;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float);
procedure TArticulosPendientesDataTableRules.SetCOLOR2Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsFloat := aValue;
DataTable.Fields[idx_ArticulosPendientesCOLOR2].AsLargeInt := aValue;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORIsNull: boolean;
function TArticulosPendientesDataTableRules.GetCOLOR2IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].IsNull;
result := DataTable.Fields[idx_ArticulosPendientesCOLOR2].IsNull;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean);
procedure TArticulosPendientesDataTableRules.SetCOLOR2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsVariant := Null;
DataTable.Fields[idx_ArticulosPendientesCOLOR2].AsVariant := Null;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRValue: Float;
function TArticulosPendientesDataTableRules.GetCOLOR3Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsFloat;
result := DataTable.Fields[idx_ArticulosPendientesCOLOR3].AsLargeInt;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PENDIENTE_PEDIRValue(const aValue: Float);
procedure TArticulosPendientesDataTableRules.SetCOLOR3Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsFloat := aValue;
DataTable.Fields[idx_ArticulosPendientesCOLOR3].AsLargeInt := aValue;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRIsNull: boolean;
function TArticulosPendientesDataTableRules.GetCOLOR3IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].IsNull;
result := DataTable.Fields[idx_ArticulosPendientesCOLOR3].IsNull;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean);
procedure TArticulosPendientesDataTableRules.SetCOLOR3IsNull(const aValue: Boolean);
begin
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;
@ -3470,7 +3820,7 @@ end;
initialization
RegisterDataTableRules(RID_PedidoCliente_Art_Colores_Pendientes, TPedidoCliente_Art_Colores_PendientesDataTableRules);
RegisterDataTableRules(RID_ListaAnosPedidos, TListaAnosPedidosDataTableRules);
RegisterDataTableRules(RID_PedidoCliente_ArticulosPendientesPedirAProv, TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules);
RegisterDataTableRules(RID_ArticulosPendientes, TArticulosPendientesDataTableRules);
RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules);
RegisterDataTableRules(RID_PedidosCliente_Detalles, TPedidosCliente_DetallesDataTableRules);
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
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_ENPROCESO = 'EN PROCESO';
@ -39,7 +39,7 @@ type
function DarListaSituaciones: TStringList;
end;
IBizPedidoClienteArticulosPendientesPedirAProv = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
IBizArticulosPendientes = interface(IArticulosPendientes)
['{00537EF7-363E-4A50-BA03-1C0B79D17D31}']
end;
@ -93,7 +93,7 @@ type
destructor Destroy; override;
end;
TBizPedidoClienteArticulosPendientesPedirAProv = class(TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules, IBizPedidoClienteArticulosPendientesPedirAProv)
TBizArticulosPendientes = class(TArticulosPendientesDataTableRules, IBizArticulosPendientes)
end;
@ -326,7 +326,7 @@ end;
initialization
RegisterDataTableRules(BIZ_CLIENT_PEDIDO_CLIENTE, TBizPedidoCliente);
RegisterDataTableRules(BIZ_CLIENT_PEDIDO_CLIENTE_ARTICULOS_PENDIENTES_PEDIR_A_PROV, TBizPedidoClienteArticulosPendientesPedirAProv);
RegisterDataTableRules(BIZ_ARTICULOS_PENDIENTES, TBizArticulosPendientes);
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\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}
uses
Forms, Dialogs, SysUtils,
Forms, Dialogs, SysUtils, cxControls,
uPedidosClienteController, uBizPedidosCliente, uPedidosClienteViewRegister;
function GetModule : TModuleController;
@ -67,8 +67,25 @@ end;
procedure TPluginPedidosCliente.VerPedidos(const ID_Cliente: Integer;
const ANombreCliente: String);
var
APedidosClienteController : IPedidosClienteController;
APedidosCliente : IBizPedidoCliente;
AText : String;
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;
initialization

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

@ -160,77 +160,147 @@ object srvPedidosCliente: TsrvPedidosCliente
end>
end
item
Params = <
item
Name = 'ID_PEDIDO'
Value = ''
ParamType = daptInput
end>
Params = <>
Statements = <
item
Connection = 'IBX'
SQL =
'SELECT '#10' ID_PEDIDO, ID_ARTICULO, CANT_PEDIDA_CLIENTE, ID_PROV' +
'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
TargetTable = 'V_ARTICULOS_PENDIENTES'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'CANT_PEDIDA_CLIENTE'
TableField = 'CANT_PEDIDA_CLIENTE'
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'CANT_PEDIDA_PROVEEDOR'
TableField = 'CANT_PEDIDA_PROVEEDOR'
DatasetField = 'COLOR1'
TableField = 'COLOR1'
end
item
DatasetField = 'CANT_PENDIENTE_PEDIR'
TableField = 'CANT_PENDIENTE_PEDIR'
DatasetField = 'COLOR2'
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>
Name = 'PedidoCliente_ArticulosPendientesPedirAProv'
Name = 'ArticulosPendientes'
Fields = <
item
Name = 'ID_PEDIDO'
DataType = datAutoInc
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_PEDIDO'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_ARTICULO'
InPrimaryKey = True
end
item
Name = 'CANT_PEDIDA_CLIENTE'
DataType = datFloat
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE'
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_PROVEEDOR'
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'CANT_PEDIDA_PROVEEDOR'
DataType = datFloat
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR'
Name = 'COLOR1'
DataType = datLargeInt
end
item
Name = 'CANT_PENDIENTE_PEDIR'
DataType = datFloat
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR'
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>
end
item

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

@ -69,7 +69,23 @@ requires
teeUI,
tee,
fsTee11,
frxTee11;
frxTee11,
SpTBXLib_d11,
TntUnicodeVcl,
tb2k_d11,
cxGridD11,
cxExportD11,
dxPScxPCProdD11,
dxPSCoreD11,
dxPsPrVwAdvD11,
dxBarExtItemsD11,
dxBarD11,
dxPScxExtCommonD11,
dxPScxCommonD11,
dxPSLnksD11,
vclshlctrls,
dxPScxGrid6LnkD11,
JvPageCompsD11R;
contains
uPedidosClienteViewRegister in 'uPedidosClienteViewRegister.pas',
@ -84,6 +100,8 @@ contains
uViewDireccionEntregaPedidoCliente in 'uViewDireccionEntregaPedidoCliente.pas' {frViewDireccionEntregaPedidoCliente: TFrame},
uEditorPedidosClienteReport in 'uEditorPedidosClienteReport.pas' {fEditorPedidosClientePreview: TfEditorPedidosClientePreview},
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.

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

@ -43,7 +43,6 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<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>
<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>
</ProjectExtensions>
@ -52,51 +51,71 @@
<DelphiCompile Include="PedidosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxTee11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fsTee11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PedCli_AlbCli_relation.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tee.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\teeUI.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclimg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="..\Controller\View\adortl.dcp" />
<DCCReference Include="..\Controller\View\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\Controller\View\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\Controller\View\Articulos_view.dcp" />
<DCCReference Include="..\Controller\View\cxDataD11.dcp" />
<DCCReference Include="..\Controller\View\cxEditorsD11.dcp" />
<DCCReference Include="..\Controller\View\cxExportD11.dcp" />
<DCCReference Include="..\Controller\View\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Controller\View\cxGridD11.dcp" />
<DCCReference Include="..\Controller\View\cxLibraryD11.dcp" />
<DCCReference Include="..\Controller\View\cxPageControlD11.dcp" />
<DCCReference Include="..\Controller\View\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Controller\View\dbrtl.dcp" />
<DCCReference Include="..\Controller\View\designide.dcp" />
<DCCReference Include="..\Controller\View\dsnap.dcp" />
<DCCReference Include="..\Controller\View\dxBarD11.dcp" />
<DCCReference Include="..\Controller\View\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Controller\View\dxComnD11.dcp" />
<DCCReference Include="..\Controller\View\dxCoreD11.dcp" />
<DCCReference Include="..\Controller\View\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Controller\View\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Controller\View\dxPSCoreD11.dcp" />
<DCCReference Include="..\Controller\View\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Controller\View\dxPScxExtCommonD11.dcp" />
<DCCReference Include="..\Controller\View\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Controller\View\dxPScxPCProdD11.dcp" />
<DCCReference Include="..\Controller\View\dxPSLnksD11.dcp" />
<DCCReference Include="..\Controller\View\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Controller\View\dxThemeD11.dcp" />
<DCCReference Include="..\Controller\View\FacturasCliente_controller.dcp" />
<DCCReference Include="..\Controller\View\FacturasCliente_model.dcp" />
<DCCReference Include="..\Controller\View\frxTee11.dcp" />
<DCCReference Include="..\Controller\View\fsTee11.dcp" />
<DCCReference Include="..\Controller\View\GUISDK_D11R.dcp" />
<DCCReference Include="..\Controller\View\Jcl.dcp" />
<DCCReference Include="..\Controller\View\JclVcl.dcp" />
<DCCReference Include="..\Controller\View\JvCoreD11R.dcp" />
<DCCReference Include="..\Controller\View\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Controller\View\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Controller\View\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Controller\View\JvSystemD11R.dcp" />
<DCCReference Include="..\Controller\View\PedCli_AlbCli_relation.dcp" />
<DCCReference Include="..\Controller\View\PedidosCliente_controller.dcp" />
<DCCReference Include="..\Controller\View\PedidosCliente_model.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">
<Form>fEditorElegirArticulosPedidoCliente</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
@ -118,6 +137,10 @@
<DesignClass>TfEditorPedidosClientePreview</DesignClass>
</DCCReference>
<DCCReference Include="uPedidosClienteViewRegister.pas" />
<DCCReference Include="uViewArticulosPendientes.pas">
<Form>frViewArticulosPendientes</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDatosYSeleccionClientePedido.pas">
<Form>frViewDatosYSeleccionClientePedido</Form>
<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\uEditorElegirArticulosPedidoCliente.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:\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
Caption = 'Lista de pedidos de cliente'
ClientWidth = 674
ExplicitWidth = 682
ClientWidth = 767
ExplicitWidth = 775
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 674
Width = 767
Caption = 'Lista de pedidos de cliente'
ExplicitWidth = 674
ExplicitWidth = 767
inherited Image1: TImage
Left = 647
Left = 740
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -121,26 +122,30 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
end
end
inherited TBXDock: TSpTBXDock
Width = 674
ExplicitWidth = 674
Width = 767
ExplicitWidth = 767
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 632
end
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 674
ExplicitWidth = 767
end
inherited TBXTMain2: TSpTBXToolbar
Visible = True
ExplicitWidth = 167
ExplicitWidth = 309
object SpTBXItem1: TSpTBXItem
Action = actGenerarAlbaranCli
DisplayMode = nbdmImageAndText
end
object SpTBXItem2: TSpTBXItem
Action = actVerArticulosPendientes
DisplayMode = nbdmImageAndText
end
end
end
inherited StatusBar: TJvStatusBar
Width = 674
ExplicitWidth = 674
Width = 767
ExplicitWidth = 767
end
inherited EditorActionList: TActionList
inherited actNuevo: TAction
@ -171,11 +176,11 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
OnExecute = actGenerarFacturaExecute
OnUpdate = actGenerarFacturaUpdate
end
object actGenerarPedidoProv: TAction
object actVerArticulosPendientes: TAction
Category = 'Acciones'
Caption = 'Generar pedido a proveedor'
Caption = 'Ver art'#237'culos pendientes'
ImageIndex = 25
OnExecute = actGenerarPedidoProvExecute
OnExecute = actVerArticulosPendientesExecute
end
object actGenerar: TAction
Category = 'Acciones'

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

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

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

@ -9,10 +9,11 @@ implementation
uses
uEditorRegistryUtils, uEditorPedidosCliente, uEditorPedidoCliente, uEditorElegirPedidosCliente,
uEditorElegirArticulosPedidoCliente, uEditorPedidosClienteReport; // uDialogListaPedidosCliEnvioEMail;
uEditorElegirArticulosPedidoCliente, uEditorPedidosClienteReport, uEditorArticulosPendientes; // uDialogListaPedidosCliEnvioEMail;
procedure RegisterViews;
begin
EditorRegistry.RegisterClass(TfEditorArticulosPendientes, 'EditorArticulosPendientes');
EditorRegistry.RegisterClass(TfEditorPedidosCliente, 'EditorPedidosCliente');
EditorRegistry.RegisterClass(TfEditorPedidoCliente, 'EditorPedidoCliente');
EditorRegistry.RegisterClass(TfEditorElegirPedidosCliente, 'EditorElegirPedidosCliente');
@ -23,6 +24,7 @@ end;
procedure UnregisterViews;
begin
EditorRegistry.UnRegisterClass(TfEditorArticulosPendientes);
EditorRegistry.UnRegisterClass(TfEditorPedidosCliente);
EditorRegistry.UnRegisterClass(TfEditorPedidoCliente);
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
else
begin
// Añado el título
AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_TITULO);
with AFacturaActual.Detalles do
begin
Edit;
CONCEPTO := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN);
Post;
end;
//No quieren titulo // Añado el título
// AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_TITULO);
// with AFacturaActual.Detalles do
// begin
// Edit;
// CONCEPTO := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN);
// Post;
// end;
// Añado el contenido del albarán
CopiarArticulosAlbaran(AListaAlbaranes.Detalles, AFacturaActual.Detalles);
@ -427,7 +427,7 @@ begin
with AFacturaActual.Detalles do
begin
Edit;
CONCEPTO := 'Total del albarán ' + AListaAlbaranes.REFERENCIA;
CONCEPTO := 'Total del albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN);
Post;
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},
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_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',
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 ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -17,7 +17,7 @@ BEGIN
VALUE "InternalName", "FactuGES Servidor\0"
VALUE "ProductName", "FactuGES Servidor\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
BLOCK "VarFileInfo"