SPDatDiario.BaseImpo :=StringReplace(FillSpacesLeft(FormatFloat('0.00',0) ,16),',','.',[rfReplaceAll]);
SPDatDiario.TIva :=StringReplace(FillSpacesLeft(FormatFloat('0.00',0) ,05),',','.',[rfReplaceAll]);
SPDatDiario.Trec :=StringReplace(FillSpacesLeft(FormatFloat('0.00',0) ,05),',','.',[rfReplaceAll]);