Compare commits
No commits in common. "b16b00e42fa034527cb24ba4221764e14f40fc79" and "6519e97ddbfd39a56cc4febd767a5782b1db1f0d" have entirely different histories.
b16b00e42f
...
6519e97ddb
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -926,8 +926,7 @@ CREATE TABLE FACTURAS_CLIENTE (
|
||||
ID_CONTRATO TIPO_ID,
|
||||
SIN_COMISION SMALLINT,
|
||||
SITUACION VARCHAR(255) COLLATE ES_ES,
|
||||
REFERENCIA_PRESUPUESTO VARCHAR(255) COLLATE ES_ES,
|
||||
FECHA_COBRO DATE
|
||||
REFERENCIA_PRESUPUESTO VARCHAR(255) COLLATE ES_ES
|
||||
);
|
||||
|
||||
CREATE TABLE FACTURAS_CLIENTE_DETALLES (
|
||||
@ -2774,8 +2773,7 @@ CREATE VIEW V_FACTURAS_CLIENTE(
|
||||
REF_CLI_CONTRATO,
|
||||
SIN_COMISION,
|
||||
REFERENCIA_PRESUPUESTO,
|
||||
TELEFONO_CLIENTE,
|
||||
FECHA_COBRO)
|
||||
TELEFONO_CLIENTE)
|
||||
AS
|
||||
SELECT FACTURAS_CLIENTE.ID,
|
||||
FACTURAS_CLIENTE.ID_EMPRESA,
|
||||
@ -2828,8 +2826,7 @@ SELECT FACTURAS_CLIENTE.ID,
|
||||
CONTRATOS_CLIENTE.REFERENCIA_CLIENTE,
|
||||
FACTURAS_CLIENTE.SIN_COMISION,
|
||||
FACTURAS_CLIENTE.REFERENCIA_PRESUPUESTO,
|
||||
CONTACTOS.telefono_1,
|
||||
FACTURAS_CLIENTE.FECHA_COBRO
|
||||
CONTACTOS.telefono_1
|
||||
|
||||
|
||||
FROM V_FAC_CLI_SITUACION
|
||||
|
||||
@ -227,12 +227,6 @@ begin
|
||||
FEmpresaActiva := Aux;
|
||||
end;
|
||||
|
||||
if Assigned(FEmpresaActiva) then
|
||||
begin
|
||||
dmBase.dxPrintStyleManager1Style1.PrinterPage.PageFooter.LeftTitle.Clear;
|
||||
dmBase.dxPrintStyleManager1Style1.PrinterPage.PageFooter.LeftTitle.Add(FEmpresaActiva.NOMBRE);
|
||||
end;
|
||||
|
||||
//Establece el ejercicio activo de la empresa activa
|
||||
CambiarEjercicio(AIDEmpresa);
|
||||
BuscarTiendaPorDefecto;
|
||||
|
||||
@ -44,34 +44,6 @@
|
||||
<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>
|
||||
|
||||
@ -110,7 +110,7 @@ implementation
|
||||
{ TControllerDetallesBase }
|
||||
|
||||
uses
|
||||
cxControls, SysUtils, DB, uDAInterfaces, Dialogs, uNumUtils;
|
||||
cxControls, SysUtils, DB, uDAInterfaces, Dialogs;
|
||||
|
||||
procedure TControllerDetallesBase.ActualizarTotales(ADataTable: IDAStronglyTypedDataTable);
|
||||
begin
|
||||
|
||||
@ -51,8 +51,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">5</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.5.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><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">3</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
||||
|
||||
Binary file not shown.
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
Binary file not shown.
@ -49,15 +49,15 @@
|
||||
<DelphiCompile Include="FacturasCliente_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_data.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RecibosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Views\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Views\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Views\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Views\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Views\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Views\FacturasCliente_data.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Views\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Views\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Views\RecibosCliente_controller.dcp" />
|
||||
<DCCReference Include="uArticulosFacturaClienteController.pas" />
|
||||
<DCCReference Include="uDetallesFacturaClienteController.pas" />
|
||||
<DCCReference Include="uFacturasClienteController.pas" />
|
||||
|
||||
@ -28,7 +28,6 @@ type
|
||||
function Nuevo (WithInsert: Boolean = True) : IBizFacturaCliente;
|
||||
function Anadir(AFactura : IBizFacturaCliente) : Boolean; overload;
|
||||
function AnadirAbono(AFactura : IBizFacturaCliente) : Boolean;
|
||||
function AnadirProforma(AFactura : IBizFacturaCliente) : Boolean;
|
||||
function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload;
|
||||
|
||||
function Eliminar(const ID : Integer): Boolean; overload;
|
||||
@ -37,7 +36,7 @@ type
|
||||
procedure DescartarCambios(AFactura : IBizFacturaCliente);
|
||||
function Existe(const ID: Integer) : Boolean;
|
||||
procedure RecuperarCliente(AFactura : IBizFacturaCliente);
|
||||
procedure ActualizarFormaDePago(AFactura : IBizFacturaCliente; ID_FORMA_PAGO: Integer);
|
||||
procedure ActualizarFormaDePago(AFactura : IBizFacturaCliente; ID_FORMA_PAGO: Integer);
|
||||
function Duplicar(AFactura: IBizFacturaCliente): IBizFacturaCliente;
|
||||
function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente;
|
||||
|
||||
@ -93,7 +92,6 @@ type
|
||||
function Existe(const ID: Integer) : Boolean; virtual;
|
||||
function Anadir(AFactura : IBizFacturaCliente): Boolean; overload;
|
||||
function AnadirAbono(AFactura : IBizFacturaCliente) : Boolean;
|
||||
function AnadirProforma(AFactura : IBizFacturaCliente) : Boolean;
|
||||
function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload;
|
||||
function Buscar(const ID: Integer): IBizFacturaCliente;
|
||||
function BuscarTodos: IBizFacturaCliente;
|
||||
@ -206,14 +204,6 @@ begin
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function TFacturasClienteController.AnadirProforma(
|
||||
AFactura: IBizFacturaCliente): Boolean;
|
||||
begin
|
||||
Anadir(AFactura);
|
||||
AFactura.TIPO := CTE_TIPO_PROFORMA;
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteController.ActualizarFormaDePago(
|
||||
AFactura: IBizFacturaCliente; ID_FORMA_PAGO: Integer);
|
||||
var
|
||||
@ -608,7 +598,6 @@ begin
|
||||
FECHA_FACTURA := DateOf(Now);
|
||||
ID_COMISION_LIQUIDADA := 0;
|
||||
OBSERVACIONES.Clear;
|
||||
TIPO := CTE_TIPO_FACTURA;
|
||||
|
||||
{$IFDEF CONTABILIDAD}
|
||||
ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
|
||||
|
||||
@ -351,15 +351,6 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
|
||||
Name = 'REFERENCIA_PRESUPUESTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_COBRO'
|
||||
DataType = datDateTime
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -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_ListaAnosFacturas = '{3C8C9440-F7E3-4755-BD1E-A23173A9F92C}';
|
||||
RID_FacturasCliente = '{AEE286AF-3740-4F5B-8D65-F1362D26A3D7}';
|
||||
RID_FacturasCliente_Detalles = '{5984177D-06A4-4A10-89F9-8919F1162664}';
|
||||
RID_ListaAnosFacturas = '{4FB44137-F728-4E8D-8D74-69487A7AC43A}';
|
||||
RID_FacturasCliente = '{BFB7896A-EEAB-4F0C-9109-BAB209348E84}';
|
||||
RID_FacturasCliente_Detalles = '{7586225E-B066-4C1D-B3C1-D5620D73D814}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosFacturas = 'ListaAnosFacturas';
|
||||
@ -76,8 +76,6 @@ const
|
||||
fld_FacturasClienteREF_CLI_CONTRATO = 'REF_CLI_CONTRATO';
|
||||
fld_FacturasClienteSIN_COMISION = 'SIN_COMISION';
|
||||
fld_FacturasClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO';
|
||||
fld_FacturasClienteTELEFONO_CLIENTE = 'TELEFONO_CLIENTE';
|
||||
fld_FacturasClienteFECHA_COBRO = 'FECHA_COBRO';
|
||||
|
||||
{ FacturasCliente field indexes }
|
||||
idx_FacturasClienteID = 0;
|
||||
@ -131,8 +129,6 @@ const
|
||||
idx_FacturasClienteREF_CLI_CONTRATO = 48;
|
||||
idx_FacturasClienteSIN_COMISION = 49;
|
||||
idx_FacturasClienteREFERENCIA_PRESUPUESTO = 50;
|
||||
idx_FacturasClienteTELEFONO_CLIENTE = 51;
|
||||
idx_FacturasClienteFECHA_COBRO = 52;
|
||||
|
||||
{ FacturasCliente_Detalles fields }
|
||||
fld_FacturasCliente_DetallesID = 'ID';
|
||||
@ -171,7 +167,7 @@ const
|
||||
type
|
||||
{ IListaAnosFacturas }
|
||||
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
|
||||
['{30B99999-43BA-49D8-A7FD-00B1D68921F5}']
|
||||
['{15A2EAF7-43DA-4695-BBFA-DD864D47A79F}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -206,7 +202,7 @@ type
|
||||
|
||||
{ IFacturasCliente }
|
||||
IFacturasCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{BC559238-5D9F-4692-96F0-0275DE79780A}']
|
||||
['{DCCE714A-24FC-4693-A768-AE271A87BD4B}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -411,14 +407,6 @@ type
|
||||
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String);
|
||||
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean;
|
||||
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean);
|
||||
function GetTELEFONO_CLIENTEValue: String;
|
||||
procedure SetTELEFONO_CLIENTEValue(const aValue: String);
|
||||
function GetTELEFONO_CLIENTEIsNull: Boolean;
|
||||
procedure SetTELEFONO_CLIENTEIsNull(const aValue: Boolean);
|
||||
function GetFECHA_COBROValue: DateTime;
|
||||
procedure SetFECHA_COBROValue(const aValue: DateTime);
|
||||
function GetFECHA_COBROIsNull: Boolean;
|
||||
procedure SetFECHA_COBROIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -524,10 +512,6 @@ type
|
||||
property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
|
||||
property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
|
||||
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
|
||||
property TELEFONO_CLIENTE: String read GetTELEFONO_CLIENTEValue write SetTELEFONO_CLIENTEValue;
|
||||
property TELEFONO_CLIENTEIsNull: Boolean read GetTELEFONO_CLIENTEIsNull write SetTELEFONO_CLIENTEIsNull;
|
||||
property FECHA_COBRO: DateTime read GetFECHA_COBROValue write SetFECHA_COBROValue;
|
||||
property FECHA_COBROIsNull: Boolean read GetFECHA_COBROIsNull write SetFECHA_COBROIsNull;
|
||||
end;
|
||||
|
||||
{ TFacturasClienteDataTableRules }
|
||||
@ -740,14 +724,6 @@ type
|
||||
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
|
||||
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
|
||||
function GetTELEFONO_CLIENTEValue: String; virtual;
|
||||
procedure SetTELEFONO_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetTELEFONO_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetTELEFONO_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_COBROValue: DateTime; virtual;
|
||||
procedure SetFECHA_COBROValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_COBROIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_COBROIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -852,10 +828,6 @@ type
|
||||
property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
|
||||
property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
|
||||
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
|
||||
property TELEFONO_CLIENTE: String read GetTELEFONO_CLIENTEValue write SetTELEFONO_CLIENTEValue;
|
||||
property TELEFONO_CLIENTEIsNull: Boolean read GetTELEFONO_CLIENTEIsNull write SetTELEFONO_CLIENTEIsNull;
|
||||
property FECHA_COBRO: DateTime read GetFECHA_COBROValue write SetFECHA_COBROValue;
|
||||
property FECHA_COBROIsNull: Boolean read GetFECHA_COBROIsNull write SetFECHA_COBROIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -865,7 +837,7 @@ type
|
||||
|
||||
{ IFacturasCliente_Detalles }
|
||||
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{BB9E9075-143F-4EC9-B4ED-500470F34697}']
|
||||
['{EC03457E-43B2-4E08-A995-24CBF1341748}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2192,48 +2164,6 @@ begin
|
||||
DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetTELEFONO_CLIENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteTELEFONO_CLIENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetTELEFONO_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasClienteTELEFONO_CLIENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetTELEFONO_CLIENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteTELEFONO_CLIENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetTELEFONO_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasClienteTELEFONO_CLIENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetFECHA_COBROValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteFECHA_COBRO].AsDateTime;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetFECHA_COBROValue(const aValue: DateTime);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasClienteFECHA_COBRO].AsDateTime := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetFECHA_COBROIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteFECHA_COBRO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetFECHA_COBROIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasClienteFECHA_COBRO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasCliente_DetallesDataTableRules }
|
||||
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -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_ListaAnosFacturasDelta = '{5A534CAA-740E-4DE3-A6D4-25E714DAD424}';
|
||||
RID_FacturasClienteDelta = '{C8710EA1-DBBC-4657-A84B-911C5EF001CA}';
|
||||
RID_FacturasCliente_DetallesDelta = '{C81EEEF0-3BE9-4518-9DF1-7AE844D6F126}';
|
||||
RID_ListaAnosFacturasDelta = '{263E7CFE-EAF5-4A59-994D-C319488DE385}';
|
||||
RID_FacturasClienteDelta = '{D73F0972-622D-4F89-A8AC-DC65E3205A58}';
|
||||
RID_FacturasCliente_DetallesDelta = '{E5E8C1DD-3188-42A6-AA15-C0FD7AC9B68B}';
|
||||
|
||||
type
|
||||
{ IListaAnosFacturasDelta }
|
||||
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
|
||||
['{5A534CAA-740E-4DE3-A6D4-25E714DAD424}']
|
||||
['{263E7CFE-EAF5-4A59-994D-C319488DE385}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -50,7 +50,7 @@ type
|
||||
|
||||
{ IFacturasClienteDelta }
|
||||
IFacturasClienteDelta = interface(IFacturasCliente)
|
||||
['{C8710EA1-DBBC-4657-A84B-911C5EF001CA}']
|
||||
['{D73F0972-622D-4F89-A8AC-DC65E3205A58}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -103,8 +103,6 @@ type
|
||||
function GetOldREF_CLI_CONTRATOValue : String;
|
||||
function GetOldSIN_COMISIONValue : SmallInt;
|
||||
function GetOldREFERENCIA_PRESUPUESTOValue : String;
|
||||
function GetOldTELEFONO_CLIENTEValue : String;
|
||||
function GetOldFECHA_COBROValue : DateTime;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -158,8 +156,6 @@ type
|
||||
property OldREF_CLI_CONTRATO : String read GetOldREF_CLI_CONTRATOValue;
|
||||
property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
|
||||
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
|
||||
property OldTELEFONO_CLIENTE : String read GetOldTELEFONO_CLIENTEValue;
|
||||
property OldFECHA_COBRO : DateTime read GetOldFECHA_COBROValue;
|
||||
end;
|
||||
|
||||
{ TFacturasClienteBusinessProcessorRules }
|
||||
@ -474,18 +470,6 @@ type
|
||||
function GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
|
||||
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
|
||||
function GetTELEFONO_CLIENTEValue: String; virtual;
|
||||
function GetTELEFONO_CLIENTEIsNull: Boolean; virtual;
|
||||
function GetOldTELEFONO_CLIENTEValue: String; virtual;
|
||||
function GetOldTELEFONO_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetTELEFONO_CLIENTEValue(const aValue: String); virtual;
|
||||
procedure SetTELEFONO_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_COBROValue: DateTime; virtual;
|
||||
function GetFECHA_COBROIsNull: Boolean; virtual;
|
||||
function GetOldFECHA_COBROValue: DateTime; virtual;
|
||||
function GetOldFECHA_COBROIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_COBROValue(const aValue: DateTime); virtual;
|
||||
procedure SetFECHA_COBROIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -692,14 +676,6 @@ type
|
||||
property REFERENCIA_PRESUPUESTOIsNull : Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
|
||||
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
|
||||
property OldREFERENCIA_PRESUPUESTOIsNull : Boolean read GetOldREFERENCIA_PRESUPUESTOIsNull;
|
||||
property TELEFONO_CLIENTE : String read GetTELEFONO_CLIENTEValue write SetTELEFONO_CLIENTEValue;
|
||||
property TELEFONO_CLIENTEIsNull : Boolean read GetTELEFONO_CLIENTEIsNull write SetTELEFONO_CLIENTEIsNull;
|
||||
property OldTELEFONO_CLIENTE : String read GetOldTELEFONO_CLIENTEValue;
|
||||
property OldTELEFONO_CLIENTEIsNull : Boolean read GetOldTELEFONO_CLIENTEIsNull;
|
||||
property FECHA_COBRO : DateTime read GetFECHA_COBROValue write SetFECHA_COBROValue;
|
||||
property FECHA_COBROIsNull : Boolean read GetFECHA_COBROIsNull write SetFECHA_COBROIsNull;
|
||||
property OldFECHA_COBRO : DateTime read GetOldFECHA_COBROValue;
|
||||
property OldFECHA_COBROIsNull : Boolean read GetOldFECHA_COBROIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -709,7 +685,7 @@ type
|
||||
|
||||
{ IFacturasCliente_DetallesDelta }
|
||||
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
|
||||
['{C81EEEF0-3BE9-4518-9DF1-7AE844D6F126}']
|
||||
['{E5E8C1DD-3188-42A6-AA15-C0FD7AC9B68B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
@ -2557,68 +2533,6 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetTELEFONO_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTELEFONO_CLIENTE];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetTELEFONO_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTELEFONO_CLIENTE]);
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldTELEFONO_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteTELEFONO_CLIENTE];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldTELEFONO_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteTELEFONO_CLIENTE]);
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetTELEFONO_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTELEFONO_CLIENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetTELEFONO_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTELEFONO_CLIENTE] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetFECHA_COBROValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_COBRO];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetFECHA_COBROIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_COBRO]);
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldFECHA_COBROValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_COBRO];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldFECHA_COBROIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_COBRO]);
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetFECHA_COBROValue(const aValue: DateTime);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_COBRO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetFECHA_COBROIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_COBRO] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasCliente_DetallesBusinessProcessorRules }
|
||||
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -11,7 +11,6 @@ const
|
||||
|
||||
CTE_TIPO_ABONO = 'A';
|
||||
CTE_TIPO_FACTURA = 'F';
|
||||
CTE_TIPO_PROFORMA = 'B';
|
||||
|
||||
CTE_PENDIENTE = 'PENDIENTE';
|
||||
CTE_PARCIAMENTE_PAGADA = 'PARCIALMENTE PAGADA';
|
||||
@ -269,13 +268,6 @@ begin
|
||||
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
|
||||
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
|
||||
|
||||
OBSERVACIONES.Add('FORMA DE PAGO');
|
||||
OBSERVACIONES.Add('TRANSFERENCIA BANCARIA');
|
||||
OBSERVACIONES.Add('IBAN: ES 84 0182 2880 1702 0004 9131');
|
||||
|
||||
|
||||
|
||||
|
||||
{$IFDEF CONTABILIDAD}
|
||||
// if Assigned(AppFactuGES.EjercicioActivo) then
|
||||
// IGNORAR_CONTABILIDAD := 0
|
||||
|
||||
@ -33,10 +33,8 @@ uses
|
||||
const
|
||||
REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE';
|
||||
REF_ABONOS_CLIENTE = 'REF_ABONOS_CLIENTE';
|
||||
REF_FACTURAS_PROFORMA = 'REF_FACTURAS_PROFORMA';
|
||||
CTE_TIPO_ABONO = 'A';
|
||||
CTE_TIPO_FACTURA = 'F';
|
||||
CTE_TIPO_PROFORMA = 'B';
|
||||
|
||||
{ TBizFacturasClienteServer }
|
||||
|
||||
@ -130,11 +128,9 @@ var
|
||||
AClientID : TGUID;
|
||||
ATipo : String;
|
||||
begin
|
||||
//Se hace distinción en la referencia entre proformas y (facturas/abonos)
|
||||
if TIPO = CTE_TIPO_PROFORMA then
|
||||
ATipo := REF_FACTURAS_PROFORMA
|
||||
else
|
||||
ATipo := REF_FACTURAS_CLIENTE;
|
||||
//No se hace distinción en la referencia entre facturas y abonos
|
||||
// if TIPO = CTE_TIPO_FACTURA then
|
||||
ATipo := REF_FACTURAS_CLIENTE;
|
||||
// else
|
||||
// ATipo := REF_ABONOS_CLIENTE;
|
||||
|
||||
@ -152,9 +148,7 @@ var
|
||||
AClientID : TGUID;
|
||||
ATipo : String;
|
||||
begin
|
||||
if TIPO = CTE_TIPO_PROFORMA then
|
||||
ATipo := REF_FACTURAS_PROFORMA
|
||||
else
|
||||
// if TIPO = CTE_TIPO_FACTURA then
|
||||
ATipo := REF_FACTURAS_CLIENTE;
|
||||
// else
|
||||
// ATipo := REF_ABONOS_CLIENTE;
|
||||
|
||||
@ -642,33 +642,32 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
TargetTable = 'FACTURAS_CLIENTE'
|
||||
SQL =
|
||||
'SELECT'#10' V_FACTURAS_CLIENTE.ID, V_FACTURAS_CLIENTE.REFERENCIA,' +
|
||||
' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_CLIENTE.TIPO,'#10 +
|
||||
' V_FACTURAS_CLIENTE.TIENDA, V_FACTURAS_CLIENTE.ID_TIENDA,'#10' ' +
|
||||
' V_FACTURAS_CLIENTE.IMPORTE_NETO,'#10' V_FACTURAS_CLIENTE.BASE_IM' +
|
||||
'PONIBLE, V_FACTURAS_CLIENTE.DESCUENTO, V_FACTURAS_CLIENTE.IMPORT' +
|
||||
'E_DESCUENTO,'#10' V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMPO' +
|
||||
'RTE_IVA,'#10' V_FACTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_R' +
|
||||
'E,'#10' V_FACTURAS_CLIENTE.IMPORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.' +
|
||||
'OBSERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS' +
|
||||
'_CLIENTE.ID_CLIENTE,'#10' V_FACTURAS_CLIENTE.REFERENCIA_CLIENTE, ' +
|
||||
'V_FACTURAS_CLIENTE.TELEFONO_CLIENTE, V_FACTURAS_CLIENTE.NIF_CIF,' +
|
||||
' V_FACTURAS_CLIENTE.NOMBRE, V_FACTURAS_CLIENTE.CALLE,'#10' V_FACT' +
|
||||
'URAS_CLIENTE.PROVINCIA, V_FACTURAS_CLIENTE.CODIGO_POSTAL, V_FACT' +
|
||||
'URAS_CLIENTE.POBLACION,'#10' CONTACTOS_DATOS_BANCO.TITULAR,'#10' C' +
|
||||
'ONTACTOS_DATOS_BANCO.ENTIDAD,'#10' CONTACTOS_DATOS_BANCO.SUCURSAL' +
|
||||
','#10' CONTACTOS_DATOS_BANCO.DC,'#10' CONTACTOS_DATOS_BANCO.CUENTA' +
|
||||
','#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.' +
|
||||
'RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBL' +
|
||||
'ACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_' +
|
||||
'EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EM' +
|
||||
'PRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAI' +
|
||||
'L_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRE' +
|
||||
'SAS.LOGOTIPO,'#10' V_FACTURAS_CLIENTE.REFERENCIA_PRESUPUESTO'#10'FROM' +
|
||||
' V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRE' +
|
||||
'SA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE' +
|
||||
'.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DA' +
|
||||
'TOS_BANCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_F' +
|
||||
'ACTURAS_CLIENTE.ID = :ID'#10
|
||||
' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_CLIENTE.TIENDA' +
|
||||
', V_FACTURAS_CLIENTE.ID_TIENDA,'#10' V_FACTURAS_CLIENTE.IMPORTE_N' +
|
||||
'ETO,'#10' V_FACTURAS_CLIENTE.BASE_IMPONIBLE, V_FACTURAS_CLIENTE.D' +
|
||||
'ESCUENTO, V_FACTURAS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_FACTURAS_C' +
|
||||
'LIENTE.IVA, V_FACTURAS_CLIENTE.IMPORTE_IVA,'#10' V_FACTURAS_CLIEN' +
|
||||
'TE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10' V_FACTURAS_CLIENTE.IMP' +
|
||||
'ORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' +
|
||||
'SCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIENTE,'#10' V_FA' +
|
||||
'CTURAS_CLIENTE.REFERENCIA_CLIENTE, V_FACTURAS_CLIENTE.TELEFONO_C' +
|
||||
'LIENTE, V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V' +
|
||||
'_FACTURAS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FAC' +
|
||||
'TURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10' C' +
|
||||
'ONTACTOS_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,' +
|
||||
#10' CONTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.D' +
|
||||
'C,'#10' CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRESAS.NI' +
|
||||
'F_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CA' +
|
||||
'LLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' ' +
|
||||
' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POST' +
|
||||
'AL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.F' +
|
||||
'AX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB,' +
|
||||
' EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO,'#10' V_FACTURAS_' +
|
||||
'CLIENTE.REFERENCIA_PRESUPUESTO'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN' +
|
||||
' EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (' +
|
||||
'FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CON' +
|
||||
'TACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = V_FAC' +
|
||||
'TURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -872,11 +871,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
DatasetField = 'TELEFONO_CLIENTE'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'TELEFONO_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'TIPO'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeFacturasCliente'
|
||||
@ -898,11 +892,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
end
|
||||
item
|
||||
Name = 'TIENDA'
|
||||
DataType = datString
|
||||
|
||||
@ -82,7 +82,6 @@ uses
|
||||
|
||||
const
|
||||
rptFacturaCliente = 'InfFacturaCliente.fr3';
|
||||
rptFacturaProforma = 'InfFacturaProforma.fr3';
|
||||
|
||||
rptInformeIVA = 'InformeIVAClientes.fr3';
|
||||
rptInformeIVADesglosado = 'InformeIVAClientesDesglosado.fr3';
|
||||
@ -686,12 +685,7 @@ begin
|
||||
tbl_Detalles.Active := True;
|
||||
tbl_Vencimientos.Active := True;
|
||||
|
||||
if (tbl_Cabecera.FieldByName('TIPO').AsString = 'B') then
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptFacturaProforma, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('ID_TIENDA').AsString)
|
||||
else
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptFacturaCliente, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('ID_TIENDA').AsString);
|
||||
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptFacturaCliente, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('ID_TIENDA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente));
|
||||
|
||||
|
||||
@ -251,14 +251,6 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
item
|
||||
DatasetField = 'REFERENCIA_PRESUPUESTO'
|
||||
TableField = 'REFERENCIA_PRESUPUESTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TELEFONO_CLIENTE'
|
||||
TableField = 'TELEFONO_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_COBRO'
|
||||
TableField = 'FECHA_COBRO'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasCliente'
|
||||
@ -541,15 +533,6 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
Name = 'REFERENCIA_PRESUPUESTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_COBRO'
|
||||
DataType = datDateTime
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1158,11 +1141,6 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_COBRO'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -1179,17 +1157,17 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
'RIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IV' +
|
||||
'A,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD' +
|
||||
','#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SIN_COMISION,'#10' SITUACIO' +
|
||||
'N,'#10' REFERENCIA_PRESUPUESTO,'#10' FECHA_COBRO)'#10' VALUES ('#10' :' +
|
||||
'ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :F' +
|
||||
'ECHA_VENCIMIENTO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPO' +
|
||||
'RTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE' +
|
||||
'_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' ' +
|
||||
' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVIN' +
|
||||
'CIA,'#10' :CODIGO_POSTAL,'#10' CURRENT_TIMESTAMP,'#10' :USUARIO,'#10' ' +
|
||||
' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' ' +
|
||||
' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,' +
|
||||
#10' :ID_TIENDA,'#10' :ID_CONTRATO,'#10' :SIN_COMISION,'#10' :SITUA' +
|
||||
'CION,'#10' :REFERENCIA_PRESUPUESTO,'#10' :FECHA_COBRO);'#10
|
||||
'N,'#10' REFERENCIA_PRESUPUESTO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRE' +
|
||||
'SA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,' +
|
||||
#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' ' +
|
||||
' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE' +
|
||||
'_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :' +
|
||||
'NOMBRE,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_' +
|
||||
'POSTAL,'#10' CURRENT_TIMESTAMP,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,' +
|
||||
#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,' +
|
||||
#10' :IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10 +
|
||||
' :ID_CONTRATO,'#10' :SIN_COMISION,'#10' :SITUACION,'#10' :REFERE' +
|
||||
'NCIA_PRESUPUESTO);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1367,11 +1345,6 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_COBRO'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1398,8 +1371,7 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
'RAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TI' +
|
||||
'ENDA,'#10' ID_CONTRATO = :ID_CONTRATO,'#10' SIN_COMISION = :SIN_CO' +
|
||||
'MISION,'#10' SITUACION = :SITUACION,'#10' REFERENCIA_PRESUPUESTO =' +
|
||||
' :REFERENCIA_PRESUPUESTO,'#10' FECHA_COBRO = :FECHA_COBRO'#10' WHERE' +
|
||||
#10' (ID = :OLD_ID);'#10
|
||||
' :REFERENCIA_PRESUPUESTO'#10' WHERE'#10' (ID = :OLD_ID);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -115,43 +115,63 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 159
|
||||
Width = 159
|
||||
end
|
||||
inherited edtFecha: TcxDBDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 159
|
||||
Width = 159
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 78
|
||||
Width = 78
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 312
|
||||
ExplicitLeft = 312
|
||||
end
|
||||
inherited frViewTienda1: TfrViewTienda
|
||||
Width = 351
|
||||
ExplicitWidth = 351
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 351
|
||||
inherited cbTienda: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 399
|
||||
Width = 399
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewClienteFactura1: TfrViewClienteFactura
|
||||
Left = 472
|
||||
Width = 398
|
||||
ExplicitLeft = 472
|
||||
ExplicitWidth = 398
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 398
|
||||
inherited Bevel1: TBevel
|
||||
Width = 266
|
||||
ExplicitWidth = 266
|
||||
end
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
@ -159,6 +179,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
@ -166,6 +188,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
@ -173,6 +197,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
@ -180,6 +206,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 306
|
||||
@ -199,6 +227,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -207,14 +237,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 310
|
||||
Width = 310
|
||||
end
|
||||
inherited frViewObservaciones1: TfrViewObservaciones
|
||||
Width = 521
|
||||
Height = 228
|
||||
ExplicitWidth = 521
|
||||
ExplicitHeight = 228
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||
ExplicitHeight = 228
|
||||
Height = 228
|
||||
Width = 521
|
||||
end
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
@ -222,6 +257,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
end
|
||||
inherited edtSituacion: TcxDBComboBox
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -434,8 +475,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
inherited Bevel3: TBevel
|
||||
Left = 489
|
||||
Top = 30
|
||||
Height = 122
|
||||
ExplicitLeft = 489
|
||||
ExplicitTop = 30
|
||||
ExplicitHeight = 122
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 601
|
||||
@ -554,6 +597,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 672
|
||||
ExplicitTop = 104
|
||||
ExplicitWidth = 56
|
||||
Width = 56
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Top = 30
|
||||
|
||||
@ -293,13 +293,13 @@ begin
|
||||
begin
|
||||
if FFactura.TIPO = CTE_TIPO_FACTURA then
|
||||
ShowInfoMessage('La factura se ha dado de alta con el código ' + FFactura.REFERENCIA)
|
||||
else if FFactura.TIPO = CTE_TIPO_ABONO then
|
||||
ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA)
|
||||
else
|
||||
ShowInfoMessage('La factura proforma se ha dado de alta con el código ' + FFactura.REFERENCIA)
|
||||
begin
|
||||
ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA);
|
||||
//Preguntamos is desea hacer una orden de devolución asociada
|
||||
// if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then
|
||||
// GenerarAlbaranCli(FFactura);
|
||||
end;
|
||||
end;
|
||||
|
||||
Modified := False;
|
||||
@ -393,10 +393,8 @@ begin
|
||||
begin
|
||||
if FFactura.TIPO = CTE_TIPO_FACTURA then
|
||||
ACadena := 'Antes debe elegir un cliente para esta factura'
|
||||
else if FFactura.TIPO = CTE_TIPO_ABONO then
|
||||
ACadena := 'Antes debe elegir un cliente para este abono'
|
||||
else
|
||||
ACadena := 'Antes debe elegir un cliente para esta factura proforma';
|
||||
ACadena := 'Antes debe elegir un cliente para este abono';
|
||||
ShowWarningMessage(ACadena);
|
||||
AllowChange := False;
|
||||
end;
|
||||
@ -412,17 +410,13 @@ begin
|
||||
if Factura.EsNuevo then
|
||||
if Factura.TIPO = CTE_TIPO_FACTURA then
|
||||
FTitulo := 'Nueva factura de cliente'
|
||||
else if Factura.TIPO = CTE_TIPO_ABONO then
|
||||
FTitulo := 'Nuevo abono a cliente'
|
||||
else
|
||||
FTitulo := 'Nueva factura proforma de cliente'
|
||||
FTitulo := 'Nuevo abono a cliente'
|
||||
else
|
||||
if Factura.TIPO = CTE_TIPO_FACTURA then
|
||||
FTitulo := 'Factura de cliente' + ' - ' + FFactura.Cliente.Nombre
|
||||
else if Factura.TIPO = CTE_TIPO_ABONO then
|
||||
FTitulo := 'Abono a cliente' + ' - ' + FFactura.Cliente.Nombre
|
||||
else
|
||||
FTitulo := 'Factura proforma de cliente' + ' - ' + FFactura.Cliente.Nombre
|
||||
FTitulo := 'Abono a cliente' + ' - ' + FFactura.Cliente.Nombre
|
||||
end;
|
||||
|
||||
inherited PonerTitulos(FTitulo);
|
||||
|
||||
@ -52,9 +52,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
Action = actNuevoAbono
|
||||
Caption = 'Nuevo abono...'
|
||||
end
|
||||
object TBXItem41: TTBXItem
|
||||
Action = actNuevaProforma
|
||||
end
|
||||
end
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
@ -288,12 +285,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
ImageIndex = 25
|
||||
OnExecute = actInformesExecute
|
||||
end
|
||||
object actNuevaProforma: TAction
|
||||
Category = 'Archivo'
|
||||
Caption = 'Proforma'
|
||||
ImageIndex = 6
|
||||
OnExecute = actNuevaProformaExecute
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [5]
|
||||
PngImages = <
|
||||
|
||||
@ -35,15 +35,12 @@ type
|
||||
actInformes: TAction;
|
||||
JSInformesDialog: TJSDialog;
|
||||
TBXItem40: TTBXItem;
|
||||
actNuevaProforma: TAction;
|
||||
TBXItem41: TTBXItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
procedure actNuevaFacturaExecute(Sender: TObject);
|
||||
procedure actNuevoAbonoExecute(Sender: TObject);
|
||||
procedure actInformesExecute(Sender: TObject);
|
||||
procedure OnListaAnosChange(Sender: TObject; const Text: string);
|
||||
procedure actNuevaProformaExecute(Sender: TObject);
|
||||
|
||||
private
|
||||
FFacturas: IBizFacturaCliente;
|
||||
@ -131,12 +128,6 @@ begin
|
||||
actNuevo.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasCliente.actNuevaProformaExecute(Sender: TObject);
|
||||
begin
|
||||
if FController.AnadirProforma(Facturas) then
|
||||
FController.Ver(Facturas);
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasCliente.actNuevoAbonoExecute(Sender: TObject);
|
||||
var
|
||||
Respuesta : Integer;
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Width = 849
|
||||
Height = 552
|
||||
Width = 451
|
||||
Height = 304
|
||||
Align = alClient
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
@ -9,19 +9,17 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 849
|
||||
Height = 552
|
||||
Width = 451
|
||||
Height = 304
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
DesignSize = (
|
||||
849
|
||||
552)
|
||||
451
|
||||
304)
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 135
|
||||
Top = 30
|
||||
@ -66,7 +64,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
object cbFormaPago: TcxDBLookupComboBox
|
||||
Left = 135
|
||||
Top = 189
|
||||
Top = 162
|
||||
DataBinding.DataField = 'ID_FORMA_PAGO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
@ -94,22 +92,22 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
TabOrder = 4
|
||||
Width = 78
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 297
|
||||
Top = 189
|
||||
Top = 162
|
||||
Width = 132
|
||||
Height = 23
|
||||
Caption = 'Ver las formas de pago...'
|
||||
Enabled = False
|
||||
TabOrder = 6
|
||||
TabOrder = 5
|
||||
OnClick = bFormasPagoClick
|
||||
end
|
||||
inline frViewTienda1: TfrViewTienda
|
||||
Left = 22
|
||||
Top = 323
|
||||
Top = 296
|
||||
Width = 351
|
||||
Height = 48
|
||||
Enabled = False
|
||||
@ -119,10 +117,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 10
|
||||
TabOrder = 9
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 323
|
||||
ExplicitTop = 296
|
||||
ExplicitWidth = 351
|
||||
ExplicitHeight = 48
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
@ -152,7 +150,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 12
|
||||
TabOrder = 11
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 457
|
||||
ExplicitTop = 30
|
||||
@ -184,12 +182,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Width = 276
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 278
|
||||
ExplicitLeft = 278
|
||||
Left = 192
|
||||
ExplicitLeft = 192
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 168
|
||||
ExplicitLeft = 168
|
||||
Left = 82
|
||||
ExplicitLeft = 82
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
@ -199,7 +197,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
object edtFechaVencimiento: TcxDBDateEdit
|
||||
Left = 135
|
||||
Top = 218
|
||||
Top = 191
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_VENCIMIENTO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -220,12 +218,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
TabOrder = 6
|
||||
Width = 310
|
||||
end
|
||||
inline frViewObservaciones1: TfrViewObservaciones
|
||||
Left = 22
|
||||
Top = 452
|
||||
Top = 425
|
||||
Width = 521
|
||||
Height = 20
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -234,10 +232,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 13
|
||||
TabOrder = 12
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 452
|
||||
ExplicitTop = 425
|
||||
ExplicitHeight = 20
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
@ -248,7 +246,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
object cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Left = 22
|
||||
Top = 401
|
||||
Top = 374
|
||||
Caption = ' No acogida a comisiones'
|
||||
DataBinding.DataField = 'SIN_COMISION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -274,7 +272,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 11
|
||||
TabOrder = 10
|
||||
Width = 158
|
||||
end
|
||||
object edtSituacion: TcxDBComboBox
|
||||
@ -292,7 +290,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
object edtRefContrato: TcxDBTextEdit
|
||||
Left = 135
|
||||
Top = 269
|
||||
Top = 242
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'REF_CONTRATO'
|
||||
@ -309,13 +307,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 8
|
||||
TabOrder = 7
|
||||
Height = 21
|
||||
Width = 294
|
||||
end
|
||||
object edtRefClienteContrato: TcxDBTextEdit
|
||||
Left = 135
|
||||
Top = 296
|
||||
Top = 269
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'REF_CLI_CONTRATO'
|
||||
@ -332,7 +330,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 9
|
||||
TabOrder = 8
|
||||
Height = 21
|
||||
Width = 294
|
||||
end
|
||||
@ -356,27 +354,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
TabOrder = 2
|
||||
Width = 294
|
||||
end
|
||||
object edtFechaCobro: TcxDBDateEdit
|
||||
Left = 135
|
||||
Top = 138
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_COBRO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = clInfoBk
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.Shadow = False
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.ButtonTransparency = ebtNone
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
Width = 294
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -416,11 +393,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Control = edtSituacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item12: TdxLayoutItem
|
||||
Caption = 'Fecha de cobro:'
|
||||
Control = edtFechaCobro
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group8: TdxLayoutGroup
|
||||
Caption = 'Forma de pago'
|
||||
|
||||
@ -66,8 +66,6 @@ type
|
||||
edtRefClienteContrato: TcxDBTextEdit;
|
||||
dxLayoutControl1Item11: TdxLayoutItem;
|
||||
edtReferenciaPresupuesto: TcxDBTextEdit;
|
||||
dxLayoutControl1Item12: TdxLayoutItem;
|
||||
edtFechaCobro: TcxDBDateEdit;
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
|
||||
@ -32,10 +32,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
item
|
||||
Description = 'Abono'
|
||||
Value = 'A'
|
||||
end
|
||||
item
|
||||
Description = 'Proforma'
|
||||
Value = 'B'
|
||||
end>
|
||||
end
|
||||
object cxGridViewTIENDA: TcxGridDBColumn
|
||||
@ -49,6 +45,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Width = 69
|
||||
end
|
||||
object cxGridViewSITUACION: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'SITUACION'
|
||||
Width = 32
|
||||
end
|
||||
object cxGridViewFECHA_FACTURA: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'FECHA_FACTURA'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
@ -56,14 +56,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
SortOrder = soDescending
|
||||
Width = 28
|
||||
end
|
||||
object cxGridViewSITUACION: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'SITUACION'
|
||||
Width = 32
|
||||
end
|
||||
object cxGridViewFECHA_COBRO: TcxGridDBColumn
|
||||
Caption = 'Fecha de cobro'
|
||||
DataBinding.FieldName = 'FECHA_COBRO'
|
||||
end
|
||||
object cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn
|
||||
Caption = 'Ref. presupuesto'
|
||||
DataBinding.FieldName = 'REFERENCIA_PRESUPUESTO'
|
||||
@ -412,10 +404,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
AssignedValues = [svTextColor]
|
||||
TextColor = clBlue
|
||||
end
|
||||
object cxStyleProforma: TcxStyle
|
||||
AssignedValues = [svTextColor]
|
||||
TextColor = clFuchsia
|
||||
end
|
||||
end
|
||||
object PngImageList: TPngImageList
|
||||
PngImages = <
|
||||
|
||||
@ -63,8 +63,6 @@ type
|
||||
cxGridViewREF_CONTRATO: TcxGridDBColumn;
|
||||
cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn;
|
||||
cxGridViewREF_CLI_CONTRATO: TcxGridDBColumn;
|
||||
cxGridViewFECHA_COBRO: TcxGridDBColumn;
|
||||
cxStyleProforma: TcxStyle;
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
|
||||
out AStyle: TcxStyle);
|
||||
@ -214,11 +212,6 @@ begin
|
||||
IndiceCol := cxGridViewIMPORTE_TOTAL.Index;
|
||||
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
|
||||
AStyle := cxStyleAbono;
|
||||
|
||||
IndiceCol := cxGridViewTIPO.Index;
|
||||
if (ARecord.Values[IndiceCol] = 'B') then
|
||||
AStyle := cxStyleProforma;
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -28,11 +28,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">5</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 09 de febrero de 2018 12:30</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">3</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 08 de octubre de 2013 18:53</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>True</ModelSupport></BorlandProject></BorlandProject>
|
||||
|
||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user