Primera adaptacion de facturas de cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@12 f33bb606-9f5c-448d-9c99-757f00063c96

Source/FactuGES.inc

@@ -0,0 +1 @@
+{$DEFINE MULTIEMPRESA}

Source/Modulos/Albaranes de cliente/Views/uViewTotalesAlbaran.dfm

@@ -0,0 +1,309 @@
+inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
+  Width = 858
+  Height = 387
+  ExplicitWidth = 858
+  ExplicitHeight = 387
+  inherited dxLayoutControl1: TdxLayoutControl
+    Width = 858
+    Height = 387
+    ExplicitWidth = 451
+    ExplicitHeight = 230
+    inherited Bevel3: TBevel
+      Left = 428
+      Top = 10
+      ExplicitLeft = 428
+      ExplicitTop = 10
+    end
+    inherited Bevel4: TBevel
+      Left = 561
+      Top = 52
+      Width = 342
+      ExplicitLeft = 561
+      ExplicitTop = 52
+      ExplicitWidth = 342
+    end
+    inherited Bevel1: TBevel
+      Left = 561
+      Top = 168
+      Width = 368
+      ExplicitLeft = 561
+      ExplicitTop = 168
+      ExplicitWidth = 368
+    end
+    inherited Bevel2: TBevel
+      Left = 119
+      Top = 170
+      Width = 368
+      ExplicitLeft = 119
+      ExplicitTop = 170
+      ExplicitWidth = 368
+    end
+    inherited ImporteDto: TcxDBCurrencyEdit
+      Left = 190
+      Top = 37
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitLeft = 190
+      ExplicitTop = 37
+    end
+    inherited ImporteIVA: TcxDBCurrencyEdit
+      Left = 632
+      Top = 87
+      DataBinding.DataField = 'IMPORTE_DESCUENTO'
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 11
+      ExplicitLeft = 632
+      ExplicitTop = 87
+    end
+    inherited ImporteTotal: TcxDBCurrencyEdit
+      Left = 562
+      Top = 141
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 14
+      ExplicitLeft = 562
+      ExplicitTop = 141
+    end
+    inherited edtDescuento: TcxDBSpinEdit
+      Left = 119
+      Top = 37
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitLeft = 119
+      ExplicitTop = 37
+    end
+    inherited edtIVA: TcxDBSpinEdit
+      Left = 561
+      Top = 87
+      DataBinding.DataField = 'DESCUENTO'
+      Enabled = True
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 10
+      ExplicitLeft = 561
+      ExplicitTop = 87
+    end
+    inherited ImporteBase: TcxDBCurrencyEdit
+      Left = 561
+      Top = 10
+      DataBinding.DataField = 'IMPONIBLE_NETO'
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 9
+      ExplicitLeft = 561
+      ExplicitTop = 10
+    end
+    inherited edtRE: TcxDBSpinEdit
+      Left = 561
+      Top = 114
+      DataBinding.DataField = 'DESCUENTO2'
+      Enabled = True
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 12
+      ExplicitLeft = 561
+      ExplicitTop = 114
+    end
+    inherited ImporteRE: TcxDBCurrencyEdit
+      Left = 632
+      Top = 114
+      DataBinding.DataField = 'IMPORTE_DESCUENTO2'
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 13
+      ExplicitLeft = 632
+      ExplicitTop = 114
+    end
+    inherited eImporteNeto: TcxDBCurrencyEdit
+      Left = 119
+      Top = 10
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitLeft = 119
+      ExplicitTop = 10
+    end
+    inherited ePorte: TcxDBCurrencyEdit
+      Left = 119
+      Top = 64
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitLeft = 119
+      ExplicitTop = 64
+    end
+    inherited eIVA: TcxDBLookupComboBox
+      Left = 119
+      Top = 91
+      DataBinding.DataField = ''
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitLeft = 119
+      ExplicitTop = 91
+    end
+    inherited bTiposIVA: TButton
+      Left = 280
+      Top = 91
+      ExplicitLeft = 280
+      ExplicitTop = 91
+    end
+    inherited cbRecargoEquivalencia: TcxDBCheckBox
+      Left = 119
+      Top = 118
+      DataBinding.DataField = ''
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitLeft = 119
+      ExplicitTop = 118
+      ExplicitWidth = 221
+      Width = 221
+    end
+    inherited edtRetencion: TcxDBSpinEdit
+      Left = 561
+      Top = 188
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 15
+      ExplicitLeft = 561
+      ExplicitTop = 188
+    end
+    inherited edtImporteRetencion: TcxDBCurrencyEdit
+      Left = 632
+      Top = 188
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 16
+      ExplicitLeft = 632
+      ExplicitTop = 188
+      ExplicitWidth = 180
+      Width = 180
+    end
+    inherited edtFechaRetencion: TcxDBDateEdit
+      Left = 119
+      Top = 190
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitLeft = 119
+      ExplicitTop = 190
+      ExplicitWidth = 280
+      Width = 280
+    end
+    object Panel1: TPanel [20]
+      Left = 10
+      Top = 217
+      Width = 185
+      Height = 41
+      BevelOuter = bvNone
+      TabOrder = 8
+    end
+    inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+      inherited dxLayoutControl1Group1: TdxLayoutGroup
+        ShowCaption = False
+        ShowBorder = False
+        inherited dxLayoutControl1Group2: TdxLayoutGroup
+          inherited dxLayoutControl1Item8: TdxLayoutItem
+            Visible = False
+          end
+          inherited dxLayoutControl1Group7: TdxLayoutGroup
+            inherited dxLayoutControl1Group10: TdxLayoutGroup
+              Visible = False
+            end
+            inherited dxLayoutControl1Item9: TdxLayoutItem
+              Visible = False
+            end
+          end
+          inherited dxLayoutControl1Group6: TdxLayoutGroup
+            Visible = False
+          end
+          inherited dxLayoutControl1Item16: TdxLayoutItem
+            Visible = False
+          end
+          inherited dxLayoutControl1Item19: TdxLayoutItem
+            Visible = False
+          end
+          object dxLayoutControl1Item20: TdxLayoutItem
+            Caption = 'Panel1'
+            ShowCaption = False
+            Control = Panel1
+            ControlOptions.AutoColor = True
+            ControlOptions.ShowBorder = False
+          end
+        end
+        inherited dxLayoutControl1Group5: TdxLayoutGroup
+          inherited dxLayoutControl1Item13: TdxLayoutItem
+            Visible = False
+          end
+          inherited dxLayoutControl1Group3: TdxLayoutGroup
+            inherited dxLayoutControl1Item12: TdxLayoutItem
+              Caption = 'Importe neto:'
+              CaptionOptions.AlignHorz = taRightJustify
+            end
+            inherited dxLayoutControl1Item14: TdxLayoutItem
+              Visible = False
+            end
+            inherited dxLayoutControl1Group9: TdxLayoutGroup
+              inherited dxLayoutControl1Item5: TdxLayoutItem
+                Caption = 'Dto. cliente (%):'
+              end
+            end
+            inherited dxLayoutControl1Group8: TdxLayoutGroup
+              inherited dxLayoutControl1Item6: TdxLayoutItem
+                Caption = 'Dto. pronto pago (%):'
+              end
+              inherited dxLayoutControl1Item7: TdxLayoutItem
+                Visible = True
+              end
+            end
+            inherited dxLayoutControl1Item3: TdxLayoutItem
+              CaptionOptions.AlignHorz = taRightJustify
+            end
+            inherited dxLayoutControl1Item10: TdxLayoutItem
+              Visible = False
+            end
+          end
+        end
+      end
+    end
+  end
+end

