Tecistel/Tecsitel_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
This repository has been archived on 2024-11-29. You can view files and clone it, but cannot push or open issues or pull requests.
7291f69f59
Tecsitel_FactuGES/Clientes/FacturaCliente.pas

2393 lines
75 KiB
ObjectPascal
Raw Normal View History

Importación inicial git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES/trunk@4 b68bf8ae-e977-074f-a058-3cfd71dd8f45
2007-06-21 15:47:20 +00:00
{
===============================================================================
Copyright (<EFBFBD>) 2001. Rodax Software.
===============================================================================
Los contenidos de este fichero son propiedad de Rodax Software titular del
copyright. Este fichero s<EFBFBD>lo podr<EFBFBD> ser copiado, distribuido y utilizado,
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
acuerdo con los t<EFBFBD>rminos y condiciones establecidas en el acuerdo/contrato
bajo el que se suministra.
-----------------------------------------------------------------------------
Web: www.rodax-software.com
===============================================================================
Fecha primera versi<EFBFBD>n: 01-10-2001
Versi<EFBFBD>n actual: 1.2.3
Fecha versi<EFBFBD>n actual: 18-03-2005
===============================================================================
Modificaciones:
Fecha Comentarios
---------------------------------------------------------------------------
15-10-2001 Se han a<EFBFBD>adido las comprobaciones para el campo 'IVA' y para
el campo 'Descuento' porque no estaban.
20-10-2001 Se ha ampliado el campo 'F. de pago' porque pasa a tener
50 caracteres.
21-10-2001 Al pasar del modo A<EFBFBD>adir/Modificar a Consultar/Eliminar se
quedaban activados algunos botones con lupa.
23-10-2001 Los conceptos se han implementado como una tabla de memoria.
27-10-2001 Se ha arreglado un fallo que al a<EFBFBD>adir un concepto estando
en la <EFBFBD>ltima fila lo hacia por encima del registro, no por
debajo.
27-10-2001 En el campo 'domiciliaci<63>n bancaria' debe aparecer una lista
desplegable con todas las cuentas bancarias dadas de alta
en la aplicaci<EFBFBD>n.
27-10-2001 Se ha eliminado la pesta<EFBFBD>a 'Notas' porque en facturas de
cliente no hay.
29-10-2001 Cuando se elimina un concepto con <CTRL+Supr> hay que
volver a recalcular el importe total de la factura.
30-10-2001 Se ha a<EFBFBD>adido cliente final en facturas de cliente.
31-10-2001 Se han a<EFBFBD>adido los campos IMPORTEDESCUENTO e IMPORTEIVA.
27-11-2001 Recuperar la unidad de medida del art<EFBFBD>culo.
17-01-2002 Cuando se copian conceptos de un presupuestos, los conceptos
de tipo 'OPC' se cambian por 'TIT'.
07-02-2002 Desactivada la opci<EFBFBD>n de 'CancelOnExit' del grid.
24-02-2002 En la ventana modal de art<EFBFBD>culos seleccionar, si es posible,
la fila con el <EFBFBD>ltimo material seleccionado.
02-03-2002 En el contenido se pueden a<EFBFBD>adir muchos materiales a la vez.
07-04-2002 Se ha adaptado para la transacci<EFBFBD>n <EFBFBD>nica.
09-04-2002 En las funciones 'CancelarAnadir', 'CancelarModificar',
'CancelarEliminar', 'AnadirDatos', 'ModificarDatos', y
'EliminarDatos' cerrar todas las tablas que se usen.
09-04-2002 En el evento 'bCancelarClick' llamar a la funci<EFBFBD>n
'TratarCambios' en vez de 'DescartarOperacion'.
05-05-2002 En el procedimiento 'SetCodigoArticulo' no se daba un mensaje
de error cuando el art<EFBFBD>culo no exist<EFBFBD>a.
07-05-2002 Adaptaci<EFBFBD>n al grid 'TdxDBGrid'.
07-05-2002 Se han eliminado los procedimientos 'DesactivarColumnasTitulo'
y 'ActivarColumnasTitulo'.
11-08-2002 P236. Cuando se borra una factura de cliente hay que
comprobar si es la <EFBFBD>ltima para decrementar el contador de
facturas y no dejar un hueco.
21-08-2002 P237. Revisar los botones de 'Eliminar' y 'Eliminar todo'
para que al pulsar 'Esc' cancele la operaci<EFBFBD>n y no la
ejecute como ahora.
21-08-2002 P238. Revisar el grid de los detalles para que se pueda
borrar un c<EFBFBD>digo de art<EFBFBD>culo cuando ya se ha introducido.
14-09-2002 P242. Sacar una ventana modal para editar el
texto de un concepto.
24-09-2002 Se produc<EFBFBD>a una excepci<EFBFBD>n si el cursos estaba en el c<EFBFBD>digo
de la factura, se pulsaba la tecla 'Esc' y se eleg<EFBFBD>a 'No'.
El frame estaba oculto pero saltaba el evento OnExit del
campo de c<EFBFBD>digo de factura.
21-12-2002 Se ha eliminado un error con el campo 'PROVINCIA'. Al estar
situado en ese campo y dar Esc para salir se puede producir
una excepci<EFBFBD>n.
08-03-2003 Se han puesto componentes con calendario.
08-03-2004 p272. Adaptaci<EFBFBD>n a multiempresa.
19-07-2004 p278. Error al facturar un presupuesto, albar<EFBFBD>n o abono.
No estaba bien adaptado a multiempresa.
18-03-2005 p587. Adaptaci<EFBFBD>n a Bonificaciones
===============================================================================
}
unit FacturaCliente;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, RdxBotones, RdxTitulos, StdCtrls,
RdxMemo, RdxCampos, ExtCtrls, Tipos, Configuracion,
RdxComboBox, RdxPaneles, RdxBarras, ComCtrls, RdxRichEdit, RXDBCtrl,
RdxPageControl, RdxFrameFacturasCliente, Db,
RdxRadioButton, RxMemDS, IBCustomDataSet, TablaPresupuestos, dxCntner,
dxTL, dxDBCtrl, dxDBGrid, dxEditor, dxExEdtr, dxEdLib, dxDBELib,
cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxDBEdit, cxButtonEdit;
type
TClaseFactura = (cfFactLibre, cfFactPre, cfFactAlb, cfFactAbono);
TfrFacturaCliente = class(TRdxFrameFacturasCliente)
brSalir: TRdxBarraInferior;
bSalir: TRdxBoton;
brGuardar: TRdxBarraInferior;
bGuardar: TRdxBoton;
bCancelar: TRdxBoton;
pnlScroll: TRdxScrollPanel;
pnlFactura: TRdxPanel;
cDatosAlbaran: TRdxCabecera;
eFormaPago: TLabel;
eCuentaBancaria: TLabel;
eCodigo: TLabel;
Codigo: TRdxDBEdit;
Label1: TLabel;
Situacion: TRdxDBComboBox;
Label8: TLabel;
Titulo: TRdxPanelTituloOperacion;
eEstadoFactura: TLabel;
eRealizadoPor: TLabel;
Usuario: TRdxDBEdit;
RdxPanel1: TRdxPanel;
Paginas: TRdxPagesControl;
pagCliente: TTabSheet;
pnlCliente: TRdxPanel;
eCodigoCliente: TLabel;
eNIFCIF: TLabel;
eNombre: TLabel;
eDireccion: TLabel;
eNumero: TLabel;
ePiso: TLabel;
ePoblacion: TLabel;
eCodigoPostal: TLabel;
eProvincia: TLabel;
ePersona: TLabel;
eTelefono1: TLabel;
eFax: TLabel;
NIF: TRdxDBEdit;
Nombre: TRdxDBEdit;
Calle: TRdxDBEdit;
Numero: TRdxDBEdit;
Piso: TRdxDBEdit;
Poblacion: TRdxDBEdit;
CodigoPostal: TRdxDBEdit;
Provincia: TRdxDBEdit;
PersonaContacto: TRdxDBEdit;
Telefono: TRdxDBEdit;
Fax: TRdxDBEdit;
pagContenido: TTabSheet;
pnlGridArticulos: TPanel;
pnlBarraGrid: TRdxPanel;
bAnadirCon: TRdxBoton;
bEliminar: TRdxBoton;
bEliminarTodo: TRdxBoton;
bAnadirCap: TRdxBoton;
pagImportes: TTabSheet;
pagDescripcion: TTabSheet;
RdxPanel4: TRdxPanel;
Label3: TLabel;
RdxPanel5: TRdxPanel;
Descripcion: TRdxDBRichEdit;
pnlImporteAlbaran: TRdxPanel;
Label4: TLabel;
eDto: TLabel;
eIVA: TLabel;
Label6: TLabel;
BaseImponible: TRdxDBEdit;
Descuento: TRdxDBEdit;
IVA: TRdxDBEdit;
ImporteTotal: TRdxDBEdit;
dsFactura: TDataSource;
dsDetallesFacturas: TDataSource;
FormaPago: TRdxDBComboBox;
CuentaBancaria: TRdxDBComboBox;
RdxPanel2: TRdxPanel;
RdxCabecera1: TRdxCabecera;
Label2: TLabel;
Label5: TLabel;
NombreClienteFinal: TRdxDBEdit;
Shape1: TShape;
ImporteDescuento: TRdxDBEdit;
ImporteIVA: TRdxDBEdit;
gridDetalles: TdxDBGrid;
pnlPresupuesto: TPanel;
Label7: TLabel;
Label9: TLabel;
CodPresupuesto: TRdxDBEdit;
pnlAlbaran: TPanel;
Label10: TLabel;
Label11: TLabel;
CodAlbaran: TRdxDBEdit;
pnlAbono: TPanel;
Label12: TLabel;
Label13: TLabel;
CodFacturaCargo: TRdxDBEdit;
FechaAlta: TcxDBDateEdit;
Vencimiento: TcxDBDateEdit;
CodCliente: TcxDBButtonEdit;
CodClienteFinal: TcxDBButtonEdit;
procedure bCancelarClick(Sender: TObject);
procedure bSalirClick(Sender: TObject);
procedure bGuardarClick(Sender: TObject);
procedure CodigoButtonClick(Sender: TObject);
procedure CodigoExit(Sender: TObject);
procedure ProvinciaButtonClick(Sender: TObject);
procedure PoblacionButtonClick(Sender: TObject);
procedure rbPresupuestoClick(Sender: TObject);
procedure rbFacturaLibreClick(Sender: TObject);
procedure rbAlbaranClick(Sender: TObject);
procedure bAnadirConClick(Sender: TObject);
procedure bAnadirCapClick(Sender: TObject);
procedure bEliminarClick(Sender: TObject);
procedure bEliminarTodoClick(Sender: TObject);
procedure gridDetallesCustomDrawCell(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
var ADone: Boolean);
procedure gridDetallesEditing(Sender: TObject; Node: TdxTreeListNode;
var Allow: Boolean);
procedure CodClientePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure CodClientePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
procedure CodClienteFinalPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure CodClienteFinalPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
private
FCodigoProvincia : Variant;
FCodigoPoblacion : Variant;
FCodigoCliente : Variant;
FCodigoClienteAux : Variant;
FCodigoArticulo : Variant;
FCodigoPresupuesto : String;
FCodigoAlbaran : String;
FTablaDetallesMem : TRxMemoryData;
FCodigoClienteFinal: Variant;
FCodigoFacturaCargo : String;
FClaseFactura : TClaseFactura;
procedure CalcularTotalDetalle;
procedure CalcularTotalFactura;
procedure ActivarEventosCampos;
procedure ActivarFacturaLibre;
procedure ActivarPresupuesto;
procedure ActivarAlbaran;
procedure ActivarAbono;
procedure CopiarConceptosAlbaran;
procedure CopiarConceptosPresupuesto(DatosPre: TDatosPresupuesto);
procedure CopiarConceptosFacturaCargo;
procedure IVASetText(Sender: TField; const Text: String);
procedure DtoSetText(Sender: TField; const Text: String);
procedure InsertarReferenciaAPresupuesto (DatosPre : TDatosPresupuesto);
procedure BorrarDetalles;
procedure SalvarDetalles;
procedure CargarDetalles;
procedure BorrarDetallesIB;
procedure DetalleAfterDelete (DataSet: TDataSet);
procedure SetClaseFactura(Value : TClaseFactura);
property ClaseFactura : TClaseFactura read FClaseFactura write SetClaseFactura;
procedure GridBotonCodigoArticuloClick(Sender: TObject);
procedure CodigoArticuloDetalleSetText(Sender: TField; const Text: String);
procedure PlusDetalleSetText(Sender: TField; const Text: String);
procedure CantidadDetalleSetText(Sender: TField; const Text: String);
procedure PrecioDetalleSetText(Sender: TField; const Text: String);
procedure PrecioMinutoDetalleSetText(Sender: TField; const Text: String);
procedure MinutosDetalleSetText(Sender: TField; const Text: String);
procedure GridBotonDescripcionClick(Sender: TObject);
procedure ProvinciaSetText(Sender: TField; const Text: String);
function ComprobarAbono : Boolean;
protected
procedure ActivarModoAnadir; override;
procedure ActivarModoModificar; override;
procedure ActivarModoConsultar; override;
procedure ActivarModoEliminar; override;
function AnadirDatos : Boolean; override;
function ModificarDatos : Boolean; override;
function EliminarDatos : Boolean; override;
function CancelarAnadir : Boolean; override;
function CancelarModificar : Boolean; override;
function CancelarEliminar : Boolean; override;
function ComprobarDatos : Boolean; override;
procedure VerModal; override;
procedure SetCodigoProvincia (Value : Variant); virtual;
procedure SetCodigoPoblacion (Value : Variant); virtual;
procedure SetCodigoCliente (Value : Variant);
procedure SetCodigoClienteFinal (Value : Variant);
procedure SetCodigoArticulo (Value : Variant);
procedure SetCodigoPresupuesto (Value : String);
procedure SetCodigoAlbaran (Value : String);
procedure SetCodigoFacturaCargo (Value : String);
procedure FreeContenido; override;
procedure BuscarFactura; override;
public
property CodigoProvincia : Variant read FCodigoProvincia write SetCodigoProvincia;
property CodigoPoblacion : Variant read FCodigoPoblacion write SetCodigoPoblacion;
property CodigoCliente : Variant read FCodigoCliente write SetCodigoCliente;
property CodigoClienteFinal : Variant read FCodigoClienteFinal write SetCodigoClienteFinal;
property CodigoArticulo : Variant read FCodigoArticulo write SetCodigoArticulo;
property CodigoPresupuesto : String read FCodigoPresupuesto write SetCodigoPresupuesto;
property CodigoAlbaran : String read FCodigoAlbaran write SetCodigoAlbaran;
property CodigoFacturaCargo : String read FCodigoFacturaCargo write SetCodigoFacturaCargo;
constructor Create (AOwner : TComponent); override;
destructor Destroy; override;
published
property TablaFacturas;
property TablaDetallesFacturas;
property TablaDetallesMem : TRxMemoryData read FTablaDetallesMem write FTablaDetallesMem;
property CodigoFactura;
end;
var
frFacturaCliente: TfrFacturaCliente;
implementation
{$R *.DFM}
uses
FacturasClientes, BaseDatos, TablaFacturasCliente, IBDatabase, NumFunc,
Mensajes, Clientes, RdxFrameProvincias, RdxFramePoblaciones,
TablaProvincias, Provincias, Poblaciones, TablaClientes, RdxFrameClientes,
IB, Articulos, RdxFrameArticulos, TablaArticulos, RdxEmpresaActiva,
StrFunc, TablaPoblaciones, TablaFormasPago, TablaBancos,
IBSQL, Excepciones, IBErrorCodes, TablaAlbaranesCliente,
dxDBTLCL, Colores, EditorDescripcion, Literales, Constantes;
var
NuevoConcepto : Integer;
procedure TfrFacturaCliente.bCancelarClick(Sender: TObject);
begin
if (TratarCambios = IDOK) then
CloseFrame;
end;
procedure TfrFacturaCliente.bSalirClick(Sender: TObject);
begin
try
Rollback;
CloseFrame;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
end;
procedure TfrFacturaCliente.bGuardarClick(Sender: TObject);
begin
if (RealizarOperacion) then
CloseFrame;
end;
procedure TfrFacturaCliente.ActivarEventosCampos;
begin
with TablaFacturas do
begin
FieldByName('IVA').OnSetText := IVASetText;
FieldByName('DESCUENTO').OnSetText := DtoSetText;
end;
with TablaDetallesMem do
begin
FieldByName('CODIGOARTICULO').OnSetText := CodigoArticuloDetalleSetText;
FieldByName('PLUS').OnSetText := PlusDetalleSetText;
FieldByName('CANTIDAD').OnSetText := CantidadDetalleSetText;
FieldByName('PRECIOUNIDAD').OnSetText := PrecioDetalleSetText;
FieldByName('PRECIOMINUTO').OnSetText := PrecioMinutoDetalleSetText;
FieldByName('MINUTOS').OnSetText := MinutosDetalleSetText;
AfterDelete := DetalleAfterDelete;
end;
end;
procedure TfrFacturaCliente.ActivarModoAnadir;
var
CodNuevo : Variant;
begin
dsFactura.AutoEdit := True;
dsDetallesFacturas.AutoEdit := True;
Codigo.VerBoton := False;
Codigo.ReadOnly := False;
CodCliente.Properties.Buttons[0].Visible := True;
CodCliente.Properties.OnValidate := CodClientePropertiesValidate;
CodClienteFinal.Properties.Buttons[0].Visible := True;
CodClienteFinal.Properties.OnValidate := CodClienteFinalPropertiesValidate;
Poblacion.VerBoton := True;
Provincia.VerBoton := True;
ActivarEdicionGridDetalles(gridDetalles);
(gridDetalles.ColumnByFieldName('CODIGOARTICULO')
as TdxDBTreeListButtonColumn).OnEditButtonClick := GridBotonCodigoArticuloClick;
(gridDetalles.ColumnByFieldName('DESCRIPCION')
as TdxDBTreeListButtonColumn).OnEditButtonClick := GridBotonDescripcionClick;
pnlBarraGrid.Visible := True;
try
{ Antes de aplicar la cach<EFBFBD> hay que asegurarse de que la
tabla est<EFBFBD> cerrada. }
TablaFacturas.DisableControls;
TablaDetallesFacturas.DisableControls;
{ Inicializar la tabla de facturas }
TablaFacturas.Close;
CodNuevo := dmTablaFacturasCliente.darNuevoCodigo;
with TablaFacturas do
begin
CachedUpdates := True;
Prepare;
Open;
FieldByName('PROVINCIA').OnSetText := ProvinciaSetText;
EnableControls;
Insert;
FieldByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
end;
Codigo.Field.asString := CodNuevo;
FechaAlta.DataBinding.Field.AsString := DateToStr(Date);
Vencimiento.DataBinding.Field.AsString := DateToStr(Date);
Situacion.Field.AsString := Situacion.Items.Strings[0];
Usuario.Field.AsString := dmBaseDatos.Usuario;
TablaFacturas.FieldByName('CLASEFACTURA').AsString := 'C';
ActivarFacturaLibre;
{ Inicializar la tabla de detalles }
with TablaDetallesFacturas do
begin
Close;
ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
ParamByName('CODIGOFACTURA').AsString := CodNuevo;
Prepare;
Open;
EnableControls;
end;
with TablaDetallesMem do
begin
Close;
Open;
ActivarEventosCampos;
end;
dmTablaFacturasCliente.InicializarTablaFacturas(@TablaFacturas);
dmTablaFacturasCliente.InicializarTablaDetalles(@TablaDetallesMem);
Visible := True;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
end;
procedure TfrFacturaCliente.ActivarModoConsultar;
var
CodPreAlb : string;
CodCargo : string;
begin
dsFactura.AutoEdit := False;
dsDetallesFacturas.AutoEdit := False;
Codigo.VerBoton := True;
CodCliente.Properties.Buttons[0].Visible := False;
CodCliente.Properties.OnValidate := nil;
CodClienteFinal.Properties.Buttons[0].Visible := False;
CodClienteFinal.Properties.OnValidate := nil;
Poblacion.VerBoton := False;
Provincia.VerBoton := False;
DesactivarEdicionGridDetalles(gridDetalles);
(gridDetalles.ColumnByFieldName('CODIGOARTICULO')
as TdxDBTreeListButtonColumn).OnEditButtonClick := NIL;
(gridDetalles.ColumnByFieldName('DESCRIPCION')
as TdxDBTreeListButtonColumn).OnEditButtonClick := NIL;
pnlBarraGrid.Visible := False;
try
TablaFacturas.Prepare;
TablaFacturas.Open;
if TablaFacturas.RecordCount = 0 then
begin
VerMensajeFmt(msgFacCliNoExisteFac, [CodigoFactura]);
CloseFrame;
Exit;
end;
TablaFacturas.Cancel;
CodPreAlb := TablaFacturas.FieldByName('CODIGOPRESUPUESTOALBARAN').AsString;
if EsCadenaVacia(CodPreAlb) then
ClaseFactura := cfFactLibre
else begin
if dmTablaPresupuestos.ValidarCodigo(CodPreAlb) then
ClaseFactura := cfFactPre
else begin
if dmTablaAlbaranesCliente.ValidarCodigo(CodPreAlb) then
ClaseFactura := cfFactAlb
else
raise Exception.Create(msgFacCliCodPreAlbInvalido);
end;
end;
CodCargo := TablaFacturas.FieldByName('CODIGOCARGO').AsString;
if (not EsCadenaVacia(CodCargo) or (ImporteTotal.Field.AsFloat < 0)) then
begin
ClaseFactura := cfFactAbono;
FCodigoFacturaCargo := CodCargo;
end;
with TablaDetallesFacturas do
begin
Close;
ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
Params.ByName('CODIGOFACTURA').AsString := CodigoFactura;
Prepare;
Open;
Cancel;
end;
TablaDetallesMem.Close;
TablaDetallesMem.Open;
TablaDetallesMem.Cancel;
CargarDetalles;
dmTablaFacturasCliente.InicializarTablaFacturas(@TablaFacturas);
dmTablaFacturasCliente.InicializarTablaDetalles(@TablaDetallesMem);
Visible := True;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
end;
procedure TfrFacturaCliente.ActivarModoEliminar;
var
CodPreAlb : string;
CodCargo : string;
begin
dsFactura.AutoEdit := False;
dsDetallesFacturas.AutoEdit := False;
Codigo.VerBoton := True;
CodCliente.Properties.Buttons[0].Visible := False;
CodCliente.Properties.OnValidate := nil;
CodClienteFinal.Properties.Buttons[0].Visible := False;
CodClienteFinal.Properties.OnValidate := nil;
Poblacion.VerBoton := False;
Provincia.VerBoton := False;
DesactivarEdicionGridDetalles(gridDetalles);
(gridDetalles.ColumnByFieldName('CODIGOARTICULO')
as TdxDBTreeListButtonColumn).OnEditButtonClick := NIL;
(gridDetalles.ColumnByFieldName('DESCRIPCION')
as TdxDBTreeListButtonColumn).OnEditButtonClick := NIL;
pnlBarraGrid.Visible := False;
try
TablaFacturas.Prepare;
TablaFacturas.Open;
if TablaFacturas.RecordCount = 0 then
begin
VerMensajeFmt(msgFacCliNoExisteFac, [CodigoFactura]);
CancelarEliminar;
CloseFrame;
Exit;
end;
TablaFacturas.Cancel;
CodPreAlb := TablaFacturas.FieldByName('CODIGOPRESUPUESTOALBARAN').AsString;
if EsCadenaVacia(CodPreAlb) then
ClaseFactura := cfFactLibre
else begin
if dmTablaPresupuestos.ValidarCodigo(CodPreAlb) then
ClaseFactura := cfFactPre
else begin
if dmTablaAlbaranesCliente.ValidarCodigo(CodPreAlb) then
ClaseFactura := cfFactAlb
else
raise Exception.Create(msgFacCliCodPreAlbInvalido);
end;
end;
CodCargo := TablaFacturas.FieldByName('CODIGOCARGO').AsString;
if (not EsCadenaVacia(CodCargo) or (ImporteTotal.Field.AsFloat < 0)) then
begin
ClaseFactura := cfFactAbono;
FCodigoFacturaCargo := CodCargo;
end;
with TablaDetallesFacturas do
begin
Close;
ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
Params.ByName('CODIGOFACTURA').AsString := CodigoFactura;
Prepare;
Open;
Cancel;
end;
TablaDetallesMem.Close;
TablaDetallesMem.Open;
TablaDetallesMem.Cancel;
CargarDetalles;
dmTablaFacturasCliente.InicializarTablaFacturas(@TablaFacturas);
dmTablaFacturasCliente.InicializarTablaDetalles(@TablaDetallesMem);
Visible := True;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
end;
procedure TfrFacturaCliente.ActivarModoModificar;
var
CodPreAlb : String;
CodCargo : string;
begin
dsFactura.AutoEdit := True;
dsDetallesFacturas.AutoEdit := True;
Codigo.VerBoton := True;
Codigo.ReadOnly := True;
CodCliente.Properties.Buttons[0].Visible := True;
CodCliente.Properties.OnValidate := CodClientePropertiesValidate;
CodClienteFinal.Properties.Buttons[0].Visible := True;
CodClienteFinal.Properties.OnValidate := CodClienteFinalPropertiesValidate;
Poblacion.VerBoton := True;
Provincia.VerBoton := True;
ActivarEdicionGridDetalles(gridDetalles);
(gridDetalles.ColumnByFieldName('CODIGOARTICULO')
as TdxDBTreeListButtonColumn).OnEditButtonClick := GridBotonCodigoArticuloClick;
(gridDetalles.ColumnByFieldName('DESCRIPCION')
as TdxDBTreeListButtonColumn).OnEditButtonClick := GridBotonDescripcionClick;
pnlBarraGrid.Visible := True;
try
{ Antes de aplicar la cach<EFBFBD> hay que asegurarse de que la
tabla est<EFBFBD> cerrada. }
TablaFacturas.Prepare;
TablaFacturas.Open;
TablaFacturas.FieldByName('PROVINCIA').OnSetText := ProvinciaSetText;
if TablaFacturas.RecordCount = 0 then
begin
VerMensajeFmt(msgFacCliNoExisteFac, [CodigoFactura]);
CancelarModificar;
CloseFrame;
Exit;
end;
TablaFacturas.Edit;
TablaFacturas.Post;
TablaFacturas.Edit;
CodPreAlb := TablaFacturas.FieldByName('CODIGOPRESUPUESTOALBARAN').AsString;
if EsCadenaVacia(CodPreAlb) then
ClaseFactura := cfFactLibre
else begin
if dmTablaPresupuestos.ValidarCodigo(CodPreAlb) then
ClaseFactura := cfFactPre
else begin
if dmTablaAlbaranesCliente.ValidarCodigo(CodPreAlb) then
ClaseFactura := cfFactAlb
else
raise Exception.Create(msgFacCliCodPreAlbInvalido);
end;
end;
CodCargo := TablaFacturas.FieldByName('CODIGOCARGO').AsString;
if (not EsCadenaVacia(CodCargo) or (ImporteTotal.Field.AsFloat < 0)) then
begin
ClaseFactura := cfFactAbono;
FCodigoFacturaCargo := CodCargo;
end;
with TablaDetallesFacturas do
begin
Close;
ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
Params.ByName('CODIGOFACTURA').AsString := CodigoFactura;
Prepare;
Open;
end;
with TablaDetallesMem do
begin
Close;
Open;
CargarDetalles;
ActivarEventosCampos;
end;
dmTablaFacturasCliente.InicializarTablaFacturas(@TablaFacturas);
dmTablaFacturasCliente.InicializarTablaDetalles(@TablaDetallesMem);
CalcularTotalFactura;
Visible := True;
except
on E : EIBError do
begin
case E.IBErrorCode of
isc_lock_conflict : begin
VerMensajeFmt(msgFacCliBloqueado, [CodigoFactura]);
CancelarModificar;
CloseFrame;
Exit;
end
else
TratarExcepcion(E);
end;
end;
on E : Exception do
TratarExcepcion(E);
end;
end;
function TfrFacturaCliente.AnadirDatos: Boolean;
var
CodPreAlb : string;
begin
Result := False;
try
CalcularTotalFactura;
TablaFacturas.Post;
TablaFacturas.ApplyUpdates;
CodPreAlb := TablaFacturas.FieldByName('CODIGOPRESUPUESTOALBARAN').AsString;
if not EsCadenaVacia(CodPreAlb) then
begin
if dmTablaPresupuestos.ValidarCodigo(CodPreAlb) then
dmTablaPresupuestos.FacturarPresupuesto(EmpresaActiva.Codigo, CodPreAlb, Codigo.Field.AsString)
else begin
if dmTablaAlbaranesCliente.ValidarCodigo(CodPreAlb) then
dmTablaAlbaranesCliente.FacturarAlbaran(EmpresaActiva.Codigo, CodPreAlb, Codigo.Field.AsString)
else
raise Exception.Create(msgFacCliCodPreAlbInvalido);
end;
end;
BorrarDetallesIB;
SalvarDetalles;
dmTablaFacturasCliente.IncrementarCodigo;
FCodigoFactura := TablaFacturas.FieldByName('CODIGO').AsString;
Commit;
TablaFacturas.CachedUpdates := False;
TablaFacturas.Close;
TablaDetallesFacturas.Close;
TablaDetallesMem.Close;
Result := True;
except
on E : EIBError do begin
if E.IBErrorCode = isc_unique_key_violation then begin
VerMensajeFmt(msgFacCliCodFacRepetido, [Codigo.Field.AsString]);
TablaFacturas.Edit;
end
else
TratarExcepcion(E);
end;
on E : Exception do
TratarExcepcion(E);
end;
end;
procedure TfrFacturaCliente.BuscarFactura;
begin
if Transaccion = NIL then
exit;
try
TablaFacturas.DisableControls;
TablaDetallesFacturas.DisableControls;
TablaDetallesMem.DisableControls;
TablaFacturas.Close;
TablaDetallesFacturas.Close;
TablaDetallesMem.Close;
// Buscar la fila a tratar si es necesario
if not EsCadenaVacia(FCodigoFactura) then
begin
TablaFacturas.ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
TablaFacturas.ParamByName('CODIGO').AsString := FCodigoFactura;
TablaDetallesFacturas.ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
TablaDetallesFacturas.ParamByName('CODIGOFACTURA').AsString := FCodigoFactura;
end;
TablaFacturas.Prepare;
TablaFacturas.Open;
TablaDetallesFacturas.Prepare;
TablaDetallesFacturas.Open;
TablaDetallesMem.Close;
TablaDetallesMem.Open;
CargarDetalles;
dmTablaFacturasCliente.InicializarTablaFacturas(@TablaFacturas);
dmTablaFacturasCliente.InicializarTablaDetalles(@TablaDetallesMem);
TablaFacturas.EnableControls;
TablaDetallesFacturas.EnableControls;
TablaDetallesMem.EnableControls;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
end;
procedure TfrFacturaCliente.CalcularTotalDetalle;
var
auxCantidad,
auxPrecio,
auxMinutos,
auxPlus,
auxTotal : double;
begin
with TablaDetallesMem do
begin
auxCantidad := FieldByName('CANTIDAD').AsFloat;
if (ClaseFactura = cfFactAbono) then
FieldByName('PRECIOUNIDAD').AsFloat := -1 * System.Abs(FieldByName('PRECIOUNIDAD').AsFloat);
auxPrecio := FieldByName('PRECIOUNIDAD').AsFloat;
auxMinutos := FieldByName('MINUTOS').AsFloat * FieldByName('PRECIOMINUTO').AsFloat;
auxPlus := FieldByName('PLUS').AsFloat;
auxTotal := (auxCantidad * auxPrecio) + auxMinutos;
auxTotal := auxTotal + (auxTotal * (auxPlus / 100));
if auxCantidad > 0 then
FieldByName('PRECIO').AsFloat := auxTotal / auxCantidad
else
FieldByName('PRECIO').AsFloat := 0;
FieldByName('TOTAL').AsFloat := auxTotal;
end;
end;
procedure TfrFacturaCliente.CalcularTotalFactura;
var
BaseImponible,
ImporteIVA,
ImporteDto,
ImporteTotal : Double;
FDetallesBookmark : string;
begin
BaseImponible := 0;
ImporteTotal := 0;
with TablaDetallesMem do
begin
DisableControls;
FDetallesBookmark := Bookmark;
try
First;
while not EOF do begin
BaseImponible := BaseImponible + FieldByName('TOTAL').AsFloat;
Next;
end;
ImporteDto := BaseImponible * (TablaFacturas.FieldByName('DESCUENTO').AsFloat/100);
ImporteTotal := BaseImponible - ImporteDto;
ImporteIVA := ImporteTotal * (TablaFacturas.FieldByName('IVA').AsFloat/100);
ImporteTotal := ImporteTotal + ImporteIVA;
TablaFacturas.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible;
TablaFacturas.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto;
TablaFacturas.FieldByName('IMPORTEIVA').AsFloat := ImporteIVA;
TablaFacturas.FieldByName('IMPORTETOTAL').AsFloat := ImporteTotal;
finally
Bookmark := FDetallesBookmark;
EnableControls;
end;
end;
end;
function TfrFacturaCliente.CancelarAnadir: Boolean;
begin
Result := False;
try
TablaDetallesMem.Close;
TablaFacturas.CancelUpdates;
RollBack;
TablaFacturas.CachedUpdates := False;
TablaFacturas.Close;
TablaDetallesFacturas.Close;
Result := True;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
end;
function TfrFacturaCliente.CancelarEliminar: Boolean;
begin
Result := False;
try
TablaDetallesMem.Close;
RollBack;
TablaFacturas.Close;
TablaDetallesFacturas.Close;
TablaDetallesMem.Close;
Result := True;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
end;
function TfrFacturaCliente.CancelarModificar: Boolean;
begin
Result := False;
try
TablaDetallesMem.Close;
RollBack;
TablaFacturas.Close;
TablaDetallesFacturas.Close;
Result := True;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
end;
function TfrFacturaCliente.ComprobarDatos: Boolean;
begin
Result := False;
if EsCadenaVacia(FechaAlta.DataBinding.Field.AsString) then
begin
VerMensaje(msgFacCliFaltaFechaAlta);
FechaAlta.SetFocus;
Exit;
end;
if EsCadenaVacia(Vencimiento.DataBinding.Field.AsString) then
begin
VerMensaje(msgFacCliFaltaFecVto);
Vencimiento.SetFocus;
Exit;
end
else begin
if Vencimiento.DataBinding.Field.AsDateTime < FechaAlta.DataBinding.Field.AsDateTime then
begin
VerMensaje(msgFacCliFecVtoMenorFecAlta);
Vencimiento.SetFocus;
Exit;
end
end;
if EsCadenaVacia(Nombre.Field.AsString) then
begin
VerMensaje(msgAlbFaltaNombreCli);
Paginas.ActivePageIndex := 0;
Nombre.SetFocus;
Exit;
end;
if TablaDetallesMem.IsEmpty then
begin
VerMensaje(msgFacCliFaltaArticulos);
Paginas.ActivePage := pagContenido;
gridDetalles.SetFocus;
Exit;
end;
if (ClaseFactura = cfFactAbono) and (Modo <> Eliminar) then
if (ComprobarAbono = False) then
Exit;
if (ClaseFactura <> cfFactAbono) and (Modo = Eliminar) then
if (dmTablaFacturasCliente.ExistenAbonos(EmpresaActiva.Codigo, Codigo.Field.AsString)) then
begin
VerMensaje(msgFacCliFacConAbonos);
Exit;
end;
Result := True;
end;
function TfrFacturaCliente.ComprobarAbono : Boolean;
var
dImporteAbonado : Double;
dImporteCargo : Double;
DatosCargo : TDatosFacturaCliente;
begin
Result := True;
if (ImporteTotal.Field.AsFloat > 0) then
begin
VerMensaje(msgFacCliImpDebeSerNeg);
Result := False;
Exit;
end;
try
DatosCargo := TDatosFacturaCliente.Create;
DatosCargo.Codigo := CodigoFacturaCargo;
DatosCargo.CodigoEmpresa := EmpresaActiva.Codigo;
dmTablaFacturasCliente.DarDatosFactura(DatosCargo);
dImporteCargo := DatosCargo.ImporteTotal;
finally
DatosCargo.Free;
end;
dImporteAbonado := dmTablaFacturasCliente.DarImporteOtrosAbonos(EmpresaActiva.Codigo, CodigoFacturaCargo, Codigo.Field.AsString);
if (Modo = Anadir) then
dImporteAbonado := dImporteAbonado + ImporteTotal.Field.AsFloat;
if (Redondear(dImporteCargo,2) < Redondear(abs(dImporteAbonado), 2)) then
begin
if (dImporteAbonado <> 0) then
VerMensaje(msgFacCliImpAbonadoSuperior)
else
VerMensaje(msgFacCliImpAbonoSuperior);
Result := False;
end;
end;
constructor TfrFacturaCliente.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FCodigoProvincia := NULL;
FCodigoPoblacion := NULL;
FCodigoCliente := NULL;
FCodigoArticulo := NULL;
FClaseFactura := cfFactLibre;
Entidad := entFacturaCliente;
ConfigurarFrame(Self, Self.Entidad);
BaseDatos := dmBaseDatos.BD;
Transaccion := dmBaseDatos.Transaccion;
TablaFacturas := TIBDataSet.Create(Self);
TablaDetallesFacturas := TIBDataSet.Create(Self);
TablaDetallesMem := TRxMemoryData.Create(Self);
dsFactura.DataSet := TablaFacturas;
dsDetallesFacturas.DataSet := TablaDetallesMem;
with TablaFacturas do
begin
Database := BaseDatos;
Transaction := Transaccion;
SelectSQL.Assign(dmTablaFacturasCliente.sqlConsultarFactura);
InsertSQL.Assign(dmTablaFacturasCliente.sqlInsertarFactura);
ModifySQL.Assign(dmTablaFacturasCliente.sqlModificarFactura);
DeleteSQL.Assign(dmTablaFacturasCliente.sqlEliminarFactura);
end;
with TablaDetallesFacturas do
begin
Database := BaseDatos;
Transaction := Transaccion;
SelectSQL.Assign(dmTablaFacturasCliente.sqlConsultarGridDetalles);
InsertSQL.Assign(dmTablaFacturasCliente.sqlInsertarDetalles);
ModifySQL.Assign(dmTablaFacturasCliente.sqlModificarDetalles);
DeleteSQL.Assign(dmTablaFacturasCliente.sqlEliminarDetalles);
end;
TablaDetallesMem.CopyStructure(TablaDetallesFacturas);
TablaDetallesMem.FieldByName('CODIGOEMPRESA').Required := False;
TablaDetallesMem.FieldByName('CODIGOFACTURA').Required := False;
TablaDetallesMem.FieldByName('NUMCONCEPTO').Required := False;
dmTablaFacturasCliente.InicializarGridDetalles(gridDetalles);
Situacion.Items := dmTablaFacturasCliente.DarSituaciones;
FormaPago.Items := dmTablaFormasPago.DarFormasPago;
CuentaBancaria.Items := dmTablaBancos.DarBancos;
Paginas.ActivePage := pagCliente;
end;
destructor TfrFacturaCliente.Destroy;
begin
gridDetalles.DataSource := NIL;
TablaDetallesMem.Close;
TablaDetallesMem.Free;
TablaFacturas.Close;
TablaFacturas.UnPrepare;
TablaFacturas.Free;
TablaDetallesFacturas.Close;
TablaDetallesFacturas.Unprepare;
TablaDetallesFacturas.Free;
inherited;
end;
function TfrFacturaCliente.EliminarDatos: Boolean;
var
FacturaPre,
FacturaAlb : Boolean;
begin
Result := False;
try
if ClaseFactura = cfFactAlb then
begin
if (VerMensajePreguntaFmt(msgFacCliBorrarFacAlb, [CodAlbaran.Field.AsString]) <> mrYes) then
Exit
else
dmTablaAlbaranesCliente.NoFacturarAlbaran(EmpresaActiva.Codigo, CodAlbaran.Field.AsString);
end;
if ClaseFactura = cfFactPre then
begin
if (VerMensajePreguntaFmt(msgFacCliBorrarFacPre, [CodPresupuesto.Field.AsString]) <> mrYes) then
Exit
else
dmTablaPresupuestos.NoFacturarPresupuesto(EmpresaActiva.Codigo, CodPresupuesto.Field.AsString);
end;
{ P236. Cuando se borra una factura de cliente hay que comprobar si es
la <EFBFBD>ltima para decrementar el contador de facturas y no dejar un hueco.}
if dmTablaFacturasCliente.EsUltimaFactura(EmpresaActiva.Codigo, Codigo.Field.AsString) then
dmTablaFacturasCliente.DecrementarCodigo;
TablaFacturas.Delete;
BorrarDetalles;
Commit;
TablaFacturas.Close;
TablaDetallesFacturas.Close;
TablaDetallesMem.Close;
Result := True;
except
on E : EIBError do
begin
case E.IBErrorCode of
isc_lock_conflict : VerMensajeFmt(msgFacCliBloqueado, [Codigo.Field.AsString]);
else
TratarExcepcion(E);
end;
end;
on E : Exception do
TratarExcepcion(E);
end;
end;
procedure TfrFacturaCliente.FreeContenido;
var
Contador : integer;
ListaCodigos : TStringList;
begin
if (ContenidoModal is TRdxFrameFacturasCliente) then begin
CodigoFactura := (ContenidoModal as TRdxFrameFacturasCliente).CodigoFactura;
ActivarModo;
end;
if (ContenidoModal is TRdxFrameArticulos) then
begin
ListaCodigos := (ContenidoModal as TRdxFrameArticulos).ListaArticulos;
for Contador := 0 to ListaCodigos.Count - 1 do
begin
CodigoArticulo := ListaCodigos.Strings[Contador];
bAnadirConClick(Self);
end;
TablaDetallesMem.Delete;
end;
if (ContenidoModal is TfrEditorDescripcion) then
begin
TablaDetallesMem.FieldByName('DESCRIPCION').AsString := (ContenidoModal as TfrEditorDescripcion).Texto;
TablaDetallesMem.Post;
TablaDetallesMem.Edit;
end;
if (ContenidoModal is TRdxFrameClientes) then
FCodigoClienteAux := (ContenidoModal as TRdxFrameClientes).CodigoCliente;
if (ContenidoModal is TRdxFrameProvincias) then
CodigoProvincia := (ContenidoModal as TRdxFrameProvincias).CodigoProvincia;
if (ContenidoModal is TRdxFramePoblaciones) then begin
CodigoProvincia := (ContenidoModal as TRdxFramePoblaciones).CodigoProvincia;
CodigoPoblacion := (ContenidoModal as TRdxFramePoblaciones).CodigoPoblacion;
end;
inherited FreeContenido;
end;
function TfrFacturaCliente.ModificarDatos: Boolean;
begin
Result := False;
try
CalcularTotalFactura;
TablaFacturas.Post;
BorrarDetallesIB;
SalvarDetalles;
Commit;
TablaFacturas.Close;
TablaDetallesFacturas.Close;
TablaDetallesMem.Close;
Result := True;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
end;
procedure TfrFacturaCliente.SetCodigoArticulo(Value: Variant);
var
DatosArticulo : TDatosArticulo;
begin
if VarIsNull(Value) then
exit;
DatosArticulo := TDatosArticulo.Create;
DatosArticulo.Codigo := Value;
try
if dmTablaArticulos.DarDatosArticulo(DatosArticulo) then
begin
with TablaDetallesMem do
begin
Edit;
FieldByName('TIPO').AsString := 'CON';
FieldByName('CODIGOARTICULO').AsString := DatosArticulo.Codigo;
FieldByName('DESCRIPCION').AsString := DatosArticulo.Descripcion;
FieldByName('CANTIDAD').AsString := '1';
FieldByName('UNIDADESMEDIDA').AsString := DatosArticulo.Unidadesmedida;
FieldByName('PRECIOUNIDAD').AsString := DatosArticulo.Precio;
FieldByName('PRECIO').AsString := DatosArticulo.Precio;
FieldByName('TOTAL').AsString := DatosArticulo.Precio;
Post;
end;
FCodigoArticulo := Value;
CalcularTotalFactura;
end
else
raise Exception.CreateFmt(msgArtCodArtNoExiste, [Value]);
finally
DatosArticulo.Free;
end;
end;
procedure TfrFacturaCliente.SetCodigoCliente(Value: Variant);
var
DatosCliente : TDatosCliente;
begin
if VarIsNull(Value) then
exit;
FCodigoCliente := Value;
DatosCliente := TDatosCliente.Create;
try
DatosCliente.Codigo := FCodigoCliente;
dmTablaClientes.darDatosCliente(DatosCliente);
CodCliente.DataBinding.Field.AsString := DatosCliente.Codigo;
NIF.Field.AsString := DatosCliente.Nifcif;
Nombre.Field.AsString := DatosCliente.Nombre;
PersonaContacto.Field.AsString := DatosCliente.PersonaContacto;
Telefono.Field.AsString := DatosCliente.Telefono1;
Fax.Field.AsString := DatosCliente.Fax;
Calle.Field.AsString := DatosCliente.Calle;
Numero.Field.AsString := DatosCliente.Numero;
Piso.Field.AsString := DatosCliente.Piso;
CodigoPostal.Field.AsString := DatosCliente.CodigoPostal;
Poblacion.Field.AsString := DatosCliente.Poblacion;
Provincia.Field.AsString := DatosCliente.Provincia;
IVA.Field.AsString := DatosCliente.IVA;
Descuento.Field.AsString := DatosCliente.Descuento;
CuentaBancaria.Field.AsString := DatosCliente.Banco;
FCodigoProvincia := dmTablaProvincias.darCodigoProvincia(DatosCliente.Provincia);
CalcularTotalFactura;
finally
DatosCliente.Free;
end;
end;
procedure TfrFacturaCliente.SetCodigoPoblacion(Value: Variant);
begin
if (not VarIsNull(FCodigoPoblacion)) and (FCodigoPoblacion = Value) then
exit;
if (not VarIsNull(Value)) then
begin
FCodigoPoblacion := Value;
Poblacion.Field.AsString := dmTablaPoblaciones.darNombrePoblacion(FCodigoProvincia, FCodigoPoblacion);
end;
end;
procedure TfrFacturaCliente.SetCodigoProvincia(Value: Variant);
begin
if (not VarIsNull(FCodigoProvincia)) and (FCodigoProvincia = Value) then
exit;
if (not VarIsNull(Value)) then
begin
FCodigoProvincia := Value;
Provincia.Field.AsString := dmTablaProvincias.darNombreProvincia(FCodigoProvincia);
end;
end;
procedure TfrFacturaCliente.VerModal;
begin
if (ContenidoModal is TRdxFramePoblaciones) then
(ContenidoModal as TRdxFramePoblaciones).CodigoProvincia := CodigoProvincia;
if (ContenidoModal is TRdxFrameArticulos) then
(ContenidoModal as TRdxFrameArticulos).CodigoArticulo := CodigoArticulo;
if (ContenidoModal is TfrEditorDescripcion) then
(ContenidoModal as TfrEditorDescripcion).Texto := TablaDetallesMem.FieldByName('DESCRIPCION').AsString;
inherited;
end;
procedure TfrFacturaCliente.CantidadDetalleSetText(Sender: TField;
const Text: String);
begin
if EsCadenaVacia(Text) then
Sender.AsString := '1'
else
Sender.AsString := Text;
CalcularTotalDetalle;
CalcularTotalFactura;
end;
procedure TfrFacturaCliente.CodigoArticuloDetalleSetText(Sender: TField;
const Text: String);
var
Codigo : String;
begin
if (EsCadenaVacia(Text)) then
begin
Sender.AsString := '';
exit;
end;
Codigo := Trim(Text);
if (dmTablaArticulos.validarCodigo(Codigo)) then
Codigo := dmTablaArticulos.formatearCodigo(Codigo)
else
raise Exception.CreateFmt(msgArtCodArtIncorrecto, [Codigo]);
Sender.AsString := Codigo;
CodigoArticulo := Codigo;
end;
procedure TfrFacturaCliente.GridBotonCodigoArticuloClick(Sender: TObject);
begin
TablaDetallesMem.Edit;
ContenidoModal := TfrArticulos.Create(Self);
end;
procedure TfrFacturaCliente.MinutosDetalleSetText(Sender: TField;
const Text: String);
begin
if EsCadenaVacia(Text) then
Sender.AsString := '0'
else
Sender.AsString := Text;
CalcularTotalDetalle;
CalcularTotalFactura;
end;
procedure TfrFacturaCliente.PlusDetalleSetText(Sender: TField;
const Text: String);
begin
if EsCadenaVacia(Text) then
Sender.AsString := '0'
else begin
ValidarDto(Text);
Sender.AsString := Text;
end;
CalcularTotalDetalle;
CalcularTotalFactura;
end;
procedure TfrFacturaCliente.PrecioDetalleSetText(Sender: TField;
const Text: String);
begin
if EsCadenaVacia(Text) then
Sender.AsString := '0'
else
Sender.AsString := Text;
CalcularTotalDetalle;
CalcularTotalFactura;
end;
procedure TfrFacturaCliente.PrecioMinutoDetalleSetText(Sender: TField;
const Text: String);
begin
if EsCadenaVacia(Text) then
Sender.AsString := '0'
else
Sender.AsString := Text;
CalcularTotalDetalle;
CalcularTotalFactura;
end;
procedure TfrFacturaCliente.CodigoButtonClick(Sender: TObject);
begin
if (TratarCambios = IDCANCEL) then
Exit;
{ Esto es porque en modo 'Modificar' hacemos un cambio y pulsamos
este bot<EFBFBD>n se cierra la tabla y si en el frame hijo (el del grid) damos
a cancelar, FCodigoFactura es NULL y da error al activar modo porque
no se inicializa los par<EFBFBD>metros de la sql. Lo hace BuscarFactura. }
if not TablaFacturas.Active then
BuscarFactura;
ContenidoModal := TfrFacturasClientes.Create(Self);
end;
procedure TfrFacturaCliente.CodigoExit(Sender: TObject);
begin
if (Modo <> Anadir) or (Visible = false) then
Exit;
if EsCadenaVacia(Codigo.Text) then
Codigo.Field.AsString := dmTablaFacturasCliente.darNuevoCodigo;
if (dmTablaFacturasCliente.validarCodigo(Codigo.Text)) then
begin
Codigo.Field.asString := dmTablaFacturasCliente.FormatearCodigo(Codigo.Text);
if (dmTablaFacturasCliente.existeCodigo(EmpresaActiva.Codigo, Codigo.Text)) then begin
VerMensajeFmt(msgFacCliCodFacRepetido, [Codigo.Text]);
Codigo.SetFocus;
end;
end
else begin
VerMensajeFmt(msgFacCliCodFacIncorrecto, [Codigo.Text]);
Codigo.SetFocus;
end;
end;
procedure TfrFacturaCliente.ProvinciaButtonClick(Sender: TObject);
begin
CaptionModal := 'Lista de provincias';
WidthModal := 280;
HeightModal := 460;
ContenidoModal := TfrProvincias.Create(Self);
end;
procedure TfrFacturaCliente.PoblacionButtonClick(Sender: TObject);
begin
if (VarIsNull(CodigoProvincia)) then begin
VerMensaje(msgSinProvincia);
Paginas.ActivePageIndex := 0;
Provincia.SetFocus;
Exit;
end;
CaptionModal := Format(msgListaPoblaciones, [dmTablaProvincias.darNombreProvincia(CodigoProvincia)]);
WidthModal := 280;
HeightModal := 460;
ContenidoModal := TfrPoblaciones.Create(Self);
end;
procedure TfrFacturaCliente.SetCodigoPresupuesto(Value: String);
var
CodPre : String;
DatosPre : TDatosPresupuesto;
begin
if EsCadenaVacia(Value) then
Exit;
CodPre := Trim(Value);
if FCodigoPresupuesto = CodPre then
Exit;
if not dmTablaPresupuestos.ValidarCodigo(CodPre) then
begin
VerMensajeFmt(msgPreCodPreIncorrecto, [CodPre]);
CodPresupuesto.SetFocus;
Exit;
end;
CodPre := dmTablaPresupuestos.FormatearCodigo(CodPre);
if not (dmTablaPresupuestos.ExisteCodigo(EmpresaActiva.Codigo, CodPre)) then
begin
VerMensajeFmt(msgPreNoExistePre, [CodPre]);
CodPresupuesto.SetFocus;
Exit;
end;
if dmTablaPresupuestos.DarSituacionPresupuesto(EmpresaActiva.Codigo, CodPre) <> CTE_ACEPTADO then
begin
VerMensajeFmt(msgPreNoSePuedeFacturar, [CodPre]);
CodPresupuesto.SetFocus;
Exit;
end;
ClaseFactura := cfFactPre;
FCodigoPresupuesto := CodPre;
CodPresupuesto.Field.AsString := CodPre;
DatosPre := TDatosPresupuesto.Create;
DatosPre.Codigo := CodPre;
DatosPre.CodigoEmpresa := EmpresaActiva.Codigo;
try
if dmTablaPresupuestos.DarDatosPresupuesto(DatosPre) then
begin
with TablaFacturas do
begin
if not EsCadenaVacia(DatosPre.CodigoFactura) then
begin
VerMensajeFmt(msgPreYaFacturado, [FCodigoPresupuesto]);
CodPresupuesto.SelectAll;
CodPresupuesto.SetFocus;
Exit;
end;
{ Saco el IVA y el descuento que tiene el cliente si estuviera
dado de alta }
if not EsCadenaVacia(DatosPre.CodigoCliente) then
CodigoCliente := DatosPre.CodigoCliente;
FieldByName('CODIGOCLIENTE').AsString := DatosPre.CodigoCliente;
FieldByName('NIFCIF').AsString := DatosPre.NIFCIF;
FieldByName('NOMBRE').AsString := DatosPre.Nombre;
FieldByName('CALLE').AsString := DatosPre.Calle;
FieldByName('NUMERO').AsString := DatosPre.Numero;
FieldByName('PISO').AsString := DatosPre.Piso;
FieldByName('CODIGOPOSTAL').AsString := DatosPre.CodigoPostal;
FieldByName('POBLACION').AsString := DatosPre.Poblacion;
FieldByName('PROVINCIA').AsString := DatosPre.Provincia;
FieldByName('PERSONACONTACTO').AsString := DatosPre.PersonaContacto;
FieldByName('TELEFONO').AsString := DatosPre.Telefono;
FieldByName('FAX').AsString := DatosPre.Fax;
FieldByName('DESCRIPCION').AsString := DatosPre.Descripcion;
end;
if VerMensajePreguntaFmt(msgFacCliCopiarConPre, [FCodigoPresupuesto]) = mrYES then
CopiarConceptosPresupuesto(DatosPre)
else
InsertarReferenciaAPresupuesto(DatosPre);
CalcularTotalFactura;
end
else
raise Exception.CreateFmt(msgPreNoExistePre, [CodPre]);
finally
DatosPre.Free;
end;
end;
procedure TfrFacturaCliente.rbPresupuestoClick(Sender: TObject);
begin
ActivarPresupuesto;
CodPresupuesto.SetFocus;
end;
procedure TfrFacturaCliente.rbFacturaLibreClick(Sender: TObject);
begin
ActivarFacturaLibre;
end;
procedure TfrFacturaCliente.rbAlbaranClick(Sender: TObject);
begin
ActivarAlbaran;
CodAlbaran.SetFocus;
end;
procedure TfrFacturaCliente.ActivarAlbaran;
begin
pnlAlbaran.Left := 273;
pnlAlbaran.Top := 48;
pnlAlbaran.Visible := True;
end;
procedure TfrFacturaCliente.ActivarFacturaLibre;
begin
//
end;
procedure TfrFacturaCliente.ActivarPresupuesto;
begin
pnlPresupuesto.Left := 273;
pnlPresupuesto.Top := 48;
pnlPresupuesto.Visible := True;
end;
procedure TfrFacturaCliente.CopiarConceptosAlbaran;
var
oSQL : TIBSQL;
begin
oSQL := TIBSQL.Create(Self);
with oSQL do
begin
Database := dmBaseDatos.BD;
Transaction := dmBaseDatos.Transaccion;
SQL.Add('select * ');
SQL.Add('from DETALLESALBARANESCLIENTE ');
SQL.Add('where CODIGOALBARAN = :CODIGOALBARAN and ');
SQL.Add('CODIGOEMPRESA = :CODIGOEMPRESA ');
SQL.Add('order by NUMCONCEPTO');
end;
try
with TablaDetallesMem do
begin
oSQL.ParamByName('CODIGOALBARAN').AsString := CodigoAlbaran;
oSQL.ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
oSQL.Prepare;
oSQL.ExecQuery;
DisableControls;
while not oSQL.EOF do
begin
Append;
FieldByName('CODIGOFACTURA').AsString := Codigo.Field.AsString;
FieldByName('NUMCONCEPTO').AsInteger := oSQL.FieldByName('NUMCONCEPTO').AsInteger;
FieldByName('TIPO').AsString := 'CON';
FieldByName('CODIGOARTICULO').AsString := oSQL.FieldByName('CODIGOARTICULO').AsString;
FieldByName('DESCRIPCION').AsString := oSQL.FieldByName('DESCRIPCION').AsString;
FieldByName('CANTIDAD').AsString := oSQL.FieldByName('CANTIDAD').AsString;
FieldByName('UNIDADESMEDIDA').AsString := oSQL.FieldByName('UNIDADESMEDIDA').AsString;
FieldByName('PRECIOUNIDAD').AsString := oSQL.FieldByName('PRECIOUNIDAD').AsString;
FieldByName('PRECIO').AsString := oSQL.FieldByName('PRECIOUNIDAD').AsString;
FieldByName('TOTAL').AsString := oSQL.FieldByName('TOTAL').AsString;
Post;
oSQL.Next;
end;
First;
EnableControls;
end;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
oSQL.Close;
oSQL.Transaction := NIL;
oSQL.Free;
end;
procedure TfrFacturaCliente.CopiarConceptosPresupuesto(DatosPre: TDatosPresupuesto);
var
oSQL : TIBSQL;
begin
oSQL := TIBSQL.Create(Self);
with oSQL do
begin
Database := dmBaseDatos.BD;
Transaction := dmBaseDatos.Transaccion;
SQL.Add('select * ');
SQL.Add('from DETALLESPRESUPUESTOSCLIENTE ');
SQL.Add('where CODIGOPRESUPUESTO = :CODIGOPRESUPUESTO ');
SQL.Add('and CODIGOEMPRESA = :CODIGOEMPRESA ');
SQL.Add('order by NUMCONCEPTO');
end;
try
with TablaDetallesMem do
begin
oSQL.ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
oSQL.ParamByName('CODIGOPRESUPUESTO').AsString := CodigoPresupuesto;
oSQL.Prepare;
oSQL.ExecQuery;
DisableControls;
while not oSQL.EOF do
begin
Append;
FieldByName('CODIGOFACTURA').AsString := Codigo.Field.AsString;
FieldByName('NUMCONCEPTO').AsInteger := oSQL.FieldByName('NUMCONCEPTO').AsInteger;
if (oSQL.FieldByName('TIPO').AsString = 'OPC') then
FieldByName('TIPO').AsString := 'TIT'
else
FieldByName('TIPO').AsString := oSQL.FieldByName('TIPO').AsString;
FieldByName('CODIGOARTICULO').AsString := oSQL.FieldByName('CODIGOARTICULO').AsString;
FieldByName('DESCRIPCION').AsString := oSQL.FieldByName('DESCRIPCION').AsString;
FieldByName('CANTIDAD').AsString := oSQL.FieldByName('CANTIDAD').AsString;
FieldByName('UNIDADESMEDIDA').AsString := oSQL.FieldByName('UNIDADESMEDIDA').AsString;
FieldByName('PRECIOUNIDAD').AsString := oSQL.FieldByName('PRECIOUNIDAD').AsString;
FieldByName('PRECIO').AsString := oSQL.FieldByName('PRECIO').AsString;
FieldByName('MINUTOS').AsString := oSQL.FieldByName('MINUTOS').AsString;
FieldByName('PRECIOMINUTO').AsString := oSQL.FieldByName('PRECIOMINUTO').AsString;
FieldByName('PLUS').AsString := oSQL.FieldByName('PLUS').AsString;
FieldByName('TOTAL').AsString := oSQL.FieldByName('TOTAL').AsString;
Post;
oSQL.Next;
end;
//En el caso de tener bonificaci<63>n a<>adimos un concepto m<>s a la factura
if not VarIsNull(DatosPre.DesBonificacion) then
begin
Append;
FieldByName('CODIGOFACTURA').AsString := Codigo.Field.AsString;
FieldByName('NUMCONCEPTO').AsInteger := (oSQL.RecordCount + 1);
FieldByName('TIPO').AsString := 'CON';
FieldByName('DESCRIPCION').AsString := DatosPre.DesBonificacion;
FieldByName('CANTIDAD').AsInteger := 1;
FieldByName('PRECIOUNIDAD').AsFloat := (-1)* DatosPre.ImpBonificacion;
FieldByName('PRECIO').AsFloat := (-1)* DatosPre.ImpBonificacion;
FieldByName('TOTAL').AsFloat := (-1)* DatosPre.ImpBonificacion;
Post;
end;
First;
EnableControls;
end;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
oSQL.Close;
oSQL.Transaction := NIL;
oSQL.Free;
end;
procedure TfrFacturaCliente.bAnadirConClick(Sender: TObject);
begin
try
with TablaDetallesMem do
begin
DisableControls;
Next;
if EOF then
Append
else
Insert;
FieldByName('TIPO').AsString := 'CON';
EnableControls;
end;
Paginas.ActivePage := pagContenido;
gridDetalles.SetFocus;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
end;
procedure TfrFacturaCliente.bAnadirCapClick(Sender: TObject);
begin
try
with TablaDetallesMem do
begin
DisableControls;
Next;
if EOF then
Append
else
Insert;
FieldByName('TIPO').AsString := 'TIT';
FieldByName('DESCRIPCION').AsString := 'Nombre del cap<61>tulo';
Post;
EnableControls;
end;
Paginas.ActivePage := pagContenido;
gridDetalles.SetFocus;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
end;
procedure TfrFacturaCliente.bEliminarClick(Sender: TObject);
begin
if (VerMensajePregunta(msgDeseaBorrar) <> IDYES) then
Exit;
if TablaDetallesMem.RecordCount = 0 then begin
{ Hacemos un cancel de la tabla por si el registro actual estuviera
recien creado }
TablaDetallesMem.Cancel;
Exit
end;
try
TablaDetallesMem.Delete;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
CalcularTotalFactura;
end;
procedure TfrFacturaCliente.bEliminarTodoClick(Sender: TObject);
begin
if (VerMensajePregunta(msgDeseaBorrarTodo) <> IDYES) then
Exit;
BorrarDetalles;
CalcularTotalFactura;
end;
procedure TfrFacturaCliente.DtoSetText(Sender: TField; const Text: String);
begin
if EsCadenaVacia(Text) then
Sender.AsString := '0'
else begin
ValidarDto(Text);
Sender.AsString := Text;
end;
CalcularTotalFactura;
end;
procedure TfrFacturaCliente.IVASetText(Sender: TField; const Text: String);
begin
if EsCadenaVacia(Text) then
Sender.AsString := '0'
else begin
ValidarIVA(Text);
Sender.AsString := Text;
end;
CalcularTotalFactura;
end;
procedure TfrFacturaCliente.InsertarReferenciaAPresupuesto (DatosPre : TDatosPresupuesto);
var
FechaAux : String;
begin
FechaAux := FormatDateTime('d "de" mmmm "de" yyyy', StrToDate(DatosPre.FechaAlta));
TablaFacturas.FieldByName('DESCRIPCION').AsString := Format(msgFacCliDesFacPre, [DatosPre.Codigo, FechaAux]);
// A<>adir un concepto con el importe del presupuesto
try
with TablaDetallesMem do
begin
DisableControls;
Append;
FieldByName('CODIGOFACTURA').AsString := Codigo.Field.AsString;
FieldByName('NUMCONCEPTO').AsInteger := 0;
FieldByName('TIPO').AsString := 'CON';
FieldByName('DESCRIPCION').AsString := 'Presupuesto ' + DatosPre.Codigo;
FieldByName('CANTIDAD').AsString := '1';
FieldByName('PRECIOUNIDAD').AsString := DatosPre.ImporteTotal;
FieldByName('PRECIO').AsString := DatosPre.ImporteTotal;
FieldByName('TOTAL').AsString := DatosPre.ImporteTotal;
Post;
EnableControls;
end;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
end;
procedure TfrFacturaCliente.SetCodigoAlbaran(Value: String);
var
CodAlb : String;
DatosAlb : TDatosAlbaranCliente;
begin
if EsCadenaVacia(Value) then
exit;
CodAlb := Trim(Value);
if FCodigoAlbaran = CodAlb then
Exit;
if not dmTablaAlbaranesCliente.ValidarCodigo(CodAlb) then
begin
VerMensajeFmt(msgAlbCodAlbIncorrecto, [CodAlb]);
CodAlbaran.SetFocus;
Exit;
end;
CodAlb := dmTablaAlbaranesCliente.FormatearCodigo(CodAlb);
if not (dmTablaAlbaranesCliente.ExisteCodigo(EmpresaActiva.Codigo, CodAlb)) then
begin
VerMensajeFmt(msgAlbNoExisteAlb, [CodAlb]);
CodAlbaran.SetFocus;
Exit;
end;
ClaseFactura := cfFactAlb;
FCodigoAlbaran := CodAlb;
CodAlbaran.Field.AsString := CodAlb;
DatosAlb := TDatosAlbaranCliente.Create;
DatosAlb.Codigo := CodAlb;
DatosAlb.CodigoEmpresa := EmpresaActiva.Codigo;
try
if dmTablaAlbaranesCliente.DarDatosAlbaran(DatosAlb) then
begin
with TablaFacturas do
begin
if not EsCadenaVacia(DatosAlb.CodigoFactura) then
begin
VerMensajeFmt(msgAlbYaFacturado, [FCodigoAlbaran]);
CodAlbaran.SelectAll;
CodAlbaran.SetFocus;
Exit;
end;
{ Saco el IVA y el descuento que tiene el cliente si estuviera
dado de alta }
if not EsCadenaVacia(DatosAlb.CodigoCliente) then
CodigoCliente := DatosAlb.CodigoCliente;
FieldByName('CODIGOCLIENTE').AsString := DatosAlb.CodigoCliente;
FieldByName('NIFCIF').AsString := DatosAlb.NIFCIF;
FieldByName('NOMBRE').AsString := DatosAlb.Nombre;
FieldByName('CALLE').AsString := DatosAlb.Calle;
FieldByName('NUMERO').AsString := DatosAlb.Numero;
FieldByName('PISO').AsString := DatosAlb.Piso;
FieldByName('CODIGOPOSTAL').AsString := DatosAlb.CodigoPostal;
FieldByName('POBLACION').AsString := DatosAlb.Poblacion;
FieldByName('PROVINCIA').AsString := DatosAlb.Provincia;
FieldByName('PERSONACONTACTO').AsString := DatosAlb.PersonaContacto;
FieldByName('TELEFONO').AsString := DatosAlb.Telefono;
FieldByName('FAX').AsString := DatosAlb.Fax;
FieldByName('DESCRIPCION').AsString := DatosAlb.Descripcion;
end;
CopiarConceptosAlbaran;
CalcularTotalFactura;
end
else
raise Exception.CreateFmt(msgAlbNoExisteAlb, [CodAlb]);
finally
DatosAlb.Free;
end;
end;
procedure TfrFacturaCliente.BorrarDetalles;
begin
with TablaDetallesMem do
begin
DisableControls;
EmptyTable;
EnableControls;
end;
end;
procedure TfrFacturaCliente.BorrarDetallesIB;
begin
with TablaDetallesFacturas do
begin
if IsEmpty then
Exit;
DisableControls;
Last;
while not BOF do
begin
Delete;
Prior;
end;
if not IsEmpty then
Delete;
EnableControls;
end;
end;
procedure TfrFacturaCliente.CargarDetalles;
var
NumeroCampo : Integer;
begin
with TablaDetallesMem do
begin
if TablaDetallesFacturas.IsEmpty then
Exit;
DisableControls;
TablaDetallesFacturas.First;
while not TablaDetallesFacturas.EOF do
begin
Append;
for NumeroCampo := 0 to TablaDetallesFacturas.FieldCount-1 do
Fields[NumeroCampo].AsString := TablaDetallesFacturas.Fields[NumeroCampo].AsString;
Post;
TablaDetallesFacturas.Next;
end;
EnableControls;
end;
end;
procedure TfrFacturaCliente.SalvarDetalles;
var
NumeroCampo : Integer;
NumConcepto : Integer;
begin
try
with TablaDetallesMem do
begin
if IsEmpty then
Exit;
NumConcepto := 0;
DisableControls;
First;
while not EOF do
begin
TablaDetallesFacturas.Append;
for NumeroCampo := 0 to FieldCount-1 do
begin
if Fields[NumeroCampo].FieldName = 'CODIGOEMPRESA' then
TablaDetallesFacturas.Fields[NumeroCampo].AsInteger := EmpresaActiva.Codigo
else begin
if Fields[NumeroCampo].FieldName = 'CODIGOFACTURA' then
TablaDetallesFacturas.Fields[NumeroCampo].AsString := Codigo.Field.asString
else
if Fields[NumeroCampo].FieldName = 'NUMCONCEPTO' then
TablaDetallesFacturas.Fields[NumeroCampo].AsInteger := NumConcepto
else
if (Fields[NumeroCampo].FieldName = 'TIPO') and EsCadenaVacia(Fields[NumeroCampo].AsString) then
TablaDetallesFacturas.Fields[NumeroCampo].AsString := 'CON'
else
TablaDetallesFacturas.Fields[NumeroCampo].AsString := Fields[NumeroCampo].AsString;
end;
end;
TablaDetallesFacturas.Post;
Next;
NumConcepto := NumConcepto + 1;
end;
EnableControls;
end
except
on E : EIBError do begin
if E.IBErrorCode = isc_unique_key_violation then
begin
TablaDetallesFacturas.Delete;
TablaDetallesMem.EnableControls;
end;
raise EIBError.Create(E.SQLCode, E.IBErrorCode, E.Message);
end;
end;
end;
procedure TfrFacturaCliente.DetalleAfterDelete(DataSet: TDataSet);
begin
CalcularTotalFactura;
end;
procedure TfrFacturaCliente.SetCodigoClienteFinal(Value: Variant);
var
DatosCliente : TDatosCliente;
begin
if VarIsNull(Value) then
exit;
FCodigoClienteFinal := Value;
DatosCliente := TDatosCliente.Create;
try
DatosCliente.Codigo := FCodigoClienteFinal;
dmTablaClientes.DarDatosCliente(DatosCliente);
CodClienteFinal.DataBinding.Field.AsString := DatosCliente.Codigo;
NombreClienteFinal.Field.AsString := DatosCliente.Nombre;
finally
DatosCliente.Free;
end;
end;
procedure TfrFacturaCliente.gridDetallesCustomDrawCell(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
var AText: String; var AColor: TColor; AFont: TFont;
var AAlignment: TAlignment; var ADone: Boolean);
var
IndiceCol : Integer;
begin
IndiceCol := (Sender as TdxDBGrid).ColumnByFieldName('TIPO').Index;
if ANode.Strings[IndiceCol] = 'TIT' then
begin
AFont.Style := AFont.Style + [fsBold];
if (not ASelected) and (not Focused) then
AColor := rdxLightGreen;
end;
{ if TablaDetallesMem.FieldByName('TIPO').AsString <> 'TIT' then
begin
gridDetalles.DefaultDrawColumnCell(ARect, DataCol, Column, AState);
Exit;
end;}
{ El concepto es el t<>tulo de un cap<61>tulo }
{ gridDetalles.Canvas.Font.Style := [fsBold];
if not (gdSelected in AState) then
gridDetalles.Canvas.Brush.Color := gridDetalles.FixedColor;
if Column.FieldName = 'DESCRIPCION' then
gridDetalles.DefaultDrawColumnCell(ARect, DataCol, Column, AState)
else
gridDetalles.Canvas.FillRect(ARect);}
end;
procedure TfrFacturaCliente.gridDetallesEditing(Sender: TObject;
Node: TdxTreeListNode; var Allow: Boolean);
var
IndiceCol : Integer;
begin
IndiceCol := (Sender as TdxDBGrid).ColumnByFieldName('TIPO').Index;
if (Node.Strings[IndiceCol] = 'TIT') and
(gridDetalles.FocusedField.FieldName <> 'DESCRIPCION')
then
Allow := False;
end;
procedure TfrFacturaCliente.SetCodigoFacturaCargo(Value: String);
var
CodCargo : String;
DatosCargo : TDatosFacturaCliente;
begin
if EsCadenaVacia(Value) then
Exit;
CodCargo := Trim(Value);
if FCodigoFacturaCargo = CodCargo then
Exit;
if not dmTablaFacturasCliente.ValidarCodigo(CodCargo) then
begin
VerMensajeFmt(msgFacCliCodFacCargoIncorrecto, [CodCargo]);
Exit;
end;
CodCargo := dmTablaFacturasCliente.FormatearCodigo(CodCargo);
if not (dmTablaFacturasCliente.ExisteCodigo(EmpresaActiva.Codigo, CodCargo)) then
begin
VerMensajeFmt(msgFacCliCodFacCargoNoExiste, [CodCargo]);
Exit;
end;
if (dmTablaFacturasCliente.DarClaseFactura(EmpresaActiva.Codigo, CodCargo) <> 'C') then
begin
VerMensajeFmt(msgFacCliClaseFacDistinta, [CodCargo]);
Exit;
end;
ClaseFactura := cfFactAbono;
FCodigoFacturaCargo := CodCargo;
CodFacturaCargo.Field.AsString := CodCargo;
DatosCargo := TDatosFacturaCliente.Create;
DatosCargo.Codigo := CodCargo;
DatosCargo.CodigoEmpresa := EmpresaActiva.Codigo;
try
if dmTablaFacturasCliente.DarDatosFactura(DatosCargo) then
begin
with TablaFacturas do
begin
FieldByName('FORMAPAGO').AsString := DatosCargo.FormaPago;
FieldByName('DESCRIPCION').AsString := DatosCargo.Descripcion;
FieldByName('CODIGOCLIENTE').AsString := DatosCargo.CodigoCliente;
FieldByName('NIFCIF').AsString := DatosCargo.NifCif;
FieldByName('NOMBRE').AsString := DatosCargo.Nombre;
FieldByName('CALLE').AsString := DatosCargo.Calle;
FieldByName('NUMERO').AsString := DatosCargo.Numero;
FieldByName('PISO').AsString := DatosCargo.Piso;
FieldByName('CODIGOPOSTAL').AsString := DatosCargo.CodigoPostal;
FieldByName('POBLACION').AsString := DatosCargo.Poblacion;
FieldByName('PROVINCIA').AsString := DatosCargo.Provincia;
FieldByName('PERSONACONTACTO').AsString := DatosCargo.PersonaContacto;
FieldByName('TELEFONO').AsString := DatosCargo.Telefono;
FieldByName('FAX').AsString := DatosCargo.Fax;
FieldByName('DESCUENTO').AsInteger := DatosCargo.Descuento;
FieldByName('IVA').AsInteger := DatosCargo.Iva;
FieldByName('BANCO').AsString := DatosCargo.Banco;
FieldByName('NOTAS').AsString := DatosCargo.Notas;
FieldByName('CODIGOCLIENTEFINAL').AsString := DatosCargo.CodigoClienteFinal;
FieldByName('NOMBRECLIENTEFINAL').AsString := DatosCargo.NombreClienteFinal;
TablaFacturas.FieldByName('CLASEFACTURA').AsString := 'A';
FieldByName('CODIGOCARGO').AsString := FCodigoFacturaCargo;
end;
CopiarConceptosFacturaCargo;
CalcularTotalFactura;
end
else
raise Exception.CreateFmt(msgFacCliCodFacCargoNoExiste, [CodCargo]);
finally
DatosCargo.Free;
end;
end;
procedure TfrFacturaCliente.SetClaseFactura(Value: TClaseFactura);
begin
if (FClaseFactura = Value) then
exit;
FClaseFactura := Value;
case FClaseFactura of
cfFactLibre : ActivarFacturaLibre;
cfFactPre : ActivarPresupuesto;
cfFactAlb : ActivarAlbaran;
cfFactAbono : ActivarAbono;
else ActivarFacturaLibre;
end;
end;
procedure TfrFacturaCliente.ActivarAbono;
begin
pnlAbono.Left := 273;
pnlAbono.Top := 48;
pnlAbono.Visible := True;
end;
procedure TfrFacturaCliente.CopiarConceptosFacturaCargo;
var
oSQL : TIBSQL;
begin
oSQL := TIBSQL.Create(Self);
with oSQL do
begin
Database := dmBaseDatos.BD;
Transaction := dmBaseDatos.Transaccion;
SQL.Add('select * ');
SQL.Add('from DETALLESFACTURASCLIENTE ');
SQL.Add('where CODIGOFACTURA = :CODIGOFACTURA ');
SQL.Add('and CODIGOEMPRESA = :CODIGOEMPRESA ');
SQL.Add('order by NUMCONCEPTO');
end;
try
with TablaDetallesMem do
begin
oSQL.ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
oSQL.ParamByName('CODIGOFACTURA').AsString := CodigoFacturaCargo;
oSQL.Prepare;
oSQL.ExecQuery;
DisableControls;
while not oSQL.EOF do
begin
Append;
FieldByName('CODIGOFACTURA').AsString := Codigo.Field.AsString;
FieldByName('NUMCONCEPTO').AsInteger := oSQL.FieldByName('NUMCONCEPTO').AsInteger;
FieldByName('TIPO').AsString := oSQL.FieldByName('TIPO').AsString;
FieldByName('CODIGOARTICULO').AsString := oSQL.FieldByName('CODIGOARTICULO').AsString;
FieldByName('DESCRIPCION').AsString := oSQL.FieldByName('DESCRIPCION').AsString;
FieldByName('UNIDADESMEDIDA').AsString := oSQL.FieldByName('UNIDADESMEDIDA').AsString;
FieldByName('CANTIDAD').AsString := oSQL.FieldByName('CANTIDAD').AsString;
FieldByName('PRECIOUNIDAD').AsFloat := (-1) * oSQL.FieldByName('PRECIOUNIDAD').AsFloat;
FieldByName('PRECIO').AsString := oSQL.FieldByName('PRECIO').AsString;
FieldByName('MINUTOS').AsString := oSQL.FieldByName('MINUTOS').AsString;
FieldByName('PRECIOMINUTO').AsFloat := (-1) * oSQL.FieldByName('PRECIOMINUTO').AsFloat;
FieldByName('PLUS').AsString := oSQL.FieldByName('PLUS').AsString;
FieldByName('TOTAL').AsString := oSQL.FieldByName('TOTAL').AsString;
CalcularTotalDetalle;
Post;
oSQL.Next;
end;
First;
EnableControls;
end;
except
on E : EIBError do
TratarExcepcion(E);
on E : Exception do
TratarExcepcion(E);
end;
oSQL.Close;
oSQL.Transaction := NIL;
oSQL.Free;
end;
procedure TfrFacturaCliente.GridBotonDescripcionClick(Sender: TObject);
begin
TablaDetallesMem.Edit;
WidthModal := 420;
HeightModal := 435;
ModoModal := Modo;
ContenidoModal := TfrEditorDescripcion.Create(Self);
end;
procedure TfrFacturaCliente.ProvinciaSetText(Sender: TField;
const Text: String);
begin
FCodigoProvincia := dmTablaProvincias.darCodigoProvincia(Text);
Sender.AsString := Text;
end;
procedure TfrFacturaCliente.CodClientePropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
ContenidoModal := TfrClientes.Create(Self);
CodigoCliente := FCodigoClienteAux;
end;
procedure TfrFacturaCliente.CodClientePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
begin
if not (Modo in [Anadir, Modificar]) then
Exit;
if EsCadenaVacia(DisplayValue) then
exit;
if (dmTablaClientes.validarCodigo(DisplayValue)) then begin
//Comprueba que le numero es lo sufucientemente peque<75>o para ser un entero
if not EsSmallInt(DisplayValue) then
begin
VerMensajeFmt(msgCliCodCliIncorrecto,[DisplayValue]);
DisplayValue := '0';
Codigo.SetFocus;
end
else
begin
DisplayValue := dmTablaClientes.formatearCodigo(DisplayValue);
if (dmTablaClientes.existeCodigo(DisplayValue)) then
CodigoCliente := DisplayValue
else begin
VerMensajeFmt(msgCliCodCliNoExiste, [DisplayValue]);
Paginas.ActivePageIndex := 0;
CodCliente.SetFocus;
end;
end;
end
else begin
VerMensajeFmt(msgCliCodCliIncorrecto, [CodCliente.Text]);
Paginas.ActivePageIndex := 0;
CodCliente.SetFocus;
end;
end;
procedure TfrFacturaCliente.CodClienteFinalPropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
ContenidoModal := TfrClientes.Create(Self);
CodigoClienteFinal := FCodigoClienteAux;
end;
procedure TfrFacturaCliente.CodClienteFinalPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
if not (Modo in [Anadir, Modificar]) then
Exit;
if EsCadenaVacia(DisplayValue) then
Exit;
if (dmTablaClientes.validarCodigo(DisplayValue)) then begin
//Comprueba que le numero es lo sufucientemente peque<75>o para ser un entero
if not EsSmallInt(DisplayValue) then
begin
VerMensajeFmt(msgCliCodCliIncorrecto,[DisplayValue]);
DisplayValue := '0';
Codigo.SetFocus;
end
else
begin
DisplayValue := dmTablaClientes.FormatearCodigo(DisplayValue);
if (dmTablaClientes.ExisteCodigo(DisplayValue)) then
CodigoClienteFinal := DisplayValue
else
begin
VerMensajeFmt(msgCliCodCliNoExiste, [DisplayValue]);
Paginas.ActivePage := pagCliente;
CodClienteFinal.SetFocus;
end;
end;
end
else begin
VerMensajeFmt(msgCliCodCliIncorrecto, [CodClienteFinal.Text]);
Paginas.ActivePage := pagCliente;
CodClienteFinal.SetFocus;
end;
end;
end.
Reference in New Issue Copy Permalink