Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Segunda subida de pedidos de proveedor

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@607 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2014-12-12 14:40:38 +00:00
parent 4dd3f65b3c
commit 306d4bf295
48 changed files with 1520 additions and 1808 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Database/scripts/factuges.sql
View File

@ -1312,7 +1312,8 @@ CREATE TABLE PEDIDOS_PROVEEDOR (
IMPORTE_TOTAL TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE,
ID_FORMA_PAGO TIPO_ID, ID_FORMA_PAGO TIPO_ID,
FECHA_ENVIO DATE, FECHA_ENVIO DATE,
ID_TIENDA TIPO_ID ID_TIENDA TIPO_ID,
DESCRIPCION_GENERAL VARCHAR(255) COLLATE ES_ES
); );
@ -3771,7 +3772,8 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR(
IMPORTE_IVA, IMPORTE_IVA,
ID_FORMA_PAGO, ID_FORMA_PAGO,
ID_TIENDA, ID_TIENDA,
TIENDA) TIENDA,
DESCRIPCION_GENERAL)
AS AS
SELECT SELECT
PEDIDOS_PROVEEDOR.ID, PEDIDOS_PROVEEDOR.ID,
@ -3779,7 +3781,10 @@ SELECT
PEDIDOS_PROVEEDOR.ID_PROVEEDOR, PEDIDOS_PROVEEDOR.ID_PROVEEDOR,
CONTACTOS.NOMBRE, CONTACTOS.NOMBRE,
PEDIDOS_PROVEEDOR.REFERENCIA, PEDIDOS_PROVEEDOR.REFERENCIA,
TRIM(V_PED_PROV_SITUACION.SITUACION), TRIM(case when (PEDIDOS_PROVEEDOR.FECHA_ENTREGA is null) then 'PENDIENTE'
when (PEDIDOS_PROVEEDOR.FECHA_ENTREGA is not null) then 'RECIBIDO'
else 'N/A'
end) as SITUACION,
PEDIDOS_PROVEEDOR.FECHA_ENVIO, PEDIDOS_PROVEEDOR.FECHA_ENVIO,
PEDIDOS_PROVEEDOR.FECHA_PEDIDO, PEDIDOS_PROVEEDOR.FECHA_PEDIDO,
PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION, PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION,
@ -3810,7 +3815,8 @@ SELECT
PEDIDOS_PROVEEDOR.IMPORTE_IVA, PEDIDOS_PROVEEDOR.IMPORTE_IVA,
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO, PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
PEDIDOS_PROVEEDOR.ID_TIENDA, PEDIDOS_PROVEEDOR.ID_TIENDA,
COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA,
PEDIDOS_PROVEEDOR.DESCRIPCION_GENERAL
FROM FROM
PEDIDOS_PROVEEDOR PEDIDOS_PROVEEDOR
INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_PROVEEDOR) INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)

124
Source/Base/Base.dproj
View File

@ -44,6 +44,34 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</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><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</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><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -58,55 +86,55 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Albaranes de proveedor\adortl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\designide.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dsnap.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Jcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclx.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servidor\adortl.dcp" />
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxGridD11.dcp" />
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Servidor\dclIndyCore.dcp" />
<DCCReference Include="..\Servidor\designide.dcp" />
<DCCReference Include="..\Servidor\dsnap.dcp" />
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\Servidor\IndyCore.dcp" />
<DCCReference Include="..\Servidor\IndyProtocols.dcp" />
<DCCReference Include="..\Servidor\IndySystem.dcp" />
<DCCReference Include="..\Servidor\Jcl.dcp" />
<DCCReference Include="..\Servidor\JclVcl.dcp" />
<DCCReference Include="..\Servidor\JSDialog100.dcp" />
<DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
<DCCReference Include="..\Servidor\JvNetD11R.dcp" />
<DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
<DCCReference Include="..\Servidor\pckMD5.dcp" />
<DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Servidor\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Servidor\TB2k_D10.dcp" />
<DCCReference Include="..\Servidor\tbx_d10.dcp" />
<DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Servidor\VclSmp.dcp" />
<DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\ccpackD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxDataD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxEditorsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxExportD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxLayoutControlD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPScxCommonD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\frx11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\frxe11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\fs11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvAppFrmD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvCtrlsD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvGlobusD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\PngComponentsD10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\PNG_D10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\tb2k_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\tbx_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclactnband.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcljpg.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

2
Source/Modulos/Albaranes de proveedor/Plugin/uPluginAlbaranesProveedor.dfm
View File

@ -254,7 +254,9 @@ object PluginAlbaranesProveedor: TPluginAlbaranesProveedor
object actAlbaranesProveedor: TAction object actAlbaranesProveedor: TAction
Category = 'Compras' Category = 'Compras'
Caption = 'Albaranes de proveedor' Caption = 'Albaranes de proveedor'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actAlbaranesProveedorExecute OnExecute = actAlbaranesProveedorExecute
end end
object actDevolucionesProveedor: TAction object actDevolucionesProveedor: TAction

3
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -146,7 +146,7 @@ uses
uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente, schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente,
uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente, uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente,
schContactosClient_Intf, uContratosClienteReportController, schContactosClient_Intf, uContratosClienteReportController, FactuGES_Intf,
uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils, uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils,
uIEditorContratosClienteBeneficios, uPresupuestosClienteController, uIEditorContratosClienteBeneficios, uPresupuestosClienteController,
uConfiguracionController, uBizDetallesPresupuestoCliente; uConfiguracionController, uBizDetallesPresupuestoCliente;
@ -300,6 +300,7 @@ begin
//GESTION_DOCUMENTOS //GESTION_DOCUMENTOS
FGestorDocumentosController := TGestorDocumentosController.Create; FGestorDocumentosController := TGestorDocumentosController.Create;
FGestorDocumentosController.Almacen := TRdxAlmacenes_Presupuestos;
FDetallesController.addObservador(Self); FDetallesController.addObservador(Self);
end; end;

66
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -174,7 +174,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 866 Width = 866
Height = 308 Height = 308
ActivePage = pagCalidades ActivePage = pagDocumentos
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 866 ExplicitWidth = 866
@ -235,57 +235,57 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 90 ExplicitWidth = 90
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 619 Left = 603
Top = 0 Top = 0
ExplicitLeft = 619 ExplicitLeft = 603
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 636 Left = 620
Top = 0 Top = 0
ExplicitLeft = 636 ExplicitLeft = 620
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 644 Left = 628
Top = 0 Top = 0
ExplicitLeft = 644 ExplicitLeft = 628
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 678 Left = 662
Top = 0 Top = 0
ExplicitLeft = 678 ExplicitLeft = 662
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 712 Left = 696
Top = 0 Top = 0
ExplicitLeft = 712 ExplicitLeft = 696
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 746 Left = 730
Top = 0 Top = 0
ExplicitLeft = 746 ExplicitLeft = 730
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 754 Left = 738
Top = 0 Top = 0
ExplicitLeft = 754 ExplicitLeft = 738
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 788 Left = 772
Top = 0 Top = 0
ExplicitLeft = 788 ExplicitLeft = 772
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 822 Left = 806
Top = 0 Top = 0
ExplicitLeft = 822 ExplicitLeft = 806
ExplicitTop = 0 ExplicitTop = 0
end end
end end
@ -303,7 +303,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 858 ExplicitWidth = 858
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 663 ExplicitWidth = 665
end end
end end
inherited cxLookupComboBox1: TcxLookupComboBox inherited cxLookupComboBox1: TcxLookupComboBox
@ -513,34 +513,26 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 872 ExplicitWidth = 872
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 429 Left = 429
Height = 122 Height = 152
ExplicitLeft = 429 ExplicitLeft = 429
ExplicitHeight = 122 ExplicitHeight = 152
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 541 Left = 541
Width = 210
ExplicitLeft = 541 ExplicitLeft = 541
ExplicitWidth = 210
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 93
Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 612 Left = 612
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 612 ExplicitLeft = 612
ExplicitWidth = 137
Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 542 Left = 542
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 542 ExplicitLeft = 542
ExplicitWidth = 137
Width = 137
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -554,8 +546,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 541 Left = 541
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 541 ExplicitLeft = 541
ExplicitWidth = 92
Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 541 Left = 541
@ -566,34 +556,22 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 612 Left = 612
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 612 ExplicitLeft = 612
ExplicitWidth = 56
Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
Style.Color = clInfoBk Style.Color = clInfoBk
ExplicitWidth = 81
Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 281 Left = 281
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 281 ExplicitLeft = 281
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 219
Width = 219
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup

BIN
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dpk
View File

Binary file not shown.

7
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dproj
View File

@ -49,9 +49,10 @@
<DelphiCompile Include="GestorDocumentos_controller.dpk"> <DelphiCompile Include="GestorDocumentos_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Presupuestos de cliente\Views\GestorDocumentos_data.dcp" /> <DCCReference Include="..\..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" /> <DCCReference Include="..\..\..\Lib\GestorDocumentos_data.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" /> <DCCReference Include="..\..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\..\Lib\rtl.dcp" />
<DCCReference Include="uGestorDocumentosController.pas" /> <DCCReference Include="uGestorDocumentosController.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>

37
Source/Modulos/Gestion de documentos/Controller/uGestorDocumentosController.pas
View File

@ -3,7 +3,7 @@ unit uGestorDocumentosController;
interface interface
uses uses
Classes, uROTypes, uControllerBase, uDataModuleGestorDocumentos; Classes, uROTypes, FactuGES_Intf, uControllerBase, uDataModuleGestorDocumentos;
type type
IGestorDocumentosController = interface(IControllerBase) IGestorDocumentosController = interface(IControllerBase)
@ -12,21 +12,31 @@ type
function DescargarFichero(const ID:Integer; const NombreFichero: String; const DestinoFichero: String): Boolean; function DescargarFichero(const ID:Integer; const NombreFichero: String; const DestinoFichero: String): Boolean;
function SubirFichero(const ID:Integer; const NombreFichero: String; const Fichero: Binary): Boolean; function SubirFichero(const ID:Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
procedure SincronizarDocumentos(const ID: Integer; FListaDocumentos: TStringList; Directorio: String); procedure SincronizarDocumentos(const ID: Integer; FListaDocumentos: TStringList; Directorio: String);
function EliminarDirectorio(const ID: Integer): Boolean; function EliminarDirectorio(const ID: Integer): Boolean;
function GetAlmacen: TRdxAlmacenes;
procedure SetAlmacen(const Value: TRdxAlmacenes);
property Almacen: TRdxAlmacenes read GetAlmacen write SetAlmacen;
end; end;
TGestorDocumentosController = class(TControllerBase, IGestorDocumentosController) TGestorDocumentosController = class(TControllerBase, IGestorDocumentosController)
protected protected
FDataModule : IDataModuleGestorDocumentos; FDataModule : IDataModuleGestorDocumentos;
FAlmacen : TRdxAlmacenes;
//Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de //Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de
//este controller //este controller
procedure AsignarDataModule; virtual; procedure AsignarDataModule; virtual;
procedure SetAlmacen(const Value: TRdxAlmacenes);
function GetAlmacen: TRdxAlmacenes;
public public
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
property Almacen: TRdxAlmacenes read GetAlmacen write SetAlmacen;
function DarListaDocumentos(const ID: Integer): TStringList; function DarListaDocumentos(const ID: Integer): TStringList;
function DescargarFichero(const ID:Integer; const NombreFichero: String; const DestinoFichero: String): Boolean; function DescargarFichero(const ID:Integer; const NombreFichero: String; const DestinoFichero: String): Boolean;
function SubirFichero(const ID:Integer; const NombreFichero: String; const Fichero: Binary): Boolean; function SubirFichero(const ID:Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
@ -48,18 +58,19 @@ constructor TGestorDocumentosController.Create;
begin begin
inherited; inherited;
AsignarDataModule; AsignarDataModule;
FAlmacen := TRdxAlmacenes_Presupuestos;
end; end;
function TGestorDocumentosController.DarListaDocumentos( function TGestorDocumentosController.DarListaDocumentos(
const ID: Integer): TStringList; const ID: Integer): TStringList;
begin begin
Result := FDataModule.DarListaDocumentos(ID); Result := FDataModule.DarListaDocumentos(ID, Almacen);
end; end;
function TGestorDocumentosController.DescargarFichero(const ID: Integer; function TGestorDocumentosController.DescargarFichero(const ID: Integer;
const NombreFichero, DestinoFichero: String): Boolean; const NombreFichero, DestinoFichero: String): Boolean;
begin begin
Result := FDataModule.DescargarFichero(ID, NombreFichero, DestinoFichero); Result := FDataModule.DescargarFichero(ID, Almacen, NombreFichero, DestinoFichero);
end; end;
destructor TGestorDocumentosController.Destroy; destructor TGestorDocumentosController.Destroy;
@ -70,7 +81,17 @@ end;
function TGestorDocumentosController.EliminarDirectorio(const ID: Integer): Boolean; function TGestorDocumentosController.EliminarDirectorio(const ID: Integer): Boolean;
begin begin
Result := FDataModule.EliminarID(ID); Result := FDataModule.EliminarID(ID, Almacen);
end;
function TGestorDocumentosController.GetAlmacen: TRdxAlmacenes;
begin
Result := FAlmacen;
end;
procedure TGestorDocumentosController.SetAlmacen(const Value: TRdxAlmacenes);
begin
FAlmacen := Value;
end; end;
procedure TGestorDocumentosController.SincronizarDocumentos(const ID: Integer; procedure TGestorDocumentosController.SincronizarDocumentos(const ID: Integer;
@ -85,7 +106,7 @@ begin
ListaDocumentosServidor := DarListaDocumentos(ID); ListaDocumentosServidor := DarListaDocumentos(ID);
for i:= 0 to ListaDocumentosServidor.Count - 1 do for i:= 0 to ListaDocumentosServidor.Count - 1 do
if not FListaDocumentos.Find(ListaDocumentosServidor.Strings[i], j) then if not FListaDocumentos.Find(ListaDocumentosServidor.Strings[i], j) then
if not FDataModule.EliminarFichero(ID, ListaDocumentosServidor.Strings[i]) then if not FDataModule.EliminarFichero(ID, Almacen, ListaDocumentosServidor.Strings[i]) then
showmessage('Error al borrar fichero' + ListaDocumentosServidor.Strings[i]); showmessage('Error al borrar fichero' + ListaDocumentosServidor.Strings[i]);
//Subimos todos los ficheros que halla al servidor (de momento no se miran fechas) //Subimos todos los ficheros que halla al servidor (de momento no se miran fechas)
@ -101,10 +122,10 @@ begin
end; end;
end; end;
function TGestorDocumentosController.SubirFichero(const ID: Integer; function TGestorDocumentosController.SubirFichero(const ID: Integer;
const NombreFichero: String; const Fichero: Binary): Boolean; const NombreFichero: String; const Fichero: Binary): Boolean;
begin begin
Result := FDataModule.SubirFichero(ID, NombreFichero, Fichero); Result := FDataModule.SubirFichero(ID, Almacen, NombreFichero, Fichero);
end; end;
end. end.

44
Source/Modulos/Gestion de documentos/Data/uDataModuleGestorDocumentos.pas
View File

@ -4,16 +4,16 @@ interface
uses uses
DB, uDataModuleBase, uROClient, uRORemoteService, Classes, uDADataStreamer, DB, uDataModuleBase, uROClient, uRORemoteService, Classes, uDADataStreamer,
uDABin2DataStreamer, uROTypes, uDADataTable; uDABin2DataStreamer, uROTypes, uDADataTable, FactuGES_Intf;
type type
IDataModuleGestorDocumentos = interface IDataModuleGestorDocumentos = interface
['{03537996-181D-428C-9B1D-56B499F0048E}'] ['{03537996-181D-428C-9B1D-56B499F0048E}']
function DarListaDocumentos(const ID : Integer): TStringList; function DarListaDocumentos(const ID : Integer; const Almacen: TRdxAlmacenes): TStringList;
function DescargarFichero(const ID : Integer; const NombreFichero: String; const DestinoFichero: String): Boolean; function DescargarFichero(const ID : Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String; const DestinoFichero: String): Boolean;
function SubirFichero(const ID : Integer; const NombreFichero: String; const Fichero: Binary): Boolean; function SubirFichero(const ID : Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String; const Fichero: Binary): Boolean;
function EliminarFichero(const ID : Integer; const NombreFichero: String): Boolean; function EliminarFichero(const ID : Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String): Boolean;
function EliminarID(const ID : Integer): Boolean; function EliminarID(const ID : Integer; const Almacen: TRdxAlmacenes): Boolean;
end; end;
TDataModuleGestorDocumentos = class(TDataModuleBase, IDataModuleGestorDocumentos) TDataModuleGestorDocumentos = class(TDataModuleBase, IDataModuleGestorDocumentos)
@ -25,18 +25,18 @@ type
procedure AsignarClaseNegocio(APresupuesto: TDADataTable); virtual; procedure AsignarClaseNegocio(APresupuesto: TDADataTable); virtual;
public public
function DarListaDocumentos(const ID : Integer): TStringList; function DarListaDocumentos(const ID : Integer; const Almacen: TRdxAlmacenes): TStringList;
function DescargarFichero(const ID : Integer; const NombreFichero: String; const DestinoFichero: String): Boolean; function DescargarFichero(const ID : Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String; const DestinoFichero: String): Boolean;
function SubirFichero(const ID : Integer; const NombreFichero: String; const Fichero: Binary): Boolean; function SubirFichero(const ID : Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String; const Fichero: Binary): Boolean;
function EliminarFichero(const ID : Integer; const NombreFichero: String): Boolean; function EliminarFichero(const ID : Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String): Boolean;
function EliminarID(const ID : Integer): Boolean; function EliminarID(const ID : Integer; const Almacen: TRdxAlmacenes): Boolean;
end; end;
implementation implementation
{$R *.DFM} {$R *.DFM}
uses uses
SysUtils, FactuGES_Intf, uDataModuleConexion, DataAbstract4_Intf; SysUtils, uDataModuleConexion, DataAbstract4_Intf;
{ TdmGestorDocumentos } { TdmGestorDocumentos }
@ -51,13 +51,13 @@ begin
RORemoteService.Message := dmConexion.Message; RORemoteService.Message := dmConexion.Message;
end; end;
function TDataModuleGestorDocumentos.DarListaDocumentos(const ID: Integer): TStringList; function TDataModuleGestorDocumentos.DarListaDocumentos(const ID: Integer; const Almacen: TRdxAlmacenes): TStringList;
var var
AResultado : StringArray; AResultado : StringArray;
i: Integer; i: Integer;
begin begin
try try
AResultado := (RORemoteService as IsrvGestorDocumentos).DarListaFicheros(TRdxAlmacenes_Presupuestos, ID); AResultado := (RORemoteService as IsrvGestorDocumentos).DarListaFicheros(Almacen, ID);
Result := TStringList.Create; Result := TStringList.Create;
for i:= 0 to AResultado.Count - 1 do for i:= 0 to AResultado.Count - 1 do
Result.Add(AResultado.Items[i]); Result.Add(AResultado.Items[i]);
@ -66,7 +66,7 @@ begin
end; end;
end; end;
function TDataModuleGestorDocumentos.DescargarFichero(const ID: Integer; const NombreFichero: String; function TDataModuleGestorDocumentos.DescargarFichero(const ID: Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String;
const DestinoFichero: String): Boolean; const DestinoFichero: String): Boolean;
var var
AFichero: Binary; AFichero: Binary;
@ -74,7 +74,7 @@ var
begin begin
Result := False; Result := False;
try try
AFichero := (RORemoteService as IsrvGestorDocumentos).DescargarFichero(TRdxAlmacenes_Presupuestos, ID, NombreFichero); AFichero := (RORemoteService as IsrvGestorDocumentos).DescargarFichero(Almacen, ID, NombreFichero);
AFichero.SaveToFile((DestinoFichero + NombreFichero)); AFichero.SaveToFile((DestinoFichero + NombreFichero));
Result := True; Result := True;
finally finally
@ -82,31 +82,31 @@ begin
end; end;
end; end;
function TDataModuleGestorDocumentos.EliminarFichero(const ID: Integer; const NombreFichero: String): Boolean; function TDataModuleGestorDocumentos.EliminarFichero(const ID: Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String): Boolean;
begin begin
Result := False; Result := False;
try try
Result := (RORemoteService as IsrvGestorDocumentos).EliminarFichero(TRdxAlmacenes_Presupuestos, ID, NombreFichero); Result := (RORemoteService as IsrvGestorDocumentos).EliminarFichero(Almacen, ID, NombreFichero);
finally finally
// //
end; end;
end; end;
function TDataModuleGestorDocumentos.EliminarID(const ID: Integer): Boolean; function TDataModuleGestorDocumentos.EliminarID(const ID: Integer; const Almacen: TRdxAlmacenes): Boolean;
begin begin
Result := False; Result := False;
try try
Result := (RORemoteService as IsrvGestorDocumentos).EliminarID(TRdxAlmacenes_Presupuestos, ID); Result := (RORemoteService as IsrvGestorDocumentos).EliminarID(Almacen, ID);
finally finally
// //
end; end;
end; end;
function TDataModuleGestorDocumentos.SubirFichero(const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean; function TDataModuleGestorDocumentos.SubirFichero(const ID: Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String; const Fichero: Binary): Boolean;
begin begin
Result := False; Result := False;
try try
Result := (RORemoteService as IsrvGestorDocumentos).SubirFichero(TRdxAlmacenes_Presupuestos, ID, NombreFichero, Fichero); Result := (RORemoteService as IsrvGestorDocumentos).SubirFichero(Almacen, ID, NombreFichero, Fichero);
finally finally
// //
end; end;

44
Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas
View File

@ -44,6 +44,7 @@ const
CTE_VALOR = 'RUTA_DOCUMENTOS'; CTE_VALOR = 'RUTA_DOCUMENTOS';
CTE_DOCUMENTOS = 'DOCUMENTOS'; CTE_DOCUMENTOS = 'DOCUMENTOS';
CTE_ALMACEN_PRESUPUESTOS = '\Presupuestos\'; CTE_ALMACEN_PRESUPUESTOS = '\Presupuestos\';
CTE_ALMACEN_PEDIDOS_PROVEEDOR = '\PedidosProveedor\';
procedure Create_srvGestorDocumentos(out anInstance : IUnknown); procedure Create_srvGestorDocumentos(out anInstance : IUnknown);
@ -87,6 +88,14 @@ begin
for i := 0 to ListaFicheros.Count - 1 do for i := 0 to ListaFicheros.Count - 1 do
Result.Add(ExtractFileName(ListaFicheros.Strings[i])); Result.Add(ExtractFileName(ListaFicheros.Strings[i]));
end; end;
TRdxAlmacenes_PedidosProveedor:
begin
Ruta := Ruta + CTE_ALMACEN_PEDIDOS_PROVEEDOR + IntToStr(ID) + '\*.*';
ListaFicheros := FindFile(Ruta);
Result := StringArray.Create();
for i := 0 to ListaFicheros.Count - 1 do
Result.Add(ExtractFileName(ListaFicheros.Strings[i]));
end;
end; end;
finally finally
@ -126,6 +135,11 @@ begin
Ruta := Ruta + CTE_ALMACEN_PRESUPUESTOS + IntToStr(ID) + '\' + NombreFichero; Ruta := Ruta + CTE_ALMACEN_PRESUPUESTOS + IntToStr(ID) + '\' + NombreFichero;
Result.LoadFromFile(Ruta); Result.LoadFromFile(Ruta);
end; end;
TRdxAlmacenes_PedidosProveedor:
begin
Ruta := Ruta + CTE_ALMACEN_PEDIDOS_PROVEEDOR + IntToStr(ID) + '\' + NombreFichero;
Result.LoadFromFile(Ruta);
end;
end; end;
finally finally
// //
@ -151,6 +165,14 @@ begin
else else
Result := True; //Ya ha sido borrado Result := True; //Ya ha sido borrado
end; end;
TRdxAlmacenes_PedidosProveedor:
begin
Ruta := Ruta + CTE_ALMACEN_PEDIDOS_PROVEEDOR + IntToStr(ID) + '\' + NombreFichero;
if FileExists(Ruta) then
Result := SysUtils.DeleteFile(Ruta)
else
Result := True; //Ya ha sido borrado
end;
end; end;
finally finally
// //
@ -174,6 +196,13 @@ begin
Deltree(Ruta, True); Deltree(Ruta, True);
Result := True; Result := True;
end; end;
TRdxAlmacenes_PedidosProveedor:
begin
Ruta := Ruta + CTE_ALMACEN_PEDIDOS_PROVEEDOR + IntToStr(ID);
if DirectoryExists(Ruta) then
Deltree(Ruta, True);
Result := True;
end;
end; end;
finally finally
// //
@ -207,6 +236,21 @@ begin
Fichero.SaveToFile(Ruta); Fichero.SaveToFile(Ruta);
Result := True; Result := True;
end; end;
TRdxAlmacenes_PedidosProveedor:
begin
Ruta := Ruta + CTE_ALMACEN_PEDIDOS_PROVEEDOR;
if not DirectoryExists(Ruta) then
CreateDir(Ruta);
Ruta := Ruta + IntToStr(ID);
if not DirectoryExists(Ruta) then
CreateDir(Ruta);
Ruta := Ruta + '\' + NombreFichero;
Fichero.SaveToFile(Ruta);
Result := True;
end;
end; end;
finally finally
// //

BIN
Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dpk
View File

Binary file not shown.

14
Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid> <ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid>
<MainSource>PedidosProveedor_controller.dpk</MainSource> <MainSource>PedidosProveedor_controller.dpk</MainSource>
@ -41,17 +42,18 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</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><Source><Source Name="MainSource">PedidosProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">PedidosProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="PedidosProveedor_controller.dpk"> <DelphiCompile Include="PedidosProveedor_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Articulos_controller.dcp" /> <DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\PedidosProveedor_data.dcp" /> <DCCReference Include="..\..\Lib\GestorDocumentos_controller.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_data.dcp" />
<DCCReference Include="uArticulosPedidoProveedorController.pas" /> <DCCReference Include="uArticulosPedidoProveedorController.pas" />
<DCCReference Include="uDetallesPedidoProveedorController.pas" /> <DCCReference Include="uDetallesPedidoProveedorController.pas" />
<DCCReference Include="uPedidosProveedorController.pas" /> <DCCReference Include="uPedidosProveedorController.pas" />

6
Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas
View File

@ -11,7 +11,7 @@ type
['{942428EC-BCB8-4C56-BFA6-EB9F05D5E0DB}'] ['{942428EC-BCB8-4C56-BFA6-EB9F05D5E0DB}']
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True); overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend; // function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend;
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
end; end;
@ -34,7 +34,7 @@ type
public public
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True); overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend; // function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend;
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
end; end;
@ -89,10 +89,12 @@ begin
end; end;
end; end;
{
function TDetallesPedidoProveedorController.ArticulosPendientes(const ID: Integer): IBizDetallesPedidoProveedorPend; function TDetallesPedidoProveedorController.ArticulosPendientes(const ID: Integer): IBizDetallesPedidoProveedorPend;
begin begin
Result := FDataModule.GetArticulosPendientes(ID); Result := FDataModule.GetArticulosPendientes(ID);
end; end;
}
procedure TDetallesPedidoProveedorController.AsignarController; procedure TDetallesPedidoProveedorController.AsignarController;
begin begin

53
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
SysUtils, uDADataTable, SysUtils, uDADataTable,
uControllerBase, uIDataModulePedidosProveedor, uProveedoresController, uControllerBase, uIDataModulePedidosProveedor, uProveedoresController,
uDetallesPedidoProveedorController, uBizPedidosProveedor; uDetallesPedidoProveedorController, uBizPedidosProveedor, uGestorDocumentosController;
type type
IPedidosProveedorController = interface(IControllerBase) IPedidosProveedorController = interface(IControllerBase)
@ -19,6 +19,11 @@ type
procedure SetDetallesController(const Value: IDetallesPedidoProveedorController); procedure SetDetallesController(const Value: IDetallesPedidoProveedorController);
property DetallesController: IDetallesPedidoProveedorController read GetDetallesController write SetDetallesController; property DetallesController: IDetallesPedidoProveedorController read GetDetallesController write SetDetallesController;
//GESTION_DOCUMENTOS
function GetGestorDocumentosController: IGestorDocumentosController;
procedure SetGestorDocumentosController(const Value: IGestorDocumentosController);
property GestorDocumentosController: IGestorDocumentosController read GetGestorDocumentosController write SetGestorDocumentosController;
function Buscar(const ID: Integer): IBizPedidoProveedor; function Buscar(const ID: Integer): IBizPedidoProveedor;
function BuscarTodos: IBizPedidoProveedor; function BuscarTodos: IBizPedidoProveedor;
function BuscarPendientesRecepcion: IBizPedidoProveedor; function BuscarPendientesRecepcion: IBizPedidoProveedor;
@ -54,6 +59,11 @@ type
FDataModule : IDataModulePedidosProveedor; FDataModule : IDataModulePedidosProveedor;
FProveedorController : IProveedoresController; FProveedorController : IProveedoresController;
FDetallesController : IDetallesPedidoProveedorController; FDetallesController : IDetallesPedidoProveedorController;
FGestorDocumentosController : IGestorDocumentosController;
//GESTION_DOCUMENTOS
function GetGestorDocumentosController: IGestorDocumentosController;
procedure SetGestorDocumentosController(const Value: IGestorDocumentosController);
function GetProveedorController: IProveedoresController; function GetProveedorController: IProveedoresController;
procedure SetProveedorController(const Value: IProveedoresController); procedure SetProveedorController(const Value: IProveedoresController);
@ -76,6 +86,8 @@ type
public public
property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController; property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController;
property DetallesController: IDetallesPedidoProveedorController read GetDetallesController write SetDetallesController; property DetallesController: IDetallesPedidoProveedorController read GetDetallesController write SetDetallesController;
property GestorDocumentosController: IGestorDocumentosController read GetGestorDocumentosController write SetGestorDocumentosController;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
constructor Create; override; constructor Create; override;
@ -110,6 +122,8 @@ type
function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor; function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
end; end;
implementation implementation
uses uses
@ -118,7 +132,7 @@ uses
uBizDetallesPedidoProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios, uBizDetallesPedidoProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios,
schPedidosProveedorClient_Intf, uDAInterfaces, uPedidosProveedorReportController, schPedidosProveedorClient_Intf, uDAInterfaces, uPedidosProveedorReportController,
uDateUtils, uIEditorPedidoProveedor, uIEditorElegirPedidosProveedor, uDateUtils, uIEditorPedidoProveedor, uIEditorElegirPedidosProveedor,
Dialogs, uIEditorDireccionEntregaPedidoProveedor, Classes, Dialogs, uIEditorDireccionEntregaPedidoProveedor, Classes, FactuGES_Intf,
uIEditorSituacionPedidoProveedor, Variants; uIEditorSituacionPedidoProveedor, Variants;
{ TPedidosProveedorController } { TPedidosProveedorController }
@ -177,7 +191,10 @@ begin
FDetallesController := TDetallesPedidoProveedorController.Create; FDetallesController := TDetallesPedidoProveedorController.Create;
FDetallesController.addObservador(Self); FDetallesController.addObservador(Self);
// Self.addSujeto(FDetallesController);
//GESTION_DOCUMENTOS
FGestorDocumentosController := TGestorDocumentosController.Create;
FGestorDocumentosController.Almacen := TRdxAlmacenes_PedidosProveedor;
end; end;
function TPedidosProveedorController.CreateEditor(const AName: String; function TPedidosProveedorController.CreateEditor(const AName: String;
@ -257,11 +274,13 @@ end;
destructor TPedidosProveedorController.Destroy; destructor TPedidosProveedorController.Destroy;
begin begin
inherited;
FDataModule := Nil; FDataModule := Nil;
FProveedorController := Nil; FProveedorController := Nil;
FDetallesController := Nil; FDetallesController := Nil;
//GESTION_DOCUMENTOS
FGestorDocumentosController := Nil;
inherited;
end; end;
function TPedidosProveedorController.Duplicar( function TPedidosProveedorController.Duplicar(
@ -311,9 +330,10 @@ begin
if (APedido.Detalles.DataTable.State in dsEditModes) then if (APedido.Detalles.DataTable.State in dsEditModes) then
APedido.Detalles.DataTable.Post; APedido.Detalles.DataTable.Post;
if (APedido.ID_PROVEEDOR < 0) or if (APedido.ID_PROVEEDOR < 0) then
(not Assigned(APedido.Proveedor)) or // Si hay altas automáticas no hay objeto Proveedor pero sí hay ID_PROVEEDOR
(APedido.Proveedor.IsEmpty) then {(not Assigned(APedido.Proveedor)) or
(APedido.Proveedor.IsEmpty) then}
raise Exception.Create('Debe indicar el proveedor de esta pedido'); raise Exception.Create('Debe indicar el proveedor de esta pedido');
if (EsFechaVacia(APedido.FECHA_PEDIDO)) then if (EsFechaVacia(APedido.FECHA_PEDIDO)) then
@ -488,6 +508,9 @@ begin
//Siempre eliminaremos el seleccionado //Siempre eliminaremos el seleccionado
if EsEliminable(APedido) then if EsEliminable(APedido) then
begin begin
//GESTION_DOCUMENTOS
FGestorDocumentosController.EliminarDirectorio(APedido.ID);
APedido.Delete; APedido.Delete;
bEliminado := True; bEliminado := True;
end; end;
@ -502,6 +525,9 @@ begin
begin begin
if EsEliminable(APedido) then if EsEliminable(APedido) then
begin begin
//GESTION_DOCUMENTOS
FGestorDocumentosController.EliminarDirectorio(APedido.ID);
APedido.Delete; APedido.Delete;
bEliminado := True bEliminado := True
end end
@ -651,6 +677,11 @@ begin
FDetallesController := Value; FDetallesController := Value;
end; end;
procedure TPedidosProveedorController.SetGestorDocumentosController(const Value: IGestorDocumentosController);
begin
FGestorDocumentosController := Value;
end;
function TPedidosProveedorController.Guardar(APedido: IBizPedidoProveedor): Boolean; function TPedidosProveedorController.Guardar(APedido: IBizPedidoProveedor): Boolean;
var var
IDNuevo : Integer; IDNuevo : Integer;
@ -771,5 +802,9 @@ begin
Result := FDetallesController; Result := FDetallesController;
end; end;
function TPedidosProveedorController.GetGestorDocumentosController: IGestorDocumentosController;
begin
Result := FGestorDocumentosController;
end;
end. end.

BIN
Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.RES
View File

Binary file not shown.

4
Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj
View File

@ -48,8 +48,8 @@
<DelphiCompile Include="PedidosProveedor_data.dpk"> <DelphiCompile Include="PedidosProveedor_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="..\..\Albaranes de proveedor\Base.dcp" />
<DCCReference Include="..\PedidosProveedor_model.dcp" /> <DCCReference Include="..\..\Albaranes de proveedor\PedidosProveedor_model.dcp" />
<DCCReference Include="uDataModulePedidosProveedor.pas"> <DCCReference Include="uDataModulePedidosProveedor.pas">
<Form>DataModulePedidosProveedor</Form> <Form>DataModulePedidosProveedor</Form>
</DCCReference> </DCCReference>

145
Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
View File

@ -51,6 +51,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Nombre del proveedor' DisplayLabel = 'Nombre del proveedor'
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_NOMBRE' DictionaryEntry = 'PedidosProveedor_NOMBRE'
end end
item item
@ -62,195 +63,132 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 9
DisplayLabel = 'Situaci'#243'n'
DictionaryEntry = 'PedidosProveedor_SITUACION'
end end
item item
Name = 'FECHA_ENVIO' Name = 'FECHA_ENVIO'
DataType = datDateTime DataType = datDateTime
DisplayLabel = #191'Enviado?'
DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO'
end end
item item
Name = 'FECHA_PEDIDO' Name = 'FECHA_PEDIDO'
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'Fecha pedido'
DictionaryEntry = 'PedidosProveedor_FECHA_PEDIDO'
end end
item item
Name = 'FECHA_CONFIRMACION' Name = 'FECHA_CONFIRMACION'
DataType = datDateTime DataType = datDateTime
DisplayLabel = #191'Confirmado?'
DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION'
end end
item item
Name = 'FECHA_ENTREGA' Name = 'FECHA_ENTREGA'
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'Entrega prevista'
DictionaryEntry = 'PedidosProveedor_FECHA_ENTREGA'
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosProveedor_ID_ALMACEN'
DictionaryEntry = 'PedidosProveedor_ID_ALMACEN'
end end
item item
Name = 'NOMBRE_ALMACEN' Name = 'NOMBRE_ALMACEN'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Almac'#233'n'
DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN'
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo DataType = datMemo
DisplayLabel = 'Observaciones'
DictionaryEntry = 'PedidosProveedor_OBSERVACIONES'
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
DictionaryEntry = 'PedidosProveedor_IMPORTE_TOTAL'
end end
item item
Name = 'INCIDENCIAS' Name = 'INCIDENCIAS'
DataType = datMemo DataType = datMemo
DictionaryEntry = 'PedidosProveedor_INCIDENCIAS'
end end
item item
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
DataType = datInteger DataType = datSmallInt
DictionaryEntry = 'PedidosProveedor_INCIDENCIAS_ACTIVAS'
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Calle'
DictionaryEntry = 'PedidosProveedor_CALLE'
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'PedidosProveedor_POBLACION'
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Provincia'
DictionaryEntry = 'PedidosProveedor_PROVINCIA'
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
DisplayLabel = 'C'#243'd. postal'
DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL'
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'PedidosProveedor_PERSONA_CONTACTO'
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString DataType = datString
Size = 25 Size = 25
DisplayLabel = 'Tel'#233'fono'
DictionaryEntry = 'PedidosProveedor_TELEFONO'
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'PedidosProveedor_FECHA_ALTA'
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'PedidosProveedor_FECHA_MODIFICACION'
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 20 Size = 30
DictionaryEntry = 'PedidosProveedor_USUARIO'
end end
item item
Name = 'ID_PEDIDO_CLIENTE' Name = 'ID_PEDIDO_CLIENTE'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosProveedor_ID_PEDIDO_CLIENTE'
DictionaryEntry = 'PedidosProveedor_ID_PEDIDO_CLIENTE'
end end
item item
Name = 'REF_PED_CLIENTE' Name = 'REF_PED_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'PedidosProveedor_REF_PED_CLIENTE'
DictionaryEntry = 'PedidosProveedor_REF_PED_CLIENTE'
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Importe neto'
Alignment = taRightJustify
DictionaryEntry = 'PedidosProveedor_IMPORTE_NETO'
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Importe del porte'
Alignment = taRightJustify
DictionaryEntry = 'PedidosProveedor_IMPORTE_PORTE'
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datFloat
DisplayLabel = 'Descuento'
DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
DictionaryEntry = 'PedidosProveedor_DESCUENTO'
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Importe dto.'
Alignment = taRightJustify
DictionaryEntry = 'PedidosProveedor_IMPORTE_DESCUENTO'
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Base imponible'
Alignment = taRightJustify
DictionaryEntry = 'PedidosProveedor_BASE_IMPONIBLE'
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat DataType = datFloat
DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
DictionaryEntry = 'PedidosProveedor_IVA'
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Importe IVA'
Alignment = taRightJustify
DictionaryEntry = 'PedidosProveedor_IMPORTE_IVA'
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO'
end end
item item
Name = 'ID_TIENDA' Name = 'ID_TIENDA'
@ -260,6 +198,11 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'TIENDA' Name = 'TIENDA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'DESCRIPCION_GENERAL'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
@ -275,59 +218,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Left = 160 Left = 160
Top = 32 Top = 32
end end
object tbl_PedidosProveedor_Articulos_Pendientes: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_PEDIDO'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
DictionaryEntry = 'PedidosProveedor_Detalles_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datFloat
Alignment = taRightJustify
DictionaryEntry = 'CANTIDAD'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Ref. proveedor'
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosProveedor
LogicalName = 'PedidosProveedor_Articulos_Pendientes'
IndexDefs = <>
Left = 480
Top = 88
end
object ds_PedidosProveedor_Articulos_Pendientes: TDADataSource
DataSet = tbl_PedidosProveedor_Articulos_Pendientes.Dataset
DataTable = tbl_PedidosProveedor_Articulos_Pendientes
Left = 472
Top = 32
end
object tbl_PedidosProveedor_Detalles: TDAMemDataTable object tbl_PedidosProveedor_Detalles: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
@ -335,9 +225,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID' GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
Required = True
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_Detalles_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
@ -347,7 +235,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'POSICIONCONCEPTO'
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
@ -361,9 +248,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datFloat DataType = datCurrency
Alignment = taRightJustify
DictionaryEntry = 'CANTIDAD'
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
@ -388,16 +273,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency DataType = datCurrency
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere

6
Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas
View File

@ -20,8 +20,6 @@ type
rda_PedidosProveedor: TDARemoteDataAdapter; rda_PedidosProveedor: TDARemoteDataAdapter;
tbl_PedidosProveedor: TDAMemDataTable; tbl_PedidosProveedor: TDAMemDataTable;
ds_PedidosProveedor: TDADataSource; ds_PedidosProveedor: TDADataSource;
tbl_PedidosProveedor_Articulos_Pendientes: TDAMemDataTable;
ds_PedidosProveedor_Articulos_Pendientes: TDADataSource;
tbl_PedidosProveedor_Detalles: TDAMemDataTable; tbl_PedidosProveedor_Detalles: TDAMemDataTable;
ds_PedidosProveedor_Detalles: TDADataSource; ds_PedidosProveedor_Detalles: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
@ -36,7 +34,7 @@ type
function GetItems : IBizPedidoProveedor; virtual; function GetItems : IBizPedidoProveedor; virtual;
function GetItem(const ID : Integer) : IBizPedidoProveedor; function GetItem(const ID : Integer) : IBizPedidoProveedor;
function NewItem : IBizPedidoProveedor; function NewItem : IBizPedidoProveedor;
function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend; // function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
// Report // Report
function GetReport(const AID: String): Binary; function GetReport(const AID: String): Binary;
@ -91,6 +89,7 @@ begin
end; end;
end; end;
{
function TDataModulePedidosProveedor.GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend; function TDataModulePedidosProveedor.GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
var var
AArticulos : TDAMemDataTable; AArticulos : TDAMemDataTable;
@ -105,6 +104,7 @@ begin
HideHourglassCursor; HideHourglassCursor;
end; end;
end; end;
}
function TDataModulePedidosProveedor.GetItem(const ID: Integer): IBizPedidoProveedor; function TDataModulePedidosProveedor.GetItem(const ID: Integer): IBizPedidoProveedor;
var var

2
Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedor.pas
View File

@ -11,7 +11,7 @@ type
function GetItems: IBizPedidoProveedor; function GetItems: IBizPedidoProveedor;
function GetItem(const ID : Integer) : IBizPedidoProveedor; function GetItem(const ID : Integer) : IBizPedidoProveedor;
function NewItem : IBizPedidoProveedor; function NewItem : IBizPedidoProveedor;
function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend; // function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
end; end;
implementation implementation

411
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
View File

@ -3,20 +3,18 @@ unit schPedidosProveedorClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidosProveedor = '{E91640D3-98FE-4E09-A47E-DDB8DEF91010}'; RID_PedidosProveedor = '{7EF42C92-22B3-49CB-9631-6269AEBC7331}';
RID_PedidosProveedor_Detalles = '{8E5080FE-7C58-4F98-A7F4-9D7FCF9E21F9}'; RID_PedidosProveedor_Detalles = '{3B03134F-60AA-426F-BFF5-15D252E44C4C}';
RID_PedidosProveedor_Articulos_Pendientes = '{A37CB497-DB53-43F6-8A3B-8D511DA79A43}';
{ Data table names } { Data table names }
nme_PedidosProveedor = 'PedidosProveedor'; nme_PedidosProveedor = 'PedidosProveedor';
nme_PedidosProveedor_Detalles = 'PedidosProveedor_Detalles'; nme_PedidosProveedor_Detalles = 'PedidosProveedor_Detalles';
nme_PedidosProveedor_Articulos_Pendientes = 'PedidosProveedor_Articulos_Pendientes';
{ PedidosProveedor fields } { PedidosProveedor fields }
fld_PedidosProveedorID = 'ID'; fld_PedidosProveedorID = 'ID';
@ -56,6 +54,7 @@ const
fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_PedidosProveedorID_TIENDA = 'ID_TIENDA'; fld_PedidosProveedorID_TIENDA = 'ID_TIENDA';
fld_PedidosProveedorTIENDA = 'TIENDA'; fld_PedidosProveedorTIENDA = 'TIENDA';
fld_PedidosProveedorDESCRIPCION_GENERAL = 'DESCRIPCION_GENERAL';
{ PedidosProveedor field indexes } { PedidosProveedor field indexes }
idx_PedidosProveedorID = 0; idx_PedidosProveedorID = 0;
@ -95,6 +94,7 @@ const
idx_PedidosProveedorID_FORMA_PAGO = 34; idx_PedidosProveedorID_FORMA_PAGO = 34;
idx_PedidosProveedorID_TIENDA = 35; idx_PedidosProveedorID_TIENDA = 35;
idx_PedidosProveedorTIENDA = 36; idx_PedidosProveedorTIENDA = 36;
idx_PedidosProveedorDESCRIPCION_GENERAL = 37;
{ PedidosProveedor_Detalles fields } { PedidosProveedor_Detalles fields }
fld_PedidosProveedor_DetallesID = 'ID'; fld_PedidosProveedor_DetallesID = 'ID';
@ -109,8 +109,6 @@ const
fld_PedidosProveedor_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_PedidosProveedor_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_PedidosProveedor_DetallesDESCUENTO = 'DESCUENTO'; fld_PedidosProveedor_DetallesDESCUENTO = 'DESCUENTO';
fld_PedidosProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_PedidosProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_PedidosProveedor_DetallesREFERENCIA = 'REFERENCIA';
fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
{ PedidosProveedor_Detalles field indexes } { PedidosProveedor_Detalles field indexes }
idx_PedidosProveedor_DetallesID = 0; idx_PedidosProveedor_DetallesID = 0;
@ -125,29 +123,11 @@ const
idx_PedidosProveedor_DetallesID_ARTICULO = 9; idx_PedidosProveedor_DetallesID_ARTICULO = 9;
idx_PedidosProveedor_DetallesDESCUENTO = 10; idx_PedidosProveedor_DetallesDESCUENTO = 10;
idx_PedidosProveedor_DetallesIMPORTE_PORTE = 11; idx_PedidosProveedor_DetallesIMPORTE_PORTE = 11;
idx_PedidosProveedor_DetallesREFERENCIA = 12;
idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 13;
{ PedidosProveedor_Articulos_Pendientes fields }
fld_PedidosProveedor_Articulos_PendientesID_PEDIDO = 'ID_PEDIDO';
fld_PedidosProveedor_Articulos_PendientesREFERENCIA = 'REFERENCIA';
fld_PedidosProveedor_Articulos_PendientesID_ARTICULO = 'ID_ARTICULO';
fld_PedidosProveedor_Articulos_PendientesCONCEPTO = 'CONCEPTO';
fld_PedidosProveedor_Articulos_PendientesCANTIDAD = 'CANTIDAD';
fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
{ PedidosProveedor_Articulos_Pendientes field indexes }
idx_PedidosProveedor_Articulos_PendientesID_PEDIDO = 0;
idx_PedidosProveedor_Articulos_PendientesREFERENCIA = 1;
idx_PedidosProveedor_Articulos_PendientesID_ARTICULO = 2;
idx_PedidosProveedor_Articulos_PendientesCONCEPTO = 3;
idx_PedidosProveedor_Articulos_PendientesCANTIDAD = 4;
idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR = 5;
type type
{ IPedidosProveedor } { IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable) IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{72630E6B-BABA-47E8-AECF-364D3A9E8F7C}'] ['{3FFE7F5F-75DA-4568-A26D-D3DF98DF31D4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -207,8 +187,8 @@ type
function GetINCIDENCIASValue: IROStrings; function GetINCIDENCIASValue: IROStrings;
function GetINCIDENCIASIsNull: Boolean; function GetINCIDENCIASIsNull: Boolean;
procedure SetINCIDENCIASIsNull(const aValue: Boolean); procedure SetINCIDENCIASIsNull(const aValue: Boolean);
function GetINCIDENCIAS_ACTIVASValue: Integer; function GetINCIDENCIAS_ACTIVASValue: SmallInt;
procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); procedure SetINCIDENCIAS_ACTIVASValue(const aValue: SmallInt);
function GetINCIDENCIAS_ACTIVASIsNull: Boolean; function GetINCIDENCIAS_ACTIVASIsNull: Boolean;
procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean);
function GetCALLEValue: String; function GetCALLEValue: String;
@ -295,6 +275,10 @@ type
procedure SetTIENDAValue(const aValue: String); procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean; function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean); procedure SetTIENDAIsNull(const aValue: Boolean);
function GetDESCRIPCION_GENERALValue: String;
procedure SetDESCRIPCION_GENERALValue(const aValue: String);
function GetDESCRIPCION_GENERALIsNull: Boolean;
procedure SetDESCRIPCION_GENERALIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -328,7 +312,7 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property INCIDENCIAS: IROStrings read GetINCIDENCIASValue; property INCIDENCIAS: IROStrings read GetINCIDENCIASValue;
property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull;
property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; property INCIDENCIAS_ACTIVAS: SmallInt read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLE: String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
@ -372,10 +356,12 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue;
property DESCRIPCION_GENERALIsNull: Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull;
end; end;
{ TPedidosProveedorDataTableRules } { TPedidosProveedorDataTableRules }
TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor) TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
@ -441,8 +427,8 @@ type
function GetINCIDENCIASValue: IROStrings; virtual; function GetINCIDENCIASValue: IROStrings; virtual;
function GetINCIDENCIASIsNull: Boolean; virtual; function GetINCIDENCIASIsNull: Boolean; virtual;
procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual; procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual;
function GetINCIDENCIAS_ACTIVASValue: Integer; virtual; function GetINCIDENCIAS_ACTIVASValue: SmallInt; virtual;
procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual; procedure SetINCIDENCIAS_ACTIVASValue(const aValue: SmallInt); virtual;
function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual;
procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual; procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual; function GetCALLEValue: String; virtual;
@ -529,6 +515,10 @@ type
procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual; function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCION_GENERALValue: String; virtual;
procedure SetDESCRIPCION_GENERALValue(const aValue: String); virtual;
function GetDESCRIPCION_GENERALIsNull: Boolean; virtual;
procedure SetDESCRIPCION_GENERALIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -561,7 +551,7 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property INCIDENCIAS: IROStrings read GetINCIDENCIASValue; property INCIDENCIAS: IROStrings read GetINCIDENCIASValue;
property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull;
property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; property INCIDENCIAS_ACTIVAS: SmallInt read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLE: String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
@ -605,6 +595,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue;
property DESCRIPCION_GENERALIsNull: Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -614,7 +606,7 @@ type
{ IPedidosProveedor_Detalles } { IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{75167B38-5DCF-48A0-A0DB-D9B20EEB227A}'] ['{C4F4AD90-C1D7-4CD9-852D-5DB340996FD4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -636,8 +628,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean; function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean); procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Float; function GetCANTIDADValue: Currency;
procedure SetCANTIDADValue(const aValue: Float); procedure SetCANTIDADValue(const aValue: Currency);
function GetCANTIDADIsNull: Boolean; function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean); procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency; function GetIMPORTE_UNIDADValue: Currency;
@ -664,14 +656,6 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency); procedure SetIMPORTE_PORTEValue(const aValue: Currency);
function GetIMPORTE_PORTEIsNull: Boolean; function GetIMPORTE_PORTEIsNull: Boolean;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetREFERENCIA_PROVEEDORValue: String;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetREFERENCIA_PROVEEDORIsNull: Boolean;
procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -685,7 +669,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue; property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -699,14 +683,10 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
end; end;
{ TPedidosProveedor_DetallesDataTableRules } { TPedidosProveedor_DetallesDataTableRules }
TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles) TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -730,8 +710,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual; procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual; function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Float; virtual; function GetCANTIDADValue: Currency; virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual; procedure SetCANTIDADValue(const aValue: Currency); virtual;
function GetCANTIDADIsNull: Boolean; virtual; function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual; function GetIMPORTE_UNIDADValue: Currency; virtual;
@ -758,14 +738,6 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual; function GetIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_PORTEIsNull(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 GetREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -778,7 +750,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue; property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -792,105 +764,6 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{9D55B3FD-88B7-44FA-9380-CAE6DAD5B7CA}']
{ 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 GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
procedure SetID_ARTICULOIsNull(const aValue: Boolean);
function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Float;
procedure SetCANTIDADValue(const aValue: Float);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetREFERENCIA_PROVEEDORValue: String;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetREFERENCIA_PROVEEDORIsNull: Boolean;
procedure SetREFERENCIA_PROVEEDORIsNull(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 REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
end;
{ TPedidosProveedor_Articulos_PendientesDataTableRules }
TPedidosProveedor_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Articulos_Pendientes)
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 GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(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 GetCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Float; virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVEEDORIsNull(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 REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1240,14 +1113,14 @@ begin
DataTable.Fields[idx_PedidosProveedorINCIDENCIAS].AsVariant := Null; DataTable.Fields[idx_PedidosProveedorINCIDENCIAS].AsVariant := Null;
end; end;
function TPedidosProveedorDataTableRules.GetINCIDENCIAS_ACTIVASValue: Integer; function TPedidosProveedorDataTableRules.GetINCIDENCIAS_ACTIVASValue: SmallInt;
begin begin
result := DataTable.Fields[idx_PedidosProveedorINCIDENCIAS_ACTIVAS].AsInteger; result := DataTable.Fields[idx_PedidosProveedorINCIDENCIAS_ACTIVAS].AsSmallInt;
end; end;
procedure TPedidosProveedorDataTableRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); procedure TPedidosProveedorDataTableRules.SetINCIDENCIAS_ACTIVASValue(const aValue: SmallInt);
begin begin
DataTable.Fields[idx_PedidosProveedorINCIDENCIAS_ACTIVAS].AsInteger := aValue; DataTable.Fields[idx_PedidosProveedorINCIDENCIAS_ACTIVAS].AsSmallInt := aValue;
end; end;
function TPedidosProveedorDataTableRules.GetINCIDENCIAS_ACTIVASIsNull: boolean; function TPedidosProveedorDataTableRules.GetINCIDENCIAS_ACTIVASIsNull: boolean;
@ -1702,6 +1575,27 @@ begin
DataTable.Fields[idx_PedidosProveedorTIENDA].AsVariant := Null; DataTable.Fields[idx_PedidosProveedorTIENDA].AsVariant := Null;
end; end;
function TPedidosProveedorDataTableRules.GetDESCRIPCION_GENERALValue: String;
begin
result := DataTable.Fields[idx_PedidosProveedorDESCRIPCION_GENERAL].AsString;
end;
procedure TPedidosProveedorDataTableRules.SetDESCRIPCION_GENERALValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosProveedorDESCRIPCION_GENERAL].AsString := aValue;
end;
function TPedidosProveedorDataTableRules.GetDESCRIPCION_GENERALIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedorDESCRIPCION_GENERAL].IsNull;
end;
procedure TPedidosProveedorDataTableRules.SetDESCRIPCION_GENERALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedorDESCRIPCION_GENERAL].AsVariant := Null;
end;
{ TPedidosProveedor_DetallesDataTableRules } { TPedidosProveedor_DetallesDataTableRules }
constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@ -1819,14 +1713,14 @@ begin
DataTable.Fields[idx_PedidosProveedor_DetallesCONCEPTO].AsVariant := Null; DataTable.Fields[idx_PedidosProveedor_DetallesCONCEPTO].AsVariant := Null;
end; end;
function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADValue: Float; function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADValue: Currency;
begin begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsFloat; result := DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsCurrency;
end; end;
procedure TPedidosProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float); procedure TPedidosProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Currency);
begin begin
DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsFloat := aValue; DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsCurrency := aValue;
end; end;
function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADIsNull: boolean; function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADIsNull: boolean;
@ -1966,190 +1860,9 @@ begin
DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_PORTE].AsVariant := Null; DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_PORTE].AsVariant := Null;
end; end;
function TPedidosProveedor_DetallesDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA].AsString;
end;
procedure TPedidosProveedor_DetallesDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA].AsString := aValue;
end;
function TPedidosProveedor_DetallesDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA].IsNull;
end;
procedure TPedidosProveedor_DetallesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA].AsVariant := Null;
end;
function TPedidosProveedor_DetallesDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR].AsString;
end;
procedure TPedidosProveedor_DetallesDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR].AsString := aValue;
end;
function TPedidosProveedor_DetallesDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR].IsNull;
end;
procedure TPedidosProveedor_DetallesDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR].AsVariant := Null;
end;
{ TPedidosProveedor_Articulos_PendientesDataTableRules }
constructor TPedidosProveedor_Articulos_PendientesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TPedidosProveedor_Articulos_PendientesDataTableRules.Destroy;
begin
inherited;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetID_PEDIDOValue: Integer;
begin
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_PEDIDO].AsInteger;
end;
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_PEDIDO].AsInteger := aValue;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetID_PEDIDOIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_PEDIDO].IsNull;
end;
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_PEDIDO].AsVariant := Null;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA].AsString;
end;
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA].AsString := aValue;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA].IsNull;
end;
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA].AsVariant := Null;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetID_ARTICULOValue: Integer;
begin
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_ARTICULO].AsInteger;
end;
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_ARTICULO].AsInteger := aValue;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetID_ARTICULOIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_ARTICULO].IsNull;
end;
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_ARTICULO].AsVariant := Null;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCONCEPTOValue: String;
begin
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].AsString;
end;
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCONCEPTOValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].AsString := aValue;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCONCEPTOIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].IsNull;
end;
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].AsVariant := Null;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADValue: Float;
begin
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsFloat;
end;
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsFloat := aValue;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].IsNull;
end;
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCANTIDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsVariant := Null;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR].AsString;
end;
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR].AsString := aValue;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR].IsNull;
end;
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR].AsVariant := Null;
end;
initialization initialization
RegisterDataTableRules(RID_PedidosProveedor, TPedidosProveedorDataTableRules); RegisterDataTableRules(RID_PedidosProveedor, TPedidosProveedorDataTableRules);
RegisterDataTableRules(RID_PedidosProveedor_Detalles, TPedidosProveedor_DetallesDataTableRules); RegisterDataTableRules(RID_PedidosProveedor_Detalles, TPedidosProveedor_DetallesDataTableRules);
RegisterDataTableRules(RID_PedidosProveedor_Articulos_Pendientes, TPedidosProveedor_Articulos_PendientesDataTableRules);
end. end.

