У нас вы можете посмотреть бесплатно FACTURA SIMPLE EN VISUAL BASIC 6 или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
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