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

Se detallan las cuentas bancarias si son del cliente/proveedor o de la empresa

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1125 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2016-02-11 15:52:36 +00:00
parent 88b262cdf6
commit 9aef2177ae
8 changed files with 150 additions and 150 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 896
Height = 553
Width = 451
Height = 304
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@ -9,21 +9,19 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 896
Height = 553
Width = 451
Height = 304
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
896
553)
451
304)
object Label1: TLabel
Left = 488
Left = 354
Top = 193
Width = 311
Height = 26
@ -142,7 +140,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 269
end
object bFormasPago: TButton
Left = 306
Left = 172
Top = 130
Width = 132
Height = 23
@ -173,7 +171,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 165
end
object cbClienteFinal: TcxDBTextEdit
Left = 488
Left = 354
Top = 227
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CLIENTE_FINAL'
@ -201,7 +199,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 339
end
object bElegirClienteFinal: TButton
Left = 840
Left = 410
Top = 225
Width = 23
Height = 25
@ -209,7 +207,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
TabOrder = 10
end
inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
Left = 477
Left = 343
Top = 30
Width = 505
Height = 138
@ -221,7 +219,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False
TabOrder = 8
ReadOnly = False
ExplicitLeft = 477
ExplicitLeft = 343
ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
@ -229,32 +227,28 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 284
Left = 171
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 284
ExplicitLeft = 171
end
inherited Button3: TBitBtn
Left = 195
ExplicitLeft = 195
Left = 82
ExplicitLeft = 82
end
inherited edtDireccion: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited Button4: TButton
Left = 364
ExplicitLeft = 364
Left = 251
ExplicitLeft = 251
end
end
inherited ActionList1: TActionList

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

@ -214,14 +214,14 @@ begin
if AListaIBAN.Count > 0 then
begin
Add('--------------');
Add('Cuentas de ' + AppFactuGES.EmpresaActiva.NOMBRE + '-----------------');
for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]);
end;
if AListaCliente.Count > 0 then
begin
Add('--------------');
Add('Cuentas del Cliente -----------------');
for i := 0 to AListaCliente.Count - 1 do
Add(AListaCliente.Names[i]);
end;

