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

Version 4.3.7

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@214 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2014-02-07 17:12:11 +00:00
parent 34297092ec
commit f1d8a11388
68 changed files with 3686 additions and 879 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Build/Build.fbpInf
View File

@ -1,6 +1,6 @@
<project ServerProjectName=""> <project ServerProjectName="">
<watches/> <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},{789902B1-5E64-4FD9-80BF-6113B13BFE12},{856B4CEA-BF27-4696-8FFC-4507B6E29943},{A181C54F-9BE8-4404-9AB9-FEE8A9C3443D},{AD23CE23-8728-48FA-84FD-264E27BA8F46},{B70F0EA3-7874-42B0-BFB8-430D43AC2D61},{C662116C-EB3F-4161-A768-49D13B08EFE5},{CE990EA4-7660-4997-8CBF-6C6AA978753A},{E8E8671F-894B-4049-B4A6-905B57207637},{F2541E28-3C45-4A17-BEC5-185CBF9D2A90}</collapsedNodes> <collapsedNodes>{0F75D8EA-B6C2-4ECA-9E1E-45E235135301},{10527A84-0FB7-4007-9B23-9E5826133948},{154CD4CE-0F61-40F6-8CE6-CF525D3CFDCA},{331AC851-CE2F-4986-9381-A257AB26B1AD},{3F8BEF26-5F4F-4B97-B1BC-118F36CBDD68},{4968AB21-B759-4F4A-9214-8792F67DA1E2},{4B038673-47F7-4436-BD07-D557FA62337E},{6C425F09-E04B-49EC-89E2-8C93D60E9055},{7251A871-CE6C-41D1-A404-735619825EAE},{856B4CEA-BF27-4696-8FFC-4507B6E29943},{A181C54F-9BE8-4404-9AB9-FEE8A9C3443D},{AD23CE23-8728-48FA-84FD-264E27BA8F46},{B70F0EA3-7874-42B0-BFB8-430D43AC2D61},{C662116C-EB3F-4161-A768-49D13B08EFE5},{CE990EA4-7660-4997-8CBF-6C6AA978753A},{E8E8671F-894B-4049-B4A6-905B57207637},{F2541E28-3C45-4A17-BEC5-185CBF9D2A90}</collapsedNodes>
<breakpoints></breakpoints> <breakpoints></breakpoints>
<actions/> <actions/>
<propertysets/> <propertysets/>
@ -14,8 +14,8 @@
<Notes> <Notes>
<![CDATA[]]> <![CDATA[]]>
</Notes> </Notes>
<LastBuildRun>00:04:06</LastBuildRun> <LastBuildRun>00:00:00</LastBuildRun>
<LastBuildStart>06/02/2014 17:13:55</LastBuildStart> <LastBuildStart>07/02/2014 13:41:26</LastBuildStart>
<LastBuildState>True</LastBuildState> <LastBuildState>False</LastBuildState>
</properties> </properties>
</project> </project>

BIN
Build/Build.fbz6
View File

Binary file not shown.

13
Database/scripts/factuges.sql
View File

@ -232,8 +232,8 @@ SET GENERATOR GEN_PRESUPUESTOS_CLI_DETALLE_ID TO 1;
CREATE GENERATOR GEN_PRESUPUESTOS_CLI_ID; CREATE GENERATOR GEN_PRESUPUESTOS_CLI_ID;
SET GENERATOR GEN_PRESUPUESTOS_CLI_ID TO 1; SET GENERATOR GEN_PRESUPUESTOS_CLI_ID TO 1;
CREATE GENERATOR GEN_PRESUPUESTOS_TIPOS_ID; CREATE GENERATOR GEN_TIPOS_DOCUMENTO_ID;
SET GENERATOR GEN_PRESUPUESTOS_TIPOS_ID TO 1; SET GENERATOR GEN_TIPOS_DOCUMENTO_ID TO 1;
CREATE GENERATOR GEN_PROVEEDORES_GRUPOS_ID; CREATE GENERATOR GEN_PROVEEDORES_GRUPOS_ID;
SET GENERATOR GEN_PROVEEDORES_GRUPOS_ID TO 1; SET GENERATOR GEN_PROVEEDORES_GRUPOS_ID TO 1;
@ -976,7 +976,8 @@ CREATE TABLE PEDIDOS_CLIENTE (
REF_TIENDA_WEB INTEGER, REF_TIENDA_WEB INTEGER,
FECHA_PREVISTA_ENVIO DATE, FECHA_PREVISTA_ENVIO DATE,
REFERENCIA_CLIENTE VARCHAR(255), REFERENCIA_CLIENTE VARCHAR(255),
ID_PRESUPUESTO TIPO_ID ID_PRESUPUESTO TIPO_ID,
TIPO_PEDIDO VARCHAR(255) COLLATE ES_ES
); );
CREATE TABLE PEDIDOS_CLIENTE_DETALLES ( CREATE TABLE PEDIDOS_CLIENTE_DETALLES (
@ -1077,8 +1078,8 @@ CREATE TABLE POBLACIONES (
DESCRIPCION VARCHAR(255) NOT NULL DESCRIPCION VARCHAR(255) NOT NULL
); );
CREATE TABLE PRESUPUESTOS_TIPOS ( CREATE TABLE TIPOS_DOCUMENTO (
ID TIPO_ID NOT NULL, ID TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
DESCRIPCION VARCHAR(255) DESCRIPCION VARCHAR(255)
); );
@ -5138,7 +5139,7 @@ ALTER TABLE PEDIDOS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR_DETAL
ALTER TABLE PERMISOS ADD CONSTRAINT PK_PERMISOS PRIMARY KEY (ID); ALTER TABLE PERMISOS ADD CONSTRAINT PK_PERMISOS PRIMARY KEY (ID);
ALTER TABLE PERMISOSEX ADD CONSTRAINT PK_PERMISOSEX PRIMARY KEY (ID); ALTER TABLE PERMISOSEX ADD CONSTRAINT PK_PERMISOSEX PRIMARY KEY (ID);
ALTER TABLE POBLACIONES ADD CONSTRAINT PK_POBLACIONES PRIMARY KEY (ID); ALTER TABLE POBLACIONES ADD CONSTRAINT PK_POBLACIONES PRIMARY KEY (ID);
ALTER TABLE PRESUPUESTOS_TIPOS ADD CONSTRAINT PK_PRESUPUESTOS_TIPOS PRIMARY KEY (ID); ALTER TABLE TIPOS_DOCUMENTO ADD CONSTRAINT PK_TIPOS_DOCUMENTO PRIMARY KEY (ID);
ALTER TABLE PRESUPUESTOS_CLIENTE ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE PRIMARY KEY (ID); ALTER TABLE PRESUPUESTOS_CLIENTE ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE PRIMARY KEY (ID);
ALTER TABLE PRESUPUESTOS_CLIENTE_DETALLES ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE_DETALLE PRIMARY KEY (ID); ALTER TABLE PRESUPUESTOS_CLIENTE_DETALLES ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE_DETALLE PRIMARY KEY (ID);
ALTER TABLE PROVEEDORES_DATOS ADD CONSTRAINT PK_PROVEEDORES_DATOS PRIMARY KEY (ID_PROVEEDOR); ALTER TABLE PROVEEDORES_DATOS ADD CONSTRAINT PK_PROVEEDORES_DATOS PRIMARY KEY (ID_PROVEEDOR);

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.3.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.3.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.3.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.3.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 4,3,6,0 FILEVERSION 4,3,7,0
PRODUCTVERSION 4,3,6,0 PRODUCTVERSION 4,3,7,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "4.3.6.0\0" VALUE "FileVersion", "4.3.7.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "4.3.6.0\0" VALUE "ProductVersion", "4.3.7.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

1
Source/Cliente/uBootStrap.pas
View File

@ -26,6 +26,7 @@ begin
LoadModule('Familias_plugin.bpl'); LoadModule('Familias_plugin.bpl');
LoadModule('Fabricantes_plugin.bpl'); LoadModule('Fabricantes_plugin.bpl');
LoadModule('UnidadesMedida_plugin.bpl'); LoadModule('UnidadesMedida_plugin.bpl');
LoadModule('TiposDocumento_plugin.bpl');
LoadModule('Contactos_plugin.bpl'); LoadModule('Contactos_plugin.bpl');

2
Source/Modulos/Facturas proforma/Data/uDataModuleFacturasProforma.dfm
View File

@ -94,7 +94,6 @@ inherited DataModuleFacturasProforma: TDataModuleFacturasProforma
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat DataType = datFloat
DisplayLabel = 'FacturasProforma_IVA'
DictionaryEntry = 'FacturasProforma_IVA' DictionaryEntry = 'FacturasProforma_IVA'
end end
item item
@ -106,7 +105,6 @@ inherited DataModuleFacturasProforma: TDataModuleFacturasProforma
item item
Name = 'RE' Name = 'RE'
DataType = datFloat DataType = datFloat
DisplayLabel = 'FacturasProforma_RE'
DictionaryEntry = 'FacturasProforma_RE' DictionaryEntry = 'FacturasProforma_RE'
end end
item item

2
Source/Modulos/Facturas proforma/Servidor/srvFacturasProforma_Impl.dfm
View File

@ -1358,6 +1358,7 @@ object srvFacturasProforma: TsrvFacturasProforma
item item
Name = 'FacturasProforma_IVA' Name = 'FacturasProforma_IVA'
DataType = datFloat DataType = datFloat
DisplayLabel = 'IVA'
end end
item item
Name = 'FacturasProforma_IMPORTE_IVA' Name = 'FacturasProforma_IMPORTE_IVA'
@ -1366,6 +1367,7 @@ object srvFacturasProforma: TsrvFacturasProforma
item item
Name = 'FacturasProforma_RE' Name = 'FacturasProforma_RE'
DataType = datFloat DataType = datFloat
DisplayLabel = 'RE'
end end
item item
Name = 'FacturasProforma_IMPORTE_RE' Name = 'FacturasProforma_IMPORTE_RE'

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

@ -339,6 +339,11 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
Name = 'REFERENCIA_PRESUPUESTO' Name = 'REFERENCIA_PRESUPUESTO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'TIPO_PEDIDO'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,13 +9,13 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosPedidos = '{B03310DC-4A84-4779-BF7B-33FF0F741912}'; RID_ListaAnosPedidos = '{0EEEB91E-B94E-492A-9B55-D9D69121A15D}';
RID_PedidosProveedor = '{95F27FC7-2016-4B25-A964-29A647BEB277}'; RID_PedidosProveedor = '{42F2265A-DFC1-486D-8B10-CE0B7882F99B}';
RID_PedidosCliente = '{11401A1B-9CA5-4528-BD63-FCA01EA10603}'; RID_PedidosCliente = '{114B3685-0624-44E5-A2E8-9E41682B17D3}';
RID_PedidosCliente_Detalles = '{69AF4753-C444-4247-AAD5-59E95435B041}'; RID_PedidosCliente_Detalles = '{79001C87-40EC-4A80-AAEC-469ABF51992A}';
RID_PedidosCliente_Articulos_Pendientes = '{5A42E580-E6B3-4B44-83B7-FDFDCD5C1980}'; RID_PedidosCliente_Articulos_Pendientes = '{3C095CF4-7C99-422E-9353-41457E08D356}';
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{23A4639E-E866-4BAB-969A-DC5AE706B5CB}'; RID_PedidoCliente_ArticulosPendientesPedirAProv = '{0918991D-A6AF-43DB-BE3A-EF0BC296C52D}';
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{35396E3E-190B-4197-9979-7753ED63C5B7}'; RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{6AEA860C-3542-4087-9AC0-E9BBC0BE53A0}';
{ Data table names } { Data table names }
nme_ListaAnosPedidos = 'ListaAnosPedidos'; nme_ListaAnosPedidos = 'ListaAnosPedidos';
@ -81,6 +81,7 @@ const
fld_PedidosClienteNUM_CORREOS = 'NUM_CORREOS'; fld_PedidosClienteNUM_CORREOS = 'NUM_CORREOS';
fld_PedidosClienteID_PRESUPUESTO = 'ID_PRESUPUESTO'; fld_PedidosClienteID_PRESUPUESTO = 'ID_PRESUPUESTO';
fld_PedidosClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO'; fld_PedidosClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO';
fld_PedidosClienteTIPO_PEDIDO = 'TIPO_PEDIDO';
{ PedidosCliente field indexes } { PedidosCliente field indexes }
idx_PedidosClienteID = 0; idx_PedidosClienteID = 0;
@ -119,6 +120,7 @@ const
idx_PedidosClienteNUM_CORREOS = 33; idx_PedidosClienteNUM_CORREOS = 33;
idx_PedidosClienteID_PRESUPUESTO = 34; idx_PedidosClienteID_PRESUPUESTO = 34;
idx_PedidosClienteREFERENCIA_PRESUPUESTO = 35; idx_PedidosClienteREFERENCIA_PRESUPUESTO = 35;
idx_PedidosClienteTIPO_PEDIDO = 36;
{ PedidosCliente_Detalles fields } { PedidosCliente_Detalles fields }
fld_PedidosCliente_DetallesID = 'ID'; fld_PedidosCliente_DetallesID = 'ID';
@ -215,7 +217,7 @@ const
type type
{ IListaAnosPedidos } { IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable) IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
['{B3BAA253-80EF-4183-8FD5-6CA4B0593DAE}'] ['{ECDA790C-408A-47C4-B0E9-F3E501591DCD}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -250,7 +252,7 @@ type
{ IPedidosProveedor } { IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable) IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{A4FF4E03-9C95-4B87-AFCF-B3A8F53EC5CC}'] ['{23013245-EFE7-4449-A38A-C01A1D8024D3}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -321,7 +323,7 @@ type
{ IPedidosCliente } { IPedidosCliente }
IPedidosCliente = interface(IDAStronglyTypedDataTable) IPedidosCliente = interface(IDAStronglyTypedDataTable)
['{1B16009A-2B49-46C3-955E-6FD4F533D570}'] ['{685137A5-B5E4-4EB9-8268-7D49FAF6B111}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -465,6 +467,10 @@ type
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String);
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; function GetREFERENCIA_PRESUPUESTOIsNull: Boolean;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean);
function GetTIPO_PEDIDOValue: String;
procedure SetTIPO_PEDIDOValue(const aValue: String);
function GetTIPO_PEDIDOIsNull: Boolean;
procedure SetTIPO_PEDIDOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -540,6 +546,8 @@ type
property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull; property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull;
property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue; property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull; property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
property TIPO_PEDIDO: String read GetTIPO_PEDIDOValue write SetTIPO_PEDIDOValue;
property TIPO_PEDIDOIsNull: Boolean read GetTIPO_PEDIDOIsNull write SetTIPO_PEDIDOIsNull;
end; end;
{ TPedidosClienteDataTableRules } { TPedidosClienteDataTableRules }
@ -693,6 +701,10 @@ type
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual; procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual; function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
function GetTIPO_PEDIDOValue: String; virtual;
procedure SetTIPO_PEDIDOValue(const aValue: String); virtual;
function GetTIPO_PEDIDOIsNull: Boolean; virtual;
procedure SetTIPO_PEDIDOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -767,6 +779,8 @@ type
property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull; property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull;
property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue; property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull; property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
property TIPO_PEDIDO: String read GetTIPO_PEDIDOValue write SetTIPO_PEDIDOValue;
property TIPO_PEDIDOIsNull: Boolean read GetTIPO_PEDIDOIsNull write SetTIPO_PEDIDOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -776,7 +790,7 @@ type
{ IPedidosCliente_Detalles } { IPedidosCliente_Detalles }
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{040BF8A0-FB19-40A1-B02F-37914032D78C}'] ['{7B004CF5-7D51-44A7-837C-248351E59D5A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -967,7 +981,7 @@ type
{ IPedidosCliente_Articulos_Pendientes } { IPedidosCliente_Articulos_Pendientes }
IPedidosCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) IPedidosCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{23014D12-09EB-408F-9986-D7E3297DE88B}'] ['{0B5561A6-EC77-4F1A-9790-4D6FD000EA26}']
{ Property getters and setters } { Property getters and setters }
function GetID_ARTICULOValue: Integer; function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
@ -1038,7 +1052,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProv } { IPedidoCliente_ArticulosPendientesPedirAProv }
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable) IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
['{8CBCEE12-469C-4C52-B76B-9BDE025988D8}'] ['{3D4781F8-058F-449F-A40F-2D9D61A7546C}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
@ -1181,7 +1195,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos } { IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos }
IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos = interface(IDAStronglyTypedDataTable) IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos = interface(IDAStronglyTypedDataTable)
['{2A72E2BD-CAF4-4187-A671-8BA3E9F36C27}'] ['{3F66BB5C-DBB8-42E9-BEC7-1DE96E609CAD}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
@ -2234,6 +2248,27 @@ begin
DataTable.Fields[idx_PedidosClienteREFERENCIA_PRESUPUESTO].AsVariant := Null; DataTable.Fields[idx_PedidosClienteREFERENCIA_PRESUPUESTO].AsVariant := Null;
end; end;
function TPedidosClienteDataTableRules.GetTIPO_PEDIDOValue: String;
begin
result := DataTable.Fields[idx_PedidosClienteTIPO_PEDIDO].AsString;
end;
procedure TPedidosClienteDataTableRules.SetTIPO_PEDIDOValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosClienteTIPO_PEDIDO].AsString := aValue;
end;
function TPedidosClienteDataTableRules.GetTIPO_PEDIDOIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosClienteTIPO_PEDIDO].IsNull;
end;
procedure TPedidosClienteDataTableRules.SetTIPO_PEDIDOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosClienteTIPO_PEDIDO].AsVariant := Null;
end;
{ TPedidosCliente_DetallesDataTableRules } { TPedidosCliente_DetallesDataTableRules }
constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,18 +9,18 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosPedidosDelta = '{5366095E-0D85-41E6-BDE1-4A242E0624D2}'; RID_ListaAnosPedidosDelta = '{2DABA86C-B83B-47E8-AC84-4582BABA59DA}';
RID_PedidosProveedorDelta = '{15E9212C-237F-43DA-93BB-F731DCF39D72}'; RID_PedidosProveedorDelta = '{E6BDD968-AB7B-495D-96E5-84F8FB0923D0}';
RID_PedidosClienteDelta = '{67B51E78-FF9E-4546-92F0-FF273F32237F}'; RID_PedidosClienteDelta = '{C42DF2D8-C429-4A99-8CFD-FD381E24C388}';
RID_PedidosCliente_DetallesDelta = '{503A2F9C-8B5D-4889-8071-8EF2D1716D29}'; RID_PedidosCliente_DetallesDelta = '{729FD8AB-C4B8-4F8E-AFCD-2C6E926C0EB8}';
RID_PedidosCliente_Articulos_PendientesDelta = '{73729328-922F-4458-A20F-ECE1969FD04D}'; RID_PedidosCliente_Articulos_PendientesDelta = '{599B5358-26CF-4318-ACE3-64EF8ACA44C0}';
RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{E0FA4DF3-2220-4992-9563-754ACEE319D3}'; RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{C84B6802-337E-47D5-A769-8F54782202C4}';
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{054BBD78-D3EB-4180-BDA1-19DEC4400A55}'; RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{26C4CE72-8E30-424C-9054-8E6BA023C82F}';
type type
{ IListaAnosPedidosDelta } { IListaAnosPedidosDelta }
IListaAnosPedidosDelta = interface(IListaAnosPedidos) IListaAnosPedidosDelta = interface(IListaAnosPedidos)
['{5366095E-0D85-41E6-BDE1-4A242E0624D2}'] ['{2DABA86C-B83B-47E8-AC84-4582BABA59DA}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -54,7 +54,7 @@ type
{ IPedidosProveedorDelta } { IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor) IPedidosProveedorDelta = interface(IPedidosProveedor)
['{15E9212C-237F-43DA-93BB-F731DCF39D72}'] ['{E6BDD968-AB7B-495D-96E5-84F8FB0923D0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -124,7 +124,7 @@ type
{ IPedidosClienteDelta } { IPedidosClienteDelta }
IPedidosClienteDelta = interface(IPedidosCliente) IPedidosClienteDelta = interface(IPedidosCliente)
['{67B51E78-FF9E-4546-92F0-FF273F32237F}'] ['{C42DF2D8-C429-4A99-8CFD-FD381E24C388}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -162,6 +162,7 @@ type
function GetOldNUM_CORREOSValue : SmallInt; function GetOldNUM_CORREOSValue : SmallInt;
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;
function GetOldREFERENCIA_PRESUPUESTOValue : String; function GetOldREFERENCIA_PRESUPUESTOValue : String;
function GetOldTIPO_PEDIDOValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -200,6 +201,7 @@ type
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue; property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue; property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue; property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
property OldTIPO_PEDIDO : String read GetOldTIPO_PEDIDOValue;
end; end;
{ TPedidosClienteBusinessProcessorRules } { TPedidosClienteBusinessProcessorRules }
@ -425,6 +427,12 @@ type
function GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual; function GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual; procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
function GetTIPO_PEDIDOValue: String; virtual;
function GetTIPO_PEDIDOIsNull: Boolean; virtual;
function GetOldTIPO_PEDIDOValue: String; virtual;
function GetOldTIPO_PEDIDOIsNull: Boolean; virtual;
procedure SetTIPO_PEDIDOValue(const aValue: String); virtual;
procedure SetTIPO_PEDIDOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -571,6 +579,10 @@ type
property REFERENCIA_PRESUPUESTOIsNull : Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull; property REFERENCIA_PRESUPUESTOIsNull : Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue; property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
property OldREFERENCIA_PRESUPUESTOIsNull : Boolean read GetOldREFERENCIA_PRESUPUESTOIsNull; property OldREFERENCIA_PRESUPUESTOIsNull : Boolean read GetOldREFERENCIA_PRESUPUESTOIsNull;
property TIPO_PEDIDO : String read GetTIPO_PEDIDOValue write SetTIPO_PEDIDOValue;
property TIPO_PEDIDOIsNull : Boolean read GetTIPO_PEDIDOIsNull write SetTIPO_PEDIDOIsNull;
property OldTIPO_PEDIDO : String read GetOldTIPO_PEDIDOValue;
property OldTIPO_PEDIDOIsNull : Boolean read GetOldTIPO_PEDIDOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -580,7 +592,7 @@ type
{ IPedidosCliente_DetallesDelta } { IPedidosCliente_DetallesDelta }
IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles) IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles)
['{503A2F9C-8B5D-4889-8071-8EF2D1716D29}'] ['{729FD8AB-C4B8-4F8E-AFCD-2C6E926C0EB8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -770,7 +782,7 @@ type
{ IPedidosCliente_Articulos_PendientesDelta } { IPedidosCliente_Articulos_PendientesDelta }
IPedidosCliente_Articulos_PendientesDelta = interface(IPedidosCliente_Articulos_Pendientes) IPedidosCliente_Articulos_PendientesDelta = interface(IPedidosCliente_Articulos_Pendientes)
['{73729328-922F-4458-A20F-ECE1969FD04D}'] ['{599B5358-26CF-4318-ACE3-64EF8ACA44C0}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldCANTIDAD_PEDValue : Currency; function GetOldCANTIDAD_PEDValue : Currency;
@ -840,7 +852,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvDelta } { IPedidoCliente_ArticulosPendientesPedirAProvDelta }
IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv) IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
['{E0FA4DF3-2220-4992-9563-754ACEE319D3}'] ['{C84B6802-337E-47D5-A769-8F54782202C4}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
@ -982,7 +994,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta } { IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta }
IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos) IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos)
['{054BBD78-D3EB-4180-BDA1-19DEC4400A55}'] ['{26C4CE72-8E30-424C-9054-8E6BA023C82F}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
@ -2447,6 +2459,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_PRESUPUESTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_PRESUPUESTO] := Null;
end; end;
function TPedidosClienteBusinessProcessorRules.GetTIPO_PEDIDOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteTIPO_PEDIDO];
end;
function TPedidosClienteBusinessProcessorRules.GetTIPO_PEDIDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteTIPO_PEDIDO]);
end;
function TPedidosClienteBusinessProcessorRules.GetOldTIPO_PEDIDOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteTIPO_PEDIDO];
end;
function TPedidosClienteBusinessProcessorRules.GetOldTIPO_PEDIDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteTIPO_PEDIDO]);
end;
procedure TPedidosClienteBusinessProcessorRules.SetTIPO_PEDIDOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteTIPO_PEDIDO] := aValue;
end;
procedure TPedidosClienteBusinessProcessorRules.SetTIPO_PEDIDOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteTIPO_PEDIDO] := Null;
end;
{ TPedidosCliente_DetallesBusinessProcessorRules } { TPedidosCliente_DetallesBusinessProcessorRules }
constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -31,6 +31,7 @@
<Projects Include="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" /> <Projects Include="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" />
<Projects Include="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" /> <Projects Include="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" />
<Projects Include="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" /> <Projects Include="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
<Projects Include="..\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.dproj" /> <Projects Include="..\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.dproj" />
<Projects Include="..\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.dproj" /> <Projects Include="..\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.dproj" />
<Projects Include="..\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.dproj" /> <Projects Include="..\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.dproj" />
@ -401,14 +402,23 @@
<Target Name="FacturasProforma_data:Make"> <Target Name="FacturasProforma_data:Make">
<MSBuild Projects="..\Facturas proforma\Data\FacturasProforma_data.dproj" Targets="Make" /> <MSBuild Projects="..\Facturas proforma\Data\FacturasProforma_data.dproj" Targets="Make" />
</Target> </Target>
<Target Name="PresupuestosCliente_view">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="" />
</Target>
<Target Name="PresupuestosCliente_view:Clean">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="PresupuestosCliente_view:Make">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;ApplicationBase;GUIBase;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;PedCli_FacProforma_relation;FacturasProforma_data" /> <CallTarget Targets="Base;ApplicationBase;GUIBase;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;PedCli_FacProforma_relation;FacturasProforma_data;PresupuestosCliente_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;ApplicationBase:Clean;GUIBase: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;PedCli_FacProforma_relation:Clean;FacturasProforma_data:Clean" /> <CallTarget Targets="Base:Clean;ApplicationBase:Clean;GUIBase: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;PedCli_FacProforma_relation:Clean;FacturasProforma_data:Clean;PresupuestosCliente_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;ApplicationBase:Make;GUIBase: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;PedCli_FacProforma_relation:Make;FacturasProforma_data:Make" /> <CallTarget Targets="Base:Make;ApplicationBase:Make;GUIBase: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;PedCli_FacProforma_relation:Make;FacturasProforma_data:Make;PresupuestosCliente_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

