Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Facturas de cliente: repaso general

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@346 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-03-23 10:51:09 +00:00
parent b2feeffd67
commit c84fc47eb6
3 changed files with 39 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -13,7 +13,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 829 Width = 829
Caption = 'Nueva factura de cliente' Caption = 'Nueva factura de cliente'
ExplicitWidth = 788 ExplicitWidth = 829
inherited Image1: TImage inherited Image1: TImage
Left = 802 Left = 802
Picture.Data = { Picture.Data = {
@ -40,7 +40,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 829 Width = 829
ExplicitWidth = 788 ExplicitWidth = 829
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -72,13 +72,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 823 Width = 823
Height = 344 Height = 344
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 782 ExplicitWidth = 823
ExplicitHeight = 311 ExplicitHeight = 344
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 774 ExplicitWidth = 815
ExplicitHeight = 283 ExplicitHeight = 316
inline frViewFacturaCliente1: TfrViewFacturaCliente inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -93,13 +93,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 774 ExplicitWidth = 815
ExplicitHeight = 283 ExplicitHeight = 316
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 815 Width = 815
Height = 316 Height = 316
ExplicitWidth = 774 ExplicitWidth = 815
ExplicitHeight = 283 ExplicitHeight = 316
DesignSize = ( DesignSize = (
815 815
316) 316)
@ -176,8 +176,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 774
ExplicitHeight = 283
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -194,12 +192,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 774 ExplicitWidth = 815
ExplicitHeight = 283 ExplicitHeight = 316
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 815 Width = 815
Height = 51 Height = 51
ExplicitWidth = 774 ExplicitWidth = 815
ExplicitHeight = 51 ExplicitHeight = 51
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
Wrap = False Wrap = False
@ -225,10 +223,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 544 Left = 544
Top = 0 Top = 0
Width = 57 Width = 72
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 57 ExplicitWidth = 72
end end
inherited ToolButton13: TToolButton [7] inherited ToolButton13: TToolButton [7]
Left = 0 Left = 0
@ -253,6 +251,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited ToolButton7: TToolButton [10] inherited ToolButton7: TToolButton [10]
Left = 83 Left = 83
Top = 27 Top = 27
Wrap = False
ExplicitLeft = 83 ExplicitLeft = 83
ExplicitTop = 27 ExplicitTop = 27
end end
@ -265,6 +264,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited ToolButton12: TToolButton [12] inherited ToolButton12: TToolButton [12]
Left = 233 Left = 233
Top = 27 Top = 27
Wrap = False
ExplicitLeft = 233 ExplicitLeft = 233
ExplicitTop = 27 ExplicitTop = 27
ExplicitHeight = 22 ExplicitHeight = 22
@ -293,14 +293,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 815 Width = 815
Height = 239 Height = 239
ExplicitTop = 72 ExplicitTop = 72
ExplicitWidth = 774 ExplicitWidth = 815
ExplicitHeight = 211 ExplicitHeight = 244
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 51 Top = 51
Width = 815 Width = 815
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 774 ExplicitWidth = 815
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 702 ExplicitWidth = 702
end end
@ -315,8 +315,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 556 ExplicitTop = 589
ExplicitWidth = 788 ExplicitWidth = 829
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
@ -332,13 +332,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 393 ExplicitTop = 426
ExplicitWidth = 788 ExplicitWidth = 829
ExplicitHeight = 163 ExplicitHeight = 163
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 829 Width = 829
LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1 LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1
ExplicitWidth = 788 ExplicitWidth = 829
inherited Bevel1: TBevel inherited Bevel1: TBevel
Top = 111 Top = 111
Width = 73 Width = 73

29
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 822 Width = 451
Height = 317 Height = 304
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,24 +9,23 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 822 Width = 451
Height = 317 Height = 304
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
822 451
317) 304)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 124 Left = 124
Top = 30 Top = 30
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -81,7 +80,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 301 Width = 301
end end
inline frViewClienteFactura: TfrViewDatosYSeleccionCliente inline frViewClienteFactura: TfrViewDatosYSeleccionCliente
Left = 427 Left = 310
Top = 30 Top = 30
Width = 314 Width = 314
Height = 215 Height = 215
@ -93,7 +92,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitLeft = 427 ExplicitLeft = 310
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 314 ExplicitWidth = 314
ExplicitHeight = 215 ExplicitHeight = 215
@ -128,13 +127,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 281 Left = 192
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
ExplicitLeft = 281 ExplicitLeft = 192
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 171 Left = 82
ExplicitLeft = 171 ExplicitLeft = 82
end end
end end
end end
@ -171,7 +170,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 78 Width = 78
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 267 Left = 150
Top = 84 Top = 84
Width = 132 Width = 132
Height = 23 Height = 23

3
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -105,9 +105,6 @@ begin
dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True; dsFormaPago.DataTable.Active := True;
//Solo se deshabilita al insertar, luego la referencia será modificable
//eReferencia.Enabled := (FFactura.DataTable.State = dsInsert);
if FFactura.TIPO = CTE_TIPO_ABONO then if FFactura.TIPO = CTE_TIPO_ABONO then
begin begin
dxLayoutControl1Group1.Caption := 'Datos del abono:'; dxLayoutControl1Group1.Caption := 'Datos del abono:';