Cambio para el calculo de porte, en este caso no se desglosa por articulo sino que se suma a la base imponible

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@182 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2007-12-03 18:51:09 +00:00
parent d63c591242
commit 608f28bb9f
2 changed files with 20 additions and 24 deletions

View File

@ -6,7 +6,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ClientWidth = 765 ClientWidth = 765
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 773 ExplicitWidth = 773
ExplicitHeight = 619 ExplicitHeight = 612
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -200,10 +200,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -285,20 +281,20 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 368 Left = 369
Top = 11 Top = 11
Width = 7 Width = 7
Height = 54 Height = 54
ExplicitLeft = 368 ExplicitLeft = 369
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 7 ExplicitWidth = 7
ExplicitHeight = 54 ExplicitHeight = 54
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 484 Left = 485
Top = 92 Top = 92
Width = 192 Width = 192
ExplicitLeft = 484 ExplicitLeft = 485
ExplicitTop = 92 ExplicitTop = 92
ExplicitWidth = 192 ExplicitWidth = 192
end end
@ -312,20 +308,20 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 555 Left = 556
Top = 38 Top = 38
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 555 ExplicitLeft = 556
ExplicitTop = 38 ExplicitTop = 38
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 485 Left = 486
Top = 112 Top = 112
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 485 ExplicitLeft = 486
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -338,36 +334,36 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitTop = 112 ExplicitTop = 112
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 484 Left = 485
Top = 38 Top = 38
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 484 ExplicitLeft = 485
ExplicitTop = 38 ExplicitTop = 38
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 484 Left = 485
Top = 11 Top = 11
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 484 ExplicitLeft = 485
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 484 Left = 485
Top = 65 Top = 65
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 484 ExplicitLeft = 485
ExplicitTop = 65 ExplicitTop = 65
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 555 Left = 556
Top = 65 Top = 65
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 555 ExplicitLeft = 556
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
@ -401,9 +397,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 81 Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 220 Left = 221
Top = 38 Top = 38
ExplicitLeft = 220 ExplicitLeft = 221
ExplicitTop = 38 ExplicitTop = 38
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox

View File

@ -174,7 +174,7 @@ begin
else else
FAlbaran.IMPORTE_PORTE := 0; FAlbaran.IMPORTE_PORTE := 0;
RecalcularPortePorUnidad; // RecalcularPortePorUnidad; Aqui no se desglosa el porte a nivel de articulo
end; end;
function TfEditorAlbaranCliente.GetController: IAlbaranesClienteController; function TfEditorAlbaranCliente.GetController: IAlbaranesClienteController;