Hola Primero que nada Agradezco de antemano las respuestas de todos y espero haber comprendido correctamente cada una de sus respuestas bn aqui voy a explicarme un poco mas tellado:
Codigo
Código Delphi
[-]
if loFirst then begin
qryPagos.Filter := 'Folio = '+IntToStr(qryReporteFolio.Value)+' AND Cancelado = '+chr(39)+'False'+chr(39);
qryPagos.First;
lo_s := '';
While not qryPagos.Eof do begin
if lo_s = ' ' then
lo_s := FloatToStr(qryPagosImporte.Value) <---- Primero
else
lo_s := lo_s+FloatToStr(qryPagosImporte.Value);
qryPagos.Next;
end;
Bien de este codigo apartir de una sentencia Sql parto en Busqueda de un resultado en el reglon donde apunto <-------Primero verifico que la caden obtenida de mi query sea un solo resultado y en la segunda verifico si lo_s tiene mas de un resultado me lo envie, bn comprendido como Mencionan antes he sacado por medio de resultados Todos correctos siempre y cuando el resultado arroje que siempre tien 1 solo tipo de pago
cliente 80
importe paga 200
forma pago 1
cliente 90
importe paga 80
forma pago 3
.
.
.Cosecutivamente habiendo 1 sola exibicion genial !!
Bien el problema persiste cuando el cliente tiene mas de dos pagos es decir
lo_s := lo_s+FloatToStr(qryPagosImporte.Value);
En esta parte digamos que el Cliente
120
Importe 100 y 200
tipopago 1 y 3
En esta parte al hacer las validaciones de la forma de pago me tira el resultado en el Ultimo.
qryTipoPago.Value = 3 Then
resutaldo = lo_s;
a lo que lo_s. arroja 100200, cuando deberian ir separados
He ahi mi gran Problema..
Espero haberme dado a entender al 100%