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

Ticket #162 -> Si se cambia una linea de concepto a tipo titulo no me cambia el estilo del concepto ni me borra la información de las otras columnas

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@812 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-12-22 16:20:07 +00:00
parent 61bf784966
commit 32b78b5fa8
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Source/Base/Controladores/uControllerDetallesBase.pas
View File

@ -732,6 +732,23 @@ begin
if ((ATipoCampo = TIPO_DETALLE_TITULO) or (ATipoCampo = TIPO_DETALLE_TITULO_OPCIONAL)) then if ((ATipoCampo = TIPO_DETALLE_TITULO) or (ATipoCampo = TIPO_DETALLE_TITULO_OPCIONAL)) then
begin begin
// Borramos cualquier valor que haya en las columnas de cantidad, importe, etc.
with ADataTable.DataTable do
begin
if not ADataTable.DataTable.Editing then
ADataTable.DataTable.Edit;
FieldByName(CAMPO_CANTIDAD).AsVariant := Null;
FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
FieldByName(CAMPO_IMPORTE_TOTAL).AsVariant := Null;
FieldByName(CAMPO_DESCUENTO).AsVariant := Null;
FieldByName(CAMPO_IMPORTE_PORTE).AsVariant := Null;
if Assigned(FindField('UNIDAD_MEDIDA')) then
FieldByName('UNIDAD_MEDIDA').AsVariant := Null;
ADataTable.DataTable.Post;
end;
if bEnCapitulo then if bEnCapitulo then
begin begin
ADataTable.DataTable.First; ADataTable.DataTable.First;