carlosgo

boa Maurilio! Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5 --> xharbour/hwGUI/hbMake

é por essas, e outras, que eu tô usando xharbour(free) com hwGUI (free) se os preços fossem mas suaves... []s gomes Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5 --> xharbour/hwGUI/hbMake

vejo um certo pré-conceito de alguns com relação ao "arrastar e soltar" , claro que não é só com isso que se faz um sistema de verdade. Porém, acho eu, que preferir fazer tudo na unha, perdendo tempo, quando o teu cliente não tá nem aí pra qual ferramenta você usa e você precisa de produtividade... não é muito inteligente... Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5 --> xharbour/hwGUI/hbMake

e o Visual FoxPro, tambem é xbase e tem RAD (IDE), acessa DBF, alem de SQL... etc.... ? Pra quem é clippeiro acho q naum muda muito... Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5 --> xharbour/hwGUI/hbMake

jcarlos, veja o exemplo que passei pro jef2_tim, vai funcionar com certeza.... Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5 --> xharbour/hwGUI/hbMake

gilberto é Free mesmo! não é demo não! não tem essa de ficar dando mensagem tipo o FiveWin 1.92 Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5 --> xharbour/hwGUI

estou usando xharbour.org e por enquanto não tive problemas Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5 --> xharbour/hwGUI

"fechar" gaveta? acho que não existe isso não hein?!?!?!?!? Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5 --> xharbour/hwGUI

fala Jair! você configurou a porta ? p.ex.: mode com2:9600,n,8,1 talvez seja isso... Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5 --> xharbour/hwGUI

kra dá uma olhada em c:\hwgui\samples lá tem alguns exemplos interessantes... eu tô conseguindo caminhar, numa velocidade razoável... poste suas dúvidas em http://br.groups.yahoo.com/group/hwguibr/ aqui é só pra FWin... Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5 --> xharbour/hwGUI

O SET CLIPPER não muda nada... é só colocar a linha de comando no AUTOEXEC.BAT e pronto! Agora, no caso do FILES, vc vai abrir o arquivo SYSTEM.INI no diretório do Windows, ou através do MSCONFIG,vai na seção [386Enh] e vai adicionar a seguinte linha: PerVMFiles=xxx, onde xxx é o número de FILES que vc quer, ok? Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5 --> xharbour/hwGUI Editado por - carlosgo on 27/05/2005 15:29:37

O SET CLIPPER não muda nada... é só colocar a linha de comando no AUTOEXEC.BAT e pronto! Agora, no caso do FILES, vc vai abrir o arquivo SYSTEM.INI no diretório do Windows, ou através do MSCONFIG, vai na seção [386Enh] e vai adicionar a seguinte linha: PerVMFiles=xxx, onde xxx é o número de FILES que vc quer, ok? Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5 --> Xharbour/hwGUI Editado por - carlosgo on 27/05/2005 15:30:44

ahahahahahahahahhhAHAHAHAHAHAHHA AHAAHAHAHAHAHAHAHAHAHAHHAHAHAHAH essa é boa!!!!!!!!!!!! Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5

valeu Marllon Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5

Utilizando o xHarbour eu preciso necessariamente do FiveWin? Meus sistemas podem ser visuais somente utilizando o xHarbour? Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5

citação:Um homem simples e de origem humilde como a maioria de nós, nos deixa um legado que devemos aproveitar em nosso dia a dia.Este homem nos ensinou que necessitamos de tão pouco para sermos felizes e vivermos num mundo de Paz. id=quote>id=quote>Não estou aqui para julgar...e este forum não tem a finalidade de discutir estes assuntos. Claro que J.Paulo II teve suas virtudes. Porém, estes exemplos acima ele não nos deixou, pois vivia num lugar luxuoso e cheio de pompa, enquanto missionários (Católicos ou não), morriam e ainda morrem pelos países a fora... peregrinar viajando de primeira classe e com aquela segurança toda é mole... Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5

luiz mandei pro teu e-mail veja se te ajuda Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5

