none
cupom fiscal/ajuda no formulário RRS feed

  • Pergunta

  • Ola achei esse Código de um cupom, mas não estou conseguindo montar o formulário para ele funcionar, podem me ajudar?

    Muito, grato desde já.

    Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
       Select Case Button.Index
          Case 1 '----------------------------------------------------------------------------------> INICIA CUPOM FISCAL
             a = 1
             Total = 0
             List1.Font = "Courier New"
             List1.Width = 6195
             List1.Height = 3570
             List1.AddItem Date & "  " & Time & "   CCF:000000      COO:000000"
             List1.AddItem "               CUPOM FISCAL"
             List1.AddItem " ITEM   CÓDIGO        DESCRIÇÃO"
             List1.AddItem "     QNT.       VL.UNIT(  R$)   ST    VL.ITEM(  R$)"
             List1.AddItem "---------------------------------------------------"
             List1.ListIndex = List1.ListCount - 1
             frmpro.Enabled = True
             Toolbar1.Buttons(1).Enabled = False
          Case 2 '------------------------------------------------------------------------------------------> INSERE ITEM
             List1.AddItem " " & Format(a, "#000") & "        " & Format(codpro.Text, "#0000") & "          " & despro.Text
             List1.AddItem "      " & Format(qntpro.Text, "#000") & " Un x  " & Format(valpro.Text, "#,##0.00;(#,##0.00)") _
             & "        =  " & Format(SubTotal, "#,##0.00;(#,##0.00)") & Format(Total, "#,##0.00;(#,##0.00)")
             SubTotal = Total + (valpro.Text * qntpro.Text)
             Total = Total + SubTotal
             codpro.Text = ""
             despro.Text = ""
             valpro.Text = ""
             qntpro.Text = "1"
             a = a + 1
             Toolbar1.Buttons(2).Enabled = False
             Toolbar1.Buttons(3).Enabled = True
          Case 3 '-------------------------------------------------------------------------------> IMPRIME O CUPOM FISCAL
    '        em construção
             Toolbar1.Buttons(1).Enabled = True
          Case 4
             Unload Me
       End Select
    End Sub

      
    terça-feira, 13 de março de 2018 19:42