468 lines
19 KiB
VB.net
468 lines
19 KiB
VB.net
Public Class frmDetalleFTI
|
|
|
|
Public idFTI As String
|
|
Public ValidaMes As Boolean
|
|
Dim fecha As DateTime
|
|
|
|
Private Sub frmDetalleFTI_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
|
|
'Llena los textbox
|
|
llenarDatos()
|
|
|
|
'Valida mes
|
|
If ValidaMes = False Then
|
|
BlockControls()
|
|
End If
|
|
|
|
TextBox2.Enabled = False
|
|
TextBox3.Enabled = False
|
|
TextBox1.Enabled = False
|
|
TextBox4.Enabled = False
|
|
TextBox5.Enabled = False
|
|
TextBox6.Enabled = False
|
|
TextBox7.Enabled = False
|
|
|
|
End Sub
|
|
|
|
Private Function llenarDatos() As Boolean
|
|
Dim dt As DataTable
|
|
Dim dr As DataRow
|
|
Dim cls As clsComplejo
|
|
Try
|
|
cls = New clsComplejo()
|
|
dt = cls.fdtDataTable("SPS_FTIid " & idFTI)
|
|
dr = dt.Rows(0)
|
|
'For Each dc As DataColumn In dt.Columns
|
|
' MessageBox.Show(dr(dc))
|
|
'Next
|
|
'For i As Integer = 0 To 79
|
|
' System.Console.Write("textbox" & i & ".text= IIf(IsDBNull(dr(" & i & ")), """", dr(" & i & "))")
|
|
'Next
|
|
For i As Integer = 1 To 78
|
|
System.Console.Write("textbox" & i & ".Text.Trim,")
|
|
Next
|
|
|
|
TextBox1.Text = IIf(IsDBNull(dr(1)), "", dr(1))
|
|
TextBox2.Text = IIf(IsDBNull(dr(2)), "", dr(2))
|
|
TextBox3.Text = IIf(IsDBNull(dr(3)), "", dr(3))
|
|
TextBox4.Text = IIf(IsDBNull(dr(4)), "", dr(4))
|
|
TextBox5.Text = IIf(IsDBNull(dr(5)), "", dr(5))
|
|
TextBox6.Text = IIf(IsDBNull(dr(6)), "", dr(6))
|
|
TextBox7.Text = IIf(IsDBNull(dr(7)), "", dr(7))
|
|
TextBox8.Text = IIf(IsDBNull(dr(8)), "", dr(8))
|
|
TextBox9.Text = IIf(IsDBNull(dr(9)), "", dr(9))
|
|
TextBox10.Text = IIf(IsDBNull(dr(10)), "", dr(10))
|
|
TextBox11.Text = IIf(IsDBNull(dr(11)), "", dr(11))
|
|
TextBox12.Text = IIf(IsDBNull(dr(12)), "", dr(12))
|
|
TextBox13.Text = IIf(IsDBNull(dr(13)), "", dr(13))
|
|
TextBox14.Text = IIf(IsDBNull(dr(14)), "", dr(14))
|
|
TextBox15.Text = IIf(IsDBNull(dr(15)), "", dr(15))
|
|
TextBox16.Text = IIf(IsDBNull(dr(16)), "", dr(16))
|
|
TextBox17.Text = IIf(IsDBNull(dr(17)), "", dr(17))
|
|
TextBox18.Text = IIf(IsDBNull(dr(18)), "", dr(18))
|
|
TextBox19.Text = IIf(IsDBNull(dr(19)), "", dr(19))
|
|
TextBox20.Text = IIf(IsDBNull(dr(20)), "", dr(20))
|
|
TextBox21.Text = IIf(IsDBNull(dr(21)), "", dr(21))
|
|
TextBox22.Text = IIf(IsDBNull(dr(22)), "", dr(22))
|
|
TextBox23.Text = IIf(IsDBNull(dr(23)), "", dr(23))
|
|
TextBox24.Text = IIf(IsDBNull(dr(24)), "", dr(24))
|
|
TextBox25.Text = IIf(IsDBNull(dr(25)), "", dr(25))
|
|
TextBox26.Text = IIf(IsDBNull(dr(26)), "", dr(26))
|
|
TextBox27.Text = IIf(IsDBNull(dr(27)), "", dr(27))
|
|
TextBox28.Text = IIf(IsDBNull(dr(28)), "", dr(28))
|
|
TextBox29.Text = IIf(IsDBNull(dr(29)), "", dr(29))
|
|
TextBox30.Text = IIf(IsDBNull(dr(30)), "", dr(30))
|
|
TextBox31.Text = IIf(IsDBNull(dr(31)), "", dr(31))
|
|
TextBox32.Text = IIf(IsDBNull(dr(32)), "", dr(32))
|
|
TextBox33.Text = IIf(IsDBNull(dr(33)), "", dr(33))
|
|
TextBox34.Text = IIf(IsDBNull(dr(34)), "", dr(34))
|
|
TextBox35.Text = IIf(IsDBNull(dr(35)), "", dr(35))
|
|
TextBox36.Text = IIf(IsDBNull(dr(36)), "", dr(36))
|
|
TextBox37.Text = IIf(IsDBNull(dr(37)), "", dr(37))
|
|
TextBox38.Text = IIf(IsDBNull(dr(38)), "", dr(38))
|
|
TextBox39.Text = IIf(IsDBNull(dr(39)), "", dr(39))
|
|
TextBox40.Text = IIf(IsDBNull(dr(40)), "", dr(40))
|
|
TextBox41.Text = IIf(IsDBNull(dr(41)), "", dr(41))
|
|
TextBox42.Text = IIf(IsDBNull(dr(42)), "", dr(42))
|
|
TextBox43.Text = IIf(IsDBNull(dr(43)), "", dr(43))
|
|
TextBox44.Text = IIf(IsDBNull(dr(44)), "", dr(44))
|
|
TextBox45.Text = IIf(IsDBNull(dr(45)), "", dr(45))
|
|
TextBox46.Text = IIf(IsDBNull(dr(46)), "", dr(46))
|
|
TextBox47.Text = IIf(IsDBNull(dr(47)), "", dr(47))
|
|
TextBox48.Text = IIf(IsDBNull(dr(48)), "", dr(48))
|
|
TextBox49.Text = IIf(IsDBNull(dr(49)), "", dr(49))
|
|
TextBox50.Text = IIf(IsDBNull(dr(50)), "", dr(50))
|
|
TextBox51.Text = IIf(IsDBNull(dr(51)), "", dr(51))
|
|
TextBox52.Text = IIf(IsDBNull(dr(52)), "", dr(52))
|
|
TextBox53.Text = IIf(IsDBNull(dr(53)), "", dr(53))
|
|
TextBox54.Text = IIf(IsDBNull(dr(54)), "", dr(54))
|
|
TextBox55.Text = IIf(IsDBNull(dr(55)), "", dr(55))
|
|
TextBox56.Text = IIf(IsDBNull(dr(56)), "", dr(56))
|
|
TextBox57.Text = IIf(IsDBNull(dr(57)), "", dr(57))
|
|
TextBox58.Text = IIf(IsDBNull(dr(58)), "", dr(58))
|
|
TextBox59.Text = IIf(IsDBNull(dr(59)), "", dr(59))
|
|
TextBox60.Text = IIf(IsDBNull(dr(60)), "", dr(60))
|
|
TextBox61.Text = IIf(IsDBNull(dr(61)), "", dr(61))
|
|
TextBox62.Text = IIf(IsDBNull(dr(62)), "", dr(62))
|
|
TextBox63.Text = IIf(IsDBNull(dr(63)), "", dr(63))
|
|
TextBox64.Text = IIf(IsDBNull(dr(64)), "", dr(64))
|
|
TextBox65.Text = IIf(IsDBNull(dr(65)), "", dr(65))
|
|
TextBox66.Text = IIf(IsDBNull(dr(66)), "", dr(66))
|
|
TextBox67.Text = IIf(IsDBNull(dr(67)), "", dr(67))
|
|
TextBox68.Text = IIf(IsDBNull(dr(68)), "", dr(68))
|
|
TextBox69.Text = IIf(IsDBNull(dr(69)), "", dr(69))
|
|
TextBox70.Text = IIf(IsDBNull(dr(70)), "", dr(70))
|
|
TextBox71.Text = IIf(IsDBNull(dr(71)), "", dr(71))
|
|
TextBox72.Text = IIf(IsDBNull(dr(72)), "", dr(72))
|
|
TextBox73.Text = IIf(IsDBNull(dr(73)), "", dr(73))
|
|
TextBox74.Text = IIf(IsDBNull(dr(74)), "", dr(74))
|
|
TextBox75.Text = IIf(IsDBNull(dr(75)), "", dr(75))
|
|
TextBox76.Text = IIf(IsDBNull(dr(76)), "", dr(76))
|
|
TextBox77.Text = IIf(IsDBNull(dr(77)), "", dr(77))
|
|
TextBox78.Text = IIf(IsDBNull(dr(78)), "", dr(78))
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub cmdSalir_Click(sender As System.Object, e As System.EventArgs) Handles cmdSalir.Click
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub cmdGen_Click(sender As System.Object, e As System.EventArgs) Handles cmdGen.Click
|
|
|
|
Try
|
|
Dim Auditoria As New ClassMyUtils
|
|
|
|
'Guarda el registro
|
|
Guardar()
|
|
|
|
'Genera bitacora
|
|
'Auditoria.RT_Auditoria(clsVaribles.varUsuario, 130, 29, "Creacion de registro transferencia internacional del folio: " & idFTI.ToString() & "")
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Error al guardar en auditoria:" & ex.Message, MsgBoxStyle.Information, "Aviso")
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Function Guardar() As Boolean
|
|
Dim Ssql As String
|
|
Dim cls As clsComplejo
|
|
Guardar = False
|
|
|
|
Dim TRIMESTRE As String
|
|
TRIMESTRE = ValidateDate()
|
|
|
|
Dim fec As String = Mid(TextBox6.Text, 1, 4) & "/" & Mid(TextBox6.Text, 5, 2) & "/" & Mid(TextBox6.Text, 7, 2)
|
|
Dim fecha As DateTime = Convert.ToDateTime(fec)
|
|
TRIMESTRE = ValidateDate()
|
|
fecha = fecha.AddMonths(1)
|
|
|
|
Try
|
|
cls = New clsComplejo()
|
|
Ssql = "INSERT INTO FTI"
|
|
Ssql += "(mes_reportado,"
|
|
Ssql += "clave_organo_regulador,"
|
|
Ssql += "clave_entidad,"
|
|
Ssql += "folio_consecutivo,"
|
|
Ssql += "folio_previo,"
|
|
Ssql += "fecha,"
|
|
Ssql += "referencia,"
|
|
Ssql += "nombre_corresponsal_envio,"
|
|
Ssql += "nombre_entidad_destino_envio,"
|
|
Ssql += "bic_aba_envio,"
|
|
Ssql += "datos_destinatario_envio,"
|
|
Ssql += "operacion_origen_envio,"
|
|
Ssql += "operacion_destino_envio,"
|
|
Ssql += "instrumento_monetario_origen_envio,"
|
|
Ssql += "moneda_origen_envio,"
|
|
Ssql += "monto_instrumento_origen_envio,"
|
|
Ssql += "mensaje_envio,"
|
|
Ssql += "nombre_corresponsal_recepcion,"
|
|
Ssql += "nombre_entidad_origen_recepcion,"
|
|
Ssql += "bic_aba_recepcion,"
|
|
Ssql += "datos_ordenante_recepcion,"
|
|
Ssql += "operacion_origen_recepcion,"
|
|
Ssql += "operacion_destino_recepcion,"
|
|
Ssql += "instrumento_monetario_destino_recepcion,"
|
|
Ssql += "moneda_destino_recepcion,"
|
|
Ssql += "monto_instrumento_destino_recepcion,"
|
|
Ssql += "mensaje_recepcion,"
|
|
Ssql += "nombre_corresponsal_vostro,"
|
|
Ssql += "nombre_entidad_origen_vostro,"
|
|
Ssql += "bic_aba_vostro,"
|
|
Ssql += "datos_ordenante_vostro,"
|
|
Ssql += "operacion_origen_vostro,"
|
|
Ssql += "nombre_entidad_destino_vostro,"
|
|
Ssql += "datos_destinatario_vostro,"
|
|
Ssql += "operacion_destino_vostro,"
|
|
Ssql += "mensaje_vostro,"
|
|
Ssql += "nombre_pf,"
|
|
Ssql += "apellido_paterno_pf,"
|
|
Ssql += "apellido_materno_pf,"
|
|
Ssql += "fecha_nacimiento_pf,"
|
|
Ssql += "curp_pf,"
|
|
Ssql += "rfc_pf,"
|
|
Ssql += "pais_nacimiento_pf,"
|
|
Ssql += "pais_nacionalidad_pf,"
|
|
Ssql += "actividad_economica_pf,"
|
|
Ssql += "razon_social_pm,"
|
|
Ssql += "fecha_constitucion_pm,"
|
|
Ssql += "rfc_pm,"
|
|
Ssql += "pais_nacionalidad_pm,"
|
|
Ssql += "giro_mercantil_pm,"
|
|
Ssql += "apoderado_legal_pm,"
|
|
Ssql += "domicilio_nacional_unificado,"
|
|
Ssql += "ciudad_poblacion_nacional_unificado,"
|
|
Ssql += "codigo_postal_nacional_unificado,"
|
|
Ssql += "entidad_federativa_nacional_separado,"
|
|
Ssql += "codigo_postal_nacional_separado,"
|
|
Ssql += "ciudad_poblacion_nacional_separado,"
|
|
Ssql += "delegacion_municipio_nacional_separado,"
|
|
Ssql += "colonia_nacional_separado,"
|
|
Ssql += "calle_nacional_separado,"
|
|
Ssql += "numero_exterior_nacional_separado,"
|
|
Ssql += "numero_interior_nacional_separado,"
|
|
Ssql += "pais_extranjero,"
|
|
Ssql += "domicilio_extranjero_unificado,"
|
|
Ssql += "ciudad_poblacion_extranjero_unificado,"
|
|
Ssql += "codigo_postal_extranjero_unificado,"
|
|
Ssql += "estado_provincia_extranjero_separado,"
|
|
Ssql += "codigo_postal_extranjero_separado,"
|
|
Ssql += "ciudad_poblacion_extranjero_separado,"
|
|
Ssql += "colonia_extranjero_separado,"
|
|
Ssql += "calle_extranjero_separado,"
|
|
Ssql += "numero_exterior_extranjero_separado,"
|
|
Ssql += "numero_interior_extranjero_separado,"
|
|
Ssql += "numero_telefono,"
|
|
Ssql += "clave_pais_telefono,"
|
|
Ssql += "extension_telefono,"
|
|
Ssql += "correo_electronico,"
|
|
Ssql += "fiel,"
|
|
Ssql += "ANIO,"
|
|
Ssql += "MES,"
|
|
Ssql += "FOLIOGENERAL)"
|
|
Ssql += "Values("
|
|
Ssql += "'" & TRIMESTRE & "',"
|
|
Ssql += "'" & TextBox2.Text.Trim & "',"
|
|
Ssql += "'" & TextBox3.Text.Trim & "',"
|
|
Ssql += "'" & Mid(TextBox4.Text.Trim, 1, 11) & "' + CONVERT(VARCHAR(10),(SELECT MAX(FOLIOGENERAL) FROM FTI) + 1),"
|
|
Ssql += "'" & TextBox4.Text.Trim & "',"
|
|
Ssql += " CONVERT(VARCHAR(500),CONVERT(datetime, '" & fecha & "'), 112),"
|
|
Ssql += "'" & TextBox7.Text.Trim & "',"
|
|
Ssql += "'" & TextBox8.Text.Trim & "',"
|
|
Ssql += "'" & TextBox9.Text.Trim & "',"
|
|
Ssql += "'" & TextBox10.Text.Trim & "',"
|
|
Ssql += "'" & TextBox11.Text.Trim & "',"
|
|
Ssql += "'" & TextBox12.Text.Trim & "',"
|
|
Ssql += "'" & TextBox13.Text.Trim & "',"
|
|
Ssql += "'" & TextBox14.Text.Trim & "',"
|
|
Ssql += "'" & TextBox15.Text.Trim & "',"
|
|
Ssql += "'" & TextBox16.Text.Trim & "',"
|
|
Ssql += "'" & TextBox17.Text.Trim & "',"
|
|
Ssql += "'" & TextBox18.Text.Trim & "',"
|
|
Ssql += "'" & TextBox19.Text.Trim & "',"
|
|
Ssql += "'" & TextBox20.Text.Trim & "',"
|
|
Ssql += "'" & TextBox21.Text.Trim & "',"
|
|
Ssql += "'" & TextBox22.Text.Trim & "',"
|
|
Ssql += "'" & TextBox23.Text.Trim & "',"
|
|
Ssql += "'" & TextBox24.Text.Trim & "',"
|
|
Ssql += "'" & TextBox25.Text.Trim & "',"
|
|
Ssql += "'" & TextBox26.Text.Trim & "',"
|
|
Ssql += "'" & TextBox27.Text.Trim & "',"
|
|
Ssql += "'" & TextBox28.Text.Trim & "',"
|
|
Ssql += "'" & TextBox29.Text.Trim & "',"
|
|
Ssql += "'" & TextBox30.Text.Trim & "',"
|
|
Ssql += "'" & TextBox31.Text.Trim & "',"
|
|
Ssql += "'" & TextBox32.Text.Trim & "',"
|
|
Ssql += "'" & TextBox33.Text.Trim & "',"
|
|
Ssql += "'" & TextBox34.Text.Trim & "',"
|
|
Ssql += "'" & TextBox35.Text.Trim & "',"
|
|
Ssql += "'" & TextBox36.Text.Trim & "',"
|
|
Ssql += "'" & TextBox37.Text.Trim & "',"
|
|
Ssql += "'" & TextBox38.Text.Trim & "',"
|
|
Ssql += "'" & TextBox39.Text.Trim & "',"
|
|
Ssql += "'" & TextBox40.Text.Trim & "',"
|
|
Ssql += "'" & TextBox41.Text.Trim & "',"
|
|
Ssql += "'" & TextBox42.Text.Trim & "',"
|
|
Ssql += "'" & TextBox43.Text.Trim & "',"
|
|
Ssql += "'" & TextBox44.Text.Trim & "',"
|
|
Ssql += "'" & TextBox45.Text.Trim & "',"
|
|
Ssql += "'" & TextBox46.Text.Trim & "',"
|
|
Ssql += "'" & TextBox47.Text.Trim & "',"
|
|
Ssql += "'" & TextBox48.Text.Trim & "',"
|
|
Ssql += "'" & TextBox49.Text.Trim & "',"
|
|
Ssql += "'" & TextBox50.Text.Trim & "',"
|
|
Ssql += "'" & TextBox51.Text.Trim & "',"
|
|
Ssql += "'" & TextBox52.Text.Trim & "',"
|
|
Ssql += "'" & TextBox53.Text.Trim & "',"
|
|
Ssql += "'" & TextBox54.Text.Trim & "',"
|
|
Ssql += "'" & TextBox55.Text.Trim & "',"
|
|
Ssql += "'" & TextBox56.Text.Trim & "',"
|
|
Ssql += "'" & TextBox57.Text.Trim & "',"
|
|
Ssql += "'" & TextBox58.Text.Trim & "',"
|
|
Ssql += "'" & TextBox59.Text.Trim & "',"
|
|
Ssql += "'" & TextBox60.Text.Trim & "',"
|
|
Ssql += "'" & TextBox61.Text.Trim & "',"
|
|
Ssql += "'" & TextBox62.Text.Trim & "',"
|
|
Ssql += "'" & TextBox63.Text.Trim & "',"
|
|
Ssql += "'" & TextBox64.Text.Trim & "',"
|
|
Ssql += "'" & TextBox65.Text.Trim & "',"
|
|
Ssql += "'" & TextBox66.Text.Trim & "',"
|
|
Ssql += "'" & TextBox67.Text.Trim & "',"
|
|
Ssql += "'" & TextBox68.Text.Trim & "',"
|
|
Ssql += "'" & TextBox69.Text.Trim & "',"
|
|
Ssql += "'" & TextBox70.Text.Trim & "',"
|
|
Ssql += "'" & TextBox71.Text.Trim & "',"
|
|
Ssql += "'" & TextBox72.Text.Trim & "',"
|
|
Ssql += "'" & TextBox73.Text.Trim & "',"
|
|
Ssql += "'" & TextBox74.Text.Trim & "',"
|
|
Ssql += "'" & TextBox75.Text.Trim & "',"
|
|
Ssql += "'" & TextBox76.Text.Trim & "',"
|
|
Ssql += "'" & TextBox77.Text.Trim & "',"
|
|
Ssql += "'" & TextBox78.Text.Trim & "',"
|
|
Ssql += "'" & Year(Now) & "',"
|
|
Ssql += "'" & Month(Now) & "',"
|
|
Ssql += "(SELECT MAX(FOLIOGENERAL) FROM FTI) + 1)"
|
|
cls.fnInserta(Ssql)
|
|
Guardar = True
|
|
|
|
BlockControls()
|
|
|
|
'Bitacora
|
|
Dim Auditoria As New ClassMyUtils
|
|
Auditoria.RT_Auditoria(clsVaribles.varUsuario, 131, 28, "Creacion de registro Transacciones Internacionales del folio: " & idFTI.ToString() & "")
|
|
|
|
MsgBox("Se actualizaron los datos", vbInformation, "Aviso")
|
|
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End Function
|
|
|
|
Protected Sub BlockControls()
|
|
Dim ctl As New Control
|
|
|
|
cmdGen.Enabled = False
|
|
|
|
For Each tp As TabPage In TabControl.TabPages
|
|
For Each ctl In tp.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
Next
|
|
|
|
For Each ctl In GroupBox1.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox10.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox11.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox12.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox2.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox3.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox4.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox5.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox6.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox7.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox8.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox9.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Private Function ValidateDate() As String
|
|
Dim trimestre As String = String.Empty
|
|
Dim _Trimestre As String = String.Empty
|
|
Dim mes As Integer
|
|
Dim anio As Integer
|
|
trimestre = TextBox1.Text.Trim
|
|
|
|
If (trimestre.Length = 6) Then
|
|
mes = trimestre.Substring(5, 1)
|
|
Else
|
|
mes = trimestre.Substring(5, 2)
|
|
End If
|
|
|
|
anio = Convert.ToInt32(TextBox1.Text.Substring(0, 4))
|
|
|
|
If mes = 12 Then
|
|
anio += 1
|
|
mes = 1
|
|
End If
|
|
mes += 1
|
|
trimestre = anio & "-" & Format(mes, "00")
|
|
|
|
Return trimestre
|
|
|
|
End Function
|
|
|
|
Private Sub Label44_Click(sender As Object, e As EventArgs) Handles Label44.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub Label42_Click(sender As Object, e As EventArgs) Handles Label42.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub GroupBox7_Enter(sender As Object, e As EventArgs) Handles GroupBox7.Enter
|
|
|
|
End Sub
|
|
End Class |