@ -242,6 +242,10 @@ object srvPedidosCliente: TsrvPedidosCliente
item item
DatasetField = 'REFERENCIA_PRESUPUESTO' DatasetField = 'REFERENCIA_PRESUPUESTO'
TableField = 'REFERENCIA_PRESUPUESTO' TableField = 'REFERENCIA_PRESUPUESTO'
end
item
DatasetField = 'TIPO_PEDIDO'
TableField = 'TIPO_PEDIDO'
end> end>
end> end>
Name = 'PedidosCliente' Name = 'PedidosCliente'
@ -439,6 +443,11 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'REFERENCIA_PRESUPUESTO' Name = 'REFERENCIA_PRESUPUESTO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'TIPO_PEDIDO'
DataType = datString
Size = 255
end> end>
end end
item item
@ -1043,6 +1052,12 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'ID_PRESUPUESTO' Name = 'ID_PRESUPUESTO'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end
item
Name = 'TIPO_PEDIDO'
DataType = datString
Size = 255
Value = ''
end> end>
Statements = < Statements = <
item item
@ -1057,15 +1072,15 @@ object srvPedidosCliente: TsrvPedidosCliente
'AS_ACTIVAS, OBSERVACIONES, FECHA_ALTA, FECHA_MODIFICACION,'#10' ' + 'AS_ACTIVAS, OBSERVACIONES, FECHA_ALTA, FECHA_MODIFICACION,'#10' ' +
'IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO,'#10' IMPORTE_DESCUENTO, ' + 'IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO,'#10' IMPORTE_DESCUENTO, ' +
'BASE_IMPONIBLE, IVA, IMPORTE_IVA,'#10' ID_FORMA_PAGO, REF_TIENDA' + 'BASE_IMPONIBLE, IVA, IMPORTE_IVA,'#10' ID_FORMA_PAGO, REF_TIENDA' +
'_WEB, FECHA_PREVISTA_ENVIO, ID_PRESUPUESTO)'#10' VALUES'#10' (:ID, :' + '_WEB, FECHA_PREVISTA_ENVIO, ID_PRESUPUESTO, TIPO_PEDIDO)'#10' VALUE' +
'ID_EMPRESA, :ID_CLIENTE, :ID_DIRECCION, :USUARIO, :FECHA_PEDIDO,' + 'S'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_DIRECCION, :USUARIO, :' +
#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_C' + 'FECHA_PEDIDO,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCI' +
'ONTACTO,'#10' :TELEFONO, :REFERENCIA, :REFERENCIA_CLIENTE, :IMPO' + 'A, :PERSONA_CONTACTO,'#10' :TELEFONO, :REFERENCIA, :REFERENCIA_C' +
'RTE_TOTAL, :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, :OBSERVACION' + 'LIENTE, :IMPORTE_TOTAL, :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS,' +
'ES, :FECHA_ALTA,'#10' :FECHA_MODIFICACION, :IMPORTE_NETO, :IMPOR' + ' :OBSERVACIONES, :FECHA_ALTA,'#10' :FECHA_MODIFICACION, :IMPORTE' +
'TE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, ' + '_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BAS' +
':IVA,'#10' :IMPORTE_IVA, :ID_FORMA_PAGO, :REF_TIENDA_WEB, :FECHA' + 'E_IMPONIBLE, :IVA,'#10' :IMPORTE_IVA, :ID_FORMA_PAGO, :REF_TIEND' +
'_PREVISTA_ENVIO, :ID_PRESUPUESTO)'#10 'A_WEB, :FECHA_PREVISTA_ENVIO, :ID_PRESUPUESTO, :TIPO_PEDIDO)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1250,6 +1265,12 @@ object srvPedidosCliente: TsrvPedidosCliente
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
item
Name = 'TIPO_PEDIDO'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1276,7 +1297,8 @@ object srvPedidosCliente: TsrvPedidosCliente
'E_IMPONIBLE,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' ' + 'E_IMPONIBLE,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' ' +
' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TIENDA_WEB = :REF_TIEND' + ' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TIENDA_WEB = :REF_TIEND' +
'A_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' ID_' + 'A_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' ID_' +
'PRESUPUESTO = :ID_PRESUPUESTO'#10' WHERE'#10' (ID = :OLD_ID)'#10 'PRESUPUESTO = :ID_PRESUPUESTO,'#10' TIPO_PEDIDO = :TIPO_PEDIDO'#10' ' +
'WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -86,7 +86,8 @@ requires
Almacenes_controller, Almacenes_controller,
PedCli_PedProv_relation, PedCli_PedProv_relation,
PedidosProveedor_model, PedidosProveedor_model,
PedCli_FacProforma_relation; PedCli_FacProforma_relation,
TiposDocumento_controller;
contains contains
uPedidosClienteViewRegister in 'uPedidosClienteViewRegister.pas', uPedidosClienteViewRegister in 'uPedidosClienteViewRegister.pas',

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

@ -49,68 +49,69 @@
<DelphiCompile Include="PedidosCliente_view.dpk"> <DelphiCompile Include="PedidosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\..\Lib\adortl.dcp" />
<DCCReference Include="..\Almacenes_controller.dcp" /> <DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
<DCCReference Include="..\Almacenes_model.dcp" /> <DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
<DCCReference Include="..\Articulos_view.dcp" /> <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\bdertl.dcp" /> <DCCReference Include="..\..\Lib\bdertl.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" /> <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\Contactos_view.dcp" /> <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="..\cxDataD11.dcp" /> <DCCReference Include="..\..\Lib\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" /> <DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExportD11.dcp" /> <DCCReference Include="..\..\Lib\cxExportD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" /> <DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxGridD11.dcp" /> <DCCReference Include="..\..\Lib\cxGridD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" /> <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
<DCCReference Include="..\cxPageControlD11.dcp" /> <DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="..\..\Lib\dbrtl.dcp" />
<DCCReference Include="..\dclcxLibraryD11.dcp" /> <DCCReference Include="..\..\Lib\dclcxLibraryD11.dcp" />
<DCCReference Include="..\designide.dcp" /> <DCCReference Include="..\..\Lib\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" /> <DCCReference Include="..\..\Lib\dsnap.dcp" />
<DCCReference Include="..\dxComnD11.dcp" /> <DCCReference Include="..\..\Lib\dxComnD11.dcp" />
<DCCReference Include="..\dxCoreD11.dcp" /> <DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" /> <DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
<DCCReference Include="..\dxPSCoreD11.dcp" /> <DCCReference Include="..\..\Lib\dxPSCoreD11.dcp" />
<DCCReference Include="..\dxPScxCommonD11.dcp" /> <DCCReference Include="..\..\Lib\dxPScxCommonD11.dcp" />
<DCCReference Include="..\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\..\Lib\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\dxPSLnksD11.dcp" /> <DCCReference Include="..\..\Lib\dxPSLnksD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" /> <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
<DCCReference Include="..\fqb110.dcp" /> <DCCReference Include="..\..\Lib\fqb110.dcp" />
<DCCReference Include="..\frx11.dcp" /> <DCCReference Include="..\..\Lib\frx11.dcp" />
<DCCReference Include="..\frxe11.dcp" /> <DCCReference Include="..\..\Lib\frxe11.dcp" />
<DCCReference Include="..\fs11.dcp" /> <DCCReference Include="..\..\Lib\fs11.dcp" />
<DCCReference Include="..\GestorInformes_controller.dcp" /> <DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" /> <DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
<DCCReference Include="..\Jcl.dcp" /> <DCCReference Include="..\..\Lib\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" /> <DCCReference Include="..\..\Lib\JclVcl.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" /> <DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" /> <DCCReference Include="..\..\Lib\JvCtrlsD11R.dcp" />
<DCCReference Include="..\JvPageCompsD11R.dcp" /> <DCCReference Include="..\..\Lib\JvPageCompsD11R.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" /> <DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
<DCCReference Include="..\PedCli_AlbCli_relation.dcp" /> <DCCReference Include="..\..\Lib\PedCli_AlbCli_relation.dcp" />
<DCCReference Include="..\PedCli_FacProforma_relation.dcp" /> <DCCReference Include="..\..\Lib\PedCli_FacProforma_relation.dcp" />
<DCCReference Include="..\PedCli_PedProv_relation.dcp" /> <DCCReference Include="..\..\Lib\PedCli_PedProv_relation.dcp" />
<DCCReference Include="..\PedidosCliente_controller.dcp" /> <DCCReference Include="..\..\Lib\PedidosCliente_controller.dcp" />
<DCCReference Include="..\PedidosCliente_model.dcp" /> <DCCReference Include="..\..\Lib\PedidosCliente_model.dcp" />
<DCCReference Include="..\PedidosProveedor_model.dcp" /> <DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" /> <DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" /> <DCCReference Include="..\..\Lib\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\tb2k_d10.dcp" /> <DCCReference Include="..\..\Lib\tb2k_d10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" /> <DCCReference Include="..\..\Lib\tbx_d10.dcp" />
<DCCReference Include="..\vcl.dcp" /> <DCCReference Include="..\..\Lib\TiposDocumento_controller.dcp" />
<DCCReference Include="..\vclactnband.dcp" /> <DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" /> <DCCReference Include="..\..\Lib\vclactnband.dcp" />
<DCCReference Include="..\vcljpg.dcp" /> <DCCReference Include="..\..\Lib\vcldb.dcp" />
<DCCReference Include="..\vclshlctrls.dcp" /> <DCCReference Include="..\..\Lib\vcljpg.dcp" />
<DCCReference Include="..\vclx.dcp" /> <DCCReference Include="..\..\Lib\vclshlctrls.dcp" />
<DCCReference Include="..\xmlrtl.dcp" /> <DCCReference Include="..\..\Lib\vclx.dcp" />
<DCCReference Include="..\..\Lib\xmlrtl.dcp" />
<DCCReference Include="uDialogListaPedidosClienteEnvioEMail.pas"> <DCCReference Include="uDialogListaPedidosClienteEnvioEMail.pas">
<Form>frDialogListaPedidosClienteEnvioEMail</Form> <Form>frDialogListaPedidosClienteEnvioEMail</Form>
<DesignClass>T</DesignClass> <DesignClass>T</DesignClass>

118
Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.dfm
View File

@ -21,7 +21,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
560) 560)
object edtFechaPedido: TcxDBDateEdit object edtFechaPedido: TcxDBDateEdit
Left = 112 Left = 112
Top = 82 Top = 109
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PEDIDO' DataBinding.DataField = 'FECHA_PEDIDO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -42,11 +42,11 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 3
Width = 333 Width = 333
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 474 Left = 528
Top = 265 Top = 265
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
@ -63,7 +63,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 9
Height = 200 Height = 200
Width = 459 Width = 459
end end
@ -95,7 +95,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
end end
inline frViewDireccionEntregaPedidoCli1: TfrViewDireccionEntregaPedidoCli inline frViewDireccionEntregaPedidoCli1: TfrViewDireccionEntregaPedidoCli
Left = 22 Left = 22
Top = 193 Top = 220
Width = 432 Width = 432
Height = 248 Height = 248
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -104,43 +104,53 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 7
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 193 ExplicitTop = 220
ExplicitWidth = 432 ExplicitWidth = 432
ExplicitHeight = 248 ExplicitHeight = 248
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 432 Width = 432
Height = 248 Height = 248
ExplicitWidth = 422 ExplicitWidth = 432
ExplicitHeight = 345 ExplicitHeight = 248
DesignSize = ( DesignSize = (
432 432
248) 248)
inherited Bevel1: TBevel inherited Bevel1: TBevel
Top = 283 Top = 256
ExplicitTop = 283 Width = 566
ExplicitTop = 256
ExplicitWidth = 566
end end
inherited lblObra: TLabel inherited lblObra: TLabel
Left = 239 Left = 239
ExplicitLeft = 239 ExplicitLeft = 239
end end
inherited rdxDestino3: TRadioButton
Width = 566
ExplicitWidth = 566
end
inherited cbListaAlmacenes: TcxDBLookupComboBox inherited cbListaAlmacenes: TcxDBLookupComboBox
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 551
Width = 551
end end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 284 Left = 338
Top = 247 Top = 220
ExplicitLeft = 284 ExplicitLeft = 338
ExplicitTop = 247 ExplicitTop = 220
end end
inherited txtDireccion: TStaticText inherited txtDireccion: TStaticText
Width = 882
Height = 68 Height = 68
ExplicitWidth = 882
ExplicitHeight = 68 ExplicitHeight = 68
end end
inherited rdxDestino2: TRadioButton inherited rdxDestino2: TRadioButton
@ -148,12 +158,14 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
ExplicitWidth = 223 ExplicitWidth = 223
end end
inherited edtEntregarA: TcxDBTextEdit inherited edtEntregarA: TcxDBTextEdit
Top = 314 Top = 287
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 314 ExplicitTop = 287
ExplicitWidth = 334
Width = 334
end end
inherited dxLayoutGroup1: TdxLayoutGroup inherited dxLayoutGroup1: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
@ -182,7 +194,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 112 Left = 112
Top = 136 Top = 163
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -211,20 +223,20 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 5
Width = 195 Width = 195
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 312 Left = 366
Top = 136 Top = 163
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 5 TabOrder = 6
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
inline frViewDatosYSeleccionClientePedido1: TfrViewDatosYSeleccionClientePedido inline frViewDatosYSeleccionClientePedido1: TfrViewDatosYSeleccionClientePedido
Left = 474 Left = 528
Top = 28 Top = 28
Width = 480 Width = 480
Height = 201 Height = 201
@ -234,36 +246,40 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 7 TabOrder = 8
ReadOnly = False ReadOnly = False
ExplicitLeft = 474 ExplicitLeft = 528
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 480 ExplicitWidth = 480
ExplicitHeight = 201 ExplicitHeight = 201
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 480 Width = 480
Height = 201 Height = 201
ExplicitWidth = 469 ExplicitWidth = 480
ExplicitHeight = 201 ExplicitHeight = 201
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end end
inherited edtNIF_CIF: TcxDBTextEdit inherited edtNIF_CIF: TcxDBTextEdit
Left = 356 Left = 302
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 356 ExplicitLeft = 302
end end
inherited edtPersonaContacto: TcxDBTextEdit inherited edtPersonaContacto: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283
Width = 283
end end
inherited edtDireccion: TcxMemo inherited edtDireccion: TcxMemo
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -274,16 +290,16 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
Width = 121 Width = 121
end end
inherited Button4: TButton inherited Button4: TButton
Left = 436 Left = 382
ExplicitLeft = 436 ExplicitLeft = 382
end end
inherited Button5: TButton inherited Button5: TButton
Left = 436 Left = 382
ExplicitLeft = 436 ExplicitLeft = 382
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 261 Left = 207
ExplicitLeft = 261 ExplicitLeft = 207
end end
end end
end end
@ -314,7 +330,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
end end
object edtFechaPrevistaEnvio: TcxDBDateEdit object edtFechaPrevistaEnvio: TcxDBDateEdit
Left = 112 Left = 112
Top = 109 Top = 136
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -335,9 +351,34 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 4
Width = 323 Width = 323
end end
object cbTipoPedido: TcxDBComboBox
Left = 112
Top = 82
DataBinding.DataField = 'TIPO_PEDIDO'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsEditFixedList
Properties.HideSelection = False
Properties.ImmediatePost = True
Properties.OnInitPopup = cbTipoPedidoPropertiesInitPopup
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Width = 461
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -363,6 +404,11 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
Control = eRefCliente Control = eRefCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Tipo pedido:'
Control = cbTipoPedido
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha del pedido:' Caption = 'Fecha del pedido:'
Control = edtFechaPedido Control = edtFechaPedido

23
Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.pas
View File

@ -12,7 +12,8 @@ uses
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo, cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
uViewDireccionEntregaPedidoCli, cxLookupEdit, cxDBLookupEdit, uViewDireccionEntregaPedidoCli, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, uFormasPagoController, ActnList, uDAInterfaces, uBizFormasPago, cxDBLookupComboBox, uFormasPagoController, ActnList, uDAInterfaces, uBizFormasPago,
uPedidosClienteController, uViewDatosYSeleccionClientePedido; uPedidosClienteController, uViewDatosYSeleccionClientePedido,
uTiposDocumentoController;
type type
IViewPedidoCliente = interface(IViewBase) IViewPedidoCliente = interface(IViewBase)
@ -61,6 +62,8 @@ type
eRefCliente: TcxDBTextEdit; eRefCliente: TcxDBTextEdit;
dxLayoutControl1Item15: TdxLayoutItem; dxLayoutControl1Item15: TdxLayoutItem;
edtFechaPrevistaEnvio: TcxDBDateEdit; edtFechaPrevistaEnvio: TcxDBDateEdit;
dxLayoutControl1Item4: TdxLayoutItem;
cbTipoPedido: TcxDBComboBox;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
@ -69,12 +72,14 @@ type
procedure frViewClientePedidoButton1Click(Sender: TObject); procedure frViewClientePedidoButton1Click(Sender: TObject);
procedure frViewClientePedidoButton2Click(Sender: TObject); procedure frViewClientePedidoButton2Click(Sender: TObject);
procedure CustomViewShow(Sender: TObject); procedure CustomViewShow(Sender: TObject);
procedure cbTipoPedidoPropertiesInitPopup(Sender: TObject);
protected protected
FPedido : IBizPedidoCliente; FPedido : IBizPedidoCliente;
FController : IPedidosClienteController; FController : IPedidosClienteController;
FViewClientePedido : IViewDatosYSeleccionClientePedido; FViewClientePedido : IViewDatosYSeleccionClientePedido;
FFormasPago : IBizFormaPago; FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
FTipoController: ITiposDocumentoController;
function GetPedido: IBizPedidoCliente; function GetPedido: IBizPedidoCliente;
procedure SetPedido(const Value: IBizPedidoCliente); virtual; procedure SetPedido(const Value: IBizPedidoCliente); virtual;
function GetController : IPedidosClienteController; function GetController : IPedidosClienteController;
@ -114,11 +119,26 @@ begin
FFormasPagoController.VerTodos(FFormasPago); FFormasPagoController.VerTodos(FFormasPago);
end; end;
procedure TfrViewPedidoCliente.cbTipoPedidoPropertiesInitPopup(Sender: TObject);
begin
with cbTipoPedido.Properties.Items do
begin
BeginUpdate;
try
Clear;
AddStrings(FTipoController.DarListaTiposDocumento);
finally
EndUpdate;
end;
end;
end;
procedure TfrViewPedidoCliente.CustomViewCreate(Sender: TObject); procedure TfrViewPedidoCliente.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;
FFormasPago := Nil; FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create; FFormasPagoController := TFormasPagoController.Create;
FTipoController := TTiposDocumentoController.Create;
FViewClientePedido := frViewDatosYSeleccionClientePedido1; FViewClientePedido := frViewDatosYSeleccionClientePedido1;
eReferencia.Enabled := False; eReferencia.Enabled := False;
end; end;
@ -129,6 +149,7 @@ begin
FController := Nil; FController := Nil;
FFormasPago := Nil; FFormasPago := Nil;
FFormasPagoController := NIL; FFormasPagoController := NIL;
FTipoController := NIL;
end; end;
procedure TfrViewPedidoCliente.CustomViewShow(Sender: TObject); procedure TfrViewPedidoCliente.CustomViewShow(Sender: TObject);

