Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
15 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 15 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
Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Tudo dá errado

3/2/2017, 16:50 por Douglas Pascini

Troquei de maquina, achei que seria uma boa, [Você precisa estar registrado e conectado para ver esta imagem.]  pois passei para uma maquina melhor.

Instalei o …

Comentários: 1

URGENTE - Instalação do aplicativo

24/1/2017, 08:51 por Douglas Pascini

Bom dia. Estou com um problema, ao fazer a instalação (colocar os arquivo) do aplicativo na …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

Estatísticas
Temos 7017 usuários registrados
O último usuário registrado atende pelo nome de Thiago Joaquim

Os nossos membros postaram um total de 21 mensagens em 12 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

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