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

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@194 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2013-09-04 17:08:17 +00:00
parent b3387d2781
commit 8cdeebab60
78 changed files with 7888 additions and 958 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

8
Build/Build.fbpInf
View File

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

BIN
Build/Build.fbz6
View File

Binary file not shown.

105
Database/scripts/factuges.sql
View File

@ -2449,9 +2449,10 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
ID_TIPO_IVA,
IMPORTE_NETO,
IMPORTE_PORTE,
DATOS_BANCARIOS,
DATOS_BANCARIOS,
NUM_COPIAS,
NUM_CORREOS)
NUM_CORREOS,
ID_ALBARAN)
AS
SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_EMPRESA,
@ -2487,7 +2488,9 @@ SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.IMPORTE_PORTE,
FACTURAS_PROVEEDOR.DATOS_BANCARIOS,
IMPRESIONES.NUM_COPIAS,
REGISTRO_CORREOS.NUM_CORREOS
REGISTRO_CORREOS.NUM_CORREOS,
Null as ID_ALBARAN /*CAMPO FICTICIO QUE SE AÑADE PARA PODER COMPARTIR Clase de negocio IBizFacturaProveedor, el modulo de facturas proveedor y el modulo procesopresupuestocliente*/
FROM V_FAC_PRO_SITUACION
LEFT JOIN FACTURAS_PROVEEDOR
ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
@ -2499,6 +2502,102 @@ SELECT FACTURAS_PROVEEDOR.ID,
ON ((REGISTRO_CORREOS.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (REGISTRO_CORREOS.TABLA = 'FACTURASPROVEEDOR'))
;
CREATE VIEW V_ALBARANES_PROV_FACTURADOS(
ID_ALBARAN,
ID_FACTURA)
AS
select ID, ID_FACTURA
from albaranes_proveedor
where id_FACTURA is not null
;
CREATE VIEW V_FACTURAS_PROV_DE_ALBARANES(
ID,
ID_EMPRESA,
REFERENCIA,
TIPO,
REFERENCIA_PROVEEDOR,
FECHA_FACTURA,
FECHA_VENCIMIENTO,
SITUACION,
BASE_IMPONIBLE,
DESCUENTO,
IMPORTE_DESCUENTO,
IVA,
IMPORTE_IVA,
RE,
IMPORTE_RE,
IMPORTE_TOTAL,
OBSERVACIONES,
ID_PROVEEDOR,
NIF_CIF,
NOMBRE,
CALLE,
POBLACION,
PROVINCIA,
CODIGO_POSTAL,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
RECARGO_EQUIVALENCIA,
ID_TIPO_IVA,
IMPORTE_NETO,
IMPORTE_PORTE,
DATOS_BANCARIOS,
NUM_COPIAS,
NUM_CORREOS,
ID_ALBARAN)
AS
SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_EMPRESA,
FACTURAS_PROVEEDOR.REFERENCIA,
CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR,
FACTURAS_PROVEEDOR.FECHA_FACTURA,
FACTURAS_PROVEEDOR.FECHA_VENCIMIENTO,
TRIM(V_FAC_PRO_SITUACION.SITUACION),
FACTURAS_PROVEEDOR.BASE_IMPONIBLE,
FACTURAS_PROVEEDOR.DESCUENTO,
FACTURAS_PROVEEDOR.IMPORTE_DESCUENTO,
FACTURAS_PROVEEDOR.IVA,
FACTURAS_PROVEEDOR.IMPORTE_IVA,
FACTURAS_PROVEEDOR.RE,
FACTURAS_PROVEEDOR.IMPORTE_RE,
FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
FACTURAS_PROVEEDOR.OBSERVACIONES,
FACTURAS_PROVEEDOR.ID_PROVEEDOR,
FACTURAS_PROVEEDOR.NIF_CIF,
FACTURAS_PROVEEDOR.NOMBRE,
FACTURAS_PROVEEDOR.CALLE,
FACTURAS_PROVEEDOR.POBLACION,
FACTURAS_PROVEEDOR.PROVINCIA,
FACTURAS_PROVEEDOR.CODIGO_POSTAL,
FACTURAS_PROVEEDOR.FECHA_ALTA,
FACTURAS_PROVEEDOR.FECHA_MODIFICACION,
FACTURAS_PROVEEDOR.USUARIO,
FACTURAS_PROVEEDOR.ID_FORMA_PAGO,
FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA,
FACTURAS_PROVEEDOR.ID_TIPO_IVA,
FACTURAS_PROVEEDOR.IMPORTE_NETO,
FACTURAS_PROVEEDOR.IMPORTE_PORTE,
FACTURAS_PROVEEDOR.DATOS_BANCARIOS,
IMPRESIONES.NUM_COPIAS,
REGISTRO_CORREOS.NUM_CORREOS,
V_ALBARANES_PROV_FACTURADOS.ID_ALBARAN
FROM V_FAC_PRO_SITUACION
LEFT JOIN FACTURAS_PROVEEDOR
ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
LEFT JOIN PROVEEDORES_DATOS
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
LEFT JOIN IMPRESIONES
ON ((IMPRESIONES.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'FACTURASPROVEEDOR'))
LEFT JOIN REGISTRO_CORREOS
ON ((REGISTRO_CORREOS.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (REGISTRO_CORREOS.TABLA = 'FACTURASPROVEEDOR'))
LEFT JOIN V_ALBARANES_PROV_FACTURADOS
ON (V_ALBARANES_PROV_FACTURADOS.ID_FACTURA = FACTURAS_PROVEEDOR.ID)
WHERE V_ALBARANES_PROV_FACTURADOS.ID_ALBARAN IS NOT NULL
;
/* View: V_HIS_MOV_ALB_CLI */
CREATE VIEW V_HIS_MOV_ALB_CLI(

14
Source/ApplicationBase/uPlugins_Intf.pas
View File

@ -2,18 +2,21 @@ unit uPlugins_Intf;
interface
uses FactuGES_Intf;
const
MODULENAME_PRESUPUESTOS_CLIENTE = 'PresupuestosCliente_plugin.bpl';
MODULENAME_PEDIDOS_CLIENTE = 'PedidosCliente_plugin.bpl';
MODULENAME_PEDIDOS_CLIENTE = 'PedidosCliente_plugin.bpl';
MODULENAME_ALBARANES_CLIENTE = 'AlbaranesCliente_plugin.bpl';
MODULENAME_FACTURAS_CLIENTE = 'FacturasCliente_plugin.bpl';
MODULENAME_RECIBOS_CLIENTE = 'RecibosCliente_plugin.bpl';
MODULENAME_PEDIDOS_PROVEEDOR = 'PedidosProveedor_plugin.bpl';
MODULENAME_ALBARANES_PROVEEDOR = 'AlbaranesProveedor_plugin.bpl';
MODULENAME_FACTURAS_PROVEEDOR = 'FacturasProveedor_plugin.bpl';
MODULENAME_RECIBOS_PROVEEDOR = 'RecibosProveedor_plugin.bpl';
MODULENAME_RECIBOS_PROVEEDOR = 'RecibosProveedor_plugin.bpl';
MODULENAME_PROCESO_PRESUPUESTOS_CLIENTE = 'ProcesoPresupuestosCliente_plugin.bpl';
type
IMCPresupuestosCliente = interface(IInterface)
@ -72,6 +75,11 @@ type
const ANombreProveedor : String = '');
end;
IMCProcesoPresupuestosCliente = interface(IInterface)
['{2D83B0AF-4E5C-46A5-A371-5EFE363E4340}']
procedure VerPresupuestos(const ListaIDPresupuestosCliente : TIntegerArray);
end;
implementation
end.

106
Source/Base/Base.dproj
View File

@ -45,6 +45,8 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="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\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -58,63 +60,63 @@
<Form>DataModuleImpresiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\adortl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\designide.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\dsnap.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\Jcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\vclx.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas">
<Form>DataModuleRegistroCorreos</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

2
Source/Cliente/uBootStrap.pas
View File

@ -61,6 +61,8 @@ begin
LoadModule('InfVentasArticulo_plugin.bpl');
LoadModule('InfMargenArticulo_plugin.bpl');
LoadModule('ProcesoPresupuestosCliente_plugin.bpl');
end;
end;

7
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -21,6 +21,7 @@ type
function Buscar(const ID: Integer): IBizFacturaProveedor;
function BuscarTodos: IBizFacturaProveedor; overload;
function BuscarTodosDeAlbaran: IBizFacturaProveedor;
function BuscarTodos(const ID_Proveedor : Integer): IBizFacturaProveedor; overload;
procedure Ver(AFactura : IBizFacturaProveedor);
procedure VerTodos(AFacturas: IBizFacturaProveedor;
@ -108,6 +109,7 @@ type
function Buscar(const ID: Integer): IBizFacturaProveedor;
function BuscarTodos: IBizFacturaProveedor; overload;
function BuscarTodos(const ID_Proveedor : Integer): IBizFacturaProveedor; overload;
function BuscarTodosDeAlbaran: IBizFacturaProveedor;
// function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor;
function Nuevo (withInsert: Boolean = True): IBizFacturaProveedor;
procedure Ver(AFactura : IBizFacturaProveedor);
@ -344,6 +346,11 @@ begin
end;
end;
function TFacturasProveedorController.BuscarTodosDeAlbaran: IBizFacturaProveedor;
begin
Result := FDataModule.GetItemsDeAlbaran;
end;
{REPASARRRRR
function TFacturasProveedorController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor;
begin

248
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -247,6 +247,11 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
item
Name = 'NUM_CORREOS'
DataType = datSmallInt
end
item
Name = 'ID_ALBARAN'
DataType = datString
Size = 1
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@ -468,4 +473,247 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Left = 208
Top = 160
end
object tbl_FacturasProveedorDeAlbaran: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_PROVEEDOR_ID'
Required = True
ServerAutoRefresh = True
DictionaryEntry = 'FacturasProveedor_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'FacturasProveedor_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 20
DisplayLabel = 'Referencia'
DictionaryEntry = 'FacturasProveedor_REFERENCIA'
end
item
Name = 'TIPO'
DataType = datString
Size = 1
DisplayLabel = 'Tipo'
DictionaryEntry = 'FacturasProveedor_TIPO'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasProveedor_REFERENCIA_PROVEEDOR'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DisplayLabel = 'Fecha de las factura'
DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
DisplayLabel = 'Fecha vto.'
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
DisplayLabel = 'Situaci'#243'n'
DictionaryEntry = 'FacturasProveedor_SITUACION'
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
DisplayLabel = 'Base imponible'
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_BASE_IMPONIBLE'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DisplayLabel = 'Dto.'
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_DESCUENTO'
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
DisplayLabel = 'Importe dto.'
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_IMPORTE_DESCUENTO'
end
item
Name = 'IVA'
DataType = datFloat
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_IVA'
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
DisplayLabel = 'Importe IVA'
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA'
end
item
Name = 'RE'
DataType = datFloat
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_RE'
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
DisplayLabel = 'Importe RE'
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_IMPORTE_RE'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_IMPORTE_TOTAL'
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
DisplayLabel = 'Observaciones'
DictionaryEntry = 'FacturasProveedor_OBSERVACIONES'
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
DisplayLabel = 'FacturasProveedor_ID_PROVEEDOR'
DictionaryEntry = 'FacturasProveedor_ID_PROVEEDOR'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DisplayLabel = 'NIF/CIF'
DictionaryEntry = 'FacturasProveedor_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
DisplayLabel = 'Cliente'
DictionaryEntry = 'FacturasProveedor_NOMBRE'
end
item
Name = 'CALLE'
DataType = datString
Size = 150
DisplayLabel = 'Direcci'#243'n'
DictionaryEntry = 'FacturasProveedor_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 150
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'FacturasProveedor_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 30
DisplayLabel = 'Provincia'
DictionaryEntry = 'FacturasProveedor_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'd. postal'
DictionaryEntry = 'FacturasProveedor_CODIGO_POSTAL'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'FacturasProveedor_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'FacturasProveedor_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 100
DictionaryEntry = 'FacturasProveedor_USUARIO'
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
DisplayLabel = 'FacturasProveedor_ID_FORMA_PAGO'
DictionaryEntry = 'FacturasProveedor_ID_FORMA_PAGO'
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
DisplayLabel = #191'Con R.E.?'
DictionaryEntry = 'FacturasProveedor_RECARGO_EQUIVALENCIA'
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
DictionaryEntry = 'FacturasProveedor_ID_TIPO_IVA'
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
DisplayLabel = 'Importe neto'
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_IMPORTE_NETO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
DisplayLabel = 'Importe del porte'
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE'
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
DisplayLabel = 'Datos bancarios'
DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS'
end
item
Name = 'NUM_COPIAS'
DataType = datSmallInt
end
item
Name = 'NUM_CORREOS'
DataType = datSmallInt
end
item
Name = 'ID_ALBARAN'
DataType = datInteger
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_FacturasProveedor
LogicalName = 'FacturasProveedorDeAlbaran'
IndexDefs = <>
Left = 72
Top = 256
end
object ds_FacturasProveedorDeAlbaran: TDADataSource
DataSet = tbl_FacturasProveedorDeAlbaran.Dataset
DataTable = tbl_FacturasProveedorDeAlbaran
Left = 72
Top = 200
end
end

29
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas
View File

@ -25,6 +25,8 @@ type
ds_FacturasProveedor_Pedidos: TDADataSource;
tbl_ListaAnosFacturas: TDAMemDataTable;
ds_ListaAnosFacturas: TDADataSource;
tbl_FacturasProveedorDeAlbaran: TDAMemDataTable;
ds_FacturasProveedorDeAlbaran: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
function _GetDetalles : IBizDetallesFacturaProveedor;
@ -32,6 +34,7 @@ type
public
function GetItems : IBizFacturaProveedor;
function GetItemsDeAlbaran : IBizFacturaProveedor;
function GetItem(const ID : Integer) : IBizFacturaProveedor;
function NewItem : IBizFacturaProveedor;
@ -187,7 +190,7 @@ begin
with TBizFacturaProveedor(AFactura.BusinessEventsObj) do
begin
Detalles := _GetDetalles;
// Pedidos := _GetPedidos;
// Pedidos := _GetPedidos;
end;
Result := (AFactura as IBizFacturaProveedor);
@ -197,4 +200,28 @@ begin
end;
function TDataModuleFacturasProveedor.GetItemsDeAlbaran: IBizFacturaProveedor;
var
AFactura : TDAMemDataTable;
begin
ShowHourglassCursor;
try
AFactura := CloneDataTable(tbl_FacturasProveedorDeAlbaran);
AFactura.BusinessRulesID := BIZ_CLIENT_FACTURA_PROVEEDOR;
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
AFactura.FieldByName(fld_FacturasProveedorREFERENCIA).ServerAutoRefresh := TRUE;
with TBizFacturaProveedor(AFactura.BusinessEventsObj) do
begin
Detalles := _GetDetalles;
// Pedidos := _GetPedidos;
end;
Result := (AFactura as IBizFacturaProveedor);
finally
HideHourglassCursor;
end;
end;
end.

42
Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
View File

@ -112,6 +112,24 @@
<Target Name="FacturasProveedor_controller:Make">
<MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="AlbProv_FacProv_relation">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="" />
</Target>
<Target Name="AlbProv_FacProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="AlbProv_FacProv_relation:Make">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="PedProv_FacProv_relation">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="" />
</Target>
<Target Name="PedProv_FacProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="PedProv_FacProv_relation:Make">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_view">
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="" />
</Target>
@ -148,15 +166,6 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="AlbProv_FacProv_relation">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="" />
</Target>
<Target Name="AlbProv_FacProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="AlbProv_FacProv_relation:Make">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesProveedor_view">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="" />
</Target>
@ -229,15 +238,6 @@
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="PedProv_FacProv_relation">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="" />
</Target>
<Target Name="PedProv_FacProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="PedProv_FacProv_relation:Make">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="PreCli_FacCli_relation">
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" Targets="" />
</Target>
@ -302,13 +302,13 @@
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PedProv_FacProv_relation;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;AlbProv_FacProv_relation;PedProv_FacProv_relation;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PedProv_FacProv_relation:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;PedProv_FacProv_relation:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PedProv_FacProv_relation:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;AlbProv_FacProv_relation:Make;PedProv_FacProv_relation:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

1
Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas
View File

@ -11,6 +11,7 @@ type
['{FD0F5B2F-5556-4031-86F0-EFF96805FD66}']
function GetAnosItems : TStringList;
function GetItems: IBizFacturaProveedor;
function GetItemsDeAlbaran : IBizFacturaProveedor;
function GetItem(const ID : Integer) : IBizFacturaProveedor;
function NewItem : IBizFacturaProveedor;
end;

1370
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

File diff suppressed because it is too large Load Diff

1652
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

File diff suppressed because it is too large Load Diff

361
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -187,6 +187,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item
DatasetField = 'NUM_CORREOS'
TableField = 'NUM_CORREOS'
end
item
DatasetField = 'ID_ALBARAN'
TableField = 'ID_ALBARAN'
end>
end>
Name = 'FacturasProveedor'
@ -378,6 +382,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item
Name = 'NUM_CORREOS'
DataType = datSmallInt
end
item
Name = 'ID_ALBARAN'
DataType = datString
Size = 1
end>
end
item
@ -656,6 +665,354 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Size = 255
DictionaryEntry = 'FacturasProveedor_Pedidos_PROVEEDOR'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_FACTURAS_PROV_DE_ALBARANES'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA'
end
item
DatasetField = 'RE'
TableField = 'RE'
end
item
DatasetField = 'IMPORTE_RE'
TableField = 'IMPORTE_RE'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'RECARGO_EQUIVALENCIA'
TableField = 'RECARGO_EQUIVALENCIA'
end
item
DatasetField = 'ID_TIPO_IVA'
TableField = 'ID_TIPO_IVA'
end
item
DatasetField = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO'
end
item
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'NUM_COPIAS'
TableField = 'NUM_COPIAS'
end
item
DatasetField = 'NUM_CORREOS'
TableField = 'NUM_CORREOS'
end
item
DatasetField = 'ID_ALBARAN'
TableField = 'ID_ALBARAN'
end>
end>
Name = 'FacturasProveedorDeAlbaran'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_PROVEEDOR_ID'
ServerAutoRefresh = True
DictionaryEntry = 'FacturasProveedor_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'FacturasProveedor_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 20
DictionaryEntry = 'FacturasProveedor_REFERENCIA'
end
item
Name = 'TIPO'
DataType = datString
Size = 1
DictionaryEntry = 'FacturasProveedor_TIPO'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasProveedor_REFERENCIA_PROVEEDOR'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
DisplayLabel = 'Fecha vto.'
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasProveedor_SITUACION'
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_BASE_IMPONIBLE'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'FacturasProveedor_DESCUENTO'
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_IMPORTE_DESCUENTO'
end
item
Name = 'IVA'
DataType = datFloat
DictionaryEntry = 'FacturasProveedor_IVA'
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA'
end
item
Name = 'RE'
DataType = datFloat
DictionaryEntry = 'FacturasProveedor_RE'
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_IMPORTE_RE'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_IMPORTE_TOTAL'
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
DictionaryEntry = 'FacturasProveedor_OBSERVACIONES'
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
DictionaryEntry = 'FacturasProveedor_ID_PROVEEDOR'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'FacturasProveedor_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
DictionaryEntry = 'FacturasProveedor_NOMBRE'
end
item
Name = 'CALLE'
DataType = datString
Size = 150
DictionaryEntry = 'FacturasProveedor_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 150
DictionaryEntry = 'FacturasProveedor_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 30
DictionaryEntry = 'FacturasProveedor_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'FacturasProveedor_CODIGO_POSTAL'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'FacturasProveedor_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'FacturasProveedor_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 100
DictionaryEntry = 'FacturasProveedor_USUARIO'
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
DictionaryEntry = 'FacturasProveedor_ID_FORMA_PAGO'
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
DictionaryEntry = 'FacturasProveedor_RECARGO_EQUIVALENCIA'
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
DictionaryEntry = 'FacturasProveedor_ID_TIPO_IVA'
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_IMPORTE_NETO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE'
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS'
end
item
Name = 'NUM_COPIAS'
DataType = datSmallInt
end
item
Name = 'NUM_CORREOS'
DataType = datSmallInt
end
item
Name = 'ID_ALBARAN'
DataType = datInteger
end>
end>
JoinDataTables = <>
UnionDataTables = <>
@ -1269,7 +1626,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
RelationShips = <
item
Name = 'FK_FacturasProveedor_Pedidos'
MasterDatasetName = 'FacturasProveedor'
MasterDatasetName = 'FacturasProveedorDeAlbaran'
MasterFields = 'ID'
DetailDatasetName = 'FacturasProveedor_Pedidos'
DetailFields = 'ID_FACTURA'
@ -1277,7 +1634,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Name = 'FK_FacturasProveedor_Detalles'
MasterDatasetName = 'FacturasProveedor'
MasterDatasetName = 'FacturasProveedorDeAlbaran'
MasterFields = 'ID'
DetailDatasetName = 'FacturasProveedor_Detalles'
DetailFields = 'ID_FACTURA'

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -4,7 +4,7 @@ interface
uses
Classes, SysUtils, uDADataTable,
Classes, SysUtils, uDADataTable, uDAMemDataTable, FactuGES_Intf,
uControllerBase, uIDataModulePedidosProveedor, uProveedoresController,
uDetallesPedidoProveedorController, uBizPedidosProveedor;
@ -21,6 +21,7 @@ type
function Buscar(const ID: Integer): IBizPedidoProveedor;
function BuscarTodos: IBizPedidoProveedor; overload;
function BuscarPedidosProvRelacionados(const ListaIDPedidosCliente : TIntegerArray): TDAMemDataTable;
function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload;
function BuscarPendientesRecepcion: IBizPedidoProveedor;
function BuscarSinFacturar : IBizPedidoProveedor;
@ -111,7 +112,8 @@ type
procedure Anadir(APedido : IBizPedidoProveedor);
function Buscar(const ID: Integer): IBizPedidoProveedor;
function BuscarTodos: IBizPedidoProveedor; overload;
function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload;
function BuscarPedidosProvRelacionados(const ListaIDPedidosCliente : TIntegerArray): TDAMemDataTable;
function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload;
function BuscarPendientesRecepcion: IBizPedidoProveedor;
function BuscarSinFacturar : IBizPedidoProveedor;
function Nuevo : IBizPedidoProveedor;
@ -217,6 +219,15 @@ begin
FiltrarEmpresa(Result);
end;
function TPedidosProveedorController.BuscarPedidosProvRelacionados(const ListaIDPedidosCliente: TIntegerArray): TDAMemDataTable;
var
i: Integer;
Condicion: TDAWhereExpression;
begin
Result := FDataModule.GetItemsBase;
end;
function TPedidosProveedorController.BuscarPendientesRecepcion: IBizPedidoProveedor;
var
Condicion: TDAWhereExpression;

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

@ -37,6 +37,7 @@ type
public
function GetItems : IBizPedidoProveedor; virtual;
function GetItemsBase : TDAMemDataTable; virtual;
function GetItem(const ID : Integer) : IBizPedidoProveedor;
function NewItem : IBizPedidoProveedor;
function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
@ -202,6 +203,11 @@ begin
end;
function TDataModulePedidosProveedor.GetItems: IBizPedidoProveedor;
begin
Result := (GetItemsBase as IBizPedidoProveedor);
end;
function TDataModulePedidosProveedor.GetItemsBase: TDAMemDataTable;
var
APedido : TDAMemDataTable;
begin
@ -209,14 +215,14 @@ begin
try
APedido := CloneDataTable(tbl_PedidosProveedor);
AsignarClaseNegocio(APedido);
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
APedido.FieldByName(fld_PedidosProveedorREFERENCIA).ServerAutoRefresh := TRUE;
with TBizPedidoProveedor(APedido.BusinessEventsObj) do
Detalles := _GetDetalles;
Result := (APedido as IBizPedidoProveedor);
Result := APedido;
finally
HideHourglassCursor;
end;

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

@ -3,13 +3,14 @@ unit uIDataModulePedidosProveedor;
interface
uses
Classes, uBizPedidosProveedor, uBizDetallesPedidoProveedor;
Classes, uBizPedidosProveedor, uBizDetallesPedidoProveedor, uDAMemDataTable;
type
IDataModulePedidosProveedor = interface
['{280AA760-26CC-4962-AB08-6C473199DF86}']
function GetAnosItems : TStringList;
function GetItems: IBizPedidoProveedor;
function GetItemsBase : TDAMemDataTable;
function GetItem(const ID : Integer) : IBizPedidoProveedor;
function NewItem : IBizPedidoProveedor;
function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;

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

@ -117,15 +117,6 @@
<Target Name="PedidosProveedor_model:Make">
<MSBuild Projects="Model\PedidosProveedor_model.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_data">
<MSBuild Projects="Data\PedidosProveedor_data.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_data:Clean">
<MSBuild Projects="Data\PedidosProveedor_data.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_data:Make">
<MSBuild Projects="Data\PedidosProveedor_data.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_controller">
<MSBuild Projects="Controller\PedidosProveedor_controller.dproj" Targets="" />
</Target>
@ -135,6 +126,15 @@
<Target Name="PedidosProveedor_controller:Make">
<MSBuild Projects="Controller\PedidosProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_data">
<MSBuild Projects="Data\PedidosProveedor_data.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_data:Clean">
<MSBuild Projects="Data\PedidosProveedor_data.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_data:Make">
<MSBuild Projects="Data\PedidosProveedor_data.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesProveedor_controller">
<MSBuild Projects="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" Targets="" />
</Target>
@ -262,13 +262,13 @@
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;FacturasProveedor_controller;PedProv_FacProv_relation;PedidosProveedor_view;PedidosProveedor_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_controller;PedidosProveedor_data;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;FacturasProveedor_controller;PedProv_FacProv_relation;PedidosProveedor_view;PedidosProveedor_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_FacProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_data:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_FacProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_controller:Make;PedProv_FacProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_controller:Make;PedidosProveedor_data:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_controller:Make;PedProv_FacProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

24
Source/Modulos/Pedidos a proveedor/Plugin/uPluginPedidosProveedor.pas
View File

@ -4,7 +4,7 @@ interface
uses
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
ImgList, Controls, PngImageList, uPlugins_Intf;
ImgList, Controls, PngImageList, uPlugins_Intf, uDAMemDataTable, FactuGES_Intf;
type
TPluginPedidosProveedor = class(TModuleController, IMCPedidosProveedor)
@ -20,8 +20,8 @@ type
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure VerPedidos(const ID_Proveedor: Integer;
const ANombreProveedor : String = '');
procedure VerPedidos(const ID_Proveedor: Integer; const ANombreProveedor : String = '');
function DarPedidosRelacionados(const ListaIDPedidosCliente : TIntegerArray): TDAMemDataTable;
end;
implementation
@ -29,8 +29,8 @@ implementation
{$R *.dfm}
uses
Forms, Dialogs, SysUtils, cxControls,
uPedidosProveedorController, uBizPedidosProveedor, uPedidosProveedorViewRegister;
Forms, Dialogs, SysUtils, cxControls, uBizPedidosProveedor,
uPedidosProveedorController, uPedidosProveedorViewRegister;
function GetModule : TModuleController;
begin
@ -58,6 +58,20 @@ begin
uPedidosProveedorViewRegister.RegisterViews;
end;
function TPluginPedidosProveedor.DarPedidosRelacionados(const ListaIDPedidosCliente : TIntegerArray): TDAMemDataTable;
var
APedidosController : IPedidosProveedorController;
ATabla: TDAMemDataTable;
begin
APedidosController := TPedidosProveedorController.Create;
try
ATabla := APedidosController.BuscarPedidosProvRelacionados(ListaIDPedidosCliente);
Result := ATabla; // (ID_Proveedor);
finally
// APedidosController := NIL;
end;
end;
destructor TPluginPedidosProveedor.Destroy;
begin
uPedidosProveedorViewRegister.UnregisterViews;

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

Binary file not shown.

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

@ -69,7 +69,6 @@
<DCCReference Include="View\uIEditorDireccionEntregaPedidoCliente.pas" />
<DCCReference Include="View\uIEditorElegirArticulosPedidosCliente.pas" />
<DCCReference Include="View\uIEditorElegirPedidosCliente.pas" />
<DCCReference Include="View\uIEditorListadoProcesoPedidoCliente.pas" />
<DCCReference Include="View\uIEditorPedidoCliente.pas" />
<DCCReference Include="View\uIEditorPedidosCliente.pas" />
<DCCReference Include="View\uIEditorPedidosClientePreview.pas" />

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

@ -12,5 +12,5 @@ STRINGTABLE
BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
/* c:\temp\dtf6D6.tmp */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.drf */

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

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

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

@ -4,7 +4,7 @@ interface
uses
Classes, SysUtils, uDADataTable,
Classes, SysUtils, uDADataTable,
uControllerBase, uIDataModulePedidosCliente, uClientesController,
uDetallesPedidoClienteController, uBizPedidosCliente, uBizDetallesPedidoCliente,
uBizPedidosProveedor;
@ -34,7 +34,7 @@ type
const AHeaderText: String = '');
procedure VerDireccionEntrega(APedido : IBizPedidoCliente);
procedure VerListadoProcesoPedidoCliente(const ASituacion: String);
procedure VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True);
function Nuevo : IBizPedidoCliente;
procedure Anadir(APedido : IBizPedidoCliente);
@ -123,6 +123,7 @@ type
function BuscarTodos(const AID_Cliente: Integer): IBizPedidoCliente; overload;
function BuscarPendientes : IBizPedidoCliente;
function BuscarSituacion(Const ASituacion: String) : IBizPedidoCliente;
function BuscarPendientesPedir(const ID : Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
function BuscarPendientesPedirNoArticulos(const ID : Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
@ -136,7 +137,7 @@ type
procedure VerDireccionEntrega(APedido : IBizPedidoCliente);
function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente;
procedure VerListadoProcesoPedidoCliente(const ASituacion: String);
procedure VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True);
procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = False;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
@ -179,7 +180,7 @@ uses
uDateUtils, uIEditorPedidoCliente, uIEditorElegirPedidosCliente,
Dialogs, uIEditorDireccionEntregaPedidoCliente, uIDialogListaPedidosClienteEnvioEMail,
Variants, uSistemaFunc, uEMailUtils, uDialogElegirEMail, uIntegerListUtils, uStringsUtils,
uIEditorListadoProcesoPedidoCliente;
uModuleController, uPlugins_Intf, FactuGES_Intf;
{ TPedidosClienteController }
@ -621,30 +622,39 @@ begin
end;
end;
procedure TPedidosClienteController.VerListadoProcesoPedidoCliente(const ASituacion: String);
procedure TPedidosClienteController.VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True);
var
APedidosCliente: IBizPedidoCliente;
APedidosProveedor: IBizPedidoProveedor;
AEditor : IEditorListadoProcesoPedidoCliente;
AModule : TModuleController;
APlugin : IMCProcesoPresupuestosCliente;
ListaIDPedidosCliente: TIntegerArray;
begin
AEditor := NIL;
if not Assigned(APedidos) then
raise Exception.Create ('Pedidos no asignado (VerProcesoCompleto)');
APedidosCliente := BuscarSituacion(ASituacion);
if not APedidos.DataTable.Active then
APedidos.DataTable.Active := True;
CreateEditor('EditorListadoProcesoPedidoCLiente', IEditorListadoProcesoPedidoCLiente, AEditor);
if Assigned(AEditor) then
ListaIDPedidosCliente := TIntegerArray.Create;
if not AllItems then
ListaIDPedidosCliente.Add(APedidos.ID)
else
begin
APedidos.First;
while not APedidos.EOF do
begin
ListaIDPedidosCliente.Add(APedidos.ID);
APedidos.Next;
end;
end;
AModule := AppFactuGES.GetModule(MODULENAME_PROCESO_PRESUPUESTOS_CLIENTE);
if Assigned(AModule) then
try
// AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.PedidosCliente := APedidosCliente;
AEditor.PedidosProveedor := APedidosProveedor;
// AEditor.IdAlmacenObra := IdAlmacenObra;
// AEditor.DetalleReservas := BuscarDetalleReservas;
// AEditor.Articulo := AArticulo;
// AEditor.MultiSelect := True;
AEditor.ShowModal;
if Supports(AModule, IMCProcesoPresupuestosCliente, APlugin) then
APlugin.VerPresupuestos(ListaIDPedidosCliente);
finally
AEditor.Release;
AEditor := NIL;
APlugin := NIL;
FreeAndNil(ListaIDPedidosCliente);
end;
end;

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

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

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

@ -558,4 +558,40 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
Left = 256
Top = 272
end
object tbl_PedidosProveedor: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosCliente
LogicalName = 'PedidosProveedor'
IndexDefs = <>
Left = 520
Top = 320
end
object ds_PedidosProveedor: TDADataSource
DataSet = tbl_PedidosProveedor.Dataset
DataTable = tbl_PedidosProveedor
Left = 520
Top = 272
end
end

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

@ -3,7 +3,7 @@ unit uDataModulePedidosCliente;
interface
uses
DB, Classes, SysUtils, uDADesigntimeCall,
DB, Classes, SysUtils, uDADesigntimeCall,
uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider,
uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
@ -31,6 +31,8 @@ type
ds_PedidosCliente_Detalles: TDADataSource;
tbl_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos: TDAMemDataTable;
ds_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos: TDADataSource;
tbl_PedidosProveedor: TDAMemDataTable;
ds_PedidosProveedor: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
@ -56,7 +58,7 @@ type
const ImprimirPrecio: Boolean = True;
const ImprimirRefProveedor: Boolean = True): Binary;
function GetAnosItems : TStringList;
function GetAnosItems : TStringList;
end;
implementation
@ -220,7 +222,7 @@ begin
try
APedido := CloneDataTable(tbl_PedidosCliente);
AsignarClaseNegocio(APedido);
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
APedido.FieldByName(fld_PedidosClienteREFERENCIA).ServerAutoRefresh := TRUE;

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

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

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

@ -9,15 +9,17 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosPedidos = '{39AEA87B-B095-43F4-AE81-2407C4D498F0}';
RID_PedidosCliente = '{2C37EE57-27DA-49CE-BBFC-93C2D1771DB4}';
RID_PedidosCliente_Detalles = '{389CA843-A89F-4A47-95F3-6D2FB17E6DF9}';
RID_PedidosCliente_Articulos_Pendientes = '{29EB047A-4B49-42D4-A8E9-C42EE3E471FB}';
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{1E6FC371-3B83-48DB-BB55-FEC98F3915D1}';
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{D624CEBB-93E5-4C10-9A10-CC433745B1F7}';
RID_ListaAnosPedidos = '{52367490-087A-469F-B93B-4AFF89D7D4FE}';
RID_PedidosProveedor = '{ED584C2A-011D-4C96-96D4-4C1CA33A11BD}';
RID_PedidosCliente = '{CD51EA1E-706D-47A9-9750-B21DC98C84BC}';
RID_PedidosCliente_Detalles = '{0E41F534-D8F7-4323-9ECA-3D2FE77C83B1}';
RID_PedidosCliente_Articulos_Pendientes = '{4B037FD2-288E-47FB-853E-7E9F75BE9705}';
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{C541B99A-F566-48B3-8C27-4AF629628F68}';
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{832C1605-743A-4685-B3CF-17C5D2CD1902}';
{ Data table names }
nme_ListaAnosPedidos = 'ListaAnosPedidos';
nme_PedidosProveedor = 'PedidosProveedor';
nme_PedidosCliente = 'PedidosCliente';
nme_PedidosCliente_Detalles = 'PedidosCliente_Detalles';
nme_PedidosCliente_Articulos_Pendientes = 'PedidosCliente_Articulos_Pendientes';
@ -30,6 +32,18 @@ const
{ ListaAnosPedidos field indexes }
idx_ListaAnosPedidosANO = 0;
{ PedidosProveedor fields }
fld_PedidosProveedorID = 'ID';
fld_PedidosProveedorREFERENCIA = 'REFERENCIA';
fld_PedidosProveedorNOMBRE = 'NOMBRE';
fld_PedidosProveedorSITUACION = 'SITUACION';
{ PedidosProveedor field indexes }
idx_PedidosProveedorID = 0;
idx_PedidosProveedorREFERENCIA = 1;
idx_PedidosProveedorNOMBRE = 2;
idx_PedidosProveedorSITUACION = 3;
{ PedidosCliente fields }
fld_PedidosClienteID = 'ID';
fld_PedidosClienteID_EMPRESA = 'ID_EMPRESA';
@ -197,7 +211,7 @@ const
type
{ IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
['{013A26BB-689A-4EDF-85F8-2F1499B427B4}']
['{C9EAE65F-5971-4B08-ABC0-274B4FD22461}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -230,9 +244,80 @@ type
end;
{ IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{772F1791-6705-4292-A9CF-9CAFDA0FCB3B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean;
procedure SetNOMBREIsNull(const aValue: Boolean);
function GetSITUACIONValue: String;
procedure SetSITUACIONValue(const aValue: String);
function GetSITUACIONIsNull: Boolean;
procedure SetSITUACIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
end;
{ TPedidosProveedorDataTableRules }
TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(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 GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetSITUACIONIsNull: Boolean; virtual;
procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IPedidosCliente }
IPedidosCliente = interface(IDAStronglyTypedDataTable)
['{D51AD7F0-21DB-4794-9721-69888B3E52F6}']
['{319F8BCF-0CA3-4185-896C-DD22DF9847FD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -663,7 +748,7 @@ type
{ IPedidosCliente_Detalles }
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{574ABC3C-F487-4F6C-8D8B-E2C94B8EAA2C}']
['{69F92C81-F6E3-4D2C-B8CB-B90ADEC9A021}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -854,7 +939,7 @@ type
{ IPedidosCliente_Articulos_Pendientes }
IPedidosCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{F94E52AB-7983-45C1-9522-8F8558864380}']
['{5EEFF610-2808-4B2C-8C67-842BF7362503}']
{ Property getters and setters }
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
@ -925,7 +1010,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProv }
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
['{8D82D999-A50C-4EB0-8E4F-1CDF6439C646}']
['{7204B7EC-2122-4B60-8D15-24E8F26FD247}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@ -1068,7 +1153,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos }
IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos = interface(IDAStronglyTypedDataTable)
['{B3551FC7-D507-4452-8454-B2815339D817}']
['{C4465D1A-71FC-4F76-BC11-59F1FBCA620D}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@ -1246,6 +1331,102 @@ begin
end;
{ TPedidosProveedorDataTableRules }
constructor TPedidosProveedorDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TPedidosProveedorDataTableRules.Destroy;
begin
inherited;
end;
function TPedidosProveedorDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_PedidosProveedorID].AsInteger;
end;
procedure TPedidosProveedorDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosProveedorID].AsInteger := aValue;
end;
function TPedidosProveedorDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedorID].IsNull;
end;
procedure TPedidosProveedorDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedorID].AsVariant := Null;
end;
function TPedidosProveedorDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_PedidosProveedorREFERENCIA].AsString;
end;
procedure TPedidosProveedorDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosProveedorREFERENCIA].AsString := aValue;
end;
function TPedidosProveedorDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedorREFERENCIA].IsNull;
end;
procedure TPedidosProveedorDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedorREFERENCIA].AsVariant := Null;
end;
function TPedidosProveedorDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_PedidosProveedorNOMBRE].AsString;
end;
procedure TPedidosProveedorDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosProveedorNOMBRE].AsString := aValue;
end;
function TPedidosProveedorDataTableRules.GetNOMBREIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedorNOMBRE].IsNull;
end;
procedure TPedidosProveedorDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedorNOMBRE].AsVariant := Null;
end;
function TPedidosProveedorDataTableRules.GetSITUACIONValue: String;
begin
result := DataTable.Fields[idx_PedidosProveedorSITUACION].AsString;
end;
procedure TPedidosProveedorDataTableRules.SetSITUACIONValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosProveedorSITUACION].AsString := aValue;
end;
function TPedidosProveedorDataTableRules.GetSITUACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedorSITUACION].IsNull;
end;
procedure TPedidosProveedorDataTableRules.SetSITUACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedorSITUACION].AsVariant := Null;
end;
{ TPedidosClienteDataTableRules }
constructor TPedidosClienteDataTableRules.Create(aDataTable: TDADataTable);
var
@ -2832,6 +3013,7 @@ end;
initialization
RegisterDataTableRules(RID_ListaAnosPedidos, TListaAnosPedidosDataTableRules);
RegisterDataTableRules(RID_PedidosProveedor, TPedidosProveedorDataTableRules);
RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules);
RegisterDataTableRules(RID_PedidosCliente_Detalles, TPedidosCliente_DetallesDataTableRules);
RegisterDataTableRules(RID_PedidosCliente_Articulos_Pendientes, TPedidosCliente_Articulos_PendientesDataTableRules);

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

@ -9,17 +9,18 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosPedidosDelta = '{AFC97261-540F-44C4-9AD7-057298F1B086}';
RID_PedidosClienteDelta = '{E50F050B-03E8-4C84-91AA-9B8205480C0D}';
RID_PedidosCliente_DetallesDelta = '{506DEE40-B318-405D-BF82-CCE6502097E8}';
RID_PedidosCliente_Articulos_PendientesDelta = '{FB70B126-428D-454B-AA03-814B3F03B317}';
RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{14A7355B-4DDA-4A3F-AFF0-A0C79E98EE09}';
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{1D7515BA-4719-4377-BF5D-F3027714E5E8}';
RID_ListaAnosPedidosDelta = '{F7087B26-16C3-4E50-AD14-5EF21B59DB5C}';
RID_PedidosProveedorDelta = '{7D954D17-215A-4D4C-A7FE-6BA75062958F}';
RID_PedidosClienteDelta = '{9B8545B7-930D-4DF6-B52A-C07AC8BD6EA7}';
RID_PedidosCliente_DetallesDelta = '{99199B9F-C476-4E54-8385-4D894E1E857F}';
RID_PedidosCliente_Articulos_PendientesDelta = '{21228D66-8988-46CB-AFD0-E265C9D1F4DB}';
RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{6A988443-1420-48A3-8E88-444796A56BE1}';
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{53B6BA3C-0BC4-40E5-9CB1-04539F4EB028}';
type
{ IListaAnosPedidosDelta }
IListaAnosPedidosDelta = interface(IListaAnosPedidos)
['{AFC97261-540F-44C4-9AD7-057298F1B086}']
['{F7087B26-16C3-4E50-AD14-5EF21B59DB5C}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -51,9 +52,79 @@ type
end;
{ IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor)
['{7D954D17-215A-4D4C-A7FE-6BA75062958F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldNOMBREValue : String;
function GetOldSITUACIONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldSITUACION : String read GetOldSITUACIONValue;
end;
{ TPedidosProveedorBusinessProcessorRules }
TPedidosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosProveedor, IPedidosProveedorDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(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 GetNOMBREValue: String; virtual;
function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
function GetOldNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetSITUACIONValue: String; virtual;
function GetSITUACIONIsNull: Boolean; virtual;
function GetOldSITUACIONValue: String; virtual;
function GetOldSITUACIONIsNull: Boolean; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
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 NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IPedidosClienteDelta }
IPedidosClienteDelta = interface(IPedidosCliente)
['{E50F050B-03E8-4C84-91AA-9B8205480C0D}']
['{9B8545B7-930D-4DF6-B52A-C07AC8BD6EA7}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -485,7 +556,7 @@ type
{ IPedidosCliente_DetallesDelta }
IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles)
['{506DEE40-B318-405D-BF82-CCE6502097E8}']
['{99199B9F-C476-4E54-8385-4D894E1E857F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer;
@ -675,7 +746,7 @@ type
{ IPedidosCliente_Articulos_PendientesDelta }
IPedidosCliente_Articulos_PendientesDelta = interface(IPedidosCliente_Articulos_Pendientes)
['{FB70B126-428D-454B-AA03-814B3F03B317}']
['{21228D66-8988-46CB-AFD0-E265C9D1F4DB}']
{ Property getters and setters }
function GetOldID_ARTICULOValue : Integer;
function GetOldCANTIDAD_PEDValue : Currency;
@ -745,7 +816,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvDelta }
IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
['{14A7355B-4DDA-4A3F-AFF0-A0C79E98EE09}']
['{6A988443-1420-48A3-8E88-444796A56BE1}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldID_ARTICULOValue : Integer;
@ -887,7 +958,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta }
IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos)
['{1D7515BA-4719-4377-BF5D-F3027714E5E8}']
['{53B6BA3C-0BC4-40E5-9CB1-04539F4EB028}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldID_ARTICULOValue : Integer;
@ -1075,6 +1146,142 @@ begin
end;
{ TPedidosProveedorBusinessProcessorRules }
constructor TPedidosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TPedidosProveedorBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TPedidosProveedorBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID];
end;
function TPedidosProveedorBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID]);
end;
function TPedidosProveedorBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID];
end;
function TPedidosProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID]);
end;
procedure TPedidosProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID] := aValue;
end;
procedure TPedidosProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID] := Null;
end;
function TPedidosProveedorBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA];
end;
function TPedidosProveedorBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA]);
end;
function TPedidosProveedorBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREFERENCIA];
end;
function TPedidosProveedorBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREFERENCIA]);
end;
procedure TPedidosProveedorBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA] := aValue;
end;
procedure TPedidosProveedorBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA] := Null;
end;
function TPedidosProveedorBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE];
end;
function TPedidosProveedorBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE]);
end;
function TPedidosProveedorBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE];
end;
function TPedidosProveedorBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE]);
end;
procedure TPedidosProveedorBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE] := aValue;
end;
procedure TPedidosProveedorBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE] := Null;
end;
function TPedidosProveedorBusinessProcessorRules.GetSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION];
end;
function TPedidosProveedorBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION]);
end;
function TPedidosProveedorBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorSITUACION];
end;
function TPedidosProveedorBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorSITUACION]);
end;
procedure TPedidosProveedorBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION] := aValue;
end;
procedure TPedidosProveedorBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION] := Null;
end;
{ TPedidosClienteBusinessProcessorRules }
constructor TPedidosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
@ -3383,6 +3590,7 @@ end;
initialization
RegisterBusinessProcessorRules(RID_ListaAnosPedidosDelta, TListaAnosPedidosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PedidosProveedorDelta, TPedidosProveedorBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PedidosClienteDelta, TPedidosClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PedidosCliente_DetallesDelta, TPedidosCliente_DetallesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PedidosCliente_Articulos_PendientesDelta, TPedidosCliente_Articulos_PendientesBusinessProcessorRules);

76
Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj
View File

@ -26,6 +26,13 @@
<Projects Include="..\Inventario\Controller\Inventario_controller.dproj" />
<Projects Include="..\Inventario\Data\Inventario_data.dproj" />
<Projects Include="..\Inventario\Views\Inventario_view.dproj" />
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
<Projects Include="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" />
<Projects Include="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" />
<Projects Include="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" />
<Projects Include="..\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.dproj" />
<Projects Include="..\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.dproj" />
<Projects Include="..\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.dproj" />
<Projects Include="..\Relaciones\Pedidos de cliente - Albaranes de cliente\PedCli_AlbCli_relation.dproj" />
<Projects Include="..\Relaciones\Pedidos de cliente - Pedidos a proveedor\PedCli_PedProv_relation.dproj" />
<Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
@ -311,14 +318,77 @@
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_model">
<MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_model:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_model:Make">
<MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_data">
<MSBuild Projects="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_data:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_data:Make">
<MSBuild Projects="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_controller">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_controller:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_controller:Make">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_plugin">
<MSBuild Projects="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_plugin:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_plugin:Make">
<MSBuild Projects="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" Targets="Make" />
</Target>
<Target Name="ProcesoPresupuestosCliente_controller">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.dproj" Targets="" />
</Target>
<Target Name="ProcesoPresupuestosCliente_controller:Clean">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="ProcesoPresupuestosCliente_controller:Make">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="ProcesoPresupuestosCliente_view">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.dproj" Targets="" />
</Target>
<Target Name="ProcesoPresupuestosCliente_view:Clean">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="ProcesoPresupuestosCliente_view:Make">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="ProcesoPresupuestosCliente_plugin">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.dproj" Targets="" />
</Target>
<Target Name="ProcesoPresupuestosCliente_plugin:Clean">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="ProcesoPresupuestosCliente_plugin:Make">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;PedCli_AlbCli_relation;PedCli_PedProv_relation;FacturasProveedor_controller;PedidosCliente_view;PedidosCliente_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasCliente_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;PedCli_AlbCli_relation;PedCli_PedProv_relation;FacturasProveedor_controller;PedidosCliente_view;PedidosCliente_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasCliente_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_plugin;ProcesoPresupuestosCliente_controller;ProcesoPresupuestosCliente_view;ProcesoPresupuestosCliente_plugin" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;PedCli_AlbCli_relation:Clean;PedCli_PedProv_relation:Clean;FacturasProveedor_controller:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasCliente_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;PedCli_AlbCli_relation:Clean;PedCli_PedProv_relation:Clean;FacturasProveedor_controller:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasCliente_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;ProcesoPresupuestosCliente_controller:Clean;ProcesoPresupuestosCliente_view:Clean;ProcesoPresupuestosCliente_plugin:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;PedCli_AlbCli_relation:Make;PedCli_PedProv_relation:Make;FacturasProveedor_controller:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasCliente_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;PedCli_AlbCli_relation:Make;PedCli_PedProv_relation:Make;FacturasProveedor_controller:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasCliente_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;ProcesoPresupuestosCliente_controller:Make;ProcesoPresupuestosCliente_view:Make;ProcesoPresupuestosCliente_plugin:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

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

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

