Sumar edits e ir actualizando

[giulichajari]

El subtotal son los pesos correspondientes a los dolares, y el total son los pesos mas los pesos representados por los dolares, es decir el cliente puede pagar en pesos mas dolares. Entonces se calculan los dolares en pesos en el subtotal mas lo que entregue en pesos y ese es el total en efectivo.

Luego al sumar los cheques es el monto total del haber.

Muchas gracias.

[giulichajari]

Empezado por giulichajari

El subtotal son los pesos correspondientes a los dolares, y el total son los pesos mas los pesos representados por los dolares, es decir el cliente puede pagar en pesos mas dolares. Entonces se calculan los dolares en pesos en el subtotal mas lo que entregue en pesos y ese es el total en efectivo.

Luego al sumar los cheques es el monto total del haber.

Muchas gracias.

Lo que sucede es que tengo un boton para buscar el cliente en una grilla y cuando lo pego lleno el edit de deuda y a la vez nueva deuda con el mismo valor. Pero luego al cargar un pago en ARS por ej pone - y el valor de la suma, es decir que toma el edit nueva deuda como "0" y le resta el total efectivo.

[giulichajari]

Ahora como hago para guardar el contenido de un eddit, el de haber por ej en el campo deuda de la tabla de clientes que es Decimal si el edit es currency?

[[AgustinOrtu]]

No no, ojo, lo que tenés en el texto del edit siempre es un String.

Para guardar ese valor podes usar sentencias sql, usando insert o update, y pasando como parámetro el valor del edit. Deberías convertirlo a currency con StrToCurr

Si tenés dudas con esto solamente avisa por acá, que ahora estoy desde el móvil y me da pereza escribir código

[giulichajari]

Empezado por AgustinOrtu

No no, ojo, lo que tenés en el texto del edit siempre es un String.

Para guardar ese valor podes usar sentencias sql, usando insert o update, y pasando como parámetro el valor del edit. Deberías convertirlo a currency con StrToCurr

Si tenés dudas con esto solamente avisa por acá, que ahora estoy desde el móvil y me da pereza escribir código

Ps ya se que con un insert, pero el contenido del edit esta como Currency por el evento que me paso ecfisa, para que se vea el signo pesos, entonces si hago STRToFloat para guardar el valor en la deuda, no va a funcionar, eso es lo que pregunto.

[ecfisa]

Hola giulichajari.

Si el contenido de la propiedad Text del TEdit que mencionas, tiene un formato como por ejemplo '$ 90.780,33', podrías hacer:

Código Delphi [-]
function UnFormatCurr(const CurrValue: string): string;
begin
   Result:= CurrValue;
   Result:= StringReplace(Result, '$', '', [rfReplaceAll]);
   Result:= StringReplace(Result, '.', '', [rfReplaceAll]);
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= '$ 1.250,25';
  Edit2.Text:= FloatToStr(StrToFloat(UnformatCurr(Edit1.Text)) + 1000);
end;

Saludos

[giulichajari]

Pues me da el problema de que al sacar el punto (.) me graba mal el dato, porque si debe 1.000,00 y pongo 100,00 quedan 900,00, y en la bd graba 9000. Este problema se debe a que usa el punto para los miles y el punto para los decimales, tendria que ser el punto para una cosa y la coma para la otra, me parece