Arreglos Varios

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@81 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-09-24 15:46:48 +00:00
parent 8e46f632df
commit fdc9033b3c
7 changed files with 411 additions and 415 deletions

View File

@ -316,10 +316,12 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
item
Name = 'NUM_COPIAS'
DataType = datSmallInt
ServerAutoRefresh = True
end
item
Name = 'NUM_CORREOS'
DataType = datSmallInt
ServerAutoRefresh = True
end
item
Name = 'BLOQUEADO'

View File

@ -3,15 +3,15 @@ unit schAlbaranesClienteClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, 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_ListaAnosAlbaranes = '{2224E19A-A756-4D53-A9A2-AE15DDCA1389}';
RID_AlbaranesCliente = '{39ACA339-8ED0-4BED-96CB-9D7B3A678CD0}';
RID_AlbaranesCliente_Detalles = '{B0DB47EE-16AB-4EF3-A31F-B80938F282C1}';
RID_ListaAnosAlbaranes = '{14DE36A6-6267-4FEF-9D03-91E337C4602E}';
RID_AlbaranesCliente = '{9D1A3BBF-BC06-4825-86E7-68E320A7C34A}';
RID_AlbaranesCliente_Detalles = '{0E595562-8280-4291-A4AA-045E2B28A195}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -165,7 +165,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{D2113025-E72A-40FF-BE31-215F4B295B0E}']
['{F8651CA9-7AA5-49D3-9B88-D00550F83AC8}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -179,7 +179,7 @@ type
end;
{ TListaAnosAlbaranesDataTableRules }
TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes)
TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes)
private
protected
{ Property getters and setters }
@ -200,7 +200,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{C088F3E3-CD58-48F6-A5DA-741CF648444F}']
['{B0B8190A-97CB-4B5E-9FBE-B1C6BB0335DC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -500,7 +500,7 @@ type
end;
{ TAlbaranesClienteDataTableRules }
TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente)
TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente)
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
@ -811,7 +811,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{C2506194-A19D-4E52-AF7D-3CB32896437E}']
['{DCF15520-3EF3-45FE-B9D1-A4228A0485B4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -915,7 +915,7 @@ type
end;
{ TAlbaranesCliente_DetallesDataTableRules }
TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles)
TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles)
private
protected
{ Property getters and setters }

View File

@ -9,14 +9,14 @@ 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_ListaAnosAlbaranesDelta = '{3293AF90-0AC6-4350-AD7A-2908D90607D4}';
RID_AlbaranesClienteDelta = '{F2132C7C-507B-4879-BC50-03FB076BE759}';
RID_AlbaranesCliente_DetallesDelta = '{88D130BC-E093-4EB8-9232-3D4E26B07215}';
RID_ListaAnosAlbaranesDelta = '{73BEA046-51D4-4B2C-AB1A-5C1862B754E7}';
RID_AlbaranesClienteDelta = '{2A0822ED-223A-48D9-A3DA-63062ED57B5F}';
RID_AlbaranesCliente_DetallesDelta = '{F64591E6-7183-4BD7-811D-A91F8746DB07}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{3293AF90-0AC6-4350-AD7A-2908D90607D4}']
['{73BEA046-51D4-4B2C-AB1A-5C1862B754E7}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{F2132C7C-507B-4879-BC50-03FB076BE759}']
['{2A0822ED-223A-48D9-A3DA-63062ED57B5F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -662,7 +662,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{88D130BC-E093-4EB8-9232-3D4E26B07215}']
['{F64591E6-7183-4BD7-811D-A91F8746DB07}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;

View File

@ -500,10 +500,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
Name = 'NUM_COPIAS'
DataType = datSmallInt
ServerAutoRefresh = True
end
item
Name = 'NUM_CORREOS'
DataType = datSmallInt
ServerAutoRefresh = True
end
item
Name = 'BLOQUEADO'

View File

@ -1906,14 +1906,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Value = 100
Default = True
end
item
Caption = 'Utilizar uno o m'#225's presupuestos de cliente.'
Value = 200
Info.Strings = (
'Puede utilizar uno o m'#225's presupuestos existentes para dar de alt' +
'a una factura nueva.')
end
item
Caption = 'Utilizar uno o m'#225's albaranes de cliente.'
Value = 300

View File

@ -123,8 +123,6 @@ uses
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
@ -163,7 +161,9 @@ uses
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas',
schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas';
schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>