Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Error de componente al cambiar el valor del campo comision en la lista de vendedores

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@599 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2014-11-18 17:30:54 +00:00
parent 64028da66b
commit f4e7bb4936
3 changed files with 569 additions and 586 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1142
Source/Modulos/Comisiones/Views/uEditorComision.dfm
View File

File diff suppressed because it is too large Load Diff

9
Source/Modulos/Comisiones/Views/uEditorComision.pas
View File

@ -261,13 +261,18 @@ end;
procedure TfEditorComision.OnComisionChanged(Sender: TObject); procedure TfEditorComision.OnComisionChanged(Sender: TObject);
begin begin
inherited; inherited;
FImporteTotalFacturas := frViewFacturasComision1.cxGridView.DataController.Summary.FooterSummaryValues[1];
FImporteTotalFacturas := frViewFacturasComision1.cxGridView.DataController.Summary.FooterSummaryValues[1];
//Recalculamos comisiones //Recalculamos comisiones
if Assigned(FController) if Assigned(FController)
and (not VarIsNull(FImporteTotalFacturas)) and (not VarIsNull(FImporteTotalFacturas))
and (FImporteTotalFacturas > 0) then and (FImporteTotalFacturas > 0) then
FController.RecalcularComisiones(Comision, FImporteTotalFacturas); begin
if Comision.Vendedores.DataTable.Editing then
Comision.Vendedores.post; //fallo componente no se enteraría del cambio
FController.RecalcularComisiones(Comision, FImporteTotalFacturas);
end;
end; end;
procedure TfEditorComision.OnFacturasComisionAfterSummary(ASender: TcxDataSummary); procedure TfEditorComision.OnFacturasComisionAfterSummary(ASender: TcxDataSummary);

4
Source/Modulos/Comisiones/Views/uViewVendedoresComision.dfm
View File

@ -60,8 +60,8 @@ inherited frViewVendedoresComision: TfrViewVendedoresComision
Caption = 'Comisi'#243'n' Caption = 'Comisi'#243'n'
DataBinding.FieldName = 'COMISION' DataBinding.FieldName = 'COMISION'
PropertiesClassName = 'TcxSpinEditProperties' PropertiesClassName = 'TcxSpinEditProperties'
Properties.DisplayFormat = ',0.00 %;-,0.00 %' Properties.AssignedValues.DisplayFormat = True
Properties.EditFormat = ',0.00 %;-,0.00 %' Properties.AssignedValues.EditFormat = True
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000 Properties.MaxValue = 100.000000000000000000
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify