Theotokos

citação:Voce pode fazer com a TPrint conforme explicaram Eu uso o Report Manager pois com ele posso exportar para html, Excel, pdf, alem de enviar email automáticamente. Voce encontra o Report Manager neste site http://reportman.sourceforge.net/ Tela do desenho do relatório. Tela do relatório emitido. id=quote>id=quote>Olá, como faço para incluir no fonte do programa, ou seja, por favor dê um exemplo de como criar(chamar) no fonte o arquivo gerado Report man.,. obgdo!!!!!!!!!!!! Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

citação:Olá Rone, bom dia !!! Tudo depende de sua necessidade, certos relatórios são prático com a treport exemplo Cliente, fornecedor produto, etc.... já para pedidos, nota fiscal, vc pode usar tanto a tprinter qto a tdosprn que irão lhe servir Exemplos tem aos montes basta procurar..... Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX "Nós nos transformamos naquilo que praticamos com freqüência. A perfeição, portanto, não é um ato isolado e sim um hábito". id=red> id=quote>id=quote>Será que voce pode me enviar algum exemplo com TReport, esse é o unico ainda que não usei... ronerli@uol.com.br Obgdo!!! Fica com Deus!!! Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

Bom Dia! A Paz e Amor de Cristo!!! Pessoal qual tipo de Impressão escolher para fazer a impressão de Pedidos de Compra, Orçamentos, etc... e para relatórios... qual o mais comptativel... ???? Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

Bom Dia! A Paz e Amor de Cristo!!! Pessoal qual tipo de Impressão escolher para fazer a impressão de Pedidos de Compra, Orçamentos, etc... e para relatórios... qual o mais comptativel... ???? Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

citação: citação:Tarde Fw´s !!! Como Traduzir o numero que retorna desta função para nRgb()? Se é que existe esta possibilidade ! Vlw. Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX "Nós nos transformamos naquilo que praticamos com freqüência. A perfeição, portanto, não é um ato isolado e sim um hábito". id=red> id=quote>id=quote>Pelo que vi, o retorno dessa função já é nRGBColor, ou seja, voce não precisa de usar a função nRGB()... Então se vc esta usando em um COMANDO é só colocar o valor de retorno... Mas nos dê mais informação, em onde vc esta usando, qual é a sua intenção... ... id=quote>id=quote>Em Cristo! com Maria!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio ************************ A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2)

citação:Tarde Fw´s !!! Como Traduzir o numero que retorna desta função para nRgb()? Se é que existe esta possibilidade ! Vlw. Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX "Nós nos transformamos naquilo que praticamos com freqüência. A perfeição, portanto, não é um ato isolado e sim um hábito". id=red> id=quote>id=quote>Pelo que vi, o retorno dessa função já é nRGBColor, ou seja, voce não precisa de usar a função nRGB()... Então se vc esta usando em um COMANDO é só colocar o valor de retorno... Mas nos dê mais informação, em onde vc esta usando, qual é a sua intenção... Editado por - Theotokos on 11/11/2008 15:09:08

Cara não se estress, se vc quer conhecer o xHarbour + FiveWin, é preciso experimentar, vai pegando o exemplos que tem em dicas, no samples do FiveWin, etc. É assim que comecei e claro com a ajuda dos amigos aqui no forum... "Um Certo homem dizia para todos que era o melhor nadador, não tinha ninguem melhor na piscina do que ele, e realmente era, mas no dia em que caiu no mar por causa de um naufragio, se afogou"... (É preciso se adaptar em cada ambiente, mesmo que sejam parecido) Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

Olá a todos... Eu comecei a pouco tempo (+/- 4 meses), e já viz alguma coisa em fivewin... mas ainda não consegui converter meus programas em clipper para o fivewin (tempo, e saco), então estão desenvolvendo em FiveWin + xHarbour, e fazendo manutenção nos Clippers... Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

citação:Olá, Vc precisaria, usar o GetPixel(), para pegar o pixel, e o PutPixel() para imprimir novamente, com o GetPixel, vc pega a cor do Pixel atual, ou seja a posição, de XY, não vejo muita vantagem em uma foto enorme, vc terá um array enorme de informações, mas dá pra fazer Vagner Wirts VI Encontro está chegando , não perca id=quote>id=quote>com isso... podemos gravar fotos 3x4 do cliente em arquivo ? Seria vantagem ? ao invez de gravar em arquivo de Imagem? como vc faz para gravar foto de cliente (Cadastro) por exemplo? Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

TENTE ISSO AMIGOid=size5> se teu Browse for com Array, então voce Criei um Array com o numero de dimensões que caiba na tela, então vá add neste array ate o contador 0 (zerar), a apartir dai voce add como nova posicao array. Ex: suponha que para completar a tela precisa de 20 linhas. aProduto := Array(20) nContador:= 20 While ... ... If nContador <= 0 AADD(aProduto, {..., ...} ) Else aProduto[ncontador,1] := .... End ... nContador-- ... É SO ADAPTAR PARA O TEU CODIGO MAIS IDEIA É ESSA... Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

citação: citação: citação: citação:Tente Assim.. Só não apaixona pela Cor.. oBar:bClrGrad := { | lInvert | If( ! lInvert, ; { { 0.50,16711935,16777215 },; { 0.50,16777215,16711935 } },; { { 0.50,128,16777215 },; { 0.50,16777215,128 } } ) } oBar:nClrText := 16777215 Veja se é isso.. Luiz Arruda FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com Editado por - ico on 07/11/2008 14:50:29 Editado por - ico on 07/11/2008 14:53:30 id=quote>id=quote>Luiz!!! Eu tentei mas esta dando este erro: Application =========== Path and name: D:\prg\ShopCell\Grafico.EXE (32 bits) Size: 1,758,208 bytes Time from start: 0 hours 0 mins 0 secs Error occurred at: 07/11/2008, 16:04:54 Error description: Error BASE/1005 Message not found: TBAR:_BCLRGRAD Stack Calls =========== Called from: tobject.prg => TBAR:ERROR(172) Called from: tobject.prg => TBAR:MSGNOTFOUND(205) Called from: tobject.prg => TBAR:_BCLRGRAD(0) Called from: GRAFICO.PRG => MAIN(115) Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio id=quote>id=quote>Esse erro seria ref. a versão do seu FW não suportar o Define 2007.. mas se vc. tá usando já descarta essa possibilidade.. então mostre como vc. tá fazendo... Abraços.. Luiz Arruda FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com id=quote>id=quote>Estou fazendo assim: Set3DLook( .t. ) SetBalloon( .t. ) hDll := LoadLib32("BWCC32.DLL") BWCCRegister( GetResources() ) DEFINE ICON oIco RESOURCE "SHOP64" * DEFINE BITMAP oImgFundo FILE "BMP\FUNDO.BMP" DEFINE BITMAP oImgLogo FILE "BMP\LOGO.BMP" DEFINE BRUSH oBrush FILE "BMP\FUNDO.BMP" DEFINE WINDOW oWndMain FROM 1, 1 TO 780, 1024 PIXEL TITLE "Sistema de Controle de Lojas" ; MENU BuildMenu() ICON oIco DEFINE BUTTONBAR oBar SIZE 75, 75 _3D OF oWndMain 2007 oBar:bRClicked := {|| nil} //--> Disativa botao Direito sobre a Barra. DEFINE BUTTON oBtn OF oBar RESOURCE "PRODUTO" PROMPT "Produtos" ; TOOLTIP "Cadastro de Mercadorias" ACTION Cad_Produtos() DEFINE BUTTON oBtn OF oBar FILE "BMP\\CLIENTE.BMP" PROMPT "Cliente" ; TOOLTIP "Cadastro de Clientes" ACTION Cad_Clientes() DEFINE BUTTON oBtn OF oBar FILE "BMP\\CONSULTA.BMP" PROMPT "Cliente" ; TOOLTIP "Consulta de Clientes" ACTION Con_Clientes() DEFINE BUTTON oBtn OF oBar RESOURCE "ATENDE" PROMPT "Atendimento" ; TOOLTIP "Efetua o Atendimento ao Cliente" ACTION Lan_Atendimento() GROUP DEFINE BUTTON oBtn OF oBar FILE "BMP\\EDIT.BMP" PROMPT "Venda" ; TOOLTIP "Efetuar a Venda - Concluir Atendimento ao Cliente" ACTION Lan_Venda() DEFINE BUTTON oBtn OF oBar FILE "BMP\\FILES.BMP" PROMPT "Crediário" ; TOOLTIP "Conta do Cliente - Efetuar Pagamento" ACTION Crediario() DEFINE BUTTON oBtn OF oBar FILE "BMP\\EDIT.BMP" PROMPT "Entrada" ; TOOLTIP "Efetuar a Entrada - Inventário" ACTION Lan_Entrada() DEFINE BUTTON oBtn OF oBar FILE "BMP\\CALC.BMP" ; TOOLTIP "Calculadora" ACTION WinExec("CALC.EXE",6) GROUP DEFINE BUTTON oBtn OF oBar RESOURCE "EXIT_32" ; TOOLTIP "Fechar a Execução do Programa" ACTION ( DlgFecha() ) Set Message Of oWndMain To "RL INFORMÃTICA - (35)9986-0695 - ronerli@uol.com.br" CENTERED 2007 DEFINE MSGITEM OF oWndMain:oMsgBar BITMAP "PRINTER" ACTION ( PrinterSetup() ) TOOLTIP "Configurar Impressora" DEFINE MSGITEM OF oWndMain:oMsgBar BITMAP "RLI_32" ACTION ( DlgSobre() ) TOOLTIP "Sobre Sistema..." oWndMain:oMsgBar:nHeight := 40.5 * oBar:bClrGrad := { | lInvert | If( ! lInvert, ; { { 0.50,16711935,16777215 },; { 0.50,16777215,16711935 } },; { { 0.50,128,16777215 },; { 0.50,16777215,128 } } ) } * oBar:nClrText := 16777215 ACTIVATE WINDOW oWndMain MAXIMIZED ON INIT (If(!VerPrograma(),oWndMain:End(),.t.)) ; On Paint Fundo(oWndMain, hDC, oImgFundo, oImgLogo ) Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio id=quote>id=quote>???? Esqueceu de mim ????? Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

citação:aí depende. se for xBrowse em DBF é assim oBrw:GoBottom() oBrw:Refresh() se for em ARRAY oBrw:nArrayAt := LEN( oBrw:aArrayData ) oBrw:Refresh() Tem muito mais coisas envolvidas. Aí depende do teu PRG. Os códigos acima posicionam a seleção do xBrowse no último registro, mas, poste o seu código que fica mais fácil de esclarecer sua dúvida. SharkAbraço! Shark - FWH 8.02 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop id=quote>id=quote>Estes comandos fazem que o cursor se posicione no final do browse (janela), mas o que eu entendi é que o nosso amigo quer, é fazer aparecer na tela de baixo para cima na medida que o usuário vai passando as mercadorias. Pense.... A pessoa que pensa que sabe alguma coisa, ainda não tem a sabedoria que precisa. (1 Cor 8, 2) Por isso, precisamos do Forum.... Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

citação: citação: citação: citação:Olá, E qual está sendo o problema ?, não consegue utiliza ? É simples, basta vc compilar o prg junto com seu projeto, e onde vc coloca : oPrg := TdosPrn():New(...) Trocar para oPrn := TDosPrnUL():New(...) Vagner Wirts VI Encontro está chegando , não perca id=quote>id=quote>Não é este o problema, eu já utilizo esta classe, o problema eh q ela num funfa com USB e COM. O problema é como adaptar esta classe pra funfar com USB e COM !!! id=quote>id=quote>Anderson Eu tbem tive o problema bem parecido com o seu e p. te ser sincero eu desisti Fiz o seguinte Caso vc imprima jogando no Spoll eu utilizei o DosPrint q. é um software externo da seguinte maneira IF Left(Upper(cPorta),3) = "USB" .OR. oPub:wImpJato // Usb Ou Jato de tinta WAITRUN( oPub:wPathRaiz + "DOSPRIN /SEL'" + AllTrim(oPub:wPorta) + "' " + cFileTxt ) e pronto nunca mais tive problema algum Uma observação importante é q. ele utilza para qq. impressora os drives da epson como padrao de compactação expanção etc Um abraço Marcelo Ferro Petrópolis - Rj Fwh8.10/xHarbour 1.1.0 Simplex /SqlLib /xMate/WSe Pelles id=quote>id=quote>Marcelo, beleza?? Imprime DRAFT?? Um abraço id=quote>id=quote>E A DOSPRINT...? ONDE CONSEGO Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

