Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se adaptan albaranes y facturas de cliente para que se coja por defecto la primera cuenta bancaria que tengan

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@85 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-02-04 10:34:54 +00:00
parent fd2e35cd1e
commit baf9b5d19c
16 changed files with 651 additions and 598 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

74
Source/Informes/2/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
View File

@ -241,7 +241,11 @@ begin
FCliente.DataTable.Active := True; FCliente.DataTable.Active := True;
ID_CLIENTE := FCliente.ID; ID_CLIENTE := FCliente.ID;
if (ID_FORMA_PAGO = 0) and (FCliente.ID_FORMA_PAGO > 0) then
//Si la empresa tiene asociada una forma de pago por defecto tiene prioridad sobre la forma de pago del cliente
if (AppFactuGES.EmpresaActiva.ID_FORMA_PAGO > 0) then
ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO
else if (FCliente.ID_FORMA_PAGO > 0) then
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
DESCUENTO := FCliente.DESCUENTO; DESCUENTO := FCliente.DESCUENTO;
DESCUENTO2 := FCliente.DESCUENTO2; DESCUENTO2 := FCliente.DESCUENTO2;

163
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -200,94 +200,109 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitHeight = 354 ExplicitHeight = 354
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 841 Width = 841
Height = 46 Height = 51
ExplicitWidth = 841 ExplicitWidth = 841
ExplicitHeight = 46 ExplicitHeight = 51
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Left = 278 Left = 278
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited ToolButton14: TToolButton [4]
Left = 0 Left = 334
Top = 0
Wrap = False
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton inherited FontName: TJvFontComboBox [5]
Left = 479 Left = 399
Top = 0 Top = 0
ExplicitLeft = 479 ExplicitLeft = 399
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Top = 22 Left = 544
Top = 0
Width = 218 Width = 218
ExplicitTop = 22 ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 218 ExplicitWidth = 218
end end
inherited UpDown1: TUpDown inherited ToolButton13: TToolButton [7]
Left = 218 Left = 0
Top = 22 Top = 0
ExplicitLeft = 218 Wrap = True
ExplicitTop = 22 ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 27
end end
inherited ToolButton9: TToolButton inherited UpDown1: TUpDown [8]
Left = 235 Left = 0
Top = 22 Top = 27
ExplicitLeft = 235 ExplicitLeft = 0
ExplicitTop = 22 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton inherited ToolButton6: TToolButton [9]
Top = 22 Left = 17
ExplicitTop = 22 Top = 27
ExplicitLeft = 17
ExplicitTop = 27
end end
inherited ToolButton6: TToolButton inherited ToolButton7: TToolButton [10]
Top = 52 Left = 83
ExplicitTop = 52 Top = 27
ExplicitLeft = 83
ExplicitTop = 27
end end
inherited ToolButton7: TToolButton inherited ToolButton8: TToolButton [11]
Top = 52 Left = 150
ExplicitTop = 52 Top = 27
end
inherited ToolButton8: TToolButton
Top = 52
Wrap = False Wrap = False
ExplicitTop = 52 ExplicitLeft = 150
ExplicitTop = 27
end end
inherited ToolButton10: TToolButton inherited ToolButton12: TToolButton [12]
Left = 216 Left = 233
Top = 52 Top = 27
ExplicitLeft = 216 Wrap = False
ExplicitTop = 52 ExplicitLeft = 233
ExplicitTop = 27
ExplicitHeight = 22
end end
inherited ToolButton13: TToolButton inherited ToolButton9: TToolButton [13]
Left = 341 Left = 241
Top = 52 Top = 27
ExplicitLeft = 341 ExplicitLeft = 241
ExplicitTop = 52 ExplicitTop = 27
end
inherited ToolButton10: TToolButton [14]
Left = 386
Top = 27
ExplicitLeft = 386
ExplicitTop = 27
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 349 Left = 511
Top = 52 Top = 27
ExplicitLeft = 349 ExplicitLeft = 511
ExplicitTop = 52 ExplicitTop = 27
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 99 Top = 77
Width = 841 Width = 841
Height = 255 Height = 277
ExplicitTop = 77 ExplicitTop = 77
ExplicitWidth = 841 ExplicitWidth = 841
ExplicitHeight = 277 ExplicitHeight = 277
end end
inherited TBXDock1: TSpTBXDock inherited TBXDock1: TSpTBXDock
Top = 73 Top = 51
Width = 841 Width = 841
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 841 ExplicitWidth = 841
@ -377,18 +392,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitWidth = 855 ExplicitWidth = 855
ExplicitHeight = 143 ExplicitHeight = 143
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 338 Left = 437
Height = 201 Height = 201
ExplicitLeft = 338 ExplicitLeft = 437
ExplicitHeight = 201 ExplicitHeight = 201
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 471 Left = 570
Width = 342 ExplicitLeft = 570
Height = 9
ExplicitLeft = 471
ExplicitWidth = 342
ExplicitHeight = 9
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -398,24 +409,22 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 542 Left = 641
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542 ExplicitLeft = 641
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 471 Left = 570
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 471 ExplicitLeft = 570
ExplicitWidth = 90
Width = 90
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -425,41 +434,41 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 471 Left = 570
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 471 ExplicitLeft = 570
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 471 Left = 570
DataBinding.DataField = 'IMPORTE_NETO' DataBinding.DataField = 'IMPORTE_NETO'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 471 ExplicitLeft = 570
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 471 Left = 570
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 471 ExplicitLeft = 570
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 542 Left = 641
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542 ExplicitLeft = 641
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -482,20 +491,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 190 Left = 289
ExplicitLeft = 190 ExplicitLeft = 289
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 221
Width = 221
end
inherited Panel1: TPanel
Width = 185
ExplicitWidth = 185
end end
end end
end end