@ -39,6 +39,58 @@ object srvPedidosCliente: TsrvPedidosCliente
Size = 254
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL =
'select'#10'ID, REFERENCIA, NOMBRE, SITUACION'#10'from V_PEDIDOS_PROVEEDO' +
'R'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end>
end>
Name = 'PedidosProveedor'
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end>
end
item
Params = <>
Statements = <

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

@ -101,9 +101,6 @@ contains
uEditorDireccionEntregaPedidoCliente in 'uEditorDireccionEntregaPedidoCliente.pas' {frEditorDireccionEntregaPedidoCliente: TForm},
uEditorElegirArticulosPedidoCliente in 'uEditorElegirArticulosPedidoCliente.pas' {frEditorElegirArticulosPedidoCliente: TForm},
uEditorPedidosClienteReport in 'uEditorPedidosClienteReport.pas' {frEditorPedidosClienteReport: T},
uDialogListaPedidosClienteEnvioEMail in 'uDialogListaPedidosClienteEnvioEMail.pas' {frDialogListaPedidosClienteEnvioEMail: T},
uDialogOpcionesProcesoPedidoCliente in 'uDialogOpcionesProcesoPedidoCliente.pas' {fDialogOpcionesProcesoPedidoCliente: TfEditorPedidosProveedor},
uEditorListadoProcesoPedidoCliente in 'uEditorListadoProcesoPedidoCliente.pas' {fEditorListadoProcesoPedidoCliente: TfEditorPedidosProveedor},
uViewListadoProcesoPedidoCliente in 'uViewListadoProcesoPedidoCliente.pas' {frViewListadoProcesoPedidoCliente: TFrame};
uDialogListaPedidosClienteEnvioEMail in 'uDialogListaPedidosClienteEnvioEMail.pas' {frDialogListaPedidosClienteEnvioEMail: T};
end.

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

@ -119,8 +119,8 @@
<DesignClass>TfEditorPedidosProveedor</DesignClass>
</DCCReference>
<DCCReference Include="uDialogOpcionesProcesoPedidoCliente.pas">
<Form>fDialogOpcionesProcesoPedidoCliente</Form>
<DesignClass>TfEditorPedidosProveedor</DesignClass>
<Form>fDialogOpcionesProcesoPedidoCliente</Form>
</DCCReference>
<DCCReference Include="uEditorDireccionEntregaPedidoCliente.pas">
<Form>frEditorDireccionEntregaPedidoCliente</Form>
@ -130,10 +130,6 @@
<Form>frEditorElegirArticulosPedidoCliente</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="uEditorListadoProcesoPedidoCliente.pas">
<Form>fEditorListadoProcesoPedidoCliente</Form>
<DesignClass>TfEditorPedidosProveedor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorPedidoCliente.pas">
<Form>frEditorPedidoCliente</Form>
<DesignClass>TFrame</DesignClass>
@ -163,10 +159,6 @@
<Form>frViewElegirArticulosPedidosCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewListadoProcesoPedidoCliente.pas">
<Form>frViewListadoProcesoPedidoCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewPedidoCliente.pas">
<Form>frViewPedidoCliente</Form>
<DesignClass>TFrame</DesignClass>

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

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

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

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

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

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

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

@ -89,7 +89,7 @@ uses
// uGenerarFacturasProvPedUtils,
// uInventarioController, uBizInventario,
uDialogUtils, uGridStatusUtils, uDBSelectionListUtils, cxControls,
uDialogOpcionesImpresionPedidosCliente, uDialogOpcionesProcesoPedidoCliente,
uDialogOpcionesImpresionPedidosCliente,
uGestorInformesController,
// uAlbaranesProveedorController, uBizAlbaranesProveedor,
uGenerarAlbaranesCliUtils, uGenerarPedidosProvUtils;
@ -260,12 +260,29 @@ end;
procedure TfEditorPedidosCliente.actVerProcesoCompletoExecute(Sender: TObject);
var
ASituacion: String;
APedidos: IBizPedidoCliente;
AllItems: Boolean;
begin
inherited;
ASituacion := 'PENDIENTE';
if ElegirOpcionesProcesoPedidoCliente(ASituacion) then
FController.VerListadoProcesoPedidoCliente(ASituacion);
APedidos := Nil;
AllItems := False;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
//Si esta agrupado solo podré imprimir la lista de elementos visibles
// if not ViewGrid.esSeleccionCeldaDatos then
// inherited
// else
if AllItems then
begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
APedidos := (Controller as IPedidosClienteController).ExtraerSeleccionados(Pedidos) as IBizPedidoCliente;
end
else
APedidos := Pedidos;
if Assigned(APedidos) then
FController.VerProcesoCompleto(APedidos, AllItems);
end;
constructor TfEditorPedidosCliente.Create(AOwner: TComponent);

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

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

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

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

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

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

BIN
Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dpk Normal file
View File

Binary file not shown.

553
Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dproj Normal file
View File

@ -0,0 +1,553 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid>
<MainSource>ProcesoPresupuestosCliente_controller.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\ProcesoPresupuestosCliente_controller.bpl</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">ProcesoPresupuestosCliente_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="ProcesoPresupuestosCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\AlbaranesProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\AlbaranesProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\designide.dcp" />
<DCCReference Include="..\..\Lib\FacturasProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Lib\PedidosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\PedidosCliente_model.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" />
<DCCReference Include="..\..\Lib\xmlrtl.dcp" />
<DCCReference Include="uProcesoPresupuestosClienteController.pas" />
<DCCReference Include="View\uIEditorProcesoPresupuestosCliente.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

16
Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.drc Normal file
View File

@ -0,0 +1,16 @@
/* VER185
Generated by the CodeGear Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.res */
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.drf */

38
Source/Modulos/ProcesoPresupuestoCliente/Controller/View/uIEditorProcesoPresupuestosCliente.pas Normal file
View File

@ -0,0 +1,38 @@
unit uIEditorProcesoPresupuestosCliente;
interface
uses
uEditorDBItem, uBizPedidosCliente, uBizPedidosProveedor, uBizAlbaranesProveedor,
uBizFacturasProveedor;
//uPedidosClienteController;
type
IEditorProcesoPresupuestosCliente = interface(IEditorDBItem)
['{B927F0A3-EE94-4E9C-A777-4282A78F65D2}']
// function GetController : IPedidosClienteController;
// procedure SetController (const Value : IPedidosClienteController);
// property Controller : IPedidosClienteController read GetController
// write SetController;
function GetPedidosCliente: IBizPedidoCliente;
procedure SetPedidosCliente(const Value: IBizPedidoCliente);
property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente;
function GetPedidosProveedor: IBizPedidoProveedor;
procedure SetPedidosProveedor(const Value: IBizPedidoProveedor);
property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor;
function GetAlbaranesProveedor: IBizAlbaranProveedor;
procedure SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);
property AlbaranesProveedor: IBizAlbaranProveedor read GetAlbaranesProveedor write SetAlbaranesProveedor;
function GetFacturasProveedor: IBizFacturaProveedor;
procedure SetFacturasProveedor(const Value: IBizFacturaProveedor);
property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor;
end;
implementation
end.

243
Source/Modulos/ProcesoPresupuestoCliente/Controller/uProcesoPresupuestosClienteController.pas Normal file
View File

@ -0,0 +1,243 @@
unit uProcesoPresupuestosClienteController;
interface
uses
Classes, SysUtils, uDADataTable, FactuGES_Intf,
uControllerBase, uIDataModulePedidosCliente,
uBizPedidosCliente, uPedidosClienteController,
uBizPedidosProveedor, uPedidosProveedorController,
uBizAlbaranesProveedor, uAlbaranesProveedorController,
uBizFacturasProveedor, uFacturasProveedorController;
type
IProcesoPresupuestosClienteController = interface(IControllerBase)
['{CBF0D9CF-2CFB-4205-9891-4BAA4EFE0D7C}']
procedure VerProceso(const ListaIDPresupuestosCliente: TIntegerArray);
end;
TProcesoPresupuestosClienteController = class(TControllerBase, IProcesoPresupuestosClienteController)
private
FPedidosClienteController : IPedidosClienteController;
FPedidosProveedorController : IPedidosProveedorController;
FAlbaranesProveedorController : IAlbaranesProveedorController;
FFacturasProveedorController : IFacturasProveedorController;
public
constructor Create; override;
destructor Destroy; override;
function BuscarPedidosCliente(const ListaIDPresupuestosCliente: TIntegerArray): IBizPedidoCliente;
function BuscarPedidosProveedor(const ListaIDPresupuestosCliente: TIntegerArray): IBizPedidoProveedor;
function BuscarAlbaranesProveedor(APedidosProveedor: IBizPedidoProveedor): IBizAlbaranProveedor;
function BuscarFacturasProveedor(AAlbaranesProveedor: IBizAlbaranProveedor): IBizFacturaProveedor;
procedure VerProceso(const ListaIDPresupuestosCliente: TIntegerArray);
end;
implementation
uses
uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
uFactuGES_App, uDataTableUtils, uDataModuleUsuarios, Forms,
schPedidosClienteClient_Intf, uDAInterfaces,
uDateUtils, Dialogs, Variants, uSistemaFunc, uIntegerListUtils, uStringsUtils,
uIEditorProcesoPresupuestosCliente, uModuleController;
{ TProcesoPresupuestosClienteController }
constructor TProcesoPresupuestosClienteController.Create;
begin
inherited;
FPedidosClienteController := TPedidosClienteController.Create;
FPedidosProveedorController := TPedidosProveedorController.Create;
FAlbaranesProveedorController := TAlbaranesProveedorController.Create;
FFacturasProveedorController := TFacturasProveedorController.Create;
end;
destructor TProcesoPresupuestosClienteController.Destroy;
begin
FPedidosClienteController := Nil;
FPedidosProveedorController := Nil;
FAlbaranesProveedorController := Nil;
FFacturasProveedorController := Nil;
inherited;
end;
function TProcesoPresupuestosClienteController.BuscarAlbaranesProveedor(APedidosProveedor: IBizPedidoProveedor): IBizAlbaranProveedor;
var
Condicion: TDAWhereExpression;
AArray : Array of TDAWhereExpression;
i: Integer;
begin
Result := FAlbaranesProveedorController.BuscarTodos;
//Quitamos el filtro por empresa ya que no es necesario y complicaría where que hacemos a continuación, además de que puede darse el caso de haber dado de alta un pedido de proveedor con otra empresa?
Result.DataTable.DynamicWhere.Clear;
if Assigned(Result) then
begin
//Vamos generando todos los where necesarios para cada uno de los ID de Pedido de proveedor que buscamos
// Filtrar los Presupuestos pendientes de recepcion
with Result.DataTable.DynamicWhere do
begin
APedidosProveedor.Open;
SetLength(AArray, APedidosProveedor.RecordCount);
APedidosProveedor.First;
i:=0;
while not ApedidosProveedor.EOF do
begin
AArray[i] := NewConstant(APedidosProveedor.ID, datInteger);
Inc(i);
APedidosProveedor.Next;
end;
// (ID_PEDIDO in lista IDs)
Condicion := NewBinaryExpression(NewField('', 'ID_PEDIDO'), NewList(AArray), dboIn);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
APedidosProveedor.Close;
end;
end;
end;
function TProcesoPresupuestosClienteController.BuscarFacturasProveedor(AAlbaranesProveedor: IBizAlbaranProveedor): IBizFacturaProveedor;
var
Condicion: TDAWhereExpression;
AArray : Array of TDAWhereExpression;
i: Integer;
begin
Result := FFacturasProveedorController.BuscarTodosDeAlbaran;
if Assigned(Result) then
begin
// Filtrar los Presupuestos pendientes de recepcion
with Result.DataTable.DynamicWhere do
begin
//Vamos generando todos los where necesarios para cada uno de los ID de Pedido de proveedor que buscamos
AAlbaranesProveedor.Open;
SetLength(AArray, AAlbaranesProveedor.RecordCount);
AAlbaranesProveedor.First;
i:=0;
while not AAlbaranesProveedor.EOF do
begin
if not AAlbaranesProveedor.ID_FACTURAIsNull then
begin
AArray[i] := NewConstant(AAlbaranesProveedor.ID, datInteger);
Inc(i);
end;
AAlbaranesProveedor.Next;
end;
// (ID in lista de IDs)
Condicion := NewBinaryExpression(NewField('', 'ID_ALBARAN'), NewList(AArray), dboIn);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboOr);
AAlbaranesProveedor.Close;
end;
end;
end;
function TProcesoPresupuestosClienteController.BuscarPedidosCliente(const ListaIDPresupuestosCliente: TIntegerArray): IBizPedidoCliente;
var
Condicion: TDAWhereExpression;
AArray : Array of TDAWhereExpression;
i: Integer;
begin
Result := FPedidosClienteController.BuscarTodos;
//Quitamos el filtro por empresa ya que no es necesario y complicaría where que hacemos a continuación
Result.DataTable.DynamicWhere.Clear;
if Assigned(Result) then
begin
// Filtrar los pedidos de cliente que esten en la lista
with Result.DataTable.DynamicWhere do
begin
SetLength(AArray, ListaIDPresupuestosCliente.Count);
//Vamos generando la lista de ID de pedidos de cliente que vamos a inlcuir en la clausula IN
for i := 0 to ListaIDPresupuestosCliente.Count - 1 do
AArray[i] := NewConstant(ListaIDPresupuestosCliente.Items[i], datInteger);
// (ID IN lista de IDs)
Condicion := NewBinaryExpression(NewField('', fld_PedidosClienteID), NewList(AArray), dboIn);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
end;
function TProcesoPresupuestosClienteController.BuscarPedidosProveedor(const ListaIDPresupuestosCliente: TIntegerArray): IBizPedidoProveedor;
var
Condicion: TDAWhereExpression;
AArray : Array of TDAWhereExpression;
i: Integer;
begin
Result := FPedidosProveedorController.BuscarTodos;
//Quitamos el filtro por empresa ya que no es necesario y complicaría where que hacemos a continuación, además de que puede darse el caso de haber dado de alta un pedido de proveedor con otra empresa?
Result.DataTable.DynamicWhere.Clear;
if Assigned(Result) then
begin
// Filtrar los Pedidos de proveedor relacionados con los pedidos de cliente pasados por parametro
with Result.DataTable.DynamicWhere do
begin
SetLength(AArray, ListaIDPresupuestosCliente.Count);
//Vamos generando la lista de ID de pedidos de cliente que vamos a inlcuir en la clausula IN
for i := 0 to ListaIDPresupuestosCliente.Count - 1 do
AArray[i] := NewConstant(ListaIDPresupuestosCliente.Items[i], datInteger);
// (ID_PEDIDO_CLIENTE IN lista de IDs)
Condicion := NewBinaryExpression(NewField('', 'ID_PEDIDO_CLIENTE'), NewList(AArray), dboIn);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
end;
procedure TProcesoPresupuestosClienteController.VerProceso(const ListaIDPresupuestosCliente: TIntegerArray);
var
AEditor : IEditorProcesoPresupuestosCliente;
APedidosCliente: IBizPedidoCliente;
APedidosProveedor: IBizPedidoProveedor;
AAlbaranesProveedor: IBizAlbaranProveedor;
AFacturasProveedor: IBizFacturaProveedor;
begin
AEditor := NIL;
APedidosCliente := BuscarPedidosCliente(ListaIDPresupuestosCliente);
APedidosProveedor := BuscarPedidosProveedor(ListaIDPresupuestosCliente);
AAlbaranesProveedor := BuscarAlbaranesProveedor(APedidosProveedor);
AFacturasProveedor := BuscarFacturasProveedor(AAlbaranesProveedor);
CreateEditor('EditorProcesoPresupuestosCLiente', IEditorProcesoPresupuestosCliente, AEditor);
if Assigned(AEditor) then
try
// AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.PedidosCliente := APedidosCliente;
AEditor.PedidosProveedor := APedidosProveedor;
AEditor.AlbaranesProveedor := AAlbaranesProveedor;
AEditor.FacturasProveedor := AFacturasProveedor;
AEditor.ShowModal;
finally
AEditor.Release;
AEditor := NIL;
end;
end;
end.

