Skineth

Amigos Sou novato em Fivewin e tenho algumas dúvidas. O que é VRMM e para que serve? Grato pela a orientação. Cesar Clipper5.3, Blinker7.0, FWH25 para clipper

Amigos Sou novato em Fivewin e tenho algumas dúvidas. O que é VRMM e para que serve? Grato pela a orientação. Cesar Clipper5.3, Blinker7.0, FWH25 para clipper

Amigos desculpa novamente em reportar a minha dúvida. No meu Sistema está chamando uma TCBROWSE, precisei incluir um novo Dialogo, pois constatei que estava faltando, até aqui tudo bem. Como vejo se após incluir o Dialogo, não está chamando uma TSBROWSE ou TWBROSE, e se está faltando recursos. Cesar Clipper5.3, Blinker7.0, FWH25 para clipper

Amigos Ainda sou novo em Fivewin e WorkShop, precisei incluir no WS um novo Dialogo e após compilar o Sistema apareceu a seguinte mensagem: Aplicação ================= Nome e Caminho: C:\LOCAD\LOCAD.EXE Tamanho: 1,963,968 bytes Maximo de arquivos avertos: (SetHandleCount()) 250 Ocorreu erro em: 11/01/2007, 22:28:18 Descricao: Erro FiveWin/1 Non defenid Id: No: 50 Chamadas ao Stack =================== CHAMADA DE ESTFILTER(1352) CHAMADA DE (b)ESTOQ(95) CHAMADA DE ESTOQ(110) CHAMADA DE (b)BUILDMENU(182) CHAMDA DE MAIN(105) Pergunta: Porque ocorreu essa mensagem e como resolvo? Agradeço pela a ajuda e orientação. Atenciosamente, id=green>id=black> Cesar Clipper5.3, Blinker7.0, FWH25 para clipper

Amigos Ainda sou novo em Fivewin e WorkShop, precisei incluir no WS um novo Dialogo e após compilar o Sistema apareceu a seguinte mensagem: Aplicação ================= Nome e Caminho: C:\LOCAD\LOCAD.EXE Tamanho: 1,963,968 bytes Maximo de arquivos avertos: (SetHandleCount()) 250 Ocorreu erro em: 11/01/2007, 22:28:18 Descricao: Erro FiveWin/1 Non defenid Id: No: 50 Chamadas ao Stack =================== CHAMADA DE ESTFILTER(1352) CHAMADA DE (b)ESTOQ(95) CHAMADA DE ESTOQ(110) CHAMADA DE (b)BUILDMENU(182) CHAMDA DE MAIN(105) Pergunta: Porque ocorreu essa mensagem e como resolvo? Agradeço pela a ajuda e orientação. Atenciosamente, id=green>id=black> Cesar Clipper5.3, Blinker7.0, FWH25 para clipper

Caro Amigo Renato tenta desta forma: FUNCTION ChkMovCX(nEnHoje, nSaHoje) Local aFormPG:={} AADD(aFormPg,{aFormPg[ 2],aFormPg[ 3], até aFormPg[10]}) Qualquer coisa, é só postar suas dúvidas. Cesar Clipper5.3, Blinker7.0, FWH25 para clipper

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

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

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

Caros Amigos do Forum Agradeço pela ajuda que cada um está me dando, desculpa pelas as minha dúvidas, ainda estou começando a dar os primeiros passos em Fivewin. Muito obrigado. Clipper5.3, Blinker7.0, FWH25 para clipper

Caros Amigos do Forum Agradeço pela ajuda que cada um está me dando, desculpa pelas as minha dúvidas, ainda estou começando a dar os primeiros passos em Fivewin. Muito obrigado. Clipper5.3, Blinker7.0, FWH25 para clipper

Obrigado Amigo Alessandro Valeu Clipper5.3, Blinker7.0, FWH25 para clipper

Amigo Alessandro O amigo poderia enviar para o meu e-mail, não tenho. Grato. Clipper5.3, Blinker7.0, FWH25 para clipper

Caros amigos Quando abro a tela de Cadastro de Clientes, me da o seguinte erro: Cannot load FreeImage.DLL O que causa esse erro e como corrigir? Agradeço a atenção. Atenciosamente, Renato Clipper5.3, Blinker7.0, FWH25 para clipper

Caros amigos Quando abro a tela de Cadastro de Clientes, me da o seguinte erro: Cannot load FreeImage.DLL O que causa esse erro e como corrigir? Agradeço a atenção. Atenciosamente, Renato Clipper5.3, Blinker7.0, FWH25 para clipper