4
Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm
View File

@ -88,6 +88,10 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
DataBinding.FieldName = 'SITUACION' DataBinding.FieldName = 'SITUACION'
Width = 95 Width = 95
end end
object cxGridViewTIPO_PEDIDO: TcxGridDBColumn
Caption = 'Tipo pedido'
DataBinding.FieldName = 'TIPO_PEDIDO'
end
object cxGridViewFECHA_PEDIDO: TcxGridDBColumn object cxGridViewFECHA_PEDIDO: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_PEDIDO' DataBinding.FieldName = 'FECHA_PEDIDO'
Width = 45 Width = 45

1
Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas
View File

@ -51,6 +51,7 @@ type
cxGridViewNUM_CORREOS: TcxGridDBColumn; cxGridViewNUM_CORREOS: TcxGridDBColumn;
cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn; cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn; cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn;
cxGridViewTIPO_PEDIDO: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

BIN
Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dpk
View File

Binary file not shown.

26
Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj
View File

@ -49,30 +49,16 @@
<DelphiCompile Include="PresupuestosCliente_controller.dpk"> <DelphiCompile Include="PresupuestosCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
<DCCReference Include="Articulos_controller.dcp" /> <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="Contactos_controller.dcp" /> <DCCReference Include="..\..\Lib\GestorDocumentos_controller.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Lib\PresupuestosCliente_data.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GestorDocumentos_controller.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="PresupuestosCliente_data.dcp" />
<DCCReference Include="PresupuestosCliente_model.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uArticulosPresupuestoClienteController.pas" /> <DCCReference Include="uArticulosPresupuestoClienteController.pas" />
<DCCReference Include="uDetallesPresupuestoClienteController.pas" /> <DCCReference Include="uDetallesPresupuestoClienteController.pas" />
<DCCReference Include="uPresupuestosClienteController.pas" /> <DCCReference Include="uPresupuestosClienteController.pas" />
<DCCReference Include="uPresupuestosClienteReportController.pas" /> <DCCReference Include="uPresupuestosClienteReportController.pas" />
<DCCReference Include="uTiposPresupuestoController.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="View\uIDialogListaPresupuestosEnvioEMail.pas" /> <DCCReference Include="View\uIDialogListaPresupuestosEnvioEMail.pas" />
<DCCReference Include="View\uIEditorDireccionEntregaPresupuestoCliente.pas" /> <DCCReference Include="View\uIEditorDireccionEntregaPresupuestoCliente.pas" />
<DCCReference Include="View\uIEditorElegirArticulosPresupuestosCliente.pas" /> <DCCReference Include="View\uIEditorElegirArticulosPresupuestosCliente.pas" />

222
Source/Modulos/Presupuestos de cliente/Controller/uTiposPresupuestoController.pas
View File

@ -1,222 +0,0 @@
unit uTiposPresupuestoController;
interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
uIDataModulePresupuestosCliente, uBizTiposPresupuesto;
type
ITiposPresupuestoController = interface(IControllerBase)
['{7BFA4153-A300-462F-A4C5-F3140360F088}']
function BuscarTodos: IBizTipoPresupuesto;
procedure VerTodos(ATiposPresupuesto: IBizTipoPresupuesto);
procedure Anadir(ATipoPresupuesto : IBizTipoPresupuesto);
function Eliminar(ATipoPresupuesto : IBizTipoPresupuesto): Boolean;
function Guardar(ATipoPresupuesto : IBizTipoPresupuesto): Boolean;
procedure DescartarCambios(ATipoPresupuesto : IBizTipoPresupuesto);
function Localizar(ATiposPresupuesto: IBizTipoPresupuesto; ADescripcion:String): Boolean;
function DarListaTiposPresupuesto: TStringList;
end;
TTiposPresupuestoController = class(TControllerBase, ITiposPresupuestoController)
protected
FDataModule : IDataModulePresupuestosCliente;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
function ValidarTipoPresupuesto(ATipoPresupuesto: IBizTipoPresupuesto): Boolean;
procedure AsignarDataModule; virtual;
public
constructor Create; override;
destructor Destroy; override;
function Eliminar(ATipoPresupuesto : IBizTipoPresupuesto): Boolean;
function Guardar(ATipoPresupuesto : IBizTipoPresupuesto): Boolean;
procedure DescartarCambios(ATipoPresupuesto : IBizTipoPresupuesto); virtual;
procedure Anadir(ATipoPresupuesto : IBizTipoPresupuesto);
function BuscarTodos: IBizTipoPresupuesto;
procedure VerTodos(ATiposPresupuesto: IBizTipoPresupuesto);
function Localizar(ATiposPresupuesto: IBizTipoPresupuesto; ADescripcion:String): Boolean;
function DarListaTiposPresupuesto: TStringList;
end;
implementation
uses
cxControls, DB, uEditorRegistryUtils,
// uIEditorTiposPresupuesto,
uDataModulePresupuestosCliente,
uDAInterfaces, uDataTableUtils,
uDateUtils, uROTypes, DateUtils, Controls, Windows, schPresupuestosClienteClient_Intf;
{ TTiposPresupuestoController }
procedure TTiposPresupuestoController.Anadir(ATipoPresupuesto: IBizTipoPresupuesto);
begin
ATipoPresupuesto.Insert;
end;
procedure TTiposPresupuestoController.AsignarDataModule;
begin
FDataModule := TDataModulePresupuestosCliente.Create(Nil);
end;
function TTiposPresupuestoController.BuscarTodos: IBizTipoPresupuesto;
begin
Result := FDataModule.GetTiposPresupuesto;
end;
constructor TTiposPresupuestoController.Create;
begin
inherited;
AsignarDataModule;
end;
function TTiposPresupuestoController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
function TTiposPresupuestoController.DarListaTiposPresupuesto: TStringList;
var
ATiposPresupuesto: IBizTipoPresupuesto;
begin
ATiposPresupuesto := BuscarTodos;
ATiposPresupuesto.DataTable.Active := True;
Result := TStringList.Create;
try
with Result do
begin
ATiposPresupuesto.DataTable.First;
while not ATiposPresupuesto.DataTable.EOF do
begin
Add(ATiposPresupuesto.DESCRIPCION);
ATiposPresupuesto.DataTable.Next;
end;
end;
finally
ATiposPresupuesto := NIL;
end;
end;
procedure TTiposPresupuestoController.DescartarCambios(ATipoPresupuesto: IBizTipoPresupuesto);
begin
if not Assigned(ATipoPresupuesto) then
raise Exception.Create ('GrupoCliente no asignado');
ShowHourglassCursor;
try
if (ATipoPresupuesto.State in dsEditModes) then
ATipoPresupuesto.Cancel;
ATipoPresupuesto.DataTable.CancelUpdates;
finally
HideHourglassCursor;
end;
end;
destructor TTiposPresupuestoController.Destroy;
begin
FDataModule := Nil;
inherited;
end;
function TTiposPresupuestoController.ValidarTipoPresupuesto(ATipoPresupuesto: IBizTipoPresupuesto): Boolean;
begin
if not Assigned(ATipoPresupuesto) then
raise Exception.Create ('TipoCliente no asignada');
if (ATipoPresupuesto.DataTable.State in dsEditModes) then
ATipoPresupuesto.DataTable.Post;
if Length(ATipoPresupuesto.DESCRIPCION) = 0 then
raise Exception.Create('Debe indicar al menos la descripción de este tipo.');
Result := True;
end;
procedure TTiposPresupuestoController.VerTodos(ATiposPresupuesto: IBizTipoPresupuesto);
//var
// AEditor : IEditorTiposPresupuesto;
begin
{
AEditor := NIL;
CreateEditor('EditorTiposPresupuesto', IEditorTiposPresupuesto, AEditor);
if Assigned(AEditor) then
try
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.TiposPresupuesto := ATiposPresupuesto;
AEditor.ShowModal;
finally
AEditor.Release;
AEditor := NIL;
end;
}
end;
function TTiposPresupuestoController.Eliminar(ATipoPresupuesto: IBizTipoPresupuesto): Boolean;
begin
if not Assigned(ATipoPresupuesto) then
raise Exception.Create ('TipoCliente no asignada');
ShowHourglassCursor;
try
if (ATipoPresupuesto.State in dsEditModes) then
ATipoPresupuesto.Cancel;
ATipoPresupuesto.Delete;
ATipoPresupuesto.DataTable.ApplyUpdates;
HideHourglassCursor;
Result := True;
finally
HideHourglassCursor;
end;
end;
procedure TTiposPresupuestoController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
begin
inherited;
//
end;
function TTiposPresupuestoController.Guardar(ATipoPresupuesto: IBizTipoPresupuesto): Boolean;
begin
Result := False;
if ValidarTipoPresupuesto(ATipoPresupuesto) then
begin
ShowHourglassCursor;
try
if (ATipoPresupuesto.DataTable.State in dsEditModes) then
ATipoPresupuesto.DataTable.Post;
ATipoPresupuesto.DataTable.ApplyUpdates;
Result := True;
finally
HideHourglassCursor;
end;
end;
end;
function TTiposPresupuestoController.Localizar(ATiposPresupuesto: IBizTipoPresupuesto; ADescripcion: String): Boolean;
begin
Result := True;
ShowHourglassCursor;
try
with ATiposPresupuesto.DataTable do
begin
DisableControls;
First;
if not Locate(fld_TiposPresupuestoDESCRIPCION, ADescripcion, []) then
Result := False;
EnableControls;
end;
finally
HideHourglassCursor;
end;
end;
end.

33
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -419,37 +419,4 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Left = 248 Left = 248
Top = 144 Top = 144
end end
object tbl_TiposPresupuesto: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_TIPOS_ID'
Required = True
DisplayLabel = 'TiposPresupuesto_ID'
DictionaryEntry = 'TiposPresupuesto_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'TiposPresupuesto_DESCRIPCION'
DictionaryEntry = 'TiposPresupuesto_DESCRIPCION'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente
LogicalName = 'TiposPresupuesto'
IndexDefs = <>
Left = 464
Top = 208
end
object ds_TiposPresupuesto: TDADataSource
DataSet = tbl_TiposPresupuesto.Dataset
DataTable = tbl_TiposPresupuesto
Left = 464
Top = 152
end
end end

20
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
View File

@ -11,7 +11,7 @@ uses
uIDataModulePresupuestosCliente, uBizPresupuestosCliente, uBizDetallesPresupuestoCliente, uIDataModulePresupuestosCliente, uBizPresupuestosCliente, uBizDetallesPresupuestoCliente,
uIDataModulePresupuestosClienteReport, uDataModuleBase, uDAInterfaces, uIDataModulePresupuestosClienteReport, uDataModuleBase, uDAInterfaces,
uRODynamicRequest, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer, uRODynamicRequest, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
uDAMemDataTable, uIntegerListUtils, uBizTiposPresupuesto; uDAMemDataTable, uIntegerListUtils;
type type
TDataModulePresupuestosCliente = class(TDataModuleBase, IDataModulePresupuestosCliente, IDataModulePresupuestosClienteReport) TDataModulePresupuestosCliente = class(TDataModuleBase, IDataModulePresupuestosCliente, IDataModulePresupuestosClienteReport)
@ -25,8 +25,6 @@ type
RORemoteService1: TRORemoteService; RORemoteService1: TRORemoteService;
tbl_ListaAnosPresupuestos: TDAMemDataTable; tbl_ListaAnosPresupuestos: TDAMemDataTable;
ds_ListaAnosPresupuestos: TDADataSource; ds_ListaAnosPresupuestos: TDADataSource;
tbl_TiposPresupuesto: TDAMemDataTable;
ds_TiposPresupuesto: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
private private
@ -49,7 +47,6 @@ type
function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary; function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
function GetAnosItems : TStringList; function GetAnosItems : TStringList;
function GetTiposPresupuesto : IBizTipoPresupuesto;
end; end;
implementation implementation
@ -109,21 +106,6 @@ begin
// Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnWord(AID, AVerSello) // Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnWord(AID, AVerSello)
end; end;
function TDataModulePresupuestosCliente.GetTiposPresupuesto: IBizTipoPresupuesto;
var
ATipoPresupuesto : TDAMemDataTable;
begin
ShowHourglassCursor;
try
ATipoPresupuesto := CloneDataTable(tbl_TiposPresupuesto);
ATipoPresupuesto.BusinessRulesID := BIZ_CLIENT_TIPOSPRESUPUESTO;
Result := (ATipoPresupuesto as IBizTipoPresupuesto);
finally
HideHourglassCursor;
end;
end;
function TDataModulePresupuestosCliente.NewItem: IBizPresupuestoCliente; function TDataModulePresupuestosCliente.NewItem: IBizPresupuestoCliente;
begin begin
Result := GetItem(ID_NULO) Result := GetItem(ID_NULO)

3
Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosCliente.pas
View File

@ -4,7 +4,7 @@ interface
uses uses
Classes, uROTypes, uBizPresupuestosCliente, uBizDetallesPresupuestoCliente, Classes, uROTypes, uBizPresupuestosCliente, uBizDetallesPresupuestoCliente,
uIntegerListUtils, uBizTiposPresupuesto; uIntegerListUtils;
type type
IDataModulePresupuestosCliente = interface IDataModulePresupuestosCliente = interface
@ -14,7 +14,6 @@ type
function GetItems(const AListaID: TIntegerList) : IBizPresupuestoCliente; overload; function GetItems(const AListaID: TIntegerList) : IBizPresupuestoCliente; overload;
function GetItem(const ID : Integer) : IBizPresupuestoCliente; function GetItem(const ID : Integer) : IBizPresupuestoCliente;
function NewItem : IBizPresupuestoCliente; function NewItem : IBizPresupuestoCliente;
function GetTiposPresupuesto : IBizTipoPresupuesto;
end; end;
implementation implementation

3
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dpk
View File

@ -35,7 +35,6 @@ contains
uBizPresupuestosCliente in 'uBizPresupuestosCliente.pas', uBizPresupuestosCliente in 'uBizPresupuestosCliente.pas',
uIDataModulePresupuestosClienteReport in 'Data\uIDataModulePresupuestosClienteReport.pas', uIDataModulePresupuestosClienteReport in 'Data\uIDataModulePresupuestosClienteReport.pas',
schPresupuestosClienteClient_Intf in 'schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in 'schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in 'schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in 'schPresupuestosClienteServer_Intf.pas';
uBizTiposPresupuesto in 'uBizTiposPresupuesto.pas';
end. end.

13
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
View File

@ -43,12 +43,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\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\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 Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -58,16 +52,15 @@
<DelphiCompile Include="PresupuestosCliente_model.dpk"> <DelphiCompile Include="PresupuestosCliente_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" /> <DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\TiposIVA_controller.dcp" /> <DCCReference Include="..\..\..\Servidor\TiposIVA_controller.dcp" />
<DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" /> <DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
<DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" /> <DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
<DCCReference Include="schPresupuestosClienteClient_Intf.pas" /> <DCCReference Include="schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="schPresupuestosClienteServer_Intf.pas" /> <DCCReference Include="schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="uBizDetallesPresupuestoCliente.pas" /> <DCCReference Include="uBizDetallesPresupuestoCliente.pas" />
<DCCReference Include="uBizPresupuestosCliente.pas" /> <DCCReference Include="uBizPresupuestosCliente.pas" />
<DCCReference Include="uBizTiposPresupuesto.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

124
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -9,25 +9,15 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_TiposPresupuesto = '{067BF5B3-957D-4209-918C-15F4607D3538}'; RID_ListaAnosPresupuestos = '{A4D408B4-9527-45F7-9A1C-536B4FB19884}';
RID_ListaAnosPresupuestos = '{A7BDD168-030A-44BC-9E79-80E5C636B848}'; RID_PresupuestosCliente = '{1544B06D-1221-46F4-AFF1-D58C4B1AE295}';
RID_PresupuestosCliente = '{EEF2A702-B95F-48FC-899E-DD7193E0C803}'; RID_PresupuestosCliente_Detalles = '{F13AC3B1-BB99-490A-B13A-2F495F3944C5}';
RID_PresupuestosCliente_Detalles = '{2613B706-19AB-4B38-A740-CA9442C01DE6}';
{ Data table names } { Data table names }
nme_TiposPresupuesto = 'TiposPresupuesto';
nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos'; nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
nme_PresupuestosCliente = 'PresupuestosCliente'; nme_PresupuestosCliente = 'PresupuestosCliente';
nme_PresupuestosCliente_Detalles = 'PresupuestosCliente_Detalles'; nme_PresupuestosCliente_Detalles = 'PresupuestosCliente_Detalles';
{ TiposPresupuesto fields }
fld_TiposPresupuestoID = 'ID';
fld_TiposPresupuestoDESCRIPCION = 'DESCRIPCION';
{ TiposPresupuesto field indexes }
idx_TiposPresupuestoID = 0;
idx_TiposPresupuestoDESCRIPCION = 1;
{ ListaAnosPresupuestos fields } { ListaAnosPresupuestos fields }
fld_ListaAnosPresupuestosANO = 'ANO'; fld_ListaAnosPresupuestosANO = 'ANO';
@ -149,56 +139,9 @@ const
idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 14; idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 14;
type type
{ ITiposPresupuesto }
ITiposPresupuesto = interface(IDAStronglyTypedDataTable)
['{6144C530-8930-4BC1-95F0-E65300C1D40E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
end;
{ TTiposPresupuestoDataTableRules }
TTiposPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ITiposPresupuesto)
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 GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IListaAnosPresupuestos } { IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{35F561AE-5DD8-4708-A4A2-C4C5620FB210}'] ['{C610654D-7E6C-4A10-8CDC-BFA1C6D3AB09}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -233,7 +176,7 @@ type
{ IPresupuestosCliente } { IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable) IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{7BD53D1E-98BA-4F9C-9D51-8076E362AB5B}'] ['{EB145AB3-4E1A-48E4-8972-96CBFCC6A5BA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -712,7 +655,7 @@ type
{ IPresupuestosCliente_Detalles } { IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{680BF325-95A2-43D4-888A-98178CD4C01B}'] ['{3A6F2B7A-EDAF-4606-B8CE-B24BED8ECBB7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -917,60 +860,6 @@ implementation
uses Variants, uROBinaryHelpers; uses Variants, uROBinaryHelpers;
{ TTiposPresupuestoDataTableRules }
constructor TTiposPresupuestoDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TTiposPresupuestoDataTableRules.Destroy;
begin
inherited;
end;
function TTiposPresupuestoDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_TiposPresupuestoID].AsInteger;
end;
procedure TTiposPresupuestoDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_TiposPresupuestoID].AsInteger := aValue;
end;
function TTiposPresupuestoDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_TiposPresupuestoID].IsNull;
end;
procedure TTiposPresupuestoDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_TiposPresupuestoID].AsVariant := Null;
end;
function TTiposPresupuestoDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_TiposPresupuestoDESCRIPCION].AsString;
end;
procedure TTiposPresupuestoDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_TiposPresupuestoDESCRIPCION].AsString := aValue;
end;
function TTiposPresupuestoDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_TiposPresupuestoDESCRIPCION].IsNull;
end;
procedure TTiposPresupuestoDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_TiposPresupuestoDESCRIPCION].AsVariant := Null;
end;
{ TListaAnosPresupuestosDataTableRules } { TListaAnosPresupuestosDataTableRules }
constructor TListaAnosPresupuestosDataTableRules.Create(aDataTable: TDADataTable); constructor TListaAnosPresupuestosDataTableRules.Create(aDataTable: TDADataTable);
begin begin
@ -2164,7 +2053,6 @@ end;
initialization initialization
RegisterDataTableRules(RID_TiposPresupuesto, TTiposPresupuestoDataTableRules);
RegisterDataTableRules(RID_ListaAnosPresupuestos, TListaAnosPresupuestosDataTableRules); RegisterDataTableRules(RID_ListaAnosPresupuestos, TListaAnosPresupuestosDataTableRules);
RegisterDataTableRules(RID_PresupuestosCliente, TPresupuestosClienteDataTableRules); RegisterDataTableRules(RID_PresupuestosCliente, TPresupuestosClienteDataTableRules);
RegisterDataTableRules(RID_PresupuestosCliente_Detalles, TPresupuestosCliente_DetallesDataTableRules); RegisterDataTableRules(RID_PresupuestosCliente_Detalles, TPresupuestosCliente_DetallesDataTableRules);

134
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -9,61 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_TiposPresupuestoDelta = '{C2B2B040-7C13-4BBE-A40D-DD5C03C2F278}'; RID_ListaAnosPresupuestosDelta = '{64A0D3FB-00DD-4AB8-A593-BBCD65384819}';
RID_ListaAnosPresupuestosDelta = '{83A3D8D3-0A68-4550-810C-3B1A282700EF}'; RID_PresupuestosClienteDelta = '{58B1773F-4AD1-42C4-B37D-A211DA2B6130}';
RID_PresupuestosClienteDelta = '{B92988AD-B020-4720-8147-0D4789AD671E}'; RID_PresupuestosCliente_DetallesDelta = '{61BEA975-8449-48D5-AE10-E049BFF6FF92}';
RID_PresupuestosCliente_DetallesDelta = '{9E8D6B49-757B-4427-9D2E-B33B8E0E1EFF}';
type type
{ ITiposPresupuestoDelta }
ITiposPresupuestoDelta = interface(ITiposPresupuesto)
['{C2B2B040-7C13-4BBE-A40D-DD5C03C2F278}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
end;
{ TTiposPresupuestoBusinessProcessorRules }
TTiposPresupuestoBusinessProcessorRules = class(TDABusinessProcessorRules, ITiposPresupuesto, ITiposPresupuestoDelta)
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 GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(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 DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IListaAnosPresupuestosDelta } { IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{83A3D8D3-0A68-4550-810C-3B1A282700EF}'] ['{64A0D3FB-00DD-4AB8-A593-BBCD65384819}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -97,7 +50,7 @@ type
{ IPresupuestosClienteDelta } { IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente) IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{B92988AD-B020-4720-8147-0D4789AD671E}'] ['{58B1773F-4AD1-42C4-B37D-A211DA2B6130}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -579,7 +532,7 @@ type
{ IPresupuestosCliente_DetallesDelta } { IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{9E8D6B49-757B-4427-9D2E-B33B8E0E1EFF}'] ['{61BEA975-8449-48D5-AE10-E049BFF6FF92}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;
@ -784,80 +737,6 @@ implementation
uses uses
Variants, uROBinaryHelpers, uDAInterfaces; Variants, uROBinaryHelpers, uDAInterfaces;
{ TTiposPresupuestoBusinessProcessorRules }
constructor TTiposPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TTiposPresupuestoBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TTiposPresupuestoBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposPresupuestoID];
end;
function TTiposPresupuestoBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposPresupuestoID]);
end;
function TTiposPresupuestoBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposPresupuestoID];
end;
function TTiposPresupuestoBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposPresupuestoID]);
end;
procedure TTiposPresupuestoBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposPresupuestoID] := aValue;
end;
procedure TTiposPresupuestoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposPresupuestoID] := Null;
end;
function TTiposPresupuestoBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposPresupuestoDESCRIPCION];
end;
function TTiposPresupuestoBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposPresupuestoDESCRIPCION]);
end;
function TTiposPresupuestoBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposPresupuestoDESCRIPCION];
end;
function TTiposPresupuestoBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposPresupuestoDESCRIPCION]);
end;
procedure TTiposPresupuestoBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposPresupuestoDESCRIPCION] := aValue;
end;
procedure TTiposPresupuestoBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposPresupuestoDESCRIPCION] := Null;
end;
{ TListaAnosPresupuestosBusinessProcessorRules } { TListaAnosPresupuestosBusinessProcessorRules }
constructor TListaAnosPresupuestosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TListaAnosPresupuestosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin begin
@ -2595,7 +2474,6 @@ end;
initialization initialization
RegisterBusinessProcessorRules(RID_TiposPresupuestoDelta, TTiposPresupuestoBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ListaAnosPresupuestosDelta, TListaAnosPresupuestosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ListaAnosPresupuestosDelta, TListaAnosPresupuestosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PresupuestosClienteDelta, TPresupuestosClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PresupuestosClienteDelta, TPresupuestosClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PresupuestosCliente_DetallesDelta, TPresupuestosCliente_DetallesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PresupuestosCliente_DetallesDelta, TPresupuestosCliente_DetallesBusinessProcessorRules);

37
Source/Modulos/Presupuestos de cliente/Model/uBizTiposPresupuesto.pas
View File

@ -1,37 +0,0 @@
unit uBizTiposPresupuesto;
interface
uses
uDAInterfaces, uDADataTable, schPresupuestosClienteClient_Intf;
const
BIZ_CLIENT_TIPOSPRESUPUESTO = 'Client.TipoPresupuesto';
type
IBizTipoPresupuesto = interface(ITiposPresupuesto)
['{67DFD7A3-DFAD-4592-9D33-9258FE78E47C}']
end;
TBizTipoPresupuesto = class(TTiposPresupuestoDataTableRules, IBizTipoPresupuesto)
protected
procedure AfterOpen(Sender: TDADataTable); override;
end;
implementation
{ TBizTiposPresupuesto }
procedure TBizTipoPresupuesto.AfterOpen(Sender: TDADataTable);
begin
inherited;
DataTable.Sort([fld_TiposPresupuestoDESCRIPCION], [sdAscending]);
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_TIPOSPRESUPUESTO, TBizTipoPresupuesto);
finalization
end.

35
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -11,41 +11,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
ConnectionManager = dmServer.ConnectionManager ConnectionManager = dmServer.ConnectionManager
DataDictionary = DADataDictionary DataDictionary = DADataDictionary
Datasets = < Datasets = <
item
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_TIPOS'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'TiposPresupuesto'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_TIPOS_ID'
DictionaryEntry = 'TiposPresupuesto_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'TiposPresupuesto_DESCRIPCION'
end>
end
item item
Params = <> Params = <>
Statements = < Statements = <

21
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk
View File

@ -31,27 +31,10 @@ requires
PresupuestosCliente_controller, PresupuestosCliente_controller,
Articulos_view, Articulos_view,
GestorInformes_controller, GestorInformes_controller,
vcl,
rtl,
dbrtl,
DataAbstract_Core_D11,
vcldb,
dsnap,
adortl,
RemObjects_Core_D11,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
cxEditorsD11,
cxDataD11,
vcljpg,
dxLayoutControlD11,
dxComnD11,
dxCoreD11,
vclx,
ApplicationBase, ApplicationBase,
PreCli_FacPro_relation, PreCli_FacPro_relation,
PreCli_PedCli_relation; PreCli_PedCli_relation,
TiposDocumento_controller;
contains contains
uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas', uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',

19
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
View File

@ -49,33 +49,16 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk"> <DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\adortl.dcp" />
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" /> <DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" /> <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" />
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" /> <DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\PreCli_FacPro_relation.dcp" /> <DCCReference Include="..\..\Lib\PreCli_FacPro_relation.dcp" />
<DCCReference Include="..\..\Lib\PreCli_PedCli_relation.dcp" /> <DCCReference Include="..\..\Lib\PreCli_PedCli_relation.dcp" />
<DCCReference Include="..\..\Lib\PresupuestosCliente_controller.dcp" /> <DCCReference Include="..\..\Lib\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" /> <DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Lib\TiposDocumento_controller.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" />
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" />
<DCCReference Include="uDialogListaPresupuestosEnvioEMail.pas"> <DCCReference Include="uDialogListaPresupuestosEnvioEMail.pas">
<Form>fDialogListaPresupuestosEnvioEMail</Form> <Form>fDialogListaPresupuestosEnvioEMail</Form>
</DCCReference> </DCCReference>

BIN
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res
View File

Binary file not shown.

4
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
View File

@ -1998,9 +1998,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Action = actGenerarCertificado Action = actGenerarCertificado
end end
object Generar2: TMenuItem [7] object Generar2: TMenuItem [7]
Caption = 'Generar factura' Action = actGenerarFacturaProforma
ImageIndex = 26
OnClick = actGenerarExecute
end end
object N4: TMenuItem [8] object N4: TMenuItem [8]
Caption = '-' Caption = '-'

2
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
View File

