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

    [Resolvido]Impressão de Cupom não fiscal

    Compartilhe

    gutembergue
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 11/01/2018

    [Resolvido]Impressão de Cupom não fiscal

    Mensagem  gutembergue em 16/2/2018, 13:02

    Bom dia Pessoal.

    Estou com um problema que não estou conseguindo resolver e gostaria muito da ajuda e apoio de vocês.

    E o seguinte:

    1) tenho uma consulta que busca os dados para a impressão do cupom.

    SELECT VENDAS_CARTAO.COD_CARTAO_VENDA, VENDAS_CARTAO.CUPOM_VENDA_CARTAO, VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA, PRODUTO.DESCRICAO, VENDAS_CARTAO.VALOR_VENDA_GERAL, VENDAS_CARTAO.QUANT_VENDAS, VENDAS_CARTAO.DATA_VENDA_GERAL, VENDAS_CARTAO.HORA_VENDA_GERAL
    FROM VENDAS_CARTAO INNER JOIN PRODUTO ON VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA = PRODUTO.COD_PRODUTO;


    2) Fiz um VBA para imprimir este cupom:

    Dim nPed, dtVenda, Fpag
    'Variável para o número da venda
    nPed = Me.CupomVenda
    'Variável para a data da venda
    dtVenda = Format(Date, "dd/mm/yyyy")
    'Variável para o tipo de pagamento
    'Fpag = StrTipoPgto

    'cupon para impressora termica de 40 colunas
    'Open "LPT1:" For Output Access Write As #1
    Open CurrentProject.Path & "\Cupom.txt" For Output Access Write As #1

    Print #1, Tab(0); "CRB-CLUBE RECREATIVO BARROSENSE"
    Print #1, Tab(0); "Av. Pref.Genesio Graçano " & " 360" & " - " & "Iramãos Pinto";
    Print #1, Tab(0); "BARROSO" & " - " & "MG"; " Cep: " & "36.212-000";
    Print #1, Tab(0); "Tel: " & "3351-0000";
    Print #1, Tab(0); "Site: " & "esite";

    Print #1, Tab(0); String(40, "-");
    Print #1, Tab(10); "Nº CUPOM : " & nPed;
    Print #1, Tab(0); String(40, "-");
    Print #1, Tab(0); "Data :" & dtVenda; " " & " "; "Hora :" & Time;
    'Print #1, Tab(0); "Forma Pagamento: " & Fpag
    Print #1, Tab(0); String(40, "-");


    'cabeça do cupon do items
    Print #1, Tab(0); "Descrição "; "(Código)";
    Print #1, Tab(0); "Und "; " Pco.Unit."; " Qtd./Peso "; " Vlr.Total "
    Print #1, Tab(0); String(40, "-");


    'selecionar items do cupon
    Dim StrSQL As String
    Dim rs As DAO.Recordset
    Dim Db As DAO.Database

    'Instrução SQL para uso no recordset
    StrSQL = "SELECT VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA, PRODUTO.DESCRICAO, VENDAS_CARTAO.VALOR_VENDA_GERAL, VENDAS_CARTAO.QUANT_VENDAS, VENDAS_CARTAO.DATA_VENDA_GERAL,VALOR_VENDA_GERAL, DATA_VENDA_GERAL"

    'Seta o Db
    Set Db = CurrentDb
    'Seta o Recordset com a SQL
    Set rs = CurrentDb.OpenRecordset(StrSQL)

    Do While Not rs.EOF
    'Imprime os campos: Sigla, Descrição e Código de Barras
    Print #1, Tab(0); Left(rs!DESCRICAO, 24); " "; "(" & Format(rs!COD_PRODUTO_CARTAO_VENDA, "0000000000000"); ")" '@ alinha à direita
    'Imprime os dados: Sigla, Preço Unitário, Quantidade e SubTotal
    Print #1, Tab(0); " "; Format$(Format$(rs!VALOR_VENDA_GERAL, "#,##0.00"), "@@@@@@@@"); _
    " "; Format(rs!QUANT_VENDAS, "000"); " "; Format$(Format$(rs!QUANT_VENDAS, "###000") * (Format$(rs!VALOR_VENDA_GERAL, "#,##0.00")), "@@@@@@@@")
    Print #1, Tab(0); ""
    rs.MoveNext
    Loop
    'Fecha o recorset
    rs.Close
    'valor total do cupon
    'Print #1, Tab(0); String(40, "-");
    'Print #1, Tab(16); "Qtd. Itens : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
    'Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
    'Print #1, Tab(16); "Dinheiro R$: "; Format$(Format$(Me.Dinheiro, "#,##0.00"), "@@@@@@@@")
    'Print #1, Tab(16); "Troco R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
    Print #1, Tab(0); String(40, "-");

    'mensagem de no rodape do cupom
    Print #1, Tab((40 - Len("Este Cupon Não Tem Valor Fiscal")) / 2); "Este Cupon Não Tem Valor Fiscal"
    Print #1, Tab(0); " "
    Print #1, Tab((40 - Len("OBRIGADO PELA PREFERÊNCIA")) / 2); "OBRIGADO PELA PREFERÊNCIA"
    Print #1, Tab(0); String(40, "-");
    Print #1, Tab((40 - Len("ConsumoCard - Versão 1.0.0 - Venda")) / 2); "ConsumoCard - Versão 1.0.0 - Venda";
    'as linhas seguintes são linhas em branco para sair o papel da impressora, adapte-as como desejar
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); " "
    Print #1, Tab(0); "-------"
    'comando de corte
    'Print #1, Chr(27) + "i"
    Close #1#
    End Sub

    3) Esta dando um erro assim:

    Erro em tempo de execução 3061
    parâmetros insuficientes. Eram esperados 7

    Ai para nesta instrução:
    Set rs = CurrentDb.OpenRecordset(StrSQL)


    Obrigado pelo apoio de todos


    Gutenbergue

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Impressão de Cupom não fiscal

    Mensagem  Noobezinho em 16/2/2018, 13:38


    Gutembergue


    Coloque a SQL na consulta e verifique está funfando.


    Aguardo...

    gutembergue
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 11/01/2018

    Re: [Resolvido]Impressão de Cupom não fiscal

    Mensagem  gutembergue em 16/2/2018, 13:50

    Bom dia Noobezinho.

    Esta errado mesmo.

    Segue a correta:

    SELECT VENDAS_CARTAO.COD_CARTAO_VENDA, VENDAS_CARTAO.CUPOM_VENDA_CARTAO, VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA, PRODUTO.DESCRICAO, VENDAS_CARTAO.VALOR_VENDA_GERAL, VENDAS_CARTAO.QUANT_VENDAS, VENDAS_CARTAO.DATA_VENDA_GERAL, VENDAS_CARTAO.HORA_VENDA_GERAL FROM VENDAS_CARTAO INNER JOIN PRODUTO ON VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA = PRODUTO.COD_PRODUTO;


    Como eu faço para adequar conseguir adequar aqui:

    'Instrução SQL para uso no recordset
    StrSQL = "SELECT VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA, PRODUTO.DESCRICAO, VENDAS_CARTAO.VALOR_VENDA_GERAL, VENDAS_CARTAO.QUANT_VENDAS, VENDAS_CARTAO.DATA_VENDA_GERAL,VALOR_VENDA_GERAL, DATA_VENDA_GERAL"


    Obrigado


    Gutenbergue

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Impressão de Cupom não fiscal

    Mensagem  Noobezinho em 16/2/2018, 14:00

    Experimente:
    Código:

    StrSQL = "SELECT VENDAS_CARTAO.COD_CARTAO_VENDA, VENDAS_CARTAO.CUPOM_VENDA_CARTAO, " & _
                  "VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA, PRODUTO.DESCRICAO, VENDAS_CARTAO.VALOR_VENDA_GERAL, "  & _
                  "VENDAS_CARTAO.QUANT_VENDAS, VENDAS_CARTAO.DATA_VENDA_GERAL, " & _
                  "VENDAS_CARTAO.HORA_VENDA_GERAL FROM  VENDAS_CARTAO INNER JOIN PRODUTO ON " & _            
                  "VENDAS_CARTAO.COD_PRODUTO_CARTAO_VENDA = PRODUTO.COD_PRODUTO"


    gutembergue
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 11/01/2018

    Re: [Resolvido]Impressão de Cupom não fiscal

    Mensagem  gutembergue em 19/2/2018, 12:55

    Bom dia Noobezinho.

    Obrigado pelo apoio e orientações técnicas. Você é um excelente profissional!!!

    Consegui fazer meu cupom.


    Abraços


    Gutenbergue

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Impressão de Cupom não fiscal

    Mensagem  Noobezinho em 19/2/2018, 13:16

    Que ótimo!

    Valeu pelo retorno!

    Boa sorte!

      Data/hora atual: 24/9/2018, 20:57