Source/Modulos/Albaranes de cliente/Views/uViewTotalesAlbaran.pas

@@ -0,0 +1,31 @@
+
+unit uViewTotalesAlbaran;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewTotales, cxGraphics, dxLayoutLookAndFeels, DB, uDAInterfaces,
+  uDADataTable, dxLayoutControl, cxDropDownEdit, cxCalendar, cxDBEdit,
+  cxCheckBox, StdCtrls, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
+  cxMaskEdit, cxSpinEdit, cxContainer, cxEdit, cxTextEdit, cxCurrencyEdit,
+  cxControls, ExtCtrls;
+
+type
+  TfrViewTotalesAlbaran = class(TfrViewTotales)
+    Panel1: TPanel;
+    dxLayoutControl1Item20: TdxLayoutItem;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frViewTotalesAlbaran: TfrViewTotalesAlbaran;
+
+implementation
+
+{$R *.dfm}
+
+end.

Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.dfm

@@ -0,0 +1,129 @@
+inherited frViewTotalesFactura: TfrViewTotalesFactura
+  inherited dxLayoutControl1: TdxLayoutControl
+    ExplicitWidth = 451
+    inherited Bevel3: TBevel
+      Height = 100
+      ExplicitHeight = 100
+    end
+    inherited Bevel4: TBevel
+      Width = 342
+      ExplicitWidth = 342
+    end
+    inherited Bevel1: TBevel
+      Width = 368
+      ExplicitWidth = 368
+    end
+    inherited Bevel2: TBevel
+      Width = 368
+      ExplicitWidth = 368
+    end
+    inherited ImporteDto: TcxDBCurrencyEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited ImporteIVA: TcxDBCurrencyEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited ImporteTotal: TcxDBCurrencyEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited edtDescuento: TcxDBSpinEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited edtIVA: TcxDBSpinEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited ImporteBase: TcxDBCurrencyEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited edtRE: TcxDBSpinEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited ImporteRE: TcxDBCurrencyEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited eImporteNeto: TcxDBCurrencyEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited ePorte: TcxDBCurrencyEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited eIVA: TcxDBLookupComboBox
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited cbRecargoEquivalencia: TcxDBCheckBox
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitWidth = 221
+      Width = 221
+    end
+    inherited edtRetencion: TcxDBSpinEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited edtImporteRetencion: TcxDBCurrencyEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitWidth = 180
+      Width = 180
+    end
+    inherited edtFechaRetencion: TcxDBDateEdit
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitWidth = 280
+      Width = 280
+    end
+  end
+end

Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.pas

@@ -0,0 +1,28 @@
+unit uViewTotalesFactura;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewTotales, cxGraphics, dxLayoutLookAndFeels, DB, uDAInterfaces,
+  uDADataTable, dxLayoutControl, cxDropDownEdit, cxCalendar, cxDBEdit,
+  cxCheckBox, StdCtrls, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
+  cxMaskEdit, cxSpinEdit, cxContainer, cxEdit, cxTextEdit, cxCurrencyEdit,
+  cxControls, ExtCtrls;
+
+type
+  TfrViewTotalesFactura = class(TfrViewTotales)
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frViewTotalesFactura: TfrViewTotalesFactura;
+
+implementation
+
+{$R *.dfm}
+
+end.