PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WINDEV 25 → Aula 1062 - Windev - Relatorio 043/... - Fazer Relatorio Inventario com Query
Aula 1062 - Windev - Relatorio 043/... - Fazer Relatorio Inventario com Query
Iniciado por amarildo, fev., 10 2017 10:33 AM - Sem resposta
#1
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em fevereiro, 10 2017 - 10:33 AM
Na Aula de Hoje
Vou Criar uma Query , Select
Para Imprimir os dados
do inventario
Vou Mostrar Como Criar um Relatorio
Desde o Inicio, e tambem
como Ajustar o Relatorio para Ficar
Perfeito Para o Cliente Final

//
//Chamar Relatorio Inventario
//Mostrar video Relatorio
iPreview(ipvZoom100)
n_id_inventario_cabecalho is int=TABLE_inventario_cabecalho.COL_Inventario_cabecalhoID
n_id_empresa is int=TABLE_inventario_cabecalho.COL_Id_empresa
iPrintReport(RPT_001_inv_Relatorio_Inventario,n_id_inventario_cabecalho,n_id_empresa)
// iMPRIMIR O RELATORIO

//Codigo do Relatorio
PROCEDURE RPT_001_inv_Relatorio_Inventario(gn_recebe_id_inventario is int=0,gn_recebe_id_empresa is int=0)

HReadSeekFirst(inventario_cabecalho,inventario_cabecalhoID,gn_recebe_id_inventario)
HReadSeekFirst(empresa,id_empresa,gn_recebe_id_empresa)

STC_Periodo="Periodo"

STC_Periodo+=" "+DateToString(inventario_cabecalho.data_inicial,"DD/MM/AAAA")
STC_Periodo+=" a "+DateToString(inventario_cabecalho.data_final,"DD/MM/AAAA")

s_recebe_cnpj is string=empresa.cnpj //
s_recebe_cnpj = s_recebe_cnpj[[1 TO 2]] + "." + ...
s_recebe_cnpj[[3 TO 5]] + "." + ...
s_recebe_cnpj[[6 TO 8]] + "/" + ...
s_recebe_cnpj[[9 TO 12]] + "-" + ...
s_recebe_cnpj[[13 TO 14]]

STC_DAdosEmpresa = empresa.razao_social
STC_DAdosEmpresa += " CNPJ: "+s_recebe_cnpj
STC_DAdosEmpresa += " Inscr.Est.: "+empresa.inscricao_estadual


http://windevdesenvolvimento.blogspot.com.br/2017/02/aula-1062-windev-relatorio-043-fazer.html

→ Voltar para WINDEV 25