Page 1 of 1

FWMARIA FIELDPUT

Posted: Fri Jun 05, 2020 1:29 am
by cjcardoza
Estimados FiveWiner's
Tengo un inconveniente que se me presenta aleatoriamente con diferentes valores al grabar en MySql mediante Fieldput() cuando grabo valores numéricos mediante un producto o mediante una variable este valor grabado es diferente al producto calculado, en el ejemplo que le detallo a continuación:
::vGet:nPrecio:=230
::vGet:nPctdes:=10/100
::vGet:nImpDes:= ::vGet:nPrecio * ::vGet:nPctdes
oMovimdet:Append()
oMovimdet:FieldPut("impdes" , ::vGet:nImpDes )
oMovimdet:save()
*** yo muestro la variable mediante un msginfo(::vGet:nImpDes) y me muestra 23
*** pero en la variable "impdes" graba 22
*** por mas intentos de otras maneras de grabar la variable y sin resultados me vi forzado a ejecutar el siguiente Query para q grabe la informacion correctamente
oConex:SqlQuery("UPDATE movimdet SET igv="+ALLTRIM(STR(::vGet:nIgv))+",impdes="+ALLTRIM(STR(::vGet:nImpDes))+;
" WHERE tipcpg='"+::vGet:cTipCpg+"' AND sercpg='"+ALLTRIM(::vGet:cSerCpg)+"' AND nrocpg="+ALLTRIM(STR(::vGet:nNroCpg))+" AND correl="+ALLTRIM(STR(::vGet:nCorrel)))

Agradezco su atención y espero contar con su apoyo

actualmente estoy trabajando con FW1907 + BCC7 + MYSQL 5.5

Re: FWMARIA FIELDPUT

Posted: Sat Jun 06, 2020 3:06 pm
by Armando
cjcardoza:

Intenta redondeando el resultado

Code: Select all

::vGet:nImpDes:= ROUND(::vGet:nPrecio * ::vGet:nPctdes,2)
 
Saludos

Re: FWMARIA FIELDPUT

Posted: Sun Jun 21, 2020 12:38 am
by cjcardoza
Armando
No es problema de redondeo, porque la variable que contiene el resultado es de tipo double(12,2) deberia grabar sin inconveniente.
Es un problema aleatorio que se me presenta de tiempo en tiempo con FWMARIA y que uso en otro sistema con TMYSQL y graba correctamente, en este ejemplo que tengo error es con los numeros que muestro.

Re: FWMARIA FIELDPUT

Posted: Wed Jun 24, 2020 8:01 pm
by jacgsoft
Carlos,

Usa Procedimientos Almacenados, para grabar información, y así te olvidas, si trabajas con Ms-sql server, MySql, MariaDb y cualquier base de datos. :D :D

Re: FWMARIA FIELDPUT

Posted: Thu Jun 25, 2020 2:41 am
by nageswaragunupudi
Intenta redondeando el resultado
Not necessary. The method FieldPut() rounds off the value to the number of decimal places specified for the field.

Re: FWMARIA FIELDPUT

Posted: Thu Jun 25, 2020 2:46 am
by nageswaragunupudi
cjcardoza wrote:Estimados FiveWiner's
Tengo un inconveniente que se me presenta aleatoriamente con diferentes valores al grabar en MySql mediante Fieldput() cuando grabo valores numéricos mediante un producto o mediante una variable este valor grabado es diferente al producto calculado, en el ejemplo que le detallo a continuación:
::vGet:nPrecio:=230
::vGet:nPctdes:=10/100
::vGet:nImpDes:= ::vGet:nPrecio * ::vGet:nPctdes
oMovimdet:Append()
oMovimdet:FieldPut("impdes" , ::vGet:nImpDes )
oMovimdet:save()
*** yo muestro la variable mediante un msginfo(::vGet:nImpDes) y me muestra 23
*** pero en la variable "impdes" graba 22
*** por mas intentos de otras maneras de grabar la variable y sin resultados me vi forzado a ejecutar el siguiente Query para q grabe la informacion correctamente
oConex:SqlQuery("UPDATE movimdet SET igv="+ALLTRIM(STR(::vGet:nIgv))+",impdes="+ALLTRIM(STR(::vGet:nImpDes))+;
" WHERE tipcpg='"+::vGet:cTipCpg+"' AND sercpg='"+ALLTRIM(::vGet:cSerCpg)+"' AND nrocpg="+ALLTRIM(STR(::vGet:nNroCpg))+" AND correl="+ALLTRIM(STR(::vGet:nCorrel)))

Agradezco su atención y espero contar con su apoyo

actualmente estoy trabajando con FW1907 + BCC7 + MYSQL 5.5
We tried our best the reproduce the problem at our end. We might have tried more than 200 times. We did not get this error and every time the value is stored correctly in the database.
We reviewed the code also carefully and there is no scope for any such errors.

We help you to reproduce the error.

This is one of the test programs we used.

Code: Select all

#include "fivewin.ch"

function Main()

   local oCn, cSql, oRs
   local nPrice, nPctdes, nImpdes
   local oDlg, oFont, oGet, oBrw, oBtn

   SetGetColorFocus()

TEXT INTO cSql
 CREATE TABLE numtest (
 id INT  AUTO_INCREMENT PRIMARY KEY,
 price   DECIMAL( 12, 2 ),
 impdes  DECIMAL( 10, 2 ),
 impdesd DOUBLE,
 impdesf FLOAT
 )
ENDTEXT

   oCn   := FW_DemoDB( 6 )
   if oCn == nil
      ? "Connect Fail"
      return nil
   endif

   if oCn:TableExists( "numtest" )
      oCn:DropTable( "numtest" )
   endif
   oCn:Execute( cSql )

   nPrice := nImpDes := nPctDes := 0.00

   oRs   := oCn:numtest

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 800,300 PIXEL TRUEPIXEL TITLE FWVERSION FONT oFont

   @ 30, 20 SAY "Price : " GET oGet VAR nPrice PICTURE "99999.99" SIZE 180,24 PIXEL OF oDlg RIGHT
   oGet:bValid := <||
      nPctdes  := 10/100
      nImpdes  := nPrice * nPctdes

      oRs:Append()
      oRs:price   := nPrice
      oRs:impdes  := nImpdes
      oRs:impdesd := nImpdes
      oRs:impdesf := nImpdes
      oRs:Save()

      oDlg:Update()
      return .t.
      >

   @ 32,400 SAY { || nImpDes } PICTURE "ImpDes : 99999.99" SIZE 300,24 PIXEL OF oDlg UPDATE

   @ 70, 20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg DATASOURCE oRs AUTOCOLS ;
      CELL LINES NOBORDER FOOTERS UPDATE

   oBrw:cFooters := { "INT", "DECIMAL(12,2)", "DECIMAL(10,2)", "DOUBLE", "FLOAT" }
   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

   oRs:Close()
   oCn:Close()

return nil
 
Please try this program and see if you see any error.

Image