Negrito??

robson · Mensagem por **robson** » 04 Mar 2005 19:10

Olá Amigo,

Alguém poderia me ajudar em uma rotina de vendas, a qual estou querendo q o preço TOTAL saia em NEGRITO.?
Como faço???????

Código: Selecionar todos

*---------------------------- Vendas.prg ---------------------------*
FUNCTION MOLDURAV(var)
@ 07,03 SAY "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿"
@ 08,03 SAY "³Produto                                  ³Quant³ Unit.    ³   Total   ³"
@ 09,03 SAY "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄ´"
@ 10,03 SAY "³                                         ³     ³          ³           ³"
@ 11,03 SAY "³                                         ³     ³          ³           ³"
@ 12,03 SAY "³                                         ³     ³          ³           ³"
@ 13,03 SAY "³                                         ³     ³          ³           ³"
@ 14,03 SAY "³                                         ³     ³          ³           ³"
@ 15,03 SAY "³                                         ³     ³          ³           ³"
@ 16,03 SAY "³                                         ³     ³          ³           ³"
@ 17,03 SAY "³                                         ³     ³          ³           ³"
@ 18,03 SAY "³                                         ³     ³          ³           ³"
@ 19,03 SAY "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÙ"
@ 20,03 say "                                                  TOTAL ===>    [color=red]*aqui [/color]
        "
USE VENDAS
SET FILTER TO pedido = var
go bottom
skip - 08
linha = 10
do while .not. eof()
@ linha,04 SAY desc
@ linha,46 SAY quant
@ linha,64 say valor pict "999,999.99"
unidade = valor / quant
@ linha,52 say unidade pict "999,999.99"
linha = linha + 1
skip
loop
enddo
public totalp 
*TOTALP = SPACE(10)
GO TOP
SUM VALOR TO TOTALP

[color=red]*aqui [/color]
@ 20,64 SAY TOTALP PICT "999,999.99"
set filter to
*close data
RETURN

*---------------------------------
FUNCTION NF1(var)
rfrase = space(40)
@ prow()+1,1 say "================================================"
use empresa
go 1
@ prow()+1,1 say rs
@ prow()+1,1 say ende
@ prow()+1,1 say cidade
@ prow()+1,1 say "CNPJ:"
@ prow()+0,5 say cnpj
@ prow()+0,30 say "IE:"
@ prow()+0,33 say ie
@ prow()+1,1 say "Data:"
@ prow()+0,6 say date()
@ prow()+0,20 say "Hora:"
@ prow()+0,25 say time()
rfrase = frase
use
USE VENDAS
SET FILTER TO pedido = var
go top
@ prow()+1,10 say "NOTA DE VENDA N§:"
@ prow()+0,27 say pedido pict "99999999"
@ prow()+1,1 say "Cod.     Descri‡ao               Qtd.      Total"
@ prow()+1,1 say "------------------------------------------------"
do while .not. eof()
*unidade = valor / quant
@ prow()+1,1 SAY codprod
@ prow()+0,10 SAY desc pict "!!!!!!!!!!!!!!!!!!!!!!!"
@ prow()+0,33 SAY quant
*@ prow()+0,31 say unidade pict "999,999.99"
@ prow()+0,39 say valor pict "999,999.99"
skip
*loop
enddo
set filter to
close data
@ prow()+1,1 say "------------------------------------------------"
@ prow()+1,23 say "Total a Pagar:"
@ prow()+0,39 say totalp pict "999,999.99"
@ prow()+1,23 say "Dinheiro.....:"
@ prow()+0,39 say dinheiro pict "999,999.99"
@ prow()+1,39 say "----------"
@ prow()+1,23 say "Troco........:"
@ prow()+0,39 say troco pict "999,999.99"
@ prow()+1,1 say "================================================"
@ prow()+1,1 say rfrase
@ prow()+1,1 say "================================================"
eject
RETURN



*---------------------------------
FUNCTION NFv3(var)
rfrase = space(40)
@ prow()+1,1 say "================================================"
use empresa
go 1
@ prow()+1,1 say rs
@ prow()+1,1 say ende
@ prow()+1,1 say cidade
@ prow()+1,1 say "CNPJ:"
@ prow()+0,5 say cnpj
@ prow()+0,30 say "IE:"
@ prow()+0,33 say ie
@ prow()+1,1 say "Data:"
@ prow()+0,6 say date()
@ prow()+0,20 say "Hora:"
@ prow()+0,25 say time()
rfrase = frase
use
USE VENDAS
SET FILTER TO pedido = var
go top
public totalp 
*TOTALP = SPACE(10)
SUM VALOR TO TOTALP
GO TOP
@ prow()+1,10 say "OR€AMENTO N§:"
@ prow()+0,27 say pedido pict "99999999"
@ prow()+1,1 say "Cod.     Descri‡ao               Qtd.      Total"
@ prow()+1,1 say "------------------------------------------------"
do while .not. eof()
*unidade = valor / quant
@ prow()+1,1 SAY codprod
@ prow()+0,10 SAY desc pict "!!!!!!!!!!!!!!!!!!!!!!!"
@ prow()+0,33 SAY quant
*@ prow()+0,31 say unidade pict "999,999.99"
@ prow()+0,39 say valor pict "999,999.99"
skip
*loop
enddo
set filter to
close data
@ prow()+1,1 say "------------------------------------------------"
@ prow()+1,23 say "Total a Pagar:"
@ prow()+0,39 say totalp pict "999,999.99"
@ prow()+1,1 say "------------------------------------------------"
@ prow()+1,1 say "Guarde este Or‡amento, para eventual compra"
@ prow()+1,1 say "================================================"
@ prow()+1,1 say rfrase
@ prow()+1,1 say "================================================"
eject
RETURN


*-------------------------------------------
FUNCTION NFv2(var)
rfrase = space(40)
@ prow()+1,1 say "================================================"
use empresa
go 1
@ prow()+1,1 say rs
@ prow()+1,1 say ende
@ prow()+1,1 say cidade
@ prow()+1,1 say "CNPJ:"
@ prow()+0,5 say cnpj
@ prow()+0,30 say "IE:"
@ prow()+0,33 say ie
@ prow()+1,1 say "Data:"
@ prow()+0,6 say date()
@ prow()+0,20 say "Hora:"
@ prow()+0,25 say time()
rfrase = frase
use
USE VENDAS
SET FILTER TO pedido = var .and. codprod > 0
go top
@ prow()+1,10 say "NOTA DE VENDA N§:"
@ prow()+0,27 say pedido pict "99999999"
@ prow()+1,1 say "Cod.     Descri‡ao               Qtd.      Total"
@ prow()+1,1 say "------------------------------------------------"
do while .not. eof()
*unidade = valor / quant
@ prow()+1,1 SAY codprod
@ prow()+0,10 SAY desc pict "!!!!!!!!!!!!!!!!!!!!!!!"
@ prow()+0,33 SAY quant
*@ prow()+0,31 say unidade pict "999,999.99"
@ prow()+0,39 say valor pict "999,999.99"
skip
*loop
enddo
set filter to
close data
*@ prow()+1,1 say "------------------------------------------------"
*@ prow()+1,23 say "Total a Pagar:"
*@ prow()+0,39 say totalp pict "999,999.99"
@ prow()+1,1 say "================================================"
@ prow()+1,1 say rfrase
@ prow()+1,1 say "================================================"
eject
RETURN

*---------------------------------
FUNCTION NFV(var)
rfrase = space(40)
@ prow()+1,1 say "================================================"
use empresa
go 1
@ prow()+1,1 say rs
@ prow()+1,1 say ende
@ prow()+1,1 say cidade
@ prow()+1,1 say "CNPJ:"
@ prow()+0,5 say cnpj
@ prow()+0,30 say "IE:"
@ prow()+0,33 say ie
@ prow()+1,1 say "Data:"
@ prow()+0,6 say date()
@ prow()+0,20 say "Hora:"
@ prow()+0,25 say time()
rfrase = frase
use
USE VENDAS
SET FILTER TO pedido = var
go top
public totalp 
*TOTALP = SPACE(10)
SUM VALOR TO TOTALP
GO TOP
@ prow()+1,10 say "OR€AMENTO N§:"
@ prow()+0,27 say pedido pict "99999999"
@ prow()+1,1 say "Cod.     Descri‡ao               Qtd.      Total"
@ prow()+1,1 say "------------------------------------------------"
do while .not. eof()
*unidade = valor / quant
@ prow()+1,1 SAY codprod
@ prow()+0,10 SAY desc pict "!!!!!!!!!!!!!!!!!!!!!!!"
@ prow()+0,33 SAY quant
*@ prow()+0,31 say unidade pict "999,999.99"
@ prow()+0,39 say valor pict "999,999.99"
skip
*loop
enddo
set filter to
close data
@ prow()+1,1 say "------------------------------------------------"
@ prow()+1,23 say "Total a Pagar:"
@ prow()+0,39 say totalp pict "999,999.99"
@ prow()+1,1 say "------------------------------------------------"
@ prow()+1,1 say "Guarde este Or‡amento, para eventual compra"
@ prow()+1,1 say "================================================"
@ prow()+1,1 say rfrase
@ prow()+1,1 say "================================================"
eject
RETURN

Paulao · Mensagem por **Paulao** » 04 Mar 2005 20:17

pelo jeito vc esta querendo que saia "negrito" na tela, se for isso vc coleque antes do valor que vc quer que saia destacado
setcolor("w+/b"), supondo que a cor de fundo de sua tela seja azul

setcolor("w/b") <-----letra branco normal fundo azul
@ 20,03 say " TOTAL ===>
setcolor("w+/b") *aqui <---letra branco luminoso fundo azul

Se quizer que saia negrito na impressora

se sua inpressora for epson ou que emule uma
@00,00 say chr(27)+"E" ativa negrito
@00,00 say chr(27)+"F" desativa negrito

Espero poder ter ajudado

Grande abraço

robson · Mensagem por **robson** » 04 Mar 2005 20:38

:xau Olá Paulão,

Não saiu em NEGRITO... apenas mudou somente a cores da tela.
--------------------------------------------------------------------
setcolor("w/b") <-----letra branco normal fundo azul
@ 20,03 say " TOTAL ===>
setcolor("w+/b") *aqui <---letra branco luminoso fundo azul
---------------------------------------------------------------------

Grato,

robson · Mensagem por **robson** » 04 Mar 2005 20:40

Eu queria somente p/ sair destacado o TOTAL em negrito. E não a tela.

Grato,

Mensagem por **vagucs** » 05 Mar 2005 02:22

Na tela você não vai conseguir, só mesmo se modificar alguns caracteres para que isto aconteça, mas o trabalho que irá lhe dar não compensa.

robson · Mensagem por **robson** » 07 Mar 2005 14:42

Obrigado Vagucs!!!

Paulao · Mensagem por **Paulao** » 10 Mar 2005 12:31

Com o exemplo que eu de dei vc não vai conseguir escrever em negrito, mas consegue escrever com letra em destaque.
Vamos supor que o fundo da da tela do seu sistema é azul

setcolor("w/b") faz que o fundo da tela fique azul e a letra branca

setcolor("w+/b")o fundo da tela continua azul mas as letras ficam brancas intenso, destacando das demais letra brancas normais.

PC Toledo

Negrito??

Negrito??

Negrito?

Negrito?

Negrito...