471
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
View File

@ -9,14 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidosProveedorDelta = '{EA735EC9-0277-4D0F-8843-4A6F66360099}'; RID_PedidosProveedorDelta = '{89C09828-8924-4EEB-AB87-13EF828A7921}';
RID_PedidosProveedor_DetallesDelta = '{8799A75C-3602-4CCD-A0C5-5F065E20EC1D}'; RID_PedidosProveedor_DetallesDelta = '{AC634C35-D723-4602-A06A-9E814C4D889C}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{C60973BB-B8E7-483F-A7C6-FF5122FEC81D}';
type type
{ IPedidosProveedorDelta } { IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor) IPedidosProveedorDelta = interface(IPedidosProveedor)
['{EA735EC9-0277-4D0F-8843-4A6F66360099}'] ['{89C09828-8924-4EEB-AB87-13EF828A7921}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -33,7 +32,7 @@ type
function GetOldOBSERVACIONESValue : IROStrings; function GetOldOBSERVACIONESValue : IROStrings;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
function GetOldINCIDENCIASValue : IROStrings; function GetOldINCIDENCIASValue : IROStrings;
function GetOldINCIDENCIAS_ACTIVASValue : Integer; function GetOldINCIDENCIAS_ACTIVASValue : SmallInt;
function GetOldCALLEValue : String; function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String; function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String; function GetOldPROVINCIAValue : String;
@ -55,6 +54,7 @@ type
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldID_TIENDAValue : Integer; function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String; function GetOldTIENDAValue : String;
function GetOldDESCRIPCION_GENERALValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -72,7 +72,7 @@ type
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue; property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue; property OldINCIDENCIAS_ACTIVAS : SmallInt read GetOldINCIDENCIAS_ACTIVASValue;
property OldCALLE : String read GetOldCALLEValue; property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldPROVINCIA : String read GetOldPROVINCIAValue;
@ -94,6 +94,7 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue; property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue;
end; end;
{ TPedidosProveedorBusinessProcessorRules } { TPedidosProveedorBusinessProcessorRules }
@ -193,11 +194,11 @@ type
function GetOldINCIDENCIASValue: IROStrings; virtual; function GetOldINCIDENCIASValue: IROStrings; virtual;
function GetOldINCIDENCIASIsNull: Boolean; virtual; function GetOldINCIDENCIASIsNull: Boolean; virtual;
procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual; procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual;
function GetINCIDENCIAS_ACTIVASValue: Integer; virtual; function GetINCIDENCIAS_ACTIVASValue: SmallInt; virtual;
function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual;
function GetOldINCIDENCIAS_ACTIVASValue: Integer; virtual; function GetOldINCIDENCIAS_ACTIVASValue: SmallInt; virtual;
function GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; function GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; virtual;
procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual; procedure SetINCIDENCIAS_ACTIVASValue(const aValue: SmallInt); virtual;
procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual; procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual; function GetCALLEValue: String; virtual;
function GetCALLEIsNull: Boolean; virtual; function GetCALLEIsNull: Boolean; virtual;
@ -325,6 +326,12 @@ type
function GetOldTIENDAIsNull: Boolean; virtual; function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCION_GENERALValue: String; virtual;
function GetDESCRIPCION_GENERALIsNull: Boolean; virtual;
function GetOldDESCRIPCION_GENERALValue: String; virtual;
function GetOldDESCRIPCION_GENERALIsNull: Boolean; virtual;
procedure SetDESCRIPCION_GENERALValue(const aValue: String); virtual;
procedure SetDESCRIPCION_GENERALIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -387,9 +394,9 @@ type
property INCIDENCIASIsNull : Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; property INCIDENCIASIsNull : Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull;
property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue; property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
property OldINCIDENCIASIsNull : Boolean read GetOldINCIDENCIASIsNull; property OldINCIDENCIASIsNull : Boolean read GetOldINCIDENCIASIsNull;
property INCIDENCIAS_ACTIVAS : Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; property INCIDENCIAS_ACTIVAS : SmallInt read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
property INCIDENCIAS_ACTIVASIsNull : Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; property INCIDENCIAS_ACTIVASIsNull : Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull;
property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue; property OldINCIDENCIAS_ACTIVAS : SmallInt read GetOldINCIDENCIAS_ACTIVASValue;
property OldINCIDENCIAS_ACTIVASIsNull : Boolean read GetOldINCIDENCIAS_ACTIVASIsNull; property OldINCIDENCIAS_ACTIVASIsNull : Boolean read GetOldINCIDENCIAS_ACTIVASIsNull;
property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLE : String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
@ -475,6 +482,10 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull; property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
property DESCRIPCION_GENERAL : String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue;
property DESCRIPCION_GENERALIsNull : Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull;
property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue;
property OldDESCRIPCION_GENERALIsNull : Boolean read GetOldDESCRIPCION_GENERALIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -484,22 +495,20 @@ type
{ IPedidosProveedor_DetallesDelta } { IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{8799A75C-3602-4CCD-A0C5-5F065E20EC1D}'] ['{AC634C35-D723-4602-A06A-9E814C4D889C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String; function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String; function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Float; function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : SmallInt; function GetOldVISIBLEValue : SmallInt;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldDESCUENTOValue : Float; function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -507,15 +516,13 @@ type
property OldPOSICION : Integer read GetOldPOSICIONValue; property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue; property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue; property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
end; end;
{ TPedidosProveedor_DetallesBusinessProcessorRules } { TPedidosProveedor_DetallesBusinessProcessorRules }
@ -553,11 +560,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual; function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual; procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Float; virtual; function GetCANTIDADValue: Currency; virtual;
function GetCANTIDADIsNull: Boolean; virtual; function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Float; virtual; function GetOldCANTIDADValue: Currency; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual; function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual; procedure SetCANTIDADValue(const aValue: Currency); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual; function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual; function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@ -595,18 +602,6 @@ type
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -629,9 +624,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull; property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue; property CANTIDAD : Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Float read GetOldCANTIDADValue; property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull; property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -657,108 +652,6 @@ type
property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
['{C60973BB-B8E7-483F-A7C6-FF5122FEC81D}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldID_ARTICULOValue : Integer;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Float;
function GetOldREFERENCIA_PROVEEDORValue : String;
{ Properties }
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
end;
{ TPedidosProveedor_Articulos_PendientesBusinessProcessorRules }
TPedidosProveedor_Articulos_PendientesBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosProveedor_Articulos_Pendientes, IPedidosProveedor_Articulos_PendientesDelta)
private
protected
{ Property getters and setters }
function GetID_PEDIDOValue: Integer; virtual;
function GetID_PEDIDOIsNull: Boolean; virtual;
function GetOldID_PEDIDOValue: Integer; virtual;
function GetOldID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual;
function GetOldID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual;
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Float; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Float; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
procedure SetREFERENCIA_PROVEEDORIsNull(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 OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1261,7 +1154,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS] := Null;
end; end;
function TPedidosProveedorBusinessProcessorRules.GetINCIDENCIAS_ACTIVASValue: Integer; function TPedidosProveedorBusinessProcessorRules.GetINCIDENCIAS_ACTIVASValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS];
end; end;
@ -1271,7 +1164,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS]);
end; end;
function TPedidosProveedorBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: Integer; function TPedidosProveedorBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS];
end; end;
@ -1281,7 +1174,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS]);
end; end;
procedure TPedidosProveedorBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); procedure TPedidosProveedorBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: SmallInt);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS] := aValue;
end; end;
@ -1943,6 +1836,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTIENDA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTIENDA] := Null;
end; end;
function TPedidosProveedorBusinessProcessorRules.GetDESCRIPCION_GENERALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL];
end;
function TPedidosProveedorBusinessProcessorRules.GetDESCRIPCION_GENERALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL]);
end;
function TPedidosProveedorBusinessProcessorRules.GetOldDESCRIPCION_GENERALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL];
end;
function TPedidosProveedorBusinessProcessorRules.GetOldDESCRIPCION_GENERALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL]);
end;
procedure TPedidosProveedorBusinessProcessorRules.SetDESCRIPCION_GENERALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL] := aValue;
end;
procedure TPedidosProveedorBusinessProcessorRules.SetDESCRIPCION_GENERALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL] := Null;
end;
{ TPedidosProveedor_DetallesBusinessProcessorRules } { TPedidosProveedor_DetallesBusinessProcessorRules }
constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2110,7 +2034,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCONCEPTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCONCEPTO] := Null;
end; end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Float; function TPedidosProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD];
end; end;
@ -2120,7 +2044,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD]);
end; end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float; function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD];
end; end;
@ -2130,7 +2054,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD]);
end; end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float); procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Currency);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD] := aValue;
end; end;
@ -2327,270 +2251,9 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE] := Null;
end; end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA];
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA]);
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA];
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA]);
end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA] := aValue;
end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA] := Null;
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR];
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR]);
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR];
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR]);
end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR] := aValue;
end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR] := Null;
end;
{ TPedidosProveedor_Articulos_PendientesBusinessProcessorRules }
constructor TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO];
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO]);
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO];
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO]);
end;
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO] := aValue;
end;
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO] := Null;
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA];
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA]);
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA];
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA]);
end;
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA] := aValue;
end;
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA] := Null;
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO];
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO]);
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO];
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO]);
end;
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO] := aValue;
end;
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO] := Null;
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO];
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO]);
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO];
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO]);
end;
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO] := aValue;
end;
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO] := Null;
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD];
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCANTIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]);
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD];
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]);
end;
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD] := aValue;
end;
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD] := Null;
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR];
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR]);
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR];
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR]);
end;
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR] := aValue;
end;
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR] := Null;
end;
initialization initialization
RegisterBusinessProcessorRules(RID_PedidosProveedorDelta, TPedidosProveedorBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PedidosProveedorDelta, TPedidosProveedorBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PedidosProveedor_DetallesDelta, TPedidosProveedor_DetallesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PedidosProveedor_DetallesDelta, TPedidosProveedor_DetallesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PedidosProveedor_Articulos_PendientesDelta, TPedidosProveedor_Articulos_PendientesBusinessProcessorRules);
end. end.

8
Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas
View File

@ -7,25 +7,18 @@ uses
const const
BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR = 'Client.DetallesPedido.Proveedor'; BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR = 'Client.DetallesPedido.Proveedor';
BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR_PEND = 'Client.DetallesPedido.Pendientes';
type type
IBizDetallesPedidoProveedor = interface(IPedidosProveedor_Detalles) IBizDetallesPedidoProveedor = interface(IPedidosProveedor_Detalles)
['{F868D8B0-18F9-469A-8461-3B1DADCC3B33}'] ['{F868D8B0-18F9-469A-8461-3B1DADCC3B33}']
end; end;
IBizDetallesPedidoProveedorPend = interface(IPedidosProveedor_Articulos_Pendientes)
['{0BE0236B-D58B-41CA-B939-8338875D4CF4}']
end;
TBizDetallesPedidoProveedor = class(TPedidosProveedor_DetallesDataTableRules, IBizDetallesPedidoProveedor) TBizDetallesPedidoProveedor = class(TPedidosProveedor_DetallesDataTableRules, IBizDetallesPedidoProveedor)
protected protected
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override; procedure BeforeInsert(Sender: TDADataTable); override;
end; end;
TBizDetallesPedidoProveedorPend = class(TPedidosProveedor_Articulos_PendientesDataTableRules, IBizDetallesPedidoProveedorPend)
end;
implementation implementation
@ -55,5 +48,4 @@ end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR, TBizDetallesPedidoProveedor); RegisterDataTableRules(BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR, TBizDetallesPedidoProveedor);
RegisterDataTableRules(BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR_PEND, TBizDetallesPedidoProveedorPend);
end. end.

5
Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
View File

@ -202,13 +202,12 @@ begin
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
// ID_PEDIDO_CLIENTE := 0; // ID_PEDIDO_CLIENTE := 0;
REF_PED_CLIENTE := ''; REF_PED_CLIENTE := '';
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
// OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO // OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
// ALMACÉN PUESTO A CAPÓN Y PROVISIONAL // ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
ID_ALMACEN := 1; ID_ALMACEN := 1;
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
end; end;
procedure TBizPedidoProveedor.IVAOnChange(Sender: TDACustomField); procedure TBizPedidoProveedor.IVAOnChange(Sender: TDACustomField);

76
Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj
View File

@ -9,9 +9,16 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de cliente\Data\AlbaranesCliente_data.dproj" />
<Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" /> <Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" />
<Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" />
<Projects Include="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" />
<Projects Include="Controller\PedidosProveedor_controller.dproj" /> <Projects Include="Controller\PedidosProveedor_controller.dproj" />
<Projects Include="Data\PedidosProveedor_data.dproj" /> <Projects Include="Data\PedidosProveedor_data.dproj" />
<Projects Include="Model\PedidosProveedor_model.dproj" /> <Projects Include="Model\PedidosProveedor_model.dproj" />
@ -141,14 +148,77 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="ContratosCliente_view">
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="" />
</Target>
<Target Name="ContratosCliente_view:Clean">
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="ContratosCliente_view:Make">
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="ContratosCliente_controller">
<MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="" />
</Target>
<Target Name="ContratosCliente_controller:Clean">
<MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="ContratosCliente_controller:Make">
<MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_data">
<MSBuild Projects="..\Albaranes de cliente\Data\AlbaranesCliente_data.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_data:Clean">
<MSBuild Projects="..\Albaranes de cliente\Data\AlbaranesCliente_data.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_data:Make">
<MSBuild Projects="..\Albaranes de cliente\Data\AlbaranesCliente_data.dproj" Targets="Make" />
</Target>
<Target Name="GestorDocumentos_data">
<MSBuild Projects="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" Targets="" />
</Target>
<Target Name="GestorDocumentos_data:Clean">
<MSBuild Projects="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" Targets="Clean" />
</Target>
<Target Name="GestorDocumentos_data:Make">
<MSBuild Projects="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" Targets="Make" />
</Target>
<Target Name="GestorDocumentos_controller">
<MSBuild Projects="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" Targets="" />
</Target>
<Target Name="GestorDocumentos_controller:Clean">
<MSBuild Projects="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="GestorDocumentos_controller:Make">
<MSBuild Projects="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_view">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_view:Clean">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_view:Make">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;FactuGES;FactuGES_Server" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;FactuGES;FactuGES_Server;ContratosCliente_view;ContratosCliente_controller;AlbaranesCliente_data;GestorDocumentos_data;GestorDocumentos_controller;AlbaranesCliente_view;FacturasCliente_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;ContratosCliente_view:Clean;ContratosCliente_controller:Clean;AlbaranesCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;AlbaranesCliente_view:Clean;FacturasCliente_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;ContratosCliente_view:Make;ContratosCliente_controller:Make;AlbaranesCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;AlbaranesCliente_view:Make;FacturasCliente_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

393
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
View File

@ -167,6 +167,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item item
DatasetField = 'TIENDA' DatasetField = 'TIENDA'
TableField = 'TIENDA' TableField = 'TIENDA'
end
item
DatasetField = 'DESCRIPCION_GENERAL'
TableField = 'DESCRIPCION_GENERAL'
end> end>
end> end>
Name = 'PedidosProveedor' Name = 'PedidosProveedor'
@ -193,6 +197,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_NOMBRE' DictionaryEntry = 'PedidosProveedor_NOMBRE'
end end
item item
@ -204,162 +209,132 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 9
DictionaryEntry = 'PedidosProveedor_SITUACION'
end end
item item
Name = 'FECHA_ENVIO' Name = 'FECHA_ENVIO'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO'
end end
item item
Name = 'FECHA_PEDIDO' Name = 'FECHA_PEDIDO'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'PedidosProveedor_FECHA_PEDIDO'
end end
item item
Name = 'FECHA_CONFIRMACION' Name = 'FECHA_CONFIRMACION'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION'
end end
item item
Name = 'FECHA_ENTREGA' Name = 'FECHA_ENTREGA'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'PedidosProveedor_FECHA_ENTREGA'
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_ALMACEN'
end end
item item
Name = 'NOMBRE_ALMACEN' Name = 'NOMBRE_ALMACEN'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN'
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo DataType = datMemo
DictionaryEntry = 'PedidosProveedor_OBSERVACIONES'
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_IMPORTE_TOTAL'
end end
item item
Name = 'INCIDENCIAS' Name = 'INCIDENCIAS'
DataType = datMemo DataType = datMemo
DictionaryEntry = 'PedidosProveedor_INCIDENCIAS'
end end
item item
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
DataType = datInteger DataType = datSmallInt
DictionaryEntry = 'PedidosProveedor_INCIDENCIAS_ACTIVAS'
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'PedidosProveedor_CALLE'
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'PedidosProveedor_POBLACION'
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'PedidosProveedor_PROVINCIA'
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL'
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'PedidosProveedor_PERSONA_CONTACTO'
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString DataType = datString
Size = 25 Size = 25
DictionaryEntry = 'PedidosProveedor_TELEFONO'
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'PedidosProveedor_FECHA_ALTA'
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'PedidosProveedor_FECHA_MODIFICACION'
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 20 Size = 30
DictionaryEntry = 'PedidosProveedor_USUARIO'
end end
item item
Name = 'ID_PEDIDO_CLIENTE' Name = 'ID_PEDIDO_CLIENTE'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_PEDIDO_CLIENTE'
end end
item item
Name = 'REF_PED_CLIENTE' Name = 'REF_PED_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'PedidosProveedor_REF_PED_CLIENTE'
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_IMPORTE_NETO'
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_IMPORTE_PORTE'
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'PedidosProveedor_DESCUENTO'
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_IMPORTE_DESCUENTO'
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_BASE_IMPONIBLE'
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'PedidosProveedor_IVA'
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_IMPORTE_IVA'
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO'
end end
item item
Name = 'ID_TIENDA' Name = 'ID_TIENDA'
@ -369,6 +344,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'TIENDA' Name = 'TIENDA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'DESCRIPCION_GENERAL'
DataType = datString
Size = 255
end> end>
end end
item item
@ -385,11 +365,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'EEDOR_DETALLES.IMPORTE_UNIDAD, PEDIDOS_PROVEEDOR_DETALLES.IMPORT' + 'EEDOR_DETALLES.IMPORTE_UNIDAD, PEDIDOS_PROVEEDOR_DETALLES.IMPORT' +
'E_TOTAL,'#10' PEDIDOS_PROVEEDOR_DETALLES.VISIBLE,'#10#10' PEDIDOS_PR' + 'E_TOTAL,'#10' PEDIDOS_PROVEEDOR_DETALLES.VISIBLE,'#10#10' PEDIDOS_PR' +
'OVEEDOR_DETALLES.ID_ARTICULO, PEDIDOS_PROVEEDOR_DETALLES.DESCUEN' + 'OVEEDOR_DETALLES.ID_ARTICULO, PEDIDOS_PROVEEDOR_DETALLES.DESCUEN' +
'TO,'#10' PEDIDOS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.' + 'TO,'#10' PEDIDOS_PROVEEDOR_DETALLES.IMPORTE_PORTE'#10'/*'#10' ARTICULO' +
'REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'F' + 'S.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10 +
'ROM PEDIDOS_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON PEDIDOS_PR' + '*/'#10'FROM PEDIDOS_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON PEDIDO' +
'OVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER ' + 'S_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}'#10'OR' +
'BY POSICION;'#10 'DER BY POSICION;'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -439,16 +419,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item item
DatasetField = 'IMPORTE_PORTE' DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE' TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'REFERENCIA'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end> end>
end> end>
Name = 'PedidosProveedor_Detalles' Name = 'PedidosProveedor_Detalles'
@ -458,7 +428,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID' GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_Detalles_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
@ -468,7 +437,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'POSICIONCONCEPTO'
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
@ -482,8 +450,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datFloat DataType = datCurrency
DictionaryEntry = 'CANTIDAD'
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
@ -508,93 +475,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency DataType = datCurrency
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_PED_PROV_ARTICULOS'
SQL =
'select V_PED_PROV_ARTICULOS.ID_PEDIDO,'#10' ARTICULOS.REFERENC' +
'IA,'#10' V_PED_PROV_ARTICULOS.ID_ARTICULO,'#10' ARTICULOS.DE' +
'SCRIPCION as CONCEPTO,'#10' V_PED_PROV_ARTICULOS.CANTIDAD_PEND' +
'IENTE as CANTIDAD,'#10' ARTICULOS.REFERENCIA_PROV as REFERENCI' +
'A_PROVEEDOR'#10#10'FROM V_PED_PROV_ARTICULOS'#10'LEFT JOIN ARTICULOS ON (A' +
'RTICULOS.ID = V_PED_PROV_ARTICULOS.ID_ARTICULO)'#10'WHERE (V_PED_PRO' +
'V_ARTICULOS.CANTIDAD_PENDIENTE <> 0)'#10#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
end
item
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end>
end>
Name = 'PedidosProveedor_Articulos_Pendientes'
Fields = <
item
Name = 'ID_PEDIDO'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
DictionaryEntry = 'PedidosProveedor_Detalles_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datFloat
DictionaryEntry = 'CANTIDAD'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR'
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -618,6 +498,17 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end end
item item
Params = < Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
Value = ''
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datCurrency DataType = datCurrency
@ -628,12 +519,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
Value = ''
end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString DataType = datString
@ -661,11 +546,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
@ -686,12 +566,12 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES' TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
SQL = SQL =
'INSERT'#10' INTO PEDIDOS_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICION' + 'INSERT'#10' INTO PEDIDOS_PROVEEDOR_DETALLES'#10' (ID, ID_PEDIDO, CAN' +
', ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, '#10' IMPORTE_TOTA' + 'TIDAD, POSICION, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD,'#10' IM' +
'L, VISIBLE, ID_PEDIDO,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PORT' + 'PORTE_TOTAL, VISIBLE,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PORTE' +
'E)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :CONC' + ')'#10' VALUES'#10' (:ID, :ID_PEDIDO, :CANTIDAD, :POSICION, :TIPO_DET' +
'EPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_PEDID' + 'ALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,' +
'O, '#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)' #10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -727,11 +607,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
item
Name = 'ID'
DataType = datInteger
Value = ''
end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString DataType = datString
@ -789,12 +664,12 @@ object srvPedidosProveedor: TsrvPedidosProveedor
TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES' TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
SQL = SQL =
'UPDATE PEDIDOS_PROVEEDOR_DETALLES'#10' SET '#10' CANTIDAD = :CANTIDA' + 'UPDATE PEDIDOS_PROVEEDOR_DETALLES'#10' SET '#10' CANTIDAD = :CANTIDA' +
'D, '#10' POSICION = :POSICION, '#10' ID = :ID, '#10' TIPO_DETALLE =' + 'D, '#10' POSICION = :POSICION, '#10' TIPO_DETALLE = :TIPO_DETALLE,' +
' :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD =' + #10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD' +
' :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISI' + ', '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, ' +
'BLE = :VISIBLE, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ID_ARTICULO = ' + #10' ID_PEDIDO = :ID_PEDIDO, '#10' ID_ARTICULO = :ID_ARTICULO,'#10' ' +
':ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :I' + ' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' W' +
'MPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)' 'HERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -802,18 +677,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end end
item item
Params = < Params = <
item
Name = 'USUARIO'
Value = ''
end
item
Name = 'OBSERVACIONES'
Value = ''
end
item
Name = 'REFERENCIA'
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -822,114 +685,171 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'FECHA_ENVIO' Name = 'FECHA_ENVIO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_PEDIDO' Name = 'FECHA_PEDIDO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_CONFIRMACION' Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_ENTREGA' Name = 'FECHA_ENTREGA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS' Name = 'INCIDENCIAS'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = '' Value = ''
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString
Size = 25
Value = '' Value = ''
end end
item item
Name = 'ID_PEDIDO_CLIENTE' Name = 'ID_PEDIDO_CLIENTE'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_TIENDA' Name = 'ID_TIENDA'
DataType = datInteger
Value = ''
end
item
Name = 'DESCRIPCION_GENERAL'
DataType = datString
Size = 255
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -937,22 +857,23 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR' TargetTable = 'PEDIDOS_PROVEEDOR'
SQL = SQL =
'INSERT'#10' INTO PEDIDOS_PROVEEDOR'#10' (USUARIO, OBSERVACIONES, REF' + 'INSERT'#10' INTO PEDIDOS_PROVEEDOR'#10' (ID, ID_EMPRESA, FECHA_ALTA,' +
'ERENCIA, ID, ID_EMPRESA,'#10' FECHA_ALTA, FECHA_MODIFICACION, ID' + ' FECHA_MODIFICACION, ID_PROVEEDOR,'#10' USUARIO, OBSERVACIONES, ' +
'_PROVEEDOR, FECHA_ENVIO,'#10' FECHA_PEDIDO, FECHA_CONFIRMACION, ' + 'REFERENCIA, FECHA_ENVIO,'#10' FECHA_PEDIDO, FECHA_CONFIRMACION, ' +
'FECHA_ENTREGA, INCIDENCIAS, '#10' IMPORTE_TOTAL, INCIDENCIAS_ACT' + 'FECHA_ENTREGA, INCIDENCIAS, '#10' IMPORTE_TOTAL, INCIDENCIAS_ACT' +
'IVAS, ID_ALMACEN, CALLE, '#10' POBLACION, PROVINCIA, CODIGO_POST' + 'IVAS, ID_ALMACEN, CALLE, '#10' POBLACION, PROVINCIA, CODIGO_POST' +
'AL, PERSONA_CONTACTO, '#10' TELEFONO, ID_PEDIDO_CLIENTE, IMPORTE' + 'AL, PERSONA_CONTACTO, '#10' TELEFONO, ID_PEDIDO_CLIENTE, IMPORTE' +
'_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_I' + '_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_I' +
'MPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA_PAGO, ID_TIENDA)'#10' VA' + 'MPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA_PAGO, ID_TIENDA, DESC' +
'LUES'#10' (:USUARIO, :OBSERVACIONES, :REFERENCIA, :ID,'#10' :ID_E' + 'RIPCION_GENERAL)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_ALTA, :F' +
'MPRESA, :FECHA_ALTA, :FECHA_MODIFICACION,'#10' :ID_PROVEEDOR, :F' + 'ECHA_MODIFICACION, :ID_PROVEEDOR,'#10' :USUARIO, :OBSERVACIONES,' +
'ECHA_ENVIO, :FECHA_PEDIDO, :FECHA_CONFIRMACION,'#10' :FECHA_ENTR' + ' :REFERENCIA, :FECHA_ENVIO,'#10' :FECHA_PEDIDO, :FECHA_CONFIRMAC' +
'EGA, :INCIDENCIAS, :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, '#10' :' + 'ION, :FECHA_ENTREGA, :INCIDENCIAS,'#10' :IMPORTE_TOTAL, :INCIDEN' +
'ID_ALMACEN, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' ' + 'CIAS_ACTIVAS, :ID_ALMACEN, :CALLE,'#10' :POBLACION, :PROVINCIA, ' +
' :PERSONA_CONTACTO, :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NET' + ':CODIGO_POSTAL, :PERSONA_CONTACTO,'#10' :TELEFONO, :ID_PEDIDO_CL' +
'O, '#10' :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_I' + 'IENTE, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_' +
'MPONIBLE, '#10' :IVA, :IMPORTE_IVA, :ID_FORMA_PAGO, :ID_TIENDA)'#10 'DESCUENTO, :BASE_IMPONIBLE, :IVA,'#10' :IMPORTE_IVA, :ID_FORMA_P' +
'AGO, :ID_TIENDA, :DESCRIPCION_GENERAL)'#10' '#10' '#10' '#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -960,132 +881,173 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end end
item item
Params = < Params = <
item
Name = 'ID'
Value = ''
end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 30
Value = '' Value = ''
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'FECHA_ENVIO' Name = 'FECHA_ENVIO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_PEDIDO' Name = 'FECHA_PEDIDO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_CONFIRMACION' Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_ENTREGA' Name = 'FECHA_ENTREGA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS' Name = 'INCIDENCIAS'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = '' Value = ''
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString
Size = 25
Value = '' Value = ''
end end
item item
Name = 'ID_PEDIDO_CLIENTE' Name = 'ID_PEDIDO_CLIENTE'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_TIENDA' Name = 'ID_TIENDA'
DataType = datInteger
Value = ''
end
item
Name = 'DESCRIPCION_GENERAL'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
@ -1097,24 +1059,25 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR' TargetTable = 'PEDIDOS_PROVEEDOR'
SQL = SQL =
'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' USUARIO = :USU' + 'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' USUARIO = :USUARIO,'#10' OBSE' +
'ARIO, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :RE' + 'RVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :REFERENCIA,'#10' I' +
'FERENCIA,'#10' ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_' + 'D_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA' +
'ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROV' + '_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROVEEDOR = :ID_PRO' +
'EEDOR = :ID_PROVEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECH' + 'VEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECHA_PEDIDO = :FEC' +
'A_PEDIDO = :FECHA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFI' + 'HA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFIRMACION, '#10' F' +
'RMACION, '#10' FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS =' + 'ECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS = :INCIDENCIAS, ' +
' :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDEN' + #10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDENCIAS_ACTIVAS = ' +
'CIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMAC' + ':INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMACEN, '#10' CALLE ' +
'EN, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVI' + '= :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINC' +
'NCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PER' + 'IA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PERSONA_CONTACTO =' +
'SONA_CONTACTO = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ' + ' :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ID_PEDIDO_CL' +
' ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :' + 'IENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10 +
'IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENT' + ' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO,' +
'O = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' ' + ' '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBL' +
' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORT' + 'E = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORT' +
'E_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' I' + 'E_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_' +
'D_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10 'TIENDA,'#10' DESCRIPCION_GENERAL = :DESCRIPCION_GENERAL'#10' WHERE'#10' ' +
' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1181,7 +1144,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
InsertCommandName = 'Insert_PedidosProveedor' InsertCommandName = 'Insert_PedidosProveedor'
DeleteCommandName = 'Delete_PedidosProveedor' DeleteCommandName = 'Delete_PedidosProveedor'
UpdateCommandName = 'Update_PedidosProveedor' UpdateCommandName = 'Update_PedidosProveedor'
RefreshDatasetName = 'PedidosProveedor_Refresh'
ReferencedDataset = 'PedidosProveedor' ReferencedDataset = 'PedidosProveedor'
ProcessorOptions = [poPrepareCommands] ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
@ -1193,9 +1155,8 @@ object srvPedidosProveedor: TsrvPedidosProveedor
InsertCommandName = 'Insert_PedidosProveedor_Detalles' InsertCommandName = 'Insert_PedidosProveedor_Detalles'
DeleteCommandName = 'Delete_PedidosProveedor_Detalles' DeleteCommandName = 'Delete_PedidosProveedor_Detalles'
UpdateCommandName = 'Update_PedidosProveedor_Detalles' UpdateCommandName = 'Update_PedidosProveedor_Detalles'
RefreshDatasetName = 'PedidosProveedor_Detalles_Refresh'
ReferencedDataset = 'PedidosProveedor_Detalles' ReferencedDataset = 'PedidosProveedor_Detalles'
ProcessorOptions = [poPrepareCommands] ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
Left = 240 Left = 240
Top = 88 Top = 88

