Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Version 2.5.7

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@587 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2014-02-26 15:07:11 +00:00
parent 00f20722e4
commit 51d3eb228f
30 changed files with 838 additions and 118 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Resources/acana-interiorismo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 25 KiB

3
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -46,6 +46,9 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>

4
Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
View File

@ -191,6 +191,10 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
item
Name = 'VALIDEZ_PRESUPUESTOS'
DataType = datSmallInt
end
item
Name = 'NUM_ORDEN'
DataType = datSmallInt
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

47
Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
View File

@ -9,9 +9,9 @@ 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_EmpresasTiendas = '{19E1273C-BC29-4894-B54A-8F8CA38BD309}';
RID_Empresas = '{E7DDF73A-5A4C-4154-984E-B7DAE118DEE5}';
RID_EmpresasDatosBanco = '{8604E5E5-0DFF-4772-BD55-BD07450DE7CB}';
RID_EmpresasTiendas = '{2D0CBF0D-F553-4B27-A97E-69F0CB992B85}';
RID_Empresas = '{5F68CAB3-AA6C-4548-AA3D-9B2892E399D5}';
RID_EmpresasDatosBanco = '{ADA2DFEA-5B7B-4213-AC8B-052718814CFB}';
{ Data table names }
nme_EmpresasTiendas = 'EmpresasTiendas';
@ -80,6 +80,7 @@ const
fld_EmpresasID_TIPO_IVA = 'ID_TIPO_IVA';
fld_EmpresasID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_EmpresasVALIDEZ_PRESUPUESTOS = 'VALIDEZ_PRESUPUESTOS';
fld_EmpresasNUM_ORDEN = 'NUM_ORDEN';
{ Empresas field indexes }
idx_EmpresasID = 0;
@ -107,6 +108,7 @@ const
idx_EmpresasID_TIPO_IVA = 22;
idx_EmpresasID_FORMA_PAGO = 23;
idx_EmpresasVALIDEZ_PRESUPUESTOS = 24;
idx_EmpresasNUM_ORDEN = 25;
{ EmpresasDatosBanco fields }
fld_EmpresasDatosBancoID = 'ID';
@ -133,7 +135,7 @@ const
type
{ IEmpresasTiendas }
IEmpresasTiendas = interface(IDAStronglyTypedDataTable)
['{E56F825C-223C-4047-A7A3-F0859ACBF9BE}']
['{B17D4A25-3C95-4075-9307-CC0A359DA23D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -348,7 +350,7 @@ type
{ IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable)
['{EF0CA3C6-3E46-44C1-858B-02EB87E15A88}']
['{30C607F7-704F-4BB8-B0A3-60242A0731FC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -448,6 +450,10 @@ type
procedure SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt);
function GetVALIDEZ_PRESUPUESTOSIsNull: Boolean;
procedure SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean);
function GetNUM_ORDENValue: SmallInt;
procedure SetNUM_ORDENValue(const aValue: SmallInt);
function GetNUM_ORDENIsNull: Boolean;
procedure SetNUM_ORDENIsNull(const aValue: Boolean);
{ Properties }
@ -501,6 +507,8 @@ type
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property VALIDEZ_PRESUPUESTOS: SmallInt read GetVALIDEZ_PRESUPUESTOSValue write SetVALIDEZ_PRESUPUESTOSValue;
property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
property NUM_ORDEN: SmallInt read GetNUM_ORDENValue write SetNUM_ORDENValue;
property NUM_ORDENIsNull: Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull;
end;
{ TEmpresasDataTableRules }
@ -610,6 +618,10 @@ type
procedure SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt); virtual;
function GetVALIDEZ_PRESUPUESTOSIsNull: Boolean; virtual;
procedure SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean); virtual;
function GetNUM_ORDENValue: SmallInt; virtual;
procedure SetNUM_ORDENValue(const aValue: SmallInt); virtual;
function GetNUM_ORDENIsNull: Boolean; virtual;
procedure SetNUM_ORDENIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -662,6 +674,8 @@ type
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property VALIDEZ_PRESUPUESTOS: SmallInt read GetVALIDEZ_PRESUPUESTOSValue write SetVALIDEZ_PRESUPUESTOSValue;
property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
property NUM_ORDEN: SmallInt read GetNUM_ORDENValue write SetNUM_ORDENValue;
property NUM_ORDENIsNull: Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -671,7 +685,7 @@ type
{ IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
['{C6A2D675-8896-4B8A-A296-98A1C3DA6CB5}']
['{F7F1B489-BB1D-40BC-A59A-22B602496003}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1712,6 +1726,27 @@ begin
DataTable.Fields[idx_EmpresasVALIDEZ_PRESUPUESTOS].AsVariant := Null;
end;
function TEmpresasDataTableRules.GetNUM_ORDENValue: SmallInt;
begin
result := DataTable.Fields[idx_EmpresasNUM_ORDEN].AsSmallInt;
end;
procedure TEmpresasDataTableRules.SetNUM_ORDENValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_EmpresasNUM_ORDEN].AsSmallInt := aValue;
end;
function TEmpresasDataTableRules.GetNUM_ORDENIsNull: boolean;
begin
result := DataTable.Fields[idx_EmpresasNUM_ORDEN].IsNull;
end;
procedure TEmpresasDataTableRules.SetNUM_ORDENIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_EmpresasNUM_ORDEN].AsVariant := Null;
end;
{ TEmpresasDatosBancoDataTableRules }
constructor TEmpresasDatosBancoDataTableRules.Create(aDataTable: TDADataTable);

