Uecko/AbetoArmarios_FactuGES
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se adapta para soportar recargo de equivalencia en presupuestos, contratos y facturas.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@46 0a814768-cfdd-9c42-8d01-223fcc10da9d
This commit is contained in:
roberto 2010-04-13 10:07:15 +00:00
parent 80b4b87dcd
commit 768a83ca2e
40 changed files with 1203 additions and 630 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
BaseDatos/TablaContratos.dfm
View File

@ -1,7 +1,6 @@
object dmTablaContratos: TdmTablaContratos object dmTablaContratos: TdmTablaContratos
OldCreateOrder = True OldCreateOrder = True
Left = 215 Top = 526
Top = 538
Height = 200 Height = 200
Width = 741 Width = 640
end end

25
BaseDatos/TablaContratos.pas
View File

@ -80,6 +80,8 @@ type
ImporteDescuento : double; ImporteDescuento : double;
IVA : Integer; IVA : Integer;
ImporteIVA : double; ImporteIVA : double;
Re : integer;
ImporteRe : double;
ImporteTotal : double; ImporteTotal : double;
Observaciones : string; Observaciones : string;
PlazoEntrega : string; PlazoEntrega : string;
@ -603,6 +605,18 @@ begin
EditFormat := EDIT_EUROS4; EditFormat := EDIT_EUROS4;
end; end;
if FindField('RE') <> NIL then
with (FieldByName('RE') as TFloatField) do begin
DisplayFormat := DISPLAY_DTO;
EditFormat := EDIT_DTO;
end;
if FindField('IMPORTERE') <> NIL then
with (FieldByName('IMPORTERE') as TIBBCDField) do begin
DisplayFormat := DISPLAY_EUROS2;
EditFormat := EDIT_EUROS2;
end;
if FindField('IMPORTETOTAL') <> NIL then if FindField('IMPORTETOTAL') <> NIL then
with (FieldByName('IMPORTETOTAL') as TIBBCDField) do begin with (FieldByName('IMPORTETOTAL') as TIBBCDField) do begin
DisplayFormat := DISPLAY_EUROS2; DisplayFormat := DISPLAY_EUROS2;
@ -806,6 +820,7 @@ begin
Add(' BASEIMPONIBLE, DESCUENTO, '); Add(' BASEIMPONIBLE, DESCUENTO, ');
Add(' IMPORTEDESCUENTO, '); Add(' IMPORTEDESCUENTO, ');
Add(' IVA, IMPORTEIVA, '); Add(' IVA, IMPORTEIVA, ');
Add(' RE, IMPORTERE, ');
Add(' IMPORTETOTAL, '); Add(' IMPORTETOTAL, ');
Add(' OBSERVACIONES, PLAZOENTREGA, '); Add(' OBSERVACIONES, PLAZOENTREGA, ');
Add(' FORMAPAGO) '); Add(' FORMAPAGO) ');
@ -821,6 +836,7 @@ begin
Add(' :BASEIMPONIBLE, :DESCUENTO, '); Add(' :BASEIMPONIBLE, :DESCUENTO, ');
Add(' :IMPORTEDESCUENTO, '); Add(' :IMPORTEDESCUENTO, ');
Add(' :IVA, :IMPORTEIVA, '); Add(' :IVA, :IMPORTEIVA, ');
Add(' :RE, :IMPORTERE, ');
Add(' :IMPORTETOTAL, '); Add(' :IMPORTETOTAL, ');
Add(' :OBSERVACIONES, :PLAZOENTREGA, '); Add(' :OBSERVACIONES, :PLAZOENTREGA, ');
Add(' :FORMAPAGO) '); Add(' :FORMAPAGO) ');
@ -854,6 +870,8 @@ begin
Add(' IMPORTEDESCUENTO = :IMPORTEDESCUENTO, '); Add(' IMPORTEDESCUENTO = :IMPORTEDESCUENTO, ');
Add(' IVA = :IVA, '); Add(' IVA = :IVA, ');
Add(' IMPORTEIVA = :IMPORTEIVA, '); Add(' IMPORTEIVA = :IMPORTEIVA, ');
Add(' RE = :RE, ');
Add(' IMPORTERE = :IMPORTERE, ');
Add(' IMPORTETOTAL = :IMPORTETOTAL, '); Add(' IMPORTETOTAL = :IMPORTETOTAL, ');
Add(' OBSERVACIONES = :OBSERVACIONES, '); Add(' OBSERVACIONES = :OBSERVACIONES, ');
Add(' PLAZOENTREGA = :PLAZOENTREGA, '); Add(' PLAZOENTREGA = :PLAZOENTREGA, ');
@ -966,6 +984,7 @@ begin
Add(' BASEIMPONIBLE, DESCUENTO, '); Add(' BASEIMPONIBLE, DESCUENTO, ');
Add(' IMPORTEDESCUENTO, '); Add(' IMPORTEDESCUENTO, ');
Add(' IVA, IMPORTEIVA, '); Add(' IVA, IMPORTEIVA, ');
Add(' RE, IMPORTERE, ');
Add(' IMPORTETOTAL, '); Add(' IMPORTETOTAL, ');
Add(' OBSERVACIONES, PLAZOENTREGA, '); Add(' OBSERVACIONES, PLAZOENTREGA, ');
Add(' FORMAPAGO) '); Add(' FORMAPAGO) ');
@ -981,6 +1000,7 @@ begin
Add('BASEIMPONIBLE,'); Add('BASEIMPONIBLE,');
Add('DESCUENTO, IMPORTEDESCUENTO,'); Add('DESCUENTO, IMPORTEDESCUENTO,');
Add('IVA, IMPORTEIVA,'); Add('IVA, IMPORTEIVA,');
Add('RE, IMPORTERE,');
Add('IMPORTETOTAL, OBSERVACIONES, PLAZOENTREGA, FORMAPAGO '); Add('IMPORTETOTAL, OBSERVACIONES, PLAZOENTREGA, FORMAPAGO ');
Add('from PRESUPUESTOSCLIENTE '); Add('from PRESUPUESTOSCLIENTE ');
Add('where CODIGO = :CODIGO'); Add('where CODIGO = :CODIGO');
@ -1091,6 +1111,7 @@ begin
Add(' BASEIMPONIBLE, DESCUENTO, '); Add(' BASEIMPONIBLE, DESCUENTO, ');
Add(' IMPORTEDESCUENTO, '); Add(' IMPORTEDESCUENTO, ');
Add(' IVA, IMPORTEIVA, '); Add(' IVA, IMPORTEIVA, ');
Add(' RE, IMPORTERE, ');
Add(' IMPORTETOTAL, '); Add(' IMPORTETOTAL, ');
Add(' OBSERVACIONES, PLAZOENTREGA, '); Add(' OBSERVACIONES, PLAZOENTREGA, ');
Add(' FORMAPAGO) '); Add(' FORMAPAGO) ');
@ -1101,7 +1122,7 @@ begin
Add('CALLE, NUMERO, PISO, CODIGOPOSTAL,'); Add('CALLE, NUMERO, PISO, CODIGOPOSTAL,');
Add('POBLACION, PROVINCIA,'); Add('POBLACION, PROVINCIA,');
Add('TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENTO,'); Add('TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENTO,');
Add('IVA, IMPORTEIVA, IMPORTETOTAL, OBSERVACIONES, PLAZOENTREGA, '); Add('IVA, IMPORTEIVA, RE, IMPORTERE, IMPORTETOTAL, OBSERVACIONES, PLAZOENTREGA, ');
Add('FORMAPAGO from CONTRATOSCLIENTE '); Add('FORMAPAGO from CONTRATOSCLIENTE ');
Add('where CODIGO = :CODIGO'); Add('where CODIGO = :CODIGO');
end; end;
@ -1666,6 +1687,8 @@ begin
ImporteDescuento := FieldByName('IMPORTEDESCUENTO').AsDouble; ImporteDescuento := FieldByName('IMPORTEDESCUENTO').AsDouble;
Iva := FieldByName('IVA').AsInteger; Iva := FieldByName('IVA').AsInteger;
ImporteIva := FieldByName('IMPORTEIVA').AsDouble; ImporteIva := FieldByName('IMPORTEIVA').AsDouble;
Re := FieldByName('RE').AsInteger;
ImporteRe := FieldByName('IMPORTERE').AsDouble;
ImporteTotal := FieldByName('IMPORTETOTAL').AsDouble; ImporteTotal := FieldByName('IMPORTETOTAL').AsDouble;
PlazoEntrega := FieldByName('PLAZOENTREGA').AsString; PlazoEntrega := FieldByName('PLAZOENTREGA').AsString;
FormaPago := FieldByName('FORMAPAGO').AsString; FormaPago := FieldByName('FORMAPAGO').AsString;

4
BaseDatos/TablaFacturasCliente.dfm
View File

@ -1,7 +1,7 @@
object dmTablaFacturasCliente: TdmTablaFacturasCliente object dmTablaFacturasCliente: TdmTablaFacturasCliente
OldCreateOrder = False OldCreateOrder = False
Left = 504 Left = 507
Top = 256 Top = 81
Height = 408 Height = 408
Width = 123 Width = 123
end end

5
BaseDatos/TablaPresupuestos.dfm
View File

@ -1,7 +1,6 @@
object dmTablaPresupuestos: TdmTablaPresupuestos object dmTablaPresupuestos: TdmTablaPresupuestos
OldCreateOrder = True OldCreateOrder = True
Left = 251 Top = 423
Top = 416
Height = 200 Height = 200
Width = 741 Width = 640
end end

26
BaseDatos/TablaPresupuestos.pas
View File

@ -79,6 +79,8 @@ type
ImporteDescuento : double; ImporteDescuento : double;
Iva : integer; Iva : integer;
ImporteIva : double; ImporteIva : double;
Re : integer;
ImporteRe : double;
ImporteTotal : double; ImporteTotal : double;
VigenciaPresupuesto : TDateTime; VigenciaPresupuesto : TDateTime;
PlazoEntrega : String; PlazoEntrega : String;
@ -606,6 +608,18 @@ begin
EditFormat := EDIT_EUROS4; EditFormat := EDIT_EUROS4;
end; end;
if FindField('RE') <> NIL then
with (FieldByName('RE') as TFloatField) do begin
DisplayFormat := DISPLAY_DTO;
EditFormat := EDIT_DTO;
end;
if FindField('IMPORTERE') <> NIL then
with (FieldByName('IMPORTERE') as TIBBCDField) do begin
DisplayFormat := DISPLAY_EUROS2;
EditFormat := EDIT_EUROS2;
end;
if FindField('IMPORTETOTAL') <> NIL then if FindField('IMPORTETOTAL') <> NIL then
with (FieldByName('IMPORTETOTAL') as TIBBCDField) do begin with (FieldByName('IMPORTETOTAL') as TIBBCDField) do begin
DisplayFormat := DISPLAY_EUROS2; DisplayFormat := DISPLAY_EUROS2;
@ -760,7 +774,7 @@ begin
Add('NUMERO, PISO, CODIGOPOSTAL, POBLACION, '); Add('NUMERO, PISO, CODIGOPOSTAL, POBLACION, ');
Add('PROVINCIA, TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, VENDEDOR, '); Add('PROVINCIA, TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, VENDEDOR, ');
Add('BASEIMPONIBLE, DESCUENTO, '); Add('BASEIMPONIBLE, DESCUENTO, ');
Add('IMPORTEDESCUENTO, IVA, IMPORTEIVA, '); Add('IMPORTEDESCUENTO, IVA, IMPORTEIVA, RE, IMPORTERE, ');
Add('IMPORTETOTAL, CODIGODOCUMENTO, VIGENCIAPRESUPUESTO, '); Add('IMPORTETOTAL, CODIGODOCUMENTO, VIGENCIAPRESUPUESTO, ');
Add('OBSERVACIONES, PLAZOENTREGA, FORMAPAGO, DESGLOSES, AUMENTO) values ('); Add('OBSERVACIONES, PLAZOENTREGA, FORMAPAGO, DESGLOSES, AUMENTO) values (');
Add(':CODIGO, :FECHAALTA, :USUARIO, '); Add(':CODIGO, :FECHAALTA, :USUARIO, ');
@ -770,7 +784,7 @@ begin
Add(':PISO, :CODIGOPOSTAL, :POBLACION, '); Add(':PISO, :CODIGOPOSTAL, :POBLACION, ');
Add(':PROVINCIA, :TELEFONO1, :TELEFONO2, :MOVIL1, :MOVIL2, :FAX, :PERSONACONTACTO, :VENDEDOR, '); Add(':PROVINCIA, :TELEFONO1, :TELEFONO2, :MOVIL1, :MOVIL2, :FAX, :PERSONACONTACTO, :VENDEDOR, ');
Add(':BASEIMPONIBLE, :DESCUENTO, '); Add(':BASEIMPONIBLE, :DESCUENTO, ');
Add(':IMPORTEDESCUENTO, :IVA, :IMPORTEIVA, '); Add(':IMPORTEDESCUENTO, :IVA, :IMPORTEIVA, :RE, :IMPORTERE,');
Add(':IMPORTETOTAL, :CODIGODOCUMENTO, :VIGENCIAPRESUPUESTO, '); Add(':IMPORTETOTAL, :CODIGODOCUMENTO, :VIGENCIAPRESUPUESTO, ');
Add(':OBSERVACIONES, :PLAZOENTREGA, :FORMAPAGO, :DESGLOSES, :AUMENTO) '); Add(':OBSERVACIONES, :PLAZOENTREGA, :FORMAPAGO, :DESGLOSES, :AUMENTO) ');
end; end;
@ -803,6 +817,8 @@ begin
Add('IMPORTEDESCUENTO = :IMPORTEDESCUENTO, '); Add('IMPORTEDESCUENTO = :IMPORTEDESCUENTO, ');
Add('IVA = :IVA, '); Add('IVA = :IVA, ');
Add('IMPORTEIVA = :IMPORTEIVA, '); Add('IMPORTEIVA = :IMPORTEIVA, ');
Add('RE = :RE, ');
Add('IMPORTERE = :IMPORTERE, ');
Add('IMPORTETOTAL = :IMPORTETOTAL, '); Add('IMPORTETOTAL = :IMPORTETOTAL, ');
Add('VIGENCIAPRESUPUESTO = :VIGENCIAPRESUPUESTO, '); Add('VIGENCIAPRESUPUESTO = :VIGENCIAPRESUPUESTO, ');
Add('OBSERVACIONES = :OBSERVACIONES, '); Add('OBSERVACIONES = :OBSERVACIONES, ');
@ -1072,7 +1088,7 @@ begin
Add('OBSERVACIONES, VENDEDOR, '); Add('OBSERVACIONES, VENDEDOR, ');
Add('BASEIMPONIBLE, DESCUENTO, '); Add('BASEIMPONIBLE, DESCUENTO, ');
Add('IMPORTEDESCUENTO, IVA, '); Add('IMPORTEDESCUENTO, IVA, ');
Add('IMPORTEIVA, IMPORTETOTAL, '); Add('IMPORTEIVA, RE, IMPORTERE, IMPORTETOTAL, ');
Add('VIGENCIAPRESUPUESTO, PLAZOENTREGA, '); Add('VIGENCIAPRESUPUESTO, PLAZOENTREGA, ');
Add('FORMAPAGO, DESGLOSES, AUMENTO) '); Add('FORMAPAGO, DESGLOSES, AUMENTO) ');
Add('SELECT ''' + CodigoAux + ''', current_date, '); Add('SELECT ''' + CodigoAux + ''', current_date, ');
@ -1087,7 +1103,7 @@ begin
Add('TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, '); Add('TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, ');
Add('OBSERVACIONES, VENDEDOR, '); Add('OBSERVACIONES, VENDEDOR, ');
Add('BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENTO,'); Add('BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENTO,');
Add('IVA, IMPORTEIVA,'); Add('IVA, IMPORTEIVA, RE, IMPORTERE,');
Add('IMPORTETOTAL, VIGENCIAPRESUPUESTO, PLAZOENTREGA, FORMAPAGO, '); Add('IMPORTETOTAL, VIGENCIAPRESUPUESTO, PLAZOENTREGA, FORMAPAGO, ');
Add('DESGLOSES, AUMENTO '); Add('DESGLOSES, AUMENTO ');
Add('from PRESUPUESTOSCLIENTE '); Add('from PRESUPUESTOSCLIENTE ');
@ -1386,6 +1402,8 @@ begin
ImporteDescuento := FieldByName('IMPORTEDESCUENTO').AsDouble; ImporteDescuento := FieldByName('IMPORTEDESCUENTO').AsDouble;
Iva := FieldByName('IVA').AsInteger; Iva := FieldByName('IVA').AsInteger;
ImporteIva := FieldByName('IMPORTEIVA').AsDouble; ImporteIva := FieldByName('IMPORTEIVA').AsDouble;
Re := FieldByName('RE').AsInteger;
ImporteRe := FieldByName('IMPORTERE').AsDouble;
ImporteTotal := FieldByName('IMPORTETOTAL').AsDouble; ImporteTotal := FieldByName('IMPORTETOTAL').AsDouble;
VigenciaPresupuesto := FieldByName('VIGENCIAPRESUPUESTO').AsDateTime; VigenciaPresupuesto := FieldByName('VIGENCIAPRESUPUESTO').AsDateTime;
PlazoEntrega := FieldByName('PLAZOENTREGA').AsString; PlazoEntrega := FieldByName('PLAZOENTREGA').AsString;

503
Clientes/ContratoCliente.dfm
View File

@ -1,8 +1,8 @@
object frContratoCliente: TfrContratoCliente object frContratoCliente: TfrContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 853 Width = 630
Height = 626 Height = 410
Color = 16383743 Color = 16383743
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -17,7 +17,7 @@ object frContratoCliente: TfrContratoCliente
object pnlTitulo: TRdxPanelTituloOperacion object pnlTitulo: TRdxPanelTituloOperacion
Left = 0 Left = 0
Top = 0 Top = 0
Width = 853 Width = 630
Height = 22 Height = 22
Caption = ' ' Caption = ' '
Color = 11590911 Color = 11590911
@ -30,8 +30,8 @@ object frContratoCliente: TfrContratoCliente
end end
object brSalir: TRdxBarraInferior object brSalir: TRdxBarraInferior
Left = 0 Left = 0
Top = 526 Top = 310
Width = 853 Width = 630
Height = 50 Height = 50
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -111,8 +111,8 @@ object frContratoCliente: TfrContratoCliente
end end
object brGuardar: TRdxBarraInferior object brGuardar: TRdxBarraInferior
Left = 0 Left = 0
Top = 576 Top = 360
Width = 853 Width = 630
Height = 50 Height = 50
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -265,8 +265,8 @@ object frContratoCliente: TfrContratoCliente
object pnlCuerpo: TPanel object pnlCuerpo: TPanel
Left = 0 Left = 0
Top = 22 Top = 22
Width = 853 Width = 630
Height = 504 Height = 288
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 10 BorderWidth = 10
@ -275,7 +275,7 @@ object frContratoCliente: TfrContratoCliente
object pnlFactura: TAdvPanel object pnlFactura: TAdvPanel
Left = 10 Left = 10
Top = 10 Top = 10
Width = 833 Width = 610
Height = 79 Height = 79
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -529,8 +529,8 @@ object frContratoCliente: TfrContratoCliente
object pnlPaginas: TRdxPanel object pnlPaginas: TRdxPanel
Left = 10 Left = 10
Top = 89 Top = 89
Width = 833 Width = 610
Height = 320 Height = 113
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
ColorHighLight = 8623776 ColorHighLight = 8623776
@ -541,8 +541,8 @@ object frContratoCliente: TfrContratoCliente
object Paginas: TRdxPagesControl object Paginas: TRdxPagesControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 833 Width = 610
Height = 320 Height = 113
ActivePage = pagContenido ActivePage = pagContenido
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -1117,8 +1117,8 @@ object frContratoCliente: TfrContratoCliente
object pnlGridArticulos: TPanel object pnlGridArticulos: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 825 Width = 602
Height = 292 Height = 85
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 5 BorderWidth = 5
@ -1128,7 +1128,7 @@ object frContratoCliente: TfrContratoCliente
object pnlBarraContenido: TRdxPanel object pnlBarraContenido: TRdxPanel
Left = 5 Left = 5
Top = 31 Top = 31
Width = 815 Width = 592
Height = 26 Height = 26
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -1246,8 +1246,8 @@ object frContratoCliente: TfrContratoCliente
object gridDetalles: TcxGrid object gridDetalles: TcxGrid
Left = 5 Left = 5
Top = 57 Top = 57
Width = 815 Width = 592
Height = 153 Height = 193
Align = alClient Align = alClient
BevelInner = bvNone BevelInner = bvNone
BevelKind = bkFlat BevelKind = bkFlat
@ -1340,7 +1340,7 @@ object frContratoCliente: TfrContratoCliente
object pnlBarraPropiedades: TRdxPanel object pnlBarraPropiedades: TRdxPanel
Left = 5 Left = 5
Top = 5 Top = 5
Width = 815 Width = 592
Height = 26 Height = 26
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -1543,8 +1543,8 @@ object frContratoCliente: TfrContratoCliente
end end
object pnlObservaciones: TRdxPanel object pnlObservaciones: TRdxPanel
Left = 5 Left = 5
Top = 210 Top = 3
Width = 815 Width = 592
Height = 77 Height = 77
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -1556,7 +1556,7 @@ object frContratoCliente: TfrContratoCliente
object Label1: TLabel object Label1: TLabel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 815 Width = 592
Height = 22 Height = 22
Align = alTop Align = alTop
AutoSize = False AutoSize = False
@ -1578,7 +1578,7 @@ object frContratoCliente: TfrContratoCliente
TabOrder = 0 TabOrder = 0
OnExit = ObservacionesExit OnExit = ObservacionesExit
Height = 55 Height = 55
Width = 815 Width = 592
end end
end end
end end
@ -1763,7 +1763,7 @@ object frContratoCliente: TfrContratoCliente
object pnlFormasPago: TPanel object pnlFormasPago: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 825 Width = 602
Height = 100 Height = 100
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -1798,7 +1798,7 @@ object frContratoCliente: TfrContratoCliente
object RdxPanel5: TPanel object RdxPanel5: TPanel
Left = 125 Left = 125
Top = 0 Top = 0
Width = 700 Width = 477
Height = 100 Height = 100
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
@ -1818,14 +1818,14 @@ object frContratoCliente: TfrContratoCliente
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
TabOrder = 0 TabOrder = 0
Height = 80 Height = 80
Width = 680 Width = 457
end end
end end
end end
object pnlPlazosEntrega: TPanel object pnlPlazosEntrega: TPanel
Left = 0 Left = 0
Top = 100 Top = 100
Width = 825 Width = 602
Height = 100 Height = 100
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -1860,7 +1860,7 @@ object frContratoCliente: TfrContratoCliente
object Panel3: TPanel object Panel3: TPanel
Left = 125 Left = 125
Top = 0 Top = 0
Width = 700 Width = 477
Height = 100 Height = 100
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
@ -1880,14 +1880,14 @@ object frContratoCliente: TfrContratoCliente
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
TabOrder = 0 TabOrder = 0
Height = 80 Height = 80
Width = 680 Width = 457
end end
end end
end end
object pnlNota: TPanel object pnlNota: TPanel
Left = 0 Left = 0
Top = 200 Top = 200
Width = 825 Width = 602
Height = 100 Height = 100
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -1922,7 +1922,7 @@ object frContratoCliente: TfrContratoCliente
object Panel5: TPanel object Panel5: TPanel
Left = 125 Left = 125
Top = 0 Top = 0
Width = 700 Width = 477
Height = 100 Height = 100
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
@ -1942,7 +1942,7 @@ object frContratoCliente: TfrContratoCliente
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
TabOrder = 0 TabOrder = 0
Height = 80 Height = 80
Width = 680 Width = 457
end end
end end
end end
@ -2126,9 +2126,9 @@ object frContratoCliente: TfrContratoCliente
end end
object pnlImportes: TAdvPanel object pnlImportes: TAdvPanel
Left = 10 Left = 10
Top = 409 Top = 202
Width = 833 Width = 610
Height = 85 Height = 76
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
Color = 16383743 Color = 16383743
@ -2206,175 +2206,274 @@ object frContratoCliente: TfrContratoCliente
TopIndent = 0 TopIndent = 0
URLColor = clBlue URLColor = clBlue
FullHeight = 38 FullHeight = 38
object Label7: TLabel object Panel1: TPanel
Left = 66 Left = 116
Top = 13 Top = 0
Width = 74 Width = 494
Height = 13 Height = 76
Caption = 'Descuento(%):' Align = alRight
Font.Charset = DEFAULT_CHARSET BevelOuter = bvNone
Font.Color = clWindowText BorderWidth = 5
Font.Height = -11 ParentColor = True
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 228
Top = 13
Width = 40
Height = 13
Alignment = taRightJustify
Caption = 'IVA(%):'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 22
Top = 39
Width = 70
Height = 13
Alignment = taRightJustify
Caption = 'Base imponible'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 133
Top = 39
Width = 72
Height = 13
Alignment = taRightJustify
Caption = 'Importe de dto'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 228
Top = 39
Width = 73
Height = 13
Alignment = taRightJustify
Caption = 'Importe de IVA'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 338
Top = 39
Width = 77
Height = 13
Alignment = taRightJustify
Caption = 'Importe total'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Descuento: TcxDBTextEdit
Left = 145
Top = 9
DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsContrato
ParentFont = False
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
TabOrder = 0 TabOrder = 0
Width = 57 object RdxPanel1: TRdxPanel
Left = 5
Top = 5
Width = 484
Height = 66
BorderStyle = bsSingle
Caption = ' '
BorderWidth = 1
Color = 15726583
ColorHighLight = 8623776
ColorShadow = 8623776
Align = alClient
TabOrder = 0
UseDockManager = True
object Label5: TLabel
Left = 135
Top = 10
Width = 70
Height = 13
Alignment = taRightJustify
Caption = 'Base imponible'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 400
Top = 10
Width = 77
Height = 13
Alignment = taRightJustify
Caption = 'Importe total'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 29
Top = 10
Width = 76
Height = 13
Alignment = taRightJustify
Caption = 'Importe de dto.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 234
Top = 10
Width = 73
Height = 13
Alignment = taRightJustify
Caption = 'Importe de IVA'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Shape2: TShape
Left = 16
Top = 29
Width = 465
Height = 1
end
object Label4: TLabel
Left = 319
Top = 10
Width = 69
Height = 13
Alignment = taRightJustify
Caption = 'Importe de RE'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object BaseImponible: TcxDBTextEdit
Left = 95
Top = 37
TabStop = False
AutoSize = False
DataBinding.DataField = 'BASEIMPONIBLE'
DataBinding.DataSource = dsContrato
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.HotTrack = False
TabOrder = 0
Height = 21
Width = 110
end
object ImporteDescuento: TcxDBTextEdit
Left = 26
Top = 37
TabStop = False
AutoSize = False
DataBinding.DataField = 'IMPORTEDESCUENTO'
DataBinding.DataSource = dsContrato
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.HotTrack = False
TabOrder = 1
Height = 21
Width = 79
end
object ImporteIVA: TcxDBTextEdit
Left = 231
Top = 37
TabStop = False
AutoSize = False
DataBinding.DataField = 'IMPORTEIVA'
DataBinding.DataSource = dsContrato
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.HotTrack = False
TabOrder = 2
Height = 21
Width = 76
end
object ImporteTotal: TcxDBTextEdit
Left = 380
Top = 37
TabStop = False
AutoSize = False
DataBinding.DataField = 'IMPORTETOTAL'
DataBinding.DataSource = dsContrato
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = [fsBold]
Style.HotTrack = False
Style.IsFontAssigned = True
TabOrder = 3
Height = 21
Width = 98
end
object ImporteRE: TcxDBTextEdit
Left = 312
Top = 37
TabStop = False
AutoSize = False
DataBinding.DataField = 'IMPORTERE'
DataBinding.DataSource = dsContrato
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.HotTrack = False
TabOrder = 4
Height = 21
Width = 76
end
end
end end
object IVA: TcxDBTextEdit object Panel6: TPanel
Left = 271 Left = 0
Top = 9 Top = 0
DataBinding.DataField = 'IVA' Width = 116
DataBinding.DataSource = dsContrato Height = 76
ParentFont = False Align = alClient
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro Alignment = taLeftJustify
BevelOuter = bvNone
ParentColor = True
TabOrder = 1 TabOrder = 1
Width = 57 object Label7: TLabel
end Left = 8
object BaseImponible: TcxDBTextEdit Top = 50
Left = 2 Width = 74
Top = 59 Height = 13
TabStop = False Caption = 'Descuento(%):'
DataBinding.DataField = 'BASEIMPONIBLE' Font.Charset = DEFAULT_CHARSET
DataBinding.DataSource = dsContrato Font.Color = clWindowText
Properties.Alignment.Horz = taRightJustify Font.Height = -11
Properties.AutoSelect = False Font.Name = 'Tahoma'
Properties.ReadOnly = True Font.Style = []
Style.BorderStyle = ebsNone ParentFont = False
Style.Color = 15726583 end
Style.HotTrack = False object Label8: TLabel
TabOrder = 2 Left = 157
Width = 90 Top = 50
end Width = 40
object ImporteDescuento: TcxDBTextEdit Height = 13
Left = 115 Alignment = taRightJustify
Top = 59 Caption = 'IVA(%):'
TabStop = False Font.Charset = DEFAULT_CHARSET
DataBinding.DataField = 'IMPORTEDESCUENTO' Font.Color = clWindowText
DataBinding.DataSource = dsContrato Font.Height = -11
Properties.Alignment.Horz = taRightJustify Font.Name = 'Tahoma'
Properties.AutoSelect = False Font.Style = []
Properties.ReadOnly = True ParentFont = False
Style.BorderStyle = ebsNone end
Style.Color = 15726583 object cbRecargoEquivalencia: TcxCheckBox
Style.HotTrack = False Left = 8
TabOrder = 3 Top = 14
Width = 90 Caption = 'Acogido al recargo de equivalencia'
end ParentColor = False
object ImporteIVA: TcxDBTextEdit ParentFont = False
Left = 211 Properties.NullStyle = nssUnchecked
Top = 59 Properties.OnChange = cbRecargoEquivalenciaPropertiesChange
TabStop = False Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
DataBinding.DataField = 'IMPORTEIVA' TabOrder = 0
DataBinding.DataSource = dsContrato Width = 193
Properties.Alignment.Horz = taRightJustify end
Properties.AutoSelect = False object Descuento: TcxDBTextEdit
Properties.ReadOnly = True Left = 85
Style.BorderStyle = ebsNone Top = 46
Style.Color = 15726583 DataBinding.DataField = 'DESCUENTO'
Style.HotTrack = False DataBinding.DataSource = dsContrato
TabOrder = 4 ParentFont = False
Width = 90 Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
end TabOrder = 1
object ImporteTotal: TcxDBTextEdit Width = 57
Left = 325 end
Top = 59 object IVA: TcxDBTextEdit
TabStop = False Left = 203
DataBinding.DataField = 'IMPORTETOTAL' Top = 46
DataBinding.DataSource = dsContrato DataBinding.DataField = 'IVA'
ParentFont = False DataBinding.DataSource = dsContrato
Properties.Alignment.Horz = taRightJustify ParentFont = False
Properties.AutoSelect = False Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
Properties.ReadOnly = True TabOrder = 2
Style.BorderStyle = ebsNone Width = 57
Style.Color = 15726583 end
Style.Font.Charset = DEFAULT_CHARSET object RecargoEquivalencia: TcxDBTextEdit
Style.Font.Color = clWindowText Left = 203
Style.Font.Height = -11 Top = 14
Style.Font.Name = 'Tahoma' DataBinding.DataField = 'RE'
Style.Font.Style = [fsBold] DataBinding.DataSource = dsContrato
Style.HotTrack = False ParentFont = False
Style.IsFontAssigned = True Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
TabOrder = 5 TabOrder = 3
Width = 90 Width = 57
end
end end
end end
end end

99
Clientes/ContratoCliente.pas
View File

@ -52,7 +52,7 @@ uses
cxDBLookupEdit, cxDBLookupComboBox, TablaDocumentos, TablaPropiedades, cxDBLookupEdit, cxDBLookupComboBox, TablaDocumentos, TablaPropiedades,
RdxEmpresaActiva, am2000utils, cxCurrencyEdit, RXCtrls, Mask, dbcgrids, RdxEmpresaActiva, am2000utils, cxCurrencyEdit, RXCtrls, Mask, dbcgrids,
cxDataStorage, JvExForms, JvBaseThumbnail, JvThumbViews, JvExComCtrls, cxDataStorage, JvExForms, JvBaseThumbnail, JvThumbViews, JvExComCtrls,
JvComCtrls, Dialogs; JvComCtrls, Dialogs, cxCheckBox;
type type
TfrContratoCliente = class(TRdxFrameContratos) TfrContratoCliente = class(TRdxFrameContratos)
@ -114,7 +114,6 @@ type
FormasPago: TcxDBMemo; FormasPago: TcxDBMemo;
dsPropiedadesContrato: TDataSource; dsPropiedadesContrato: TDataSource;
eDocumento: TLabel; eDocumento: TLabel;
pnlImportes: TAdvPanel;
cbxDocumento: TcxDBLookupComboBox; cbxDocumento: TcxDBLookupComboBox;
dsDocumentos: TDataSource; dsDocumentos: TDataSource;
TablaDocumentos: TIBQuery; TablaDocumentos: TIBQuery;
@ -125,10 +124,6 @@ type
TablaValores: TIBQuery; TablaValores: TIBQuery;
dsValores: TDataSource; dsValores: TDataSource;
dsPropiedades: TDataSource; dsPropiedades: TDataSource;
Label7: TLabel;
Descuento: TcxDBTextEdit;
Label8: TLabel;
IVA: TcxDBTextEdit;
actAnadirPropiedad: TAction; actAnadirPropiedad: TAction;
actEliminarPropiedad: TAction; actEliminarPropiedad: TAction;
pnlBarraPropiedades: TRdxPanel; pnlBarraPropiedades: TRdxPanel;
@ -145,14 +140,6 @@ type
DBEdit1: TDBEdit; DBEdit1: TDBEdit;
DBEdit2: TDBEdit; DBEdit2: TDBEdit;
pnlGrid: TRdxPanel; pnlGrid: TRdxPanel;
Label5: TLabel;
Label10: TLabel;
Label11: TLabel;
Label9: TLabel;
BaseImponible: TcxDBTextEdit;
ImporteDescuento: TcxDBTextEdit;
ImporteIVA: TcxDBTextEdit;
ImporteTotal: TcxDBTextEdit;
eSeccion: TLabel; eSeccion: TLabel;
Seccion: TcxComboBox; Seccion: TcxComboBox;
pnlObservaciones: TRdxPanel; pnlObservaciones: TRdxPanel;
@ -190,6 +177,27 @@ type
RdxBoton6: TRdxBoton; RdxBoton6: TRdxBoton;
tvPlanos: TJvThumbView; tvPlanos: TJvThumbView;
OpenDialog1: TOpenDialog; OpenDialog1: TOpenDialog;
pnlImportes: TAdvPanel;
Panel1: TPanel;
RdxPanel1: TRdxPanel;
Label5: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Shape2: TShape;
Label4: TLabel;
BaseImponible: TcxDBTextEdit;
ImporteDescuento: TcxDBTextEdit;
ImporteIVA: TcxDBTextEdit;
ImporteTotal: TcxDBTextEdit;
ImporteRE: TcxDBTextEdit;
Panel6: TPanel;
Label7: TLabel;
Label8: TLabel;
cbRecargoEquivalencia: TcxCheckBox;
Descuento: TcxDBTextEdit;
IVA: TcxDBTextEdit;
RecargoEquivalencia: TcxDBTextEdit;
procedure bSalirClick(Sender: TObject); procedure bSalirClick(Sender: TObject);
procedure bGuardarClick(Sender: TObject); procedure bGuardarClick(Sender: TObject);
procedure bCancelarClick(Sender: TObject); procedure bCancelarClick(Sender: TObject);
@ -238,6 +246,7 @@ type
procedure actAnadirPlanoUpdate(Sender: TObject); procedure actAnadirPlanoUpdate(Sender: TObject);
procedure tvPlanosDblClick(Sender: TObject); procedure tvPlanosDblClick(Sender: TObject);
procedure JvTrackBar1Change(Sender: TObject); procedure JvTrackBar1Change(Sender: TObject);
procedure cbRecargoEquivalenciaPropertiesChange(Sender: TObject);
private private
FRootPlanos: Variant; FRootPlanos: Variant;
FDirectorio: Variant; FDirectorio: Variant;
@ -275,6 +284,7 @@ type
procedure ProvinciaSetText(Sender: TField; const Text: String); procedure ProvinciaSetText(Sender: TField; const Text: String);
procedure IVASetText(Sender: TField; const Text: String); procedure IVASetText(Sender: TField; const Text: String);
procedure DtoSetText(Sender: TField; const Text: String); procedure DtoSetText(Sender: TField; const Text: String);
procedure RESetText(Sender: TField; const Text: String);
procedure CodigoArticuloDetalleSetText(Sender: TField; const Text: String); procedure CodigoArticuloDetalleSetText(Sender: TField; const Text: String);
procedure ReferenciaArticuloDetalleSetText(Sender: TField; const Text: String); procedure ReferenciaArticuloDetalleSetText(Sender: TField; const Text: String);
procedure CantidadDetalleSetText(Sender: TField; const Text: String); procedure CantidadDetalleSetText(Sender: TField; const Text: String);
@ -365,6 +375,8 @@ begin
CodCliente.Properties.Buttons[0].Visible := True; CodCliente.Properties.Buttons[0].Visible := True;
Poblacion.Properties.Buttons[0].Visible := True; Poblacion.Properties.Buttons[0].Visible := True;
Provincia.Properties.Buttons[0].Visible := True; Provincia.Properties.Buttons[0].Visible := True;
cbRecargoEquivalencia.Checked := False;
RecargoEquivalencia.Enabled := False;
DesactivarEventosCampos; DesactivarEventosCampos;
try try
@ -421,6 +433,7 @@ begin
dmTablaContratos.InicializarTablaContratos(@TablaContratos); dmTablaContratos.InicializarTablaContratos(@TablaContratos);
dmTablaContratos.InicializarTablaDetalles(@TablaDetallesMem); dmTablaContratos.InicializarTablaDetalles(@TablaDetallesMem);
cbRecargoEquivalencia.Properties.ReadOnly := False;
ActivarEdicionGridDetalles(VistaDetalles); ActivarEdicionGridDetalles(VistaDetalles);
@ -525,6 +538,10 @@ begin
DeshabilitarPlanos; DeshabilitarPlanos;
end;} end;}
cbRecargoEquivalencia.Checked := TablaContratos.FieldByName('RE').AsFloat > 0;
RecargoEquivalencia.Enabled := TablaContratos.FieldByName('RE').AsFloat > 0;
cbRecargoEquivalencia.Properties.ReadOnly := True;
FechaContrato.SetFocus; FechaContrato.SetFocus;
except except
on E : EIBError do on E : EIBError do
@ -592,6 +609,10 @@ begin
DeshabilitarPlanos; DeshabilitarPlanos;
end;} end;}
cbRecargoEquivalencia.Checked := TablaContratos.FieldByName('RE').AsFloat > 0;
RecargoEquivalencia.Enabled := TablaContratos.FieldByName('RE').AsFloat > 0;
cbRecargoEquivalencia.Properties.ReadOnly := True;
Visible := True; Visible := True;
except except
on E : EIBError do on E : EIBError do
@ -655,6 +676,10 @@ begin
end; end;
end; end;
cbRecargoEquivalencia.Checked := TablaContratos.FieldByName('RE').AsFloat > 0;
RecargoEquivalencia.Enabled := TablaContratos.FieldByName('RE').AsFloat > 0;
cbRecargoEquivalencia.Properties.ReadOnly := False;
ActivarEventosCampos; ActivarEventosCampos;
ConfigurarPantallaDocumento; ConfigurarPantallaDocumento;
Visible := True; Visible := True;
@ -841,13 +866,16 @@ end;
procedure TfrContratoCliente.CalcularTotalContrato; procedure TfrContratoCliente.CalcularTotalContrato;
var var
ImporteNeto,
BaseImponible, BaseImponible,
ImporteRE,
ImporteIVA, ImporteIVA,
ImporteDto, ImporteDto,
ImporteTotal : Double; ImporteTotal : Double;
FDetallesBookmark : string; FDetallesBookmark : string;
begin begin
BaseImponible := 0; ImporteNeto := 0; //Total de los articulos
BaseImponible := 0; //Importe neto una vez aplicado el dto
ImporteTotal := 0; ImporteTotal := 0;
with TablaDetallesMem do with TablaDetallesMem do
begin begin
@ -856,19 +884,22 @@ begin
try try
First; First;
while not EOF do begin while not EOF do begin
BaseImponible := BaseImponible + FieldByName('IMPORTETOTAL').AsFloat; ImporteNeto := ImporteNeto + FieldByName('IMPORTETOTAL').AsFloat;
Next; Next;
end; end;
ImporteDto := BaseImponible * (TablaContratos.FieldByName('DESCUENTO').AsFloat/100); ImporteDto := ImporteNeto * (TablaContratos.FieldByName('DESCUENTO').AsFloat/100);
ImporteTotal := BaseImponible - ImporteDto; BaseImponible := ImporteNeto - ImporteDto;
ImporteIVA := ImporteTotal * (TablaContratos.FieldByName('IVA').AsFloat/100);
ImporteTotal := ImporteTotal + ImporteIVA; ImporteRE := BaseImponible * (TablaContratos.FieldByName('RE').AsFloat/100);
ImporteIVA := BaseImponible * (TablaContratos.FieldByName('IVA').AsFloat/100);
ImporteTotal := BaseImponible + ImporteIVA + ImporteRE;
TablaContratos.Edit; TablaContratos.Edit;
TablaContratos.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible; TablaContratos.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible;
TablaContratos.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto; TablaContratos.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto;
TablaContratos.FieldByName('IMPORTEIVA').AsFloat := ImporteIVA; TablaContratos.FieldByName('IMPORTEIVA').AsFloat := ImporteIVA;
TablaContratos.FieldByName('IMPORTERE').AsFloat := ImporteRE;
TablaContratos.FieldByName('IMPORTETOTAL').AsFloat := ImporteTotal; TablaContratos.FieldByName('IMPORTETOTAL').AsFloat := ImporteTotal;
finally finally
Bookmark := FDetallesBookmark; Bookmark := FDetallesBookmark;
@ -1467,11 +1498,14 @@ end;
procedure TfrContratoCliente.ActivarEventosCampos; procedure TfrContratoCliente.ActivarEventosCampos;
begin begin
cbRecargoEquivalencia.Properties.OnChange := cbRecargoEquivalenciaPropertiesChange;
with TablaContratos do with TablaContratos do
begin begin
FieldByName('CODIGOCLIENTE').OnSetText := CodCliSetText; FieldByName('CODIGOCLIENTE').OnSetText := CodCliSetText;
FieldByName('IVA').OnSetText := IVASetText; FieldByName('IVA').OnSetText := IVASetText;
FieldByName('DESCUENTO').OnSetText := DtoSetText; FieldByName('DESCUENTO').OnSetText := DtoSetText;
FieldByName('RE').OnSetText := RESetText;
end; end;
with TablaDetallesMem do with TablaDetallesMem do
@ -1931,6 +1965,8 @@ end;
procedure TfrContratoCliente.DesactivarEventosCampos; procedure TfrContratoCliente.DesactivarEventosCampos;
begin begin
cbRecargoEquivalencia.Properties.OnChange := NIL;
with TablaContratos do with TablaContratos do
begin begin
if FindField('CODIGOCLIENTE') <> NIL then if FindField('CODIGOCLIENTE') <> NIL then
@ -1939,6 +1975,8 @@ begin
FieldByName('IVA').OnSetText := NIL; FieldByName('IVA').OnSetText := NIL;
if FindField('DESCUENTO') <> NIL then if FindField('DESCUENTO') <> NIL then
FieldByName('DESCUENTO').OnSetText := NIL; FieldByName('DESCUENTO').OnSetText := NIL;
if FindField('RE') <> NIL then
FieldByName('RE').OnSetText := NIL;
end; end;
with TablaDetallesMem do with TablaDetallesMem do
@ -2626,5 +2664,26 @@ begin
gridDetalles.SetFocus; gridDetalles.SetFocus;
end; end;
procedure TfrContratoCliente.cbRecargoEquivalenciaPropertiesChange(Sender: TObject);
begin
RecargoEquivalencia.Enabled := cbRecargoEquivalencia.Checked;
if not cbRecargoEquivalencia.Checked then
begin
RecargoEquivalencia.DataBinding.Field.Value := Null;
CalcularTotalContrato;
end;
end;
procedure TfrContratoCliente.RESetText(Sender: TField; const Text: String);
begin
if EsCadenaVacia(Text) then
Sender.AsString := '0'
else begin
ValidarDto(Text);
Sender.AsString := Text;
end;
CalcularTotalContrato;
end;
end. end.

108
Clientes/FacturaCliente.dfm
View File

@ -1,8 +1,8 @@
object frFacturaCliente: TfrFacturaCliente object frFacturaCliente: TfrFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 954 Width = 630
Height = 639 Height = 410
Color = 16383743 Color = 16383743
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -17,7 +17,7 @@ object frFacturaCliente: TfrFacturaCliente
object Titulo: TRdxPanelTituloOperacion object Titulo: TRdxPanelTituloOperacion
Left = 0 Left = 0
Top = 0 Top = 0
Width = 954 Width = 630
Height = 22 Height = 22
Caption = ' ' Caption = ' '
Color = 11590911 Color = 11590911
@ -30,8 +30,8 @@ object frFacturaCliente: TfrFacturaCliente
end end
object brSalir: TRdxBarraInferior object brSalir: TRdxBarraInferior
Left = 0 Left = 0
Top = 539 Top = 310
Width = 954 Width = 630
Height = 50 Height = 50
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -111,8 +111,8 @@ object frFacturaCliente: TfrFacturaCliente
end end
object brGuardar: TRdxBarraInferior object brGuardar: TRdxBarraInferior
Left = 0 Left = 0
Top = 589 Top = 360
Width = 954 Width = 630
Height = 50 Height = 50
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -265,8 +265,8 @@ object frFacturaCliente: TfrFacturaCliente
object pnlCuerpo: TPanel object pnlCuerpo: TPanel
Left = 0 Left = 0
Top = 22 Top = 22
Width = 954 Width = 630
Height = 517 Height = 288
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 10 BorderWidth = 10
@ -275,7 +275,7 @@ object frFacturaCliente: TfrFacturaCliente
object pnlDatosFactura: TAdvPanel object pnlDatosFactura: TAdvPanel
Left = 10 Left = 10
Top = 10 Top = 10
Width = 934 Width = 610
Height = 121 Height = 121
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -593,8 +593,8 @@ object frFacturaCliente: TfrFacturaCliente
object pnlGrid: TAdvPanel object pnlGrid: TAdvPanel
Left = 10 Left = 10
Top = 131 Top = 131
Width = 934 Width = 610
Height = 300 Height = 71
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 1 TabOrder = 1
@ -660,8 +660,8 @@ object frFacturaCliente: TfrFacturaCliente
object Paginas: TRdxPagesControl object Paginas: TRdxPagesControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 934 Width = 610
Height = 300 Height = 71
ActivePage = pagCliente ActivePage = pagCliente
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -1236,8 +1236,8 @@ object frFacturaCliente: TfrFacturaCliente
object pnlGridArticulos: TPanel object pnlGridArticulos: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 926 Width = 602
Height = 272 Height = 43
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 10 BorderWidth = 10
@ -1247,7 +1247,7 @@ object frFacturaCliente: TfrFacturaCliente
object pnlBarraGrid: TRdxPanel object pnlBarraGrid: TRdxPanel
Left = 10 Left = 10
Top = 10 Top = 10
Width = 906 Width = 582
Height = 26 Height = 26
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -1401,7 +1401,7 @@ object frFacturaCliente: TfrFacturaCliente
object gridDetalles: TcxGrid object gridDetalles: TcxGrid
Left = 10 Left = 10
Top = 36 Top = 36
Width = 906 Width = 582
Height = 226 Height = 226
Align = alClient Align = alClient
BevelInner = bvNone BevelInner = bvNone
@ -1435,6 +1435,7 @@ object frFacturaCliente: TfrFacturaCliente
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.HeaderEndEllipsis = True OptionsView.HeaderEndEllipsis = True
OptionsView.Indicator = True OptionsView.Indicator = True
OptionsView.NewItemRowInfoText = 'Click here to add a new row'
OptionsView.RowSeparatorColor = 14280169 OptionsView.RowSeparatorColor = 14280169
Styles.StyleSheet = dmConfiguracion.StyleSheetGrid Styles.StyleSheet = dmConfiguracion.StyleSheetGrid
end end
@ -1447,6 +1448,7 @@ object frFacturaCliente: TfrFacturaCliente
DataController.Summary.FooterSummaryItems = <> DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.NewItemRowInfoText = 'Click here to add a new row'
Styles.StyleSheet = dmConfiguracion.StyleSheetGrid Styles.StyleSheet = dmConfiguracion.StyleSheetGrid
end end
object gridDetallesLevel1: TcxGridLevel object gridDetallesLevel1: TcxGridLevel
@ -1462,7 +1464,7 @@ object frFacturaCliente: TfrFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 125 Width = 125
Height = 272 Height = 43
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
Caption = ' ' Caption = ' '
@ -1487,8 +1489,8 @@ object frFacturaCliente: TfrFacturaCliente
object RdxPanel5: TPanel object RdxPanel5: TPanel
Left = 125 Left = 125
Top = 0 Top = 0
Width = 801 Width = 477
Height = 272 Height = 43
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 10 BorderWidth = 10
@ -1506,8 +1508,8 @@ object frFacturaCliente: TfrFacturaCliente
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
TabOrder = 0 TabOrder = 0
Height = 252 Height = 23
Width = 781 Width = 457
end end
end end
end end
@ -1515,8 +1517,8 @@ object frFacturaCliente: TfrFacturaCliente
end end
object pnlImportes: TAdvPanel object pnlImportes: TAdvPanel
Left = 10 Left = 10
Top = 431 Top = 202
Width = 934 Width = 610
Height = 76 Height = 76
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
@ -1596,9 +1598,9 @@ object frFacturaCliente: TfrFacturaCliente
URLColor = clBlue URLColor = clBlue
FullHeight = 38 FullHeight = 38
object Panel1: TPanel object Panel1: TPanel
Left = 500 Left = 116
Top = 0 Top = 0
Width = 434 Width = 494
Height = 76 Height = 76
Align = alRight Align = alRight
BevelOuter = bvNone BevelOuter = bvNone
@ -1608,7 +1610,7 @@ object frFacturaCliente: TfrFacturaCliente
object RdxPanel1: TRdxPanel object RdxPanel1: TRdxPanel
Left = 5 Left = 5
Top = 5 Top = 5
Width = 424 Width = 484
Height = 66 Height = 66
BorderStyle = bsSingle BorderStyle = bsSingle
Caption = ' ' Caption = ' '
@ -1620,7 +1622,7 @@ object frFacturaCliente: TfrFacturaCliente
TabOrder = 0 TabOrder = 0
UseDockManager = True UseDockManager = True
object Label5: TLabel object Label5: TLabel
Left = 52 Left = 135
Top = 10 Top = 10
Width = 70 Width = 70
Height = 13 Height = 13
@ -1634,7 +1636,7 @@ object frFacturaCliente: TfrFacturaCliente
ParentFont = False ParentFont = False
end end
object Label9: TLabel object Label9: TLabel
Left = 332 Left = 400
Top = 10 Top = 10
Width = 77 Width = 77
Height = 13 Height = 13
@ -1648,7 +1650,7 @@ object frFacturaCliente: TfrFacturaCliente
ParentFont = False ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 145 Left = 29
Top = 10 Top = 10
Width = 76 Width = 76
Height = 13 Height = 13
@ -1662,7 +1664,7 @@ object frFacturaCliente: TfrFacturaCliente
ParentFont = False ParentFont = False
end end
object Label11: TLabel object Label11: TLabel
Left = 238 Left = 234
Top = 10 Top = 10
Width = 73 Width = 73
Height = 13 Height = 13
@ -1678,11 +1680,25 @@ object frFacturaCliente: TfrFacturaCliente
object Shape2: TShape object Shape2: TShape
Left = 16 Left = 16
Top = 29 Top = 29
Width = 394 Width = 465
Height = 1 Height = 1
end end
object Label4: TLabel
Left = 319
Top = 10
Width = 69
Height = 13
Alignment = taRightJustify
Caption = 'Importe de RE'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object BaseImponible: TcxDBTextEdit object BaseImponible: TcxDBTextEdit
Left = 12 Left = 95
Top = 37 Top = 37
TabStop = False TabStop = False
AutoSize = False AutoSize = False
@ -1698,7 +1714,7 @@ object frFacturaCliente: TfrFacturaCliente
Width = 110 Width = 110
end end
object ImporteDescuento: TcxDBTextEdit object ImporteDescuento: TcxDBTextEdit
Left = 142 Left = 26
Top = 37 Top = 37
TabStop = False TabStop = False
AutoSize = False AutoSize = False
@ -1714,7 +1730,7 @@ object frFacturaCliente: TfrFacturaCliente
Width = 79 Width = 79
end end
object ImporteIVA: TcxDBTextEdit object ImporteIVA: TcxDBTextEdit
Left = 235 Left = 231
Top = 37 Top = 37
TabStop = False TabStop = False
AutoSize = False AutoSize = False
@ -1730,7 +1746,7 @@ object frFacturaCliente: TfrFacturaCliente
Width = 76 Width = 76
end end
object ImporteTotal: TcxDBTextEdit object ImporteTotal: TcxDBTextEdit
Left = 312 Left = 380
Top = 37 Top = 37
TabStop = False TabStop = False
AutoSize = False AutoSize = False
@ -1752,12 +1768,28 @@ object frFacturaCliente: TfrFacturaCliente
Height = 21 Height = 21
Width = 98 Width = 98
end end
object ImporteRE: TcxDBTextEdit
Left = 312
Top = 37
TabStop = False
AutoSize = False
DataBinding.DataField = 'IMPORTERE'
DataBinding.DataSource = dsFactura
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.HotTrack = False
TabOrder = 4
Height = 21
Width = 76
end
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 500 Width = 116
Height = 76 Height = 76
Align = alClient Align = alClient
Alignment = taLeftJustify Alignment = taLeftJustify

17
Clientes/FacturaCliente.pas
View File

@ -167,6 +167,8 @@ type
cbxTrimestres: TcxComboBox; cbxTrimestres: TcxComboBox;
eTrimestreCerrado: TLabel; eTrimestreCerrado: TLabel;
cbComisiones: TcxDBCheckBox; cbComisiones: TcxDBCheckBox;
Label4: TLabel;
ImporteRE: TcxDBTextEdit;
procedure bCancelarClick(Sender: TObject); procedure bCancelarClick(Sender: TObject);
procedure bSalirClick(Sender: TObject); procedure bSalirClick(Sender: TObject);
procedure bGuardarClick(Sender: TObject); procedure bGuardarClick(Sender: TObject);
@ -740,6 +742,7 @@ end;
procedure TfrFacturaCliente.CalcularTotalFactura; procedure TfrFacturaCliente.CalcularTotalFactura;
var var
ImporteNeto,
BaseImponible, BaseImponible,
ImporteRE, ImporteRE,
ImporteIVA, ImporteIVA,
@ -747,7 +750,8 @@ var
ImporteTotal : Double; ImporteTotal : Double;
FDetallesBookmark : string; FDetallesBookmark : string;
begin begin
BaseImponible := 0; ImporteNeto := 0; //Total de los articulos
BaseImponible := 0; //Importe neto una vez aplicado el dto
ImporteTotal := 0; ImporteTotal := 0;
with TablaDetallesMem do with TablaDetallesMem do
begin begin
@ -756,15 +760,16 @@ begin
try try
First; First;
while not EOF do begin while not EOF do begin
BaseImponible := BaseImponible + FieldByName('IMPORTETOTAL').AsFloat; ImporteNeto := ImporteNeto + FieldByName('IMPORTETOTAL').AsFloat;
Next; Next;
end; end;
ImporteDto := ImporteNeto * (TablaFacturas.FieldByName('DESCUENTO').AsFloat/100);
BaseImponible := ImporteNeto - ImporteDto;
ImporteRE := BaseImponible * (TablaFacturas.FieldByName('RE').AsFloat/100); ImporteRE := BaseImponible * (TablaFacturas.FieldByName('RE').AsFloat/100);
ImporteDto := BaseImponible * (TablaFacturas.FieldByName('DESCUENTO').AsFloat/100); ImporteIVA := BaseImponible * (TablaFacturas.FieldByName('IVA').AsFloat/100);
ImporteTotal := BaseImponible - ImporteDto; ImporteTotal := BaseImponible + ImporteIVA + ImporteRE;
ImporteIVA := ImporteTotal * (TablaFacturas.FieldByName('IVA').AsFloat/100);
ImporteTotal := ImporteTotal + ImporteIVA + ImporteRE;
TablaFacturas.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible; TablaFacturas.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible;
TablaFacturas.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto; TablaFacturas.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto;

108
Clientes/FacturaProforma.dfm
View File

@ -1,8 +1,8 @@
object frFacturaProforma: TfrFacturaProforma object frFacturaProforma: TfrFacturaProforma
Left = 0 Left = 0
Top = 0 Top = 0
Width = 736 Width = 630
Height = 643 Height = 410
Color = 16383743 Color = 16383743
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -17,7 +17,7 @@ object frFacturaProforma: TfrFacturaProforma
object Titulo: TRdxPanelTituloOperacion object Titulo: TRdxPanelTituloOperacion
Left = 0 Left = 0
Top = 0 Top = 0
Width = 736 Width = 630
Height = 22 Height = 22
Caption = ' ' Caption = ' '
Color = 11590911 Color = 11590911
@ -30,8 +30,8 @@ object frFacturaProforma: TfrFacturaProforma
end end
object brSalir: TRdxBarraInferior object brSalir: TRdxBarraInferior
Left = 0 Left = 0
Top = 543 Top = 310
Width = 736 Width = 630
Height = 50 Height = 50
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -111,8 +111,8 @@ object frFacturaProforma: TfrFacturaProforma
end end
object brGuardar: TRdxBarraInferior object brGuardar: TRdxBarraInferior
Left = 0 Left = 0
Top = 593 Top = 360
Width = 736 Width = 630
Height = 50 Height = 50
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -265,8 +265,8 @@ object frFacturaProforma: TfrFacturaProforma
object pnlCuerpo: TPanel object pnlCuerpo: TPanel
Left = 0 Left = 0
Top = 22 Top = 22
Width = 736 Width = 630
Height = 521 Height = 288
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 10 BorderWidth = 10
@ -275,7 +275,7 @@ object frFacturaProforma: TfrFacturaProforma
object pnlDatosFactura: TAdvPanel object pnlDatosFactura: TAdvPanel
Left = 10 Left = 10
Top = 10 Top = 10
Width = 716 Width = 610
Height = 121 Height = 121
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -488,8 +488,8 @@ object frFacturaProforma: TfrFacturaProforma
object pnlGrid: TAdvPanel object pnlGrid: TAdvPanel
Left = 10 Left = 10
Top = 131 Top = 131
Width = 716 Width = 610
Height = 304 Height = 71
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 1 TabOrder = 1
@ -555,8 +555,8 @@ object frFacturaProforma: TfrFacturaProforma
object Paginas: TRdxPagesControl object Paginas: TRdxPagesControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 716 Width = 610
Height = 304 Height = 71
ActivePage = pagContenido ActivePage = pagContenido
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -1131,8 +1131,8 @@ object frFacturaProforma: TfrFacturaProforma
object pnlGridArticulos: TPanel object pnlGridArticulos: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 708 Width = 602
Height = 276 Height = 43
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 10 BorderWidth = 10
@ -1142,7 +1142,7 @@ object frFacturaProforma: TfrFacturaProforma
object pnlBarraGrid: TPanel object pnlBarraGrid: TPanel
Left = 10 Left = 10
Top = 10 Top = 10
Width = 688 Width = 582
Height = 28 Height = 28
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -1258,8 +1258,8 @@ object frFacturaProforma: TfrFacturaProforma
object gridDetalles: TcxGrid object gridDetalles: TcxGrid
Left = 10 Left = 10
Top = 38 Top = 38
Width = 688 Width = 582
Height = 228 Height = 250
Align = alClient Align = alClient
BevelInner = bvNone BevelInner = bvNone
BevelKind = bkFlat BevelKind = bkFlat
@ -1307,7 +1307,7 @@ object frFacturaProforma: TfrFacturaProforma
Left = 0 Left = 0
Top = 0 Top = 0
Width = 125 Width = 125
Height = 276 Height = 43
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
Caption = ' ' Caption = ' '
@ -1332,8 +1332,8 @@ object frFacturaProforma: TfrFacturaProforma
object RdxPanel5: TPanel object RdxPanel5: TPanel
Left = 125 Left = 125
Top = 0 Top = 0
Width = 583 Width = 477
Height = 276 Height = 43
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 10 BorderWidth = 10
@ -1351,8 +1351,8 @@ object frFacturaProforma: TfrFacturaProforma
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
TabOrder = 0 TabOrder = 0
Height = 256 Height = 23
Width = 563 Width = 457
end end
end end
end end
@ -1360,8 +1360,8 @@ object frFacturaProforma: TfrFacturaProforma
end end
object pnlImportes: TAdvPanel object pnlImportes: TAdvPanel
Left = 10 Left = 10
Top = 435 Top = 202
Width = 716 Width = 610
Height = 76 Height = 76
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
@ -1441,9 +1441,9 @@ object frFacturaProforma: TfrFacturaProforma
URLColor = clBlue URLColor = clBlue
FullHeight = 38 FullHeight = 38
object Panel1: TPanel object Panel1: TPanel
Left = 282 Left = 89
Top = 0 Top = 0
Width = 434 Width = 521
Height = 76 Height = 76
Align = alRight Align = alRight
BevelOuter = bvNone BevelOuter = bvNone
@ -1453,7 +1453,7 @@ object frFacturaProforma: TfrFacturaProforma
object RdxPanel1: TRdxPanel object RdxPanel1: TRdxPanel
Left = 5 Left = 5
Top = 5 Top = 5
Width = 424 Width = 511
Height = 66 Height = 66
BorderStyle = bsSingle BorderStyle = bsSingle
Caption = ' ' Caption = ' '
@ -1465,7 +1465,7 @@ object frFacturaProforma: TfrFacturaProforma
TabOrder = 0 TabOrder = 0
UseDockManager = True UseDockManager = True
object Label5: TLabel object Label5: TLabel
Left = 52 Left = 131
Top = 10 Top = 10
Width = 70 Width = 70
Height = 13 Height = 13
@ -1479,7 +1479,7 @@ object frFacturaProforma: TfrFacturaProforma
ParentFont = False ParentFont = False
end end
object Label9: TLabel object Label9: TLabel
Left = 332 Left = 421
Top = 10 Top = 10
Width = 77 Width = 77
Height = 13 Height = 13
@ -1493,7 +1493,7 @@ object frFacturaProforma: TfrFacturaProforma
ParentFont = False ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 145 Left = 18
Top = 10 Top = 10
Width = 76 Width = 76
Height = 13 Height = 13
@ -1507,7 +1507,7 @@ object frFacturaProforma: TfrFacturaProforma
ParentFont = False ParentFont = False
end end
object Label11: TLabel object Label11: TLabel
Left = 238 Left = 225
Top = 10 Top = 10
Width = 73 Width = 73
Height = 13 Height = 13
@ -1523,11 +1523,25 @@ object frFacturaProforma: TfrFacturaProforma
object Shape2: TShape object Shape2: TShape
Left = 16 Left = 16
Top = 29 Top = 29
Width = 394 Width = 484
Height = 1 Height = 1
end end
object Label4: TLabel
Left = 325
Top = 10
Width = 69
Height = 13
Alignment = taRightJustify
Caption = 'Importe de RE'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object BaseImponible: TcxDBTextEdit object BaseImponible: TcxDBTextEdit
Left = 12 Left = 91
Top = 37 Top = 37
TabStop = False TabStop = False
AutoSize = False AutoSize = False
@ -1543,7 +1557,7 @@ object frFacturaProforma: TfrFacturaProforma
Width = 110 Width = 110
end end
object ImporteDescuento: TcxDBTextEdit object ImporteDescuento: TcxDBTextEdit
Left = 142 Left = 15
Top = 37 Top = 37
TabStop = False TabStop = False
AutoSize = False AutoSize = False
@ -1559,7 +1573,7 @@ object frFacturaProforma: TfrFacturaProforma
Width = 79 Width = 79
end end
object ImporteIVA: TcxDBTextEdit object ImporteIVA: TcxDBTextEdit
Left = 235 Left = 222
Top = 37 Top = 37
TabStop = False TabStop = False
AutoSize = False AutoSize = False
@ -1575,7 +1589,7 @@ object frFacturaProforma: TfrFacturaProforma
Width = 76 Width = 76
end end
object ImporteTotal: TcxDBTextEdit object ImporteTotal: TcxDBTextEdit
Left = 312 Left = 401
Top = 37 Top = 37
TabStop = False TabStop = False
AutoSize = False AutoSize = False
@ -1597,12 +1611,28 @@ object frFacturaProforma: TfrFacturaProforma
Height = 21 Height = 21
Width = 98 Width = 98
end end
object ImporteRE: TcxDBTextEdit
Left = 318
Top = 37
TabStop = False
AutoSize = False
DataBinding.DataField = 'IMPORTERE'
DataBinding.DataSource = dsFactura
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.HotTrack = False
TabOrder = 4
Height = 21
Width = 76
end
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 282 Width = 89
Height = 76 Height = 76
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone

17
Clientes/FacturaProforma.pas
View File

@ -137,6 +137,8 @@ type
Descuento: TcxDBTextEdit; Descuento: TcxDBTextEdit;
IVA: TcxDBTextEdit; IVA: TcxDBTextEdit;
RecargoEquivalencia: TcxDBTextEdit; RecargoEquivalencia: TcxDBTextEdit;
Label4: TLabel;
ImporteRE: TcxDBTextEdit;
procedure bCancelarClick(Sender: TObject); procedure bCancelarClick(Sender: TObject);
procedure bSalirClick(Sender: TObject); procedure bSalirClick(Sender: TObject);
procedure bGuardarClick(Sender: TObject); procedure bGuardarClick(Sender: TObject);
@ -644,6 +646,7 @@ end;
procedure TfrFacturaProforma.CalcularTotalFactura; procedure TfrFacturaProforma.CalcularTotalFactura;
var var
ImporteNeto,
BaseImponible, BaseImponible,
ImporteRE, ImporteRE,
ImporteIVA, ImporteIVA,
@ -651,7 +654,8 @@ var
ImporteTotal : Double; ImporteTotal : Double;
FDetallesBookmark : string; FDetallesBookmark : string;
begin begin
BaseImponible := 0; ImporteNeto := 0; //Total de los articulos
BaseImponible := 0; //Importe neto una vez aplicado el dto
ImporteTotal := 0; ImporteTotal := 0;
with TablaDetallesMem do with TablaDetallesMem do
begin begin
@ -660,15 +664,16 @@ begin
try try
First; First;
while not EOF do begin while not EOF do begin
BaseImponible := BaseImponible + FieldByName('IMPORTETOTAL').AsFloat; ImporteNeto := ImporteNeto + FieldByName('IMPORTETOTAL').AsFloat;
Next; Next;
end; end;
ImporteDto := ImporteNeto * (TablaFacturas.FieldByName('DESCUENTO').AsFloat/100);
BaseImponible := ImporteNeto - ImporteDto;
ImporteRE := BaseImponible * (TablaFacturas.FieldByName('RE').AsFloat/100); ImporteRE := BaseImponible * (TablaFacturas.FieldByName('RE').AsFloat/100);
ImporteDto := BaseImponible * (TablaFacturas.FieldByName('DESCUENTO').AsFloat/100); ImporteIVA := BaseImponible * (TablaFacturas.FieldByName('IVA').AsFloat/100);
ImporteTotal := BaseImponible - ImporteDto; ImporteTotal := BaseImponible + ImporteIVA + ImporteRE;
ImporteIVA := ImporteTotal * (TablaFacturas.FieldByName('IVA').AsFloat/100);
ImporteTotal := ImporteTotal + ImporteIVA + ImporteRE;
TablaFacturas.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible; TablaFacturas.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible;
TablaFacturas.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto; TablaFacturas.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto;

35
Clientes/ImprimirFacturasCliente.dfm
View File

@ -205,60 +205,47 @@ object frImprimirFacturasCliente: TfrImprimirFacturasCliente
object CodCliente: TcxTextEdit object CodCliente: TcxTextEdit
Left = 152 Left = 152
Top = 58 Top = 58
Width = 113 ParentFont = False
Height = 21
Properties.ReadOnly = True Properties.ReadOnly = True
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
TabOrder = 0 TabOrder = 0
Text = 'CodCliente' Text = 'CodCliente'
Width = 113
end end
object NIFCIF: TcxTextEdit object NIFCIF: TcxTextEdit
Left = 323 Left = 323
Top = 58 Top = 58
Width = 121 ParentFont = False
Height = 21
Properties.ReadOnly = True Properties.ReadOnly = True
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
TabOrder = 1 TabOrder = 1
Text = 'NIFCIF' Text = 'NIFCIF'
Width = 121
end end
object FechaFactura: TcxTextEdit object FechaFactura: TcxTextEdit
Left = 323 Left = 323
Top = 34 Top = 34
Width = 121 ParentFont = False
Height = 21
Properties.ReadOnly = True Properties.ReadOnly = True
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
TabOrder = 2 TabOrder = 2
Text = 'FechaFactura' Text = 'FechaFactura'
Width = 121
end end
object Nombre: TcxTextEdit object Nombre: TcxTextEdit
Left = 152 Left = 152
Top = 82 Top = 82
Width = 292 ParentFont = False
Height = 21
Properties.ReadOnly = True Properties.ReadOnly = True
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
TabOrder = 3 TabOrder = 3
Text = 'Nombre' Text = 'Nombre'
Width = 292
end end
object Codigo: TcxButtonEdit object Codigo: TcxButtonEdit
Left = 152 Left = 152
Top = 35 Top = 35
Width = 113 ParentFont = False
Height = 21
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -310,11 +297,9 @@ object frImprimirFacturasCliente: TfrImprimirFacturasCliente
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = CodigoPropertiesButtonClick Properties.OnButtonClick = CodigoPropertiesButtonClick
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
TabOrder = 4 TabOrder = 4
Text = 'Codigo' Text = 'Codigo'
Width = 113
end end
end end
end end

527
Clientes/PresupuestoCliente.dfm
View File

@ -1,8 +1,8 @@
object frPresupuestoCliente: TfrPresupuestoCliente object frPresupuestoCliente: TfrPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 973 Width = 630
Height = 704 Height = 410
Color = 16383743 Color = 16383743
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -17,7 +17,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object pnlTitulo: TRdxPanelTituloOperacion object pnlTitulo: TRdxPanelTituloOperacion
Left = 0 Left = 0
Top = 0 Top = 0
Width = 973 Width = 630
Height = 22 Height = 22
Caption = ' ' Caption = ' '
Color = 11590911 Color = 11590911
@ -30,8 +30,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
end end
object brSalir: TRdxBarraInferior object brSalir: TRdxBarraInferior
Left = 0 Left = 0
Top = 604 Top = 310
Width = 973 Width = 630
Height = 50 Height = 50
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -111,8 +111,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
end end
object brGuardar: TRdxBarraInferior object brGuardar: TRdxBarraInferior
Left = 0 Left = 0
Top = 654 Top = 360
Width = 973 Width = 630
Height = 50 Height = 50
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -265,8 +265,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object pnlCuerpo: TPanel object pnlCuerpo: TPanel
Left = 0 Left = 0
Top = 22 Top = 22
Width = 973 Width = 630
Height = 582 Height = 288
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 10 BorderWidth = 10
@ -275,7 +275,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object pnlFactura: TAdvPanel object pnlFactura: TAdvPanel
Left = 10 Left = 10
Top = 10 Top = 10
Width = 953 Width = 610
Height = 79 Height = 79
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -656,8 +656,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object pnlPaginas: TRdxPanel object pnlPaginas: TRdxPanel
Left = 10 Left = 10
Top = 89 Top = 89
Width = 953 Width = 610
Height = 398 Height = 113
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
ColorHighLight = 8623776 ColorHighLight = 8623776
@ -668,8 +668,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object Paginas: TRdxPagesControl object Paginas: TRdxPagesControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 953 Width = 610
Height = 398 Height = 113
ActivePage = pagContenido ActivePage = pagContenido
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -1244,8 +1244,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object pnlGridArticulos: TPanel object pnlGridArticulos: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 945 Width = 602
Height = 352 Height = 67
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 5 BorderWidth = 5
@ -1255,7 +1255,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object pnlBarraContenido: TRdxPanel object pnlBarraContenido: TRdxPanel
Left = 5 Left = 5
Top = 31 Top = 31
Width = 935 Width = 592
Height = 26 Height = 26
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -1373,8 +1373,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object gridDetalles: TcxGrid object gridDetalles: TcxGrid
Left = 5 Left = 5
Top = 57 Top = 57
Width = 935 Width = 592
Height = 223 Height = 232
Align = alClient Align = alClient
BevelInner = bvNone BevelInner = bvNone
BevelKind = bkFlat BevelKind = bkFlat
@ -1514,7 +1514,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object pnlBarraPropiedades: TRdxPanel object pnlBarraPropiedades: TRdxPanel
Left = 5 Left = 5
Top = 5 Top = 5
Width = 935 Width = 592
Height = 26 Height = 26
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -1752,8 +1752,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
end end
object pnlObservaciones: TRdxPanel object pnlObservaciones: TRdxPanel
Left = 5 Left = 5
Top = 280 Top = -5
Width = 935 Width = 592
Height = 67 Height = 67
Caption = ' ' Caption = ' '
ParentColor = True ParentColor = True
@ -1765,7 +1765,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object Label1: TLabel object Label1: TLabel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 935 Width = 592
Height = 25 Height = 25
Align = alTop Align = alTop
AutoSize = False AutoSize = False
@ -1787,7 +1787,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
TabOrder = 0 TabOrder = 0
OnExit = ObservacionesExit OnExit = ObservacionesExit
Height = 42 Height = 42
Width = 935 Width = 592
end end
end end
end end
@ -1798,8 +1798,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 945 Width = 602
Height = 352 Height = 67
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ParentColor = True ParentColor = True
@ -1808,7 +1808,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 125 Width = 125
Height = 352 Height = 67
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
Caption = ' ' Caption = ' '
@ -1833,8 +1833,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object Panel7: TPanel object Panel7: TPanel
Left = 125 Left = 125
Top = 0 Top = 0
Width = 820 Width = 477
Height = 352 Height = 67
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 10 BorderWidth = 10
@ -1858,8 +1858,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 0 TabOrder = 0
Height = 332 Height = 47
Width = 800 Width = 457
end end
end end
end end
@ -2042,7 +2042,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 125 Width = 125
Height = 352 Height = 67
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
Caption = ' ' Caption = ' '
@ -2067,8 +2067,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object Panel13: TPanel object Panel13: TPanel
Left = 125 Left = 125
Top = 0 Top = 0
Width = 820 Width = 477
Height = 352 Height = 67
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 10 BorderWidth = 10
@ -2092,8 +2092,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 0 TabOrder = 0
Height = 332 Height = 47
Width = 800 Width = 457
end end
end end
end end
@ -2104,7 +2104,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object pnlFormasPago: TPanel object pnlFormasPago: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 945 Width = 602
Height = 100 Height = 100
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -2139,7 +2139,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object RdxPanel5: TPanel object RdxPanel5: TPanel
Left = 125 Left = 125
Top = 0 Top = 0
Width = 820 Width = 477
Height = 100 Height = 100
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
@ -2159,14 +2159,14 @@ object frPresupuestoCliente: TfrPresupuestoCliente
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
TabOrder = 0 TabOrder = 0
Height = 80 Height = 80
Width = 800 Width = 457
end end
end end
end end
object pnlPlazosEntrega: TPanel object pnlPlazosEntrega: TPanel
Left = 0 Left = 0
Top = 100 Top = 100
Width = 945 Width = 602
Height = 100 Height = 100
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -2201,7 +2201,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object Panel3: TPanel object Panel3: TPanel
Left = 125 Left = 125
Top = 0 Top = 0
Width = 820 Width = 477
Height = 100 Height = 100
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
@ -2221,14 +2221,14 @@ object frPresupuestoCliente: TfrPresupuestoCliente
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
TabOrder = 0 TabOrder = 0
Height = 80 Height = 80
Width = 800 Width = 457
end end
end end
end end
object pnlNota: TPanel object pnlNota: TPanel
Left = 0 Left = 0
Top = 200 Top = 200
Width = 945 Width = 602
Height = 100 Height = 100
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -2263,7 +2263,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
object Panel5: TPanel object Panel5: TPanel
Left = 125 Left = 125
Top = 0 Top = 0
Width = 820 Width = 477
Height = 100 Height = 100
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
@ -2283,7 +2283,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
TabOrder = 0 TabOrder = 0
Height = 80 Height = 80
Width = 800 Width = 457
end end
end end
end end
@ -2624,9 +2624,9 @@ object frPresupuestoCliente: TfrPresupuestoCliente
end end
object pnlImportes: TAdvPanel object pnlImportes: TAdvPanel
Left = 10 Left = 10
Top = 487 Top = 202
Width = 953 Width = 610
Height = 85 Height = 76
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
Color = 16383743 Color = 16383743
@ -2704,175 +2704,274 @@ object frPresupuestoCliente: TfrPresupuestoCliente
TopIndent = 0 TopIndent = 0
URLColor = clBlue URLColor = clBlue
FullHeight = 38 FullHeight = 38
object Label7: TLabel object Panel15: TPanel
Left = 66 Left = 116
Top = 13 Top = 0
Width = 74 Width = 494
Height = 13 Height = 76
Caption = 'Descuento(%):' Align = alRight
Font.Charset = DEFAULT_CHARSET BevelOuter = bvNone
Font.Color = clWindowText BorderWidth = 5
Font.Height = -11 ParentColor = True
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 228
Top = 13
Width = 40
Height = 13
Alignment = taRightJustify
Caption = 'IVA(%):'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 22
Top = 39
Width = 70
Height = 13
Alignment = taRightJustify
Caption = 'Base imponible'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 133
Top = 39
Width = 72
Height = 13
Alignment = taRightJustify
Caption = 'Importe de dto'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 228
Top = 39
Width = 73
Height = 13
Alignment = taRightJustify
Caption = 'Importe de IVA'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 338
Top = 39
Width = 77
Height = 13
Alignment = taRightJustify
Caption = 'Importe total'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Descuento: TcxDBTextEdit
Left = 145
Top = 9
DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsPresupuesto
ParentFont = False
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
TabOrder = 0 TabOrder = 0
Width = 57 object RdxPanel1: TRdxPanel
Left = 5
Top = 5
Width = 484
Height = 66
BorderStyle = bsSingle
Caption = ' '
BorderWidth = 1
Color = 15726583
ColorHighLight = 8623776
ColorShadow = 8623776
Align = alClient
TabOrder = 0
UseDockManager = True
object Label5: TLabel
Left = 135
Top = 10
Width = 70
Height = 13
Alignment = taRightJustify
Caption = 'Base imponible'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 400
Top = 10
Width = 77
Height = 13
Alignment = taRightJustify
Caption = 'Importe total'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 29
Top = 10
Width = 76
Height = 13
Alignment = taRightJustify
Caption = 'Importe de dto.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 234
Top = 10
Width = 73
Height = 13
Alignment = taRightJustify
Caption = 'Importe de IVA'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Shape2: TShape
Left = 16
Top = 29
Width = 465
Height = 1
end
object Label7: TLabel
Left = 319
Top = 10
Width = 69
Height = 13
Alignment = taRightJustify
Caption = 'Importe de RE'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object BaseImponible: TcxDBTextEdit
Left = 95
Top = 37
TabStop = False
AutoSize = False
DataBinding.DataField = 'BASEIMPONIBLE'
DataBinding.DataSource = dsPresupuesto
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.HotTrack = False
TabOrder = 0
Height = 21
Width = 110
end
object ImporteDescuento: TcxDBTextEdit
Left = 26
Top = 37
TabStop = False
AutoSize = False
DataBinding.DataField = 'IMPORTEDESCUENTO'
DataBinding.DataSource = dsPresupuesto
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.HotTrack = False
TabOrder = 1
Height = 21
Width = 79
end
object ImporteIVA: TcxDBTextEdit
Left = 231
Top = 37
TabStop = False
AutoSize = False
DataBinding.DataField = 'IMPORTEIVA'
DataBinding.DataSource = dsPresupuesto
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.HotTrack = False
TabOrder = 2
Height = 21
Width = 76
end
object ImporteTotal: TcxDBTextEdit
Left = 380
Top = 37
TabStop = False
AutoSize = False
DataBinding.DataField = 'IMPORTETOTAL'
DataBinding.DataSource = dsPresupuesto
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = [fsBold]
Style.HotTrack = False
Style.IsFontAssigned = True
TabOrder = 3
Height = 21
Width = 98
end
object ImporteRE: TcxDBTextEdit
Left = 312
Top = 37
TabStop = False
AutoSize = False
DataBinding.DataField = 'IMPORTERE'
DataBinding.DataSource = dsPresupuesto
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Style.BorderStyle = ebsNone
Style.Color = 15726583
Style.HotTrack = False
TabOrder = 4
Height = 21
Width = 76
end
end
end end
object IVA: TcxDBTextEdit object Panel16: TPanel
Left = 271 Left = 0
Top = 9 Top = 0
DataBinding.DataField = 'IVA' Width = 116
DataBinding.DataSource = dsPresupuesto Height = 76
ParentFont = False Align = alClient
Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro Alignment = taLeftJustify
BevelOuter = bvNone
ParentColor = True
TabOrder = 1 TabOrder = 1
Width = 57 object Label8: TLabel
end Left = 8
object BaseImponible: TcxDBTextEdit Top = 50
Left = 2 Width = 74
Top = 59 Height = 13
TabStop = False Caption = 'Descuento(%):'
DataBinding.DataField = 'BASEIMPONIBLE' Font.Charset = DEFAULT_CHARSET
DataBinding.DataSource = dsPresupuesto Font.Color = clWindowText
Properties.Alignment.Horz = taRightJustify Font.Height = -11
Properties.AutoSelect = False Font.Name = 'Tahoma'
Properties.ReadOnly = True Font.Style = []
Style.BorderStyle = ebsNone ParentFont = False
Style.Color = 15726583 end
Style.HotTrack = False object Label12: TLabel
TabOrder = 2 Left = 157
Width = 90 Top = 50
end Width = 40
object ImporteDescuento: TcxDBTextEdit Height = 13
Left = 115 Alignment = taRightJustify
Top = 59 Caption = 'IVA(%):'
TabStop = False Font.Charset = DEFAULT_CHARSET
DataBinding.DataField = 'IMPORTEDESCUENTO' Font.Color = clWindowText
DataBinding.DataSource = dsPresupuesto Font.Height = -11
Properties.Alignment.Horz = taRightJustify Font.Name = 'Tahoma'
Properties.AutoSelect = False Font.Style = []
Properties.ReadOnly = True ParentFont = False
Style.BorderStyle = ebsNone end
Style.Color = 15726583 object cbRecargoEquivalencia: TcxCheckBox
Style.HotTrack = False Left = 8
TabOrder = 3 Top = 14
Width = 90 Caption = 'Acogido al recargo de equivalencia'
end ParentColor = False
object ImporteIVA: TcxDBTextEdit ParentFont = False
Left = 211 Properties.NullStyle = nssUnchecked
Top = 59 Properties.OnChange = cbRecargoEquivalenciaPropertiesChange
TabStop = False Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
DataBinding.DataField = 'IMPORTEIVA' TabOrder = 0
DataBinding.DataSource = dsPresupuesto Width = 193
Properties.Alignment.Horz = taRightJustify end
Properties.AutoSelect = False object Descuento: TcxDBTextEdit
Properties.ReadOnly = True Left = 85
Style.BorderStyle = ebsNone Top = 46
Style.Color = 15726583 DataBinding.DataField = 'DESCUENTO'
Style.HotTrack = False DataBinding.DataSource = dsPresupuesto
TabOrder = 4 ParentFont = False
Width = 90 Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
end TabOrder = 1
object ImporteTotal: TcxDBTextEdit Width = 57
Left = 325 end
Top = 59 object IVA: TcxDBTextEdit
TabStop = False Left = 203
DataBinding.DataField = 'IMPORTETOTAL' Top = 46
DataBinding.DataSource = dsPresupuesto DataBinding.DataField = 'IVA'
ParentFont = False DataBinding.DataSource = dsPresupuesto
Properties.Alignment.Horz = taRightJustify ParentFont = False
Properties.AutoSelect = False Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
Properties.ReadOnly = True TabOrder = 2
Style.BorderStyle = ebsNone Width = 57
Style.Color = 15726583 end
Style.Font.Charset = DEFAULT_CHARSET object RecargoEquivalencia: TcxDBTextEdit
Style.Font.Color = clWindowText Left = 203
Style.Font.Height = -11 Top = 14
Style.Font.Name = 'Tahoma' DataBinding.DataField = 'RE'
Style.Font.Style = [fsBold] DataBinding.DataSource = dsPresupuesto
Style.HotTrack = False ParentFont = False
Style.IsFontAssigned = True Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
TabOrder = 5 TabOrder = 3
Width = 90 Width = 57
end
end end
end end
end end

101
Clientes/PresupuestoCliente.pas
View File

@ -61,7 +61,7 @@ uses
SysUtils, JvExMask, JvToolEdit, ShlObj, cxShellCommon, cxShellListView, SysUtils, JvExMask, JvToolEdit, ShlObj, cxShellCommon, cxShellListView,
JvComponent, JvChangeNotify, JvExForms, JvBaseThumbnail, JvThumbViews, JvComponent, JvChangeNotify, JvExForms, JvBaseThumbnail, JvThumbViews,
JvExComCtrls, JvComCtrls, JvComponentBase, cxRichEdit, cxDBRichEdit, JvExComCtrls, JvComCtrls, JvComponentBase, cxRichEdit, cxDBRichEdit,
ToolWin, ImgList; ToolWin, ImgList, cxCheckBox;
type type
TfrPresupuestoCliente = class(TRdxFramePresupuestos) TfrPresupuestoCliente = class(TRdxFramePresupuestos)
@ -108,7 +108,6 @@ type
FormasPago: TcxDBMemo; FormasPago: TcxDBMemo;
dsPropiedadesPresupuesto: TDataSource; dsPropiedadesPresupuesto: TDataSource;
eDocumento: TLabel; eDocumento: TLabel;
pnlImportes: TAdvPanel;
pagDesgloses: TTabSheet; pagDesgloses: TTabSheet;
pagDocumentos: TTabSheet; pagDocumentos: TTabSheet;
eVigencia: TLabel; eVigencia: TLabel;
@ -123,10 +122,6 @@ type
TablaValores: TIBQuery; TablaValores: TIBQuery;
dsValores: TDataSource; dsValores: TDataSource;
dsPropiedades: TDataSource; dsPropiedades: TDataSource;
Label7: TLabel;
Descuento: TcxDBTextEdit;
Label8: TLabel;
IVA: TcxDBTextEdit;
actAnadirPropiedad: TAction; actAnadirPropiedad: TAction;
actEliminarPropiedad: TAction; actEliminarPropiedad: TAction;
pnlBarraPropiedades: TRdxPanel; pnlBarraPropiedades: TRdxPanel;
@ -143,14 +138,6 @@ type
DBEdit1: TDBEdit; DBEdit1: TDBEdit;
DBEdit2: TDBEdit; DBEdit2: TDBEdit;
pnlGrid: TRdxPanel; pnlGrid: TRdxPanel;
Label5: TLabel;
Label10: TLabel;
Label11: TLabel;
Label9: TLabel;
BaseImponible: TcxDBTextEdit;
ImporteDescuento: TcxDBTextEdit;
ImporteIVA: TcxDBTextEdit;
ImporteTotal: TcxDBTextEdit;
eSeccion: TLabel; eSeccion: TLabel;
Seccion: TcxComboBox; Seccion: TcxComboBox;
pnlObservaciones: TRdxPanel; pnlObservaciones: TRdxPanel;
@ -239,6 +226,27 @@ type
RdxBoton6: TRdxBoton; RdxBoton6: TRdxBoton;
bEliminarTodoFiltrado: TRdxBoton; bEliminarTodoFiltrado: TRdxBoton;
actEliminarTodoPropiedad: TAction; actEliminarTodoPropiedad: TAction;
pnlImportes: TAdvPanel;
Panel15: TPanel;
RdxPanel1: TRdxPanel;
Label5: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Shape2: TShape;
Label7: TLabel;
BaseImponible: TcxDBTextEdit;
ImporteDescuento: TcxDBTextEdit;
ImporteIVA: TcxDBTextEdit;
ImporteTotal: TcxDBTextEdit;
ImporteRE: TcxDBTextEdit;
Panel16: TPanel;
Label8: TLabel;
Label12: TLabel;
cbRecargoEquivalencia: TcxCheckBox;
Descuento: TcxDBTextEdit;
IVA: TcxDBTextEdit;
RecargoEquivalencia: TcxDBTextEdit;
procedure bSalirClick(Sender: TObject); procedure bSalirClick(Sender: TObject);
procedure bGuardarClick(Sender: TObject); procedure bGuardarClick(Sender: TObject);
procedure bCancelarClick(Sender: TObject); procedure bCancelarClick(Sender: TObject);
@ -302,6 +310,7 @@ type
procedure actAnadirPlanoUpdate(Sender: TObject); procedure actAnadirPlanoUpdate(Sender: TObject);
procedure actEliminarTodoPropiedadExecute(Sender: TObject); procedure actEliminarTodoPropiedadExecute(Sender: TObject);
procedure actEliminarTodoPropiedadUpdate(Sender: TObject); procedure actEliminarTodoPropiedadUpdate(Sender: TObject);
procedure cbRecargoEquivalenciaPropertiesChange(Sender: TObject);
private private
FRootDocumentos: Variant; FRootDocumentos: Variant;
FRootPlanos: Variant; FRootPlanos: Variant;
@ -351,6 +360,7 @@ type
procedure ProvinciaSetText(Sender: TField; const Text: String); procedure ProvinciaSetText(Sender: TField; const Text: String);
procedure IVASetText(Sender: TField; const Text: String); procedure IVASetText(Sender: TField; const Text: String);
procedure DtoSetText(Sender: TField; const Text: String); procedure DtoSetText(Sender: TField; const Text: String);
procedure RESetText(Sender: TField; const Text: String);
procedure CodigoArticuloDetalleSetText(Sender: TField; const Text: String); procedure CodigoArticuloDetalleSetText(Sender: TField; const Text: String);
procedure ReferenciaArticuloDetalleSetText(Sender: TField; const Text: String); procedure ReferenciaArticuloDetalleSetText(Sender: TField; const Text: String);
procedure CantidadDetalleSetText(Sender: TField; const Text: String); procedure CantidadDetalleSetText(Sender: TField; const Text: String);
@ -442,6 +452,8 @@ begin
CodCliente.Properties.Buttons[0].Visible := True; CodCliente.Properties.Buttons[0].Visible := True;
Poblacion.Properties.Buttons[0].Visible := True; Poblacion.Properties.Buttons[0].Visible := True;
Provincia.Properties.Buttons[0].Visible := True; Provincia.Properties.Buttons[0].Visible := True;
cbRecargoEquivalencia.Checked := False;
RecargoEquivalencia.Enabled := False;
DesactivarEventosCampos; DesactivarEventosCampos;
try try
@ -499,6 +511,8 @@ begin
dmTablaPresupuestos.InicializarTablaPresupuestos(@TablaPresupuestos); dmTablaPresupuestos.InicializarTablaPresupuestos(@TablaPresupuestos);
dmTablaPresupuestos.InicializarTablaDetalles(@TablaDetallesMem); dmTablaPresupuestos.InicializarTablaDetalles(@TablaDetallesMem);
cbRecargoEquivalencia.Properties.ReadOnly := False;
ActivarEdicionGridDetalles(VistaDetalles); ActivarEdicionGridDetalles(VistaDetalles);
cbxDocumento.DataBinding.Field.AsString := dmTablaDocumentos.DarCodigoDocumento(Entidad); cbxDocumento.DataBinding.Field.AsString := dmTablaDocumentos.DarCodigoDocumento(Entidad);
CargarDatosDocumento(cbxDocumento.DataBinding.Field.AsString); CargarDatosDocumento(cbxDocumento.DataBinding.Field.AsString);
@ -632,6 +646,9 @@ begin
else else
DeshabilitarPlanos; DeshabilitarPlanos;
end;} end;}
cbRecargoEquivalencia.Checked := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
RecargoEquivalencia.Enabled := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
cbRecargoEquivalencia.Properties.ReadOnly := True;
FechaPresupuesto.SetFocus; FechaPresupuesto.SetFocus;
except except
@ -709,6 +726,10 @@ begin
DeshabilitarPlanos; DeshabilitarPlanos;
end;} end;}
cbRecargoEquivalencia.Checked := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
RecargoEquivalencia.Enabled := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
cbRecargoEquivalencia.Properties.ReadOnly := True;
except except
on E : EIBError do on E : EIBError do
TratarExcepcion(E); TratarExcepcion(E);
@ -771,6 +792,10 @@ begin
end; end;
end; end;
cbRecargoEquivalencia.Checked := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
RecargoEquivalencia.Enabled := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
cbRecargoEquivalencia.Properties.ReadOnly := False;
ActivarEventosCampos; ActivarEventosCampos;
ConfigurarPantallaDocumento; ConfigurarPantallaDocumento;
Visible := True; Visible := True;
@ -962,13 +987,16 @@ end;
procedure TfrPresupuestoCliente.CalcularTotalPresupuesto; procedure TfrPresupuestoCliente.CalcularTotalPresupuesto;
var var
ImporteNeto,
BaseImponible, BaseImponible,
ImporteIVA, ImporteIVA,
ImporteRE,
ImporteDto, ImporteDto,
ImporteTotal : Double; ImporteTotal : Double;
FDetallesBookmark : string; FDetallesBookmark : string;
begin begin
BaseImponible := 0; ImporteNeto := 0; //Total de los articulos
BaseImponible := 0; //Importe neto una vez aplicado el dto
ImporteTotal := 0; ImporteTotal := 0;
with TablaDetallesMem do with TablaDetallesMem do
begin begin
@ -977,19 +1005,22 @@ begin
try try
First; First;
while not EOF do begin while not EOF do begin
BaseImponible := BaseImponible + FieldByName('IMPORTETOTAL').AsFloat; ImporteNeto := ImporteNeto + FieldByName('IMPORTETOTAL').AsFloat;
Next; Next;
end; end;
ImporteDto := BaseImponible * (TablaPresupuestos.FieldByName('DESCUENTO').AsFloat/100); ImporteDto := ImporteNeto * (TablaPresupuestos.FieldByName('DESCUENTO').AsFloat/100);
ImporteTotal := BaseImponible - ImporteDto; BaseImponible := ImporteNeto - ImporteDto;
ImporteIVA := ImporteTotal * (TablaPresupuestos.FieldByName('IVA').AsFloat/100);
ImporteTotal := ImporteTotal + ImporteIVA; ImporteRE := BaseImponible * (TablaPresupuestos.FieldByName('RE').AsFloat/100);
ImporteIVA := BaseImponible * (TablaPresupuestos.FieldByName('IVA').AsFloat/100);
ImporteTotal := BaseImponible + ImporteIVA + ImporteRE;
TablaPresupuestos.Edit; TablaPresupuestos.Edit;
TablaPresupuestos.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible; TablaPresupuestos.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible;
TablaPresupuestos.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto; TablaPresupuestos.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto;
TablaPresupuestos.FieldByName('IMPORTEIVA').AsFloat := ImporteIVA; TablaPresupuestos.FieldByName('IMPORTEIVA').AsFloat := ImporteIVA;
TablaPresupuestos.FieldByName('IMPORTERE').AsFloat := ImporteRE;
TablaPresupuestos.FieldByName('IMPORTETOTAL').AsFloat := ImporteTotal; TablaPresupuestos.FieldByName('IMPORTETOTAL').AsFloat := ImporteTotal;
finally finally
Bookmark := FDetallesBookmark; Bookmark := FDetallesBookmark;
@ -1618,11 +1649,14 @@ end;
procedure TfrPresupuestoCliente.ActivarEventosCampos; procedure TfrPresupuestoCliente.ActivarEventosCampos;
begin begin
cbRecargoEquivalencia.Properties.OnChange := cbRecargoEquivalenciaPropertiesChange;
with TablaPresupuestos do with TablaPresupuestos do
begin begin
FieldByName('CODIGOCLIENTE').OnSetText := CodCliSetText; FieldByName('CODIGOCLIENTE').OnSetText := CodCliSetText;
FieldByName('IVA').OnSetText := IVASetText; FieldByName('IVA').OnSetText := IVASetText;
FieldByName('DESCUENTO').OnSetText := DtoSetText; FieldByName('DESCUENTO').OnSetText := DtoSetText;
FieldByName('RE').OnSetText := RESetText;
end; end;
with TablaDetallesMem do with TablaDetallesMem do
@ -2116,6 +2150,8 @@ end;
procedure TfrPresupuestoCliente.DesactivarEventosCampos; procedure TfrPresupuestoCliente.DesactivarEventosCampos;
begin begin
cbRecargoEquivalencia.Properties.OnChange := NIL;
with TablaPresupuestos do with TablaPresupuestos do
begin begin
if FindField('CODIGOCLIENTE') <> NIL then if FindField('CODIGOCLIENTE') <> NIL then
@ -2124,6 +2160,8 @@ begin
FieldByName('IVA').OnSetText := NIL; FieldByName('IVA').OnSetText := NIL;
if FindField('DESCUENTO') <> NIL then if FindField('DESCUENTO') <> NIL then
FieldByName('DESCUENTO').OnSetText := NIL; FieldByName('DESCUENTO').OnSetText := NIL;
if FindField('RE') <> NIL then
FieldByName('RE').OnSetText := NIL;
end; end;
with TablaDetallesMem do with TablaDetallesMem do
@ -3032,5 +3070,28 @@ begin
(Sender as TAction).Enabled := not (VistaPropiedades.ViewData.RecordCount = 0); (Sender as TAction).Enabled := not (VistaPropiedades.ViewData.RecordCount = 0);
end; end;
procedure TfrPresupuestoCliente.cbRecargoEquivalenciaPropertiesChange(
Sender: TObject);
begin
RecargoEquivalencia.Enabled := cbRecargoEquivalencia.Checked;
if not cbRecargoEquivalencia.Checked then
begin
RecargoEquivalencia.DataBinding.Field.Value := Null;
CalcularTotalPresupuesto;
end;
end;
procedure TfrPresupuestoCliente.RESetText(Sender: TField;
const Text: String);
begin
if EsCadenaVacia(Text) then
Sender.AsString := '0'
else begin
ValidarDto(Text);
Sender.AsString := Text;
end;
CalcularTotalPresupuesto;
end;
end. end.

6
Factuges.dof
View File

@ -114,7 +114,7 @@ IncludeVerInfo=1
AutoIncBuild=0 AutoIncBuild=0
MajorVer=3 MajorVer=3
MinorVer=2 MinorVer=2
Release=6 Release=7
Build=0 Build=0
Debug=0 Debug=0
PreRelease=0 PreRelease=0
@ -126,13 +126,13 @@ CodePage=1252
[Version Info Keys] [Version Info Keys]
CompanyName= CompanyName=
FileDescription= FileDescription=
FileVersion=3.2.6.0 FileVersion=3.2.7.0
InternalName= InternalName=
LegalCopyright= LegalCopyright=
LegalTrademarks= LegalTrademarks=
OriginalFilename= OriginalFilename=
ProductName= ProductName=
ProductVersion=3.2.6.0 ProductVersion=3.2.7.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc. C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.

229
Factuges.dsk
View File

@ -1,20 +1,83 @@
[Closed Files] [Closed Files]
File_0=SourceModule,'C:\Codigo Abeto\Libreria\Literales.pas',0,1,10,51,34,0,0 File_0=SourceModule,'C:\Codigo Abeto\Libreria\Literales.pas',0,1,10,51,34,0,0
File_1=SourceModule,'c:\archivos de programa\borland\delphi7\source\rtl\common\ComObj.pas',0,1,1256,1,1269,0,0 File_1=SourceModule,'c:\archivos de programa\borland\delphi7\source\rtl\common\ComObj.pas',0,1,1256,1,1269,0,0
File_2=SourceModule,'C:\Codigo Abeto\Informes\InformeBase.pas',0,1,46,15,46,1,0 File_2=SourceModule,'C:\Codigo Abeto\Informes\InformePresupuestoCliente.pas',0,1,43,1,56,1,0
File_3=SourceModule,'C:\Codigo Abeto\Informes\InformeFacturaCliente.pas',0,1,31,1,43,0,0 File_3=SourceModule,'C:\Codigo Abeto\Principal.pas',0,1,363,2,385,1,0
File_4=SourceModule,'C:\Codigo Abeto\Informes\InformePresupuestoCliente.pas',0,1,43,1,56,1,0 File_4=SourceModule,'C:\Codigo Abeto\Libreria\RdxEmpresaActiva.pas',0,1,1,1,1,0,0
File_5=SourceModule,'C:\Codigo Abeto\Principal.pas',0,1,363,2,385,1,0 File_5=SourceModule,'C:\Codigo Abeto\BaseDatos\TablaEmpresas.pas',0,1,379,1,390,0,0
File_6=SourceModule,'C:\Codigo Abeto\Libreria\RdxEmpresaActiva.pas',0,1,1,1,1,0,0 File_6=SourceModule,'C:\Codigo Abeto\Informes\InformeAlbaranCliente.pas',0,1,51,38,68,0,0
File_7=SourceModule,'C:\Codigo Abeto\BaseDatos\TablaEmpresas.pas',0,1,379,1,390,0,0
File_8=SourceModule,'C:\Codigo Abeto\Informes\InformeAlbaranCliente.pas',0,1,51,38,68,0,0
File_9=SourceModule,'C:\Codigo Abeto\Informes\InformeContratoCliente.pas',0,1,45,1,58,0,0
[Modules] [Modules]
Module0=C:\Codigo Abeto\Factuges.dpr Module0=C:\Codigo Abeto\Informes\InformeFacturaCliente.pas
Count=1 Module1=C:\Codigo Abeto\Clientes\ContratoCliente.pas
Module2=C:\Codigo Abeto\Informes\InformeContratoCliente.pas
Module3=C:\Codigo Abeto\Clientes\FacturaProforma.pas
Module4=C:\Codigo Abeto\Clientes\PresupuestoCliente.pas
Module5=C:\Codigo Abeto\Clientes\FacturaCliente.pas
Module6=C:\Codigo Abeto\BaseDatos\TablaPresupuestos.pas
Module7=C:\Codigo Abeto\BaseDatos\TablaFacturasCliente.pas
Module8=C:\Codigo Abeto\Clientes\ImprimirFacturasCliente.pas
Module9=C:\Codigo Abeto\Informes\InformeTrimestralVentas.pas
Module10=C:\Codigo Abeto\BaseDatos\TablaContratos.pas
Module11=C:\Codigo Abeto\Factuges.dpr
Count=12
EditWindowCount=1 EditWindowCount=1
[C:\Codigo Abeto\Informes\InformeFacturaCliente.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=0
[C:\Codigo Abeto\Clientes\ContratoCliente.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=0
[C:\Codigo Abeto\Informes\InformeContratoCliente.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=1
[C:\Codigo Abeto\Clientes\FacturaProforma.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=0
[C:\Codigo Abeto\Clientes\PresupuestoCliente.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=0
[C:\Codigo Abeto\Clientes\FacturaCliente.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=0
[C:\Codigo Abeto\BaseDatos\TablaPresupuestos.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=0
[C:\Codigo Abeto\BaseDatos\TablaFacturasCliente.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=0
[C:\Codigo Abeto\Clientes\ImprimirFacturasCliente.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=0
[C:\Codigo Abeto\Informes\InformeTrimestralVentas.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=1
[C:\Codigo Abeto\BaseDatos\TablaContratos.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0
[C:\Codigo Abeto\Factuges.dpr] [C:\Codigo Abeto\Factuges.dpr]
ModuleType=SourceModule ModuleType=SourceModule
FormState=0 FormState=0
@ -24,32 +87,51 @@ FormOnTop=0
FormState=0 FormState=0
FormOnTop=0 FormOnTop=0
[C:\Codigo Abeto\Informes\InformeBase.pas]
FormState=0
FormOnTop=0
[C:\Codigo Abeto\Libreria\Configuracion.pas]
FormState=0
FormOnTop=0
[C:\Codigo Abeto\Frames\RdxFrame.pas] [C:\Codigo Abeto\Frames\RdxFrame.pas]
FormState=0 FormState=0
FormOnTop=0 FormOnTop=0
[EditWindow0] [EditWindow0]
ViewCount=1 ViewCount=12
CurrentView=0 CurrentView=7
View0=0 View0=0
View1=1
View2=2
View3=3
View4=4
View5=5
View6=6
View7=7
View8=8
View9=9
View10=10
View11=11
CodeExplorer=CodeExplorer@EditWindow0 CodeExplorer=CodeExplorer@EditWindow0
MessageView=MessageView@EditWindow0 MessageView=MessageView@EditWindow0
Create=1 Create=1
Visible=1 Visible=1
State=0 State=0
Left=447 Left=437
Top=139 Top=118
Width=1219 Width=1244
Height=720 Height=872
MaxLeft=-1 MaxLeft=-4
MaxTop=-1 MaxTop=104
ClientWidth=1211 ClientWidth=1236
ClientHeight=686 ClientHeight=838
LeftPanelSize=140 LeftPanelSize=140
LeftPanelClients=CodeExplorer@EditWindow0 LeftPanelClients=CodeExplorer@EditWindow0
LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
RightPanelSize=0 RightPanelSize=0
BottomPanelSize=158 BottomPanelSize=249
BottomPanelClients=MessageView@EditWindow0 BottomPanelClients=MessageView@EditWindow0
BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
@ -60,13 +142,90 @@ CursorY=1
TopLine=1 TopLine=1
LeftCol=1 LeftCol=1
[View1]
Module=C:\Codigo Abeto\BaseDatos\TablaPresupuestos.pas
CursorX=16
CursorY=768
TopLine=777
LeftCol=1
[View2]
Module=C:\Codigo Abeto\Clientes\FacturaCliente.pas
CursorX=67
CursorY=776
TopLine=764
LeftCol=1
[View3]
Module=C:\Codigo Abeto\Clientes\FacturaProforma.pas
CursorX=1
CursorY=657
TopLine=668
LeftCol=1
[View4]
Module=C:\Codigo Abeto\Informes\InformeTrimestralVentas.pas
CursorX=70
CursorY=134
TopLine=119
LeftCol=1
[View5]
Module=C:\Codigo Abeto\Clientes\PresupuestoCliente.pas
CursorX=24
CursorY=1023
TopLine=1009
LeftCol=1
[View6]
Module=C:\Codigo Abeto\Clientes\ImprimirFacturasCliente.pas
CursorX=34
CursorY=9
TopLine=22
LeftCol=1
[View7]
Module=C:\Codigo Abeto\Informes\InformeFacturaCliente.pas
CursorX=1
CursorY=1
TopLine=1
LeftCol=1
[View8]
Module=C:\Codigo Abeto\Informes\InformeContratoCliente.pas
CursorX=87
CursorY=14
TopLine=217
LeftCol=1
[View9]
Module=C:\Codigo Abeto\Clientes\ContratoCliente.pas
CursorX=44
CursorY=902
TopLine=888
LeftCol=1
[View10]
Module=C:\Codigo Abeto\BaseDatos\TablaContratos.pas
CursorX=1
CursorY=1
TopLine=1
LeftCol=1
[View11]
Module=C:\Codigo Abeto\BaseDatos\TablaFacturasCliente.pas
CursorX=14
CursorY=103
TopLine=184
LeftCol=1
[Watches] [Watches]
Count=2 Count=2
Watch0='EmpresaActiva.Restricciones.strings[1]',256,0,18,1,0,'Watches' Watch0='EmpresaActiva.Restricciones.strings[1]',256,0,18,1,0,'Watches'
Watch1='EmpresaActiva.Restricciones.strings[0]',256,0,18,1,0,'Watches' Watch1='EmpresaActiva.Restricciones.strings[0]',256,0,18,1,0,'Watches'
[WatchWindow] [WatchWindow]
WatchColumnWidth=235 WatchColumnWidth=100
WatchShowColumnHeaders=1 WatchShowColumnHeaders=1
Create=1 Create=1
Visible=1 Visible=1
@ -95,13 +254,13 @@ Visible=1
State=2 State=2
Left=0 Left=0
Top=0 Top=0
Width=1676 Width=1680
Height=112 Height=112
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
MaxWidth=1684 MaxWidth=1688
MaxHeight=112 MaxHeight=112
ClientWidth=1676 ClientWidth=1680
ClientHeight=78 ClientHeight=78
[ProjectManager] [ProjectManager]
@ -183,7 +342,7 @@ LRDockWidth=317
Dockable=1 Dockable=1
SplitPos=201 SplitPos=201
ArrangeBy=Name ArrangeBy=Name
SelectedItem= SelectedItem=Name
ExpandedItems=ActiveTranslateStringEngine,Anchors,AppStorage,BevelEdges,Brush,Constraints,DataBinding,DataController,DataController.Filter,DataController.Options,DataController.Summary,DataController.Summary.Options,Filtering,HTTPOptions,LookAndFeel.AssignedValues,NavigatorButtons.Cancel,NavigatorButtons.Delete,NavigatorButtons.Edit,Options,OptionsBehavior,OptionsData,OptionsSelection,OptionsView,Preview,Properties,Properties.Alignment,Properties.SpinButtons,StorageOptions,Style,Styles,VertScrollBar ExpandedItems=ActiveTranslateStringEngine,Anchors,AppStorage,BevelEdges,Brush,Constraints,DataBinding,DataController,DataController.Filter,DataController.Options,DataController.Summary,DataController.Summary.Options,Filtering,HTTPOptions,LookAndFeel.AssignedValues,NavigatorButtons.Cancel,NavigatorButtons.Delete,NavigatorButtons.Edit,Options,OptionsBehavior,OptionsData,OptionsSelection,OptionsView,Preview,Properties,Properties.Alignment,Properties.SpinButtons,StorageOptions,Style,Styles,VertScrollBar
HiddenCategories= HiddenCategories=
@ -321,8 +480,8 @@ ShowChecked=1
Create=1 Create=1
Visible=0 Visible=0
State=0 State=0
Left=419 Left=360
Top=319 Top=259
Width=457 Width=457
Height=250 Height=250
MaxLeft=-1 MaxLeft=-1
@ -376,11 +535,11 @@ State=0
Left=0 Left=0
Top=12 Top=12
Width=140 Width=140
Height=513 Height=574
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=140 ClientWidth=140
ClientHeight=513 ClientHeight=574
TBDockHeight=305 TBDockHeight=305
LRDockWidth=140 LRDockWidth=140
Dockable=1 Dockable=1
@ -391,13 +550,13 @@ Visible=1
State=0 State=0
Left=12 Left=12
Top=0 Top=0
Width=1199 Width=1224
Height=158 Height=249
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=1199 ClientWidth=1224
ClientHeight=158 ClientHeight=249
TBDockHeight=158 TBDockHeight=249
LRDockWidth=443 LRDockWidth=443
Dockable=1 Dockable=1

BIN
Factuges.res
View File

Binary file not shown.

4
Informes/InformeBase.dfm
View File

@ -1,7 +1,7 @@
object dmInformeBase: TdmInformeBase object dmInformeBase: TdmInformeBase
OldCreateOrder = False OldCreateOrder = False
Left = 845 Left = 837
Top = 400 Top = 406
Height = 246 Height = 246
Width = 321 Width = 321
object FReport: TfrReport object FReport: TfrReport

4
Informes/InformeContratoCliente.dfm
View File

@ -1,7 +1,7 @@
inherited dmInformeContratoCliente: TdmInformeContratoCliente inherited dmInformeContratoCliente: TdmInformeContratoCliente
OldCreateOrder = True OldCreateOrder = True
Left = 464 Left = 242
Top = 265 Top = 64
Height = 416 Height = 416
Width = 548 Width = 548
inherited FReport: TfrReport inherited FReport: TfrReport

4
Informes/InformeFacturaCliente.dfm
View File

@ -1,7 +1,7 @@
inherited dmInformeFacturaCliente: TdmInformeFacturaCliente inherited dmInformeFacturaCliente: TdmInformeFacturaCliente
OldCreateOrder = True OldCreateOrder = True
Left = 569 Left = 572
Top = 300 Top = 306
Width = 344 Width = 344
inherited FReport: TfrReport inherited FReport: TfrReport
Dataset = TablaCab Dataset = TablaCab

4
Informes/InformeTrimestralVentas.dfm
View File

@ -1,7 +1,7 @@
inherited dmInformeTrimestralVentas: TdmInformeTrimestralVentas inherited dmInformeTrimestralVentas: TdmInformeTrimestralVentas
OldCreateOrder = True OldCreateOrder = True
Left = 715 Left = 719
Top = 174 Top = 180
Width = 344 Width = 344
inherited FReport: TfrReport inherited FReport: TfrReport
Dataset = TablaCab Dataset = TablaCab

BIN
Libreria/Configuracion.dfm
View File

Binary file not shown.

BIN
Temp/Factuges.exe
View File

Binary file not shown.

BIN
Temp/Informes/ContratoArmarios(Con logo).frf
View File

Binary file not shown.

BIN
Temp/Informes/ContratoArmarios.frf
View File

Binary file not shown.

BIN
Temp/Informes/ContratoBano(Con logo).frf
View File

Binary file not shown.

BIN
Temp/Informes/ContratoBano.frf
View File

Binary file not shown.

BIN
Temp/Informes/ContratoCliente(Con logo).frf
View File

Binary file not shown.

BIN
Temp/Informes/ContratoCliente.frf
View File

Binary file not shown.

BIN
Temp/Informes/ContratoCocina(Con logo).frf
View File

Binary file not shown.

BIN
Temp/Informes/ContratoCocina.frf
View File

Binary file not shown.

BIN
Temp/Informes/FacturaCliente(Con logo).frf
View File

Binary file not shown.

BIN
Temp/Informes/FacturaCliente.frf
View File

Binary file not shown.

BIN
Temp/Informes/PresupuestoArmarios(Con logo).frf
View File

Binary file not shown.

BIN
Temp/Informes/PresupuestoArmarios.frf
View File

Binary file not shown.

BIN
Temp/Informes/PresupuestoBano(Con logo).frf
View File

Binary file not shown.

BIN
Temp/Informes/PresupuestoBano.frf
View File

Binary file not shown.

BIN
Temp/Informes/PresupuestoCliente(Con logo).frf
View File

Binary file not shown.

BIN
Temp/Informes/PresupuestoCliente.frf
View File

Binary file not shown.

BIN
bd/ABETO.GDB
View File

Binary file not shown.