BIN
Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.dpk Normal file
View File

Binary file not shown.

549
Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.dproj Normal file
View File

@ -0,0 +1,549 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{e7d762a1-3a15-46b2-bd5b-3821d13b8347}</ProjectGuid>
<MainSource>ProcesoPresupuestosCliente_plugin.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\ProcesoPresupuestosCliente_plugin.bpl</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">ProcesoPresupuestosCliente_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="ProcesoPresupuestosCliente_plugin.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\ProcesoPresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\ProcesoPresupuestosCliente_view.dcp" />
<DCCReference Include="uPluginProcesoPresupuestosCliente.pas">
<Form>PluginProcesoPresupuestosCliente</Form>
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

17
Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.drc Normal file
View File

@ -0,0 +1,17 @@
/* VER185
Generated by the CodeGear Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\uPluginProcesoPresupuestosCliente.dfm */
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.res */
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.drf */

128
Source/Modulos/ProcesoPresupuestoCliente/Plugin/uPluginProcesoPresupuestosCliente.dfm Normal file
View File

@ -0,0 +1,128 @@
object PluginProcesoPresupuestosCliente: TPluginProcesoPresupuestosCliente
OldCreateOrder = True
Description = 'Ventas'
ModuleMenu = MainMenu
ModuleName = 'Pedidos de cliente'
SmallImages = SmallImages
LargeImages = LargeImages
Author = 'Rodax Software'
Version = '1.0.0'
Height = 252
Width = 401
object LargeImages: TPngImageList
Height = 24
Width = 24
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD2520000026C4944415478DA
63FCFFFF3FC3A28DC7FF335009C4F95B3222F319611600254836ECEFDF7F40FC
1F4C8380856F36C3C53DB3705BB0D7D21EC500E7E307711A8EACD674CF2E8679
ABF730CC5FB211BF05A4B8FC808D2383328B34C3B6D3CB19225F7E6358B87E1F
610BB0F9005D0C046C0FEE63386CEFC470F3FC21303FECD91786259B0E50E683
FFFF80610DC47F80AE07B17FFF0386FF9F7F60DFFCF9F79761C596C3A4FB8018
00F285EF83770C6B771C23CE0298B749015E77DF306CD87D82380BF0A51C6C00
A44771E55A864DFB4E126F01AEA082590E9387A9955BBE8661EB8153B4F381E4
92550CBB0E9FA1AE0F6EAA108EABC75FEDC8F3C1B4584686847408FBE74F0686
5F3F2018C4FEF903824F1C47B320DAC71C9C3B09F98058C3F9251818AEDC45B2
20C2D30C9C3BF1F90064388B207EDFFD798F301C250E42DD4C188E39B910B400
E67A10F8F80EE2E21F5097FFFACEC070FA0C2468EC0D0F311C3C8FE483001723
86D32E6E785D078A5890664200643808A058E0EB60002F5720E5FC3F70D90316
0396F94FA343C11620FB001C247F81F83703C36F501C007D70ED3A420EC5022F
5B3D9C8683E81771E11816FCFA05341888FF40E995ABD919D4357E32B0B160B1
C0CD5A1BA7E1A012F44D62248605A038005B00F201106FDACACE202D0FB1808D
9581E1F865240B1CCD35C086FDFB0B29967FFF4514C7FFFE432C3ADD2D8F62C1
9B1708C341166DDFCDCE202A0DB1E0F21D3B86F6750719E116D899A8814B447C
806DAF0FDC0250F0BC7B89301C44EF39C0CEC02FFE93E1FE1388E128C9B477F2
7C82A9235D7236D882A993D971AA79F7DB1C6E38DC0262417738C73AA00181F8
D4201B0E0200C20B50400F1E42A70000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end>
Left = 232
Top = 16
Bitmap = {}
end
object ModuleActionList: TActionList
Images = LargeImages
Left = 40
Top = 72
end
object MainMenu: TMainMenu
Images = LargeImages
Left = 40
Top = 16
object Ventas1: TMenuItem
Caption = 'Ventas'
end
end
object SmallImages: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001864944415478DA
63FCFFFF3FC384055BFF3390010A12BC1919610600394469FAF3F71FC3EF3F7F
192CBCB3192EEE99856AC05E4B2B14C5CEC78F81696471AB030719662EDFC530
7FC9464C03F0815FBFFF826D06D10BD7EDC36E00BA0BB001DDAD3B19966D3A84
DB0098B341E01F50EECF9F7F709BCFB93B33686EDCCEB06ADB11FC06C05C627B
E830C3613B5BB8CD97BDDD1954D66E6158BFEB387E0360367FBA7990E1C5C218
7C3E72C130C0F1D85186FD56D66059719B070CAA2D350CECEC59183A7FFE9CC6
303BB68501C30090B3617E7EDAACCCA0D3FD0CAC180EBE7F6760F8F19D61FA0E
4306966DA9080372623D190EDAD8A0D80272018A0120CD1FDE81E9E9279D510D
488F7463F805B4F9CF6F50A8FF61B8EAEB816A004CF37B20FEF19361FACD6054
0312439DE19A415EB815E88D30E0432F42F3870F1017BC4A45352036C011AE19
140320D7FC9E6A0031E041354233D80540037E95A31A10E163CBB062CB61D438
BA9A0A8E85E9CBE5B1C6218A01A084810EB478DF3058B39EC099081CE4195C00
45135E518E0B4E380000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end>
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
Left = 308
Top = 16
Bitmap = {}
end
object ExtraImages: TPngImageList
Height = 28
Width = 28
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000000970485973000017120000171201679FD252000003184944415478DA
BDD6DB4FD3501800F06F82F6C107E28391B8183418F14570720B48C655AEC328
8A08A2F1CD3FC3F860F8030CC6784110C1B1B13137184C186C5CD62108084443
A2214613131FBC3C88BBB43DF6B4A3ACA36B3B48F8B6939EB6A7E777BE73D6B5
1A8410EC6568303830BECAA9B8CE15861F84B0CF7EB86FA4CE0D92FB2248DA97
24D9F1F5DA6C4D5CD0EA5E410DE567763C6A86ED83610749D30CD00C03858DB7
60C9618C0F5AC696D1958A4C7017146E6B504EFAE242B1ED0B263CF0D8380A9D
966E7560A281C18CBA0B40B956C1B96085D61F01E8308F2983FD6FDEA3AB9559
7133943A5EEA9B8189C2F3B0B64C0AC79ABF6F4097755C1934BB965063D559D5
99E175A269C46DF1DA5114231CEBB17B9441936B115DABD24966A23670A60D5F
FE8071704A0538C282D53C183D4589C6A5F5DF60724E2B837DC30BA8A9E61C07
CAFD2AE5025F7BCA3A0416974F19343ADF21F646DD3598DEEF00DBA85F197CE5
9C47CDB5390228B7969B038A6EB379CD71931D1CEE5965B077680EB5D4E5EE3A
436DAF0D46BC732AC041163424063EBCA951D56E33BEFED5439BD5ABE1C09EC1
B7E886214FF59462ECF69DEDE782418050802FB81E0CF0C54FC6802F1DB3A8B5
3E5F55863BC1525201563F4783F659D4529FC7FD55C981184B3EA47E1AA95F5B
180E017CF19A64D7301FBC4545B253BA769294CC2E80B3D9E0330A44320BFD03
989BE7A7B2583709DE45BD186CAAC985E962BD6286B88344026338446097CD87
1AAB73802C2D5104A53214A690664B18208CD790CDF0C3C7AD7322B07360065D
AEC886F9CA32D9D1C69B521CA1100BB1858A6CFBCC04649C0EC281E438E0C532
5DE491438B5E1768867F7DA0D8FD89BBA992602C86B3B4D8083891CE82FB8143
45E073EB343294E86431BC3F79EFE836500A0BB3C53E4480368DCF10A3E44A14
D8619942B5C559B2184D2198B9AF1581F1305C1F1E25E0B09607573EF118BE86
039FF54FA21A7D962C86B7FEB663022887E1ED98878094234158FFB68509E053
B31755156572CF32B938E0367060FB0342D52DF1339C2FC204F089C983DABB1F
2976A027FC7090495385E188C504702FE33F1F65CAE7611BEC0A000000004945
4E44AE426082}
Name = 'PngImage0'
Background = clWindow
end>
Left = 232
Top = 80
Bitmap = {}
end
end

71
Source/Modulos/ProcesoPresupuestoCliente/Plugin/uPluginProcesoPresupuestosCliente.pas Normal file
View File

@ -0,0 +1,71 @@
unit uPluginProcesoPresupuestosCliente;
interface
uses
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
ImgList, Controls, PngImageList, uPlugins_Intf, FactuGES_Intf;
type
TPluginProcesoPresupuestosCliente = class(TModuleController, IMCProcesoPresupuestosCliente)
ExtraImages: TPngImageList;
LargeImages: TPngImageList;
MainMenu: TMainMenu;
ModuleActionList: TActionList;
SmallImages: TPngImageList;
Ventas1: TMenuItem;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure VerPresupuestos(const ListaIDPresupuestosCliente : TIntegerArray);
end;
implementation
{$R *.dfm}
uses
Forms, Dialogs, SysUtils, cxControls,
uProcesoPresupuestosClienteController, uProcesoPresupuestosClienteViewRegister;
function GetModule : TModuleController;
begin
Result := TPluginProcesoPresupuestosCliente.Create(NIL);
end;
exports
GetModule name GET_MODULE_FUNC;
constructor TPluginProcesoPresupuestosCliente.Create(AOwner: TComponent);
begin
inherited;
ModuleName := MODULENAME_PROCESO_PRESUPUESTOS_CLIENTE;
uProcesoPresupuestosClienteViewRegister.RegisterViews;
end;
destructor TPluginProcesoPresupuestosCliente.Destroy;
begin
uProcesoPresupuestosClienteViewRegister.UnregisterViews;
inherited;
end;
procedure TPluginProcesoPresupuestosCliente.VerPresupuestos(const ListaIDPresupuestosCliente: TIntegerArray);
var
AProcesoPresupuestosClienteController : IProcesoPresupuestosClienteController;
begin
AProcesoPresupuestosClienteController := TProcesoPresupuestosClienteController.Create;
try
ShowHourglassCursor;
AProcesoPresupuestosClienteController.VerProceso(ListaIDPresupuestosCliente);
finally
AProcesoPresupuestosClienteController := NIL;
end;
end;
initialization
RegisterModuleClass(TPluginProcesoPresupuestosCliente);
finalization
UnRegisterModuleClass(TPluginProcesoPresupuestosCliente);
end.