@ -418,9 +418,9 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Top = 82 Top = 82
DataBinding.DataField = 'TIPO_PRESUPUESTO' DataBinding.DataField = 'TIPO_PRESUPUESTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsEditFixedList
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.OnInitPopup = cbTipoPresupuestoPropertiesInitPopup Properties.OnInitPopup = cbTipoPresupuestoPropertiesInitPopup
Properties.OnValidate = cbTipoPresupuestoPropertiesValidate
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False

40
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
View File

@ -12,7 +12,7 @@ uses
uViewDireccionEntregaPresupuestoCliente, Buttons, ActnList, cxLookupEdit, uViewDireccionEntregaPresupuestoCliente, Buttons, ActnList, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
uBizFormasPago, cxButtonEdit, uViewDatosYSeleccionClientePresupuesto, uBizFormasPago, cxButtonEdit, uViewDatosYSeleccionClientePresupuesto,
uTiposPresupuestoController; uTiposDocumentoController;
type type
IViewPresupuestoCliente = interface(IViewBase) IViewPresupuestoCliente = interface(IViewBase)
@ -82,14 +82,12 @@ type
procedure actElegirClienteFinalExecute(Sender: TObject); procedure actElegirClienteFinalExecute(Sender: TObject);
procedure actElegirClienteFinalUpdate(Sender: TObject); procedure actElegirClienteFinalUpdate(Sender: TObject);
procedure cbTipoPresupuestoPropertiesInitPopup(Sender: TObject); procedure cbTipoPresupuestoPropertiesInitPopup(Sender: TObject);
procedure cbTipoPresupuestoPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
protected protected
FPresupuesto : IBizPresupuestoCliente; FPresupuesto : IBizPresupuestoCliente;
FFormasPago : IBizFormaPago; FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
FViewClientePresupuesto : IViewDatosYSeleccionClientePresupuesto; FViewClientePresupuesto : IViewDatosYSeleccionClientePresupuesto;
FTipoController: ITiposPresupuestoController; FTipoController: ITiposDocumentoController;
function GetPresupuesto: IBizPresupuestoCliente; function GetPresupuesto: IBizPresupuestoCliente;
procedure SetPresupuesto(const Value: IBizPresupuestoCliente); virtual; procedure SetPresupuesto(const Value: IBizPresupuestoCliente); virtual;
@ -107,7 +105,7 @@ implementation
uses uses
uClientesController, uBizContactos, uBizDireccionesContacto, uClientesController, uBizContactos, uBizDireccionesContacto,
uPresupuestosClienteController, uBizTiposPresupuesto; uPresupuestosClienteController;
procedure TfrViewPresupuestoCliente.actElegirClienteFinalExecute( procedure TfrViewPresupuestoCliente.actElegirClienteFinalExecute(
@ -186,47 +184,19 @@ begin
BeginUpdate; BeginUpdate;
try try
Clear; Clear;
AddStrings(FTipoController.DarListaTiposPresupuesto); AddStrings(FTipoController.DarListaTiposDocumento);
finally finally
EndUpdate; EndUpdate;
end; end;
end; end;
end; end;
procedure TfrViewPresupuestoCliente.cbTipoPresupuestoPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
var
ATipo : IBizTipoPresupuesto;
begin
inherited;
with (Sender as TcxDBComboBox) do
begin
if (Length(DisplayValue) > 0) and (DisplayValue <> (Presupuesto as IBizPresupuestoCliente).TIPO_PRESUPUESTO) then
if Properties.LookupItems.IndexOf(DisplayValue) < 0 then
begin
Properties.LookupItems.BeginUpdate;
ATipo := FTipoController.BuscarTodos;
ATipo.DataTable.Active := True;
try
FTipoController.Anadir(ATipo);
ATipo.DESCRIPCION := DisplayValue;
FTipoController.Guardar(ATipo);
Properties.LookupItems.Add(DisplayValue);
finally
Properties.LookupItems.EndUpdate;
ATipo := NIL;
end;
end;
end;
end;
procedure TfrViewPresupuestoCliente.CustomViewCreate(Sender: TObject); procedure TfrViewPresupuestoCliente.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;
FFormasPago := Nil; FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create; FFormasPagoController := TFormasPagoController.Create;
FTipoController := TTiposPresupuestoController.Create; FTipoController := TTiposDocumentoController.Create;
FViewClientePresupuesto := frViewDatosYSeleccionClientePresupuesto1; FViewClientePresupuesto := frViewDatosYSeleccionClientePresupuesto1;
end; end;

4
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
View File

@ -79,6 +79,10 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
BestFitMaxWidth = 25 BestFitMaxWidth = 25
Width = 80 Width = 80
end end
object cxGridViewTIPO_PRESUPUESTO: TcxGridDBColumn
Caption = 'Tipo presupuesto'
DataBinding.FieldName = 'TIPO_PRESUPUESTO'
end
object cxGridViewFECHA_PRESUPUESTO: TcxGridDBColumn object cxGridViewFECHA_PRESUPUESTO: TcxGridDBColumn
Caption = 'Fecha presupuesto' Caption = 'Fecha presupuesto'
DataBinding.FieldName = 'FECHA_PRESUPUESTO' DataBinding.FieldName = 'FECHA_PRESUPUESTO'

1
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
View File

@ -50,6 +50,7 @@ type
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn; cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
cxGridViewIVA: TcxGridDBColumn; cxGridViewIVA: TcxGridDBColumn;
cxGridViewIMPORTE_IVA: TcxGridDBColumn; cxGridViewIMPORTE_IVA: TcxGridDBColumn;
cxGridViewTIPO_PRESUPUESTO: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

23
Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.pas
View File

@ -45,15 +45,9 @@ begin
APresupuesto.DataTable.Active := True; APresupuesto.DataTable.Active := True;
// El albarán tiene que venir ya abierto y posicionado donde hay que copiar // El albarán tiene que venir ya abierto y posicionado donde hay que copiar
APedido.ID_CLIENTE := APresupuesto.ID_CLIENTE;
APedido.ID_PRESUPUESTO := APresupuesto.ID; APedido.ID_PRESUPUESTO := APresupuesto.ID;
APedido.REFERENCIA_CLIENTE := APresupuesto.REFERENCIA_CLIENTE; APedido.REFERENCIA_CLIENTE := APresupuesto.REFERENCIA_CLIENTE;
// APedido.CALLE := APresupuesto.CALLE; APedido.TIPO_PEDIDO := APresupuesto.TIPO_PRESUPUESTO;
// APedido.CODIGO_POSTAL := APresupuesto.CODIGO_POSTAL;
// APedido.POBLACION := APresupuesto.POBLACION;
// APedido.PROVINCIA := APresupuesto.PROVINCIA;
// APedido.PERSONA_CONTACTO := APresupuesto.PERSONA_CONTACTO;
// APedido.TELEFONO := APresupuesto.TELEFONO;
APedido.IMPORTE_NETO := APresupuesto.IMPORTE_NETO; APedido.IMPORTE_NETO := APresupuesto.IMPORTE_NETO;
APedido.IMPORTE_PORTE := APresupuesto.IMPORTE_PORTE; APedido.IMPORTE_PORTE := APresupuesto.IMPORTE_PORTE;
APedido.DESCUENTO := APresupuesto.DESCUENTO; APedido.DESCUENTO := APresupuesto.DESCUENTO;
@ -64,7 +58,18 @@ begin
APedido.IMPORTE_TOTAL := APresupuesto.IMPORTE_TOTAL; APedido.IMPORTE_TOTAL := APresupuesto.IMPORTE_TOTAL;
APedido.DataTable.FieldByName(fld_PedidosClienteOBSERVACIONES).AsVariant := APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteOBSERVACIONES).AsVariant; APedido.DataTable.FieldByName(fld_PedidosClienteOBSERVACIONES).AsVariant := APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteOBSERVACIONES).AsVariant;
APedido.ID_FORMA_PAGO := APresupuesto.ID_FORMA_PAGO; APedido.ID_FORMA_PAGO := APresupuesto.ID_FORMA_PAGO;
// APedido.FECHA_PREVISTA_ENVIO := APresupuesto.FECHA_PREVISTA_ENVIO;
APresupuestosClienteController.RecuperarCliente(APresupuesto);
APedido.Cliente := APresupuesto.Cliente;
//Siempre cogeremos la primera direcci¢n del contacto para el envio
APedido.CALLE := APedido.Cliente.Direcciones.CALLE;
APedido.CODIGO_POSTAL := APedido.Cliente.Direcciones.CODIGO_POSTAL;
APedido.POBLACION := APedido.Cliente.Direcciones.POBLACION;
APedido.PROVINCIA := APedido.Cliente.Direcciones.PROVINCIA;
APedido.PERSONA_CONTACTO := APedido.Cliente.Direcciones.PERSONA_CONTACTO;
APedido.TELEFONO := APedido.Cliente.Direcciones.TELEFONO;
end; end;
procedure CopiarArticulosPresupuesto(AOrigen: IBizDetallesPresupuestoCliente; procedure CopiarArticulosPresupuesto(AOrigen: IBizDetallesPresupuestoCliente;
@ -181,6 +186,8 @@ begin
try try
PedidosNuevos := APedidosClienteController.Nuevo; //(False); PedidosNuevos := APedidosClienteController.Nuevo; //(False);
PedidosNuevos._Cliente := NIL;
CopiarPresupuestoAPedido(APresupuesto, PedidosNuevos); CopiarPresupuestoAPedido(APresupuesto, PedidosNuevos);
CopiarArticulosPresupuesto(APresupuesto.Detalles, PedidosNuevos.Detalles); CopiarArticulosPresupuesto(APresupuesto.Detalles, PedidosNuevos.Detalles);
// PedidosNuevos.CalcularImporteTotal; // PedidosNuevos.CalcularImporteTotal;

BIN
Source/Modulos/TiposDocumento/Controller/TiposDocumento_controller.dcu Normal file
View File

Binary file not shown.

BIN
Source/Modulos/TiposDocumento/Controller/TiposDocumento_controller.dpk Normal file
View File

Binary file not shown.

542
Source/Modulos/TiposDocumento/Controller/TiposDocumento_controller.dproj Normal file
View File

@ -0,0 +1,542 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{7f80f8aa-6912-4714-986d-aed73035472b}</ProjectGuid>
<MainSource>TiposDocumento_controller.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\TiposDocumento_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_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_BplOutput>..\..\..\..\Output\Release\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_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">TiposDocumento_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="TiposDocumento_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\TiposDocumento_data.dcp" />
<DCCReference Include="..\..\Lib\TiposDocumento_model.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="uTiposDocumentoController.pas" />
<DCCReference Include="view\uIEditorTiposDocumento.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 -->

220
Source/Modulos/TiposDocumento/Controller/uTiposDocumentoController.pas Normal file
View File

@ -0,0 +1,220 @@
unit uTiposDocumentoController;
interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
uIDataModuleTiposDocumento, uBizTiposDocumento;
type
ITiposDocumentoController = interface(IControllerBase)
['{4D248341-1FE0-466E-BD84-10B540CA57EA}']
function BuscarTodos: IBizTipoDocumento;
procedure VerTodos(ATiposDocumento: IBizTipoDocumento);
procedure Anadir(ATipoDocumento : IBizTipoDocumento);
function Eliminar(ATipoDocumento : IBizTipoDocumento): Boolean;
function Guardar(ATipoDocumento : IBizTipoDocumento): Boolean;
procedure DescartarCambios(ATipoDocumento : IBizTipoDocumento);
function Localizar(ATiposDocumento: IBizTipoDocumento; ADescripcion:String): Boolean;
function DarListaTiposDocumento: TStringList;
end;
TTiposDocumentoController = class(TControllerBase, ITiposDocumentoController)
protected
FDataModule : IDataModuleTiposDocumento;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
function ValidarTiposDocumento(ATipoDocumento: IBizTipoDocumento): Boolean;
//Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de
//este controller
procedure AsignarDataModule; virtual;
public
constructor Create; override;
destructor Destroy; override;
function Eliminar(ATipoDocumento : IBizTipoDocumento): Boolean;
function Guardar(ATipoDocumento : IBizTipoDocumento): Boolean;
procedure DescartarCambios(ATipoDocumento : IBizTipoDocumento); virtual;
procedure Anadir(ATipoDocumento : IBizTipoDocumento);
function BuscarTodos: IBizTipoDocumento;
procedure VerTodos(ATiposDocumento: IBizTipoDocumento);
function Localizar(ATiposDocumento: IBizTipoDocumento; ADescripcion:String): Boolean;
function DarListaTiposDocumento: TStringList;
end;
implementation
uses
cxControls, DB, uEditorRegistryUtils, schTiposDocumentoClient_Intf,
uIEditorTiposDocumento, uDataModuleTiposDocumento,
uDAInterfaces, uDataTableUtils,
uDateUtils, uROTypes, DateUtils, Controls, Windows;
{ TTiposDocumentoController }
procedure TTiposDocumentoController.Anadir(ATipoDocumento: IBizTipoDocumento);
begin
ATipoDocumento.Insert;
end;
procedure TTiposDocumentoController.AsignarDataModule;
begin
FDataModule := TDataModuleTiposDocumento.Create(Nil);
end;
function TTiposDocumentoController.BuscarTodos: IBizTipoDocumento;
begin
Result := FDataModule.GetItems;
end;
constructor TTiposDocumentoController.Create;
begin
inherited;
AsignarDataModule;
end;
function TTiposDocumentoController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
function TTiposDocumentoController.DarListaTiposDocumento: TStringList;
var
ATiposDocumento: IBizTipoDocumento;
begin
ATiposDocumento := BuscarTodos;
ATiposDocumento.DataTable.Active := True;
Result := TStringList.Create;
try
with Result do
begin
ATiposDocumento.DataTable.First;
while not ATiposDocumento.DataTable.EOF do
begin
Add(ATiposDocumento.DESCRIPCION);
ATiposDocumento.DataTable.Next;
end;
end;
finally
ATiposDocumento := NIL;
end;
end;
procedure TTiposDocumentoController.DescartarCambios(ATipoDocumento: IBizTipoDocumento);
begin
if not Assigned(ATipoDocumento) then
raise Exception.Create ('TipoDocumento no asignado');
ShowHourglassCursor;
try
if (ATipoDocumento.State in dsEditModes) then
ATipoDocumento.Cancel;
ATipoDocumento.DataTable.CancelUpdates;
finally
HideHourglassCursor;
end;
end;
destructor TTiposDocumentoController.Destroy;
begin
FDataModule := Nil;
inherited;
end;
function TTiposDocumentoController.ValidarTiposDocumento(ATipoDocumento: IBizTipoDocumento): Boolean;
begin
Result := False;
if not Assigned(ATipoDocumento) then
raise Exception.Create ('TipoDocumento no asignada');
if (ATipoDocumento.DataTable.State in dsEditModes) then
ATipoDocumento.DataTable.Post;
Result := True;
end;
procedure TTiposDocumentoController.VerTodos(ATiposDocumento: IBizTipoDocumento);
var
AEditor : IEditorTiposDocumento;
begin
AEditor := NIL;
CreateEditor('EditorTiposDocumento', IEditorTiposDocumento, AEditor);
if Assigned(AEditor) then
try
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.TiposDocumento := ATiposDocumento;
AEditor.ShowModal;
finally
AEditor.Release;
end;
end;
function TTiposDocumentoController.Eliminar(ATipoDocumento: IBizTipoDocumento): Boolean;
begin
if not Assigned(ATipoDocumento) then
raise Exception.Create ('Almacen no asignada');
ShowHourglassCursor;
try
if (ATipoDocumento.State in dsEditModes) then
ATipoDocumento.Cancel;
ATipoDocumento.Delete;
ATipoDocumento.DataTable.ApplyUpdates;
HideHourglassCursor;
Result := True;
finally
HideHourglassCursor;
end;
end;
procedure TTiposDocumentoController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
begin
inherited;
//
end;
function TTiposDocumentoController.Guardar(ATipoDocumento: IBizTipoDocumento): Boolean;
begin
Result := False;
if not Assigned(ATipoDocumento) then
raise Exception.Create ('TipoDocumento no asignado');
if ValidarTiposDocumento(ATipoDocumento) then
begin
ShowHourglassCursor;
try
ATipoDocumento.DataTable.ApplyUpdates;
Result := True;
finally
HideHourglassCursor;
end;
end;
end;
function TTiposDocumentoController.Localizar(ATiposDocumento: IBizTipoDocumento; ADescripcion: String): Boolean;
begin
Result := True;
ShowHourglassCursor;
try
with ATiposDocumento.DataTable do
begin
DisableControls;
First;
if not Locate(fld_TiposDocumentoDESCRIPCION, ADescripcion, []) then
Result := False;
EnableControls;
end;
finally
HideHourglassCursor;
end;
end;
end.

26
Source/Modulos/TiposDocumento/Controller/view/uIEditorTiposDocumento.pas Normal file
View File

@ -0,0 +1,26 @@
unit uIEditorTiposDocumento;
interface
uses
uEditorDBBase, uBizTiposDocumento, uTiposDocumentoController, uGUIBase;
type
IEditorTiposDocumento = interface(ICustomEditor)
['{F65EA16E-7CBC-4E78-8014-BB9E4DC1692A}']
function GetTiposDocumento: IBizTipoDocumento;
procedure SetTiposDocumento(const Value: IBizTipoDocumento);
property TiposDocumento: IBizTipoDocumento read GetTiposDocumento write SetTiposDocumento;
function GetController : ITiposDocumentoController;
procedure SetController (const Value : ITiposDocumentoController);
property Controller : ITiposDocumentoController read GetController write SetController;
function ShowModal : Integer;
procedure Show;
end;
implementation
end.

BIN
Source/Modulos/TiposDocumento/Data/TiposDocumento_data.dpk Normal file
View File

Binary file not shown.

546
Source/Modulos/TiposDocumento/Data/TiposDocumento_data.dproj Normal file
View File

@ -0,0 +1,546 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{55d06c67-fc74-4d88-8787-801dee872bb3}</ProjectGuid>
<MainSource>TiposDocumento_data.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\TiposDocumento_data.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">TiposDocumento_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="TiposDocumento_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\TiposDocumento_model.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="uDataModuleTiposDocumento.pas">
<Form>DataModuleTiposDocumento</Form>
<DesignClass>TDAClientDataModule</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=0
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 -->

59
Source/Modulos/TiposDocumento/Data/uDataModuleTiposDocumento.dfm Normal file
View File

@ -0,0 +1,59 @@
inherited DataModuleTiposDocumento: TDataModuleTiposDocumento
OnCreate = DAClientDataModuleCreate
Height = 248
Width = 489
object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel
ServiceName = 'srvTiposDocumento'
Left = 48
Top = 24
end
object rda_TiposDocumento: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
Left = 203
Top = 23
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 96
end
object tbl_TiposDocumento: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_TIPOS_DOCUMENTO_ID'
Required = True
ServerAutoRefresh = True
DictionaryEntry = 'TiposDocumento_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'TiposDocumento_DESCRIPCION'
DictionaryEntry = 'TiposDocumento_DESCRIPCION'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_TiposDocumento
LogicalName = 'TiposDocumento'
IndexDefs = <>
Left = 344
Top = 72
end
object ds_TiposDocumento: TDADataSource
DataSet = tbl_TiposDocumento.Dataset
DataTable = tbl_TiposDocumento
Left = 344
Top = 24
end
end

112
Source/Modulos/TiposDocumento/Data/uDataModuleTiposDocumento.pas Normal file
View File

@ -0,0 +1,112 @@
{
===============================================================================
Copyright (©) 2007. Rodax Software.
===============================================================================
Los contenidos de este fichero son propiedad de Rodax Software titular del
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
bajo el que se suministra.
-----------------------------------------------------------------------------
Web: www.rodax-software.com
===============================================================================
Fecha primera versión:
Versión actual: 1.0.0
Fecha versión actual:
===============================================================================
Modificaciones:
Fecha Comentarios
---------------------------------------------------------------------------
===============================================================================
}
unit uDataModuleTiposDocumento;
interface
uses
SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
uRORemoteService, uROClient, uROBinMessage,
uDADesigntimeCall,
uIDataModuleTiposDocumento, uBizTiposDocumento, uDADataStreamer, uDARemoteDataAdapter,
uDAInterfaces, uRODynamicRequest, uDABin2DataStreamer, uDAMemDataTable,
uDataModuleBase;
type
TDataModuleTiposDocumento = class(TDataModuleBase, IDataModuleTiposDocumento)
RORemoteService: TRORemoteService;
rda_TiposDocumento: TDARemoteDataAdapter;
Bin2DataStreamer: TDABin2DataStreamer;
tbl_TiposDocumento: TDAMemDataTable;
ds_TiposDocumento: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
public
function GetItems: IBizTipoDocumento;
function GetItem(const ID : Integer) : IBizTipoDocumento;
function NewItem : IBizTipoDocumento;
end;
implementation
{$R *.DFM}
uses
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
schTiposDocumentoClient_Intf;
{ TDataModuleTiposDocumento }
procedure TDataModuleTiposDocumento.DAClientDataModuleCreate(Sender: TObject);
begin
RORemoteService.Channel := dmConexion.Channel;
RORemoteService.Message := dmConexion.Message;
end;
function TDataModuleTiposDocumento.GetItems: IBizTipoDocumento;
var
ATipoDocumento : TDAMemDataTable;
begin
ShowHourglassCursor;
try
ATipoDocumento := CloneDataTable(tbl_TiposDocumento);
ATipoDocumento.BusinessRulesID := BIZ_CLIENT_TIPOS_DOCUMENTO;
Result := (ATipoDocumento as IBizTipoDocumento);
finally
HideHourglassCursor;
end;
end;
function TDataModuleTiposDocumento.NewItem: IBizTipoDocumento;
begin
Result := GetItem(ID_NULO)
end;
function TDataModuleTiposDocumento.GetItem(const ID: Integer): IBizTipoDocumento;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := Self.GetItems;
with Result.DataTable.DynamicWhere do
begin
// (ID = :ID)
Condicion := NewBinaryExpression(NewField('', fld_TiposDocumentoID), NewConstant(ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
end;
end.

42
Source/Modulos/TiposDocumento/Model/Data/uIDataModuleTiposDocumento.pas Normal file
View File

@ -0,0 +1,42 @@
{
===============================================================================
Copyright (©) 2007. Rodax Software.
===============================================================================
Los contenidos de este fichero son propiedad de Rodax Software titular del
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
bajo el que se suministra.
-----------------------------------------------------------------------------
Web: www.rodax-software.com
===============================================================================
Fecha primera versión:
Versión actual: 1.0.0
Fecha versión actual:
===============================================================================
Modificaciones:
Fecha Comentarios
---------------------------------------------------------------------------
===============================================================================
}
unit uIDataModuleTiposDocumento;
interface
uses
uBizTiposDocumento;
type
IDataModuleTiposDocumento = interface
['{7352F969-3F55-4D44-B67D-F9EF47AF4943}']
function GetItems: IBizTipoDocumento;
function GetItem(const ID : Integer) : IBizTipoDocumento;
function NewItem : IBizTipoDocumento;
end;
implementation
end.

BIN
Source/Modulos/TiposDocumento/Model/TiposDocumento_model.dpk Normal file
View File

Binary file not shown.

551
Source/Modulos/TiposDocumento/Model/TiposDocumento_model.dproj Normal file
View File

@ -0,0 +1,551 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{82fe21d8-609d-444d-879e-4d9e1c291607}</ProjectGuid>
<MainSource>TiposDocumento_model.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\TiposDocumento_model.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\Release\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">TiposDocumento_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="TiposDocumento_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="Data\adortl.dcp" />
<DCCReference Include="Data\ApplicationBase.dcp" />
<DCCReference Include="Data\Base.dcp" />
<DCCReference Include="Data\DataAbstract_Core_D11.dcp" />
<DCCReference Include="Data\dbrtl.dcp" />
<DCCReference Include="Data\dsnap.dcp" />
<DCCReference Include="Data\GUIBase.dcp" />
<DCCReference Include="Data\RemObjects_Core_D11.dcp" />
<DCCReference Include="Data\rtl.dcp" />
<DCCReference Include="Data\uIDataModuleTiposDocumento.pas" />
<DCCReference Include="Data\vcl.dcp" />
<DCCReference Include="Data\vcldb.dcp" />
<DCCReference Include="schTiposDocumentoClient_Intf.pas" />
<DCCReference Include="schTiposDocumentoServer_Intf.pas" />
<DCCReference Include="uBizTiposDocumento.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 -->

134
Source/Modulos/TiposDocumento/Model/schTiposDocumentoClient_Intf.pas Normal file
View File

@ -0,0 +1,134 @@
unit schTiposDocumentoClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
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_TiposDocumento = '{A199C235-5C39-42C1-99AA-D4BC2211F6EE}';
{ Data table names }
nme_TiposDocumento = 'TiposDocumento';
{ TiposDocumento fields }
fld_TiposDocumentoID = 'ID';
fld_TiposDocumentoDESCRIPCION = 'DESCRIPCION';
{ TiposDocumento field indexes }
idx_TiposDocumentoID = 0;
idx_TiposDocumentoDESCRIPCION = 1;
type
{ ITiposDocumento }
ITiposDocumento = interface(IDAStronglyTypedDataTable)
['{BF70DBB3-DDC6-42E7-821C-1A2A7EE4977B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
end;
{ TTiposDocumentoDataTableRules }
TTiposDocumentoDataTableRules = class(TIntfObjectDADataTableRules, ITiposDocumento)
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 GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
implementation
uses Variants, uROBinaryHelpers;
{ TTiposDocumentoDataTableRules }
constructor TTiposDocumentoDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TTiposDocumentoDataTableRules.Destroy;
begin
inherited;
end;
function TTiposDocumentoDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_TiposDocumentoID].AsInteger;
end;
procedure TTiposDocumentoDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_TiposDocumentoID].AsInteger := aValue;
end;
function TTiposDocumentoDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_TiposDocumentoID].IsNull;
end;
procedure TTiposDocumentoDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_TiposDocumentoID].AsVariant := Null;
end;
function TTiposDocumentoDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_TiposDocumentoDESCRIPCION].AsString;
end;
procedure TTiposDocumentoDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_TiposDocumentoDESCRIPCION].AsString := aValue;
end;
function TTiposDocumentoDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_TiposDocumentoDESCRIPCION].IsNull;
end;
procedure TTiposDocumentoDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_TiposDocumentoDESCRIPCION].AsVariant := Null;
end;
initialization
RegisterDataTableRules(RID_TiposDocumento, TTiposDocumentoDataTableRules);
end.

143
Source/Modulos/TiposDocumento/Model/schTiposDocumentoServer_Intf.pas Normal file
View File

@ -0,0 +1,143 @@
unit schTiposDocumentoServer_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schTiposDocumentoClient_Intf;
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_TiposDocumentoDelta = '{2BEC1ADF-406D-406A-8FEC-09FF6995EC1D}';
type
{ ITiposDocumentoDelta }
ITiposDocumentoDelta = interface(ITiposDocumento)
['{2BEC1ADF-406D-406A-8FEC-09FF6995EC1D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
end;
{ TTiposDocumentoBusinessProcessorRules }
TTiposDocumentoBusinessProcessorRules = class(TDABusinessProcessorRules, ITiposDocumento, ITiposDocumentoDelta)
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 GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(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 DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
implementation
uses
Variants, uROBinaryHelpers, uDAInterfaces;
{ TTiposDocumentoBusinessProcessorRules }
constructor TTiposDocumentoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TTiposDocumentoBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TTiposDocumentoBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposDocumentoID];
end;
function TTiposDocumentoBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposDocumentoID]);
end;
function TTiposDocumentoBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposDocumentoID];
end;
function TTiposDocumentoBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposDocumentoID]);
end;
procedure TTiposDocumentoBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposDocumentoID] := aValue;
end;
procedure TTiposDocumentoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposDocumentoID] := Null;
end;
function TTiposDocumentoBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposDocumentoDESCRIPCION];
end;
function TTiposDocumentoBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposDocumentoDESCRIPCION]);
end;
function TTiposDocumentoBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposDocumentoDESCRIPCION];
end;
function TTiposDocumentoBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposDocumentoDESCRIPCION]);
end;
procedure TTiposDocumentoBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposDocumentoDESCRIPCION] := aValue;
end;
procedure TTiposDocumentoBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposDocumentoDESCRIPCION] := Null;
end;
initialization
RegisterBusinessProcessorRules(RID_TiposDocumentoDelta, TTiposDocumentoBusinessProcessorRules);
end.

103
Source/Modulos/TiposDocumento/Model/uBizTiposDocumento.pas Normal file
View File

