Round function with problem - HELP

Post Reply
User avatar
MFarias
Posts: 39
Joined: Wed Jun 25, 2014 11:16 am
Location: João Pessoa,PB - Brazil

Round function with problem - HELP

Post by MFarias »

Hello friends
I have problems when I use the round function a few times, this is the error returned by FiveWin (note: put in errsysw.prg to show what's in errolog)
Errolog :

Code: Select all | Expand

Aplicacao==========   Nome e Caminho: S:\Integrad\Mstar.exe   Tamanho:      25,164,800 bytes   Unidade Mapeada: \\SERVIDOR\Lojao   Windows version: Windows 7 6.1.7601 Service Pack 1 6.1, Build 7601 Service Pack 1   Tempo Desde a Abertura do Programa: 0 hours 20 mins 30 secs    Maximo de arquivos abertos: ( SetHandleCount() )   0   Ocorreu erro em: 07/07/2014, 14:25:58   Versão Mobile:07.2014.08   Descricao: Erro BASE/1094  Erro nos parƒmetros: ROUND   Args:     [   1] = A   { ... } {NIL, -65211}     [   2] = N   3Chamadas ao Stack =================  => ROUND( 0 )PEDIDO2.PRG => CALCULA_TOTAL_GERAL( 10777 )PEDIDO2.PRG => CALCULA_TUDO( 10245 )PEDIDO2.PRG => ITENS_PEDIDO( 6861 )PEDIDO2.PRG => (b)PEDIDO( 1776 )BUTTON.PRG => TBUTTONBMP:CLICK( 163 )CONTROL.PRG => TBUTTON:HANDLEEVENT( 1687 )BUTTONB.PRG => TBUTTONBMP:HANDLEEVENT( 214 )WINDOW.PRG => _FWH( 3236 ) => SENDMESSAGE( 0 )DIALOG.PRG => TDIALOG:COMMAND( 389 ) => TWINDOW:HANDLEEVENT( 0 )DIALOG.PRG => TDIALOG:HANDLEEVENT( 892 )WINDOW.PRG => _FWH( 3236 ) => DIALOGBOX( 0 )DIALOG.PRG => TDIALOG:ACTIVATE( 274 )PEDIDO2.PRG => PEDIDO( 2086 )MSTAR.PRG => (b)MENUPEDIDO( 577 )MENU.PRG => TMENU:ACTIVATE( 496 )MSTAR.PRG => MENUPEDIDO( 592 )MSTAR.PRG => (b)BUTTONBAT_BUILD( 447 )BTNBMP.PRG => TBTNBMP:CLICK( 476 )BTNBMP.PRG => TBTNBMP:LBUTTONUP( 667 )CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1470 )WINDOW.PRG => _FWH( 3236 ) => WINRUN( 0 )WINDOW.PRG => TWINDOW:ACTIVATE( 1003 )MSTAR.PRG => MAIN( 330 )Sistema=======   CPU : Intel(R) Core(TM) i5-3330 CPU @ 3.00GHz   Memoria: 4185764608 (4087660 megas)   Recursos do  sistema: % 90        GDI            : % 90        Utilizador     : % 90   Versao de Windows e MSDOS:  6. 1, **. 2   Aplicacoes em Execucao :   6      1 ,                                                                                                           2 , C:\Windows\syswow64\SHLWAPI.dll                                                                           3 , S:\Integrad\DLL\CobreBemX.dll                                                                             4 , S:\Integrad\DLL\FrSysth.dll                                                                               5 , S:\Integrad\Mstar.exe                                                                                     6 MCI command handling window, C:\Windows\system32\WINMM.DLL                                                                       Variaveis em uso================   Funcao        Tipo   Valor   ==========================   ROUND     Param   1:    O    Classe: ERROR   CALCULA_TOTAL_GERAL     Param   1:    A    Tam:    2     Param   2:    N    3     Local   1:    U         Local   2:    U       CALCULA_TUDO     Param   1:    L    .T.   ITENS_PEDIDO     Param   1:    C    "311488"     Param   2:    L    .T.   (b)PEDIDO     Param   1:    C    "P"     Param   2:    L    .T.     Param   3:    O    Classe: TXBROWSE     Param   4:    O    Classe: TDIALOG     Param   5:    O    Classe: TBUTTONBMP     Param   6:    O    Classe: TGET     Param   7:    O    Classe: TGET     Local   1:    N    3     Local   2:    N    30     Local   3:    S       TBUTTONBMP:CLICK     Param   1:    O    Classe: TBUTTONBMP   TBUTTON:HANDLEEVENT   TBUTTONBMP:HANDLEEVENT     Param   1:    N    2048     Param   2:    N    0     Param   3:    N    0     Local   1:    U       _FWH     Param   1:    N    2048     Param   2:    N    0     Param   3:    N    0     Local   1:    U       SENDMESSAGE     Param   1:    N    0     Param   2:    N    2048     Param   3:    N    0     Param   4:    N    0     Param   5:    N    56     Local   1:    O    Classe: TBUTTONBMP   TDIALOG:COMMAND     Param   1:    N    2752888     Param   2:    N    2048     Param   3:    N    0     Param   4:    N    0   TWINDOW:HANDLEEVENT     Param   1:    N    40     Param   2:    N    2752888     Local   1:    O    Classe: TBUTTONBMP     Local   2:    N    0     Local   3:    N    40     Local   4:    N    2752888   TDIALOG:HANDLEEVENT     Param   1:    N    273     Param   2:    N    40     Param   3:    N    2752888   _FWH     Param   1:    N    273     Param   2:    N    40     Param   3:    N    2752888   DIALOGBOX     Param   1:    N    2752888     Param   2:    N    273     Param   3:    N    40     Param   4:    N    2752888     Param   5:    N    13     Local   1:    O    Classe: TDIALOG   TDIALOG:ACTIVATE     Param   1:    N    4194304     Param   2:    C    "DLG_PEDIDO_00"     Param   3:    N    2098388     Param   4:    O    Classe: TDIALOG   PEDIDO     Param   1:    U         Param   2:    U         Param   3:    U         Param   4:    L    .T.     Param   5:    U         Param   6:    L    .T.     Param   7:    B    {|| ... }     Param   8:    U         Param   9:    U         Param  10:    L    .F.     Param  11:    L    .F.     Local   1:    N    2098388     Local   2:    S         Local   3:    O    Classe: TDIALOG   (b)MENUPEDIDO     Param   1:    L    .T.     Local   1:    U         Local   2:    U         Local   3:    L    .F.     Local   4:    L    .T.   TMENU:ACTIVATE     Param   1:    O    Classe: TMENUITEM   MENUPEDIDO     Param   1:    N    50     Param   2:    N    50     Param   3:    O    Classe: TBAR     Param   4:    L    .T.     Param   5:    N    0     Local   1:    A    Tam:    2   (b)BUTTONBAT_BUILD     Param   1:    O    Classe: TBAR     Param   2:    N    50     Param   3:    N    50     Param   4:    O    Classe: TWINDOW     Local   1:    O    Classe: TMENU   TBTNBMP:CLICK     Param   1:    O    Classe: TBTNBMP   TBTNBMP:LBUTTONUP   TCONTROL:HANDLEEVENT     Param   1:    N    53     Param   2:    N    37     Param   3:    N    0     Local   1:    L    .T.     Local   2:    S       TBTNBMP:HANDLEEVENT     Param   1:    N    514     Param   2:    N    0     Param   3:    N    3473445     Local   1:    U       _FWH     Param   1:    N    514     Param   2:    N    0     Param   3:    N    3473445   WINRUN     Param   1:    N    3473445     Param   2:    N    514     Param   3:    N    0     Param   4:    N    3473445     Param   5:    N    3     Local   1:    O    Classe: TBTNBMP   TWINDOW:ACTIVATE     Param   1:    N    2098388   MAIN     Param   1:    C    "MAXIMIZED"     Param   2:    U         Param   3:    U         Param   4:    U         Param   5:    U         Param   6:    B    {|| ... }     Param   7:    U         Param   8:    B    {|| ... }     Param   9:    U         Param  10:    U         Param  11:    U         Param  12:    U         Param  13:    U         Param  14:    U         Param  15:    U         Param  16:    U         Param  17:    U         Param  18:    U         Param  19:    U         Local   1:    O    Classe: TWINDOW     Local   2:    U         Local   3:    U     