39
Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dpk Normal file
View File

@ -0,0 +1,39 @@
package ProcesoPresupuestosCliente_view;
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$IMPLICITBUILD OFF}
requires
ApplicationBase,
PedidosProveedor_model,
PedidosCliente_model,
ProcesoPresupuestosCliente_controller,
AlbaranesProveedor_model;
contains
uProcesoPresupuestosClienteViewRegister in 'uProcesoPresupuestosClienteViewRegister.pas',
uEditorProcesoPresupuestosCliente in 'uEditorProcesoPresupuestosCliente.pas' {fEditorProcesoPresupuestosCliente: TfEditorPedidosProveedor},
uViewProcesoPresupuestosCliente in 'uViewProcesoPresupuestosCliente.pas' {frViewProcesoPresupuestosCliente: TFrame};
end.

550
Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dproj Normal file
View File

@ -0,0 +1,550 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
<MainSource>ProcesoPresupuestosCliente_view.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\ProcesoPresupuestosCliente_view.bpl</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">ProcesoPresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="ProcesoPresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\AlbaranesProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\PedidosCliente_model.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\ProcesoPresupuestosCliente_controller.dcp" />
<DCCReference Include="uEditorProcesoPresupuestosCliente.pas">
<Form>fEditorProcesoPresupuestosCliente</Form>
<DesignClass>TfEditorPedidosProveedor</DesignClass>
</DCCReference>
<DCCReference Include="uProcesoPresupuestosClienteViewRegister.pas" />
<DCCReference Include="uViewProcesoPresupuestosCliente.pas">
<Form>frViewProcesoPresupuestosCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

18
Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.drc Normal file
View File

@ -0,0 +1,18 @@
/* VER185
Generated by the CodeGear Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\uViewProcesoPresupuestosCliente.dfm */
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\uEditorProcesoPresupuestosCliente.dfm */
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.res */
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.drf */

0
Source/Modulos/Pedidos de cliente/Views/uEditorListadoProcesoPedidoCliente.dfm → Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorListadoProcesoPedidoCliente.dfm
View File

0
Source/Modulos/Pedidos de cliente/Views/uEditorListadoProcesoPedidoCliente.pas → Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorListadoProcesoPedidoCliente.pas
View File

155
Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.dfm Normal file
View File

@ -0,0 +1,155 @@
inherited fEditorProcesoPresupuestosCliente: TfEditorProcesoPresupuestosCliente
Caption = 'fEditorProcesoPresupuestosCliente'
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Caption = 'Listado de proceso completo de presupuesto de cliente'
end
inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar
ExplicitWidth = 358
end
end
inline frViewProcesoPresupuestosCliente1: TfrViewProcesoPresupuestosCliente [3]
Left = 0
Top = 102
Width = 894
Height = 383
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 3
ReadOnly = False
ExplicitTop = 102
ExplicitWidth = 894
ExplicitHeight = 383
inherited cxGrid: TcxGrid
Width = 894
Height = 255
ExplicitWidth = 894
ExplicitHeight = 255
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 894
ExplicitWidth = 894
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 894
inherited dxLayoutControl1: TdxLayoutControl
Width = 894
ExplicitWidth = 894
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 391
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 391
end
inherited eLista: TcxComboBox
Left = 659
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 659
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 894
ExplicitWidth = 894
inherited tbxBotones: TTBXToolbar
Width = 884
ExplicitWidth = 884
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 357
ExplicitTop = 357
ExplicitWidth = 894
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 894
ExplicitWidth = 894
inherited TBXToolbar1: TTBXToolbar
Width = 884
ExplicitWidth = 884
end
end
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 41516.564243344910000000
BuiltInReportLink = True
end
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
GridView = frViewProcesoPresupuestosCliente1.cxGridView
HitTypes = [gvhtCell]
Index = 0
end>
end
end
inherited EditorActionList: TActionList [4]
inherited actNuevo: TAction
Enabled = False
Visible = False
end
inherited actModificar: TAction
Enabled = False
Visible = False
end
inherited actGuardarCerrar: TAction
Visible = False
end
inherited actGuardar: TAction
Visible = False
end
inherited actEliminar: TAction
Enabled = False
Visible = False
end
inherited actPrevisualizar: TAction
Visible = True
end
inherited actImprimir: TAction
Visible = True
end
inherited actDuplicar: TAction
Enabled = False
Visible = False
end
end
inherited SmallImages: TPngImageList [5]
end
inherited LargeImages: TPngImageList [6]
end
inherited JvFormStorage: TJvFormStorage [7]
end
inherited dsDataTable: TDADataSource [8]
Left = 40
Top = 120
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [9]
end
inherited StatusBarImages: TPngImageList [10]
end
end

154
Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.pas Normal file
View File

@ -0,0 +1,154 @@
unit uEditorProcesoPresupuestosCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorGridBase, Menus, JvAppStorage, JvAppRegistryStorage, DB,
uDAInterfaces, uDADataTable, JvComponentBase, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uIEditorProcesoPresupuestosCLiente,
uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewProcesoPresupuestosCliente, uBizPedidosCliente, uBizPedidosProveedor,
uBizAlbaranesProveedor, uBizFacturasProveedor;
type
TfEditorProcesoPresupuestosCliente = class(TfEditorGridBase, IEditorProcesoPresupuestosCliente)
frViewProcesoPresupuestosCliente1: TfrViewProcesoPresupuestosCliente;
procedure FormShow(Sender: TObject);
protected
FPedidosCliente: IBizPedidoCliente;
FPedidosProveedor: IBizPedidoProveedor;
FAlbaranesProveedor: IBizAlbaranProveedor;
FFacturasProveedor: IBizFacturaProveedor;
function GetPedidosCliente: IBizPedidoCliente;
procedure SetPedidosCliente(const Value: IBizPedidoCliente);
function GetPedidosProveedor: IBizPedidoProveedor;
procedure SetPedidosProveedor(const Value: IBizPedidoProveedor);
function GetAlbaranesProveedor: IBizAlbaranProveedor;
procedure SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);
function GetFacturasProveedor: IBizFacturaProveedor;
procedure SetFacturasProveedor(const Value: IBizFacturaProveedor);
public
property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente;
property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor;
property AlbaranesProveedor: IBizAlbaranProveedor read GetAlbaranesProveedor write SetAlbaranesProveedor;
property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
{ TfEditorListadoProcesoPedidoCliente }
constructor TfEditorProcesoPresupuestosCliente.Create(AOwner: TComponent);
begin
inherited;
ViewGrid := frViewProcesoPresupuestosCliente1;
end;
destructor TfEditorProcesoPresupuestosCliente.Destroy;
begin
FPedidosCliente := Nil;
FPedidosProveedor := Nil;
FAlbaranesProveedor := Nil;
FFacturasProveedor := Nil;
inherited;
end;
procedure TfEditorProcesoPresupuestosCliente.FormShow(Sender: TObject);
begin
inherited;
if not Assigned(ViewGrid) then
raise Exception.Create('No hay ninguna vista asignada');
if not Assigned(PedidosCliente) then
raise Exception.Create('No hay ningun pedido de cliente asignado');
PedidosCliente.DataTable.Active := True;
if not Assigned(PedidosProveedor) then
raise Exception.Create('No hay ningun pedido de proveedor asignado');
PedidosProveedor.DataTable.Active := True;
if not Assigned(AlbaranesProveedor) then
raise Exception.Create('No hay ningun albarán de proveedor asignado');
AlbaranesProveedor.DataTable.Active := True;
if not Assigned(FacturasProveedor) then
raise Exception.Create('No hay ninguna factura de proveedor asignado');
FacturasProveedor.DataTable.Active := True;
ViewGrid.GotoFirst;
end;
function TfEditorProcesoPresupuestosCliente.GetAlbaranesProveedor: IBizAlbaranProveedor;
begin
Result := FAlbaranesProveedor;
end;
function TfEditorProcesoPresupuestosCliente.GetFacturasProveedor: IBizFacturaProveedor;
begin
Result := FFacturasProveedor;
end;
function TfEditorProcesoPresupuestosCliente.GetPedidosCliente: IBizPedidoCliente;
begin
Result := FPedidosCliente;
end;
function TfEditorProcesoPresupuestosCliente.GetPedidosProveedor: IBizPedidoProveedor;
begin
Result := FPedidosProveedor;
end;
procedure TfEditorProcesoPresupuestosCliente.SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);
begin
FAlbaranesProveedor := Value;
if Assigned(FAlbaranesProveedor) then
begin
if Assigned(ViewGrid) then
(ViewGrid as IViewListadoProcesoPedidoCliente).AlbaranesProveedor := AlbaranesProveedor;
end;
end;
procedure TfEditorProcesoPresupuestosCliente.SetFacturasProveedor(const Value: IBizFacturaProveedor);
begin
FFacturasProveedor := Value;
if Assigned(FFacturasProveedor) then
begin
if Assigned(ViewGrid) then
(ViewGrid as IViewListadoProcesoPedidoCliente).FacturasProveedor := FacturasProveedor;
end;
end;
procedure TfEditorProcesoPresupuestosCliente.SetPedidosCliente(const Value: IBizPedidoCliente);
begin
FPedidosCliente := Value;
if Assigned(FPedidosCliente) then
begin
dsDataTable.DataTable := FPedidosCliente.DataTable;
if Assigned(ViewGrid) then
(ViewGrid as IViewListadoProcesoPedidoCliente).PedidosCliente := PedidosCliente;
end;
end;
procedure TfEditorProcesoPresupuestosCliente.SetPedidosProveedor(const Value: IBizPedidoProveedor);
begin
FPedidosProveedor := Value;
if Assigned(FPedidosProveedor) then
begin
if Assigned(ViewGrid) then
(ViewGrid as IViewListadoProcesoPedidoCliente).PedidosProveedor := PedidosProveedor;
end;
end;
end.

25
Source/Modulos/ProcesoPresupuestoCliente/Views/uProcesoPresupuestosClienteViewRegister.pas Normal file
View File

@ -0,0 +1,25 @@
unit uProcesoPresupuestosClienteViewRegister;
interface
procedure RegisterViews;
procedure UnregisterViews;
implementation
uses
uEditorRegistryUtils,
uEditorProcesoPresupuestosCLiente;
procedure RegisterViews;
begin
EditorRegistry.RegisterClass(TfEditorProcesoPresupuestosCliente, 'EditorProcesoPresupuestosCliente');
end;
procedure UnregisterViews;
begin
EditorRegistry.UnRegisterClass(TfEditorProcesoPresupuestosCliente);
end;
end.

210
Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.dfm Normal file
View File