55
Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
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_EmpresasTiendasDelta = '{61580243-F5C0-4AB3-A1DB-1607648BA5C4}';
RID_EmpresasDelta = '{0C6E077A-F00A-47EE-8448-14AB9AAD08BC}';
RID_EmpresasDatosBancoDelta = '{F8D15203-2664-4352-BAB6-4DD3CEC03078}';
RID_EmpresasTiendasDelta = '{2B441BBC-0852-4F43-9F92-A80D1AEA0015}';
RID_EmpresasDelta = '{075BBDAF-2A9C-4297-B998-07956394B428}';
RID_EmpresasDatosBancoDelta = '{CF3899EF-A340-48E6-ACC6-463D9FB867F1}';
type
{ IEmpresasTiendasDelta }
IEmpresasTiendasDelta = interface(IEmpresasTiendas)
['{61580243-F5C0-4AB3-A1DB-1607648BA5C4}']
['{2B441BBC-0852-4F43-9F92-A80D1AEA0015}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -231,7 +231,7 @@ type
{ IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas)
['{0C6E077A-F00A-47EE-8448-14AB9AAD08BC}']
['{075BBDAF-2A9C-4297-B998-07956394B428}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -258,6 +258,7 @@ type
function GetOldID_TIPO_IVAValue : SmallInt;
function GetOldID_FORMA_PAGOValue : SmallInt;
function GetOldVALIDEZ_PRESUPUESTOSValue : SmallInt;
function GetOldNUM_ORDENValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -285,6 +286,7 @@ type
property OldID_TIPO_IVA : SmallInt read GetOldID_TIPO_IVAValue;
property OldID_FORMA_PAGO : SmallInt read GetOldID_FORMA_PAGOValue;
property OldVALIDEZ_PRESUPUESTOS : SmallInt read GetOldVALIDEZ_PRESUPUESTOSValue;
property OldNUM_ORDEN : SmallInt read GetOldNUM_ORDENValue;
end;
{ TEmpresasBusinessProcessorRules }
@ -444,6 +446,12 @@ type
function GetOldVALIDEZ_PRESUPUESTOSIsNull: Boolean; virtual;
procedure SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt); virtual;
procedure SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean); virtual;
function GetNUM_ORDENValue: SmallInt; virtual;
function GetNUM_ORDENIsNull: Boolean; virtual;
function GetOldNUM_ORDENValue: SmallInt; virtual;
function GetOldNUM_ORDENIsNull: Boolean; virtual;
procedure SetNUM_ORDENValue(const aValue: SmallInt); virtual;
procedure SetNUM_ORDENIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -546,6 +554,10 @@ type
property VALIDEZ_PRESUPUESTOSIsNull : Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
property OldVALIDEZ_PRESUPUESTOS : SmallInt read GetOldVALIDEZ_PRESUPUESTOSValue;
property OldVALIDEZ_PRESUPUESTOSIsNull : Boolean read GetOldVALIDEZ_PRESUPUESTOSIsNull;
property NUM_ORDEN : SmallInt read GetNUM_ORDENValue write SetNUM_ORDENValue;
property NUM_ORDENIsNull : Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull;
property OldNUM_ORDEN : SmallInt read GetOldNUM_ORDENValue;
property OldNUM_ORDENIsNull : Boolean read GetOldNUM_ORDENIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -555,7 +567,7 @@ type
{ IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
['{F8D15203-2664-4352-BAB6-4DD3CEC03078}']
['{CF3899EF-A340-48E6-ACC6-463D9FB867F1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -2009,6 +2021,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS] := Null;
end;
function TEmpresasBusinessProcessorRules.GetNUM_ORDENValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNUM_ORDEN];
end;
function TEmpresasBusinessProcessorRules.GetNUM_ORDENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNUM_ORDEN]);
end;
function TEmpresasBusinessProcessorRules.GetOldNUM_ORDENValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasNUM_ORDEN];
end;
function TEmpresasBusinessProcessorRules.GetOldNUM_ORDENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasNUM_ORDEN]);
end;
procedure TEmpresasBusinessProcessorRules.SetNUM_ORDENValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNUM_ORDEN] := aValue;
end;
procedure TEmpresasBusinessProcessorRules.SetNUM_ORDENIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNUM_ORDEN] := Null;
end;
{ TEmpresasDatosBancoBusinessProcessorRules }
constructor TEmpresasDatosBancoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

