rmarra

Olá Rone, dê uma olhada nos exemplos sockserv.prg e sockcli.prg Um abraço! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Apurei algumas informações e só está faltando eu dar um comando para limpar a porta. Só não achei nesta classe como fazer. Tô ficando velho!! Help please!! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá pessoal, usei esta classe e está quase ok. O único problema é que após receber a primeira ligação não recebe mais, tendo que sair o sistema do bina e entrar de novo. Alguém sabe o que pode ser feito? O pior é que no sistema atual lá funciona sem problemas. Estou precisando resolver com urgência!! oSocket := TSocket():New(2020) oSocket:Connect("192.168.111.222")) oSocket:bRead := { | oSocket | Domicilio("", oSocket:GetData() ) } Grato. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá pessoal, usei esta classe e está quase ok. O único problema é que após receber a primeira ligação não recebe mais, tendo que sair o sistema do bina e entrar de novo. Alguém sabe o que pode ser feito? O pior é que no sistema atual lá funciona sem problemas. Estou precisando resolver com urgência!! oSocket := TSocket():New(2020) oSocket:Connect("192.168.111.222")) oSocket:bRead := { | oSocket | Domicilio("", oSocket:GetData() ) } Grato. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Ok Yury, vou dar uma analisada. Obrigado! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá pessoal, estou precisando via rede local através do endereço IP, ler um pacote TCP e transformá-lo em um arquivo texto (.TXT) Este pacote vem como string, num formato tipo assim: 04/03|15:55|01|3534196000|Livre 1- É possível fazer em fivewin 16 bits? 2- Alguém que já fez poderia me dar uma dica? Estou perdido sem saber como começar. Desde já agradeço! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá pessoal, estou precisando via rede local através do endereço IP, ler um pacote TCP e transformá-lo em um arquivo texto (.TXT) Este pacote vem como string, num formato tipo assim: 04/03|15:55|01|3534196000|Livre 1- É possível fazer em fivewin 16 bits? 2- Alguém que já fez poderia me dar uma dica? Estou perdido sem saber como começar. Desde já agradeço! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Infelizmente o problema persiste. Tem alguma a coisa a ver com Windows? Já é no terceiro cliente que este erro está ocorrendo exporadicamente. Inclusive com máquinas com processador Semprom com 256 de Ram. OBS: Com relação a índice e arquivo afirmo que não há problema. Outra coisa, minha configuração abaixo está boa? STACKSIZE 11500 HEAPSIZE 8520 Conto com ajuda de vcs. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá Paulo, eu tenho uma rotina de impressão que usa for e dentro do for tenho um while. Eu havia colocado o SysRefresh() apenas depois do Next. Com sua dica agora, coloquei após cada Skip do While e antes do Next. Tipo assim: for do while !eof() skip SysRefresh() enddo SysRefresh() next Tomara que resolva!!! Mando notícias. Um abraço a todos. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Valeu! Grato. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Kapi, me dê uma aula sobre STACKSIZE e HEAPSIZE. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá, em nenhum destes tópicos falou sobre o erro: Ao mudar o STACKSIZE para 26500 e o HEAPSIZE para 4096, passou a dar o erro abaixo: (b)REDEFINE(0) Unrecoverable error 667: Eval stack fault. O que significa? Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Ao mudar o STACKSIZE para 26500 e o HEAPSIZE para 4096, passou a dar o erro abaixo: (b)REDEFINE(0) Unrecoverable error 667: Eval stack fault. O que significa? Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop ? Editado por - rmarra on 19/07/2007 14:01:55

