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:
parent
8e46f632df
commit
fdc9033b3c
@ -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'
|
||||
|
||||
@ -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 }
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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'
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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}
|
||||
|
||||
@ -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>
|
||||
|
||||
Reference in New Issue
Block a user