Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@79 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Browse Source
This commit is contained in:
David Arranz 2007-11-12 19:35:30 +00:00
parent f3e13d6836
commit 8e01f6c9d2
27 changed files with 199 additions and 734 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -908,7 +908,7 @@ begin
AFactura.DataTable.ApplyUpdates; AFactura.DataTable.ApplyUpdates;
//Se generan los recibos automáticamente a partir de la forma de pago //Se generan los recibos automáticamente a partir de la forma de pago
GenerarRecibos(AFactura); // GenerarRecibos(AFactura);
Result := True; Result := True;
finally finally

8
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -251,7 +251,8 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasCliente' LogicalName = 'FacturasCliente'
Left = 216 IndexDefs = <>
Left = 224
Top = 112 Top = 112
end end
object ds_FacturasCliente: TDADataSource object ds_FacturasCliente: TDADataSource
@ -345,15 +346,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'FacturasCliente_Detalles_REFERENCIA'
DictionaryEntry = 'FacturasCliente_Detalles_REFERENCIA'
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR'
DictionaryEntry = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR'
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere
@ -365,6 +362,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasCliente_Detalles' LogicalName = 'FacturasCliente_Detalles'
IndexDefs = <>
Left = 368 Left = 368
Top = 104 Top = 104
end end

1
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
View File

@ -70,7 +70,6 @@ begin
begin begin
BusinessRulesID := BIZ_CLIENT_DETALLES_FACTURA_CLIENTE; BusinessRulesID := BIZ_CLIENT_DETALLES_FACTURA_CLIENTE;
DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]; DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
ShowMessage('Capullo');
end; end;
Result := (ADetalles as IBizDetallesFacturaCliente); Result := (ADetalles as IBizDetallesFacturaCliente);
finally finally

6
Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.dproj
View File

@ -44,6 +44,10 @@
<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">True</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">True</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">FacturasCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FacturasCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -547,4 +551,4 @@ mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1 Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email." mtInvalidEmailMsg0="Invalid email."
TextsCollection=English TextsCollection=English
EurekaLog Last Line --> EurekaLog Last Line -->

BIN
Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.res
View File

Binary file not shown.

12
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ 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_DarReferencia = '{1526E934-E09C-4D57-A8D8-4F31500D8594}'; RID_DarReferencia = '{EE290313-AC22-43B7-815F-58253B4EF915}';
RID_FacturasCliente = '{C65E2A72-1751-4D36-8567-CB2BBF7EFA58}'; RID_FacturasCliente = '{39FCB7C7-33D8-41D0-B361-7006793E354E}';
RID_FacturasCliente_Detalles = '{8B5BE8A5-D693-4692-9675-EB95ED7022D2}'; RID_FacturasCliente_Detalles = '{2277CCFA-8265-4007-B54E-AFBB5EEB7366}';
{ Data table names } { Data table names }
nme_DarReferencia = 'DarReferencia'; nme_DarReferencia = 'DarReferencia';
@ -131,7 +131,7 @@ const
type type
{ IDarReferencia } { IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable) IDarReferencia = interface(IDAStronglyTypedDataTable)
['{938701A9-6465-40C9-B596-6C766F0879AA}'] ['{FC6FD5A4-62B4-4B90-A7B7-04717D03C5BE}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -166,7 +166,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{253CD155-FE1A-4ECC-B2A0-7049F126A6AA}'] ['{C611FEEA-3F5D-4990-87EC-5E077E74DDAB}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -597,7 +597,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{0610850B-E0CE-47CF-B4F4-E00BC94573EC}'] ['{BD1BDC59-CA88-4C8D-B189-A917927D3F22}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);

12
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_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_DarReferenciaDelta = '{E6F28C09-709A-477E-A19E-B9ECA3780F30}'; RID_DarReferenciaDelta = '{3F90C22F-1A27-477C-8666-97294D63941A}';
RID_FacturasClienteDelta = '{D2372D5E-71C5-4C82-B9E3-574D757F492E}'; RID_FacturasClienteDelta = '{5DED3958-196C-45DF-93EB-942421D0DB76}';
RID_FacturasCliente_DetallesDelta = '{D4EC6688-FBC3-4AEC-B444-5E25CCC58C4E}'; RID_FacturasCliente_DetallesDelta = '{D421677A-3717-40DD-9787-33F108D28E17}';
type type
{ IDarReferenciaDelta } { IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia) IDarReferenciaDelta = interface(IDarReferencia)
['{E6F28C09-709A-477E-A19E-B9ECA3780F30}'] ['{3F90C22F-1A27-477C-8666-97294D63941A}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{D2372D5E-71C5-4C82-B9E3-574D757F492E}'] ['{5DED3958-196C-45DF-93EB-942421D0DB76}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -481,7 +481,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{D4EC6688-FBC3-4AEC-B444-5E25CCC58C4E}'] ['{D421677A-3717-40DD-9787-33F108D28E17}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;

17
Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas
View File

@ -19,8 +19,6 @@ type
protected protected
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override; procedure BeforeInsert(Sender: TDADataTable); override;
public
constructor Create(aDataTable: TDADataTable); override;
end; end;
implementation implementation
@ -34,31 +32,16 @@ procedure TBizDetallesFacturaCliente.BeforeInsert(Sender: TDADataTable);
var var
AMasterTable : TDADataTable; AMasterTable : TDADataTable;
begin begin
ShowMessage('BeforeInsert');
inherited; inherited;
AMasterTable := DataTable.GetMasterDataTable; AMasterTable := DataTable.GetMasterDataTable;
if not Assigned(AMasterTable) then
showmessage('No estoy asignao')
else
showmessage('estoy asignao');
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
begin begin
AMasterTable.Post; AMasterTable.Post;
showmessage('Hago post');
end; end;
end; end;
constructor TBizDetallesFacturaCliente.Create(aDataTable: TDADataTable);
begin
ShowMessage('Create Biz');
inherited Create(aDataTable);
// ContIdAux := -1;
end;
procedure TBizDetallesFacturaCliente.OnNewRecord(Sender: TDADataTable); procedure TBizDetallesFacturaCliente.OnNewRecord(Sender: TDADataTable);
begin begin
ShowMessage('OnNewRecord');
inherited; inherited;
// ID := ContIdAux; // -1, -2, -3... // ID := ContIdAux; // -1, -2, -3...
// Dec(ContIdAux); // Dec(ContIdAux);

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

@ -72,6 +72,7 @@ type
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
function GetSITUACIONValue: String; override;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); override; procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); override; procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); override;
procedure SetID_TIPO_IVAValue(const aValue: Integer); override; procedure SetID_TIPO_IVAValue(const aValue: Integer); override;
@ -225,6 +226,11 @@ begin
Result := FDetalles; Result := FDetalles;
end; end;
function TBizFacturaCliente.GetSITUACIONValue: String;
begin
result := Trim(DataTable.Fields[idx_FacturasClienteSITUACION].AsString);
end;
procedure TBizFacturaCliente.ID_TIPO_IVAOnChange(Sender: TDACustomField); procedure TBizFacturaCliente.ID_TIPO_IVAOnChange(Sender: TDACustomField);
begin begin
AsignarTipoIVA(ID_TIPO_IVA); AsignarTipoIVA(ID_TIPO_IVA);
@ -242,7 +248,7 @@ end;
procedure TBizFacturaCliente.IniciarValoresFacturaNueva; procedure TBizFacturaCliente.IniciarValoresFacturaNueva;
begin begin
// ID_EMPRESA := dmUsuarios.IDEmpresaActual; ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
// USUARIO := dmUsuarios.LoginInfo.Usuario; // USUARIO := dmUsuarios.LoginInfo.Usuario;
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);
TIPO := CTE_TIPO_FACTURA; TIPO := CTE_TIPO_FACTURA;
@ -310,9 +316,7 @@ end;
procedure TBizFacturaCliente.SetDetalles(Value: IBizDetallesFacturaCliente); procedure TBizFacturaCliente.SetDetalles(Value: IBizDetallesFacturaCliente);
begin begin
FDetalles := Value; FDetalles := Value;
showmessage('Voy a enlazar');
EnlazarMaestroDetalle(FDetallesLink, FDetalles); EnlazarMaestroDetalle(FDetallesLink, FDetalles);
showmessage('Enlazado');
end; end;
procedure TBizFacturaCliente.SetID_COMISION_LIQUIDADAValue(const aValue: Integer); procedure TBizFacturaCliente.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);