@ -0,0 +1,210 @@
inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
OnShow = CustomViewShow
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID'
OptionsCustomize.ColumnsQuickCustomization = False
OptionsView.Footer = False
inherited cxGridViewICONO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Ref. Ped. Cliente'
DataBinding.FieldName = 'REFERENCIA'
end
object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
Caption = 'Ref. del Cliente'
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Cliente'
DataBinding.FieldName = 'NOMBRE'
end
object cxGridViewSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n'
DataBinding.FieldName = 'SITUACION'
end
object cxGridViewFECHA_PEDIDO: TcxGridDBColumn
Caption = 'Fecha'
DataBinding.FieldName = 'FECHA_PEDIDO'
end
end
object cxGridViewPedidosProveedor: TcxGridDBTableView [1]
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = dsPedidosProveedor
DataController.DetailKeyFieldNames = 'ID_PEDIDO_CLIENTE'
DataController.KeyFieldNames = 'ID'
DataController.MasterKeyFieldNames = 'ID'
DataController.Options = [dcoAnsiSort, dcoCaseInsensitive, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.CellHints = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsSelection.UnselectFocusedRecordOnExit = False
OptionsView.CellEndEllipsis = True
OptionsView.NoDataToDisplayInfoText = '<No hay datos a visualizar>'
OptionsView.CellAutoHeight = True
OptionsView.ColumnAutoWidth = True
OptionsView.GridLineColor = cl3DLight
OptionsView.GridLines = glHorizontal
OptionsView.GroupByBox = False
OptionsView.GroupRowStyle = grsOffice11
OptionsView.HeaderEndEllipsis = True
object cxGridViewPedidosProveedorREFERENCIA: TcxGridDBColumn
Caption = 'Ref. Ped. Proveedor'
DataBinding.FieldName = 'REFERENCIA'
end
object cxGridViewPedidosProveedorNOMBRE: TcxGridDBColumn
Caption = 'Proveedor'
DataBinding.FieldName = 'NOMBRE'
end
object cxGridViewPedidosProveedorSITUACION: TcxGridDBColumn
DataBinding.FieldName = 'SITUACION'
end
object cxGridViewPedidosProveedorFECHA_PEDIDO: TcxGridDBColumn
Caption = 'Fecha'
DataBinding.FieldName = 'FECHA_PEDIDO'
end
end
object cxGridViewAlbaranesProveedor: TcxGridDBTableView [2]
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = dsAlbaranesProveedor
DataController.DetailKeyFieldNames = 'ID_PEDIDO'
DataController.KeyFieldNames = 'ID'
DataController.MasterKeyFieldNames = 'ID'
DataController.Options = [dcoAnsiSort, dcoCaseInsensitive, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.CellHints = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsSelection.UnselectFocusedRecordOnExit = False
OptionsView.CellEndEllipsis = True
OptionsView.NoDataToDisplayInfoText = '<No hay datos a visualizar>'
OptionsView.CellAutoHeight = True
OptionsView.ColumnAutoWidth = True
OptionsView.GridLineColor = cl3DLight
OptionsView.GridLines = glHorizontal
OptionsView.GroupByBox = False
OptionsView.GroupRowStyle = grsOffice11
OptionsView.HeaderEndEllipsis = True
object cxGridViewAlbaranesProveedorREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA'
end
object cxGridViewAlbaranesProveedorSITUACION: TcxGridDBColumn
DataBinding.FieldName = 'SITUACION'
end
object cxGridViewAlbaranesProveedorFECHA_ALBARAN: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ALBARAN'
end
end
object cxGridViewFacturasProveedor: TcxGridDBTableView [3]
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = dsFacturasProveedor
DataController.DetailKeyFieldNames = 'ID_ALBARAN'
DataController.KeyFieldNames = 'ID'
DataController.MasterKeyFieldNames = 'ID'
DataController.Options = [dcoAnsiSort, dcoCaseInsensitive, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.CellHints = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsSelection.UnselectFocusedRecordOnExit = False
OptionsView.CellEndEllipsis = True
OptionsView.NoDataToDisplayInfoText = '<No hay datos a visualizar>'
OptionsView.CellAutoHeight = True
OptionsView.ColumnAutoWidth = True
OptionsView.GridLineColor = cl3DLight
OptionsView.GridLines = glHorizontal
OptionsView.GroupByBox = False
OptionsView.GroupRowStyle = grsOffice11
OptionsView.HeaderEndEllipsis = True
object cxGridViewFacturasProveedorREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA'
end
end
inherited cxGridLevel: TcxGridLevel
object cxGridLevelPedidosProveedor: TcxGridLevel
GridView = cxGridViewPedidosProveedor
object cxGridLevelAlbaranesProveedor: TcxGridLevel
GridView = cxGridViewAlbaranesProveedor
object cxGridLevelFacturasProveedor: TcxGridLevel
GridView = cxGridViewFacturasProveedor
end
end
end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 272
Width = 272
end
inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 221
Width = 221
end
inherited eLista: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 215
Width = 215
end
end
end
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 41514.488531400460000000
BuiltInReportLink = True
end
end
object dsPedidosProveedor: TDADataSource
Left = 8
Top = 64
end
object dsAlbaranesProveedor: TDADataSource
Left = 8
Top = 112
end
object dsFacturasProveedor: TDADataSource
Left = 8
Top = 152
end
end

167
Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.pas Normal file
View File

@ -0,0 +1,167 @@
unit uViewProcesoPresupuestosCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, cxGridCustomPopupMenu, cxGridPopupMenu, ImgList,
PngImageList, ActnList, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, uDAInterfaces,
uDADataTable, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uCustomView,
uViewBase, uViewFiltroBase, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, uBizPedidosCliente, uBizPedidosProveedor, uBizAlbaranesProveedor,
uBizFacturasProveedor, Grids, DBGrids;
type
IViewListadoProcesoPedidoCliente = interface(IViewGrid)
['{51AE72F0-E6F7-49E6-A376-EBFB5B118E62}']
function GetPedidosCliente: IBizPedidoCliente;
procedure SetPedidosCliente(const Value: IBizPedidoCliente);
property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente;
function GetPedidosProveedor: IBizPedidoProveedor;
procedure SetPedidosProveedor(const Value: IBizPedidoProveedor);
property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor;
function GetAlbaranesProveedor: IBizAlbaranProveedor;
procedure SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);
property AlbaranesProveedor: IBizAlbaranProveedor read GetAlbaranesProveedor write SetAlbaranesProveedor;
function GetFacturasProveedor: IBizFacturaProveedor;
procedure SetFacturasProveedor(const Value: IBizFacturaProveedor);
property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor;
end;
TfrViewProcesoPresupuestosCliente = class(TfrViewGrid, IViewListadoProcesoPedidoCliente)
cxGridViewREFERENCIA: TcxGridDBColumn;
cxGridViewNOMBRE: TcxGridDBColumn;
cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
cxGridViewSITUACION: TcxGridDBColumn;
dsPedidosProveedor: TDADataSource;
cxGridViewPedidosProveedor: TcxGridDBTableView;
cxGridViewPedidosProveedorREFERENCIA: TcxGridDBColumn;
cxGridLevelPedidosProveedor: TcxGridLevel;
cxGridViewPedidosProveedorNOMBRE: TcxGridDBColumn;
cxGridViewFECHA_PEDIDO: TcxGridDBColumn;
cxGridViewPedidosProveedorFECHA_PEDIDO: TcxGridDBColumn;
cxGridViewPedidosProveedorSITUACION: TcxGridDBColumn;
dsAlbaranesProveedor: TDADataSource;
cxGridLevelAlbaranesProveedor: TcxGridLevel;
cxGridViewAlbaranesProveedor: TcxGridDBTableView;
cxGridViewAlbaranesProveedorREFERENCIA: TcxGridDBColumn;
cxGridViewAlbaranesProveedorSITUACION: TcxGridDBColumn;
cxGridViewAlbaranesProveedorFECHA_ALBARAN: TcxGridDBColumn;
dsFacturasProveedor: TDADataSource;
cxGridLevelFacturasProveedor: TcxGridLevel;
cxGridViewFacturasProveedor: TcxGridDBTableView;
cxGridViewFacturasProveedorREFERENCIA: TcxGridDBColumn;
procedure CustomViewShow(Sender: TObject);
protected
FPedidosCliente: IBizPedidoCliente;
FPedidosProveedor: IBizPedidoProveedor;
FAlbaranesProveedor: IBizAlbaranProveedor;
FFacturasProveedor: IBizFacturaProveedor;
function GetPedidosCliente: IBizPedidoCliente;
procedure SetPedidosCliente(const Value: IBizPedidoCliente);
function GetPedidosProveedor: IBizPedidoProveedor;
procedure SetPedidosProveedor(const Value: IBizPedidoProveedor);
function GetAlbaranesProveedor: IBizAlbaranProveedor;
procedure SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);
function GetFacturasProveedor: IBizFacturaProveedor;
procedure SetFacturasProveedor(const Value: IBizFacturaProveedor);
public
property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente;
property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor;
property AlbaranesProveedor: IBizAlbaranProveedor read GetAlbaranesProveedor write SetAlbaranesProveedor;
property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
{ TfrViewListadoProcesoPedidoCliente }
procedure TfrViewProcesoPresupuestosCliente.CustomViewShow(Sender: TObject);
begin
inherited;
if Assigned(FPedidosCliente) then
FPedidosCliente.Active := True;
end;
destructor TfrViewProcesoPresupuestosCliente.Destroy;
begin
FPedidosCliente:= Nil;
FPedidosProveedor:= Nil;
FAlbaranesProveedor:= Nil;
FFacturasProveedor:= Nil;
inherited;
end;
function TfrViewProcesoPresupuestosCliente.GetAlbaranesProveedor: IBizAlbaranProveedor;
begin
REsult := FAlbaranesProveedor;
end;
function TfrViewProcesoPresupuestosCliente.GetFacturasProveedor: IBizFacturaProveedor;
begin
Result := FFacturasProveedor;
end;
function TfrViewProcesoPresupuestosCliente.GetPedidosCliente: IBizPedidoCliente;
begin
Result := FPedidosCliente;
end;
function TfrViewProcesoPresupuestosCliente.GetPedidosProveedor: IBizPedidoProveedor;
begin
Result := FPedidosProveedor;
end;
procedure TfrViewProcesoPresupuestosCliente.SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);
begin
FAlbaranesProveedor := Value;
if Assigned(FAlbaranesProveedor) then
dsAlbaranesProveedor.DataTable := FAlbaranesProveedor.DataTable
else
dsAlbaranesProveedor.DataTable := Nil;
end;
procedure TfrViewProcesoPresupuestosCliente.SetFacturasProveedor(const Value: IBizFacturaProveedor);
begin
FFacturasProveedor := Value;
if Assigned(FFacturasProveedor) then
dsFacturasProveedor.DataTable := FFacturasProveedor.DataTable
else
dsFacturasProveedor.DataTable := Nil;
end;
procedure TfrViewProcesoPresupuestosCliente.SetPedidosCliente(const Value: IBizPedidoCliente);
begin
FPedidosCliente := Value;
if Assigned(FPedidosCliente) then
dsDataSource.DataTable := FPedidosCliente.DataTable
else
dsDataSource.DataTable := Nil;
end;
procedure TfrViewProcesoPresupuestosCliente.SetPedidosProveedor(const Value: IBizPedidoProveedor);
begin
FPedidosProveedor := Value;
if Assigned(FPedidosProveedor) then
dsPedidosProveedor.DataTable := FPedidosProveedor.DataTable
else
dsPedidosProveedor.DataTable := Nil;
end;
end.

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

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

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

8
Source/Servidor/FactuGES_Server.dpr
View File

@ -141,8 +141,6 @@ uses
uBizOscProductServer in '..\Modulos\Tienda web\Model\uBizOscProductServer.pas',
uTiendaWebUtils in 'Utiles\uTiendaWebUtils.pas',
uConexionOSC in 'Configuracion\uConexionOSC.pas' {frConexionOSC: TFrame},
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas',
@ -160,10 +158,12 @@ uses
schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas';
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

806
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,407 +1,407 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">2</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">4.3.2.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">4.3.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 19 de julio de 2013 13:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones_Impl</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<Form>srvUsuarios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordAlbaranCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
<Form>RptAlbaranesProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordAlbaranProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordFacturaCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
<Form>srvFamilias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
<Form>srvFormasPago</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
<Form>srvImpresiones</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas">
<Form>srvInfMargenArticulo</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas">
<Form>srvInfVentasArticulo</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas">
<Form>srvInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
<Form>srvObras</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordPedidoProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
<Form>RptPedidosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
<Form>srvPedidosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordCertificadoTrabajo</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordPresupuestoCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
<Form>srvRegistroCorreos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<Form>RptRemesasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
<Form>RptRemesasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
<Form>srvTiendaWeb</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
<Form>srvTiposIVA</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionOSC.pas">
<Form>frConexionOSC</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\AHWord97.pas"/>
<DCCReference Include="Utiles\MidasSpeedFix.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"/>
<DCCReference Include="Utiles\uTiendaWebUtils.pas"/>
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">2</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">4.3.2.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">4.3.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 19 de julio de 2013 13:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones_Impl</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<Form>srvUsuarios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordAlbaranCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
<Form>RptAlbaranesProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordAlbaranProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordFacturaCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
<Form>srvFamilias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
<Form>srvFormasPago</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
<Form>srvImpresiones</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas">
<Form>srvInfMargenArticulo</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas" />
<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas" />
<DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas">
<Form>srvInfVentasArticulo</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas">
<Form>srvInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
<Form>srvObras</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordPedidoProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
<Form>RptPedidosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
<Form>srvPedidosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordCertificadoTrabajo</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordPresupuestoCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
<Form>srvRegistroCorreos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<Form>RptRemesasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
<Form>RptRemesasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
<Form>srvTiendaWeb</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
<Form>srvTiposIVA</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionOSC.pas">
<Form>frConexionOSC</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\AHWord97.pas" />
<DCCReference Include="Utiles\MidasSpeedFix.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" />
<DCCReference Include="Utiles\uTiendaWebUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "4.3.2.0\0"
VALUE "ProductVersion", "4.3.2.0\0"
VALUE "CompileDate", "miércoles, 28 de agosto de 2013 15:52\0"
VALUE "CompileDate", "viernes, 30 de agosto de 2013 13:10\0"
END
END
BLOCK "VarFileInfo"