ablemos

Eder Estou usando a versão comercial do xHarbour, então eu uso xBuild, lá eu adiciono os prg e o resource. Uso tb o compilador C padrão, o xCC. Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Estou convertendo o meu sistema em FW p/ FW xHarbour. Qdo eu compilo o sistema, dá um erro ao criar o .exe "Couldn´t build". Eu já coloquei a bwcc32.dll e as linhas q estão em dicas no meu main. Eu uso .res. Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Beto, uso um rotina bem parecida com esta. Mas dá erro do mesmo jeito. Não tenho certeza, mas acho que é quando eu altero um registro chave. Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP Editado por - ablemos on 01/06/2004 17:00:44

Marllon, eu uso assim: index on dtos(dtalav_g)+nrolav_g tag venin1 to vendas // p/ criar o índice use vendas alias vendas shared new via "DBFCDX" sele vendas go nroreg_t // vou p/ o registro selecionado de outra data trareg(0) // função p/ "travar" o registro repl nrolav_g with nrolav_t,dtalav_g with dtalav_t // p/ data atual unlock Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Eu eu a versão 5.2e e a meu indice é: index on dtos(data)+nroped tag venin1 to vendas Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Estou tendo um problema frequente. Uso cdx e tenho no meu dbf um indice com data + nro.pedido. Quando eu altero um pedido com data de outro dia, o arquivo corrompe (DOS ERROR 5). Alguém já passou por este problema ??? Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Jef... Mandei um e-mail com um exemplo. Veja se é util. Qualquer dúvida, me avise. Blz ??? Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

??? Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

João, se possível me avise quando estiver disponível a dica. Muito obrigado pela atenção. Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Por favor, se possível, alguém tem um exemplo prático de como usar a TSBrowse. Obrigado a todos. Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Edvaldo, se vc puder me ajudar, eu agradeço. Não estou conseguindo usar a tsbrowse. Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

João, eu sei que é pedir muito, mas não teria como vc me mandar um exemplo prático do tsbrowse por e-mail. Muitíssimo agradecido. Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP Editado por - ablemos on 29/04/2004 14:28:07

João, peguei o tbrowse, mas não estou conseguindo usar. Dá um erro de UUID.Lib não existe. O que pode ser ??? Obrigado Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