11
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -235,8 +235,14 @@ begin
FAlbaran.Cliente := ViewAlbaran.ViewClienteAlbaran.Cliente; FAlbaran.Cliente := ViewAlbaran.ViewClienteAlbaran.Cliente;
// Avisar si no hay datos bancarios // Avisar si no hay datos bancarios
{if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then // if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then
ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha');} // ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha');
if Assigned(ViewAlbaran) then
begin
ViewAlbaran.RellenarCuentasBancarias;
ViewAlbaran.AsignarCuentaBancaria;
end;
// Elegir la dirección de envio // Elegir la dirección de envio
{ case FAlbaran.Cliente.Direcciones.RecordCount of { case FAlbaran.Cliente.Direcciones.RecordCount of
@ -266,6 +272,7 @@ begin
FAlbaran.IMPORTE_PORTE := 0; FAlbaran.IMPORTE_PORTE := 0;
end; end;
} }
// Si el pedido tiene detalles hay que mirar si los descuentos // Si el pedido tiene detalles hay que mirar si los descuentos
// para los artículos hay que cambiarlos. // para los artículos hay que cambiarlos.
if (FAlbaran.Detalles.RecordCount > 0) then if (FAlbaran.Detalles.RecordCount > 0) then

54
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -19,7 +19,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
542) 542)
object Label1: TLabel object Label1: TLabel
Left = 22 Left = 22
Top = 443 Top = 507
Width = 299 Width = 299
Height = 26 Height = 26
Caption = Caption =
@ -30,7 +30,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object edtFechaAlbaran: TcxDBDateEdit object edtFechaAlbaran: TcxDBDateEdit
Left = 116 Left = 116
Top = 18 Top = 82
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ALBARAN' DataBinding.DataField = 'FECHA_ALBARAN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -60,7 +60,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 510 Top = 574
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -82,7 +82,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 116 Left = 116
Top = -36 Top = 28
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -111,7 +111,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 116 Left = 116
Top = 217 Top = 281
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -135,7 +135,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 375 Left = 375
Top = 244 Top = 308
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -159,7 +159,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 116 Left = 116
Top = 298 Top = 362
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -184,7 +184,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 116 Left = 116
Top = 325 Top = 389
DataBinding.DataField = 'TELEFONO' DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -208,7 +208,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object bElegirDireccion: TBitBtn object bElegirDireccion: TBitBtn
Left = 268 Left = 268
Top = 352 Top = 416
Width = 172 Width = 172
Height = 23 Height = 23
Action = actElegirDireccion Action = actElegirDireccion
@ -218,7 +218,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object Button1: TButton object Button1: TButton
Left = 308 Left = 308
Top = 45 Top = 109
Width = 132 Width = 132
Height = 23 Height = 23
Action = actVerPedidoCli Action = actVerPedidoCli
@ -227,7 +227,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eReferenciaPedidoCli: TcxTextEdit object eReferenciaPedidoCli: TcxTextEdit
Left = 116 Left = 116
Top = 45 Top = 109
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Enabled = False Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
@ -254,7 +254,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 116 Left = 116
Top = 104 Top = 168
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -288,7 +288,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 308 Left = 308
Top = 104 Top = 168
Width = 132 Width = 132
Height = 23 Height = 23
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
@ -297,7 +297,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eFechaRecepcion: TcxDBDateEdit object eFechaRecepcion: TcxDBDateEdit
Left = 604 Left = 604
Top = 235 Top = 299
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION' DataBinding.DataField = 'FECHA_RECEPCION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -327,7 +327,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbConAlmacen: TCheckBox object cbConAlmacen: TCheckBox
Left = 32 Left = 32
Top = 411 Top = 475
Width = 179 Width = 179
Height = 21 Height = 21
Caption = 'Asociar este albar'#225'n al almac'#233'n:' Caption = 'Asociar este albar'#225'n al almac'#233'n:'
@ -337,7 +337,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbAlmacen: TcxDBLookupComboBox object cbAlmacen: TcxDBLookupComboBox
Left = 217 Left = 217
Top = 411 Top = 475
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -372,7 +372,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eRefFacturaCli: TcxDBTextEdit object eRefFacturaCli: TcxDBTextEdit
Left = 116 Left = 116
Top = 160 Top = 224
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REF_FACTURA' DataBinding.DataField = 'REF_FACTURA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -401,7 +401,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eFechaPrevista: TcxDBDateEdit object eFechaPrevista: TcxDBDateEdit
Left = 604 Left = 604
Top = 181 Top = 245
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -433,7 +433,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eRefCliente: TcxDBTextEdit object eRefCliente: TcxDBTextEdit
Left = 116 Left = 116
Top = -9 Top = 55
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_CLIENTE' DataBinding.DataField = 'REFERENCIA_CLIENTE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -463,7 +463,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eFechaEnvio: TcxDBDateEdit object eFechaEnvio: TcxDBDateEdit
Left = 604 Left = 604
Top = 208 Top = 272
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -493,7 +493,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbProvincia: TcxDBComboBox object cbProvincia: TcxDBComboBox
Left = 116 Left = 116
Top = 244 Top = 308
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -523,7 +523,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbPoblacion: TcxDBComboBox object cbPoblacion: TcxDBComboBox
Left = 116 Left = 116
Top = 271 Top = 335
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -553,7 +553,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
inline frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran inline frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran
Left = 470 Left = 470
Top = -36 Top = 28
Width = 406 Width = 406
Height = 181 Height = 181
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -565,7 +565,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 18 TabOrder = 18
ReadOnly = False ReadOnly = False
ExplicitLeft = 470 ExplicitLeft = 470
ExplicitTop = -36 ExplicitTop = 28
ExplicitWidth = 406 ExplicitWidth = 406
ExplicitHeight = 181 ExplicitHeight = 181
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -578,8 +578,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 281 Left = 281
@ -602,8 +600,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 110 ExplicitTop = 110
ExplicitWidth = 283
Width = 283
end end
inherited edtDireccion: TcxMemo inherited edtDireccion: TcxMemo
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -645,7 +641,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbCuentaBancaria: TcxDBComboBox object cbCuentaBancaria: TcxDBComboBox
Left = 116 Left = 116
Top = 133 Top = 197
DataBinding.DataField = 'DATOS_BANCARIOS' DataBinding.DataField = 'DATOS_BANCARIOS'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList

25
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
View File

@ -33,6 +33,9 @@ type
function GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran; function GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran;
property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran; property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran;
procedure RellenarCuentasBancarias;
procedure AsignarCuentaBancaria;
end; end;
TfrViewAlbaranCliente = class(TfrViewBase, IViewAlbaranCliente) TfrViewAlbaranCliente = class(TfrViewBase, IViewAlbaranCliente)
@ -139,7 +142,6 @@ type
procedure CargarProvincias; procedure CargarProvincias;
procedure CargarPoblaciones; procedure CargarPoblaciones;
procedure RellenarCuentasBancarias;
function GetAlbaran: IBizAlbaranCliente; function GetAlbaran: IBizAlbaranCliente;
procedure SetAlbaran(const Value: IBizAlbaranCliente); virtual; procedure SetAlbaran(const Value: IBizAlbaranCliente); virtual;
@ -152,6 +154,9 @@ type
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran; property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran; property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran;
property Controller : IAlbaranesClienteController read GetController write SetController; property Controller : IAlbaranesClienteController read GetController write SetController;
procedure RellenarCuentasBancarias;
procedure AsignarCuentaBancaria;
end; end;
implementation implementation
@ -219,6 +224,16 @@ begin
(Sender as TAction).Enabled := (Albaran.REF_PEDIDO <> '') (Sender as TAction).Enabled := (Albaran.REF_PEDIDO <> '')
end; end;
procedure TfrViewAlbaranCliente.AsignarCuentaBancaria;
begin
FAlbaran.Edit;
try
FAlbaran.DATOS_BANCARIOS := cbCuentaBancaria.Properties.Items[0];
finally
FAlbaran.Post;
end;
end;
procedure TfrViewAlbaranCliente.bFormasPagoClick(Sender: TObject); procedure TfrViewAlbaranCliente.bFormasPagoClick(Sender: TObject);
begin begin
inherited; inherited;
@ -461,7 +476,7 @@ begin
BeginUpdate; BeginUpdate;
try try
Clear; Clear;
Add(''); {
for i := 0 to ALista.Count - 1 do for i := 0 to ALista.Count - 1 do
Add(ALista.Names[i]); Add(ALista.Names[i]);
@ -471,14 +486,16 @@ begin
for i := 0 to AListaIBAN.Count - 1 do for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]); Add(AListaIBAN.Names[i]);
end; end;
}
if AListaCliente.Count > 0 then if AListaCliente.Count > 0 then
begin begin
Add('--------------'); // Add('--------------');
for i := 0 to AListaCliente.Count - 1 do for i := 0 to AListaCliente.Count - 1 do
Add(AListaCliente.Names[i]); Add(AListaCliente.Names[i]);
end; end;
Add('');
finally finally
EndUpdate; EndUpdate;
end; end;

