754 lines
36 KiB
VB.net
754 lines
36 KiB
VB.net
Imports System.IO
|
|
Imports System.Text
|
|
Imports System.Xml
|
|
Imports System.Xml.Serialization
|
|
Imports System.IO.File
|
|
Imports System.Text.RegularExpressions
|
|
|
|
Public Class frmTInternacional
|
|
|
|
Dim notAuditoria As ClassMyUtils
|
|
Dim dsGral As DataSet
|
|
|
|
Private Sub c1GridDatos_DoubleClick(sender As Object, e As System.EventArgs)
|
|
|
|
'If Me.cgDatosTransInter.RowCount > 0 Then
|
|
|
|
' Dim objTransfe As New transferenciaInternacional(cgDatosTransInter.Columns("IDTRANSFERENCIA").Value,
|
|
' cgDatosTransInter.Columns("FECHA").Value,
|
|
' cgDatosTransInter.Columns("CAMPO1").Value,
|
|
' cgDatosTransInter.Columns("CAMPO2").Value,
|
|
' cgDatosTransInter.Columns("CAMPO3").Value)
|
|
|
|
|
|
' Dim frmActualizarDatos As New frmModificarTI
|
|
' frmActualizarDatos.Text = "Modificar Datos de Transferencia Internacional"
|
|
' frmActualizarDatos.objTransferenciaInt = objTransfe
|
|
' frmActualizarDatos.txtC1.Text = objTransfe.campo1
|
|
' frmActualizarDatos.txtC2.Text = objTransfe.campo2
|
|
' frmActualizarDatos.txtC3.Text = objTransfe.campo3
|
|
|
|
' frmActualizarDatos.ShowDialog()
|
|
|
|
|
|
'End If
|
|
|
|
End Sub
|
|
|
|
Private Sub frmTInternacional_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
|
|
notAuditoria = New ClassMyUtils
|
|
notAuditoria.RT_Auditoria(clsVaribles.varUsuario, 125, 28, "Entrada Reporte Transferencia Internacional")
|
|
notAuditoria = Nothing
|
|
|
|
cboMes.Items.Add("Enero")
|
|
cboMes.Items.Add("Febrero")
|
|
cboMes.Items.Add("Marzo")
|
|
cboMes.Items.Add("Abril")
|
|
cboMes.Items.Add("Mayo")
|
|
cboMes.Items.Add("Junio")
|
|
cboMes.Items.Add("Julio")
|
|
cboMes.Items.Add("Agosto")
|
|
cboMes.Items.Add("Septiembre")
|
|
cboMes.Items.Add("Octubre")
|
|
cboMes.Items.Add("Noviembre")
|
|
cboMes.Items.Add("Diciembre")
|
|
|
|
Dim aYear As Integer = Year(Now)
|
|
|
|
For i As Integer = 0 To 6
|
|
cboYear.Items.Add(aYear + 3 - i)
|
|
Next
|
|
|
|
'Inicializa los comboBox en posicion 0
|
|
cboMes.SelectedIndex = 0
|
|
cboYear.SelectedIndex = 0
|
|
|
|
End Sub
|
|
|
|
Private Function llenarGrid() As Boolean
|
|
llenarGrid = False
|
|
Try
|
|
Dim ClassCatalogos As New ClassCatalogos
|
|
Dim mes As String = cboMes.SelectedIndex + 1 ' IIf(cboMes.SelectedIndex <> -1, Format(cboMes.SelectedIndex + 1, "00"), "NULL")
|
|
Dim year As String = IIf(cboYear.SelectedIndex <> -1, cboYear.Text, "NULL")
|
|
|
|
'mes = "0" & mes
|
|
'mes = Strings.Right(mes, 2)
|
|
|
|
Dim Classcom As New clsComplejo
|
|
Dim SQL As String = String.Empty
|
|
|
|
SQL = "sp_ConsultaFTI '" & cboYear.Text & "-" & IIf(mes < 10, "0" & mes.ToString(), mes.ToString()) & "'"
|
|
'SQL = "sp_ConsultaFDE '" & cboYear.Text & "-" & cboMes.SelectedValue & "', " &
|
|
'IIf(cboTipoOperacion.SelectedIndex = 0, "NULL", cboTipoOperacion.SelectedValue)
|
|
|
|
dsGral = Classcom.fdtDataSet(Sql)
|
|
|
|
gridFTI.SetDataBinding(dsGral, "Table")
|
|
|
|
Me.gridFTI.Splits(0).DisplayColumns("IdFTI").Visible = False
|
|
|
|
'ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
|
|
|
|
lblRegistros.Text = "Total de Registros " & gridFTI.RowCount
|
|
|
|
|
|
'gridFTI.AllowUpdate = False
|
|
'ClassCatalogos.LlenaGrid("spS_FTI '" & year & "-" & mes & "'", Me.gridFTI)
|
|
'ClassCatalogos.LlenaGrid("sp_ConsultaFTI '" & year & "-" & mes & "'", Me.gridFTI)
|
|
|
|
'gridFTI.Splits(0).DisplayColumns(0).AutoSize()
|
|
'gridFTI.Splits(0).DisplayColumns(1).AutoSize()
|
|
'GridMaster.Splits(0).DisplayColumns(2).AutoSize()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
llenarGrid = True
|
|
End Function
|
|
|
|
Private Sub btnConsultar_Click(sender As System.Object, e As System.EventArgs) Handles btnConsultar.Click
|
|
llenarGrid()
|
|
End Sub
|
|
|
|
Private Sub btnGenerarReporte_Click(sender As Object, e As EventArgs) Handles btnGenerarReporte.Click
|
|
|
|
'Dim cls As New clsComplejo
|
|
'Dim FileName As String = String.Empty
|
|
'Dim path As String = String.Empty
|
|
'Dim mes As Integer
|
|
'Dim ds As New DataSet
|
|
|
|
'mes = cboMes.SelectedIndex + 1
|
|
'FileName = "\FTI_" & cboYear.Text & "_" & cboMes.Text & ".xml"
|
|
|
|
'Cursor = Cursors.WaitCursor
|
|
|
|
''Obtiene la ruta
|
|
'path = GetPath(FileName)
|
|
|
|
'Try
|
|
' 'Obtiene los datos que se van a escribir en el archivo xml
|
|
' ds = cls.fdtDataSet("[spGeneraXMLFTI] " & mes & ", " & cboYear.SelectedItem & "")
|
|
|
|
' If Not File.Exists(path) Then
|
|
' ' Create a file to write to.
|
|
' Using sw As StreamWriter = File.CreateText(path)
|
|
' sw.WriteLine(ds.Tables(0).Rows(0).Item(0).ToString())
|
|
' End Using
|
|
' End If
|
|
|
|
' ' Open the file to read from.
|
|
' Using sr As StreamReader = File.OpenText(path)
|
|
' Do While sr.Peek() >= 0
|
|
' Console.WriteLine(sr.ReadLine())
|
|
' Loop
|
|
' End Using
|
|
|
|
' MsgBox("Generado correctamente", MsgBoxStyle.Information, "Aviso")
|
|
'Catch ex As Exception
|
|
' MsgBox("Ocurrio un error al generar el reporte: " & ex.Message & "", MsgBoxStyle.Information, "Aviso")
|
|
'End Try
|
|
'Cursor = Cursors.Default
|
|
|
|
Dim SINREGISTROS As Boolean = False
|
|
|
|
If dsGral Is Nothing Then
|
|
SINREGISTROS = True
|
|
Else
|
|
If dsGral.Tables(0).Rows.Count = 0 Then
|
|
SINREGISTROS = True
|
|
End If
|
|
End If
|
|
|
|
If SINREGISTROS = False Then
|
|
Dim fileSave As New SaveFileDialog
|
|
Dim File As String = Nothing
|
|
Dim Dia As String
|
|
Dim Anio As String
|
|
|
|
'"\FTI_" & cboYear.Text & "_" & cboMes.Text & ".xml"
|
|
fileSave.Filter = "Archivos XML | *.XML"
|
|
fileSave.FileName = "FTI_" & cboYear.Text & "_" & cboMes.Text & ".xml"
|
|
fileSave.Title = "Guardar Archivo"
|
|
File = fileSave.ShowDialog()
|
|
If File = 1 Then
|
|
AddData(fileSave.FileName)
|
|
MsgBox("El archivo de transferencias internacionales se ha generado correctamente", MsgBoxStyle.OkOnly, "Mensaje")
|
|
End If
|
|
Else
|
|
If MsgBox("No existen registros, ¿Está seguro de generar un reporte en ceros?", MsgBoxStyle.OkCancel, "Mensaje") = MsgBoxResult.Ok Then
|
|
Dim fileSave As New SaveFileDialog
|
|
Dim File As String = Nothing
|
|
Dim Dia As String
|
|
Dim Anio As String
|
|
|
|
'"\FTI_" & cboYear.Text & "_" & cboMes.Text & ".xml"
|
|
fileSave.Filter = "Archivos XML | *.XML"
|
|
fileSave.FileName = "FTI_" & cboYear.Text & "_" & cboMes.Text & ".xml"
|
|
fileSave.Title = "Guardar Archivo"
|
|
File = fileSave.ShowDialog()
|
|
If File = 1 Then
|
|
|
|
Dim StrMFile As System.IO.FileStream
|
|
Dim StrMRead As System.IO.StreamWriter
|
|
|
|
StrMFile = New System.IO.FileStream(fileSave.FileName, IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
|
|
StrMRead = New System.IO.StreamWriter(StrMFile)
|
|
|
|
Dim strCadenaIN As String = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf &
|
|
"<reporte xmlns=""http://www.uif.shcp.gob.mx/recepcion/fti"" xsi:schemaLocation=""http://www.uif.shcp.gob.mx/recepcion/fti fti.xsd"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">" & vbCrLf & _
|
|
"<mes_reportado>" & cboYear.Text & "-" & (cboMes.SelectedIndex + 1).ToString() & "</mes_reportado>" & vbCrLf & _
|
|
"<entidad>" & vbCrLf & _
|
|
"<clave_organo_regulador>01-002</clave_organo_regulador>" & vbCrLf & _
|
|
"<clave_entidad>40-060</clave_entidad>" & vbCrLf & _
|
|
"</entidad>" & vbCrLf & _
|
|
"<operaciones/>" & vbCrLf & _
|
|
"</reporte>"
|
|
|
|
StrMRead.WriteLine(strCadenaIN)
|
|
|
|
StrMRead.Close()
|
|
|
|
MsgBox("El archivo transferencias internacionales se ha generado correctamente", MsgBoxStyle.OkOnly, "Mensaje")
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub btnSalir_Click(sender As System.Object, e As System.EventArgs) Handles btnSalir.Click
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub gridFTI_DoubleClick(sender As System.Object, e As System.EventArgs) Handles gridFTI.DoubleClick
|
|
'If gridFTI.RowCount > 0 Then
|
|
' abrirDetalle()
|
|
'End If
|
|
End Sub
|
|
|
|
Private Function abrirDetalle() As Boolean
|
|
Dim detalleFTI As frmDetalleFTI = New frmDetalleFTI
|
|
detalleFTI.idFTI = gridFTI.Columns(0).CellValue(gridFTI.Row)
|
|
|
|
'Valida mes
|
|
detalleFTI.ValidaMes = ValidaMes()
|
|
|
|
'abre formulario detalle
|
|
detalleFTI.ShowDialog()
|
|
|
|
'actualiza grid
|
|
llenarGrid()
|
|
|
|
abrirDetalle = False
|
|
End Function
|
|
|
|
Protected Function ValidaMes() As Boolean
|
|
Dim strPeriodo As String = String.Empty
|
|
Dim strAnio As String = String.Empty
|
|
Dim mes As String = String.Empty
|
|
Dim mesActual As String = String.Empty
|
|
|
|
'Get Periodo
|
|
strPeriodo = gridFTI.Columns(1).CellValue(gridFTI.Row())
|
|
strAnio = strPeriodo.Substring(0, 4)
|
|
mesActual = Date.Now.Month
|
|
|
|
If (strPeriodo.Length = 6) Then
|
|
mes = strPeriodo.Substring(5, 1)
|
|
Else
|
|
mes = strPeriodo.Substring(5, 2)
|
|
End If
|
|
|
|
If mesActual = 1 Then
|
|
mesActual = 12
|
|
Else
|
|
mesActual = mesActual - 1
|
|
End If
|
|
|
|
|
|
If (Int(mes) = mesActual) Then
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
End Function
|
|
|
|
Private Function GetPath(ByVal FileName As String) As String
|
|
Dim cls1 As New clsComplejo
|
|
Dim path As String
|
|
Dim ds2 As New DataSet
|
|
|
|
ds2 = cls1.fdtDataSet("select top 1 rutarelevantes from paramrep")
|
|
path = ds2.Tables(0).Rows(0).Item(0).ToString() & FileName
|
|
|
|
ds2.Clear()
|
|
ds2.Dispose()
|
|
|
|
Return path
|
|
End Function
|
|
|
|
Private Sub AddData(NombreArchivo As String)
|
|
Dim dsData As New DataSet
|
|
Dim dsPersonas As New DataSet
|
|
Dim dsPersonasE As New DataSet
|
|
Dim NomArchivoXml As String
|
|
Dim claveSujeto As String
|
|
Dim apoderado As String
|
|
Dim tipoPersona As String
|
|
Dim recorrido As Integer
|
|
Dim domicilioNacionalUnificado As String
|
|
Dim domicilioNacionalSeparado As String
|
|
Dim domicilioExtranjeroUnificado As String
|
|
Dim domicilioExtranjeroSeparado As String
|
|
Dim nombre_corresponsal_envio As String
|
|
Dim nombre_corresponsal_recepcion As String
|
|
Dim nombre_corresponsal_vostro As String
|
|
Dim nombre_pf As String
|
|
Dim razon_social_pm As String
|
|
Dim pais_extranjero As String
|
|
Dim consecutivo As String
|
|
Dim anio As String
|
|
Dim mes As String
|
|
Dim mesReportado As String
|
|
Dim destinatarioVostro As String
|
|
Dim nombreEntidadDestino As String
|
|
Dim operacionOrigen As String
|
|
Dim operacionDestino As String
|
|
Dim mensaje As String
|
|
Dim folioPrevio As String
|
|
NomArchivoXml = NombreArchivo
|
|
Dim myXmlTextWriter As New XmlTextWriter(NomArchivoXml, System.Text.Encoding.UTF8)
|
|
myXmlTextWriter.Formatting = System.Xml.Formatting.Indented
|
|
myXmlTextWriter.WriteStartDocument()
|
|
myXmlTextWriter.WriteStartElement("reporte") 'reporte abre 1
|
|
myXmlTextWriter.WriteAttributeString("xmlns", "xsi", Nothing, "http://www.w3.org/2001/XMLSchema-instance")
|
|
myXmlTextWriter.WriteAttributeString("xsi", "schemaLocation", Nothing, "http://www.uif.shcp.gob.mx/recepcion/fti fti.xsd")
|
|
myXmlTextWriter.WriteAttributeString("xmlns", "http://www.uif.shcp.gob.mx/recepcion/fti")
|
|
'dsData = GetData()
|
|
dsData = dsGral
|
|
mesReportado = dsData.Tables(0).Rows(0).Item("mes_reportado")
|
|
If Len(mesReportado) = 6 Then
|
|
anio = Mid(mesReportado, 1, 4)
|
|
mes = "0" & Mid(mesReportado, 6, 6)
|
|
mesReportado = anio & "-" & mes
|
|
End If
|
|
myXmlTextWriter.WriteElementString("mes_reportado", mesReportado)
|
|
|
|
myXmlTextWriter.WriteStartElement("entidad") 'abre entidad 3
|
|
myXmlTextWriter.WriteElementString("clave_organo_regulador", dsData.Tables(0).Rows(0).Item("clave_organo_regulador"))
|
|
myXmlTextWriter.WriteElementString("clave_entidad", dsData.Tables(0).Rows(0).Item("clave_entidad"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra entidad 3
|
|
Dim BICABA As String
|
|
myXmlTextWriter.WriteStartElement("operaciones") 'abre operaciones
|
|
For Each row As DataRow In dsData.Tables(0).Rows '------COMIENZA RECORRIDO
|
|
|
|
folioPrevio = row("folio_Previo")
|
|
consecutivo = row("folio_consecutivo") 'Now.Year & "-" & "MT103" & "-" & row("folio_consecutivo")
|
|
'If folioPrevio.Trim = "" Then
|
|
' folioPrevio = "0000-MT000-0"
|
|
'Else
|
|
' folioPrevio = Now.Year & "-" & "MT103" & "-" & folioPrevio
|
|
'End If
|
|
|
|
myXmlTextWriter.WriteStartElement("operacion") 'abre operacion
|
|
myXmlTextWriter.WriteElementString("folio_consecutivo", consecutivo)
|
|
|
|
If folioPrevio <> "" Then
|
|
myXmlTextWriter.WriteStartElement("modificatorio") 'abre modificatorio
|
|
myXmlTextWriter.WriteElementString("folio_previo", folioPrevio)
|
|
myXmlTextWriter.WriteEndElement() 'cierra modificatorio
|
|
End If
|
|
|
|
myXmlTextWriter.WriteElementString("fecha", row("fecha"))
|
|
myXmlTextWriter.WriteElementString("referencia", row("referencia"))
|
|
|
|
myXmlTextWriter.WriteStartElement("transferencia") 'abre transferencia
|
|
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
'+++++++++++++++++++++condicionando el tipo de transferencia envio+++++++++++++++++++++++++++++++++++++++++++++++++
|
|
'nombre_corresponsal_envio = row("nombre_corresponsal_envio")
|
|
|
|
|
|
If row("bic_aba_envio") <> "" Then
|
|
myXmlTextWriter.WriteStartElement("transferencia_envio") 'abre tranferencia_envio
|
|
|
|
'-------------myXmlTextWriter.WriteStartElement("entidades_participantes_envio") 'abre entidades_participantes_envio
|
|
|
|
'-------------myXmlTextWriter.WriteStartElement("nombre_participante_envio") 'abre nombre_participante_envio
|
|
'myXmlTextWriter.WriteElementString("nombre_corresponsal", row("nombre_corresponsal_envio"))
|
|
'nombreEntidadDestino = row("nombre_entidad_destino_envio")
|
|
|
|
'If nombreEntidadDestino.Trim = "" Then
|
|
' nombreEntidadDestino = " "
|
|
'-------------myXmlTextWriter.WriteElementString("nombre_entidad_destino", row("nombre_entidad_destino_envio"))
|
|
'Else
|
|
' myXmlTextWriter.WriteElementString("nombre_entidad_destino", nombreEntidadDestino)
|
|
' nombreEntidadDestino = ""
|
|
'End If
|
|
'-------------myXmlTextWriter.WriteEndElement() 'cierra nombre_participante_envio
|
|
'-------------myXmlTextWriter.WriteEndElement() 'cierra entidades_participantes_envio
|
|
myXmlTextWriter.WriteElementString("bic_aba", row("bic_aba_envio"))
|
|
myXmlTextWriter.WriteElementString("datos_destinatario", row("datos_destinatario_envio"))
|
|
|
|
operacionOrigen = row("operacion_origen_envio")
|
|
|
|
If operacionOrigen = "" Then
|
|
'operacionOrigen = " "
|
|
'myXmlTextWriter.WriteElementString("operacion_origen", operacionOrigen)
|
|
Else
|
|
myXmlTextWriter.WriteElementString("operacion_origen", operacionOrigen)
|
|
operacionOrigen = ""
|
|
End If
|
|
|
|
operacionDestino = row("operacion_destino_envio")
|
|
|
|
If operacionDestino = "" Then
|
|
'operacionDestino = " "
|
|
'myXmlTextWriter.WriteElementString("operacion_destino", operacionDestino)
|
|
Else
|
|
myXmlTextWriter.WriteElementString("operacion_destino", operacionDestino)
|
|
operacionDestino = ""
|
|
End If
|
|
|
|
myXmlTextWriter.WriteStartElement("instrumentos_origen") 'abre instrumentos_origen
|
|
myXmlTextWriter.WriteStartElement("instrumento_origen") 'abre instrumentos_origen
|
|
myXmlTextWriter.WriteElementString("instrumento_monetario_origen", row("instrumento_monetario_origen_envio"))
|
|
myXmlTextWriter.WriteElementString("moneda_origen", row("moneda_origen_envio"))
|
|
myXmlTextWriter.WriteElementString("monto_instrumento_origen", row("monto_instrumento_origen_envio"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra instrumento_origen
|
|
myXmlTextWriter.WriteEndElement() 'cierra instrumentos_origen
|
|
mensaje = row("mensaje_envio")
|
|
'myXmlTextWriter.WriteStartElement("memo_envio") 'abre memo_envio
|
|
'If mensaje = "" Then
|
|
' mensaje = " "
|
|
' myXmlTextWriter.WriteElementString("mensaje", mensaje)
|
|
' mensaje = ""
|
|
'Else
|
|
' myXmlTextWriter.WriteElementString("mensaje", mensaje)
|
|
' mensaje = ""
|
|
'End If
|
|
'myXmlTextWriter.WriteEndElement() 'cierra memo_envio
|
|
|
|
myXmlTextWriter.WriteEndElement() 'cierra transferencia_envio
|
|
End If
|
|
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
'+++++++++++++++++++++condicionando el tipo de transferencia envio+++++++++++++++++++++++++++++++++++++++++++++++++
|
|
'Aqui comienza tag transferencia recepcion
|
|
'nombre_corresponsal_recepcion = row("nombre_corresponsal_recepcion")
|
|
|
|
|
|
If row("bic_aba_recepcion") <> "" Then
|
|
myXmlTextWriter.WriteStartElement("transferencia_recepcion") 'abre transferencia_recepcion
|
|
'--myXmlTextWriter.WriteStartElement("entidades_participantes_recepcion") 'abre entidades_participantes_recepcion
|
|
'--myXmlTextWriter.WriteStartElement("nombre_participante_recepcion") 'abre nombre_participante_recepcion
|
|
'myXmlTextWriter.WriteElementString("nombre_corresponsal", row("nombre_corresponsal_recepcion"))
|
|
'nombreEntidadDestino = row("nombre_entidad_origen_recepcion")
|
|
|
|
'--myXmlTextWriter.WriteElementString("nombre_entidad_origen", row("nombre_entidad_origen_recepcion"))
|
|
|
|
'--myXmlTextWriter.WriteEndElement() 'cierra nombre_participante_recepcion
|
|
'--myXmlTextWriter.WriteEndElement() 'cierra entidades_participantes_recepcion
|
|
myXmlTextWriter.WriteElementString("bic_aba", row("bic_aba_recepcion"))
|
|
'myXmlTextWriter.WriteElementString("datos_ordenante", CleanInput(row("datos_ordenante_recepcion")))
|
|
myXmlTextWriter.WriteElementString("datos_ordenante", row("datos_ordenante_recepcion"))
|
|
|
|
operacionOrigen = row("operacion_origen_recepcion")
|
|
If operacionOrigen.Trim = "" Then
|
|
'operacionOrigen = " "
|
|
'myXmlTextWriter.WriteElementString("operacion_origen", operacionOrigen)
|
|
Else
|
|
myXmlTextWriter.WriteElementString("operacion_origen", operacionOrigen)
|
|
operacionOrigen = ""
|
|
End If
|
|
|
|
operacionDestino = row("operacion_destino_recepcion")
|
|
If operacionDestino.Trim = "" Then
|
|
'operacionDestino = " "
|
|
'myXmlTextWriter.WriteElementString("operacion_destino", operacionDestino)
|
|
Else
|
|
myXmlTextWriter.WriteElementString("operacion_destino", operacionDestino)
|
|
operacionDestino = ""
|
|
End If
|
|
|
|
myXmlTextWriter.WriteStartElement("instrumentos_destino") 'abre instrumentos_destino
|
|
myXmlTextWriter.WriteStartElement("instrumento_destino") 'abre instrumento_destino
|
|
myXmlTextWriter.WriteElementString("instrumento_monetario_destino", row("instrumento_monetario_destino_recepcion"))
|
|
myXmlTextWriter.WriteElementString("moneda_destino", row("moneda_destino_recepcion"))
|
|
myXmlTextWriter.WriteElementString("monto_instrumento_destino", row("monto_instrumento_destino_recepcion"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra instrumento_destino
|
|
myXmlTextWriter.WriteEndElement() 'cierra instrumentos_destino
|
|
|
|
'myXmlTextWriter.WriteStartElement("memo_recepcion") 'abre memo_recepcion
|
|
'mensaje = row("mensaje_recepcion")
|
|
'If mensaje = "" Then
|
|
' mensaje = " "
|
|
' myXmlTextWriter.WriteElementString("mensaje", mensaje)
|
|
'Else
|
|
' myXmlTextWriter.WriteElementString("mensaje", mensaje)
|
|
' mensaje = ""
|
|
'End If
|
|
'myXmlTextWriter.WriteEndElement() 'cierra memo_recepcion
|
|
|
|
myXmlTextWriter.WriteEndElement() 'cierra transferencia_recepcion
|
|
End If
|
|
'aqui finaliza tag transferencia recepcion
|
|
|
|
'Aqui comienza vostro
|
|
'nombre_corresponsal_vostro = row("nombre_corresponsal_vostro")
|
|
|
|
|
|
If row("bic_aba_vostro") <> "" Then
|
|
myXmlTextWriter.WriteStartElement("vostro") 'abre vostro
|
|
|
|
myXmlTextWriter.WriteStartElement("nombres_participantes_vostro") 'abre nombres_participantes_vostro
|
|
myXmlTextWriter.WriteStartElement("nombre_participante_vostro") 'abre nombre_participante_vostro
|
|
myXmlTextWriter.WriteElementString("nombre_corresponsal", row("nombre_corresponsal_vostro"))
|
|
'nombreEntidadDestino = row("nombre_entidad_origen_vostro")
|
|
|
|
'If nombreEntidadDestino.Trim = "" Then
|
|
'nombreEntidadDestino = " "
|
|
'myXmlTextWriter.WriteElementString("nombre_entidad_origen", nombreEntidadDestino)
|
|
'Else
|
|
myXmlTextWriter.WriteElementString("nombre_entidad_origen", row("nombre_entidad_origen_vostro"))
|
|
nombreEntidadDestino = ""
|
|
'End If
|
|
myXmlTextWriter.WriteEndElement() 'cierra nombre_participante_vostro
|
|
myXmlTextWriter.WriteEndElement() 'cierra nombres_participantes_vostro
|
|
|
|
myXmlTextWriter.WriteElementString("bic_aba", row("bic_aba_vostro"))
|
|
'myXmlTextWriter.WriteElementString("datos_ordenante", CleanInput(row("datos_ordenante_vostro")))
|
|
myXmlTextWriter.WriteElementString("datos_ordenante", row("datos_ordenante_vostro"))
|
|
|
|
|
|
operacionOrigen = row("operacion_origen_vostro")
|
|
If operacionOrigen = "" Then
|
|
'operacionOrigen = " "
|
|
'myXmlTextWriter.WriteElementString("operacion_origen", operacionOrigen)
|
|
Else
|
|
myXmlTextWriter.WriteElementString("operacion_origen", operacionOrigen)
|
|
operacionOrigen = ""
|
|
End If
|
|
|
|
nombreEntidadDestino = row("nombre_entidad_destino_vostro")
|
|
If nombreEntidadDestino = "" Then
|
|
'nombreEntidadDestino = " "
|
|
'myXmlTextWriter.WriteElementString("nombre_entidad_destino", nombreEntidadDestino)
|
|
Else
|
|
myXmlTextWriter.WriteElementString("nombre_entidad_destino", nombreEntidadDestino)
|
|
nombreEntidadDestino = ""
|
|
End If
|
|
destinatarioVostro = row("datos_destinatario_vostro")
|
|
If destinatarioVostro = "" Then
|
|
'destinatarioVostro = " "
|
|
'myXmlTextWriter.WriteElementString("datos_destinatario", destinatarioVostro)
|
|
Else
|
|
myXmlTextWriter.WriteElementString("datos_destinatario", destinatarioVostro)
|
|
destinatarioVostro = ""
|
|
End If
|
|
operacionDestino = row("operacion_destino_vostro")
|
|
If operacionDestino = "" Then
|
|
'operacionDestino = " "
|
|
'myXmlTextWriter.WriteElementString("operacion_destino", operacionDestino)
|
|
Else
|
|
myXmlTextWriter.WriteElementString("operacion_destino", operacionDestino)
|
|
operacionDestino = ""
|
|
End If
|
|
|
|
'myXmlTextWriter.WriteStartElement("memo_vostro") 'abre memo_vostro
|
|
'mensaje = row("mensaje_vostro")
|
|
'If mensaje = "" Then
|
|
' mensaje = " "
|
|
' myXmlTextWriter.WriteElementString("mensaje", mensaje)
|
|
'Else
|
|
' myXmlTextWriter.WriteElementString("mensaje", mensaje)
|
|
' mensaje = ""
|
|
'End If
|
|
'myXmlTextWriter.WriteEndElement() 'cierra memo_vostro
|
|
myXmlTextWriter.WriteEndElement() 'cierra vostro
|
|
End If
|
|
'Aqui finaliza vostro
|
|
myXmlTextWriter.WriteEndElement() 'cierra transferencia
|
|
|
|
|
|
'Aqui empieza Persona
|
|
myXmlTextWriter.WriteStartElement("persona") 'abre persona
|
|
myXmlTextWriter.WriteStartElement("tipo_persona") 'abre tipo_persona
|
|
nombre_pf = row("nombre_pf")
|
|
If nombre_pf <> "" Then
|
|
myXmlTextWriter.WriteStartElement("persona_fisica") 'abre persona_fisica
|
|
myXmlTextWriter.WriteElementString("nombre", row("nombre_pf"))
|
|
myXmlTextWriter.WriteElementString("apellido_paterno", row("apellido_paterno_pf"))
|
|
myXmlTextWriter.WriteElementString("apellido_materno", row("apellido_materno_pf"))
|
|
myXmlTextWriter.WriteElementString("fecha_nacimiento", row("fecha_nacimiento_pf"))
|
|
|
|
If row("curp_pf") <> "" Then
|
|
myXmlTextWriter.WriteElementString("curp", row("curp_pf"))
|
|
End If
|
|
|
|
myXmlTextWriter.WriteElementString("rfc", row("rfc_pf"))
|
|
|
|
If row("pais_nacimiento_pf") <> "" Then
|
|
myXmlTextWriter.WriteElementString("pais_nacimiento", row("pais_nacimiento_pf"))
|
|
End If
|
|
|
|
|
|
myXmlTextWriter.WriteElementString("pais_nacionalidad", row("pais_nacionalidad_pf"))
|
|
myXmlTextWriter.WriteElementString("actividad_economica", row("actividad_economica_pf"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra persona_fisica
|
|
End If
|
|
|
|
'razon_social_pm = CleanInput(row("razon_social_pm"))
|
|
razon_social_pm = row("razon_social_pm")
|
|
If razon_social_pm <> "" Then
|
|
myXmlTextWriter.WriteStartElement("persona_moral") 'abre persona_moral
|
|
myXmlTextWriter.WriteElementString("razon_social", razon_social_pm)
|
|
myXmlTextWriter.WriteElementString("fecha_constitucion", row("fecha_constitucion_pm"))
|
|
myXmlTextWriter.WriteElementString("rfc", row("rfc_pm"))
|
|
myXmlTextWriter.WriteElementString("pais_nacionalidad", row("pais_nacionalidad_pm"))
|
|
myXmlTextWriter.WriteElementString("giro_mercantil", row("giro_mercantil_pm"))
|
|
myXmlTextWriter.WriteElementString("apoderado_legal", row("apoderado_legal_pm"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra persona_moral
|
|
End If
|
|
myXmlTextWriter.WriteEndElement() 'cierra tipo_persona
|
|
myXmlTextWriter.WriteStartElement("domicilio") 'abre domicilio
|
|
domicilioNacionalUnificado = row("domicilio_nacional_unificado")
|
|
'domicilioNacionalSeparado = row("entidad_federativa_nacional_separado")
|
|
If Trim(domicilioNacionalUnificado) <> "" Then 'Or Trim(domicilioNacionalSeparado) <> "" Then
|
|
myXmlTextWriter.WriteStartElement("nacional") 'abre nacional
|
|
|
|
myXmlTextWriter.WriteStartElement("tipo_domicilio") 'abre tipo_domicilio
|
|
If Trim(domicilioNacionalUnificado) <> "" Then
|
|
myXmlTextWriter.WriteStartElement("unificado") 'abre unificado
|
|
myXmlTextWriter.WriteElementString("domicilio_unificado", row("domicilio_nacional_unificado"))
|
|
myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_nacional_unificado"))
|
|
myXmlTextWriter.WriteElementString("codigo_postal", row("codigo_postal_nacional_unificado"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra unificado
|
|
End If
|
|
'If Trim(domicilioNacionalSeparado) <> "" Then
|
|
' myXmlTextWriter.WriteStartElement("separado") 'abre separado
|
|
' myXmlTextWriter.WriteElementString("entidad_federativa", row("entidad_federativa_nacional_separado"))
|
|
' myXmlTextWriter.WriteElementString("codigo_postal", row("codigo_postal_nacional_separado"))
|
|
' myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_nacional_separado"))
|
|
' myXmlTextWriter.WriteElementString("delegacion_municipio", row("delegacion_municipio_nacional_separado"))
|
|
' myXmlTextWriter.WriteElementString("colonia", row("colonia_nacional_separado"))
|
|
' myXmlTextWriter.WriteElementString("calle", row("calle_nacional_separado"))
|
|
' myXmlTextWriter.WriteElementString("numero_exterior", row("numero_exterior_nacional_separado"))
|
|
' myXmlTextWriter.WriteElementString("numero_interior", row("numero_interior_nacional_separado"))
|
|
' myXmlTextWriter.WriteEndElement() 'cierra separado
|
|
'End If
|
|
myXmlTextWriter.WriteEndElement() 'cierra tipo_domicilio
|
|
|
|
myXmlTextWriter.WriteEndElement() 'cierra nacional
|
|
End If
|
|
domicilioExtranjeroUnificado = row("domicilio_extranjero_unificado")
|
|
'domicilioExtranjeroSeparado = row("estado_provincia_extranjero_separado")
|
|
pais_extranjero = row("pais_extranjero")
|
|
If pais_extranjero <> "" Then
|
|
myXmlTextWriter.WriteStartElement("extranjero") 'abre extranjero
|
|
myXmlTextWriter.WriteElementString("pais", row("pais_extranjero"))
|
|
|
|
myXmlTextWriter.WriteStartElement("tipo_domicilio") 'abre tipo_domicilio
|
|
If Trim(domicilioExtranjeroUnificado) <> "" Then
|
|
myXmlTextWriter.WriteStartElement("unificado") 'abre unificado
|
|
myXmlTextWriter.WriteElementString("domicilio_unificado", row("domicilio_extranjero_unificado"))
|
|
myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_extranjero_unificado"))
|
|
myXmlTextWriter.WriteElementString("codigo_postal", row("codigo_postal_extranjero_unificado"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra unificado
|
|
End If
|
|
'If Trim(domicilioExtranjeroSeparado) <> "" Then
|
|
' myXmlTextWriter.WriteStartElement("separado") 'abre separado
|
|
' myXmlTextWriter.WriteElementString("estado_provincia", row("estado_provincia_extranjero_separado"))
|
|
' myXmlTextWriter.WriteElementString("codigo_postal", row("codigo_postal_extranjero_separado"))
|
|
' myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_extranjero_separado"))
|
|
' myXmlTextWriter.WriteElementString("colonia", row("colonia_extranjero_separado"))
|
|
' myXmlTextWriter.WriteElementString("calle", row("calle_extranjero_separado"))
|
|
' myXmlTextWriter.WriteElementString("numero_exterior", row("numero_exterior_extranjero_separado"))
|
|
' myXmlTextWriter.WriteElementString("numero_interior", row("numero_interior_extranjero_separado"))
|
|
' myXmlTextWriter.WriteEndElement() 'cierra separado
|
|
'End If
|
|
myXmlTextWriter.WriteEndElement() 'cierra tipo_domicilio
|
|
|
|
myXmlTextWriter.WriteEndElement() 'cierra extranjero
|
|
End If
|
|
|
|
myXmlTextWriter.WriteEndElement() 'cierra domicilio
|
|
|
|
myXmlTextWriter.WriteStartElement("telefono") 'abre telefono
|
|
myXmlTextWriter.WriteElementString("numero_telefono", row("numero_telefono"))
|
|
'myXmlTextWriter.WriteElementString("clave_pais", row("clave_pais_telefono"))
|
|
'myXmlTextWriter.WriteElementString("extension", row("extension_telefono"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra telefono
|
|
'myXmlTextWriter.WriteElementString("correo_electronico", row("correo_electronico"))
|
|
'myXmlTextWriter.WriteElementString("fiel", row("fiel"))
|
|
|
|
myXmlTextWriter.WriteEndElement() 'cierra persona
|
|
|
|
'Termina Persona
|
|
myXmlTextWriter.WriteEndElement() 'cierra operacio
|
|
Next
|
|
myXmlTextWriter.WriteEndElement() 'cierra operaciones
|
|
myXmlTextWriter.WriteEndElement() 'reporte cierra
|
|
myXmlTextWriter.Flush()
|
|
myXmlTextWriter.Close()
|
|
|
|
End Sub
|
|
|
|
Function CleanInput(strIn As String) As String
|
|
' Replace invalid characters with empty strings.
|
|
Try
|
|
Return Regex.Replace(strIn, "[^\w\.@-]", "")
|
|
' If we timeout when replacing invalid characters,
|
|
' we should return String.Empty.
|
|
Catch e As Exception
|
|
Return String.Empty
|
|
End Try
|
|
End Function
|
|
Private Function GetData() As DataSet
|
|
Dim Classcom As New clsComplejo
|
|
Dim ClassCatalogos As New ClassCatalogos
|
|
Dim SQL As String
|
|
Dim FILA As DataRow
|
|
Dim Parametros As New ArrayList
|
|
Dim DsDatos As New DataSet
|
|
Dim mesReportado As String
|
|
|
|
|
|
mesReportado = cboYear.SelectedItem & "-" & cboMes.SelectedIndex + 1
|
|
Try
|
|
Dim anio As String
|
|
Dim mes As String
|
|
If Len(mesReportado) = 6 Then
|
|
anio = Mid(mesReportado, 1, 4)
|
|
mes = "0" & Mid(mesReportado, 6, 6)
|
|
mesReportado = anio & "-" & mes
|
|
End If
|
|
SQL = "sp_ConsultaFTI '" & mesReportado & "'"
|
|
DsDatos = Classcom.fdtDataSet(SQL)
|
|
Return DsDatos
|
|
Catch ex As Exception
|
|
MessageBox.Show("Error de conexión" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub btnModificatorio_Click(sender As System.Object, e As System.EventArgs) Handles btnModificatorio.Click
|
|
If gridFTI.SelectedRows.Count > 0 Then
|
|
Dim detalleFTI As frmDetalleFTI = New frmDetalleFTI
|
|
detalleFTI.idFTI = gridFTI.Columns(0).CellValue(gridFTI.Row)
|
|
|
|
'Valida mes
|
|
detalleFTI.ValidaMes = ValidaMes()
|
|
|
|
'abre formulario detalle
|
|
detalleFTI.ShowDialog()
|
|
|
|
'actualiza grid
|
|
llenarGrid()
|
|
|
|
'abrirDetalle = False
|
|
Else
|
|
MessageBox.Show("Debe seleccionar un elemento de la lista.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|
End If
|
|
|
|
End Sub
|
|
End Class |