Olá pessoal, vou fazer estas modificações e testar. Porém até hoje não consegui entender bem a função de STACKSIZE e HAPSIZE . Muitíssimo obrigado!! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá Kapi, segue meu Lnk. Desde já agradeço. # Pode Ser Baixado em www.spravki.net.ru/ VersÆo European 6.0 ou em: # http://www.clipperbr.hpg.com.br Tem Blinker 7.0 Muito Bom BLINKER CLIPPER SYMBOL OFF # BLINKER LINK VERSION 7.00 # //3.3 # COMPRIMIR EXECUTAVEL 1=MAXIMO 5=DEFAULTS BLINKER EXECUTABLE COMPRESS 1 # Evita Erro Quando a quantidade de Fontes e muito grande By netspeed(Marcio) BLINKER EXECUTABLE ALIGNMENT 128 # VERBOSE NOBELL BLINKER INCREMENTAL OFF # BLINKER PROCEDURE DEPTH 90 # MAP A,S PACKCODE PACKDATA FILE TERMINAL FILE DBCTRLS FILE CONTROLS FILE SHARED FILE MPAR FILE TDLGCAD FILE VOGET FILE VENDA FILE EXVENDA FILE VENDACAN FILE CANCEORC FILE RECEBER FILE ESTREC FILE DEVVISTA FILE DEVPRAZO FILE FECCAIXA FILE QUITCONV FILE RCA900 FILE CONPRECO FILE REPORT FILE TDOSPRN FILE TDOSPRNU FILE FISPRN FILE LOADDLL FILE TRNCENTR FILE TefCtrl FILE PinCtrl FILE CADCLI FILE CADMED FILE COPRECAN FILE CFGINI FILE MSGRUN FILE TSBUTTON FILE BPAINT File msgmeter File checkbox File combobox File vmw File __wait_b File CdxLock file helpchm File VidaLink File EPharma File VISUCONV File FUN_CARD File CONESPTE File PREVSAUD File CadMed File CFGLOCAL OUTPUT TERMINAL.EXE DEFBEGIN NAME FIVEWIN DESCRIPTION 'RCA FARMA FOR WINDOWS' EXETYPE WINDOWS 3.1 CODE PRELOAD MOVEABLE DISCARDABLE DATA PRELOAD MOVEABLE STACKSIZE 11500 HEAPSIZE 8520 SEGMENT 'PLANKTON_TEXT' NONDISCARDABLE SEGMENT 'EXTEND_TEXT' NONDISCARDABLE SEGMENT 'OM_TEXT' NONDISCARDABLE SEGMENT 'OSMEM_TEXT' NONDISCARDABLE SEGMENT 'SORTOF_TEXT' NONDISCARDABLE SEGMENT 'STACK_TEXT' NONDISCARDABLE DEFEND #------------------------------------------------------------------------------ # LIBS DE TERCEIROS #LIB G:\FW\LIB\SBUTTON #------------------------------------------------------------------------------ # LIBS DO FIVEWIN - BUSCAR SEMPRE NO DIRETà RIO DO FIVEWIN LIB G:\FW\LIB\FIVE LIB G:\FW\LIB\FIVEC LIB G:\FW\LIB\OBJECTS LIB G:\FW\LIB\WINAPI #------------------------------------------------------------------------------ # LIBS DO CLIPPER 5.3B - ESTAS, DEVEM BUSCAR SEMPRE EM \CLIP53\LIB LIB G:\CLIPP53B\LIB\CLIPPER LIB G:\CLIPP53B\LIB\DBFCDX LIB G:\CLIPP53B\LIB\_DBFCDX LIB G:\CLIPP53B\LIB\EXTEND LIB G:\CLIPP53B\LIB\TERMINAL # #----------------FIM DO ARQUIVO LNK-------------------------------------------- Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá Alessandro, quando ocorre este erro não cria o Log. Este erro está ocorrendo exporadicamente ao final de uma impressão na matricial. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá pessoal, o que pode ser este erro? FIVEWIN CAUSOU UMA FALHA DE PROTEÇÃO GERAL NO MÓDULO TERMINAL.DWD EM 0016:000061f3 REGISTROS: EAX=00000000 CS=114f EIP=000061f3 EFLGS=00000286 EBX=114f61ed SS=1957 ESP=000087be EBP=000087ec ECX=00000004 DS=1957 ESI=0002737b FS=89c7 EDX=00000000 ES=017f EDI=0002c750 GS=0000 BYTES EM CS:EIP: c4 5e fc 26 80 7f 04 01 74 03 03 66 fa 61 c4 5e ESVAZIAMENTO DA PILHA: 737bc750 87ce87ec 01670d27 2726002d 737bc750 19570000 00000001 01672726 01441a47 00000000 0d270104 87fe3acf 400f0b85 03eb4a5f 487fe000 f651c6ee Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá pessoal, o que pode ser este erro? FIVEWIN CAUSOU UMA FALHA DE PROTEÇÃO GERAL NO MÓDULO TERMINAL.DWD EM 0016:000061f3 REGISTROS: EAX=00000000 CS=114f EIP=000061f3 EFLGS=00000286 EBX=114f61ed SS=1957 ESP=000087be EBP=000087ec ECX=00000004 DS=1957 ESI=0002737b FS=89c7 EDX=00000000 ES=017f EDI=0002c750 GS=0000 BYTES EM CS:EIP: c4 5e fc 26 80 7f 04 01 74 03 03 66 fa 61 c4 5e ESVAZIAMENTO DA PILHA: 737bc750 87ce87ec 01670d27 2726002d 737bc750 19570000 00000001 01672726 01441a47 00000000 0d270104 87fe3acf 400f0b85 03eb4a5f 487fe000 f651c6ee Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá Wagner, funcionou perfeito!! Muito obrigado!! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá pessoal, estou precisando usar o Set Relation com 3 arquivos. Porém só está pegando a informação correta do último Set Relation. Como ajustar isto? select ESTOQUE dbsetorder(1) go top select LABORAT dbsetorder(1) go top select USOCONT dbsetorder(2) go top set relation to USOCONT->CODIGO Into ESTOQUE set relation to USOCONT->LABORA Into LABORAT SetKey(VK_ESCAPE, {| nKey | nil }) Define Font oFont Name "Ms Sans Serif" Bold Define Dialog oDlgUsoCont Resource "TDLGUSOCONT" of oDlgVenda select USOCONT Redefine LISTBOX oLbxUsoCont fields USOCONT->CODIGO,; USOCONT->DESCRICAO,; LABORAT->FNOME ,; transform(ESTOQUE->EESTOATUAL,"999,999"),; transform(USOCONT->QTCAIXA,"999") ,; transform(USOCONT->USODIARIO,"999") ,; dtoc(USOCONT->DTPREVCOMP) ,; dtoc(USOCONT->DTULTCOMP) ,; transform(USOCONT->QTULTCOMP,"999,999") ; FieldSizes 50,295,140,60,63,70,82,82,70 ; Id 201 ; headers "Código","Produto","Laboratório","Estoque","Qt. Caixa","Uso Diário","Próx. Compra","Dt. Ult. Comp.","Qt. Ult. Comp." ; on dblclick VendeUsoCont(); Font oFont; OF oDlgUsoCont oLbxUsoCont:nClrPane:={|| IF( (oLbxUsoCont:cAlias)->( OrdKeyNo() ) % 2 == 0, rgb(168,211,255), rgb(255,255,255) )} oLbxUsoCont:nClrText:={|| CorPromo() } oLbxUsoCont:aJustify:={0,0,0,0,0,0,0,0,0} oLbxUsoCont:bKeyDown:={|nKey| if(nKey==VK_RETURN, oBtn[1]:Click(),"")} Redefine SButton oBtn[1] ID 102 resource "AddProd16" ; prompt "&Incluir" of oDlgUsoCont Action VendeUsoCont() ; border TEXT POSITION ON_RIGHT Redefine SButton oBtn[2] ID 104 resource "Sair24" ; prompt "Sai&r" of oDlgUsoCont Action oDlgUsoCont:End() ; border TEXT POSITION ON_RIGHT oDlgUsoCont:lHelpIcon := .f. Activate Dialog oDlgUsoCont CENTERED Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá pessoal, estou precisando usar o Set Relation com 3 arquivos. Porém só está pegando a informação correta do último Set Relation. Como ajustar isto? select ESTOQUE dbsetorder(1) go top select LABORAT dbsetorder(1) go top select USOCONT dbsetorder(2) go top set relation to USOCONT->CODIGO Into ESTOQUE set relation to USOCONT->LABORA Into LABORAT SetKey(VK_ESCAPE, {| nKey | nil }) Define Font oFont Name "Ms Sans Serif" Bold Define Dialog oDlgUsoCont Resource "TDLGUSOCONT" of oDlgVenda select USOCONT Redefine LISTBOX oLbxUsoCont fields USOCONT->CODIGO,; USOCONT->DESCRICAO,; LABORAT->FNOME ,; transform(ESTOQUE->EESTOATUAL,"999,999"),; transform(USOCONT->QTCAIXA,"999") ,; transform(USOCONT->USODIARIO,"999") ,; dtoc(USOCONT->DTPREVCOMP) ,; dtoc(USOCONT->DTULTCOMP) ,; transform(USOCONT->QTULTCOMP,"999,999") ; FieldSizes 50,295,140,60,63,70,82,82,70 ; Id 201 ; headers "Código","Produto","Laboratório","Estoque","Qt. Caixa","Uso Diário","Próx. Compra","Dt. Ult. Comp.","Qt. Ult. Comp." ; on dblclick VendeUsoCont(); Font oFont; OF oDlgUsoCont oLbxUsoCont:nClrPane:={|| IF( (oLbxUsoCont:cAlias)->( OrdKeyNo() ) % 2 == 0, rgb(168,211,255), rgb(255,255,255) )} oLbxUsoCont:nClrText:={|| CorPromo() } oLbxUsoCont:aJustify:={0,0,0,0,0,0,0,0,0} oLbxUsoCont:bKeyDown:={|nKey| if(nKey==VK_RETURN, oBtn[1]:Click(),"")} Redefine SButton oBtn[1] ID 102 resource "AddProd16" ; prompt "&Incluir" of oDlgUsoCont Action VendeUsoCont() ; border TEXT POSITION ON_RIGHT Redefine SButton oBtn[2] ID 104 resource "Sair24" ; prompt "Sai&r" of oDlgUsoCont Action oDlgUsoCont:End() ; border TEXT POSITION ON_RIGHT oDlgUsoCont:lHelpIcon := .f. Activate Dialog oDlgUsoCont CENTERED Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Obrigado Alessandro, vou testar. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá pessoal, gostaria de ao entrar numa rotina, desabilidar a tecla ESC e ao sair, habilita-la. Como faço? Desde já agradeço. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop ? Editado por - rmarra on 07/03/2007 13:48:44 Editado por - rmarra on 07/03/2007 13:50:09

Olá pessoal, gostaria de ao entrar numa rotina, desabilidar a tecla ESC e ao sair, habilita-la. Como faço? Desde já agradeço. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop ? Editado por - rmarra on 07/03/2007 13:48:44 Editado por - rmarra on 07/03/2007 13:50:09

Então mesmo dando o append from é importante usar o comando dbSetOrder(0) antes? Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop