26 replies to this topic

[Marcmiralles]

Hola Comunidad:

Tengo otro problema de novato que resolver.

En el formulario de facturas tengo varios dbedit que apuntan a un campo de tipo decimal (10,2) (mySQL 5) y al que le he puesto a true la propiedad currency, hasta aquí todo muy bonito ya que sale con el formato correcto y con la €.

Ahora el tema que me trae loco desde hace unos días es como le imputo el resultado del calculo de las líneas de la factura. Es decir, tengo un valor pongamos de 50,60 (Real o doble o Float) he probado con todos ellos i no hay forma de poner el valor al dbedit y luego guardarlo con un post. He probado a entrarlo desde dbeditsubtotal.field.ascurrency, desde dbeditsubtotal.text, desde QCabFact.fieldbyname('subtotal').asCurrency, etc y no hay forma de que me lo acepte, ¿como hago para poner este valor en el campo que está marcado como currency?, he probado mil formas y todas dan error.

Gracias

Marc Miralles

[Marc]

Hola Marc.

Desde luego no entiendo que problema debería haber en un código del tipo :

delphi

var Valor: Double;
...
...
if not (QCabFact.State in [dsEdit, dsInsert]) then QCabFact.Edit;
QCabFact.fieldbyname('subtotal').Value := Valor;
QCabFact.Post;

¿ Nos puedes poner alguno de los códigos que has probado y los errores que te saltan ?.

Salutacions.

[Marc]

Por cierto, el error lo puedes tener en el evento OnChange del campo, en el evento AfterPost, etc. ...

[Marcmiralles]

Gracias Marc, no he estado en el ordenador en todo el día. Voy a probar lo que me dices y te cuento. En las mil pruebas creo que hice algo parecido, y que me decía que el valor no era un float correcto, ya que al ser un currency lleva al € detrás. traté de pasarlo a float y a string (currtofloat y currtostr) y todo me daba error. Ahora estoy en la taller y no puedo hacer pruebas. Mañana las hago y cuento el resultado, a parte de poner el código y el error

Salut.

Marc Miralles.

[Delphius]

Hola Marcmiralles,

No utilizo Lázarus por lo que no sabría si los mensajes de errores (mejor dicho, excepciones) son similares a los de Delphi. ¿Por casualidad el mensaje no es algo como "is not a valid floating point value"?
De ser así el problema está en el uso del símbolo decimal cuando lo escribes en el DBEdit y no en problema numérico o de conflicto de tipo.

Para ayudarte debemos conocer el error exacto y el código. No podemos estar adivinando donde está el problema.

Saludos,

[Sergio]

Creo que intentas meter ese valor en el DBEdit.Text, lo cual no es muy correcto, deberias meterlo en el campo que muestra ese dbedit, usando "Campo.value:=" ó "Campo.AsFloat:=" tal como te comenta Marc.

Piensa que el dbedit muestra un texto sacado a partir del valor numerico (60.52 te lo muestra como "60,52 €", por ejemplo) y ese texto puede ser "read only" o dificil de manipular como poco, mientras que el campo al que apunta ese dbedit tiene su value que se puede manipular como una simple variable (y el dbedit ya se encargará de actualizar el texto por si mismo).

[Marcmiralles]

Hola Marcmiralles,

No utilizo Lázarus por lo que no sabría si los mensajes de errores (mejor dicho, excepciones) son similares a los de Delphi. ¿Por casualidad el mensaje no es algo como "is not a valid floating point value"?
De ser así el problema está en el uso del símbolo decimal cuando lo escribes en el DBEdit y no en problema numérico o de conflicto de tipo.

Para ayudarte debemos conocer el error exacto y el código. No podemos estar adivinando donde está el problema.

Saludos,

El error que me da es:

Invalid argument index in format ""

y el código en cuestión (no es el definitivo sino el de prueba para conseguir meter el dichoso valor en el "*&%$"· DBEdit)

delphi

       QAddLinVentas.post;
       Subtotal :=StrToFloat(txtTotalArt.text); //Aquí hay el valor del calculo del precio del artículo * la cantidad (Dtos, iva, etc)
       label7.caption := CurrToStr(subtotal); // para ver que valor tiene (es algo temporal en plan depurador)
       QCabVentas.Edit;
       //Subtotal := Subtotal + StrToCurr(txtPrecio.text);
 
       QCabVentassubtotal.Value := SubTotal; //El valor trato de meterlo directamente en el campo como me habéis dicho, antes tenía txtSubtotal.text := StrtoCurr(Subtotal); y me daba el mismo error.
       QCabVentas.Post; 

Ayuda please, tiene que ser una cosa de las más tontas.

Saludos

Marc Miralles

[Wilson]

Con que procedimiento obtienes el valor de:

delphi

TextTotalArt.Text

De tu respuesta depende el poder afinar el resto del algoritmo de forma adecuada.

Saludos

[Marcmiralles]

Con que procedimiento obtienes el valor de:

delphi

TextTotalArt.Text

De tu respuesta depende el poder afinar el resto del algoritmo de forma adecuada.

Saludos

Ahora para las pruebas de esta forma:

delphi

txtTotalArt.Text := FormatFloat('0.00',QArticulos.FieldByName('pvp').AsFloat)
Saludos Marc Miralles

[Wilson]

Lo ideal fuera pasarle directamente:

delphi

Subtotal :=  QArticulos.FieldByName('pvp').AsFloat;
TextTotalArt.Text := QArticulos.FieldByName('pvp').Text;
 
// o tambbién
 
TextTotalArt.Text := FloatToStr( SubTotal, '0.00')

Saludos.

PD: Si no lo quieres así, puedes ensayar a cambiar el formato  de una coma en vez del punto, solo por probar porque esto podría darte problemas de acuerdo a la configuración regional en otro PC.

delphi

txtTotalArt.Text := FormatFloat('0,00',QArticulos.FieldByName('pvp').AsFloat)

[Marcmiralles]

TextTotalArt.Text := FloatToStr( SubTotal, '0.00')

Hola Wilson:

Esta opción que me dices y que parece muy lógica devuelve este error al compilar:


Forms/tpv.pas(189,56) Error: Incompatible type for arg no. 2: Got "Constant String", expected "TFormatSettings"

¿alguna idea de porqué?

Saludos

Marc Miralles

[Marcmiralles]

Hola Marc.

Desde luego no entiendo que problema debería haber en un código del tipo :

delphi

var Valor: Double;
...
...
if not (QCabFact.State in [dsEdit, dsInsert]) then QCabFact.Edit;
QCabFact.fieldbyname('subtotal').Value := Valor;
QCabFact.Post;

¿ Nos puedes poner alguno de los códigos que has probado y los errores que te saltan ?.

Salutacions.

He añadido tu código dentro del programa y me salta la excepción :

EconverterrorEconverterror

Invalid argument index in format ""  ¿Alguna idea?  ¿Que estoy haciendo mal?

Salut

Marc Miralles

[Wilson]

TextTotalArt.Text := FloatToStr( SubTotal, '0.00')

Hola Wilson:

Esta opción que me dices y que parece muy lógica devuelve este error al compilar:


Forms/tpv.pas(189,56) Error: Incompatible type for arg no. 2: Got "Constant String", expected "TFormatSettings"

¿alguna idea de porqué?

Saludos

Marc Miralles

Ensaya con

delphi

TextTotalArt.Text := FormatFloat('0.00',Subtotal)

[Marc]

TextTotalArt.Text := FloatToStr( SubTotal, '0.00')

Hola Wilson:

Esta opción que me dices y que parece muy lógica devuelve este error al compilar:


Forms/tpv.pas(189,56) Error: Incompatible type for arg no. 2: Got "Constant String", expected "TFormatSettings"

¿alguna idea de porqué?

Saludos

Marc Miralles

No utilizo la función FloatToStr, pero tiene todo el aspecto de algún error en el paso de los parámetros (según la ayuda de Delphi solo tiene un parámetro).

Personalmente utilizo la función FormatFloat :

TextTotalArt.Text := FormatFloat('0.00', SubTotal);

Salutacions.

[Marc]

Hola Marc.

Hola Marc.

Desde luego no entiendo que problema debería haber en un código del tipo :

delphi

var Valor: Double;
...
...
if not (QCabFact.State in [dsEdit, dsInsert]) then QCabFact.Edit;
QCabFact.fieldbyname('subtotal').Value := Valor;
QCabFact.Post;

¿ Nos puedes poner alguno de los códigos que has probado y los errores que te saltan ?.

Salutacions.

He añadido tu código dentro del programa y me salta la excepción :

EconverterrorEconverterror

Invalid argument index in format ""    ¿Alguna idea?  ¿Que estoy haciendo mal?

Salut

Marc Miralles

¿ En qué linea ?.

¿ En : QCabFact.fieldbyname('subtotal').Value := Valor; siendo SubTotal un campo Float y Valor una variable Double ?. La verdad es que no parece tener mucho sentido, ¿ seguro que no tienes más código en el evento OnChange del campo ?.

Aunque la verdad es que tampoco sé a que se refiere el error con lo del formato con una cadena vacía. ¿ Porqué no borras el campo persistente y lo vuelves a crear ?, no sea que te haya quedado alguna propiedad defectuosa.

Salutacions.

[Marcmiralles]

Hola Marc.

¿ En qué linea ?.

¿ En : QCabFact.fieldbyname('subtotal').Value := Valor; siendo SubTotal un campo Float y Valor una variable Double ?. La verdad es que no parece tener mucho sentido, ¿ seguro que no tienes más código en el evento OnChange del campo ?.

Aunque la verdad es que tampoco sé a que se refiere el error con lo del formato con una cadena vacía. ¿ Porqué no borras el campo persistente y lo vuelves a crear ?, no sea que te haya quedado alguna propiedad defectuosa.

Salutacions.

Lo que te dije, lo que no me pase a mi, jejeje.

No, no hay código en ningún otro evento, de hecho quien hace todo ello es un botón y sólo hay código en el evento del click. He borrado los objetos varias veces, lo que no he probado como dices es a cargarme el campo persistente (no sabía que se llamaba así en Lazarus) .  Lo del formato así de la cadena vacía ¿no puede ser porqué le he dicho en las propiedades del campo que es de tipo currency? ¿no será algo de ZEOS?.

Snif, Snif.


Salut

Marc

[Marc]

¿ Puedes hacer y colgar un proyecto de prueba para que lo probemos ?, con un formulario basta.

Salutacions.

[Marcmiralles]

¿ Puedes hacer y colgar un proyecto de prueba para que lo probemos ?, con un formulario basta.

Salutacions.

Voy a ello y lo subo. Está enlazado a una bd mySQL con 4 campos, también añado el código SQL para crearla

El primer campo currency al cambiar el valor deberís realizar la suma de éste más el segundo valor y lo debería guardar en el tercer campo.

A ver si con esto lo arreglamos

Gracias Marc y todos los demás.

Salut

Marc Miralles

Attached Files

•  2400_fbe4458e87e2b8199a2cf74e9e8528ae897b2675.zip   126.91KB   2 downloads
•  2401_6fe5e9b68193da45e9045c46a40ae47d27f0ad38.zip   995bytes   1 downloads

[Marc]

Hola Marc.

¿ En que linea salta el error ?

1) importe := StrToFloat(DBEdit3.Text) + StrToFloat(DBEdit4.Text);
2) QPruebas.FieldByName('importe3').AsFloat:= importe;

Imagino que saltará en la primera línea, ya que parece inexplicable que pueda saltar en la segunda.

Como dices en otro mensaje, esta versión de Lazarus no identifica correctamente el separador de decimales en las cadenas. En cuyo caso será mejor que nos centremos en el otro hilo que tienes abierto, puesto que el problema no es del DbEdit.

Pero aunque ciertamente, seguro que hay alguna forma de corregir el error para que el StrToFloat funcione como debería, yo simplemente no lo utilizaría, puesto que no me parece la mejor forma de enfocar este cálculo.

DbEdit3 y DbEdit4 están enlazados a campos, por lo tanto es mucho más aconsejable realizar el cálculo directamente sobre los campos implicados.

Es decir, algo de este estilo :

QPruebas.FieldByName('importe3').AsFloat:= QPruebas.FieldByName('Base').AsFloat + QPruebas.FieldByName('IVA').AsFloat;

NOTA: Por cierto, una forma radical pero efectiva de solventar el problema de conversión, es  implementar tu propia función de conversión de cadenas a decimales. De  forma que ya no dependes de librerías externas con potenciales bugs como  el que te has encontrado.

Salutacions.

[Marcmiralles]

Creo que intentas meter ese valor en el DBEdit.Text, lo cual no es muy correcto, deberias meterlo en el campo que muestra ese dbedit, usando "Campo.value:=" ó "Campo.AsFloat:=" tal como te comenta Marc.

Piensa que el dbedit muestra un texto sacado a partir del valor numerico (60.52 te lo muestra como "60,52 €", por ejemplo) y ese texto puede ser "read only" o dificil de manipular como poco, mientras que el campo al que apunta ese dbedit tiene su value que se puede manipular como una simple variable (y el dbedit ya se encargará de actualizar el texto por si mismo).

¡¡¡¡¡¡Por fin!!!!!!!
Pues en el ReadOnly del campo está todo el problema; ni siquiera me había dado cuenta, ya que se debe poner así al cambiar la propiedad Currency a True. Leñe, suerte que leyendo y releyendo y analizando el código que muestra la excepción  y que es el del formateo he visto que ponía readonly. Entonces he cambiado esta propiedad, la he puesto a false  y voila!!!!, todo bien.

Aquí está el código tal y como funciona de P.M.:

delphi

       QCabVentassubtotal.ReadOnly:=false;
       Subtotal := QCabVentassubtotal.Value+ StrtoFloat(txtTotalArt.text);
       QCabVentas.Edit;
       QCabVentas.fieldbyname('subtotal').Value := FormatFloat('0.00',subtotal);
       QCabVentas.Post;
       QCabVentassubtotal.ReadOnly:= true; 

Una tontería más de las que te hacen volver loco, sobre todo cuando empiezas con un lenguaje. Suerte que de Lazarus ya estoy loquito y perdidamente enamorado. 



Gracias, a Todos por vuestro interés y ayuda

Marc Miralles