MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Impressão cupom não fiscal

    Compartilhe

    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 376
    Registrado : 16/02/2011

    Impressão cupom não fiscal

    Mensagem  Naldo em Qui 03 Maio 2012, 12:47

    Bom dia a todos
    Recorro aos amigos do fórum para solicitar mais uma ajuda.
    Estou criando um cupom não fiscal para impressão direto para a porta LPT1 e estou com dificuldades de imprimir os dados da venda.
    Estou usando o seguinte código VBA.

    Private Sub Comando220_Click()
    Dim saida, SaidaData, TipoPg
    saida = Forms![fmrcaixarapido]!SaidaNumero
    saida = Forms![fmrcaixarapido]!SaidaVendedor
    'frmgradecaixarapido = Forms![frmgradecaixarapido]!SaidaValorVenda
    'cupon para impressora termica de 40 colunas

    'LPT1:
    Open "LPT1:" For Output Access Write As #1
    Print #1, Chr(27) & "0"
    Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " NOME DA EMPRESA - SISTEMAS " & Chr$(27) & Chr$(70) & Chr$(20)
    Print #1, Tab(0); Chr(15); "Rua: Senador Pin. Machado, 0000";
    Print #1, Tab(0); "Bairro: Centro - CEP: 19.500-000";
    Print #1, Tab(0); "Cidade: MARTINOPOLIS - SP";
    Print #1, Tab(0); "Tel: (18) - 3275-0000";
    Print #1, Tab(0); " "
    Print #1, Tab(0); "-----------------------------------------------------------";
    Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Num. Saida: "; Format$(Format$(Me.SaidaNumero, "0000000"), "@@@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
    Print #1, Tab(0); "-----------------------------------------------------------";
    Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); " CONTROLE INTERNO " & Chr$(27) & Chr$(70) & Chr$(20)
    Print #1, Tab(0); " "
    Print #1, Tab(0); " Cliente - "; Me.SaidaCliente;
    Print #1, Tab(0); " Operador - "; Me.SaidaVendedor;
    Print #1, Tab(0); " Tipo do Pagamento - "; Me.SaidaPg;

    Print #1, Tab(0); " Data: " & Me.SaidaData; " " & " "; "Hora: " & Time;
    Print #1, Tab(0); "----------------------------------------------------------";
    Print #1, Tab(0); " "
    'Print #1, Tab(0); "Vlr. Unit. : "; Format$(Format$(saidadetalhe.Me.SaidaValorVenda, "#,##0.00"), "@@@@@@@@");
    'Print #1, Tab(0); "Quant. : "; Format$(Format$([saidadetalhe].Me.SaidaQuantidade, "#,##0.00"), "@@@@@@@@");
    'Print #1, Tab(0); "Valor : "; Format$(Format$([saidadetalhe].Me.SaidaValorVenda, "#,##0.00"), "@@@@@@@@");
    Print #1, Tab(0); " "


    'cabeça do cupon do items
    Print #1, Tab(0); " Quant. Descr.Produto Unit. Desc. SubTotal ";
    Print #1, Tab(0); "---------------------------------------------------------";

    'selecionar items do cupon

    'aqui vai as unstruções do cupom(Detalhes da venda)

    'valor total do cupon
    Print #1, Tab(0); "---------------------------------------------------------";

    'mensagem de no rodape do cupom
    Print #1, Tab(0); " Nao vale como documento fiscal "
    Print #1, Tab(0); " Controle interno"
    Print #1, Tab(0); " "
    'Print #1, Tab(0); Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "Carne NRO : "; Format$(Format$(Me.[id], "00000"), "@@@@@") & Chr$(27) & Chr$(70) & Chr$(20);
    Print #1, Tab(0); " "
    Print #1, Tab(5); " VOCE CLIENTE E IMPORTANTE PARA NOS"
    Print #1, Tab(5); " OBRIGADO PELA PREFERENCIA, VOLTE SEMPRE"
    Print #1, Tab(0); "---------------------------------------------------------";
    Print #1, Tab(0); "Teste cupom + " "; " Loja 01"
    Print #1, Tab(0); "---------------------------------------------------------" & Chr(18);
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    'comando de corte
    Print #1, Chr(27) + "i"
    Close #1
    Exit Sub
    End Sub

    Como devo proceder para buscar os campos dos itens do cupom, tenho a seguinte consulta que funciona na impressão com o relatório do Access

    SELECT Saida.SaidaCliente, Saida.SaidaNumero, Saida.SaidaData, tblClientes.Nome, SaidaDetalhe.SaidaQuantidade, Produtos.ProdutoDescricao, Medidas.MedidasDescricao, SaidaDetalhe.SaidaValorVenda, SaidaDetalhe.VlrDesconto, tblClientes.Endereço, tblClientes.Numero, Bairro.BairroDescricao, tblClientes.Telefone, Cidade.CidadeDescricao, Produtos.ProdutoCodigo, [_EMPRESA].NomeEmpresa, [_EMPRESA].Endereço, [_EMPRESA].Fone, [_EMPRESA].Logo, Vendedor.Nome, TipoPg.PgDescricao, SaidaDetalhe.DesPorc, SaidaDetalhe.DescGrade, [_EMPRESA].Endereço, Vendedor.Nome
    FROM _EMPRESA, (Cidade INNER JOIN (Bairro INNER JOIN tblClientes ON Bairro.BairroID = tblClientes.Bairro) ON Cidade.CidadeID = tblClientes.Cidade) INNER JOIN ((Medidas INNER JOIN Produtos ON Medidas.MedidasCodigo = Produtos.ProdutoUnidadedeMedidaNumeto) INNER JOIN ((TipoPg INNER JOIN (Vendedor INNER JOIN Saida ON Vendedor.Codigo_Cliente = Saida.SaidaVendedor) ON TipoPg.TipoPg = Saida.SaidaPg) INNER JOIN SaidaDetalhe ON Saida.SaidaNumero = SaidaDetalhe.SaidaNumero) ON Produtos.ProdutoCodigo = SaidaDetalhe.SaidaProduto) ON tblClientes.Codigo_Cliente = Saida.SaidaCliente;

    Agradeço a atenção de todos.
    avatar
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 637
    Registrado : 07/05/2010

    Re: Impressão cupom não fiscal

    Mensagem  Jungli em Qui 03 Maio 2012, 13:54

    Exemplo:



    Dim bc As DAO.Database
    Dim tbVendido As DAO.Recordset
    'selecionar items do cupom
    Set bc = CurrentDb

    Set tbVendido = bc.OpenRecordset("SELECT [Cadastro de Mercadorias].Mercadoria, " & _
    "[Cadastro de Mercadorias].Medida, " & _
    "[Vendas Efetuadas].[Código da Venda], " & _
    "[Vendas Efetuadas].[Código da Mercadoria], " & _
    "[Vendas Efetuadas].Quantidade, " & _
    "[Vendas Efetuadas].Preço " & _
    "FROM [Vendas Efetuadas] " & _
    "INNER JOIN [Cadastro de Mercadorias] " & _
    "ON [Vendas Efetuadas].[Código da Mercadoria] = [Cadastro de Mercadorias].[Código da Mercadoria] " & _
    "WHERE ((([Vendas Efetuadas].[Código da Venda])=" & Me.Código_da_Venda & "))", dbOpenDynaset)

    Do While Not tbVendido.EOF
    Print #1, Tab(0); Format(tbVendido("Código da Mercadoria"), "0000000000000"); " " & _
    Format(Left(tbVendido("Mercadoria"), 20), "@@@@@@@@@@@@@@@@@@@@");
    Print #1, Tab(0); Format(tbVendido("quantidade"), "000"); " "; Format$(Format$(tbVendido("PREçO"), "#,##0.00"), "@@@@@@@@"); _
    " "; Format$(Format$(tbVendido("preço") * tbVendido("quantidade"), "#,##0.00"), "@@@@@@@@")

    tbVendido.MoveNext
    Loop
    tbVendido.Close

    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 376
    Registrado : 16/02/2011

    Re: Impressão cupom não fiscal

    Mensagem  Naldo em Sex 04 Maio 2012, 00:41

    JUNGLI, esta dando uns erros que não consigo detectar, tenho pouco conh. em VBA,
    Sou grato pela sua atenção
    avatar
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 637
    Registrado : 07/05/2010

    Re: Impressão cupom não fiscal

    Mensagem  Jungli em Sex 04 Maio 2012, 11:34

    Você pode disponibilizar o banco de dados com as tabelas da consulta, e o formulário com o código que está utilizando, ficaria mais fácil de ajudá-lo.


    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 376
    Registrado : 16/02/2011

    Re: Impressão cupom não fiscal

    Mensagem  Naldo em Sex 04 Maio 2012, 12:47

    Ao iniciar o banco abrira o tela do caixa, clique no botão nova venda.
    Selecione um produto na Descrição l após estas etapas clique no botão - F11 Imprimir Pedidos , vai da o erro nesta etapa, ai que o bicho esta pegando, meu conhecimento em VBA é muito pouco.
    Agradeço sua atenção.
    avatar
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 637
    Registrado : 07/05/2010

    Re: Impressão cupom não fiscal

    Mensagem  Jungli em Sex 04 Maio 2012, 14:09

    Tente assim,


    'selecionar items do cupom
    Dim bc As DAO.Database
    Dim saidadetalhe As DAO.Recordset
    Set bc = CurrentDb
    '------------------------
    Set saidadetalhe = bc.OpenRecordset("SELECT SaidaDetalhe.SaidaNumero, " & _
    "Produtos.CodBarra, Medidas.MedidasDescricao, Produtos.ProdutoDescricao, " & _
    "SaidaDetalhe.SaidaQuantidade, SaidaDetalhe.SaidaValorVenda " & _
    "FROM (SaidaDetalhe INNER JOIN Produtos " & _
    "ON SaidaDetalhe.SaidaProduto = Produtos.ProdutoCodigo) " & _
    "INNER JOIN Medidas " & _
    "ON Produtos.ProdutoUnidadedeMedidaNumeto = Medidas.MedidasCodigo " & _
    "WHERE (((SaidaDetalhe.SaidaNumero)=" & Me.SaidaNumero & "));", dbOpenSnapshot)

    Do While Not saidadetalhe.EOF
    Print #1, Tab(0); Format(saidadetalhe![SaidaNumero], "0000000000000"); " " & _
    Format(Left(saidadetalhe![ProdutoDescricao], 20), "@@@@@@@@@@@@@@@@@@@@");
    Print #1, Tab(0); Format(saidadetalhe![SaidaQuantidade], "000"); " "; Format$(Format$(saidadetalhe![SaidaValorVenda], "#,##0.00"), "@@@@@@@@"); _
    " "; Format$(Format$(saidadetalhe![SaidaValorVenda] * saidadetalhe![SaidaQuantidade], "#,##0.00"), "@@@@@@@@")

    saidadetalhe.MoveNext
    Loop
    saidadetalhe.Close

    Não testei pois aqui no serviço não tenho impressora na LPT1, aguardo retorno.


    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 376
    Registrado : 16/02/2011

    Re: Impressão cupom não fiscal

    Mensagem  Naldo em Sex 04 Maio 2012, 16:06

    JUNGLI, deu certo, muito bom mesmo.

    Só lhe peço mais uma ajuda; No nome do Cliente, Operador e o Tipo de Pagamento ao invés de informar o número, informar o nome dos mesmos(abaixo do rótulo CONTROLE INTERNO)

    Sou muito grato pela sua atenção.
    Que DEUS ilumine seus caminhos




    CEZARMAX
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 09/02/2012

    Manipulando Fontes no Cupom não Fiscal!

    Mensagem  CEZARMAX em Seg 08 Jun 2015, 20:25

    Boa tarde,

    Alguém sabe como manipular a fonte, tipo aumentar o tamanho, e textos em negrito, usando com o printf do visual??

      Data/hora atual: Sab 24 Jun 2017, 14:51