Cambio en el onvalidate del porte porque peta cuando es null, hay que hacer una busqueda masiva de varisnull(displayvalue).

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@180 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2007-12-03 18:49:46 +00:00
parent 152281482b
commit a94fd23879
2 changed files with 3 additions and 3 deletions

View File

@ -6,7 +6,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ClientWidth = 765 ClientWidth = 765
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 773 ExplicitWidth = 773
ExplicitHeight = 651 ExplicitHeight = 644
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

View File

@ -147,8 +147,8 @@ procedure TfEditorPedidoProveedor.frViewTotales1ePortePropertiesValidate(
var Error: Boolean); var Error: Boolean);
begin begin
inherited; inherited;
if not VarIsNull(DisplayValue) then if (not VarIsNull(DisplayValue)) and (VarToStr(DisplayValue) <> '') then
FPedido.IMPORTE_PORTE := DisplayValue FPedido.IMPORTE_PORTE := DisplayValue
else else
FPedido.IMPORTE_PORTE := 0; FPedido.IMPORTE_PORTE := 0;