Un video de una programa de facturación que realice hace algún tiempo atrás y por la petición de algunos de mis seguidores lo subo al canal, no es tan simple que se diga pero es la única forma de hacerlo. Gracias por las comunicaciones a todos mis hermanos desconocidos de la red.
Private Sub BORRAR_Click()
TOT = TOT - X
TOTAL = TOT
FILA = FILA - 1
LISTADO.Col = 1
LISTADO.Row = FILA
LISTADO.Text = ""
LISTADO.Col = 2
LISTADO.Row = FILA
LISTADO.Text = ""
LISTADO.Col = 3
LISTADO.Row = FILA
LISTADO.Text = ""
LISTADO.Col = 4
LISTADO.Row = FILA
LISTADO.Text = ""
LISTADO.Col = 5
LISTADO.Row = FILA
End Sub
Private Sub COMPRAR_Click()
LISTADO.Col = 1
LISTADO.Row = FILA
LISTADO.Text = CANTIDAD.Text
LISTADO.Col = 2
LISTADO.Row = FILA
LISTADO.Text = DESCRIPCION.Text
LISTADO.Col = 3
LISTADO.Row = FILA
LISTADO.Text = PRECIO.Text
LISTADO.Col = 4
LISTADO.Row = FILA
X = Val(PRECIO) * Val(CANTIDAD)
LISTADO.Text = X
FILA = FILA + 1
TOT = TOT + X
TOTAL = TOT
BORRAR_TEXTO
End Sub
Private Sub FINALIZAR_Click()
End
End Sub
Private Sub Form_Load()
LISTADO.ColWidth(0) = 10
LISTADO.Col = 1
LISTADO.Row = 0
LISTADO.Text = "CANTIDAD"
LISTADO.ColWidth(2) = 3900
LISTADO.ColAlignment(2) = 5
LISTADO.Col = 2
LISTADO.Row = 0
LISTADO.Text = "D E T A L L E"
LISTADO.Col = 3
LISTADO.Row = 0
LISTADO.Text = "PRECIO"
LISTADO.Col = 4
LISTADO.Row = 0
LISTADO.Text = "PARCIAL"
FILA = 1
End Sub
Private Sub PAGAR_Click()
IVA = TOT * 0.12
APAGAR = TOT + IVA
End Sub
Hacer un módulo con las siguientes especificaciones:
General_declaraciones
Public TOT As Double
Public FILA As Integer
Public X As Double
_______________________________
Public Sub BORRAR_TEXTO()
PRINCIPAL.CANTIDAD.Text = ""
PRINCIPAL.DESCRIPCION.Text = ""
PRINCIPAL.PRECIO.Text = ""
PRINCIPAL.CANTIDAD.SetFocus
End Sub
8 июн 2013