28
Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
View File

@ -3,7 +3,7 @@ unit uBizFacturasClienteServer;
interface interface
uses uses
schFacturasClienteServer_Intf, uDAInterfaces, schFacturasClienteServer_Intf, uDAInterfaces, uDADelta,
uDADataTable, uDABusinessProcessor; uDADataTable, uDABusinessProcessor;
const const
@ -16,10 +16,7 @@ const
type type
TBizFacturasClienteServer = class(TFacturasClienteBusinessProcessorRules) TBizFacturasClienteServer = class(TFacturasClienteBusinessProcessorRules)
protected protected
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
// procedure BeforeProcessChange(Sender: TDABusinessProcessor;
// aChangeType: TDAChangeType; aChange: TDADeltaChange;
// var ProcessChange: Boolean); override;
end; end;
implementation implementation
@ -30,10 +27,8 @@ uses
{ TBizFacturasClienteServer } { TBizFacturasClienteServer }
{ procedure TBizFacturasClienteServer.BeforeProcessDelta(
procedure TBizFacturasClienteServer.BeforeProcessChange( Sender: TDABusinessProcessor; const aDelta: IDADelta);
Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
aChange: TDADeltaChange; var ProcessChange: Boolean);
var var
ASchema : TDASchema; ASchema : TDASchema;
ACurrentConn : IDAConnection; ACurrentConn : IDAConnection;
@ -43,19 +38,19 @@ var
begin begin
inherited; inherited;
case aChangeType of case Sender.CurrentChange.ChangeType of
ctInsert, ctUpdate: begin ctInsert, ctUpdate: begin
//Si la referencia no ha sido asignada le asignamos una nosotros //Si la referencia no ha sido asignada le asignamos una nosotros
if (VarIsNull(aChange.NewValueByName[fld_FacturasClienteREFERENCIA])) if (VarIsNull(Sender.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA]))
or (VarToStr(aChange.NewValueByName[fld_FacturasClienteREFERENCIA]) = '') then or (VarToStr(Sender.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA]) = '') then
begin begin
ASchema := BusinessProcessor.Schema; ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
try try
//Siempre va a estar rellena //Siempre va a estar rellena
Empresa := aChange.NewValueByName[fld_FacturasClienteID_EMPRESA]; Empresa := Sender.CurrentChange.NewValueByName[fld_FacturasClienteID_EMPRESA];
Tipo := aChange.NewValueByName[fld_FacturasClienteTIPO]; Tipo := Sender.CurrentChange.NewValueByName[fld_FacturasClienteTIPO];
if Tipo = CTE_TIPO_FACTURA then if Tipo = CTE_TIPO_FACTURA then
dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_FACTURAS_CLIENTE, Empresa]) dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_FACTURAS_CLIENTE, Empresa])
@ -75,9 +70,9 @@ begin
try try
if Tipo = CTE_TIPO_FACTURA then if Tipo = CTE_TIPO_FACTURA then
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_FACTURAS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]) ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'EMPRESA'], [REF_FACTURAS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa])
else else
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_ABONOS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]); ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'EMPRESA'], [REF_ABONOS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]);
except except
RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla'); RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
@ -86,7 +81,6 @@ begin
end; end;
end; end;
end; end;
}
initialization initialization
RegisterBusinessProcessorRules(BIZ_SERVER_FACTURAS_CLIENTE, TBizFacturasClienteServer); RegisterBusinessProcessorRules(BIZ_SERVER_FACTURAS_CLIENTE, TBizFacturasClienteServer);

58
Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.dproj
View File

@ -41,44 +41,11 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> <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">True</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>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</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>
@ -89,26 +56,21 @@
<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> </Excluded_Packages><Source><Source Name="MainSource">FacturasCliente_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Source>
<Source Name="MainSource">FacturasCliente_plugin.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FacturasCliente_plugin.dpk"> <DelphiCompile Include="FacturasCliente_plugin.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\FacturasCliente_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_view.dcp" />
<DCCReference Include="uPluginFacturasCliente.pas"> <DCCReference Include="uPluginFacturasCliente.pas">
<Form>PluginFacturasCliente</Form> <Form>PluginFacturasCliente</Form>
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006
@ -591,4 +553,4 @@ mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1 Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email." mtInvalidEmailMsg0="Invalid email."
TextsCollection=English TextsCollection=English
EurekaLog Last Line --> EurekaLog Last Line -->

2
Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */ /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf182.tmp */

22
Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.res
View File

Binary file not shown.

435
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -4,12 +4,10 @@ object RptFacturasCliente: TRptFacturasCliente
Height = 405 Height = 405
Width = 447 Width = 447
object DADataCabecera: TDADataSource object DADataCabecera: TDADataSource
DataTable = tbl_FacturaCliente
Left = 264 Left = 264
Top = 72 Top = 72
end end
object DADataDetalles: TDADataSource object DADataDetalles: TDADataSource
DataTable = tbl_DetallesFacturaCliente
Left = 344 Left = 344
Top = 72 Top = 72
end end
@ -21,11 +19,6 @@ object RptFacturasCliente: TRptFacturasCliente
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
@ -40,11 +33,6 @@ object RptFacturasCliente: TRptFacturasCliente
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
@ -79,20 +67,14 @@ object RptFacturasCliente: TRptFacturasCliente
Left = 360 Left = 360
Top = 296 Top = 296
end end
object frxChartObject1: TfrxChartObject
Left = 256
Top = 344
end
object schReport: TDASchema object schReport: TDASchema
ConnectionManager = dmServer.ConnectionManager ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
Datasets = < Datasets = <
item item
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
Value = '1' Value = '1'
ParamType = daptInput ParamType = daptInput
end> end>
@ -289,449 +271,210 @@ object RptFacturasCliente: TRptFacturasCliente
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_ID' DictionaryEntry = 'FacturasCliente_ID'
InPrimaryKey = True InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_ID_EMPRESA' DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 20 Size = 20
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_REFERENCIA' DictionaryEntry = 'FacturasCliente_REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO' DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_DESCUENTO' DictionaryEntry = 'FacturasCliente_DESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_IMPORTE_IVA' DictionaryEntry = 'FacturasCliente_IMPORTE_IVA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'RE' Name = 'RE'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_RE' Name = 'IMPORTE_RE'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL' DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_IVA' DictionaryEntry = 'FacturasCliente_IVA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FORMA_PAGO' Name = 'FORMA_PAGO'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Forma de pago' DisplayLabel = 'Forma de pago'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_ID_CLIENTE' DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_NIF_CIF' DictionaryEntry = 'FacturasCliente_NIF_CIF'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_OBSERVACIONES' DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 100 Size = 100
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_NOMBRE' DictionaryEntry = 'FacturasCliente_NOMBRE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 150 Size = 150
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_CALLE' DictionaryEntry = 'FacturasCliente_CALLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 30 Size = 30
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_PROVINCIA' DictionaryEntry = 'FacturasCliente_PROVINCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TITULAR' Name = 'TITULAR'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ENTIDAD' Name = 'ENTIDAD'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'SUCURSAL' Name = 'SUCURSAL'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DC' Name = 'DC'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CUENTA' Name = 'CUENTA'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 150 Size = 150
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_POBLACION' DictionaryEntry = 'FacturasCliente_POBLACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'RAZON_SOCIAL' Name = 'RAZON_SOCIAL'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CALLE_EMPRESA' Name = 'CALLE_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'POBLACION_EMPRESA' Name = 'POBLACION_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PROVINCIA_EMPRESA' Name = 'PROVINCIA_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CODIGO_POSTAL_EMPRESA' Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FAX' Name = 'FAX'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'MOVIL_1' Name = 'MOVIL_1'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'EMAIL_1' Name = 'EMAIL_1'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PAGINA_WEB' Name = 'PAGINA_WEB'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REGISTRO_MERCANTIL' Name = 'REGISTRO_MERCANTIL'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'LOGOTIPO' Name = 'LOGOTIPO'
DataType = datBlob DataType = datBlob
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end end
item item
Params = < Params = <
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
Value = '13' Value = '13'
ParamType = daptInput ParamType = daptInput
end> end>
@ -792,114 +535,60 @@ object RptFacturasCliente: TRptFacturasCliente
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_Detalles_ID' DictionaryEntry = 'FacturasCliente_Detalles_ID'
InPrimaryKey = True InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA' DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_Detalles_POSICION' DictionaryEntry = 'FacturasCliente_Detalles_POSICION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE' DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
Size = 2000 Size = 2000
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO' DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL' DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end end
item item
Params = < Params = <
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -924,31 +613,18 @@ object RptFacturasCliente: TRptFacturasCliente
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end> end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <> Commands = <>
RelationShips = <> RelationShips = <>
UpdateRules = <> UpdateRules = <>
Version = 0
Left = 48 Left = 48
Top = 16 Top = 16
end end
@ -957,287 +633,191 @@ object RptFacturasCliente: TRptFacturasCliente
item item
Name = 'FacturasCliente_ID' Name = 'FacturasCliente_ID'
DataType = datAutoInc DataType = datAutoInc
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
DisplayLabel = 'ID' DisplayLabel = 'ID'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_ID_EMPRESA' Name = 'FacturasCliente_ID_EMPRESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_EMPRESA' DisplayLabel = 'ID_EMPRESA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_ID_CONTRATO' Name = 'FacturasCliente_ID_CONTRATO'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_CONTRATO' DisplayLabel = 'ID_CONTRATO'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_FECHA_FACTURA' Name = 'FacturasCliente_FECHA_FACTURA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha de las factura' DisplayLabel = 'Fecha de las factura'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_VENCIMIENTO' Name = 'FacturasCliente_VENCIMIENTO'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Vencimiento' DisplayLabel = 'Vencimiento'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_SITUACION' Name = 'FacturasCliente_SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Situaci'#243'n' DisplayLabel = 'Situaci'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_BASE_IMPONIBLE' Name = 'FacturasCliente_BASE_IMPONIBLE'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Base imponible' DisplayLabel = 'Base imponible'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_IMPORTE_DESCUENTO' Name = 'FacturasCliente_IMPORTE_DESCUENTO'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe dto.' DisplayLabel = 'Importe dto.'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_IMPORTE_IVA' Name = 'FacturasCliente_IMPORTE_IVA'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe IVA' DisplayLabel = 'Importe IVA'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_IMPORTE_TOTAL' Name = 'FacturasCliente_IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe total' DisplayLabel = 'Importe total'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_FORMA_PAGO' Name = 'FacturasCliente_FORMA_PAGO'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Forma de pago' DisplayLabel = 'Forma de pago'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_ID_CLIENTE' Name = 'FacturasCliente_ID_CLIENTE'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_CLIENTE' DisplayLabel = 'ID_CLIENTE'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_NIF_CIF' Name = 'FacturasCliente_NIF_CIF'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'NIF/CIF' DisplayLabel = 'NIF/CIF'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_CODIGO_POSTAL' Name = 'FacturasCliente_CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'C'#243'd. postal' DisplayLabel = 'C'#243'd. postal'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_FECHA_ALTA' Name = 'FacturasCliente_FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'FECHA_ALTA' DisplayLabel = 'FECHA_ALTA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_FECHA_MODIFICACION' Name = 'FacturasCliente_FECHA_MODIFICACION'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'FECHA_MODIFICACION' DisplayLabel = 'FECHA_MODIFICACION'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_OBSERVACIONES' Name = 'FacturasCliente_OBSERVACIONES'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Observaciones' DisplayLabel = 'Observaciones'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_NOMBRE' Name = 'FacturasCliente_NOMBRE'
DataType = datString DataType = datString
Size = 100 Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cliente' DisplayLabel = 'Cliente'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_CALLE' Name = 'FacturasCliente_CALLE'
DataType = datString DataType = datString
Size = 150 Size = 150
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Direcci'#243'n' DisplayLabel = 'Direcci'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_PROVINCIA' Name = 'FacturasCliente_PROVINCIA'
DataType = datString DataType = datString
Size = 30 Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Provincia' DisplayLabel = 'Provincia'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_POBLACION' Name = 'FacturasCliente_POBLACION'
DataType = datString DataType = datString
Size = 150 Size = 150
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Poblaci'#243'n' DisplayLabel = 'Poblaci'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_IVA' Name = 'FacturasCliente_IVA'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'IVA' DisplayLabel = 'IVA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_USUARIO' Name = 'FacturasCliente_USUARIO'
DataType = datString DataType = datString
Size = 100 Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'USUARIO' DisplayLabel = 'USUARIO'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_REFERENCIA' Name = 'FacturasCliente_REFERENCIA'
DataType = datString DataType = datString
Size = 20 Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Referencia' DisplayLabel = 'Referencia'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_DESCUENTO' Name = 'FacturasCliente_DESCUENTO'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Dto.' DisplayLabel = 'Dto.'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_ID' Name = 'FacturasCliente_Detalles_ID'
DataType = datAutoInc DataType = datAutoInc
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
DisplayLabel = 'ID' DisplayLabel = 'ID'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_ID_FACTURA' Name = 'FacturasCliente_Detalles_ID_FACTURA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_FACTURA' DisplayLabel = 'ID_FACTURA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_TIPO_DETALLE' Name = 'FacturasCliente_Detalles_TIPO_DETALLE'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Tipo detalle' DisplayLabel = 'Tipo detalle'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_CONCEPTO' Name = 'FacturasCliente_Detalles_CONCEPTO'
DataType = datString DataType = datString
Size = 2000 Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Concepto' DisplayLabel = 'Concepto'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe unidad' DisplayLabel = 'Importe unidad'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL' Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe total' DisplayLabel = 'Importe total'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_Detalles_VISIBLE' Name = 'FacturasCliente_Detalles_VISIBLE'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = #191'Visible?' DisplayLabel = #191'Visible?'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_POSICION' Name = 'FacturasCliente_Detalles_POSICION'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Posici'#243'n' DisplayLabel = 'Posici'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_CANTIDAD' Name = 'FacturasCliente_Detalles_CANTIDAD'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cantidad' DisplayLabel = 'Cantidad'
Alignment = taLeftJustify
end> end>
Left = 46 Left = 46
Top = 158 Top = 158
@ -1474,19 +1054,16 @@ object RptFacturasCliente: TRptFacturasCliente
object frxDBCabecera: TfrxDBDataset object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'
CloseDataSource = True CloseDataSource = True
DataSource = DADataCabecera
Left = 264 Left = 264
Top = 16 Top = 16
end end
object frxDBDetalles: TfrxDBDataset object frxDBDetalles: TfrxDBDataset
UserName = 'frxDBDetalles' UserName = 'frxDBDetalles'
CloseDataSource = False CloseDataSource = False
DataSource = DADataDetalles
Left = 344 Left = 344
Top = 16 Top = 16
end end
object DADataVencimientos: TDADataSource object DADataVencimientos: TDADataSource
DataTable = tbl_Vencimientos
Left = 264 Left = 264
Top = 184 Top = 184
end end
@ -1498,11 +1075,6 @@ object RptFacturasCliente: TRptFacturasCliente
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
@ -1512,7 +1084,6 @@ object RptFacturasCliente: TRptFacturasCliente
object frxDBDataset1: TfrxDBDataset object frxDBDataset1: TfrxDBDataset
UserName = 'frxDBVencimientos' UserName = 'frxDBVencimientos'
CloseDataSource = True CloseDataSource = True
DataSource = DADataVencimientos
Left = 344 Left = 344
Top = 184 Top = 184
end end

3
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -7,7 +7,7 @@ uses
Dialogs, frxClass, frxDBSet, uDAScriptingProvider, Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces; uDAInterfaces, uDADataStreamer;
type type
TRptFacturasCliente = class(TDataModule) TRptFacturasCliente = class(TDataModule)
@ -22,7 +22,6 @@ type
frxCrossObject1: TfrxCrossObject; frxCrossObject1: TfrxCrossObject;
frxCheckBoxObject1: TfrxCheckBoxObject; frxCheckBoxObject1: TfrxCheckBoxObject;
frxGradientObject1: TfrxGradientObject; frxGradientObject1: TfrxGradientObject;
frxChartObject1: TfrxChartObject;
frxDBCabecera: TfrxDBDataset; frxDBCabecera: TfrxDBDataset;
frxDBDetalles: TfrxDBDataset; frxDBDetalles: TfrxDBDataset;
DADataVencimientos: TDADataSource; DADataVencimientos: TDADataSource;

47
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -385,6 +385,7 @@ object srvFacturasCliente: TsrvFacturasCliente
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'FACTURAS_CLIENTE_DETALLES'
SQL = SQL =
'SELECT'#10' FACTURAS_CLIENTE_DETALLES.ID, FACTURAS_CLIENTE_DETALL' + 'SELECT'#10' FACTURAS_CLIENTE_DETALLES.ID, FACTURAS_CLIENTE_DETALL' +
'ES.ID_FACTURA,'#10' FACTURAS_CLIENTE_DETALLES.POSICION, FACTURAS_' + 'ES.ID_FACTURA,'#10' FACTURAS_CLIENTE_DETALLES.POSICION, FACTURAS_' +
@ -393,10 +394,10 @@ object srvFacturasCliente: TsrvFacturasCliente
'DETALLES.IMPORTE_UNIDAD, FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL' + 'DETALLES.IMPORTE_UNIDAD, FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL' +
','#10' FACTURAS_CLIENTE_DETALLES.VISIBLE,'#10#10' FACTURAS_CLIENTE_D' + ','#10' FACTURAS_CLIENTE_DETALLES.VISIBLE,'#10#10' FACTURAS_CLIENTE_D' +
'ETALLES.ID_ARTICULO, FACTURAS_CLIENTE_DETALLES.DESCUENTO,'#10' FA' + 'ETALLES.ID_ARTICULO, FACTURAS_CLIENTE_DETALLES.DESCUENTO,'#10' FA' +
'CTURAS_CLIENTE_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.REFERENCIA,' + 'CTURAS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFERENCIA,'#10' ' +
' ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10' '#10'FROM FAC' + ' ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM FACTURA' +
'TURAS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON FACTURAS_CLIENTE_D' + 'S_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON FACTURAS_CLIENTE_DETAL' +
'ETALLES.ID_ARTICULO = ARTICULOS.ID'#10'ORDER BY POSICION;'#10 'LES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -449,11 +450,13 @@ object srvFacturasCliente: TsrvFacturasCliente
end end
item item
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA'
end end
item item
DatasetField = 'REFERENCIA_PROVEEDOR' DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end> end>
end> end>
Name = 'FacturasCliente_Detalles' Name = 'FacturasCliente_Detalles'
@ -527,13 +530,11 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'FacturasCliente_Detalles_REFERENCIA'
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR'
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -550,7 +551,7 @@ object srvFacturasCliente: TsrvFacturasCliente
Value = '' Value = ''
end end
item item
Name = 'ID_EMPRESA' Name = 'EMPRESA'
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -558,7 +559,7 @@ object srvFacturasCliente: TsrvFacturasCliente
Connection = 'IBX' Connection = 'IBX'
SQL = SQL =
'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' + 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' +
'IGO AND'#10' ID_EMPRESA = :ID_EMPRESA' 'IGO AND'#10' ID_EMPRESA = :EMPRESA'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -589,7 +590,6 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_FACTURA_CLIENTE_DETALLES_ID' GeneratorName = 'GEN_FACTURA_CLIENTE_DETALLES_ID'
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
@ -662,6 +662,7 @@ object srvFacturasCliente: TsrvFacturasCliente
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
Default = True
TargetTable = 'FACTURAS_CLIENTE_DETALLES' TargetTable = 'FACTURAS_CLIENTE_DETALLES'
SQL = SQL =
'INSERT'#10' INTO FACTURAS_CLIENTE_DETALLES'#10' (ID, CANTIDAD, POSIC' + 'INSERT'#10' INTO FACTURAS_CLIENTE_DETALLES'#10' (ID, CANTIDAD, POSIC' +
@ -795,7 +796,6 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID' GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
@ -970,6 +970,7 @@ object srvFacturasCliente: TsrvFacturasCliente
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
Default = True
TargetTable = 'FACTURAS_CLIENTE' TargetTable = 'FACTURAS_CLIENTE'
SQL = SQL =
'INSERT INTO FACTURAS_CLIENTE ('#10' ID,'#10' ID_EMPRESA,'#10' REFER' + 'INSERT INTO FACTURAS_CLIENTE ('#10' ID,'#10' ID_EMPRESA,'#10' REFER' +
@ -1550,4 +1551,26 @@ object srvFacturasCliente: TsrvFacturasCliente
Left = 48 Left = 48
Top = 80 Top = 80
end end
object bpFacturasCliente: TDABusinessProcessor
Schema = schFacturasCliente
InsertCommandName = 'Insert_FacturasCliente'
DeleteCommandName = 'Delete_FacturasCliente'
UpdateCommandName = 'Update_FacturasCliente'
ReferencedDataset = 'FacturasCliente'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 24
end
object bpFacturasClienteDetalles: TDABusinessProcessor
Schema = schFacturasCliente
InsertCommandName = 'Insert_FacturasCliente_Detalles'
DeleteCommandName = 'Delete_FacturasCliente_Detalles'
UpdateCommandName = 'Update_FacturasCliente_Detalles'
ReferencedDataset = 'FacturasCliente_Detalles'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 77
end
end end

11
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas
View File

@ -24,6 +24,8 @@ type
TsrvFacturasCliente = class(TDataAbstractService, IsrvFacturasCliente) TsrvFacturasCliente = class(TDataAbstractService, IsrvFacturasCliente)
Diagrams: TDADiagrams; Diagrams: TDADiagrams;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
bpFacturasCliente: TDABusinessProcessor;
bpFacturasClienteDetalles: TDABusinessProcessor;
schFacturasCliente: TDASchema; schFacturasCliente: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
@ -66,13 +68,13 @@ begin
filtrando DataSet por ID_EMPRESA. } filtrando DataSet por ID_EMPRESA. }
{ FiltrarAccesoUsuario(Session, Connection, schFacturasCliente, DataSet, fld_FacturasClienteID_EMPRESA); { FiltrarAccesoUsuario(Session, Connection, schFacturasCliente, DataSet, fld_FacturasClienteID_EMPRESA);
end; end;
} }
end; end;
procedure TsrvFacturasCliente.DARemoteServiceCreate(Sender: TObject); procedure TsrvFacturasCliente.DARemoteServiceCreate(Sender: TObject);
begin begin
SessionManager := dmServer.SessionManager; SessionManager := dmServer.SessionManager;
// bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE; bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE;
end; end;
procedure TsrvFacturasCliente.DataAbstractServiceBeforeAcquireConnection( procedure TsrvFacturasCliente.DataAbstractServiceBeforeAcquireConnection(
@ -85,14 +87,13 @@ function TsrvFacturasCliente.GenerateReport(const FacturaID: String): Binary;
//var //var
// AReportGenerator : TRptFacturasCliente; // AReportGenerator : TRptFacturasCliente;
begin begin
{ { AReportGenerator := TRptFacturasCliente.Create(nil);
AReportGenerator := TRptFacturasCliente.Create(nil);
try try
Result := AReportGenerator.GenerarFactura(FacturaID); Result := AReportGenerator.GenerarFactura(FacturaID);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
} }
end; end;
initialization initialization

2
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc
View File

@ -22,4 +22,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */ /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */
/* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf180.tmp */

BIN
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res
View File

Binary file not shown.

133
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -11,10 +11,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 90
Width = 788 Width = 788
Caption = 'Nueva factura de cliente' Caption = 'Nueva factura de cliente'
ExplicitTop = 90
ExplicitWidth = 788 ExplicitWidth = 788
inherited Image1: TImage inherited Image1: TImage
Left = 761 Left = 761
@ -41,9 +39,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 41
Width = 788 Width = 788
ExplicitTop = 41
ExplicitWidth = 788 ExplicitWidth = 788
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 488
@ -73,24 +69,21 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Top = 117
Width = 788 Width = 788
Height = 276 Height = 317
ActivePage = pagContenido
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitTop = 117
ExplicitWidth = 788 ExplicitWidth = 788
ExplicitHeight = 276 ExplicitHeight = 317
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 780 ExplicitWidth = 780
ExplicitHeight = 248 ExplicitHeight = 289
inline frViewFacturaCliente1: TfrViewFacturaCliente inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 780 Width = 780
Height = 248 Height = 289
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -101,15 +94,15 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 780 ExplicitWidth = 780
ExplicitHeight = 248 ExplicitHeight = 289
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 780 Width = 780
Height = 248 Height = 289
ExplicitWidth = 780 ExplicitWidth = 780
ExplicitHeight = 248 ExplicitHeight = 289
DesignSize = ( DesignSize = (
780 780
248) 289)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 393 ExplicitWidth = 393
Width = 393 Width = 393
@ -125,9 +118,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 473 Width = 473
end end
inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente
Left = 465 Left = 474
Width = 332 Width = 332
ExplicitLeft = 465 ExplicitLeft = 474
ExplicitWidth = 332 ExplicitWidth = 332
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 332 Width = 332
@ -135,28 +128,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
Properties.OnChange = frViewClienteFacturaedtlNombrePropertiesChange Properties.OnChange = frViewClienteFacturaedtlNombrePropertiesChange
ExplicitWidth = 224
Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitWidth = 562
Width = 562
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitWidth = 562
Width = 562
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitWidth = 177
Width = 177
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitWidth = 327
Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
@ -168,8 +151,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 255 Width = 255
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 305 Left = 314
ExplicitLeft = 305 ExplicitLeft = 314
end end
end end
end end
@ -181,7 +164,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 780 Width = 780
Height = 248 Height = 289
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -194,7 +177,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 780 ExplicitWidth = 780
ExplicitHeight = 248 ExplicitHeight = 289
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 780 Width = 780
ExplicitWidth = 780 ExplicitWidth = 780
@ -257,9 +240,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 780 Width = 780
Height = 176 Height = 217
ExplicitWidth = 780 ExplicitWidth = 780
ExplicitHeight = 176 ExplicitHeight = 217
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 780 Width = 780
@ -269,28 +252,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
end end
object Button1: TButton
Left = 624
Top = 3
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
object DBGrid1: TDBGrid
Left = 164
Top = 136
Width = 517
Height = 120
DataSource = frViewDetallesFacturaCliente1.DADataSource
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -478,68 +439,16 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
end end
object Panel1: TPanel [5] inherited EditorActionList: TActionList [5]
Left = 0
Top = 0
Width = 788
Height = 41
Align = alTop
Caption = 'Panel1'
TabOrder = 5
DesignSize = (
788
41)
object ssss: TcxDBTextEdit
Left = 420
Top = 14
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ID'
DataBinding.DataSource = dsDataTable
Properties.ReadOnly = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 322
end
object cxDBTextEdit1: TcxDBTextEdit
Left = 26
Top = 11
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ID'
DataBinding.DataSource = frViewDetallesFacturaCliente1.DADataSource
Properties.ReadOnly = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Width = 322
end
end
inherited EditorActionList: TActionList [6]
Left = 8 Left = 8
Top = 144 Top = 144
end end
inherited SmallImages: TPngImageList [7] inherited SmallImages: TPngImageList [6]
end end
inherited LargeImages: TPngImageList [8] inherited LargeImages: TPngImageList [7]
end end
inherited JvFormStorage: TJvFormStorage [9] inherited JvFormStorage: TJvFormStorage [8]
end end
inherited dsDataTable: TDADataSource [11] inherited dsDataTable: TDADataSource [10]
end end
end end

25
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -24,11 +24,6 @@ type
frViewFacturaCliente1: TfrViewFacturaCliente; frViewFacturaCliente1: TfrViewFacturaCliente;
frViewTotales1: TfrViewTotales; frViewTotales1: TfrViewTotales;
frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente; frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente;
Panel1: TPanel;
ssss: TcxDBTextEdit;
Button1: TButton;
DBGrid1: TDBGrid;
cxDBTextEdit1: TcxDBTextEdit;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure frViewClienteFactura1edtlNombrePropertiesEditValueChanged(Sender: TObject); procedure frViewClienteFactura1edtlNombrePropertiesEditValueChanged(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
@ -44,7 +39,7 @@ type
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject; procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean); procedure frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean);
procedure Button1Click(Sender: TObject);
private private
procedure RecalcularPortePorUnidad; procedure RecalcularPortePorUnidad;
@ -93,14 +88,6 @@ uses
{ {
**************************** TfEditorFacturaCliente **************************** **************************** TfEditorFacturaCliente ****************************
} }
procedure TfEditorFacturaCliente.Button1Click(Sender: TObject);
begin
inherited;
// if fFactura.DataTable.Editing then
// FFactura.DataTable.post;
ShowMessage('ClassName -> ' + FFactura.Detalles.DataTable.BusinessEventsObj.ClassName);
FFactura.Detalles.Insert;
end;
constructor TfEditorFacturaCliente.Create(AOwner: TComponent); constructor TfEditorFacturaCliente.Create(AOwner: TComponent);
begin begin
@ -189,10 +176,10 @@ procedure TfEditorFacturaCliente.frViewTotales1cbRecargoEquivalenciaPropertiesEd
Sender: TObject); Sender: TObject);
begin begin
inherited; inherited;
{ if frViewTotales1.cbRecargoEquivalencia.Checked then if frViewTotales1.cbRecargoEquivalencia.Checked then
Factura.RECARGO_EQUIVALENCIA := 1 Factura.RECARGO_EQUIVALENCIA := 1
else else
Factura.RECARGO_EQUIVALENCIA := 0;} Factura.RECARGO_EQUIVALENCIA := 0;
end; end;
procedure TfEditorFacturaCliente.frViewTotales1edtDescuentoPropertiesValidate( procedure TfEditorFacturaCliente.frViewTotales1edtDescuentoPropertiesValidate(
@ -329,7 +316,7 @@ var
ACadena : String; ACadena : String;
begin begin
inherited; inherited;
{
if (not Assigned(FFactura)) or (FFactura.ID_CLIENTE = ID_NULO) then if (not Assigned(FFactura)) or (FFactura.ID_CLIENTE = ID_NULO) then
begin begin
if FFactura.TIPO = CTE_TIPO_FACTURA then if FFactura.TIPO = CTE_TIPO_FACTURA then
@ -339,7 +326,6 @@ begin
ShowWarningMessage(ACadena); ShowWarningMessage(ACadena);
AllowChange := False; AllowChange := False;
end; end;
}
end; end;
procedure TfEditorFacturaCliente.PonerTitulos(const ATitulo: string); procedure TfEditorFacturaCliente.PonerTitulos(const ATitulo: string);
@ -399,8 +385,7 @@ begin
if Assigned(FFactura) then if Assigned(FFactura) then
begin begin
dsDataTable.DataTable := FFactura.DataTable; dsDataTable.DataTable := FFactura.DataTable;
frViewTotales1.DADataSource.DataTable := FFactura.DataTable; // frViewTotales1.DADataSource.DataTable := FFactura.DataTable;
FTiposIVA := FTiposIVAController.BuscarTodos; FTiposIVA := FTiposIVAController.BuscarTodos;
frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable; frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable;

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

@ -122,18 +122,18 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Width = 640 Width = 640
ExplicitWidth = 640 ExplicitWidth = 640
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 ExplicitWidth = 457
Width = 273 Width = 457
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 ExplicitWidth = 240
Width = 121 Width = 240
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 295 Left = 351
ExplicitLeft = 295 ExplicitLeft = 351
ExplicitWidth = 244 ExplicitWidth = 273
Width = 244 Width = 273
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

12
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -82,17 +82,7 @@ end;
procedure TfEditorFacturasCliente.actNuevaFacturaExecute(Sender: TObject); procedure TfEditorFacturasCliente.actNuevaFacturaExecute(Sender: TObject);
begin begin
//actNuevo.Execute; actNuevo.Execute;
Controller.Anadir(Facturas);
with Facturas do
begin
ID_CLIENTE := 320;
Post;
Detalles.Insert;
Detalles.CONCEPTO := '111111';
ShowMessage('ID -> ' + IntToStr(Detalles.ID));
Detalles.Post;
end;
end; end;
procedure TfEditorFacturasCliente.actNuevoAbonoExecute(Sender: TObject); procedure TfEditorFacturasCliente.actNuevoAbonoExecute(Sender: TObject);

9
Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.dfm
View File

@ -1,6 +1,15 @@
inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn
Visible = False
end
inherited cxGridViewPOSICION: TcxGridDBColumn
Visible = False
end
inherited cxGridViewTIPO: TcxGridDBColumn
Visible = False
end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn
Visible = False Visible = False
end end

40
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 649 Width = 451
Height = 301 Height = 304
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,18 +9,16 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 649 Width = 451
Height = 301 Height = 304
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
649 451
301) 304)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 124 Left = 124
Top = 30 Top = 30
@ -81,7 +79,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 301 Width = 301
end end
inline frViewClienteFactura: TfrViewDatosYSeleccionCliente inline frViewClienteFactura: TfrViewDatosYSeleccionCliente
Left = 340 Left = 310
Top = 30 Top = 30
Width = 314 Width = 314
Height = 215 Height = 215
@ -93,38 +91,48 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitLeft = 340 ExplicitLeft = 310
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 314 ExplicitWidth = 314
ExplicitHeight = 215 ExplicitHeight = 215
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 314 Width = 314
Height = 215 Height = 215
ExplicitWidth = 119 ExplicitWidth = 314
ExplicitHeight = 215 ExplicitHeight = 215
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
ExplicitWidth = 224
Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
ExplicitWidth = 562
Width = 562
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
ExplicitWidth = 562
Width = 562
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
ExplicitWidth = 177
Width = 177
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
ExplicitWidth = 327
Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 195 Left = 192
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
ExplicitLeft = 195 ExplicitLeft = 192
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 85 Left = 82
ExplicitLeft = 85 ExplicitLeft = 82
end end
end end
end end
@ -160,7 +168,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 78 Width = 78
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 180 Left = 150
Top = 84 Top = 84
Width = 132 Width = 132
Height = 23 Height = 23

22
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -9,7 +9,7 @@ uses
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, dxLayoutControl, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, dxLayoutControl,
cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask, cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask,
DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, uFormasPagoController, uDAInterfaces; cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago;
type type
IViewFacturaCliente = interface(IViewBase) IViewFacturaCliente = interface(IViewBase)
@ -48,6 +48,7 @@ type
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
protected protected
FFactura : IBizFacturaCliente; FFactura : IBizFacturaCliente;
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
function GetFactura: IBizFacturaCliente; function GetFactura: IBizFacturaCliente;
procedure SetFactura(const Value: IBizFacturaCliente); procedure SetFactura(const Value: IBizFacturaCliente);
@ -59,8 +60,7 @@ type
implementation implementation
uses uses
uDataModuleContactos, schFacturasClienteClient_Intf, uDataModuleContactos, schFacturasClienteClient_Intf;
uBizFormasPago;
{$R *.dfm} {$R *.dfm}
@ -69,19 +69,22 @@ uses
procedure TfrViewFacturaCliente.bFormasPagoClick(Sender: TObject); procedure TfrViewFacturaCliente.bFormasPagoClick(Sender: TObject);
begin begin
inherited; inherited;
FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago); if Assigned(FFormasPago) then
FFormasPagoController.VerTodos(FFormasPago);
end; end;
procedure TfrViewFacturaCliente.CustomViewCreate(Sender: TObject); procedure TfrViewFacturaCliente.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;
// FFormasPagoController := TFormasPagoController.Create; FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create;
end; end;
procedure TfrViewFacturaCliente.CustomViewDestroy(Sender: TObject); procedure TfrViewFacturaCliente.CustomViewDestroy(Sender: TObject);
begin begin
inherited; inherited;
// FFormasPagoController := NIL; FFormasPago := Nil;
FFormasPagoController := NIL;
end; end;
function TfrViewFacturaCliente.GetFactura: IBizFacturaCliente; function TfrViewFacturaCliente.GetFactura: IBizFacturaCliente;
@ -97,10 +100,11 @@ begin
if Assigned(FFactura) then if Assigned(FFactura) then
begin begin
DADataSource.DataTable := FFactura.DataTable; DADataSource.DataTable := FFactura.DataTable;
{
dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable; FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True; dsFormaPago.DataTable.Active := True;
}
//Solo se deshabilita al insertar, luego la referencia será modificable //Solo se deshabilita al insertar, luego la referencia será modificable
//eReferencia.Enabled := (FFactura.DataTable.State = dsInsert); //eReferencia.Enabled := (FFactura.DataTable.State = dsInsert);