VASCON

PARA AS FERAS DO FIVEWIN, ESSA SIMPLES Em uma caixa de diálogo, logo após incrementar valores, quero mostrar o resultado na frente. Ou seja: DEFINE DIALOG oDlgSAC from 7,3 to 31,97 TITLE “Manutenção de Orçamentos†color rgb(0,0,0),rgb(214,214,214) @00,0.7 TO 11.0,52.3 …… …… @01,01 GET oQUANT1 VAR mQUANT1 OF oDlgSAC PICT “999,999.99†SIZE 40,12 @01,09 GET oUNIT1 VAR mUNIT1 OF oDlgSAC PICT “999,999.99†SIZE 40,12 Na caixa de dialogo acima, logo após a variável mUNIT1 quero mostrar a seguinte conta: (mQUANT1 x mUNIT1) OU SEJA, APENAS MOSTRAR O RESULTADO DE UMA CONTA. COMO FAZER? AGRADECIMENTO, ABRAÇOS NILSON

Prezado Elias Voce me pediu para informar sobre o resultado da "BMP" não aparecer na tela. Fiz as alterações (XP): PROPRIEDADES DE VÃDEO/APARÊNCIAS/EFEITOS........... Resultado: não adiantou. Continua não aparecendo. Quanto aos registros aparecerem no ListBox -» Resolvido abraço Nilson

Olá Elias Primeiramente muito obrigado pela atenção, e pelas informações. Testei o programa em quatro computadores: 03 Windows 98 e em 01 XP. Funcionou no XP e em 02 Windows 98. Não consigo entender por que em apenas um Windows 98 deu este problema, uma vez que neste mesmo computador um outro PRG e respectivo arquivo com as mesmas estruturas funcionam normalmente. Grato, Abraço. NILSON

Dúvida 1 Na página principal de um programa, inseri uma “BMP†(feita na PAINT BRUSH). Quando o programa é rodado no Windows 98 a imagem aparece normalmente. Porém, quando o programa é rodado no XP aparece somente a cor de fundo, e a imagem não aparece. Como resolver? Dúvida 2 Tendo-se um banco de dados vazio, já devidamente indexado, ao inserir os primeiros registros, acontece o que se segue: Em (03) três computadores os registros aparecem normalmente em um Listbox. Já num quarto computador os registros não aparecem. Qual é o mistério. Atenção: nada relacionado à rede. Se puder ser atendido, antecipadamente grato. Abraços NILSON

Peço desculpa antecipada se estou abusando, mas estou levando um verdadeiro banho para acertar a parte de impressão em FIVEWIN. Se puderem me ajudar, AGRADEÇO antecipadamente: Utilizando a função abaixo tenho encontrado as seguintes dificuldades: 1. Porque que aparece a página em branco sem qualquer informação? 2. Como dimensionar o número de páginas que eu quero? Sempre aparece 9 páginas na tela. 3. Porque a primeira página é menor que as demais? 4. Qual a relação que existe entre: nRow, nCol e oPrn:nVertRes(), oPrn:nHorzRes() ????? É o número da linha dividido pelo oPrn:nVertRes() ????? 5. Como inserir cabeçalho e rodapé? 6. Para delimitar o que quero imprimir posso usar o famoso "DO WHILE" 7. No clipper tinha-se pleno controle através do "@ SAY", como obter este mesmo controle no FIVEWIM? ** FUNÇÃO PARA IMPRESSÃO DE DADOS ************************ Function LISTSAC() local oPrn, oFont local nRowStep, nColStep local nRow :=100, nCol :=100, n, m PRINT oPrn NAME "CADASTRO DE SACADOS" PREVIEW SELECT NOMO ---» SELEÇÃO DO ARQUIVO (ALIAS) SET ORDER TO 2 GOTO TOP if Empty( oPrn:hDC ) // ---> hDC direciona para mpressora MsgStop( "VERIFIQUE A IMPRESSORA!" ) return nil endif DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -20 OF oPrn nRowStep = oPrn:nVertRes() / 20 nColStep = oPrn:nHorzRes() / 20 PAGE oPrn:Say( nRow, nCol, "CNPJ / CPF:") nRow += nRowStep DO WHILE !EOF() oPrn:Say( nRow, nCol, CNPJ ) --» CNPJ é o nome do campo que quero imprimir nRow += nRowStep SKIP ENDDO ENDPAGE ENDPRINT oFont:End() return nil

PEÇO POR FAVOR QUE ALGUÉM ME INFORME O QUE Hà DE ERRADO NA FUNÇÃO ABAIXO: "mPFPJ" e "mNOME" são duas variaveis que contém o numero do "CNPj/CPF" e "NOME" de uma lista de sacados. FUNCTION LISTSAC() local oPrn, oFont local nRowStep, nColStep local nRow := 0, nCol := 0 PRINT oPrn NAME "CADASTRO DE SACADOS" PREVIEW if Empty( oPrn:hDC ) MsgStop( "VERIFIQUE A IMPRESSORA!" ) return nil endif DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -20 OF oPrn nRowStep = oPrn:nVertRes() / 3 nColStep = oPrn:nHorzRes() / 15 PAGE nRow=3 nCol=4 oPrn:Say( nRow, nCol, "CNPJ/CPF:", mPFPJ) nRow+1 oPrn:Say( nRow, nCol, "NOME DO SACADO:", mNOME) ENDPAGE ENDPRINT oFont:End() return nil

SOCORRO! Estou precisando de um exemplo de funcionamento do "meter", aquela fomosa barra progressiva. Muito Obrigado Nilson

Estou convertendo meus programas Clipper em FiveWin (ao menos tentando) Tenho a seguinte dúvida e gostaria que alguém me ajudasse: Ao tentar imprimir um relatório, aparece a seguinte mensagem: "NÃO FOI POSSÃVEL ENCONTRAR PREVIEW.DLL" Como resolver este problema? Gostaria também de receber um exemplo de como usar o SOFTSEEK em um LISTBOX. Antecipadamente grato NILSON