diff --git a/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.dfm b/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.dfm new file mode 100644 index 00000000..35dcf8d2 --- /dev/null +++ b/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.dfm @@ -0,0 +1,116 @@ +inherited frViewClienteRecibo: TfrViewClienteRecibo + Width = 357 + Height = 318 + ExplicitWidth = 357 + ExplicitHeight = 318 + inherited dxLayoutControl1: TdxLayoutControl + Width = 357 + Height = 318 + object Bevel1: TBevel [0] + Left = 81 + Top = 71 + Width = 266 + Height = 13 + Shape = bsBottomLine + end + inherited edtlNombre: TcxDBTextEdit + Left = 81 + Top = 94 + TabOrder = 3 + ExplicitLeft = 81 + ExplicitTop = 94 + ExplicitWidth = 224 + Width = 224 + end + inherited edtNIFCIF: TcxDBTextEdit + Left = 81 + Top = 121 + TabOrder = 4 + ExplicitLeft = 81 + ExplicitTop = 121 + ExplicitWidth = 562 + Width = 562 + end + inherited edtCalle: TcxDBTextEdit + Left = 81 + Top = 148 + TabOrder = 5 + ExplicitLeft = 81 + ExplicitTop = 148 + ExplicitWidth = 562 + Width = 562 + end + inherited edtPoblacion: TcxDBTextEdit + Left = 81 + Top = 175 + TabOrder = 6 + ExplicitLeft = 81 + ExplicitTop = 175 + ExplicitWidth = 177 + Width = 177 + end + inherited edtProvincia: TcxDBTextEdit + Left = 81 + Top = 202 + TabOrder = 8 + ExplicitLeft = 81 + ExplicitTop = 202 + ExplicitWidth = 327 + Width = 327 + end + inherited edtCodigoPostal: TcxDBTextEdit + Left = 265 + Top = 175 + TabOrder = 7 + ExplicitLeft = 265 + ExplicitTop = 175 + end + inherited Button3: TBitBtn + Left = 155 + Top = 229 + TabOrder = 9 + ExplicitLeft = 155 + ExplicitTop = 229 + end + object cxDBTextEdit1: TcxDBTextEdit [10] + Left = 81 + Top = 41 + Anchors = [akLeft, akTop, akRight] + AutoSize = False + DataBinding.DataField = 'NOMBRE' + DataBinding.DataSource = DADataSource + Enabled = False + ParentFont = False + Properties.ReadOnly = True + Properties.UseLeftAlignmentOnEditing = False + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 2 + Height = 21 + Width = 283 + end + inherited dxLayoutControl1Group_Root: TdxLayoutGroup + object dxLayoutControl1Item10: TdxLayoutItem [1] + Caption = 'Nombre:' + Control = cxDBTextEdit1 + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item11: TdxLayoutItem [2] + Caption = 'Datos fiscales' + Offsets.Bottom = 3 + Offsets.Top = 3 + Control = Bevel1 + ControlOptions.ShowBorder = False + end + inherited dxLayoutControl1Item1: TdxLayoutItem + Caption = 'Raz'#243'n:' + end + end + end +end diff --git a/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.pas b/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.pas new file mode 100644 index 00000000..bcd0f90c --- /dev/null +++ b/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.pas @@ -0,0 +1,30 @@ +unit uViewClienteRecibo; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewDatosYSeleccionCliente, ImgList, PngImageList, ActnList, DB, + uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer, + cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls; + +type + TfrViewClienteRecibo = class(TfrViewDatosYSeleccionCliente) + dxLayoutControl1Item10: TdxLayoutItem; + cxDBTextEdit1: TcxDBTextEdit; + Bevel1: TBevel; + dxLayoutControl1Item11: TdxLayoutItem; + private + { Private declarations } + public + { Public declarations } + end; + +var + frViewClienteRecibo: TfrViewClienteRecibo; + +implementation + +{$R *.dfm} + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.dfm new file mode 100644 index 00000000..992ddb3d --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.dfm @@ -0,0 +1,113 @@ +inherited frViewProveedorRecibo: TfrViewProveedorRecibo + Width = 357 + Height = 318 + ExplicitWidth = 357 + ExplicitHeight = 318 + inherited dxLayoutControl1: TdxLayoutControl + Width = 357 + Height = 318 + ExplicitWidth = 357 + ExplicitHeight = 318 + DesignSize = ( + 357 + 318) + object Bevel1: TBevel [0] + Left = 81 + Top = 71 + Width = 266 + Height = 13 + Shape = bsBottomLine + end + inherited edtlNombre: TcxDBTextEdit + Left = 81 + Top = 94 + TabOrder = 3 + ExplicitLeft = 81 + ExplicitTop = 94 + ExplicitWidth = 224 + Width = 224 + end + inherited edtNIFCIF: TcxDBTextEdit + Left = 81 + Top = 121 + TabOrder = 4 + ExplicitLeft = 81 + ExplicitTop = 121 + end + inherited edtCalle: TcxDBTextEdit + Left = 81 + Top = 148 + TabOrder = 5 + ExplicitLeft = 81 + ExplicitTop = 148 + end + inherited edtPoblacion: TcxDBTextEdit + Left = 81 + Top = 175 + TabOrder = 6 + ExplicitLeft = 81 + ExplicitTop = 175 + end + inherited edtProvincia: TcxDBTextEdit + Left = 81 + Top = 202 + TabOrder = 8 + ExplicitLeft = 81 + ExplicitTop = 202 + end + inherited edtCodigoPostal: TcxDBTextEdit + Left = 265 + Top = 175 + TabOrder = 7 + ExplicitLeft = 265 + ExplicitTop = 175 + end + inherited Button3: TBitBtn + Left = 149 + Top = 229 + TabOrder = 9 + ExplicitLeft = 149 + ExplicitTop = 229 + end + object cxDBTextEdit1: TcxDBTextEdit [10] + Left = 81 + Top = 41 + Anchors = [akLeft, akTop, akRight] + AutoSize = False + DataBinding.DataField = 'NOMBRE' + DataBinding.DataSource = DADataSource + Enabled = False + ParentFont = False + Properties.ReadOnly = True + Properties.UseLeftAlignmentOnEditing = False + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 2 + Height = 21 + Width = 283 + end + inherited dxLayoutControl1Group_Root: TdxLayoutGroup + object dxLayoutControl1Item10: TdxLayoutItem [1] + Caption = 'Nombre:' + Control = cxDBTextEdit1 + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item11: TdxLayoutItem [2] + Caption = 'Datos fiscales' + Offsets.Bottom = 3 + Offsets.Top = 3 + Control = Bevel1 + ControlOptions.ShowBorder = False + end + inherited dxLayoutControl1Item1: TdxLayoutItem + Caption = 'Raz'#243'n:' + end + end + end +end diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.pas b/Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.pas new file mode 100644 index 00000000..bf038f1c --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.pas @@ -0,0 +1,30 @@ +unit uViewProveedorRecibo; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewDatosYSeleccionProveedor, ImgList, PngImageList, ActnList, DB, + uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer, + cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls; + +type + TfrViewProveedorRecibo = class(TfrViewDatosYSeleccionProveedor) + dxLayoutControl1Item10: TdxLayoutItem; + cxDBTextEdit1: TcxDBTextEdit; + Bevel1: TBevel; + dxLayoutControl1Item11: TdxLayoutItem; + private + { Private declarations } + public + { Public declarations } + end; + +var + frViewProveedorRecibo: TfrViewProveedorRecibo; + +implementation + +{$R *.dfm} + +end.