jortega/client
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
b2cb4e716d
client/Reportes/frmDetalleFTI.vb

468 lines
19 KiB
VB.net
Raw Normal View History

Primera carga de Minds Cliente para el proyecto de blackrock
2019-07-05 13:43:55 -05:00
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
Reference in New Issue Copy Permalink