Skineth Posted January 9, 2007 Report Share Posted January 9, 2007 Caros amigos O que pode causar esse erro? Como resolver? Aplicacao ========== Nome e Caminho: C:\LOCARODA\LOCADORA.EXE Tamanho: 1,951,360 bytes Maximo de arquivos abertos: ( SetHandleCount() ) 150 Ocorreu erro em: 09/01/2007, 10:29:22 Descricao: Erro BASE/1082 Argument error: - Args: [ 1] = U [ 2] = N 0 Chamadas ao Stack ================= CHAMADA DE FECHAMOVIM(2831) CHAMADA DE (b)VENDRAP(96) CHAMADA DE VENDRAP(140) CHAMADA DE (b)BUILDMENU(142) CHAMADA DE MAIN(104) na linha 2831 está assim: LogReg(nOper,cOper,"RECEBEU R$ "+ALLTRIM(TRANS(nTotParc-mTrc,"@E 999,999.99"))+" REF. VENDA "+ALLTRIM(STR(mCdVenda))+" ("+cTodos+")", nTotParc-mTrc, "VENDA", mCdVenda) Grato pela a ajuda. Cesar Clipper5.3, Blinker7.0, FWH25 para clipper Quote Link to comment Share on other sites More sharing options...
Skineth Posted January 9, 2007 Author Report Share Posted January 9, 2007 Caros amigos O que pode causar esse erro? Como resolver? Aplicacao ========== Nome e Caminho: C:\LOCARODA\LOCADORA.EXE Tamanho: 1,951,360 bytes Maximo de arquivos abertos: ( SetHandleCount() ) 150 Ocorreu erro em: 09/01/2007, 10:29:22 Descricao: Erro BASE/1082 Argument error: - Args: [ 1] = U [ 2] = N 0 Chamadas ao Stack ================= CHAMADA DE FECHAMOVIM(2831) CHAMADA DE (b)VENDRAP(96) CHAMADA DE VENDRAP(140) CHAMADA DE (b)BUILDMENU(142) CHAMADA DE MAIN(104) na linha 2831 está assim: LogReg(nOper,cOper,"RECEBEU R$ "+ALLTRIM(TRANS(nTotParc-mTrc,"@E 999,999.99"))+" REF. VENDA "+ALLTRIM(STR(mCdVenda))+" ("+cTodos+")", nTotParc-mTrc, "VENDA", mCdVenda) Grato pela a ajuda. Cesar Clipper5.3, Blinker7.0, FWH25 para clipper Quote Link to comment Share on other sites More sharing options...
LUIS1361303120 Posted January 9, 2007 Report Share Posted January 9, 2007 boa tarde nTotParc-mTrc, Sera que nao esta subtraindo uma variavel alfanumerica de uma numerica nao.... faca um teste nestas variaveis... luis Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 9, 2007 Report Share Posted January 9, 2007 Mostre estas linhas Cesar: FECHAMOVIM(2831) (b)VENDRAP(96) -> Inicio do Bug. VENDRAP(140) João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
vagner Posted January 9, 2007 Report Share Posted January 9, 2007 Olá, Não seria nTrc ao invés de mTrc ?, está falando que não exite a variável mTrc, por isso dá pau Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 Quote Link to comment Share on other sites More sharing options...
Kbelo Posted January 9, 2007 Report Share Posted January 9, 2007 Vejam isto Args: [ 1] = U //Indefinido ou Nulo [ 2] = N 0 //Numerico Muito provavel que voce tenha declarado a variavel assim Private nTotParc ou Public nTotParc e nao ter passado nenhum valor para esta variavel Declare assim Private nTotParc:=0 ou Public nTotParc:=0 Marcelo Michels celo.michels@ibestvip.com.br celo.michels@hotmail.com marcelo@lorenzi.com.br -> Lorenzi Soluções Têxteis <- Criciuma - SC xHarbour build 0.99.2 + WS Quote Link to comment Share on other sites More sharing options...
Skineth Posted January 9, 2007 Author Report Share Posted January 9, 2007 Amigos agradeço pela a ajuda, postei a função onde dá o erro logo abaixo. Observação: estou começando em Fivewin. static function FechaMovim(nCodPr,mLista,oLbx,mDlg,nTotPed,nVrDin,mTrc,mQtd,mCdVenda,nTabela) LOCAL nDvlr, nDper, lGoOn, oTcoFont, nTotParc IF nTotPed <= 0 MsgAlert(OemToAnsi("NÆo ‚ poss¡vel efetuar fechamento de movimento zerado!"),"Erro") RETURN .f. ENDIF IF lKf return .f. ENDIF lKf := .t. nDesc := 0.00 IF LEFT(vIt10,5) = OemToAnsi("VENDA") nTCdes := nTotPed nDvlr := 0.00 nDper := 0.00 nVlrTot1 := nTCdes nVlrTot2 := 0 nVlrTot3 := 0 nVlrTot4 := 0 nVlrTot5 := 0 nVlrTot6 := 0 nVlrTot7 := 0 nVlrTot8 := 0 nVlrTot9 := 0 nVlrTot0 := 0 whil .t. lConfr := .F. lCredi := .F. nTotParc := 0 DEFINE FONT oTcoFont NAME "Arial" SIZE 0, -40 DEFINE DIALOG oDlFim RESOURCE "VENDAFIM" REDEFINE GET o1Get VAR nVlrTot1 PICTURE "@E 99,999.99" ID 43 OF oDlFim UPDATE VALID MovCalc(@mTrc,oTrco,nVlrTot1,nVlrTot2,nVlrTot3,nVlrTot4,nVlrTot5,nVlrTot6,nVlrTot7,nVlrTot8,nVlrTot9,nVlrTot0,nDesc,@nTCdes,mDlg, nDvlr, nDper) REDEFINE GET o2Get VAR nVlrTot2 PICTURE "@E 99,999.99" ID 45 OF oDlFim UPDATE VALID MovCalc(@mTrc,oTrco,nVlrTot1,nVlrTot2,nVlrTot3,nVlrTot4,nVlrTot5,nVlrTot6,nVlrTot7,nVlrTot8,nVlrTot9,nVlrTot0,nDesc,@nTCdes,mDlg, nDvlr, nDper) REDEFINE GET o3Get VAR nVlrTot3 PICTURE "@E 99,999.99" ID 47 OF oDlFim UPDATE VALID MovCalc(@mTrc,oTrco,nVlrTot1,nVlrTot2,nVlrTot3,nVlrTot4,nVlrTot5,nVlrTot6,nVlrTot7,nVlrTot8,nVlrTot9,nVlrTot0,nDesc,@nTCdes,mDlg, nDvlr, nDper) REDEFINE GET o4Get VAR nVlrTot4 PICTURE "@E 99,999.99" ID 48 OF oDlFim UPDATE VALID MovCalc(@mTrc,oTrco,nVlrTot1,nVlrTot2,nVlrTot3,nVlrTot4,nVlrTot5,nVlrTot6,nVlrTot7,nVlrTot8,nVlrTot9,nVlrTot0,nDesc,@nTCdes,mDlg, nDvlr, nDper) REDEFINE GET o5Get VAR nVlrTot5 PICTURE "@E 99,999.99" ID 49 OF oDlFim UPDATE VALID MovCalc(@mTrc,oTrco,nVlrTot1,nVlrTot2,nVlrTot3,nVlrTot4,nVlrTot5,nVlrTot6,nVlrTot7,nVlrTot8,nVlrTot9,nVlrTot0,nDesc,@nTCdes,mDlg, nDvlr, nDper) REDEFINE GET o6Get VAR nVlrTot6 PICTURE "@E 99,999.99" ID 44 OF oDlFim UPDATE VALID MovCalc(@mTrc,oTrco,nVlrTot1,nVlrTot2,nVlrTot3,nVlrTot4,nVlrTot5,nVlrTot6,nVlrTot7,nVlrTot8,nVlrTot9,nVlrTot0,nDesc,@nTCdes,mDlg, nDvlr, nDper) REDEFINE GET o7Get VAR nVlrTot7 PICTURE "@E 99,999.99" ID 50 OF oDlFim UPDATE VALID MovCalc(@mTrc,oTrco,nVlrTot1,nVlrTot2,nVlrTot3,nVlrTot4,nVlrTot5,nVlrTot6,nVlrTot7,nVlrTot8,nVlrTot9,nVlrTot0,nDesc,@nTCdes,mDlg, nDvlr, nDper) REDEFINE GET o9Get VAR nVlrTot9 PICTURE "@E 99,999.99" ID 52 OF oDlFim UPDATE VALID MovCalc(@mTrc,oTrco,nVlrTot1,nVlrTot2,nVlrTot3,nVlrTot4,nVlrTot5,nVlrTot6,nVlrTot7,nVlrTot8,nVlrTot9,nVlrTot0,nDesc,@nTCdes,mDlg, nDvlr, nDper) REDEFINE GET o0Get VAR nVlrTot0 PICTURE "@E 99,999.99" ID 53 OF oDlFim UPDATE VALID MovCalc(@mTrc,oTrco,nVlrTot1,nVlrTot2,nVlrTot3,nVlrTot4,nVlrTot5,nVlrTot6,nVlrTot7,nVlrTot8,nVlrTot9,nVlrTot0,nDesc,@nTCdes,mDlg, nDvlr, nDper) REDEFINE GET o8Get VAR nVlrTot8 PICTURE "@E 99,999.99" ID 51 OF oDlFim UPDATE VALID MovCalc(@mTrc,oTrco,nVlrTot1,nVlrTot2,nVlrTot3,nVlrTot4,nVlrTot5,nVlrTot6,nVlrTot7,nVlrTot8,nVlrTot9,nVlrTot0,nDesc,@nTCdes,mDlg, nDvlr, nDper) REDEFINE GET oDget2 VAR nDvlr PICTURE "@E 999,999.99" ID 37 OF oDlFim WHEN nDper = 0 VALID MovCalc(@mTrc,oTrco,nVlrTot1,nVlrTot2,nVlrTot3,nVlrTot4,nVlrTot5,nVlrTot6,nVlrTot7,nVlrTot8,nVlrTot9,nVlrTot0,nDesc,@nTCdes,mDlg, nDvlr, nDper) REDEFINE GET oDget3 VAR nDper PICTURE "@E 99.99" ID 35 OF oDlFim WHEN nDvlr = 0 VALID MovCalc(@mTrc,oTrco,nVlrTot1,nVlrTot2,nVlrTot3,nVlrTot4,nVlrTot5,nVlrTot6,nVlrTot7,nVlrTot8,nVlrTot9,nVlrTot0,nDesc,@nTCdes,mDlg, nDvlr, nDper) REDEFINE SAY oTrco PROMPT "R$ "+ALLTRIM(TRANS(mTrc,"@E 99,999.99")) ID 33 OF oDlFim COLORS BrwText, BrwBack oTrco:SetFont(oTcoFont) REDEFINE BUTTON oBtn ID 38 OF oDlFim ACTION (lConfr:=.T., oDlFim:End()) DEFAULT ACTIVATE DIALOG oDlFim nDesc := (nTotPed - nTCdes) oTcoFont:End() IF ! lConfr nDesc := 0 nTCdes := nTotPed nVlrTot1 := 0 nVlrTot2 := 0 nVlrTot3 := 0 nVlrTot4 := 0 nVlrTot5 := 0 nVlrTot6 := 0 nVlrTot7 := 0 nVlrTot8 := 0 nVlrTot9 := 0 nVlrTot0 := 0 oSayTot:Refresh() oSayPgo:Refresh() oSayTrc:Refresh() mDlg:UpDate() lKf := .F. RETURN .f. ENDIF nTotParc := nVlrTot1+nVlrTot2+nVlrTot3+nVlrTot4+nVlrTot5+nVlrTot6+nVlrTot7+nVlrTot8+nVlrTot9+nVlrTot0 IF nTotParc = 0 MsgAlert("Informe o valor pago!",OemToAnsi("Aten‡Æo!")) LOOP ENDIF IF nTotParc < nTotPed nDesc := nTotPed-nTotParc ENDIF cMsg := "" IF mTrc > 0 cMsg += "Troco: R$ "+ALLTRIM(TRANS(mTrc,"@E 999,999.99"))+CRLF ENDIF IF nDesc > 0 cMsg += "Desconto: R$ "+ALLTRIM(TRANS(nDesc,"@E 999,999.99"))+CRLF ENDIF vIt34 := nVlrTot3+nVlrTot4+nVlrTot5+nVlrTot6 *IF MsgYesNo(cMsg+CRLF+OemToAnsi("Confirma o fechamento?"),"Confirmar") IF lConfr EXIT ENDIF END ENDIF lKf := .f. MsgRun(OemToAnsi("Salvando o movimento"), "Aguarde...",{|| SalvaVnd(@mCdVenda,@mLista,nTabela,oLbx,mDlg) }) MsgRun(OemToAnsi("Atualizando estoque e movimento geral..."), "Aguarde...",{|| BaixaEst(nTabela) }) MsgRun(OemToAnsi("Efetuando lan‡amentos."), "Aguarde...",{|| LancCaix(nTotPed, mCdVenda, nTabela) }) Atualiza(mCdVenda, @mLista, @nTotPed, @nVrDin, @mTrc, oLbx, mDlg, nTabela) IF MsgYesNo("Gostaria de imprimir o comprovante?","Imprimir?") MsgRun(OemToAnsi("Imprimindo..."), "Aguarde...",{|| Imprimir(mLista,nTotPed,nVrDin,mTrc) }) ENDIF LogReg(nOper,cOper,"RECEBEU R$ "+ALLTRIM(TRANS(nTotParc-mTrc,"@E 999,999.99"))+" REF. VENDA "+ALLTRIM(STR(mCdVenda))+" ("+cTodos+")", nTotParc-mTrc, "VENDA", mCdVenda) nTotPed := 0; nVrDin:=0; nCodPr:=0; mLista:={}; nDesc := 0 MsgRun(OemToAnsi("Atualizando movimento..."), "Aguarde...",{||(ZapFile(),MovVarl(nTabela), Atualiza(mCdVenda, @mLista, @nTotPed, @nVrDin, @mTrc, oLbx, mDlg, nTabela)) }) return .t. Cesar Clipper5.3, Blinker7.0, FWH25 para clipper Quote Link to comment Share on other sites More sharing options...
Kbelo Posted January 9, 2007 Report Share Posted January 9, 2007 Tente assim LOCAL nDvlr, nDper, lGoOn, oTcoFont, nTotParc:=0 Marcelo Michels celo.michels@ibestvip.com.br celo.michels@hotmail.com marcelo@lorenzi.com.br -> Lorenzi Soluções Têxteis <- Criciuma - SC xHarbour build 0.99.2 + WS Quote Link to comment Share on other sites More sharing options...
Kbelo Posted January 9, 2007 Report Share Posted January 9, 2007 Ah mais uma coisa uma pequena dica quando colocar o codigo no forum colque com (code) e o (/code) no lugar de () coloque [] Marcelo Michels celo.michels@ibestvip.com.br celo.michels@hotmail.com marcelo@lorenzi.com.br -> Lorenzi Soluções Têxteis <- Criciuma - SC xHarbour build 0.99.2 + WS Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.