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

Arreglos Varios

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

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

20
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

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

12
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

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

2
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

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

8
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -1906,14 +1906,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Value = 100 Value = 100
Default = True Default = True
end 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 item
Caption = 'Utilizar uno o m'#225's albaranes de cliente.' Caption = 'Utilizar uno o m'#225's albaranes de cliente.'
Value = 300 Value = 300

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -123,8 +123,6 @@ uses
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas', schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_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', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_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', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
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"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>