jef2_tim, segue um exemplo, vê se te ajuda: Procedure ImpEtqTran() enter=chr(13)+chr(10) // O ENTER DEVE ESTAR NO FINAL DE TODA A LINHA // DE PROGRAMACAO EPL nota2->(DbGotop()) nota2->(DbSeek(mnota)) pedidos->(DbGotop()) pedidos->(Dbseek(nota2->numaf)) mnoment:=pedidos->pdnome mcdbarras:=Str(nota2->numaf,5,0)+ Str(nota2->numnot,5,0) if !empty(pedidos->endent) mender:=pedidos->endent mbairr:=pedidos->baient mcidad:=pedidos->cident mufent:=pedidos->ufent mcepen:=pedidos->cepent mcontt:=pedidos->cntent mtel:=space(9) else mender:=pedidos->pdendereco mbairr:=pedidos->pdbairro mcidad:=pedidos->pdcidade mufent:=pedidos->pdestado mcepen:=pedidos->pdcep mcontt:=subst(pedidos->pdcontato,1,25) mtel := "(" + subst(str(pedidos->ddd,4,0),3,2)+ ")" + str(pedidos->tel1,8,0) endif etcep:="CEP: " + Subst(Str(mcepen,8,0),1,5) + "-" +Subst(Str(mcepen,8,0),6,3) etnota:="NF: " + Str(nota2->numnot,5,0) etvol:=" de " + Str(nota2->traqtd,3,0) set printer to set device to print set printer to lpt1 @ prow(),pcol() say 'ON,D' + enter @ prow(),pcol() say 'Q599,1' + enter @ prow(),pcol() say 'q799' + enter @ prow(),pcol() say 'S2' + enter @ prow(),pcol() say 'D8' + enter @ prow(),pcol() say 'ZT' + enter @ prow(),pcol() say 'JF' + enter @ prow(),pcol() say 'FK"LABLSOFT"' + enter @ prow(),pcol() say 'FS"LABLSOFT"' + enter @ prow(),pcol() say 'C0,3,L,+1,"Contador2"' + enter @ prow(),pcol() say 'GG10,10,"LOGO"' + enter @ prow(),pcol() say 'GG550,40,"LOGO1"'+ enter @ prow(),pcol() say 'A8,202,0,4,1,2,N,"DESTINATARIO:"' + enter @ prow(),pcol() say 'A8,260,0,4,1,2,N,""' + enter @ prow(),pcol() say 'A8,260,0,4,1,2,N,"' + Alltrim(mnoment) + '"'+ enter @ prow(),pcol() say 'A648,260,0,4,1,2,N,""' + enter @ prow(),pcol() say 'A8,317,0,4,1,2,N,"' + Alltrim(mender) + '"' + enter @ prow(),pcol() say 'A168,317,0,4,1,2,N,""' + enter @ prow(),pcol() say 'A648,317,0,4,1,2,N,""' + enter @ prow(),pcol() say 'A8,375,0,4,1,2,N,""' + enter @ prow(),pcol() say 'A8,375,0,4,1,2,N,"' + Alltrim(mbairr) + '"' + enter // @ prow(),pcol() say 'A328,375,0,4,1,2,N,"' + mbairr + '"'+ enter @ prow(),pcol() say 'A8,432,0,4,1,2,N,"' + Alltrim(Alltrim(mcidad)+"-"+mufent) + '"' + enter @ prow(),pcol() say 'A8,490,0,4,1,2,N,"At:"' + enter @ prow(),pcol() say 'A56,490,0,4,1,2,N,"' + Alltrim(mcontt) + '"' + enter //@ prow(),pcol() say 'A216,490,0,4,1,2,N,"' + Alltrim(mcontt) + '"' + enter @ prow(),pcol() say 'B683,212,3,1,2,0,80,B,"' + Alltrim(mcdbarras) + '"' + enter @ prow(),pcol() say 'A12,552,0,3,2,2,N,"' + Alltrim(etnota) + '"'+ enter @ prow(),pcol() say 'A370,551,0,3,2,2,N,"Vol:"' + enter @ prow(),pcol() say 'A599,551,0,3,2,2,N,"' + Alltrim(etvol) + '"' + enter @ prow(),pcol() say 'A515,487,0,4,1,2,N," ' + Alltrim(mtel) + '"' + enter @ prow(),pcol() say 'A236,26,0,4,1,1,N,"Av. Roma 336 "' + enter @ prow(),pcol() say 'A236,55,0,4,1,1,N,"Bonsucesso"' + enter @ prow(),pcol() say 'A236,84,0,4,1,1,N,"Rio de Janeiro"' + enter @ prow(),pcol() say 'A236,112,0,4,1,1,N,"CEP: 21041-060"' + enter @ prow(),pcol() say 'A236,141,0,4,1,1,N,"Tel: (21)2107-0707"' + enter @ prow(),pcol() say 'LE8,185,632,1' + enter @ prow(),pcol() say 'LE9,532,770,1' + enter @ prow(),pcol() say 'A559,432,0,4,1,2,N,"' + Alltrim(etcep) + '"' + enter @ prow(),pcol() say 'A482,551,0,3,2,2,N,C0' + enter @ prow(),pcol() say 'FE' + enter @ prow(),pcol() say 'FR"LABLSOFT"' + enter @ prow(),pcol() say '?' + enter @ prow(),pcol() say '1' + enter @ prow(),pcol() say 'P'+ Alltrim(Str(nota2->traqtd,3,0)) + enter @ prow(),pcol() say enter set printer to lpt1 set print off set device to screen Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5 Editado por - carlosgo on 15/03/2005 16:31:34

