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