8
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -313,9 +313,13 @@ begin
CODIGO_POSTAL := FCliente.CODIGO_POSTAL; CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
PROVINCIA := FCliente.PROVINCIA; PROVINCIA := FCliente.PROVINCIA;
POBLACION := FCliente.POBLACION; POBLACION := FCliente.POBLACION;
if (ID_FORMA_PAGO = 0) and (FCliente.ID_FORMA_PAGO > 0) then if (AppFactuGES.EmpresaActiva.ID_FORMA_PAGO > 0) then
ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO
else if (FCliente.ID_FORMA_PAGO > 0) then
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
if (ID_TIPO_IVA = 0) and (FCliente.ID_TIPO_IVA > 0) then if (AppFactuGES.EmpresaActiva.ID_TIPO_IVA > 0) then
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA
else if (FCliente.ID_TIPO_IVA > 0) then
ID_TIPO_IVA := FCliente.ID_TIPO_IVA; ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA; RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
DESCUENTO := FCliente.DESCUENTO; DESCUENTO := FCliente.DESCUENTO;

56
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
View File

@ -49,34 +49,34 @@
<DelphiCompile Include="FacturasCliente_view.dpk"> <DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="..\AlbCli_FacCli_relation.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="..\Articulos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Contactos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="..\cxDataD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="..\dxComnD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="..\dxCoreD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\FacturasCliente_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_controller.dcp" />
<DCCReference Include="..\FacturasCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
<DCCReference Include="..\GestorInformes_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\PreCli_FacCli_relation.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PreCli_FacCli_relation.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="..\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDialogOpcionesImpresionFacturasCliente.pas"> <DCCReference Include="uDialogOpcionesImpresionFacturasCliente.pas">
<Form>fDialogOpcionesImpresionFacturasCliente</Form> <Form>fDialogOpcionesImpresionFacturasCliente</Form>
<DesignClass>TfEditorElegirFacturasCliente</DesignClass> <DesignClass>TfEditorElegirFacturasCliente</DesignClass>

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

@ -231,6 +231,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -251,106 +255,103 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitHeight = 323 ExplicitHeight = 323
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 888 Width = 888
Height = 51 Height = 46
ExplicitWidth = 888 ExplicitWidth = 888
ExplicitHeight = 51 ExplicitHeight = 46
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Left = 278 Left = 278
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 334 Left = 0
Top = 0
Wrap = False Wrap = False
ExplicitLeft = 334 ExplicitLeft = 0
ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 399 Left = 65
Top = 0 Top = 22
ExplicitLeft = 399 ExplicitLeft = 65
ExplicitTop = 0 ExplicitTop = 22
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 544 Left = 210
Top = 0 Top = 22
Width = 280 Width = 280
ExplicitLeft = 544 ExplicitLeft = 210
ExplicitTop = 0 ExplicitTop = 22
ExplicitWidth = 280 ExplicitWidth = 280
end end
inherited ToolButton13: TToolButton [7] inherited UpDown1: TUpDown
Left = 0 Left = 490
Top = 0 Top = 22
Wrap = True ExplicitLeft = 490
ExplicitLeft = 0 ExplicitTop = 22
ExplicitTop = 0
ExplicitHeight = 30
end end
inherited UpDown1: TUpDown [8] inherited ToolButton13: TToolButton
Left = 0 Left = 507
Top = 30 Top = 22
ExplicitLeft = 0 ExplicitLeft = 507
ExplicitTop = 30 ExplicitTop = 22
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 17 Left = 515
Top = 30 Top = 22
ExplicitLeft = 17 ExplicitLeft = 515
ExplicitTop = 30 ExplicitTop = 22
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 83 Left = 581
Top = 30 Top = 22
ExplicitLeft = 83 ExplicitLeft = 581
ExplicitTop = 30 ExplicitTop = 22
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 150 Left = 648
Top = 30 Top = 22
ExplicitLeft = 150 ExplicitLeft = 648
ExplicitTop = 30 ExplicitTop = 22
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 233 Left = 731
Top = 30 Top = 22
ExplicitLeft = 233 ExplicitLeft = 731
ExplicitTop = 30 ExplicitTop = 22
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 241 Left = 739
Top = 30 Top = 22
ExplicitLeft = 241 ExplicitLeft = 739
ExplicitTop = 30 ExplicitTop = 22
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 386 Left = 884
Top = 30 Top = 22
ExplicitLeft = 386 ExplicitLeft = 884
ExplicitTop = 30 ExplicitTop = 22
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 511 Left = 1009
Top = 30 Top = 22
ExplicitLeft = 511 ExplicitLeft = 1009
ExplicitTop = 30 ExplicitTop = 22
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 77 Top = 72
Width = 888 Width = 888
Height = 246 Height = 251
ExplicitTop = 77 ExplicitTop = 77
ExplicitWidth = 888 ExplicitWidth = 888
ExplicitHeight = 246 ExplicitHeight = 246
end end
inherited TBXDock1: TSpTBXDock inherited TBXDock1: TSpTBXDock
Top = 51 Top = 46
Width = 888 Width = 888
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 888 ExplicitWidth = 888

6
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -348,6 +348,12 @@ procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject);
begin begin
FFactura.Cliente := ViewFacturaCliente.ViewClienteFactura.Cliente; FFactura.Cliente := ViewFacturaCliente.ViewClienteFactura.Cliente;
if Assigned(ViewFacturaCliente) then
begin
ViewFacturaCliente.RellenarCuentasBancarias;
ViewFacturaCliente.AsignarCuentaBancaria;
end;
if not (FFactura.DataTable.State in dsEditModes) then if not (FFactura.DataTable.State in dsEditModes) then
FFactura.DataTable.Edit; FFactura.DataTable.Edit;

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

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 859 Width = 451
Height = 407 Height = 304
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,18 +9,16 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 859 Width = 451
Height = 407 Height = 304
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
859 451
407) 304)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 135 Left = 135
Top = 28 Top = 28
@ -118,7 +116,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 269 Width = 269
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 278 Left = 161
Top = 112 Top = 112
Width = 132 Width = 132
Height = 23 Height = 23
@ -145,7 +143,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 165 Width = 165
end end
inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
Left = 440 Left = 323
Top = 28 Top = 28
Width = 531 Width = 531
Height = 200 Height = 200
@ -157,7 +155,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 6
ReadOnly = False ReadOnly = False
ExplicitLeft = 440 ExplicitLeft = 323
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 531 ExplicitWidth = 531
ExplicitHeight = 200 ExplicitHeight = 200
@ -175,20 +173,20 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 224 Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 284 Left = 171
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 284 ExplicitLeft = 171
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 195 Left = 82
ExplicitLeft = 195 ExplicitLeft = 82
end end
inherited Button4: TButton inherited Button4: TButton
Left = 364 Left = 251
ExplicitLeft = 364 ExplicitLeft = 251
end end
inherited edtPersonaContacto: TcxDBTextEdit inherited edtPersonaContacto: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -199,8 +197,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 403 Width = 403
end end
inherited Button5: TButton inherited Button5: TButton
Left = 364 Left = 251
ExplicitLeft = 364 ExplicitLeft = 251
end end
inherited edtDireccion: TcxMemo inherited edtDireccion: TcxMemo
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''

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

@ -25,6 +25,9 @@ type
function GetViewClienteFactura: IViewDatosYSeleccionClienteFacturaCliente; function GetViewClienteFactura: IViewDatosYSeleccionClienteFacturaCliente;
property ViewClienteFactura: IViewDatosYSeleccionClienteFacturaCliente read GetViewClienteFactura; property ViewClienteFactura: IViewDatosYSeleccionClienteFacturaCliente read GetViewClienteFactura;
procedure RellenarCuentasBancarias;
procedure AsignarCuentaBancaria;
end; end;
TfrViewFacturaCliente = class(TfrViewBase, IViewFacturaCliente) TfrViewFacturaCliente = class(TfrViewBase, IViewFacturaCliente)
@ -70,13 +73,15 @@ type
procedure SetFactura(const Value: IBizFacturaCliente); procedure SetFactura(const Value: IBizFacturaCliente);
function GetController : IFacturasClienteController; function GetController : IFacturasClienteController;
procedure SetController (const Value : IFacturasClienteController); procedure SetController (const Value : IFacturasClienteController);
procedure RellenarCuentasBancarias;
function GetViewClienteFactura: IViewDatosYSeleccionClienteFacturaCliente; function GetViewClienteFactura: IViewDatosYSeleccionClienteFacturaCliente;
public public
property Factura: IBizFacturaCliente read GetFactura write SetFactura; property Factura: IBizFacturaCliente read GetFactura write SetFactura;
property Controller : IFacturasClienteController read GetController write SetController; property Controller : IFacturasClienteController read GetController write SetController;
property ViewClienteFactura: IViewDatosYSeleccionClienteFacturaCliente read GetViewClienteFactura; property ViewClienteFactura: IViewDatosYSeleccionClienteFacturaCliente read GetViewClienteFactura;
procedure RellenarCuentasBancarias;
procedure AsignarCuentaBancaria;
end; end;
@ -91,6 +96,16 @@ uses
{ TfrViewFacturaCliente } { TfrViewFacturaCliente }
procedure TfrViewFacturaCliente.AsignarCuentaBancaria;
begin
FFactura.Edit;
try
FFactura.DATOS_BANCARIOS := cbCuentaBancaria.Properties.Items[0];
finally
FFactura.Post;
end;
end;
procedure TfrViewFacturaCliente.bFormasPagoClick(Sender: TObject); procedure TfrViewFacturaCliente.bFormasPagoClick(Sender: TObject);
begin begin
inherited; inherited;
@ -159,7 +174,7 @@ begin
BeginUpdate; BeginUpdate;
try try
Clear; Clear;
Add(''); {
for i := 0 to ALista.Count - 1 do for i := 0 to ALista.Count - 1 do
Add(ALista.Names[i]); Add(ALista.Names[i]);
@ -169,14 +184,16 @@ begin
for i := 0 to AListaIBAN.Count - 1 do for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]); Add(AListaIBAN.Names[i]);
end; end;
}
if AListaCliente.Count > 0 then if AListaCliente.Count > 0 then
begin begin
Add('--------------'); // Add('--------------');
for i := 0 to AListaCliente.Count - 1 do for i := 0 to AListaCliente.Count - 1 do
Add(AListaCliente.Names[i]); Add(AListaCliente.Names[i]);
end; end;
Add('');
finally finally
EndUpdate; EndUpdate;
end; end;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.0.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "lunes, 01 de febrero de 2010 13:18\0" VALUE "CompileDate", "jueves, 04 de febrero de 2010 11:15\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"