14
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas
View File

@ -26,11 +26,9 @@ type
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
schPedidosProveedor: TDASchema; schPedidosProveedor: TDASchema;
DADataDictionary: TDADataDictionary; DADataDictionary: TDADataDictionary;
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
var aConnectionName: string);
protected protected
{ IsrvPedidosProveedor methods } { IsrvPedidosProveedor methods }
function GenerateReport(const ID: String): Binary; function GenerateReport(const ID: String): Binary;
@ -47,8 +45,9 @@ uses
// uRptPedidosProveedor_Server, ; // uRptPedidosProveedor_Server, ;
{ uRORemoteDataModule, { uRORemoteDataModule,
fServerForm, Variants, IB, schPedidosProveedorClient_Intf; fServerForm;
} }
procedure Create_srvPedidosProveedor(out anInstance : IUnknown); procedure Create_srvPedidosProveedor(out anInstance : IUnknown);
begin begin
anInstance := TsrvPedidosProveedor.Create(NIL); anInstance := TsrvPedidosProveedor.Create(NIL);
@ -60,14 +59,13 @@ procedure TsrvPedidosProveedor.DARemoteServiceBeforeGetDatasetData(
const Dataset: IDADataset; const IncludeSchema: Boolean; const Dataset: IDADataset; const IncludeSchema: Boolean;
const MaxRecords: Integer); const MaxRecords: Integer);
begin begin
{ if DataSet.Name = nme_PedidosProveedor then if DataSet.Name = nme_PedidosProveedor then
begin begin
{ Aquí se asegura que el usuario sólo accede a pedidos { Aquí se asegura que el usuario sólo accede a pedidos
de las empresas a las que tiene permiso para acceder de las empresas a las que tiene permiso para acceder
filtrando DataSet por ID_EMPRESA. } filtrando DataSet por ID_EMPRESA. }
{ FiltrarAccesoUsuario(Session, Connection, schPedidosProveedor, DataSet, fld_PedidosProveedorID_EMPRESA); FiltrarAccesoUsuario(Session, Connection, schPedidosProveedor, DataSet, fld_PedidosProveedorID_EMPRESA);
end; end;
}
end; end;
procedure TsrvPedidosProveedor.DARemoteServiceCreate(Sender: TObject); procedure TsrvPedidosProveedor.DARemoteServiceCreate(Sender: TObject);

BIN
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dpk
View File

Binary file not shown.

33
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid> <ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
<MainSource>PedidosProveedor_view.dpk</MainSource> <MainSource>PedidosProveedor_view.dpk</MainSource>
@ -48,13 +49,25 @@
<DelphiCompile Include="PedidosProveedor_view.dpk"> <DelphiCompile Include="PedidosProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Almacenes_controller.dcp" /> <DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
<DCCReference Include="..\Almacenes_model.dcp" /> <DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
<DCCReference Include="..\Articulos_view.dcp" /> <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\Contactos_view.dcp" /> <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
<DCCReference Include="..\PedidosProveedor_controller.dcp" /> <DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
<DCCReference Include="..\PedidosProveedor_model.dcp" /> <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\tb2k_d10.dcp" />
<DCCReference Include="..\..\Lib\tbx_d10.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" />
<DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas"> <DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas">
<Form>fEditorDireccionEntregaPedidoProveedor </Form> <Form>fEditorDireccionEntregaPedidoProveedor </Form>
<DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass> <DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass>
@ -92,6 +105,10 @@
<Form>frViewDireccionEntregaPedidoProv</Form> <Form>frViewDireccionEntregaPedidoProv</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewDocumentosPedidoProveedor.pas">
<Form>friewDocumentosPedidoProveedor</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewElegirArticulosPedidosProveedor.pas"> <DCCReference Include="uViewElegirArticulosPedidosProveedor.pas">
<Form>frViewElegirArticulosPedidosProveedor</Form> <Form>frViewElegirArticulosPedidosProveedor</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>

229
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
View File

@ -2,19 +2,19 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Left = 332 Left = 332
Top = 147 Top = 147
Caption = 'Nuevo pedido a proveedor' Caption = 'Nuevo pedido a proveedor'
ClientHeight = 617 ClientHeight = 431
ClientWidth = 765 ClientWidth = 717
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 773 ExplicitWidth = 725
ExplicitHeight = 651 ExplicitHeight = 465
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 765 Width = 717
Caption = 'Nuevo pedido a proveedor' Caption = 'Nuevo pedido a proveedor'
ExplicitWidth = 765 ExplicitWidth = 717
inherited Image1: TImage inherited Image1: TImage
Left = 738 Left = 690
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -43,10 +43,10 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 765 Width = 717
ExplicitWidth = 765 ExplicitWidth = 717
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 330
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -58,32 +58,32 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 765 ExplicitWidth = 717
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 598 Top = 412
Width = 765 Width = 717
Panels = < Panels = <
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 598 ExplicitTop = 412
ExplicitWidth = 765 ExplicitWidth = 717
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 759 Width = 711
Height = 440 Height = 254
ActivePage = pagContenido ActivePage = pagDocumentos
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 759 ExplicitWidth = 711
ExplicitHeight = 440 ExplicitHeight = 254
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 751 ExplicitWidth = 703
ExplicitHeight = 412 ExplicitHeight = 226
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
@ -91,8 +91,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inline frViewDetallesPedidoProveedor1: TfrViewDetallesPedidoProveedor inline frViewDetallesPedidoProveedor1: TfrViewDetallesPedidoProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 703
Height = 412 Height = 226
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -104,17 +104,53 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 751 ExplicitWidth = 703
ExplicitHeight = 412 ExplicitHeight = 226
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 751 Width = 703
ExplicitWidth = 751 ExplicitWidth = 703
inherited UpDown1: TUpDown
Left = 237
ExplicitLeft = 237
end
inherited ToolButton13: TToolButton
Left = 254
ExplicitLeft = 254
end
inherited ToolButton6: TToolButton
Left = 262
ExplicitLeft = 262
end
inherited ToolButton7: TToolButton
Left = 296
ExplicitLeft = 296
end
inherited ToolButton8: TToolButton
Left = 330
ExplicitLeft = 330
end
inherited ToolButton12: TToolButton
Left = 364
ExplicitLeft = 364
end
inherited ToolButton9: TToolButton
Left = 372
ExplicitLeft = 372
end
inherited ToolButton10: TToolButton
Left = 406
ExplicitLeft = 406
end
inherited ToolButton11: TToolButton
Left = 440
ExplicitLeft = 440
end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 751 Width = 703
Height = 340 Height = 154
ExplicitWidth = 751 ExplicitWidth = 703
ExplicitHeight = 340 ExplicitHeight = 154
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewIMPORTENETO: TcxGridDBColumn inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Options.Editing = True Options.Editing = True
@ -122,8 +158,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end end
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 751 Width = 703
ExplicitWidth = 751 ExplicitWidth = 703
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548 ExplicitWidth = 548
end end
@ -136,8 +172,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inline frViewIncidenciasProv: TfrViewIncidencias inline frViewIncidenciasProv: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 703
Height = 412 Height = 226
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -147,34 +183,65 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 751 ExplicitWidth = 703
ExplicitHeight = 412 ExplicitHeight = 226
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 751 Width = 703
ExplicitWidth = 757 ExplicitWidth = 703
inherited eIncidenciaActiva: TcxDBCheckBox inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21 ExplicitHeight = 21
end end
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 751 Width = 703
Height = 384 Height = 198
ExplicitWidth = 751 ExplicitWidth = 703
ExplicitHeight = 384 ExplicitHeight = 198
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 747 ExplicitWidth = 699
ExplicitHeight = 367 ExplicitHeight = 181
Height = 367 Height = 181
Width = 747 Width = 699
end end
end end
end end
end end
object pagDocumentos: TTabSheet
Caption = 'Documentos'
ImageIndex = 3
inline frViewDocumentosPedidoProveedor1: TfrViewDocumentosPedidoProveedor
Left = 0
Top = 0
Width = 703
Height = 226
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 703
ExplicitHeight = 226
inherited TBXDock: TTBXDock
Width = 703
ExplicitWidth = 703
end
inherited ListView1: TListView
Width = 703
Height = 203
ExplicitWidth = 703
ExplicitHeight = 203
end
end
end
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 552 Top = 366
Width = 765 Width = 717
Height = 46 Height = 46
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -185,26 +252,26 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitTop = 552 ExplicitTop = 366
ExplicitWidth = 765 ExplicitWidth = 717
ExplicitHeight = 46 ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 765 Width = 717
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 765 ExplicitWidth = 717
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 379 Left = 356
Top = 11 Top = 11
Height = 30 Height = 30
ExplicitLeft = 379 ExplicitLeft = 356
ExplicitTop = 11 ExplicitTop = 11
ExplicitHeight = 30 ExplicitHeight = 30
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 491 Left = 468
Top = 53 Top = 53
Width = 21 Width = 21
ExplicitLeft = 491 ExplicitLeft = 468
ExplicitTop = 53 ExplicitTop = 53
ExplicitWidth = 21 ExplicitWidth = 21
end end
@ -222,27 +289,27 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 562 Left = 539
Top = 88 Top = 88
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 562 ExplicitLeft = 539
ExplicitTop = 88 ExplicitTop = 88
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 492 Left = 469
Top = 142 Top = 142
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 492 ExplicitLeft = 469
ExplicitTop = 142 ExplicitTop = 142
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -259,31 +326,31 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitTop = 38 ExplicitTop = 38
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 491 Left = 468
Top = 88 Top = 88
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 468
ExplicitTop = 88 ExplicitTop = 88
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 491 Left = 468
Top = 11 Top = 11
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 468
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 491 Left = 468
Top = 115 Top = 115
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
@ -292,11 +359,11 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 468
ExplicitTop = 115 ExplicitTop = 115
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 562 Left = 539
Top = 115 Top = 115
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
@ -305,7 +372,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 562 ExplicitLeft = 539
ExplicitTop = 115 ExplicitTop = 115
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
@ -352,9 +419,9 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Width = 81 Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 231 Left = 208
Top = 92 Top = 92
ExplicitLeft = 231 ExplicitLeft = 208
ExplicitTop = 92 ExplicitTop = 92
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -414,14 +481,26 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end end
end end
inherited PnlComentario: TPanel [5] inherited PnlComentario: TPanel [5]
Width = 765 Width = 717
ExplicitWidth = 765 ExplicitWidth = 717
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 755 Width = 707
Height = 25 Height = 25
end end
end end
inherited EditorActionList: TActionList [9] inherited EditorActionList: TActionList [9]
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
inherited actDuplicar: TAction
Enabled = False
Visible = False
end
end end
inherited dsDataTable: TDADataSource [10] inherited dsDataTable: TDADataSource [10]
end end

25
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas
View File

@ -14,7 +14,8 @@ uses
uBizPedidosProveedor, uIEditorPedidoProveedor, uPedidosProveedorController, uBizPedidosProveedor, uIEditorPedidoProveedor, uPedidosProveedorController,
uViewDetallesBase, uViewDetallesPedidoProveedor, uViewDetallesBase, uViewDetallesPedidoProveedor,
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces; uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces, uViewDocumentos,
uViewDocumentosPedidoProveedor;
type type
TfEditorPedidoProveedor = class(TfEditorDBItem, IEditorPedidoProveedor) TfEditorPedidoProveedor = class(TfEditorDBItem, IEditorPedidoProveedor)
@ -25,8 +26,10 @@ type
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
frViewTotales1: TfrViewTotales; frViewTotales1: TfrViewTotales;
pagDocumentos: TTabSheet;
frViewDocumentosPedidoProveedor1: TfrViewDocumentosPedidoProveedor;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean); procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject; procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
@ -110,6 +113,10 @@ procedure TfEditorPedidoProveedor.CustomEditorClose(Sender: TObject;
var Action: TCloseAction); var Action: TCloseAction);
begin begin
inherited; inherited;
//GESTION_DOCUMENTOS
//Este método eliminará el directorio temporal si se ha creado
frViewDocumentosPedidoProveedor1.actEliminarTodo.Execute;
FViewPedido := NIL; FViewPedido := NIL;
FPedido := NIL; FPedido := NIL;
end; end;
@ -179,14 +186,16 @@ begin
bEsNuevo := False; bEsNuevo := False;
ShowHourglassCursor; ShowHourglassCursor;
// frViewDetallesPedidoProveedor1.SaveGridStatus; // Para guardar estado del grid frViewDetallesPedidoProveedor1.SaveGridStatus; // Para guardar estado del grid
frViewDetallesPedidoProveedor1.BeginUpdate; // Para que no se mueva el foco frViewDetallesPedidoProveedor1.BeginUpdate; // Para que no se mueva el foco
try try
bEsNuevo := FPedido.EsNuevo; bEsNuevo := FPedido.EsNuevo;
FController.Guardar(FPedido); //GESTION_DOCUMENTOS
if FController.Guardar(FPedido) then
frViewDocumentosPedidoProveedor1.actActualizarServidor.Execute;
finally finally
frViewDetallesPedidoProveedor1.EndUpdate; frViewDetallesPedidoProveedor1.EndUpdate;
// frViewDetallesPedidoProveedor1.RestoreGridStatus; frViewDetallesPedidoProveedor1.RestoreGridStatus;
HideHourglassCursor; HideHourglassCursor;
end; end;
@ -268,6 +277,9 @@ begin
begin begin
ViewPedido.Controller := FController; ViewPedido.Controller := FController;
frViewDetallesPedidoProveedor1.Controller := Controller.DetallesController; frViewDetallesPedidoProveedor1.Controller := Controller.DetallesController;
//GESTION_DOCUMENTOS
frViewDocumentosPedidoProveedor1.Controller := Controller;
end; end;
end; end;
@ -289,6 +301,9 @@ begin
ViewPedido.ViewProveedorPedido.OnProveedorChanged := OnProveedorChanged; ViewPedido.ViewProveedorPedido.OnProveedorChanged := OnProveedorChanged;
frViewDetallesPedidoProveedor1.Detalles := FPedido.Detalles; frViewDetallesPedidoProveedor1.Detalles := FPedido.Detalles;
frViewDetallesPedidoProveedor1.Pedido := FPedido; //Para poder sacar los articulos del proveedor seleccionado frViewDetallesPedidoProveedor1.Pedido := FPedido; //Para poder sacar los articulos del proveedor seleccionado
//GESTION_DOCUMENTOS
frViewDocumentosPedidoProveedor1.Pedido := FPedido;
end; end;
end; end;
end; end;