citação:Boa noite Pessoal sempre que inserimos um dado no browse ele sempre é add abaixo existe uma forma das informações serem alimentadas de baixo para cima. Deixa eu exemplificar a idéia, eu montei uma tela de PDV e queria que as informações fossem subindo como uma fita detalhe. Grato por quaisquer dicas. Washington Guimarães Clipper 5.2 Lib 5.3 - Blinker 7.0 FWH 804, xHarbour 1.0.0 (Org) id=quote>id=quote>Não sei se isso que voce quer mais ou menos, mas eu pensei no seguinte, se teu Browse for com Array, então voce Criei um Array com o numero de dimensões que caiba na tela, então vá add neste array ate o contador 0 (zerar), a apartir dai voce add como nova posicao array. Ex: suponha que para completar a tela precisa de 20 linhas. aProduto := Array(20) nContador:= 20 While ... ... If nContador <= 0 AADD(aProduto, {..., ...} ) Else aProduto[ncontador,1] := .... End ... nContador-- ... É isso aí, acho que funciona... Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

Mas a caso e caso.... Pois tem programador que esta ai começando no mercado que vai fazer um sistema para loja, e ja depara com algo assim, ai fica meio dificil, concordo, em que cobrar sim, mas não precisa ser 1500... E outra, o valor que eles cobram é para constia o que? Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

citação: citação: citação:Tente Assim.. Só não apaixona pela Cor.. oBar:bClrGrad := { | lInvert | If( ! lInvert, ; { { 0.50,16711935,16777215 },; { 0.50,16777215,16711935 } },; { { 0.50,128,16777215 },; { 0.50,16777215,128 } } ) } oBar:nClrText := 16777215 Veja se é isso.. Luiz Arruda FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com Editado por - ico on 07/11/2008 14:50:29 Editado por - ico on 07/11/2008 14:53:30 id=quote>id=quote>Luiz!!! Eu tentei mas esta dando este erro: Application =========== Path and name: D:\prg\ShopCell\Grafico.EXE (32 bits) Size: 1,758,208 bytes Time from start: 0 hours 0 mins 0 secs Error occurred at: 07/11/2008, 16:04:54 Error description: Error BASE/1005 Message not found: TBAR:_BCLRGRAD Stack Calls =========== Called from: tobject.prg => TBAR:ERROR(172) Called from: tobject.prg => TBAR:MSGNOTFOUND(205) Called from: tobject.prg => TBAR:_BCLRGRAD(0) Called from: GRAFICO.PRG => MAIN(115) Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio id=quote>id=quote>Esse erro seria ref. a versão do seu FW não suportar o Define 2007.. mas se vc. tá usando já descarta essa possibilidade.. então mostre como vc. tá fazendo... Abraços.. Luiz Arruda FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com id=quote>id=quote>Estou fazendo assim: Set3DLook( .t. ) SetBalloon( .t. ) hDll := LoadLib32("BWCC32.DLL") BWCCRegister( GetResources() ) DEFINE ICON oIco RESOURCE "SHOP64" * DEFINE BITMAP oImgFundo FILE "BMP\FUNDO.BMP" DEFINE BITMAP oImgLogo FILE "BMP\LOGO.BMP" DEFINE BRUSH oBrush FILE "BMP\FUNDO.BMP" DEFINE WINDOW oWndMain FROM 1, 1 TO 780, 1024 PIXEL TITLE "Sistema de Controle de Lojas" ; MENU BuildMenu() ICON oIco DEFINE BUTTONBAR oBar SIZE 75, 75 _3D OF oWndMain 2007 oBar:bRClicked := {|| nil} //--> Disativa botao Direito sobre a Barra. DEFINE BUTTON oBtn OF oBar RESOURCE "PRODUTO" PROMPT "Produtos" ; TOOLTIP "Cadastro de Mercadorias" ACTION Cad_Produtos() DEFINE BUTTON oBtn OF oBar FILE "BMP\\CLIENTE.BMP" PROMPT "Cliente" ; TOOLTIP "Cadastro de Clientes" ACTION Cad_Clientes() DEFINE BUTTON oBtn OF oBar FILE "BMP\\CONSULTA.BMP" PROMPT "Cliente" ; TOOLTIP "Consulta de Clientes" ACTION Con_Clientes() DEFINE BUTTON oBtn OF oBar RESOURCE "ATENDE" PROMPT "Atendimento" ; TOOLTIP "Efetua o Atendimento ao Cliente" ACTION Lan_Atendimento() GROUP DEFINE BUTTON oBtn OF oBar FILE "BMP\\EDIT.BMP" PROMPT "Venda" ; TOOLTIP "Efetuar a Venda - Concluir Atendimento ao Cliente" ACTION Lan_Venda() DEFINE BUTTON oBtn OF oBar FILE "BMP\\FILES.BMP" PROMPT "Crediário" ; TOOLTIP "Conta do Cliente - Efetuar Pagamento" ACTION Crediario() DEFINE BUTTON oBtn OF oBar FILE "BMP\\EDIT.BMP" PROMPT "Entrada" ; TOOLTIP "Efetuar a Entrada - Inventário" ACTION Lan_Entrada() DEFINE BUTTON oBtn OF oBar FILE "BMP\\CALC.BMP" ; TOOLTIP "Calculadora" ACTION WinExec("CALC.EXE",6) GROUP DEFINE BUTTON oBtn OF oBar RESOURCE "EXIT_32" ; TOOLTIP "Fechar a Execução do Programa" ACTION ( DlgFecha() ) Set Message Of oWndMain To "RL INFORMÃTICA - (35)9986-0695 - ronerli@uol.com.br" CENTERED 2007 DEFINE MSGITEM OF oWndMain:oMsgBar BITMAP "PRINTER" ACTION ( PrinterSetup() ) TOOLTIP "Configurar Impressora" DEFINE MSGITEM OF oWndMain:oMsgBar BITMAP "RLI_32" ACTION ( DlgSobre() ) TOOLTIP "Sobre Sistema..." oWndMain:oMsgBar:nHeight := 40.5 * oBar:bClrGrad := { | lInvert | If( ! lInvert, ; { { 0.50,16711935,16777215 },; { 0.50,16777215,16711935 } },; { { 0.50,128,16777215 },; { 0.50,16777215,128 } } ) } * oBar:nClrText := 16777215 ACTIVATE WINDOW oWndMain MAXIMIZED ON INIT (If(!VerPrograma(),oWndMain:End(),.t.)) ; On Paint Fundo(oWndMain, hDC, oImgFundo, oImgLogo ) Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