putz...... eu também tentei acessar e vi a sacanagem que fizeram....... será que foi a concorrência?????????? hehehehe Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5 Editado por - carlosgo on 15/03/2005 10:48:14 Editado por - carlosgo on 15/03/2005 10:49:33

olá Gilson, a Dialog "od" não está sendo encontrada, será que você não está esquecendo de fazer referencia a ela...ou defini-la ou a ao resource, caso esteja utilizando Workshop? Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fw1.92/Blinker 7/WorkShop 4.5

eu tambem peguei um virus depois que acessei o site abaixo: http://www.fortunecity.es/virtual/manzanita/385/fivewin/ Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fweval/Blinker 7/WorkShop 4.5

ae pessoal, me desculpem ignorancia mas, continua o listbox em branco. o Tião me disse pra usar outro listbox em vez do combo, mas acho que com o combo fica mais legal... Redefine LISTBOX oLbx1 ; Fields Ped_itens ; Sizes 56,320,86,36,60; Headers "Produto","Qtde", "Valor Unitário"; ID 108 OF oDlgComp1 REDEFINE COMBOBOX oCbx1 VAR cProd1 ITEMS aitens ; On Change(Aditens(olbx1)); ID 107 OF oDlgComp1 olbx1:Refresh() Activate Dialog oDlgComp1 Centered Function Aditens(olbx1) AADD(Ped_itens,cProd1+cuniddn+Vqtd1,1) Olbx1:Refresh() Return(.t.) Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fweval/Blinker 7/WorkShop 4.5

Luiz Antonio, no meu sistema eu uso Array e exibo a lista de itens com Achoice(), ficou meio embaralhado aqui, mas acho que vc vai entender... aqui adiciono a primeira linha com num.item,codigo,quantidade, valor unitario, valor total...etc. AADD(Cupom,str(VItem,3,0)+"-"+space(1)+VCodart+space(1)+str(VQdeart,7,0)+space(1)+"X"+space(1)+Transform(VPrUnit,"@E 9,999.99")+"="+space(1)+Transform(VQdeart*VPrUnit,"@E 9,999.99")) aqui adiciono a segunda linha com a descrição do produto AADD(Cupom,space(2)+Produtos->PrdDescri) KEYBOARD CHR(3) KEYBOARD CHR(6) AChoice(06,30,17,76,Cupom,Da_Enter()) funciona beleza.... Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fweval/Blinker 7/WorkShop 4.5

também tô lá! Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fweval/Blinker 7/WorkShop 4.5

Jef2_tim, manda pra mim também... hehe por favor, gomes@foxdgt.com.br Carlos GOMES - RJ msn gomes_dnarj@hotmail.com Clipper 5.2e/Fweval/Blinker 7/WorkShop 4.5