@ -0,0 +1,103 @@
{
===============================================================================
Copyright (©) 2007. Rodax Software.
===============================================================================
Los contenidos de este fichero son propiedad de Rodax Software titular del
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
bajo el que se suministra.
-----------------------------------------------------------------------------
Web: www.rodax-software.com
===============================================================================
Fecha primera versión:
Versión actual: 1.0.0
Fecha versión actual:
===============================================================================
Modificaciones:
Fecha Comentarios
---------------------------------------------------------------------------
===============================================================================
}
unit uBizTiposDocumento;
interface
uses
uDAInterfaces, uDADataTable, uDBSelectionListUtils, schTiposDocumentoClient_Intf;
const
BIZ_CLIENT_TIPOS_DOCUMENTO = 'Client.TiposDocumento';
type
IBizTipoDocumento = interface(ITiposDocumento)
['{4F74FAFE-D9A3-40FB-A13B-77D8ED3F2AE6}']
function EsNuevo : Boolean;
end;
TBizTipoDocumento = class(TTiposDocumentoDataTableRules, IBizTipoDocumento, ISeleccionable)
protected
FSeleccionableInterface : ISeleccionable;
procedure OnNewRecord(Sender: TDADataTable); override;
procedure AfterOpen(Sender: TDADataTable); override;
public
procedure IniciarValoresTipoDocumentoNuevo;
function EsNuevo : Boolean;
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface write FSeleccionableInterface
implements ISeleccionable;
end;
implementation
{ TBizTipoDocumento }
uses
SysUtils, uDataTableUtils;
procedure TBizTipoDocumento.AfterOpen(Sender: TDADataTable);
begin
inherited;
DataTable.Sort([fld_TiposDocumentoDESCRIPCION], [sdAscending]);
end;
constructor TBizTipoDocumento.Create(aDataTable: TDADataTable);
begin
inherited;
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
end;
destructor TBizTipoDocumento.Destroy;
begin
FSeleccionableInterface := NIL;
inherited;
end;
function TBizTipoDocumento.EsNuevo: Boolean;
begin
Result := (ID < 0);
end;
procedure TBizTipoDocumento.IniciarValoresTipoDocumentoNuevo;
begin
//
end;
procedure TBizTipoDocumento.OnNewRecord(Sender: TDADataTable);
begin
inherited;
ID := GetRecNo; // -1, -2, -3...
IniciarValoresTipoDocumentoNuevo;
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_TIPOS_DOCUMENTO, TBizTipoDocumento);
finalization
end.

BIN
Source/Modulos/TiposDocumento/Plugin/TiposDocumento_plugin.dpk Normal file
View File

Binary file not shown.

546
Source/Modulos/TiposDocumento/Plugin/TiposDocumento_plugin.dproj Normal file
View File

@ -0,0 +1,546 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{139324a2-0c57-446d-aebd-edd9578e22fd}</ProjectGuid>
<MainSource>TiposDocumento_plugin.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\TiposDocumento_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_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_BplOutput>..\..\..\..\Output\Release\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_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">TiposDocumento_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="TiposDocumento_plugin.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\PluginSDK_D11R.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\TiposDocumento_controller.dcp" />
<DCCReference Include="..\..\Lib\TiposDocumento_model.dcp" />
<DCCReference Include="..\..\Lib\TiposDocumento_view.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="uPluginTiposDocumento.pas">
<Form>PluginTiposDocumento</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 -->

108
Source/Modulos/TiposDocumento/Plugin/uPluginTiposDocumento.dfm Normal file
View File

@ -0,0 +1,108 @@
object PluginTiposDocumento: TPluginTiposDocumento
OldCreateOrder = True
DefaultAction = actTiposDocumento
Description = 'Tipos de IVA'
ModuleMenu = MainMenu
ModuleName = 'Tipos de documento'
SmallImages = SmallImages
LargeImages = LargeImages
Author = 'Rodax Software S.L.'
Version = '1.0.0'
Height = 234
Width = 459
object LargeImages: TPngImageList
Height = 24
Width = 24
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD2520000011E4944415478DA
6364A010ACCA60F80FA2C366303062936724CD384CC3FD2AD63030B3F132AC6F
72C76A09D916800C5FF7218261715F22C3D7EBD31998B86418762C9C82610959
1620BB7C612DD0E529397039744B48B600D97098CBD101B2252459802D58D0C1
BF6F4F18AE5DDEC0F0E40624E289B600D9E597B7B933A868E7E0349C8307C2BF
7386481F10132C30C3279D8860287359C1F0E30B03D817042D202558602EEFDA
13C11024B0827010E14B2DB80C87B99C602453122C049329A5C182AC8E119BE1
A4A6166C2EC76A01B58205AB05D40C160C0BA8915A705A408B60C1EA03B7D000
AA050BCE38F088CFC16B38292EC7B000DD124A8205A705C8C14549B0E0B50066
898A09F9C142D0029825321A94198ED702982594180E0200B0F2324A4753EBA6
0000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end>
Left = 232
Top = 16
Bitmap = {}
end
object ModuleActionList: TActionList
Images = SmallImages
Left = 40
Top = 72
object actTiposDocumento: TAction
Category = 'Datos'
Caption = 'Tipos de documento'
ImageIndex = 1
OnExecute = actTiposDocumentoExecute
end
end
object MainMenu: TMainMenu
Images = LargeImages
Left = 40
Top = 16
object Ventas1: TMenuItem
Caption = 'Datos'
object TiposDocumento: TMenuItem
Tag = 313
Action = actTiposDocumento
end
end
end
object SmallImages: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000000C14944415478DA
63642001ACCA60F81F36838111598C9158CD111111FF17F72532AC6F72674036
842803403607D6ED645858EBCE101215C0B06BF506B821040D80D9FCF7D76786
1F7797303071C930FCFBF6046E082331365FDEE6CEA0A41800D7EC51FD82615A
CA09862D5BF0B80097CDF7EE6F00CB8334D76DC0E102743F63B319A4196B1810
6B33D65820C6CFC89A510C20D566140348F133860130CDA4DA8CE102B750D26C
C608039821C4DA8C3316544C88D78C351D340530FC275633080000DE09BBE2B0
1D07420000000049454E44AE426082}
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
940000000970485973000017120000171201679FD252000001514944415478DA
6364A0225895C1F03F6C0603233E358CC41A468C6581952B19D6B78733E0B394
2A16822C5BF7218261715F2298BFBEC91DA7A5145B08F31903AB00C3E56DEE0C
BA5E3B19BE5E9FCEB06BF506AC96526421B2653000B28C894B06CCDEB1700A86
A5645B881E8CE896C100BAA5645988ECB385B5EE0CF1CD3BB15A0602574E4E61
787283016E29C916120A4674CB387820EC3B672096926421B1C1886CD98F2F0C
701AE453A22DC4951A09F90C04B2E6583014199C20DE87E4062308C07C46741C
92138C5D7B2218CA5C56605846D042525323AE604456C7488C65940623410BA9
911A892E4BA9951A71851C232ECBA8198C582DA4766AC46B212D52234E0BE911
8CD87D58B79328CB884D8D44C5A15B68004D8211AB85304B3DE273A81E8C382D
44B79492D448B485304B653418A8168C042D8459AA62429D6024CA42649F52CB
328216C22CA59665200000B1F5433DEC7F85AD0000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end>
Left = 232
Top = 80
Bitmap = {}
end
end

73
Source/Modulos/TiposDocumento/Plugin/uPluginTiposDocumento.pas Normal file
View File

@ -0,0 +1,73 @@
unit uPluginTiposDocumento;
interface
uses
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
ImgList, Controls, PngImageList;
type
IMCTiposDocumento = interface(IInterface)
['{14A4B6F3-2D05-44BE-BF61-3CD770905FB7}']
end;
TPluginTiposDocumento = class(TModuleController, IMCTiposDocumento)
actTiposDocumento: TAction;
ExtraImages: TPngImageList;
LargeImages: TPngImageList;
MainMenu: TMainMenu;
ModuleActionList: TActionList;
SmallImages: TPngImageList;
Ventas1: TMenuItem;
TiposDocumento: TMenuItem;
procedure actTiposDocumentoExecute(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
uses
Forms, Dialogs, SysUtils,
uTiposDocumentoController, uBizTiposDocumento, uTiposDocumentoViewRegister;
function GetModule : TModuleController;
begin
Result := TPluginTiposDocumento.Create(NIL);
end;
exports
GetModule name GET_MODULE_FUNC;
procedure TPluginTiposDocumento.actTiposDocumentoExecute(Sender: TObject);
var
ATiposDocumentoController : ITiposDocumentoController;
ATiposDocumento : IBizTipoDocumento;
begin
ATiposDocumentoController := TTiposDocumentoController.Create;
ATiposDocumento := (ATiposDocumentoController.BuscarTodos as IBizTipoDocumento);
ATiposDocumentoController.VerTodos(ATiposDocumento);
end;
constructor TPluginTiposDocumento.Create(AOwner: TComponent);
begin
inherited;
uTiposDocumentoViewRegister.RegisterViews;
end;
destructor TPluginTiposDocumento.Destroy;
begin
uTiposDocumentoViewRegister.UnregisterViews;
inherited;
end;
initialization
RegisterModuleClass(TPluginTiposDocumento);
finalization
UnRegisterModuleClass(TPluginTiposDocumento);
end.

9
Source/Servicios/FactuGES.RODL
View File

@ -1232,6 +1232,15 @@
</Interface> </Interface>
</Interfaces> </Interfaces>
</Service> </Service>
<Service Name="srvTiposDocumento" UID="{A62E5781-7374-4674-A3F0-34D63C2F512C}" Ancestor="DataAbstractService">
<Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
<Interfaces>
<Interface Name="Default" UID="{7636B6A8-368C-4345-967F-004DB7C56720}">
<Operations>
</Operations>
</Interface>
</Interfaces>
</Service>
</Services> </Services>
<EventSinks> <EventSinks>
</EventSinks> </EventSinks>

33
Source/Servicios/FactuGES_Intf.pas
View File

@ -61,6 +61,7 @@ const
IsrvInfVentasArticulo_IID : TGUID = '{669DBB17-90F9-4346-AD92-B2A85D2A6200}'; IsrvInfVentasArticulo_IID : TGUID = '{669DBB17-90F9-4346-AD92-B2A85D2A6200}';
IsrvInfMargenArticulo_IID : TGUID = '{E5A8F350-B355-476A-9674-412BA01BDA2B}'; IsrvInfMargenArticulo_IID : TGUID = '{E5A8F350-B355-476A-9674-412BA01BDA2B}';
IsrvFacturasProforma_IID : TGUID = '{FC9178C7-1213-4735-9FC1-C20F15C7B424}'; IsrvFacturasProforma_IID : TGUID = '{FC9178C7-1213-4735-9FC1-C20F15C7B424}';
IsrvTiposDocumento_IID : TGUID = '{7636B6A8-368C-4345-967F-004DB7C56720}';
{ Event ID's } { Event ID's }
@ -104,6 +105,7 @@ type
IsrvInfVentasArticulo = interface; IsrvInfVentasArticulo = interface;
IsrvInfMargenArticulo = interface; IsrvInfMargenArticulo = interface;
IsrvFacturasProforma = interface; IsrvFacturasProforma = interface;
IsrvTiposDocumento = interface;
TRdxEmpresasArray = class; TRdxEmpresasArray = class;
TIntegerArray = class; TIntegerArray = class;
@ -1066,6 +1068,23 @@ type
function DarListaAnos: StringArray; function DarListaAnos: StringArray;
end; end;
{ IsrvTiposDocumento }
IsrvTiposDocumento = interface(IDataAbstractService)
['{7636B6A8-368C-4345-967F-004DB7C56720}']
end;
{ CosrvTiposDocumento }
CosrvTiposDocumento = class
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTiposDocumento;
end;
{ TsrvTiposDocumento_Proxy }
TsrvTiposDocumento_Proxy = class(TDataAbstractService_Proxy, IsrvTiposDocumento)
protected
function __GetInterfaceName:string; override;
end;
implementation implementation
uses uses
@ -3456,6 +3475,18 @@ begin
end end
end; end;
{ CosrvTiposDocumento }
class function CosrvTiposDocumento.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTiposDocumento;
begin
result := TsrvTiposDocumento_Proxy.Create(aMessage, aTransportChannel);
end;
function TsrvTiposDocumento_Proxy.__GetInterfaceName:string;
begin
result := 'srvTiposDocumento';
end;
initialization initialization
RegisterROClass(TRdxLoginInfo); RegisterROClass(TRdxLoginInfo);
RegisterROClass(TRdxEmpresasArray); RegisterROClass(TRdxEmpresasArray);
@ -3498,6 +3529,7 @@ initialization
RegisterProxyClass(IsrvInfVentasArticulo_IID, TsrvInfVentasArticulo_Proxy); RegisterProxyClass(IsrvInfVentasArticulo_IID, TsrvInfVentasArticulo_Proxy);
RegisterProxyClass(IsrvInfMargenArticulo_IID, TsrvInfMargenArticulo_Proxy); RegisterProxyClass(IsrvInfMargenArticulo_IID, TsrvInfMargenArticulo_Proxy);
RegisterProxyClass(IsrvFacturasProforma_IID, TsrvFacturasProforma_Proxy); RegisterProxyClass(IsrvFacturasProforma_IID, TsrvFacturasProforma_Proxy);
RegisterProxyClass(IsrvTiposDocumento_IID, TsrvTiposDocumento_Proxy);
finalization finalization
@ -3542,5 +3574,6 @@ finalization
UnregisterProxyClass(IsrvInfVentasArticulo_IID); UnregisterProxyClass(IsrvInfVentasArticulo_IID);
UnregisterProxyClass(IsrvInfMargenArticulo_IID); UnregisterProxyClass(IsrvInfMargenArticulo_IID);
UnregisterProxyClass(IsrvFacturasProforma_IID); UnregisterProxyClass(IsrvFacturasProforma_IID);
UnregisterProxyClass(IsrvTiposDocumento_IID);
end. end.

16
Source/Servicios/FactuGES_Invk.pas
View File

@ -402,6 +402,14 @@ type
procedure Invoke_DarListaAnos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_DarListaAnos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end; end;
TsrvTiposDocumento_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
end;
implementation implementation
uses uses
@ -3171,5 +3179,13 @@ begin
end; end;
end; end;
{ TsrvTiposDocumento_Invoker }
constructor TsrvTiposDocumento_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
initialization initialization
end. end.

BIN
Source/Servicios/RODLFile.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

9
Source/Servidor/FactuGES_Server.dpr
View File

@ -165,10 +165,13 @@ uses
schFacturasProformaServer_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas', schFacturasProformaServer_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas', schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas'; schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
srvTiposDocumento_Impl in '..\Modulos\TiposDocumento\Servidor\srvTiposDocumento_Impl.pas' {srvTiposDocumento: TDataAbstractService},
schTiposDocumentoClient_Intf in '..\Modulos\TiposDocumento\Model\schTiposDocumentoClient_Intf.pas',
schTiposDocumentoServer_Intf in '..\Modulos\TiposDocumento\Model\schTiposDocumentoServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

8
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters 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">6</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.6.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.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 17 de enero de 2014 16:53</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <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">7</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.7.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.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 07 de febrero de 2014 13:34</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 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> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
@ -356,6 +356,12 @@
<Form>srvTiposIVA</Form> <Form>srvTiposIVA</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\TiposDocumento\Servidor\srvTiposDocumento_Impl.pas">
<Form>srvTiposDocumento</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> <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\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 4,3,6,0 FILEVERSION 4,3,7,0
PRODUCTVERSION 4,3,6,0 PRODUCTVERSION 4,3,7,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "4.3.6.0\0" VALUE "FileVersion", "4.3.7.0\0"
VALUE "ProductVersion", "4.3.6.0\0" VALUE "ProductVersion", "4.3.7.0\0"
VALUE "CompileDate", "jueves, 06 de febrero de 2014 18:52\0" VALUE "CompileDate", "viernes, 07 de febrero de 2014 16:32\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"