42
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm
View File

@ -2,10 +2,11 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Left = 411 Left = 411
Top = 346 Top = 346
Caption = 'Lista de pedidos a proveedor' Caption = 'Lista de pedidos a proveedor'
ClientHeight = 599
ClientWidth = 700 ClientWidth = 700
Position = poDesigned Position = poDesigned
ExplicitWidth = 708 ExplicitWidth = 708
ExplicitHeight = 471 ExplicitHeight = 633
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -45,13 +46,16 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Width = 700 Width = 700
ExplicitWidth = 700 ExplicitWidth = 700
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 632 ExplicitWidth = 546
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 700 ExplicitWidth = 700
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 343
DockPos = 343
Visible = True Visible = True
ExplicitLeft = 343
ExplicitWidth = 119 ExplicitWidth = 119
object TBXItem39: TTBXItem object TBXItem39: TTBXItem
Action = actRecibirPedido Action = actRecibirPedido
@ -60,14 +64,16 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 580
Width = 700 Width = 700
ExplicitTop = 580
ExplicitWidth = 700 ExplicitWidth = 700
end end
inline frViewPedidosProveedor1: TfrViewPedidosProveedor [3] inline frViewPedidosProveedor1: TfrViewPedidosProveedor [3]
Left = 0 Left = 0
Top = 102 Top = 102
Width = 700 Width = 700
Height = 323 Height = 478
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -79,12 +85,12 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
ReadOnly = False ReadOnly = False
ExplicitTop = 102 ExplicitTop = 102
ExplicitWidth = 700 ExplicitWidth = 700
ExplicitHeight = 323 ExplicitHeight = 478
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 700 Width = 700
Height = 195 Height = 350
ExplicitWidth = 700 ExplicitWidth = 700
ExplicitHeight = 195 ExplicitHeight = 350
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -118,15 +124,27 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Width = 700 Width = 700
ExplicitWidth = 700 ExplicitWidth = 700
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 457 ExplicitWidth = 457
Width = 457 Width = 457
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 240 ExplicitWidth = 240
Width = 240 Width = 240
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 371 Left = 371
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 371 ExplicitLeft = 371
ExplicitWidth = 294 ExplicitWidth = 294
Width = 294 Width = 294
@ -146,8 +164,8 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 297 Top = 452
ExplicitTop = 297 ExplicitTop = 452
ExplicitWidth = 700 ExplicitWidth = 700
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 700 Width = 700
@ -179,10 +197,14 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
ImageIndex = 21 ImageIndex = 21
end end
inherited actPrevisualizar: TAction inherited actPrevisualizar: TAction
Visible = True Enabled = False
end end
inherited actImprimir: TAction inherited actImprimir: TAction
Visible = True Enabled = False
end
inherited actDuplicar: TAction
Enabled = False
Visible = False
end end
inherited actAnchoAuto: TAction inherited actAnchoAuto: TAction
ImageIndex = 22 ImageIndex = 22

31
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
View File

@ -86,11 +86,17 @@ end;
procedure TfEditorPedidosProveedor.actRecibirPedidoExecute(Sender: TObject); procedure TfEditorPedidosProveedor.actRecibirPedidoExecute(Sender: TObject);
begin begin
{
inherited; inherited;
// RecibirPedidoProv(FPedidos); // RecibirPedidoProv(FPedidos);
try
FController.CambiarSituacion(FPedidos, SITUACION_PEDIDO_RECIBIDO, Now);
except
on E : Exception do
ShowErrorMessage('Error al cambiar la situación del pedido', E.Message, E);
end;
actRefrescar.Execute; actRefrescar.Execute;
}
end; end;
procedure TfEditorPedidosProveedor.actRecibirPedidoUpdate(Sender: TObject); procedure TfEditorPedidosProveedor.actRecibirPedidoUpdate(Sender: TObject);
@ -99,7 +105,7 @@ begin
(Sender as TAction).Enabled := HayDatos and (Sender as TAction).Enabled := HayDatos and
not (ViewGrid.NumSeleccionados > 1) and not (ViewGrid.NumSeleccionados > 1) and
ViewGrid.esSeleccionCeldaDatos and ViewGrid.esSeleccionCeldaDatos and
(FPedidos.SITUACION <> SITUACION_PEDIDO_RECIBIDO); (FPedidos.SITUACION = SITUACION_PEDIDO_PENDIENTE);
end; end;
constructor TfEditorPedidosProveedor.Create(AOwner: TComponent); constructor TfEditorPedidosProveedor.Create(AOwner: TComponent);
@ -260,23 +266,8 @@ var
begin begin
inherited; inherited;
FController.Anadir(Pedidos);
Respuesta := JsNuevoPedidoProveedorDialog.Execute; FController.Ver(Pedidos);
if Respuesta <> IDCANCEL then
begin
case JsNuevoPedidoProveedorDialog.CustomButtonResult of
200 : begin // Utilizar un pedido
// GenerarPedidosProv;
actRefrescar.Execute;
end;
100 : begin // Pedido nuevo vacio
FController.Anadir(Pedidos);
FController.Ver(Pedidos);
end;
end;
end;
end; end;
procedure TfEditorPedidosProveedor.PonerTitulos(const ATitulo: string); procedure TfEditorPedidosProveedor.PonerTitulos(const ATitulo: string);

2
Source/Modulos/Pedidos a proveedor/Views/uViewDocumentosPedidoProveedor.dfm Normal file
View File

@ -0,0 +1,2 @@
inherited frViewDocumentosPedidoProveedor: TfrViewDocumentosPedidoProveedor
end

100
Source/Modulos/Pedidos a proveedor/Views/uViewDocumentosPedidoProveedor.pas Normal file
View File

@ -0,0 +1,100 @@
unit uViewDocumentosPedidoProveedor;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDocumentos, ActnList,
TB2Item, TBX, TB2Dock, TB2Toolbar, cxControls, cxContainer,
uBizPedidosProveedor, uPedidosProveedorController, ImgList,
PngImageList, ComCtrls, Menus;
type
IViewDocumentosPedidoProveedor = interface
['{83AFBD29-750D-4564-ADAE-468BDBE4C424}']
function GetController : IPedidosProveedorController;
procedure SetController (const Value : IPedidosProveedorController);
property Controller : IPedidosProveedorController read GetController write SetController;
function GetPedido: IBizPedidoProveedor;
procedure SetPedido(const Value: IBizPedidoProveedor);
property Pedido: IBizPedidoProveedor read GetPedido write SetPedido;
end;
TfrViewDocumentosPedidoProveedor = class(TfrViewDocumentos, IViewDocumentosPedidoProveedor)
private
FController : IPedidosProveedorController;
FPedido: IBizPedidoProveedor;
function GetController : IPedidosProveedorController;
procedure SetController (const Value : IPedidosProveedorController);
function GetPedido: IBizPedidoProveedor;
procedure SetPedido(const Value: IBizPedidoProveedor);
protected
procedure Sincronizar; override;
function RecuperarFicheroServidor(const NombreFichero: String; const DirectorioDestino: String): Boolean; override;
public
property Controller : IPedidosProveedorController read GetController write SetController;
property Pedido: IBizPedidoProveedor read GetPedido write SetPedido;
end;
var
frViewDocumentosPedidoProveedor: TfrViewDocumentosPedidoProveedor;
implementation
{$R *.dfm}
{ TfrViewDocumentosContrato }
function TfrViewDocumentosPedidoProveedor.GetController: IPedidosProveedorController;
begin
Result := FController;
end;
function TfrViewDocumentosPedidoProveedor.GetPedido: IBizPedidoProveedor;
begin
Result := FPedido;
end;
function TfrViewDocumentosPedidoProveedor.RecuperarFicheroServidor(const NombreFichero: String; const DirectorioDestino: String): Boolean;
begin
inherited;
Result := Controller.GestorDocumentosController.DescargarFichero(Pedido.ID, NombreFichero, DirectorioDestino);
end;
procedure TfrViewDocumentosPedidoProveedor.SetController(const Value: IPedidosProveedorController);
begin
FController := Value;
end;
procedure TfrViewDocumentosPedidoProveedor.SetPedido(const Value: IBizPedidoProveedor);
begin
FPedido := Value;
//Inicializamos la lista de documentos local con los ficheros del servidor
if Assigned(FPedido) and Assigned(FController) then
ListaFicheros := Controller.GestorDocumentosController.DarListaDocumentos(Pedido.ID);
RefrescarVisualizador;
end;
procedure TfrViewDocumentosPedidoProveedor.Sincronizar;
begin
inherited;
//De momento el action actSincronizar con el servidor estará oculto y se activa, hay que tener en cuenta lo comentado
{
if Contrato.EsNuevo then
begin
if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede sincronizar hasta que no se guarden.' + #10#13 +
'¿Desea guardarlos ahora?') = IDYES) then
actGuardar.Execute
else
ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
end;
}
Controller.GestorDocumentosController.SincronizarDocumentos(Pedido.ID, ListaFicheros, Directorio);
end;
end.

136
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
View File

@ -1,23 +1,25 @@
inherited frViewPedidoProveedor: TfrViewPedidoProveedor inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 704 Width = 693
Height = 467 Height = 293
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 704 ExplicitWidth = 693
ExplicitHeight = 467 ExplicitHeight = 293
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 704 Width = 693
Height = 467 Height = 293
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 701
ExplicitHeight = 337
DesignSize = ( DesignSize = (
704 693
467) 293)
inline frViewProveedorPedido: TfrViewDatosYSeleccionProveedor inline frViewProveedorPedido: TfrViewDatosYSeleccionProveedor
Left = 325 Left = 325
Top = 28 Top = 28
@ -29,7 +31,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 10 TabOrder = 11
ReadOnly = False ReadOnly = False
ExplicitLeft = 325 ExplicitLeft = 325
ExplicitTop = 28 ExplicitTop = 28
@ -82,18 +84,18 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 283 Width = 283
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 276 Left = 248
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 276 ExplicitLeft = 248
ExplicitWidth = 71 ExplicitWidth = 71
Width = 71 Width = 71
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 149 Left = 121
ExplicitLeft = 149 ExplicitLeft = 121
end end
end end
end end
@ -125,10 +127,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
object edtFechaConfirmacion: TcxDBDateEdit object edtFechaConfirmacion: TcxDBDateEdit
Left = 137 Left = 137
Top = 195 Top = 249
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_CONFIRMACION' DataBinding.DataField = 'FECHA_CONFIRMACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ImmediatePost = True Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -145,12 +148,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7 TabOrder = 9
Width = 158 Width = 158
end end
object edtFechaEntrega: TcxDBDateEdit object edtFechaEntrega: TcxDBDateEdit
Left = 137 Left = 137
Top = 222 Top = 82
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENTREGA' DataBinding.DataField = 'FECHA_ENTREGA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -168,7 +171,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 2
Width = 158 Width = 158
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
@ -199,19 +202,20 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv
Left = 22 Left = 22
Top = 279 Top = 306
Width = 273 Width = 273
Height = 166 Height = 166
Enabled = False
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 9 TabOrder = 10
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 279 ExplicitTop = 306
ExplicitWidth = 273 ExplicitWidth = 273
ExplicitHeight = 166 ExplicitHeight = 166
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -236,10 +240,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 238 Width = 238
end end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 135 Left = 118
Top = 131 Top = 109
ExplicitLeft = 135 ExplicitLeft = 118
ExplicitTop = 131 ExplicitTop = 109
end end
inherited txtDireccion: TStaticText inherited txtDireccion: TStaticText
Width = 238 Width = 238
@ -259,9 +263,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 137 Left = 137
Top = 82 Top = 136
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
Properties.ListColumns = < Properties.ListColumns = <
item item
@ -288,24 +293,26 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 4
Width = 20 Width = 20
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 163 Left = 163
Top = 82 Top = 136
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 3 Enabled = False
TabOrder = 5
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object edtFechaEnvio: TcxDBDateEdit object edtFechaEnvio: TcxDBDateEdit
Left = 137 Left = 137
Top = 168 Top = 222
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ImmediatePost = True Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -322,12 +329,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6 TabOrder = 8
Width = 158 Width = 158
end end
object eReferenciaPedidoCli: TcxTextEdit object eReferenciaPedidoCli: TcxTextEdit
Left = 137 Left = 137
Top = 109 Top = 163
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Enabled = False Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
@ -349,16 +356,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 6
Width = 20 Width = 20
end end
object Button1: TButton object Button1: TButton
Left = 163 Left = 163
Top = 109 Top = 163
Width = 132 Width = 132
Height = 23 Height = 23
Action = actVerPedidoCli Action = actVerPedidoCli
TabOrder = 5 Enabled = False
TabOrder = 7
end end
inline frViewTienda1: TfrViewTienda inline frViewTienda1: TfrViewTienda
Left = 325 Left = 325
@ -366,13 +374,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 357 Width = 357
Height = 46 Height = 46
Align = alBottom Align = alBottom
Enabled = False
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 11 TabOrder = 12
ReadOnly = False ReadOnly = False
ExplicitLeft = 325 ExplicitLeft = 325
ExplicitTop = 279 ExplicitTop = 279
@ -394,13 +403,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Top = 361 Top = 361
Width = 521 Width = 521
Height = 150 Height = 150
Enabled = False
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 12 TabOrder = 13
ReadOnly = False ReadOnly = False
ExplicitLeft = 325 ExplicitLeft = 325
ExplicitTop = 361 ExplicitTop = 361
@ -409,6 +419,32 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
end end
end end
object edtlDescripcion: TcxDBTextEdit
Left = 137
Top = 109
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'DESCRIPCION_GENERAL'
DataBinding.DataSource = DADataSource
ParentFont = False
Properties.ReadOnly = False
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Height = 21
Width = 283
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -434,11 +470,22 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Control = edtFechaPedido Control = edtFechaPedido
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item5: TdxLayoutItem
Caption = 'Entrega recepci'#243'n:'
Control = edtFechaEntrega
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
Caption = 'Descripci'#243'n:'
Control = edtlDescripcion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group4: TdxLayoutGroup object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group9: TdxLayoutGroup object dxLayoutControl1Group9: TdxLayoutGroup
Enabled = False
ShowCaption = False ShowCaption = False
Visible = False Visible = False
Hidden = True Hidden = True
@ -460,7 +507,9 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
end end
object dxLayoutControl1Group10: TdxLayoutGroup object dxLayoutControl1Group10: TdxLayoutGroup
Enabled = False
ShowCaption = False ShowCaption = False
Visible = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
@ -485,27 +534,26 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Situaci'#243'n del pedido' Caption = 'Situaci'#243'n del pedido'
Enabled = False
Visible = False
object dxLayoutControl1Item7: TdxLayoutItem object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Enviado al prov. el d'#237'a:' Caption = 'Enviado al prov. el d'#237'a:'
Control = edtFechaEnvio Control = edtFechaEnvio
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item4: TdxLayoutItem object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Confirmado el d'#237'a:' Caption = 'Fecha recepci'#243'n:'
Control = edtFechaConfirmacion Control = edtFechaConfirmacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item5: TdxLayoutItem
Caption = 'Entrega prevista:'
Control = edtFechaEntrega
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Group8: TdxLayoutGroup object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
Caption = 'Direcci'#243'n de entrega' Caption = 'Direcci'#243'n de entrega'
Enabled = False
Visible = False
object dxLayoutControl1Item8: TdxLayoutItem object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
@ -537,6 +585,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
object dxLayoutControl1Group11: TdxLayoutGroup object dxLayoutControl1Group11: TdxLayoutGroup
Caption = 'El pedido pertenece a la tienda' Caption = 'El pedido pertenece a la tienda'
Enabled = False
Visible = False
object dxLayoutControl1Item13: TdxLayoutItem object dxLayoutControl1Item13: TdxLayoutItem
Control = frViewTienda1 Control = frViewTienda1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
@ -547,6 +597,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Observaciones' Caption = 'Observaciones'
Enabled = False
Visible = False
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient

2
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas
View File

@ -75,6 +75,8 @@ type
dxLayoutControl1Group11: TdxLayoutGroup; dxLayoutControl1Group11: TdxLayoutGroup;
frViewObservaciones1: TfrViewObservaciones; frViewObservaciones1: TfrViewObservaciones;
dxLayoutControl1Item6: TdxLayoutItem; dxLayoutControl1Item6: TdxLayoutItem;
dxLayoutControl1Item14: TdxLayoutItem;
edtlDescripcion: TcxDBTextEdit;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);

112
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
View File

@ -64,6 +64,8 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
object cxGridViewTIENDA: TcxGridDBColumn object cxGridViewTIENDA: TcxGridDBColumn
Caption = 'Tienda' Caption = 'Tienda'
DataBinding.FieldName = 'TIENDA' DataBinding.FieldName = 'TIENDA'
Visible = False
VisibleForCustomization = False
end end
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia' Caption = 'Referencia'
@ -74,60 +76,26 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
DataBinding.FieldName = 'SITUACION' DataBinding.FieldName = 'SITUACION'
Width = 56 Width = 56
end end
object cxGridViewDESCRIPCION_GENERAL: TcxGridDBColumn
Caption = 'Descripci'#243'n'
DataBinding.FieldName = 'DESCRIPCION_GENERAL'
PropertiesClassName = 'TcxTextEditProperties'
end
object cxGridViewFECHA_PEDIDO: TcxGridDBColumn object cxGridViewFECHA_PEDIDO: TcxGridDBColumn
Caption = 'Fecha pedido'
DataBinding.FieldName = 'FECHA_PEDIDO' DataBinding.FieldName = 'FECHA_PEDIDO'
Width = 46 Width = 46
end end
object cxGridViewFECHA_ENVIO: TcxGridDBColumn object cxGridViewFECHA_ENTREGA: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ENVIO' Caption = 'Fecha recepci'#243'n'
Width = 57 DataBinding.FieldName = 'FECHA_ENTREGA'
Width = 47
end end
object cxGridViewNOMBRE: TcxGridDBColumn object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Proveedor' Caption = 'Proveedor'
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
Width = 58 Width = 58
end end
object cxGridViewFECHA_CONFIRMACION: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_CONFIRMACION'
Width = 57
end
object cxGridViewFECHA_ENTREGA: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ENTREGA'
Width = 47
end
object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_ALMACEN'
Width = 48
end
object cxGridViewCALLE: TcxGridDBColumn
DataBinding.FieldName = 'CALLE'
Visible = False
end
object cxGridViewPOBLACION: TcxGridDBColumn
DataBinding.FieldName = 'POBLACION'
Visible = False
end
object cxGridViewPROVINCIA: TcxGridDBColumn
DataBinding.FieldName = 'PROVINCIA'
Visible = False
end
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
DataBinding.FieldName = 'CODIGO_POSTAL'
Visible = False
end
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
DataBinding.FieldName = 'PERSONA_CONTACTO'
Visible = False
end
object cxGridViewTELEFONO: TcxGridDBColumn
DataBinding.FieldName = 'TELEFONO'
Visible = False
end
object cxGridViewREF_PED_CLIENTE: TcxGridDBColumn
Caption = 'Ref. pedido cli.'
DataBinding.FieldName = 'REF_PED_CLIENTE'
Width = 41
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total' Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'
@ -137,6 +105,61 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 94 Width = 94
end end
object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_ALMACEN'
Visible = False
VisibleForCustomization = False
Width = 48
end
object cxGridViewCALLE: TcxGridDBColumn
DataBinding.FieldName = 'CALLE'
Visible = False
VisibleForCustomization = False
end
object cxGridViewPOBLACION: TcxGridDBColumn
DataBinding.FieldName = 'POBLACION'
Visible = False
VisibleForCustomization = False
end
object cxGridViewPROVINCIA: TcxGridDBColumn
DataBinding.FieldName = 'PROVINCIA'
Visible = False
VisibleForCustomization = False
end
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
DataBinding.FieldName = 'CODIGO_POSTAL'
Visible = False
VisibleForCustomization = False
end
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
DataBinding.FieldName = 'PERSONA_CONTACTO'
Visible = False
VisibleForCustomization = False
end
object cxGridViewTELEFONO: TcxGridDBColumn
DataBinding.FieldName = 'TELEFONO'
Visible = False
VisibleForCustomization = False
end
object cxGridViewREF_PED_CLIENTE: TcxGridDBColumn
Caption = 'Ref. pedido cli.'
DataBinding.FieldName = 'REF_PED_CLIENTE'
Visible = False
VisibleForCustomization = False
Width = 41
end
object cxGridViewFECHA_ENVIO: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ENVIO'
Visible = False
VisibleForCustomization = False
Width = 57
end
object cxGridViewFECHA_CONFIRMACION: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_CONFIRMACION'
Visible = False
VisibleForCustomization = False
Width = 57
end
end end
object cxGridDBTableView1: TcxGridDBTableView [1] object cxGridDBTableView1: TcxGridDBTableView [1]
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
@ -152,6 +175,7 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
Caption = 'Parcialmente recibidos' Caption = 'Parcialmente recibidos'
Visible = False
end end
object cxGridLevel3: TcxGridLevel object cxGridLevel3: TcxGridLevel
Caption = 'Recibidos' Caption = 'Recibidos'

3
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
View File

@ -13,7 +13,7 @@ uses
cxGrid, cxGrid,
uBizPedidosProveedor, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList, uBizPedidosProveedor, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList,
TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces,
uCustomView, uViewBase; uCustomView, uViewBase, cxTextEdit;
type type
IViewPedidosProveedor = interface(IViewGrid) IViewPedidosProveedor = interface(IViewGrid)
@ -57,6 +57,7 @@ type
TBXItem3: TTBXItem; TBXItem3: TTBXItem;
TBXSeparatorItem2: TTBXSeparatorItem; TBXSeparatorItem2: TTBXSeparatorItem;
cxGridViewTIENDA: TcxGridDBColumn; cxGridViewTIENDA: TcxGridDBColumn;
cxGridViewDESCRIPCION_GENERAL: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;

3
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -197,7 +197,7 @@ uses
uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uConfiguracionController, uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uConfiguracionController,
schPresupuestosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPresupuestoCliente, schPresupuestosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPresupuestoCliente,
uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente, uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente,
schContactosClient_Intf, uPresupuestosClienteReportController, schContactosClient_Intf, uPresupuestosClienteReportController, FactuGES_Intf,
uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils; uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils;
{ TPresupuestosClienteController } { TPresupuestosClienteController }
@ -399,6 +399,7 @@ begin
//GESTION_DOCUMENTOS //GESTION_DOCUMENTOS
FGestorDocumentosController := TGestorDocumentosController.Create; FGestorDocumentosController := TGestorDocumentosController.Create;
FGestorDocumentosController.Almacen := TRdxAlmacenes_Presupuestos;
FDetallesController.addObservador(Self); FDetallesController.addObservador(Self);
end; end;

2
Source/Servicios/FactuGES.RODL
View File

@ -927,6 +927,8 @@
<EnumValues> <EnumValues>
<EnumValue Name="Presupuestos"> <EnumValue Name="Presupuestos">
</EnumValue> </EnumValue>
<EnumValue Name="PedidosProveedor">
</EnumValue>
</EnumValues> </EnumValues>
</Enum> </Enum>
</Enums> </Enums>

2
Source/Servicios/FactuGES_Intf.pas
View File

@ -99,7 +99,7 @@ type
{ Enumerateds } { Enumerateds }
TRdxAlmacenes = (TRdxAlmacenes_Presupuestos); TRdxAlmacenes = (TRdxAlmacenes_Presupuestos,TRdxAlmacenes_PedidosProveedor);
{ TRdxLoginInfo } { TRdxLoginInfo }
TRdxLoginInfo = class(TROComplexType) TRdxLoginInfo = class(TROComplexType)

BIN
Source/Servicios/RODLFile.res
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -118,8 +118,6 @@ uses
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
@ -137,7 +135,9 @@ uses
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas'; schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

593
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,294 +1,307 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 24 de noviembre de 2014 12:51</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 24 de noviembre de 2014 12:51</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</DCCReference> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> </ProjectExtensions>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <ItemGroup>
<Form>srvEmpresas</Form> <DelphiCompile Include="FactuGES_Server.dpr">
<DesignClass>TDARemoteService</DesignClass> <MainSource>MainSource</MainSource>
</DCCReference> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<Form>srvProvinciasPoblaciones</Form> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DesignClass>TRORemoteDataModule</DesignClass> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
</DCCReference> <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> <Form>srvEjercicios</Form>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/> </DCCReference>
<DCCReference Include="..\Base\schBase_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <Form>srvEmpresas</Form>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <Form>srvProvinciasPoblaciones</Form>
<Form>srvAlbaranesCliente</Form> <DesignClass>TRORemoteDataModule</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<Form>srvAlbaranesProveedor</Form> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlmacenes</Form> <Form>srvAlbaranesCliente</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/> <Form>srvAlbaranesProveedor</Form>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas"> </DCCReference>
<Form>RptComisiones</Form> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas"> <Form>srvAlmacenes</Form>
<Form>srvComisiones</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas"> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<Form>srvContabilidad</Form> <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
</DCCReference> <Form>RptComisiones</Form>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <Form>srvComisiones</Form>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<Form>RptEtiquetasContacto</Form> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <Form>srvContabilidad</Form>
<Form>srvContactos</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<Form>RptContratosCliente</Form> <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas"> <Form>RptEtiquetasContacto</Form>
<Form>srvContratosCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> <Form>srvContactos</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
<Form>RptFacturasCliente</Form> <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <Form>RptContratosCliente</Form>
<Form>srvFacturasCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
</DCCReference> <Form>srvContratosCliente</Form>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<Form>RptFacturasProveedor</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
</DCCReference> <Form>RptFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DesignClass>TDataModule</DesignClass>
<Form>srvFacturasProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
</DCCReference> <Form>srvFacturasCliente</Form>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <Form>RptFacturasProveedor</Form>
<Form>srvGestorDocumentos</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> <Form>srvFacturasProveedor</Form>
<Form>srvGestorInformes</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<Form>srvHistoricoMovimientos</Form> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> <Form>srvGestorDocumentos</Form>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> </DCCReference>
<Form>srvInventario</Form> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvGestorInformes</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvPedidosProveedor</Form> <Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <Form>srvInventario</Form>
<Form>RptPresupuestosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<Form>srvPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> <Form>srvPedidosProveedor</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<Form>RptRecibosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
</DCCReference> <Form>RptPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> </DCCReference>
<Form>srvRecibosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPresupuestosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<Form>RptRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptRecibosCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> </DCCReference>
<Form>srvRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRecibosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<Form>srvReferencias</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> <Form>RptRecibosProveedor</Form>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRemesasCliente</Form> <Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <Form>srvReferencias</Form>
<Form>srvRemesasProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> <Form>srvRemesasCliente</Form>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> </DCCReference>
<Form>srvUnidadesMedida</Form> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> <Form>srvRemesasProveedor</Form>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvConfiguracion</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<Form>frConexionBD</Form> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DesignClass>TFrame</DesignClass> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<DCCReference Include="Configuracion\uConfGeneral.pas"> <Form>srvUnidadesMedida</Form>
<Form>frConfGeneral</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<Form>fConfiguracion</Form> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DesignClass>TForm</DesignClass> <Form>srvConfiguracion</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> </DCCReference>
<Form>FrameConfiguracion</Form> <DCCReference Include="Configuracion\uConexionBD.pas">
<DesignClass>TFrame</DesignClass> <Form>frConexionBD</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="srvLogin_Impl.pas"> </DCCReference>
<Form>srvLogin</Form> <DCCReference Include="Configuracion\uConfGeneral.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>frConfGeneral</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="uAcercaDe.pas"> </DCCReference>
<Form>fAcercaDe</Form> <DCCReference Include="Configuracion\uConfiguracion.pas">
</DCCReference> <Form>fConfiguracion</Form>
<DCCReference Include="uDataModuleServer.pas"> <DesignClass>TForm</DesignClass>
<Form>dmServer</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
</DCCReference> <Form>FrameConfiguracion</Form>
<DCCReference Include="uServerMainForm.pas"> <DesignClass>TFrame</DesignClass>
<Form>fServerForm</Form> </DCCReference>
</DCCReference> <DCCReference Include="srvLogin_Impl.pas">
<DCCReference Include="Utiles\RegExpr.pas"/> <Form>srvLogin</Form>
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> </DCCReference>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <DCCReference Include="uAcercaDe.pas">
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <Form>fAcercaDe</Form>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> </DCCReference>
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <DCCReference Include="uDataModuleServer.pas">
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <Form>dmServer</Form>
</ItemGroup> <DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.6.0.0\0" VALUE "FileVersion", "2.6.0.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.6.0.0\0" VALUE "ProductVersion", "2.6.0.0\0"
VALUE "CompileDate", "lunes, 24 de noviembre de 2014 13:59\0" VALUE "CompileDate", "jueves, 11 de diciembre de 2014 13:41\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.