citação:Tente Assim.. Só não apaixona pela Cor.. oBar:bClrGrad := { | lInvert | If( ! lInvert, ; { { 0.50,16711935,16777215 },; { 0.50,16777215,16711935 } },; { { 0.50,128,16777215 },; { 0.50,16777215,128 } } ) } oBar:nClrText := 16777215 Veja se é isso.. Luiz Arruda FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com Editado por - ico on 07/11/2008 14:50:29 Editado por - ico on 07/11/2008 14:53:30 id=quote>id=quote>Luiz!!! Eu tentei mas esta dando este erro: Application =========== Path and name: D:\prg\ShopCell\Grafico.EXE (32 bits) Size: 1,758,208 bytes Time from start: 0 hours 0 mins 0 secs Error occurred at: 07/11/2008, 16:04:54 Error description: Error BASE/1005 Message not found: TBAR:_BCLRGRAD Stack Calls =========== Called from: tobject.prg => TBAR:ERROR(172) Called from: tobject.prg => TBAR:MSGNOTFOUND(205) Called from: tobject.prg => TBAR:_BCLRGRAD(0) Called from: GRAFICO.PRG => MAIN(115) Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

citação:tem sim: define brush oBrush ... oBar:SetBrush( oBrush ) Ricardo Marques VRMM-Visual Fivewin id=quote>id=quote>Este comando nao funciona quando utilizo DEFINE ... 2007 ? E como faço para mudar a cor no cas de usar 2007? É que na minha configuração só fica Azul, queria coloar outra cor... Obgdo... Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

citação:Podes se basear neste: //////////////////////////////////////////////////////////////////////////////// // #toya:25/06/2008 //////////////////////////////////////////////////////////////////////////////// static function ImpSpool( cFileTxt, cPorta, lErase ) DEFAULT cPorta:=alltrim( PrnGetPort() ), lErase:= .t. if !File( cFileTxt ) return .f. endif if len( cPorta ) <= 5 .and. left( upper( cPorta ), 4 )=='LPT1' cPorta:='PRN' WAITRUN( 'COMMAND.COM /C COPY /B '+cFileTxt+' '+cPorta, 0 ) else WAITRUN( 'COMMAND.COM /C COPY /B '+cFileTxt+' '+cPorta, 0 ) endif if lErase ferase( cFileTxt ) endif return .t. toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper... id=quote>id=quote>Valew Toya!!!!!!!!!!!!!!!!!!!! Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

citação: citação:Valdir, realmente setando para A4 não dá o tamanho real de um papel A4, fica cortando. então tive que redefinir assim e deu certo. oPrn:SetSize(2100,3100) se colocar 2970 que é o comprimento do papel ele corta. então aumentei para 3100 aí belezinha. Hélio xHarbour/WS/PellesC id=quote>id=quote>Boa tarde VALDIR !! Eu tive este mesmo problema trabalhando com o PAGESCRIPT(que é semelhante a classe tprinter, com algumas melhoras) e descobri que o sistema operacional influi no tamanho do papel; pelo menos para para o pagescript. Eu sei porque trabalhava com windows ME, mudei para XP e tive que ir "achando" o tamanho certo para o papel. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP id=quote>id=quote>Olá, ZECA Voce trabalha com a PageScript no xHarbour/FiveWin ? Se Sim como voce vez ? Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