339
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
View File

@ -192,7 +192,7 @@ object srvEmpresas: TsrvEmpresas
item
Connection = 'IBX'
Default = True
TargetTable = 'EMPRESAS'
TargetTable = 'V_EMPRESAS'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
@ -295,6 +295,10 @@ object srvEmpresas: TsrvEmpresas
item
DatasetField = 'VALIDEZ_PRESUPUESTOS'
TableField = 'VALIDEZ_PRESUPUESTOS'
end
item
DatasetField = 'NUM_ORDEN'
TableField = 'NUM_ORDEN'
end>
end>
Name = 'Empresas'
@ -441,6 +445,10 @@ object srvEmpresas: TsrvEmpresas
item
Name = 'VALIDEZ_PRESUPUESTOS'
DataType = datSmallInt
end
item
Name = 'NUM_ORDEN'
DataType = datSmallInt
end>
end
item
@ -550,7 +558,317 @@ object srvEmpresas: TsrvEmpresas
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <>
Commands = <
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_EMPRESAS_ID'
Value = ''
end
item
Name = 'NIF_CIF'
Value = ''
end
item
Name = 'NOMBRE'
Value = ''
end
item
Name = 'RAZON_SOCIAL'
Value = ''
end
item
Name = 'CALLE'
Value = ''
end
item
Name = 'POBLACION'
Value = ''
end
item
Name = 'PROVINCIA'
Value = ''
end
item
Name = 'CODIGO_POSTAL'
Value = ''
end
item
Name = 'TELEFONO_1'
Value = ''
end
item
Name = 'TELEFONO_2'
Value = ''
end
item
Name = 'MOVIL_1'
Value = ''
end
item
Name = 'MOVIL_2'
Value = ''
end
item
Name = 'FAX'
Value = ''
end
item
Name = 'EMAIL_1'
Value = ''
end
item
Name = 'EMAIL_2'
Value = ''
end
item
Name = 'PAGINA_WEB'
Value = ''
end
item
Name = 'NOTAS'
Value = ''
end
item
Name = 'FECHA_ALTA'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item
Name = 'USUARIO'
Value = ''
end
item
Name = 'LOGOTIPO'
Value = ''
end
item
Name = 'REGISTRO_MERCANTIL'
Value = ''
end
item
Name = 'ID_TIPO_IVA'
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
Value = ''
end
item
Name = 'VALIDEZ_PRESUPUESTOS'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'EMPRESAS'
SQL =
'INSERT'#10' INTO EMPRESAS'#10' (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, C' +
'ALLE, POBLACION, PROVINCIA,'#10' CODIGO_POSTAL, TELEFONO_1, TELE' +
'FONO_2, MOVIL_1, MOVIL_2, '#10' FAX, EMAIL_1, EMAIL_2, PAGINA_WE' +
'B, NOTAS, FECHA_ALTA, '#10' FECHA_MODIFICACION, USUARIO, LOGOTIP' +
'O, REGISTRO_MERCANTIL, '#10' ID_TIPO_IVA, ID_FORMA_PAGO, VALIDEZ' +
'_PRESUPUESTOS)'#10' VALUES'#10' (:ID,:NIF_CIF, :NOMBRE, :RAZON_SOCIA' +
'L, :CALLE, :POBLACION,'#10' :PROVINCIA, :CODIGO_POSTAL, :TELEFON' +
'O_1, :TELEFONO_2, '#10' :MOVIL_1, :MOVIL_2, :FAX, :EMAIL_1, :EMA' +
'IL_2, :PAGINA_WEB, '#10' :NOTAS, :FECHA_ALTA, :FECHA_MODIFICACIO' +
'N, :USUARIO, '#10' :LOGOTIPO, :REGISTRO_MERCANTIL, :ID_TIPO_IVA,' +
' :ID_FORMA_PAGO, '#10' :VALIDEZ_PRESUPUESTOS)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_Empresas'
end
item
Params = <
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'EMPRESAS'
SQL = 'DELETE '#10' FROM'#10' EMPRESAS'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_Empresas'
end
item
Params = <
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'FAX'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'NOTAS'
DataType = datMemo
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'LOGOTIPO'
DataType = datBlob
Value = ''
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID_TIPO_IVA'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datSmallInt
Value = ''
end
item
Name = 'VALIDEZ_PRESUPUESTOS'
DataType = datSmallInt
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'EMPRESAS'
SQL =
'UPDATE EMPRESAS'#10' SET '#10' NIF_CIF = :NIF_CIF, '#10' NOMBRE = :NO' +
'MBRE, '#10' RAZON_SOCIAL = :RAZON_SOCIAL, '#10' CALLE = :CALLE, '#10' ' +
' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' COD' +
'IGO_POSTAL = :CODIGO_POSTAL, '#10' TELEFONO_1 = :TELEFONO_1, '#10' ' +
' TELEFONO_2 = :TELEFONO_2, '#10' MOVIL_1 = :MOVIL_1, '#10' MOVIL_2' +
' = :MOVIL_2, '#10' FAX = :FAX, '#10' EMAIL_1 = :EMAIL_1, '#10' EMAI' +
'L_2 = :EMAIL_2, '#10' PAGINA_WEB = :PAGINA_WEB, '#10' NOTAS = :NOT' +
'AS, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FE' +
'CHA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' LOGOTIPO = :LOGO' +
'TIPO, '#10' REGISTRO_MERCANTIL = :REGISTRO_MERCANTIL, '#10' ID_TIP' +
'O_IVA = :ID_TIPO_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' ' +
'VALIDEZ_PRESUPUESTOS = :VALIDEZ_PRESUPUESTOS'#10' WHERE'#10' (ID = :' +
'OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_Empresas'
end>
RelationShips = <
item
Name = 'FK_EmpresasTiendas_Empresas'
@ -910,12 +1228,23 @@ object srvEmpresas: TsrvEmpresas
Top = 90
DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="Empresas" Left="0,00' +
'" Top="1,00" />'#13#10' <Entity Name="EmpresasDatosBanco" Left="308' +
',00" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
'idth="400" Height="300">'#13#10' <Entity Name="EmpresasDatosBanco" ' +
'Left="308,00" Top="0,00" />'#13#10' <Entity Name="Empresas" Left="0' +
',00" Top="1,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end
object DABin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 88
end
object bpEmpresas: TDABusinessProcessor
Schema = schEmpresas
InsertCommandName = 'Insert_Empresas'
DeleteCommandName = 'Delete_Empresas'
UpdateCommandName = 'Update_Empresas'
ReferencedDataset = 'Empresas'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 24
end
end

1
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas
View File

@ -24,6 +24,7 @@ type
DABin2DataStreamer: TDABin2DataStreamer;
schEmpresas: TDASchema;
DataDictionary: TDADataDictionary;
bpEmpresas: TDABusinessProcessor;
procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string);

7
Source/Base/Base.dproj
View File

@ -44,6 +44,13 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>

46
Source/Informes/5/InfAlbaranCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

63
Source/Informes/5/InfComision.fr3 Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39589,7948251157" ReportOptions.Description.Text="" ReportOptions.LastChange="39590,5636514352" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10; &#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Header1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; ColumnHeader1.Visible := False;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D226672784442446574616C6C6573312220446174615365744E616D653D226672784442446574616C6C6573312200010C3600000020446174615365743D226672784442446574616C6C6573322220446174615365744E616D653D226672784442446574616C6C657332220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="28" Left="0" Top="312" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles1" DataSetName="frxDBDetalles1" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo14" Left="0" Top="0" Width="718,15" Height="26,45669291" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo29" Left="4" Top="3" Width="104" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles1.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo30" Left="615" Top="3" Width="100" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles1.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo2" Left="117" Top="3" Width="84" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles1.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo3" Left="213" Top="3" Width="388" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles1.&#34;NOMBRE&#34;]"/>
<TfrxLineView Name="LineaCorta0" Left="110" Top="0" Width="0" Height="26" Frame.Typ="1"/>
<TfrxLineView Name="Line1" Left="204" Top="0" Width="0" Height="26" Frame.Typ="1"/>
<TfrxLineView Name="Line2" Left="610" Top="0" Width="0" Height="26" Frame.Typ="1"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="20" Left="0" Top="688" Width="718,1107">
<TfrxMemoView Name="Memo1" Left="642,5201" Top="0" Width="75,5906" Height="18,89765" HAlign="haRight" Text="[Page#]"/>
</TfrxPageFooter>
<TfrxPageHeader Name="PageHeader1" Height="176" Left="0" Top="16" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
<TfrxMemoView Name="Memo15" Left="348" Top="4" Width="366,39394" Height="28,25201" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="11053757" Font.Height="-27" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Comisiones de vendedores"/>
<TfrxMemoView Name="Memo5" Left="88" Top="46" Width="200" Height="20" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="14" Top="11" Width="68,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Empresa:"/>
<TfrxMemoView Name="Memo7" Left="81,25201" Top="11" Width="253,63791" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Empresa"/>
<TfrxMemoView Name="Memo6" Left="12" Top="46" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Referencia:"/>
<TfrxMemoView Name="Memo9" Left="12" Top="104" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Página nº:"/>
<TfrxMemoView Name="Memo10" Left="88,25201" Top="104" Width="181,63791" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
<TfrxMemoView Name="Memo8" Left="88" Top="66" Width="200" Height="20" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA&#34;]"/>
<TfrxMemoView Name="Memo11" Left="12" Top="66" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo12" Left="88" Top="84" Width="628" Height="20" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo13" Left="12" Top="84" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Descripción:"/>
<TfrxMemoView Name="Memo27" Left="0" Top="138,92981" Width="714,15" Height="32" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Facturas asociadas a la liquidación "/>
</TfrxPageHeader>
<TfrxGroupHeader Name="GroupHeader2" Height="0" Left="0" Top="292" Width="718,1107" Condition="frxDBDetalles1.&#34;ID_COMISION_LIQUIDADA&#34;"/>
<TfrxGroupFooter Name="GroupFooter2" Height="26,45669291" Left="0" Top="360" Width="718,1107">
<TfrxMemoView Name="Memo19" Left="0" Top="0" Width="719" Height="26,45669291" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo20" Left="140" Top="3" Width="576" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Importe total de facturas: [SUM(&#60;frxDBDetalles1.&#34;BASE_IMPONIBLE&#34;&#62;,MasterData1)]"/>
</TfrxGroupFooter>
<TfrxMasterData Name="MasterData2" Height="26,47" Left="0" Top="532" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles2" DataSetName="frxDBDetalles2" RowCount="0">
<TfrxMemoView Name="Memo34" Left="0" Top="0" Width="718,15" Height="26,45669291" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo4" Left="4" Top="5" Width="476" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles2.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo24" Left="505" Top="4" Width="60" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles2.&#34;COMISION&#34;]"/>
<TfrxMemoView Name="Memo25" Left="588" Top="4" Width="128" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles2.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxLineView Name="Line3" Left="486" Top="0" Width="0" Height="26" Frame.Typ="1"/>
<TfrxLineView Name="Line4" Left="580" Top="0" Width="0" Height="26" Frame.Typ="1"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader3" Height="0" Left="0" Top="512" Width="718,1107" Condition="frxDBDetalles2.&#34;ID_COMISION&#34;"/>
<TfrxGroupFooter Name="GroupFooter3" Height="48" Left="0" Top="580" Width="718,1107">
<TfrxMemoView Name="Memo26" Left="0" Top="0" Width="719" Height="26,45669291" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo31" Left="140" Top="4" Width="576" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Importe total de comisiones: [SUM(&#60;frxDBDetalles2.&#34;IMPORTE_TOTAL&#34;&#62;,MasterData2)]"/>
</TfrxGroupFooter>
<TfrxColumnHeader Name="ColumnHeader1" Height="20" Left="0" Top="212" Width="718,1107">
<TfrxMemoView Name="Memo28" Align="baBottom" Left="0" Top="0" Width="110,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. factura"/>
<TfrxMemoView Name="Memo17" Align="baBottom" Left="610" Top="0" Width="108" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo16" Align="baBottom" Left="110" Top="0" Width="94,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo33" Align="baBottom" Left="204" Top="0" Width="406,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Razón social"/>
</TfrxColumnHeader>
<TfrxHeader Name="Header1" Height="84" Left="0" Top="408" Width="718,1107" OnBeforePrint="Header1OnBeforePrint">
<TfrxMemoView Name="Memo21" Align="baBottom" Left="0" Top="64" Width="486,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vendedor"/>
<TfrxMemoView Name="Memo22" Align="baBottom" Left="486" Top="64" Width="94,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Comisión"/>
<TfrxMemoView Name="Memo23" Align="baBottom" Left="580" Top="64" Width="138,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo32" Left="0" Top="30" Width="714,15" Height="32" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Vendedores asociados a la liquidación "/>
</TfrxHeader>
</TfrxReportPage>
</TfrxReport>

81
Source/Informes/5/InfFacturaCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

78
Source/Informes/5/InfReciboCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

68
Source/Informes/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

46
Source/Informes/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

2
Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.dfm
View File

@ -17,8 +17,6 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 447
ExplicitHeight = 224
DesignSize = (
579
220)

8
Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas
View File

@ -397,11 +397,19 @@ begin
end;
procedure TfrViewDatosYSeleccionClienteAlbaran.VerFichaCliente;
var
ACliente : IBizCliente;
begin
if not Assigned(Cliente) then
ShowErrorMessage('No se ha indicado un cliente', 'El albarán no tiene ningún cliente asociado a mostrar.')
else begin
FClientesController.Ver(Cliente);
ACliente := (FClientesController.Buscar(Cliente.ID) as IBizCliente);
if Assigned(ACliente) then
Self.Cliente := ACliente;
ACliente := Nil;
end;
end;

12
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -779,8 +779,8 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO);
if (ACadena <> '') then
AContrato.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', true, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', true, AContrato.Detalles);
end;
teBano:
begin
@ -794,7 +794,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO);
if (ACadena <> '') then
AContrato.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', true, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles);
end;
teElectrodomestico:
@ -809,7 +809,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO);
if (ACadena <> '') then
AContrato.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', true, AContrato.Detalles);
end;
teObra:
begin
@ -823,7 +823,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA);
if (ACadena <> '') then
AContrato.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', true, AContrato.Detalles);
end;
teVarios:
begin
@ -837,7 +837,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS);
if (ACadena <> '') then
AContrato.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true, AContrato.Detalles);
end;
end;
end;

11
Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.pas
View File

@ -398,11 +398,22 @@ begin
end;
procedure TfrViewDatosYSeleccionClienteContrato.VerFichaCliente;
var
ACliente : IBizCliente;
begin
if not Assigned(Cliente) then
ShowErrorMessage('No se ha indicado un cliente', 'El contrato no tiene ningún cliente asociado a mostrar.')
else begin
FClientesController.Ver(Cliente);
if (Application.MessageBox('¿Desea recargar los datos del cliente en el documento?', 'Atención', MB_YESNO) = IDYES) then
begin
ACliente := (FClientesController.Buscar(Cliente.ID) as IBizCliente);
if Assigned(ACliente) then
Self.Cliente := ACliente;
ACliente := Nil;
end;
end;
end;

1
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
View File

@ -112,7 +112,6 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Top = 256
ParentFont = False
Properties.DropDownListStyle = lsEditList
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'DESCRIPCION'
Properties.ListColumns = <
item

14
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas
View File

@ -167,17 +167,17 @@ end;
procedure TfrViewDetallesContratoCliente.actCapituloArmarioFExecute(Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ');
AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', true);
end;
procedure TfrViewDetallesContratoCliente.actCapituloArmarioIExecute(Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ');
AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', true);
end;
procedure TfrViewDetallesContratoCliente.actCapituloBanoExecute(Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ');
AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', true);
AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True);
end;
@ -190,23 +190,23 @@ end;
procedure TfrViewDetallesContratoCliente.actCapituloElectrodomesticosExecute(Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ');
AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', true);
end;
procedure TfrViewDetallesContratoCliente.actCapituloImportesExecute(Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ');
AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', true);
end;
procedure TfrViewDetallesContratoCliente.actCapituloObraExecute(
Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ');
AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', true);
end;
procedure TfrViewDetallesContratoCliente.actCapituloVariosExecute(Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ');
AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true);
end;
function TfrViewDetallesContratoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;

9
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -69,9 +69,9 @@ type
procedure DESCUENTOOnChange(Sender: TDACustomField);
procedure IVAOnChange(Sender: TDACustomField);
procedure REOnChange(Sender: TDACustomField);
procedure SetID_TIENDAValue(const aValue: Integer);
procedure SetID_TIENDAValue(const aValue: Integer);
procedure SetID_SUBCUENTAValue(const aValue: Integer);
procedure OnNewRecord(Sender: TDADataTable); override;
function GetSITUACIONValue: String; override;
@ -338,6 +338,11 @@ begin
if FCliente.ID_TIPO_IVA > 0 then
ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
//Si el cliente tiene la contabilidad desactivada la factura que realizamos la desactivamos también.
if (FCliente.IGNORAR_CONTABILIDAD = 1) then
IGNORAR_CONTABILIDAD := 1;
Post;
if bEnEdicion then

12
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -920,8 +920,8 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO);
if (ACadena <> '') then
APresupuesto.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', true, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', true, APresupuesto.Detalles);
end;
teBano:
begin
@ -932,7 +932,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO);
if (ACadena <> '') then
APresupuesto.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', true, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles);
end;
teElectrodomestico:
@ -945,7 +945,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO);
if (ACadena <> '') then
APresupuesto.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', true, APresupuesto.Detalles);
end;
teObra:
begin
@ -957,7 +957,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA);
if (ACadena <> '') then
APresupuesto.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', true, APresupuesto.Detalles);
end;
teVarios:
begin
@ -968,7 +968,7 @@ begin
ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS);
if (ACadena <> '') then
APresupuesto.CALIDADES.Add(ACadena);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true, APresupuesto.Detalles);
end;
end;
end;

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

@ -103,7 +103,9 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Default = True
TargetTable = 'FAMILIAS'
Name = 'IBX'
SQL = 'select ID,'#10' DESCRIPCION'#10#10'from familias'#10#10'WHERE {Where}'#10
SQL =
'select ID,'#10' DESCRIPCION'#10#10'from familias'#10#10'WHERE {Where}'#10'orde' +
'r by 2'#10
StatementType = stSQL
ColumnMappings = <
item

14
Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas
View File

@ -136,7 +136,8 @@ implementation
{$R *.dfm}
uses
uDataModuleClientes, Math, uCustomView, uBizContactosPersonal, uDialogUtils;
uDataModuleClientes, Math, uCustomView, uBizContactosPersonal, uDialogUtils,
uPresupuestosClienteController;
procedure TfrViewDatosYSeleccionClientePresupuesto.actElegirContactoExecute(Sender: TObject);
@ -454,11 +455,22 @@ begin
end;
procedure TfrViewDatosYSeleccionClientePresupuesto.VerFichaCliente;
var
ACliente : IBizCliente;
begin
if not Assigned(Cliente) then
ShowErrorMessage('No se ha indicado un cliente', 'El presupuesto no tiene ningún cliente asociado a mostrar.')
else begin
FClientesController.Ver(Cliente);
if (Application.MessageBox('¿Desea recargar los datos del cliente en el documento?', 'Atención', MB_YESNO) = IDYES) then
begin
ACliente := (FClientesController.Buscar(Cliente.ID) as IBizCliente);
if Assigned(ACliente) then
Self.Cliente := ACliente;
ACliente := Nil;
end;
end;
end;