João, deixe explicar melhor. Lanço no meu listbox vários produtos. Tenho várias teclas de atalho (Return,Del,Ins,A,N,...), sendo que quando quero alterar um registro, eu uso o Enter, mas ele edita sempre o primeiro registro da lista. O outro problema é que quando saio da tela destes lançamentos, e o volto, era p/ estar todos os itens lá. Ou seja estão, mas não aparecem no listbox. Não sei se me expressei melhor, mas deu p/ entender ??? Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Gildo, demorei mas... se vc ainda quiser me ajudar, agradeço. Está bem resumido... :-| Outra probema que acontece, é o listbox a oLbxVen. Eu saio da tela de venda sem limpar o arquivo, e quando eu volto os registros estão no dbf mas o listbox não mostra os itens. Quando eu movo a a seta p/ direita, aparece somente o primeiro item. ... sele 0 use auxite alias auxite exclusive // auxiliar front (vendas) go top // MONTA VETOR DE PRODUTOS Priva nomite[08],desite[08],masite[08],lstite,cbcite nomite[01] = "substr(auxite->nompro_g,1,32)" nomite[02] = "transform(auxite->quapro_g,'999,999.99')" nomite[03] = "transform(auxite->vlrpro_g,'999,999.99')" nomite[04] = "transform((auxite->quapro_g * auxite->vlrpro_g)-auxite->despro_g,'999,999.99')" nomite[05] = "auxite->stapro_g" nomite[06] = "auxite->apapro_g" nomite[07] = "transform(auxite->despro_g,'99,999.99')" nomite[08] = "auxite->codpro_g" desite[01] = "DESCRICAO" desite[02] = "QTDE." desite[03] = "VLR. UNIT. R$" desite[04] = "VLR. TOTAL R$" desite[05] = "ENC." desite[06] = "APAR." desite[07] = "DESC." desite[08] = "CODIGO" masite[01] = "@!" masite[02] = "@e 99,999.99" masite[03] = "@e 99,999.99" masite[04] = "@e 99,999.99" masite[05] = "@!" masite[06] = "@!" masite[07] = "@e 99,999.99" masite[08] = "99999" for nrovet_t = 1 to len(nomite) if nrovet_t = 1 lstite := nomite[1] else lstite := lstite+","+nomite[nrovet_t] endi next cbcite = desite redefine listbox oLbxVen ; FIELDS &lstite. ; id 201 ; of oDlgVen ; fieldsizes 250, 070, 100, 100, 035, 070, 100, 070 oLbxVen:aHeaders:=cbcite oLbxVen:lCellStyle:=.t. oLbxVen:nLineStyle:= 4 oLbxVen:GoTop() oLbxVen:Refresh() oLbxVen:bKeyChar = { | nKey, nFlags | Ctrl_Teclas( oDlgVen,oLbxVen, nKey, nFlags, tipven) } ... func Ctrl_Teclas(oDlg, oLbx, nKey, nFlags, tipven ) do case case nKey == VK_RETURN sele auxite inspro(oDlg,"A") sele auxite go top endcase oLbx:Refresh() oDlg:Refresh() oDlg:SetFocus() return nil func inspro(oDlg,tip) Local oDlgPro Priva oSay[11] do while .t. sele auxite codpro_t = auxite->codpro_g nompro_t = auxite->nompro_g vlrpro_t = auxite->vlrpro_g quapro_t = auxite->quapro_g define dialog oDlgPro resource "INSPRO" of OwND oDlgPro:Cargo:= .F. redefine say oSay[1] id 101 of oDlgPro color "B/W" update ... activate dialog oDlgPro centered if oDlgPro:Cargo ... exit endif enddo oDlg:Refresh() oDlg:Setfocus() retu("") Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Pessoal, estou com um problema no listbox. Tenho um listbox com um cadastro de produtos. Tenho um botão e a tecla ENTER com a função p/ alterar o cadastro do produto. Quando uso o botão dá certo, mas quando uso ENTER a função edita o primeira registro da lista, e não o selecionado. O que está acontencendo ??? Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Mais uma vez, obrigadão Vagner. Vou usar esses valores como referência e partir daí p/ acertar o meu. Abraços, e até mais... Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Vagner, qual o valor de referência que eu posso usar nestas configurações ??? O meu está assim: StackSize = 12500 HeapSize = 8500 Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Help Me!!! Ninguem sabe o que este erro não ???? Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Aos experts... As vezes (as vezes) quando mando imprimer com a Pinter e a RPreview dá a seguinte mensagem de erro: "Ocorreu em erro em seu programa. Para mante-lo funcionando clique em Ignorar e salve o trabalho em um novo arquivo. Para encerrar, clique em Fechar. Voce perdera as informacoes adicionadas desde a ultima vez que as salvou. Fechar (Botão) Ignorar (Botão)" Quando clico em ignorar umas 3 vezes, o sistema prossegue normalmente!!! O que estou fazendo de errado??? :-( Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Obrigado pela atenção, Vagner. Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Valeu Vagner, deu certo. Vc sugeriu usar a TDosPrn, mas é possível imprimir imagem com ela, pois estou imprimindo o logotipo da empresa no pedido impresso. Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Vagner, estou fazendo assim: PRINT oPrn NAME "Impressao de Orcamento" PREVIEW nTam := 18 nTamRel := 90 nTamPag := 30 DO WHILE .t. DEFINE FONT oFont NAME "ARIAL" SIZE nTam,-10 OF oPrn oPrn:SetPage(11) oPrn:SetFont(oFont) nLen := oPrn:GetTextWidht("B",oPrn:oFont) IF oPrn:nHorzRes()/nLen < nTamRel nTam-= 0.05 oFont:End() ELSE EXIT ENDIF ENDDO PAGE nLin++ oPrn:CharSay(nLin,04,dtoc(dtalav_t),"D") nLin++ oPrn:CharSay(nLin,13,nomcli_t) ... ENDPAGE ENDPRINT Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Pessoal, estou utilizando a dupla printer/rpreview. Como faço para alterar a distância entres as linha (pulo), já que no padrão ela imprime muito próxima uma linha da outra??? Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP

Maurício, realmente o meu dbf está aberto p/ gravação. Vou testar da maneira que vc falou. Obrigado Alessandro B. Lemos ablemos@ig.com.br Sorocaba/SP