218
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -2,20 +2,20 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Left = 454
Top = 208
Caption = 'Nueva factura de proveedor'
ClientHeight = 633
ClientWidth = 819
ClientHeight = 811
ClientWidth = 922
Position = poScreenCenter
OnClose = CustomEditorClose
ExplicitWidth = 827
ExplicitHeight = 667
ExplicitWidth = 930
ExplicitHeight = 845
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 819
Width = 922
Caption = 'Nueva factura de proveedor'
ExplicitWidth = 819
inherited Image1: TImage
Left = 686
Left = 789
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -38,14 +38,14 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitLeft = 742
end
inherited lblDesbloquear: TcxLabel
Left = 721
Left = 824
ExplicitLeft = 721
AnchorX = 766
AnchorX = 869
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
Width = 819
Width = 922
ExplicitWidth = 819
inherited tbxMain: TTBXToolbar
ExplicitWidth = 330
@ -60,7 +60,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 819
ExplicitWidth = 922
inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem
Visible = False
@ -75,9 +75,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end
end
inherited pgPaginas: TPageControl
Width = 813
Height = 278
ActivePage = pagContenido
Width = 916
Height = 456
OnChanging = pgPaginasChanging
ExplicitWidth = 813
ExplicitHeight = 278
@ -90,8 +89,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inline frViewFacturaProveedor1: TfrViewFacturaProveedor
Left = 0
Top = 0
Width = 805
Height = 250
Width = 908
Height = 428
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -104,8 +103,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 805
ExplicitHeight = 250
inherited dxLayoutControl1: TdxLayoutControl
Width = 805
Height = 250
Width = 908
Height = 428
ExplicitWidth = 805
ExplicitHeight = 250
inherited eReferencia: TcxDBTextEdit
@ -144,8 +143,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 104
end
inherited bFormasPago: TButton
Left = 242
ExplicitLeft = 242
Left = 301
ExplicitLeft = 301
end
inherited eReferenciaProveedor: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
@ -156,9 +155,9 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 242
end
inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 402
Left = 461
Width = 377
ExplicitLeft = 402
ExplicitLeft = 461
ExplicitWidth = 377
inherited dxLayoutControl1: TdxLayoutControl
Width = 377
@ -209,17 +208,17 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 303
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 272
Left = 333
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 272
ExplicitLeft = 333
end
inherited Button3: TBitBtn
Left = 156
ExplicitLeft = 156
Left = 217
ExplicitLeft = 217
end
end
end
@ -245,6 +244,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited eFacturaWeb: TcxDBCheckBox
ExplicitWidth = 312
Width = 312
end
end
end
end
@ -252,11 +255,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Caption = 'Contenido'
ImageIndex = 1
OnShow = pagContenidoShow
ExplicitWidth = 805
ExplicitHeight = 250
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
Left = 0
Top = 0
Width = 805
Height = 250
Width = 908
Height = 428
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -271,8 +276,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 805
ExplicitHeight = 250
inherited ToolBar1: TToolBar
Width = 805
Height = 73
Width = 908
Height = 51
ExplicitWidth = 805
ExplicitHeight = 73
inherited ToolButton3: TToolButton
@ -290,87 +295,88 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Top = 22
ExplicitTop = 22
inherited FontName: TJvFontComboBox [5]
Left = 399
Top = 0
ExplicitLeft = 399
ExplicitTop = 0
end
inherited FontSize: TEdit
Top = 22
Width = 344
ExplicitTop = 22
ExplicitWidth = 344
inherited FontSize: TEdit [6]
Left = 544
Top = 0
Width = 360
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 360
end
inherited ToolButton13: TToolButton [7]
Left = 0
Top = 22
Wrap = True
ExplicitLeft = 0
ExplicitTop = 22
ExplicitHeight = 27
Top = 0
ExplicitTop = 0
end
inherited UpDown1: TUpDown [8]
Left = 0
Top = 49
Top = 27
ExplicitLeft = 0
ExplicitTop = 49
ExplicitTop = 27
end
inherited ToolButton6: TToolButton
Left = 17
Top = 49
Top = 27
ExplicitLeft = 17
ExplicitTop = 49
ExplicitTop = 27
end
inherited ToolButton7: TToolButton
inherited ToolButton7: TToolButton [10]
Left = 83
Top = 49
Top = 27
ExplicitLeft = 83
ExplicitTop = 49
ExplicitTop = 27
end
inherited ToolButton8: TToolButton
inherited ToolButton8: TToolButton [11]
Left = 150
Top = 49
Top = 27
ExplicitLeft = 150
ExplicitTop = 49
ExplicitTop = 27
end
inherited ToolButton12: TToolButton
inherited ToolButton12: TToolButton [12]
Left = 233
Top = 49
Top = 27
ExplicitLeft = 233
ExplicitTop = 49
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton
inherited ToolButton9: TToolButton [13]
Left = 241
Top = 49
Top = 27
ExplicitLeft = 241
ExplicitTop = 49
ExplicitTop = 27
end
inherited ToolButton10: TToolButton
Left = 386
Top = 49
Top = 27
ExplicitLeft = 386
ExplicitTop = 49
ExplicitTop = 27
end
inherited ToolButton11: TToolButton
inherited ToolButton11: TToolButton [15]
Left = 511
Top = 49
Top = 27
ExplicitLeft = 511
ExplicitTop = 49
ExplicitTop = 27
end
end
inherited cxGrid: TcxGrid
Top = 99
Width = 805
Height = 151
Top = 77
Width = 908
Height = 351
ExplicitWidth = 805
ExplicitHeight = 151
end
inherited TBXDock1: TTBXDock
Top = 73
Width = 805
Top = 51
Width = 908
ExplicitTop = 73
ExplicitWidth = 805
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 805
ExplicitWidth = 838
end
end
inherited cxGridPopupMenu: TcxGridPopupMenu
@ -391,11 +397,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Caption = 'Pedidos'
ImageIndex = 2
TabVisible = False
ExplicitWidth = 805
ExplicitHeight = 250
inline frViewPedidosFacturaProveedor1: TfrViewPedidosFacturaProveedor
Left = 0
Top = 0
Width = 805
Height = 250
Width = 908
Height = 428
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -408,13 +416,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 805
ExplicitHeight = 250
inherited cxGrid: TcxGrid
Width = 805
Height = 225
Width = 908
Height = 403
ExplicitWidth = 805
ExplicitHeight = 225
end
inherited ToolBar1: TToolBar
Width = 805
Width = 908
ExplicitWidth = 805
inherited ToolButton1: TToolButton
ExplicitWidth = 113
@ -433,8 +441,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end
end
inherited StatusBar: TJvStatusBar
Top = 614
Width = 819
Top = 792
Width = 922
Panels = <
item
Width = 200
@ -444,8 +452,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end
inline frViewTotales1: TfrViewTotalesVariosIVA [4]
Left = 0
Top = 360
Width = 819
Top = 538
Width = 922
Height = 254
Align = alBottom
Font.Charset = DEFAULT_CHARSET
@ -460,26 +468,24 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 819
ExplicitHeight = 254
inherited dxLayoutControl1: TdxLayoutControl
Width = 819
Width = 922
Height = 254
ExplicitWidth = 819
ExplicitHeight = 254
inherited Bevel3: TBevel
Left = 392
Height = 100
ExplicitLeft = 392
ExplicitHeight = 100
Left = 440
ExplicitLeft = 440
end
inherited Bevel1: TBevel
Left = 504
Left = 552
Width = 368
ExplicitLeft = 504
ExplicitLeft = 552
ExplicitWidth = 368
end
inherited Bevel2: TBevel
Left = 504
Left = 552
Width = 368
ExplicitLeft = 504
ExplicitLeft = 552
ExplicitWidth = 368
end
inherited Bevel4: TBevel
@ -487,13 +493,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 388
end
inherited ImporteDto: TcxDBCurrencyEdit
Left = 575
Left = 623
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 575
ExplicitLeft = 623
ExplicitWidth = 290
Width = 290
end
@ -507,60 +513,60 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 234
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 505
Left = 553
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 505
ExplicitLeft = 553
end
inherited edtDescuento: TcxDBSpinEdit
Left = 504
Left = 552
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 504
ExplicitLeft = 552
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 504
Left = 552
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 504
ExplicitLeft = 552
ExplicitWidth = 284
Width = 284
end
inherited edtRE: TcxDBSpinEdit
Left = 504
Left = 552
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 504
ExplicitLeft = 552
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 575
Left = 623
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 575
ExplicitLeft = 623
end
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 504
Left = 552
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 504
ExplicitLeft = 552
ExplicitWidth = 297
Width = 297
end
@ -629,22 +635,22 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 358
end
inherited edtRetencion: TcxDBSpinEdit
Left = 504
Left = 552
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 504
ExplicitLeft = 552
end
inherited ImporteRetencion: TcxDBCurrencyEdit
Left = 575
Left = 623
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 575
ExplicitLeft = 623
ExplicitWidth = 345
Width = 345
end

28
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 910
Height = 484
Width = 451
Height = 304
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@ -9,19 +9,17 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 910
Height = 484
Width = 451
Height = 304
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
910
484)
451
304)
object eReferencia: TcxDBTextEdit
Left = 136
Top = 30
@ -131,7 +129,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 78
end
object bFormasPago: TButton
Left = 318
Left = 162
Top = 189
Width = 132
Height = 23
@ -164,7 +162,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 158
end
inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 478
Left = 322
Top = 30
Width = 350
Height = 202
@ -176,7 +174,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ParentFont = False
TabOrder = 10
ReadOnly = False
ExplicitLeft = 478
ExplicitLeft = 322
ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
@ -218,16 +216,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 318
Left = 203
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 318
ExplicitLeft = 203
end
inherited Button3: TBitBtn
Left = 202
ExplicitLeft = 202
Left = 87
ExplicitLeft = 87
end
end
end

3
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
View File

@ -185,13 +185,14 @@ begin
if AListaIBAN.Count > 0 then
begin
Add('Cuentas de ' + AppFactuGES.EmpresaActiva.NOMBRE + '-----------------');
for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]);
end;
if AListaProveedor.Count > 0 then
begin
Add('--------------');
Add('Cuentas del Proveedor ------------------- ');
for i := 0 to AListaProveedor.Count - 1 do
Add(AListaProveedor.Names[i]);
end;

3
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
View File

@ -128,13 +128,14 @@ begin
if AListaIBAN.Count > 0 then
begin
Add('Cuentas de ' + AppFactuGES.EmpresaActiva.NOMBRE + '-----------------');
for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]);
end;
if AListaProveedor.Count > 0 then
begin
Add('--------------');
Add('Cuentas del Proveedor -----------------');
for i := 0 to AListaProveedor.Count - 1 do
Add(AListaProveedor.Names[i]);
end;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.1.1.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.1.1.0\0"
VALUE "CompileDate", "jueves, 29 de octubre de 2015 12:49\0"
VALUE "CompileDate", "jueves, 11 de febrero de 2016 11:43\0"
END
END
BLOCK "VarFileInfo"