and this here is the source code (PRG) error cited:

Code: Select all | Expand

FUNCTION Calcula_Total_Geral(lappend)         if Verifica_Gets .or. lappend            * // vdescped --->>> PEDIR DESCONTO NA PREPARAÇÃO DO PEDIDO- Pág.3             if vdescped="S"                        if (vbasedes * (vaplic/100)) # vdescReal                  if ! PrimeiraEntrada                     if ! PrimeiraEntrada                        oDescPerc:Refresh()                     endif                    endif                  endif                   if vdescReal > 0                  vaplic2 = round(vdescReal,2) * 100                  if vdescReal # vdescReal1                     vaplic = truncar(round(vaplic2,2) / round(vbasedes,2))                     if cli->desccli # 0                        vaplic:=cli->desccli                     endif                    endif                     vdescReal1 := round(vdescReal,2)                  if ! PrimeiraEntrada                     oDescPerc:Refresh()                  endif                  endif                if vdescReal = 0                  vaplic := 0                  if ! PrimeiraEntrada                     oDescPerc:Refresh()                   endif                  endif            endif               if vTotalBr = 0        vaplic := 0        vdescReal := 0        vtotGeral := 0     endif      vtotGeral := round(vTotalBr,2) - round(vdescReal,2)     if ! PrimeiraEntrada        oDescPerc:Refresh()        oTotGeral:Refresh()       endif      vparcela := round(vtotGeral / vnumetot,3)     vTotparcela :=  round(vparcela * vnumetot,2)     if ! PrimeiraEntrada        oValorParcela:refresh()        oTotalParcela:refresh()           endif     endif   RETURN .t 
FW 17.09 - xHB 1.2.3 - Embarcadero C++ 7
xDevStudio 0.72 - FivEdit ( \o/ ) - Pelles C
MySQL 5.7 - DBF
FastReport - PHP for Web Services - Java Android
http://matheusfariasdev.wordpress.com
User avatar
karinha
Posts: 7920
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Been thanked: 3 times
Contact:

Re: Round function with problem - HELP

Post by karinha »

Qual é a Linha:

CALCULA_TOTAL_GERAL( 10777 ) ??

É esta?

vtotGeral := round(vTotalBr,2) - round(vdescReal,2)

Não deveria ser:

vtotGeral := ( round(vTotalBr,2) ) - ( round(vdescReal,2) )

Teste. abs.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
MFarias
Posts: 39
Joined: Wed Jun 25, 2014 11:16 am
Location: João Pessoa,PB - Brazil

Re: Round function with problem - HELP

Post by MFarias »

João é esta mesmo , vou testar !
Obrigado
FW 17.09 - xHB 1.2.3 - Embarcadero C++ 7
xDevStudio 0.72 - FivEdit ( \o/ ) - Pelles C
MySQL 5.7 - DBF
FastReport - PHP for Web Services - Java Android
http://matheusfariasdev.wordpress.com
User avatar
karinha
Posts: 7920
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Been thanked: 3 times
Contact:

Re: Round function with problem - HELP

Post by karinha »

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Patrizio
Posts: 90
Joined: Wed Nov 07, 2007 8:56 am
Location: Italy
Contact:

Re: Round function with problem - HELP

Post by Patrizio »

BASE/1094 it's a argument error, one parameter passed to round is not numeric.
Post Reply