GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
Aula 1060 - Windev - Tabela 043/... - VisibleInExportAndPrint - Não Levar Colunas
Aula 1060 - Windev - Tabela 043/... - VisibleInExportAndPrint - Não Levar Colunas
Iniciado por amarildo, fev., 08 2017 3:49 PM - 1 resposta
Conecte-se…
amarildo
#1
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em fevereiro, 08 2017 - 3:49 PM
Vou Criar uma Tabela
vou fazer condicoes para listar ou não determinadas colunas
tambem vai servir para levar ou nao para excel e Txt
Vou Criar relatorio via uma linha codigo
vou criar excel
vou criar Txt com Separadores
IF INT_naoLevarCodigo=True THEN // se nao quero Levar Código
TABLE_Tecnico.COL_Id_tecnico..VisibleInExportAndPrint=False //Ele Nao ira levar id tecnico
ELSE // senao
TABLE_Tecnico.COL_Id_tecnico..VisibleInExportAndPrint=Default //Vai Levar
END
//Vou fazer o mesmo para nome e telefone
IF INT_NaoLevarNome=True THEN // se nao quero Levar Nome
TABLE_Tecnico.COL_Nome..VisibleInExportAndPrint=False
ELSE // senao
TABLE_Tecnico.COL_Nome..VisibleInExportAndPrint=Default
END
IF INT_NaoLevarTelefone=True THEN // se nao quero Levar Telefone
TABLE_Tecnico.COL_Telefone..VisibleInExportAndPrint=False
ELSE // senao
TABLE_Tecnico.COL_Telefone..VisibleInExportAndPrint=Default
END
//Imprime
iPreview(ipvZoom100)
TablePrint(TABLE_Tecnico)
//Levar Excel
TableToExcel(TABLE_Tecnico,"d:\amarildo\teste.xls")
ShellExecute("d:\amarildo\teste.xls")
//Gravar Arquivo Texto
_texto is string=TableToText(TABLE_Tecnico,taNoTitle,"|",CR)
fSaveText("d:\amarildo\teste.txt",_texto)
ShellExecute("d:\amarildo\teste.txt")
http://windevdesenvolvimento.blogspot.com.br/2017/02/aula-1060-windev-tabela-043.html
Mensagem modificada, fevereiro, 08 2017 - 3:50 PM
Denunciar
0
0
BOLLER
#2
Membro registado
3.661 mensagems
Popularité : +175 (223 votes)
Publicado em fevereiro, 08 2017 - 4:06 PM
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto