Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
8 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 8 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Alterar uma palavra num arquivo de texto
Ontem à(s) 12:02 por Teseu

» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

» Pesquisa em grid
14/9/2016, 09:24 por AJC

Alterar uma palavra num arquivo de texto

5/12/2016, 12:02 por Teseu

Olá prezados colegas de programação!

Este é eu primeiro post no fórum e gostaria de poder …

Comentários: 0

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

Estatísticas
Temos 6960 usuários registrados
O último usuário registrado atende pelo nome de Maycon Hersing

Os nossos membros postaram um total de 17118 mensagens em 2576 assuntos

InputMask

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido InputMask

Mensagem por Rosangela Pires em 10/2/2013, 18:58

AMIGOS,

Estou criando um relatorio via código e estou encontrando problemas na configuração da mascara de valores.
Variavel = 1730400.00 (valor)
Estou usando = TRANSF(VARIAVEL,"@TB 999,999,999.99")
Contudo a impressão só sai como = 1730400,00
No init do formulario já coloquei:
SET POINT TO ','
SET SEPARATOR TO '.'
SET CURRENCY TO 'R$'
Como venho do clipper eu usava TRANSF(VARIAVEL,"@E999,999,999.99"),
Mas essa mascara não cabe no visual fox.
Obs.:No campo do formulario de cadastro informei que o format = (KR) e o inputmask =(999,999,999.99) e funciona corretamente, só no codigo é que estou encontrando esta dificuldade.
O que foi que eu errei...
Rosangela Pires

Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: InputMask

Mensagem por alceu11 em 10/2/2013, 21:19

Código:

Variavel = 1730400.00
 variavel=variavel+599.97
variavel=TRANSForm(VARIAVEL,"999,999,999.99")
WAIT WINDOW variavel TIMEOUT 2

 WAIT WINDOW  'se fore somar tera ke usar VAL()' TIMEOUT 2




Mais facil e fazer o report,,,,,,,fica legal tem preview........

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: InputMask

Mensagem por alceu11 em 11/2/2013, 09:13

Mais um exemplo de codigo.
Espero ke cosinga entender
Código:

