En la realizacion de una Factura, ya tengo casi todo, solo me ocurre un inconveniente, al momento de ingresar una nueva factura mi tabla de descripcion de factura temporal no se limpia... ?? como hago eso.. ayuda please.?¿?!!!!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form_Produc_Modi
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Text = "Form_Produc_Modi"
End Sub
End Class
Imports System.Console
Module Module1
Sub Main()
FechaRangos()
ReadLine()
End Sub
Sub FechaRangos()
Dim dia, mes, año As Integer
WriteLine("ingrese la fecha")
WriteLine("Dia:")
dia = ReadLine()
'Necesito que almacene el dia, solo si se coloca un numero entre 1 y 31
WriteLine("Mes:")
mes = ReadLine()
'Necesito que almacene el mes, solo si se coloca un numero entre 1 y 12
WriteLine("Año")
año = ReadLine()
'Necesito que almacene el año, solo si se coloca un numero mayor a 1800 y menor a 2020
WriteLine("|dia|mes|año|")
WriteLine("{0}-{1}-{2}", dia, mes, año)
End Sub
End Module
Imports System.Console
Module Module1
Sub Main()
Dim num, y As Integer
y = 0
Do
WriteLine("INGRESE UN NUMERO")
num = ReadLine()
Do
y = y * 10 + (num Mod 10)
num = num \ 10
Loop While num > 0
WriteLine(y)
WriteLine()
y = 0
Loop While y = 0
End Sub
End Module
Imports System.Console
Module Module1
Sub Main()
Dim num, y As Integer
y = 0
Do
WriteLine("INGRESE UN NUMERO")
num = ReadLine()
Do
y = y * 10 + (num Mod 10)
num = num / 10
Loop While num > 0
WriteLine(y)
WriteLine()
y = 0
Loop While y = 0
End Sub
End Module