1
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
View File

@ -40,7 +40,6 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Width = 383
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn [11]
Properties.Alignment.Vert = taBottomJustify
VisibleForCustomization = False
Width = 39
end

14
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
View File

@ -166,17 +166,17 @@ end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloArmarioFExecute(Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ');
AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', true);
end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloArmarioIExecute(Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ');
AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', true);
end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloBanoExecute(Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ');
AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', true);
AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True);
end;
@ -189,23 +189,23 @@ end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloElectrodomesticosExecute(Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ');
AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', true);
end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloImportesExecute(Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ');
AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', true);
end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloObraExecute(
Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ');
AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', true);
end;
procedure TfrViewDetallesPresupuestoCliente.actCapituloVariosExecute(Sender: TObject);
begin
AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ');
AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true);
end;
function TfrViewDetallesPresupuestoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;

8
Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas
View File

@ -44,11 +44,8 @@ begin
if not AContrato.DataTable.Active then
AContrato.DataTable.Active := True;
// La factura tiene que venir ya abierto y posicionado donde hay que copiar
AFactura.ID_CLIENTE := AContrato.ID_CLIENTE;
// Lo dejamos listo para que se localize la subcuenta contable asociada al cliente
AFacturasClienteController.RecuperarCliente(AFactura);
AFactura.Cliente.Open;
AContratosClienteController.RecuperarCliente(AContrato);
AFactura.Cliente := AContrato.Cliente;
AFactura.NIF_CIF := AContrato.NIF_CIF;
AFactura.NOMBRE := AContrato.NOMBRE;
@ -59,7 +56,6 @@ begin
// AFactura.PERSONA_CONTACTO := AContrato.PERSONA_CONTACTO;
// AFactura.DataTable.FieldByName(fld_FacturasClientePLAZO_ENTREGA).AsVariant := AContrato.DataTable.FieldByName(fld_ContratosClientePLAZO_ENTREGA).AsVariant;
AFactura.DataTable.FieldByName(fld_FacturasClienteOBSERVACIONES).AsVariant := AContrato.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsVariant;
AFactura.IMPORTE_NETO := AContrato.IMPORTE_NETO;
AFactura.IMPORTE_PORTE := AContrato.IMPORTE_PORTE;

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -110,8 +110,6 @@ uses
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService},
uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas',
uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas' {RptContratosCliente},
@ -136,7 +134,9 @@ uses
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.5.6.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.5.6.0\0"
VALUE "CompileDate", "miércoles, 05 de febrero de 2014 13:31\0"
VALUE "CompileDate", "miércoles, 26 de febrero de 2014 14:07\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.