citação: oPrn:= TDosPrn():New( "CUPOM.TXT" ) // para ir para um arquivo .txt oPrn:StartPage() oPrn:lZeraBuffer := .T. // Inibe o Pulo da Pagina //-> Inicia a Impressao - Cabe‡alho do Cupom //-> Modo Draft @ nLinha, 00 SAY +CHR(18)+CHR(27)+"2"+CHR(27)+"H" OF oPrn @ nLinha, 00 SAY ALLTRIM( XNOMEEMP ) OF oPrn nLinha := nLinha + 1 @ nLinha, 00 SAY CHR(15)+REPLICATE("-",40) OF oPrn nLinha := nLinha + 1 //-> Modo Condensado @ nLinha, 00 SAY CHR(15)+"HORA: " + TIME() OF oPrn nLinha := nLinha + 1 @ nLinha, 00 SAY "DATA..: " + DTOC(DATE()) OF oPrn nLinha := nLinha + 1 @ nLinha, 00 SAY OemToAnsi("PEDIDO N§: " ) + ; ALLTRIM(STRZERO( XNUMPEDIDO ) ) OF oPrn nLinha := nLinha + 1 @ nLinha, 00 SAY "FONE..: " + nNumeroTel OF oPrn nLinha := nLinha + 1 @ nLinha, 00 SAY SUBSTR( cNomeClien, 1, 40 ) OF oPrn nLinha := nLinha + 1 @ nLinha, 00 SAY SUBSTR( cEndClien, 1, 40 ) OF oPrn nLinha := nLinha + 1 @ nLinha, 00 SAY REPLICATE("-",40) OF oPrn nLinha := nLinha + 1 @ nLinha, 00 SAY "Cod Qtde Descricao Unit VALOR" OF oPrn nLinha := nLinha + 1 @ nLinha, 00 SAY REPLICATE("-",40) OF oPrn nLinha := nLinha + 1 //-> Imprime o Pedido WHILE !EOF() SYSREFRESH() IF EOF() EXIT ENDIF @ nLinha, 00 SAY ( DbPedidos:cAlias )->CODIGO OF oPrn nLinha := nLinha + 1 @ nLinha, 00 SAY ( ALLTRIM( STR( QTD_VENDEU ) ) ) +[ - ]+ ; ( SUBSTR( DESCRICAO, 01, 17 ) ) OF oPrn nLinha := nLinha + 1 @ nLinha, 00 SAY ( SUBSTR( DESCRICAO, 18, 35 ) ) + ; TRANSFORM( VLUNITARIO, "@E 99,999.99" ) + ; TRANSFORM( TOTITEM, "@E 999,999.99" ) OF oPrn nLinha := nLinha + 1 DBSKIP() ENDDO //-> Restante do rodape - nao posso postar... //-> Pulos do Cupom FOR PULA = 1 TO 7 @ nLinha, 00 SAY " " OF oPrn nLinha := nLinha + 1 NEXT PULA //-> Modo Draft @ nLinha, 00 SAY +CHR(18)+CHR(27)+"2"+CHR(27)+"H" OF oPrn oPrn:EndPage() oPrn:End() //--- imprime no spool do windows, liberando o micro para trabalhar. ImpSpool( "CUPOM.TXT",, .T. ) //--- opcionamente pode-se apagar o arquivo passando .t. no 3o. parametro. id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Onde tem esta função ImpSpool(...) ? Já que tentei usar não acha....] Valew"!!!!!!!!!!!! Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

citação: citação:Opa, amigos, e quanto a coluna do xBrowse?, tenho uma coluna com "memo", e preciso mostrar em forma de ToolTip o conteúdo da "célula"... onde está o mouse... tem como ?...... FWH/FWHX 8.08 xHb.Com/SqlRdd Fev2008 PellesC id=quote>id=quote>Pra mudar a mensagem a ser exibida basta modificar o valor do atributo ::cMsg oBrx:bChange := {|| oBrx:cMsg := Eval( oBrx:aCols[1]:bStrData ) } id=code>id=code> id=quote>id=quote>Valew Amigo! o SetBaloo funcionou, mas no Browse e queria que ao passar o mouse na coluna (ex:5) aparecesse o Balãozinho com a Mensagem tipo "Clique para visualizar o Conteudo"... Será que é possivel????!!!! Obgado Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

Esta épara os feras do FWH Como coloco aquelas mensagem que ao passar o mouse abre um balaozinho com a explicação daquele campo ou coluna no Browse? Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

Esta épara os feras do FWH Como coloco aquelas mensagem que ao passar o mouse abre um balaozinho com a explicação daquele campo ou coluna no Browse? Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio

citação:ãããã bão, agora entendi.. tente assim.. @03,10 BUTTON oBtn PROMPT "fecha" OF odlg SIZE 20,30 ACTION odlg:end() CANCELid=blue> Veja se agora resolve.. Luiz Arruda FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com Editado por - ico on 03/11/2008 16:24:01 id=quote>id=quote>VALEW!!! RELSOVEU!!!id=size6> Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio