Edvaldo1361303230 Posted April 26, 2004 Report Share Posted April 26, 2004 Ok. Um abraco aos amigos. Obrigado ao Vagner pela dica do TSBROWSE, muito bom mesmo. Agora, estou com um problema com a TSBROWSE: Quando existe somente um registro no dbf ou nenhum, nao aparece o cabecalho do Browse e eu preciso muito do cabecalho mesmo se nao houver registros. Desde ja agradeco a quem ja resolveu o problema e puder me ajudar. Edvaldo Quote Link to comment Share on other sites More sharing options...
karinha Posted April 26, 2004 Report Share Posted April 26, 2004 Ola Tio... Veja se te ajuda. Va testando Step By Step. Abracos. /* ADD COLUMN TO oBrw; HEADER "NOME DO CLIENTE" ; SIZE 130 ; DATA FieldWBlock( "NOME DO CLIENTE", Select(BANCODEDADOS) ) ; ALIGN DT_LEFT, DT_CENTER ; // Cells , Header , 3DLOOK TRUE MOVE DT_MOVE_RIGHT */ // building columns for every field making each editable (.T.) //oBrw:LoadFields( .T. ) // freezing up to column 2 //oBrw:nFreeze := 1 // blocking frozen columns //oBrw:lLockFreeze := .T. //oBrw:nColPos := 0 // Posicao a Iniciar o browse //oBrw:nCell := oBrw:nColPos:=1 //oBrw:SetAppendMode( .T. ) //oBrw:lNoHScroll := .T. // flagging columns that affect index key to issue UpStable() when fields change //oBrw:SetIndexCols( 1 ) //oBrw:SetIndexCols( 1, 2 ) // Ativa e Desativa cursor //oBrw:lNoLiteBar := .F. //oBrw:lNoHScroll := .T. //oBrw:nLineStyle := LINES_DOTTED //oBrw:nLineStyle := LINES_VERT //oBrw:nHeightCell +=6 // 3D text bas-relief in all headers //oBrw:Set3DText( .T., .F.,, 2 ) // Alinha centralizado todos os cabecalhos //oBrw:SetAlign( , 2, DT_CENTER ) // vertical header in column 9 //oBrw:SetAlign( 9, 2, DT_VERT ) // interchanging positions between columns 4 and 5 //oBrw:Exchange( 4, 5 ) // activating footers //oBrw:lFooting := .T. //oBrw:nHeightCell += 10 // adjust the header height // oBrw:nHeightHead +=25 // adjust the header height //oBrw:nHeightHead +=4 //oBrw:nHeightHead := 25 João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
ablemos Posted April 29, 2004 Report Share Posted April 29, 2004 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 Quote Link to comment Share on other sites More sharing options...
karinha Posted April 29, 2004 Report Share Posted April 29, 2004 Tbrowse? Ou Tsbrowse? Inclua TSBROWSE.CH E TSBROWSE.PRG NO RMK E LNK TSBROWSE.LIB NO LNK tente de novo. João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
ablemos Posted April 29, 2004 Report Share Posted April 29, 2004 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 Quote Link to comment Share on other sites More sharing options...
karinha Posted April 29, 2004 Report Share Posted April 29, 2004 Olá... Esta LIB vem junto com o BORLAND C++ 5.5 para Five + Harbour está disponivel gratuitamente em: http://www.upseros.com/ secção COMPILADORES, baixe lá. Exemplos com TSBROWSE, em http://www.dbwide.com.ar em dicas mais dicas também tem postada pelo ALEX2002, mira lá, ou peça a ele por favor, outra saida, é pedir ao autor do tópico, pois assim os dois aprendem juntos, eu não uso TSBROWSE, respondi a pergunta do Edvaldo, 'olhando' um DEMO que um amigo do NORTE do Pais, enviou-me, infelizmente, não tenho autorização para enviar exemplos dos meus amigos, vai entender isso, um dia que enviar-me algo e outra pessoa pedir-me algo, vai ver que eu responderei como você fez, mas nunca enviarei seu módulo para ninguem! Fidelidade, é tudo! Confiança, a gente não compra... Nasce com ela! Mesmo lamentando, não posso! Sorry! Edvaldo, figlio mio, faça-me esta especial gentileza de enviar um demo para nostro amico por favor. Agradeço-lhe antecipadamente! Super abraço. Dúdas, ligue-me! Vagner... Prepare-se... Amanhã, vou 'batê-lo' nas CERVAS! Brahmas, Antarcticas... Elias... Venha meu rei! Tô com saudades! Diz ke sim... Ahhh vai... Vem você também! Ale_bass... Você pode vir? Vamos 'brigar' com as cervejas? hehehehe. Edvaldo... Amanhã tô 'podendo' todas! E você? Tá 'podendo', ou não? I Love Fivewin the best .and. WorkShop.Exe Super abraço. João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
vagner Posted April 29, 2004 Report Share Posted April 29, 2004 Hehhehehehe, só pq é moderador, pensa q pode me bater em Breja, pirou de vez (hehehehehehe) Abraços Vagner Wirts São Paulo-Brasil Quote Link to comment Share on other sites More sharing options...
ablemos Posted April 29, 2004 Report Share Posted April 29, 2004 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 Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted May 13, 2004 Author Report Share Posted May 13, 2004 Ok. Alessandro, eu estava fora e nao pude ver o forum, so agora consegui acessar e vi a sua colocacao. Nao sei se ainda interessa, mas eu tambem estou quebrando a cabeca com a tsbrowse e estou lhe enviando um email com o exemplos que peguei na dbwide e um exemplo que estou testando, sendo que o que estou desenvolvendo esta' bem facil de entender ate onde eu estou desenvolvendo. Um abraco Quote Link to comment Share on other sites More sharing options...
karinha Posted May 13, 2004 Report Share Posted May 13, 2004 O Vagner Wirts Já Postou Um Ótimo exemplo em DICAS mais dicas. Mirem lá. João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted May 13, 2004 Author Report Share Posted May 13, 2004 Ok. Wagner ou Joao ou outros feras da tsbrowse: Tenho uma tsbrowse: codigo descricao quant unitario total do item 001 cerveja brahma 10 2,50 25,00 002 cerveja bohemia 5 3,00 15,00 TOTAL DA COMPRA 35,00 Preciso atualizar o TOTAL DA COMPRA automaticamente sempre que for alterada quantida, unitario ou total do item Gostaria de saber que comandos eu uso na tsbrowse para resolver o problema. Nao consegui assimilar o modelo do exemplo dbwide usado para calculo de media de idade. Obrigado Quote Link to comment Share on other sites More sharing options...
vagner Posted May 13, 2004 Report Share Posted May 13, 2004 (hehehehhe), Não posso lhe ajudar , não têm Antarctica , vou deixar para o João Abraços Vagner Wirts São Paulo-Brasil Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted May 13, 2004 Author Report Share Posted May 13, 2004 Ok. Ok. Wagner, hehehehe, ja vi que voce nao toma toda essa breja que voce fala nao. hehehehe, trocar antarctica por brahma e por bohemia ??? Mas e' a boa... So que agora estou com mais outro problema: Preciso criar comandos, alem daqueles para atualizar o valor da compra, tambem para saber se foi teclado [enter] e em qual coluna. He, ai a antarctica e' por minha conta. Abracos Quote Link to comment Share on other sites More sharing options...
karinha Posted May 13, 2004 Report Share Posted May 13, 2004 Ola.. Sua pergunta, não tem nada a ver com TSBROWSE... O ke você quer, é pura lógica de programação... Seria +- como segue abaixo... //--- Se ja existirem registros, resoma, para o caso de alteracao. // //DbSelectArea( ( oDbf2:cAlias ) ) // Clipper Puro Select ( oDbf2:cAlias ) If Recc() > 0 Do While !Eof() SysRefresh() nTotOrc += ( QTD_VENDEU * VALOR ) nTotCust += ( QTD_VENDEU * PRCUSTO ) DbSkip(1) // Clipper Puro //Skip // Em Ingles Enddo Endif Mostre o total da variavel... Tandeu? Veja se entendeu o ke kiss dizer, senão, mande um e_mail para o de Minas Gerais, pois preciso saber se ele já dominou o frente de caixa dele. Abraços. Marcio, se ler esta, responda esta questão sim? Estou chamando! Não me negue isto! João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted May 13, 2004 Author Report Share Posted May 13, 2004 Ok. Joao Ok. Veja, no exemplo da tsbrowse, nao sei se voce chegou a ver, existe um campo chamado [media de idade]e este campo e' automaticamente atualizado sempre que voce altera a coluna de idade e eu adorei o exemplo, mas nao consegui fazer igual. Um abraco Quote Link to comment Share on other sites More sharing options...
karinha Posted May 13, 2004 Report Share Posted May 13, 2004 Olá Edvaldo... Você está me assustando! Abra o banco de dados EMPLOYEE.DBF e veja: AGE = Idade em Português. Abra SBTEST.PRG e veja tudo que tem o a variável . Ex.: Field AGE ...: nAGEtot := 0 ...: nOLDAge := 0 Teste com carinho, e vá 'lendo' o módulo SBTEST.PRG ke você vai entender! Veja onde o programa checa se AGE(idade) > 60 fácil. Veja onde ele calcula(Você vai ter de descobrir sózinho) DbEval( { || nAgeTot += Age } ) // Tandeu? Como em um WHILE! Conforme postei! DbGotop() Ligue-me, preciso falar com você hoje ou amanhã. Abraços. 3106-2832 João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted May 14, 2004 Author Report Share Posted May 14, 2004 Ok. Um abraco ao amigo Joao Santos. Voce tem razao. E' uma pena, pois achei que a tsbrowse tinha este poder. Quanto a tecla pressionada, ja descobrir com o bKeydown. Abracos Edvaldo Quote Link to comment Share on other sites More sharing options...
karinha Posted May 14, 2004 Report Share Posted May 14, 2004 Olá amigão... Você perdeu a parada, então vai ter que 'pagar' as antarticas para o Vagner e as Brahmas pra mim. Promessa é dÃvida. 'Dançou'! hehehehehe Abraços. João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted May 14, 2004 Author Report Share Posted May 14, 2004 Ok. Heim Joao Ok. Vou pagar a situacao; mas tem um porem: Voce ou o Vagner precisao me dizer como faco para mostrar na tsbrowse corretamente uma coluna de quantidade que tem quantida inteira e quantidade fracionada. codigo descricao do produto quant unit total 001 cerveja antarctica 10 2,50 25,00 010 acem sem osso 2,957 3,80 11,24 002 cerveja brahma 5 2,50 12,50 011 alcatra 0,952 4,70 4,47 Obs: Nao vale toda a coluna com uma unica picture. Um abraco Edvaldo Quote Link to comment Share on other sites More sharing options...
vagner Posted May 14, 2004 Report Share Posted May 14, 2004 Bom já q vc colocou as ANTARCTICAS (Ainda vou pedir comissão para a Antarctica ), eu vou responder , basta vc fazer um transforme na hora de apresentar, tudo dentro de um Iif , vou dar um exemplo, depois vc acerta, Iif(ANTARCTICA,Tran(SuaVar,"@E 999,999,999,999"),Tran(SuaVar,"@E 999,999.99")) Abraços Vagner Wirts São Paulo-Brasil Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted May 17, 2004 Author Report Share Posted May 17, 2004 Ok. Vagner, um abraco. Esta opcao infelizmente nao funciona. Sempre prevalece a primeira picture, mesmo nao atendendo a condicao do iif ou if. Mas ta valendo a antarctica ainda. Um abraco Edvaldo Quote Link to comment Share on other sites More sharing options...
vagner Posted May 18, 2004 Report Share Posted May 18, 2004 Como você fez para colocar a condição ?, poste uma parte do seu fonte. Abraços Vagner Wirts São Paulo-Brasil 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.