SET PROCEDURE TO SYS(16) ADDITIVE
*--------------------------------------------------------------------------
* Programa para montagem do CTRC
* http://www.softrans.com.br
*  Nilton Paulino
* Data: 14/06/1998
* Atualizado em: 30/03/2010
*--------------------------------------------------------------------------
FUNCTION IMPRIMIR_CTRC

    * Configurar a impressora
    cmp17_9pinos    = CHR(15)
    dcp17_9pinos    = CHR(18)
    cmp20_9pinos    = CHR(27)+'M'+CHR(15)        && Compressão em 20 cpp
    dcp20_9pinos    = CHR(27)+'P'                && Descomprime de 20 cpp
    exp9pinos        = CHR(27)+'W'+CHR(1)        && Expande caracteres
    nrm9pinos        = CHR(27)+'W'+CHR(0)        && Normaliza Expandido
    fonte_draft        = CHR(27)+'x'+CHR(0)        && Muda fonte para Draft

    SELECT scr_conhecimento_impressao
       
    SET DEVICE TO FILE CH.TXT
   
    SELECT scr_conhecimento_impressao
   
    * // Inicia Trabalho de Impressäo

    @ PROW ()    , 001            SAY fonte_draft+""+CHR(18)
    @ PROW ()+1    , 001            SAY ""+CHR(15)
    @ PROW ()    , 090            SAY exp9pinos+ TRANSFORM(scr_conhecimento_impressao.numero_ctrc_filial,"@R 999.999.9999999") +nrm9pinos
    @ PROW ()+1    , 090            SAY ANSITOOEM("SERVIÇO DE TRANSPORTE") &&ANSITOOEM(scr_conhecimento_impressao.natureza_operacao)
    @ PROW ()    , PCOL ()+15    SAY TRANSFORM(scr_conhecimento_impressao.cod_operacao_fiscal,"@R 9.999")
    @ PROW ()+1    , 090            SAY DATETIME()        PICTURE "@E 99/99/9999 99:99:99"
    *REPLACE scr_conhecimento_impressao.data_emissao    WITH DATETIME()
    @ PROW ()+2    , 005            SAY ANSITOOEM (scr_conhecimento_impressao.remetente_nome)
    @ PROW ()    , 077            SAY ANSITOOEM (scr_conhecimento_impressao.destinatario_nome)
    @ PROW ()+1    , 005            SAY ANSITOOEM (ALLTRIM(scr_conhecimento_impressao.remetente_endereco))+ " - "+;
                                    ANSITOOEM (ALLTRIM(scr_conhecimento_impressao.remetente_bairro))
    @ PROW ()    , 077            SAY ANSITOOEM (ALLTRIM(scr_conhecimento_impressao.destinatario_endereco)) + " - "+;
                                    ANSITOOEM (ALLTRIM(scr_conhecimento_impressao.destinatario_bairro))
    @ PROW ()+1    , 005            SAY ANSITOOEM (scr_conhecimento_impressao.remetente_cidade)
    @ PROW ()    , 063            SAY ANSITOOEM (scr_conhecimento_impressao.remetente_uf)
    @ PROW ()    , 077            SAY ANSITOOEM (scr_conhecimento_impressao.destinatario_cidade)
    @ PROW ()    , 132            SAY ANSITOOEM (scr_conhecimento_impressao.destinatario_uf)
    @ PROW ()+1    , 005            SAY ICASE(LEN(ALLTRIM(scr_conhecimento_impressao.remetente_cnpj)) = 11;
                                        ,TRANSFORM(ALLTRIM(scr_conhecimento_impressao.remetente_cnpj),"@R 999.999.999-99");
                                        ,LEN(ALLTRIM(scr_conhecimento_impressao.remetente_cnpj)) = 14;
                                        ,TRANSFORM(ALLTRIM(scr_conhecimento_impressao.remetente_cnpj),"@R 99.999.999/9999-99");
                                        ,ALLTRIM(scr_conhecimento_impressao.remetente_cnpj))
    @ PROW ()    , 052            SAY TRANSFORM(scr_conhecimento_impressao.remetente_cep,"@R 99999-999")           
    @ PROW ()    , 077            SAY ICASE(LEN(ALLTRIM(scr_conhecimento_impressao.destinatario_cnpj)) = 11;
                                        ,TRANSFORM(ALLTRIM(scr_conhecimento_impressao.destinatario_cnpj),"@R 999.999.999-99");
                                        ,LEN(ALLTRIM(scr_conhecimento_impressao.destinatario_cnpj)) = 14;
                                        ,TRANSFORM(ALLTRIM(scr_conhecimento_impressao.destinatario_cnpj),"@R 99.999.999/9999-99");
                                        ,ALLTRIM(scr_conhecimento_impressao.destinatario_cnpj))
    @ PROW ()    , 122            SAY TRANSFORM(scr_conhecimento_impressao.destinatario_cep,"@R 99999-999")
    @ PROW ()+1    , 05            SAY MascaraIE(ALLTRIM(scr_conhecimento_impressao.remetente_uf),;
                                        ALLTRIM(scr_conhecimento_impressao.remetente_ie))
    IF scr_conhecimento_impressao.frete_cif_fob = 1    && PAGO
        @ PROW (),046            SAY "(X)"
    ENDIF
    @ PROW ()    , 077            SAY MascaraIE(ALLTRIM(scr_conhecimento_impressao.destinatario_uf),;
                                        ALLTRIM(scr_conhecimento_impressao.destinatario_ie))
    IF scr_conhecimento_impressao.frete_cif_fob = 2
        @ PROW (),117            SAY "(X)"
    ENDIF

    @ PROW ()+2    , 005            SAY ""
    IF scr_conhecimento_impressao.consig_red = 1
        @ PROW (),009            SAY "XX"
    ENDIF
    IF scr_conhecimento_impressao.consig_red = 2
        @ PROW (),023            SAY "XX"
    ENDIF
    @ PROW ()    , 030            SAY TRANSFORM(scr_conhecimento_impressao.conhecimento_origem,"@R 999.999.999999")
    IF !EMPTY (scr_conhecimento_impressao.data_conhecimento_origem)
        @ PROW ()    , 055            SAY scr_conhecimento_impressao.data_conhecimento_origem
    ENDIF
    @ PROW ()    , 077            SAY ANSITOOEM (scr_conhecimento_impressao.observacoes_coleta)
    @ PROW ()+2    , 005            SAY ANSITOOEM (scr_conhecimento_impressao.consig_red_nome)
    @ PROW ()    , 077            SAY ANSITOOEM (scr_conhecimento_impressao.observacoes_entrega)
    @ PROW ()+1    , 005            SAY ANSITOOEM (ALLTRIM(scr_conhecimento_impressao.consig_red_endereco))+" - "+;
                                    ANSITOOEM (ALLTRIM(scr_conhecimento_impressao.consig_red_bairro))
    @ PROW ()+1    , 005            SAY ANSITOOEM (scr_conhecimento_impressao.consig_red_cidade)
    @ PROW ()    , 062            SAY ANSITOOEM (scr_conhecimento_impressao.consig_red_uf)
    @ PROW ()    , 077            SAY "" && ANSITOOEM (scr_conhecimento_impressao.MOTOR_CH)
    @ PROW ()+1    , 005            SAY ICASE(LEN(ALLTRIM(scr_conhecimento_impressao.consig_red_cnpj)) = 11;
                                        ,TRANSFORM(ALLTRIM(scr_conhecimento_impressao.consig_red_cnpj),"@R 999.999.999-99");
                                        ,LEN(ALLTRIM(scr_conhecimento_impressao.consig_red_cnpj)) = 14;
                                        ,TRANSFORM(ALLTRIM(scr_conhecimento_impressao.consig_red_cnpj),"@R 99.999.999/9999-99");
                                        ,ALLTRIM(scr_conhecimento_impressao.consig_red_cnpj))
   
    @ PROW ()    , 055            SAY scr_conhecimento_impressao.consig_red_cep       
    @ PROW ()+1    , 005            SAY MascaraIE(ALLTRIM(scr_conhecimento_impressao.consig_red_uf),;
                                        ALLTRIM(scr_conhecimento_impressao.consig_red_ie))
    IF scr_conhecimento_impressao.consig_red_cif_fob = 1
        @ PROW (),047            SAY "(X)"
    ENDIF
    IF scr_conhecimento_impressao.consig_red_cif_fob = 2
        @ PROW (),064            SAY "(X)"
    ENDIF
    @ PROW ()+1    , 005            SAY ANSITOOEM (ALLTRIM(scr_conhecimento_impressao.calculado_ate_cidade)) +;
                                    " - "+ANSITOOEM(ALLTRIM(scr_conhecimento_impressao.calculado_ate_uf))
    @ PROW ()    , 075            SAY "" &&ANSITOOEM (scr_conhecimento_impressao.PLACA_CH)
    @ PROW ()    , 091            SAY "" &&ANSITOOEM (scr_conhecimento_impressao.CIDV_CH)
    @ PROW ()    , 133            SAY "" &&ANSITOOEM (scr_conhecimento_impressao.ESTV_CH)
   
    * // Monta valores
    * Monta string com o número das notas fiscais
   
    @ PROW ()+7    , 001            SAY ANSITOOEM (scr_conhecimento_impressao.numero_nota_fiscal)
    @ PROW ()    , 100            SAY scr_conhecimento_impressao.data_nota_fiscal
    @ PROW ()    , 118            SAY TRANSFORM(scr_conhecimento_impressao.tabele_frete,"@R 999.999.9999999")
    @ PROW ()+2    , 002            SAY scr_conhecimento_impressao.valor_nota_fiscal        PICTURE "9,999,999.99"
    @ PROW ()    , 035            SAY scr_conhecimento_impressao.qtd_volumes                PICTURE "99,999"
    @ PROW ()    , 051            SAY    ANSITOOEM (scr_conhecimento_impressao.especie)
    @ PROW ()    , 072            SAY ANSITOOEM (LEFT(scr_conhecimento_impressao.natureza_carga,26))
    @ PROW ()    , 108            SAY scr_conhecimento_impressao.peso                        PICTURE "99,999.999"
    @ PROW ()    , 128            SAY scr_conhecimento_impressao.volume_cubico            PICTURE "999.9999"
    @ PROW ()+2    , 002            SAY scr_conhecimento_impressao.frete_peso                PICTURE "999,999.99"
    @ PROW ()    , 025            SAY scr_conhecimento_impressao.frete_valor                PICTURE "999,999.99"
    @ PROW ()    , 050            SAY scr_conhecimento_impressao.sec_cat                    PICTURE "999,999.99"
    @ PROW ()    , 070            SAY scr_conhecimento_impressao.despacho                    PICTURE "999,999.99"
    @ PROW ()    , 090            SAY scr_conhecimento_impressao.gris                        PICTURE "999,999.99"
    @ PROW ()    , 110            SAY scr_conhecimento_impressao.itr                        PICTURE "999,999.99"
    @ PROW ()    , 126            SAY scr_conhecimento_impressao.pedagio                    PICTURE "999,999.99"
    @ PROW ()+2    , 002            SAY scr_conhecimento_impressao.outros                    PICTURE "999,999.99"
    @ PROW ()    , 020            SAY scr_conhecimento_impressao.total_frete                PICTURE "999,999.99"
    @ PROW ()    , 045            SAY scr_conhecimento_impressao.base_calculo                PICTURE "999,999.99"
    @ PROW ()    , 063            SAY    scr_conhecimento_impressao.aliquota                    PICTURE "99.99"
    @ PROW ()    , 073            SAY scr_conhecimento_impressao.imposto                    PICTURE "999,999.99"
    IF LEN(ALLTRIM(scr_conhecimento_impressao.observacoes_conhecimento)) > 60
        m.obs1    = LEFT(scr_conhecimento_impressao.observacoes_conhecimento,60)
        m.obs2    = SUBSTR(scr_conhecimento_impressao.observacoes_conhecimento,61,60)
        m.obs3    = SUBSTR(scr_conhecimento_impressao.observacoes_conhecimento,121,60)
    ELSE
        m.obs1    = ALLTRIM(scr_conhecimento_impressao.observacoes_conhecimento)
        m.obs2    = ""
        m.obs3    = ""
    ENDIF
    @ PROW ()+2    , 002            SAY ANSITOOEM (m.OBS1)
    @ PROW ()+1    , 002            SAY ANSITOOEM (m.OBS2)
    @ PROW ()+1    , 002            SAY ANSITOOEM (m.OBS3)
    @ PROW ()+1    , 002            SAY ANSITOOEM (ANSITOOEM (m.mensagem))
    * // Salta para o próximo conhecimento e descomprime dados.
    @ PROW ()+3    , 000            SAY ""+CHR(18)

    SET DEVICE TO SCREEN
    SET PRINT TO
    IF _vfp.StartMode = 0
        MODIFY FILE ch.txt
    ELSE
        COPY FILE CH.TXT TO PRN
    ENDIF
    SELECT scr_conhecimento_impressao
   
RETURN

apostila de como fazer relatorios

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: InputMask

Mensagem por Rosangela Pires em 11/2/2013, 21:04

É isso mesmo.
Apliquei e resolvi o problema.
Obrigado a todos.

[]´s

Rosangela Pires

Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: InputMask

Mensagem por Conteúdo patrocinado Hoje à(s) 05:08


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum