800 lines
43 KiB
VB.net
800 lines
43 KiB
VB.net
Imports System.IO
|
|
Imports System.Xml.Serialization
|
|
Imports Minds_Cliente.fde
|
|
Imports System.Collections.Generic
|
|
Imports System.Text
|
|
Imports System.Xml
|
|
|
|
Public Class frmDolaresEfectivo
|
|
|
|
'Dim dsGeneral As DataSet
|
|
Dim notAuditoria As ClassMyUtils
|
|
Dim dsGral As DataSet
|
|
|
|
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 Dolares en Efectivo")
|
|
notAuditoria = Nothing
|
|
|
|
'----------------------
|
|
Dim dictionary As New Dictionary(Of String, Integer)
|
|
dictionary.Add("Enero - Marzo", 1)
|
|
dictionary.Add("Abril - Junio", 2)
|
|
dictionary.Add("Julio - Septiembre", 3)
|
|
dictionary.Add("Octubre - Diciembre", 4)
|
|
|
|
cboMes.DisplayMember = "Key"
|
|
cboMes.ValueMember = "Value"
|
|
|
|
cboMes.DataSource = New BindingSource(dictionary, Nothing)
|
|
cboMes.SelectedIndex = -1
|
|
|
|
Dim aYear As Integer = Year(Now)
|
|
|
|
For i As Integer = 0 To 6
|
|
cboYear.Items.Add(aYear + 3 - i)
|
|
Next
|
|
|
|
cboMes.SelectedIndex = 0
|
|
cboYear.SelectedIndex = 0
|
|
|
|
End Sub
|
|
|
|
Private Sub btnConsultar_Click_1(sender As Object, e As EventArgs) Handles btnConsultar.Click
|
|
FillGrid()
|
|
End Sub
|
|
|
|
Private Sub btnGenerarReporte_Click(sender As Object, e As EventArgs) Handles btnGenerarReporte.Click
|
|
|
|
'If dsGral Is Nothing Then
|
|
' MsgBox("No hay registros para generar el reporte.", MsgBoxStyle.Information, "Minds")
|
|
' Exit Sub
|
|
'Else
|
|
' If dsGral.Tables("Table") Is Nothing Then
|
|
' MsgBox("No hay registros para generar el reporte.", MsgBoxStyle.Information, "Minds")
|
|
' Exit Sub
|
|
' Else
|
|
' If dsGral.Tables("Table").Rows.Count = 0 Then
|
|
' MsgBox("No hay registros para generar el reporte.", MsgBoxStyle.Information, "Minds")
|
|
' Exit Sub
|
|
' End If
|
|
' End If
|
|
'End If
|
|
|
|
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 = "FDE_" & cboYear.Text & "_" & cboMes.Text & ".xml"
|
|
fileSave.Title = "Guardar Archivo"
|
|
File = fileSave.ShowDialog()
|
|
If File = 1 Then
|
|
AddData(fileSave.FileName)
|
|
MsgBox("El archivo dólares en efectivo 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 = "FDE_" & 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/fde"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">" & vbCrLf & _
|
|
"<trimestre_reportado>" & cboYear.Text & "-" & (cboMes.SelectedIndex + 1).ToString() & "</trimestre_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 dólares en efectivo 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 GridMaster_DoubleClick(sender As Object, e As EventArgs) Handles GridMaster.DoubleClick
|
|
|
|
'Dim detalle As New FrmDetalle(Me.GridMaster.Columns("IdFDE").Value)
|
|
|
|
''Valida Trimestre
|
|
'Dim Trimestre As Boolean = False
|
|
'Trimestre = ValidaTrimestre(GridMaster.Row())
|
|
'detalle.ValPeriodo = Trimestre
|
|
|
|
''Get Trimestre
|
|
'detalle.Trimestre = GridMaster.Columns(1).CellValue(GridMaster.Row)
|
|
|
|
'detalle.ShowDialog()
|
|
|
|
''Actualiza Grid
|
|
'FillGrid()
|
|
End Sub
|
|
|
|
Protected Function ValidarTrimestre(ByVal index As Integer) As Boolean
|
|
Dim strPeriodo As String = String.Empty
|
|
Dim strAnio As String = String.Empty
|
|
Dim strTrimestre As String = String.Empty
|
|
Dim mesActual As String = String.Empty
|
|
Dim trimestreActual As String = String.Empty
|
|
|
|
strPeriodo = GridMaster.Columns(1).CellValue(GridMaster.Row)
|
|
strAnio = strPeriodo.Substring(0, 4)
|
|
strTrimestre = strPeriodo.Substring(5, 1)
|
|
|
|
mesActual = Date.Now.Month
|
|
|
|
Select Case mesActual
|
|
Case 1
|
|
trimestreActual = 1
|
|
Case 2
|
|
trimestreActual = 1
|
|
Case 3
|
|
trimestreActual = 1
|
|
Case 4
|
|
trimestreActual = 2
|
|
Case 5
|
|
trimestreActual = 2
|
|
Case 6
|
|
trimestreActual = 2
|
|
Case 7
|
|
trimestreActual = 3
|
|
Case 8
|
|
trimestreActual = 3
|
|
Case 9
|
|
trimestreActual = 3
|
|
Case 10
|
|
trimestreActual = 4
|
|
Case 11
|
|
trimestreActual = 4
|
|
Case 12
|
|
trimestreActual = 4
|
|
End Select
|
|
|
|
If (strAnio = Date.Now.Year And strTrimestre = trimestreActual) Then
|
|
Return False
|
|
Else
|
|
Return True
|
|
End If
|
|
End Function
|
|
|
|
Protected Sub FillGrid()
|
|
Dim Classcom As New clsComplejo
|
|
Dim ClassCatalogos As New ClassCatalogos
|
|
Dim SQL As String = String.Empty
|
|
|
|
|
|
SQL = "sp_ConsultaFDE '" & cboYear.Text & "-" & cboMes.SelectedValue & "'"
|
|
'SQL = "sp_ConsultaFDE '" & cboYear.Text & "-" & cboMes.SelectedValue & "', " &
|
|
'IIf(cboTipoOperacion.SelectedIndex = 0, "NULL", cboTipoOperacion.SelectedValue)
|
|
|
|
dsGral = Classcom.fdtDataSet(SQL)
|
|
|
|
GridMaster.SetDataBinding(dsGral, "Table")
|
|
|
|
Me.GridMaster.Splits(0).DisplayColumns("IdFDE").Visible = False
|
|
|
|
'ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
|
|
|
|
lblRegistros.Text = "Total de Registros " & GridMaster.RowCount
|
|
|
|
End Sub
|
|
|
|
Protected Function ValidaTrimestre(ByVal index As Integer) As Boolean
|
|
Dim strPeriodo As String = String.Empty
|
|
Dim strAnio As String = String.Empty
|
|
Dim strTrimestre As String = String.Empty
|
|
Dim mesActual As String = String.Empty
|
|
Dim trimestreActual As Integer
|
|
|
|
strPeriodo = GridMaster.Columns(1).CellValue(GridMaster.Row)
|
|
strTrimestre = strPeriodo.Substring(5, 1)
|
|
|
|
mesActual = Date.Now.Month
|
|
|
|
Select Case mesActual
|
|
Case 1
|
|
trimestreActual = 4
|
|
Case 2
|
|
trimestreActual = 4
|
|
Case 3
|
|
trimestreActual = 4
|
|
Case 4
|
|
trimestreActual = 1
|
|
Case 5
|
|
trimestreActual = 1
|
|
Case 6
|
|
trimestreActual = 1
|
|
Case 7
|
|
trimestreActual = 2
|
|
Case 8
|
|
trimestreActual = 2
|
|
Case 9
|
|
trimestreActual = 2
|
|
Case 10
|
|
trimestreActual = 3
|
|
Case 11
|
|
trimestreActual = 3
|
|
Case 12
|
|
trimestreActual = 3
|
|
End Select
|
|
|
|
If (strTrimestre = trimestreActual) 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 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 trimestre As String
|
|
|
|
|
|
trimestre = cboYear.SelectedItem & "-" & cboMes.SelectedIndex + 1
|
|
Try
|
|
|
|
SQL = "sp_ConsultaFDE '" & trimestre & "', NULL"
|
|
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 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 consecutivo As String
|
|
Dim anio As String
|
|
Dim mes As String
|
|
Dim trimestreReportado As String
|
|
'------------------------------------------------
|
|
Dim nombreComisionista As String
|
|
Dim nombreusuario As String
|
|
Dim domicilioNacionalUnificadoU As String
|
|
Dim domicilioNacionalSeparadoU As String
|
|
Dim pais_extranjero As String
|
|
Dim domicilioExtranjeroUnificadoU As String
|
|
Dim domicilioExtranjeroSeparadoU As String
|
|
Dim clientePfNombre As String
|
|
Dim DomicilioClientePfUnificado As String
|
|
Dim DomicilioClientePfSeparado As String
|
|
Dim paisExtranjeroCliente As String
|
|
Dim direccionClienteExtranjeroUnificado As String
|
|
Dim direccionClienteExtranjeroSeparado As String
|
|
Dim ClienteRazonPm As String
|
|
Dim DomicilioClienteNaUnificadoPm As String
|
|
Dim DomicilioClienteNaSeparadoPm As String
|
|
Dim paisClienteExtranjeropm As String
|
|
Dim DomicilioClienteExtranjeroPmUnificado As String
|
|
Dim DomicilioClienteExtranjeroPmSeparado As String
|
|
Dim clavesucursal As String
|
|
Dim extension 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
|
|
myXmlTextWriter.WriteAttributeString("xmlns", "xsi", Nothing, "http://www.w3.org/2001/XMLSchema-instance")
|
|
myXmlTextWriter.WriteAttributeString("xmlns", "xsd", Nothing, "http://www.w3.org/2001/XMLSchema")
|
|
myXmlTextWriter.WriteAttributeString("xmlns", "http://www.uif.shcp.gob.mx/recepcion/fde")
|
|
'dsData = GetData()
|
|
dsData = dsGral
|
|
trimestreReportado = dsData.Tables(0).Rows(0).Item("trimestre_reportado")
|
|
myXmlTextWriter.WriteElementString("trimestre_reportado", trimestreReportado)
|
|
|
|
'If FolioPrevio.Trim <> "" Then
|
|
' FolioPrevio = dsData.Tables(0).Rows(0).Item("folio_previo")
|
|
'End If
|
|
|
|
myXmlTextWriter.WriteStartElement("entidad") 'abre entidad
|
|
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
|
|
myXmlTextWriter.WriteStartElement("operaciones") 'abre operaciones
|
|
|
|
For Each row As DataRow In dsData.Tables(0).Rows '------COMIENZA RECORRIDO
|
|
consecutivo = row("folio_consecutivo")
|
|
FolioPrevio = row("folio_previo")
|
|
myXmlTextWriter.WriteStartElement("operacion") 'abre operacion
|
|
nombreComisionista = row("nombre_comisionista")
|
|
nombreusuario = row("nombre_usuario")
|
|
domicilioNacionalUnificadoU = row("domicilio_usuario_nacional_unificado")
|
|
'domicilioNacionalSeparadoU = row("entidad_federativa_usuario_nacional_separado")
|
|
pais_extranjero = row("pais_usuario_extranjero")
|
|
domicilioExtranjeroUnificadoU = row("domicilio_usuario_extranjero_unificado")
|
|
'domicilioExtranjeroSeparadoU = row("estado_provincia_usuario_extranjero_separado")
|
|
clientePfNombre = row("nombre_pf_cliente")
|
|
DomicilioClientePfUnificado = row("domicilio_nacional_unificado_pf_cliente")
|
|
'DomicilioClientePfSeparado = row("entidad_federativa_nacional_separado_pf_cliente")
|
|
paisExtranjeroCliente = row("pais_extranjero_pf_cliente")
|
|
direccionClienteExtranjeroUnificado = row("domicilio_extranjero_unificado_pf_cliente")
|
|
'direccionClienteExtranjeroSeparado = row("estado_provincia_extranjero_separado_pf_cliente")
|
|
ClienteRazonPm = row("denominacion_razon_pm_cliente")
|
|
DomicilioClienteNaUnificadoPm = row("domicilio_nacional_unificado_pm_cliente")
|
|
'DomicilioClienteNaSeparadoPm = row("entidad_federativa_nacional_separado_pm_cliente")
|
|
paisClienteExtranjeropm = row("pais_extranjero_pm_cliente")
|
|
DomicilioClienteExtranjeroPmUnificado = row("domicilio_extranjero_unificado_pm_cliente")
|
|
'DomicilioClienteExtranjeroPmSeparado = row("estado_provincia_extranjero_separado_pm_cliente")
|
|
|
|
clavesucursal = row("clave_sucursal")
|
|
|
|
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_hora", row("fecha_hora"))
|
|
myXmlTextWriter.WriteElementString("tipo_operacion", row("tipo_operacion"))
|
|
myXmlTextWriter.WriteElementString("cuenta_contrato", row("cuenta_contrato"))
|
|
myXmlTextWriter.WriteElementString("monto_operacion", row("monto_operacion"))
|
|
myXmlTextWriter.WriteElementString("moneda", row("moneda"))
|
|
myXmlTextWriter.WriteElementString("instrumento_monetario", row("instrumento_monetario"))
|
|
myXmlTextWriter.WriteStartElement("liquidacion") 'abre liquidacion
|
|
|
|
If row("cuenta_contrato_liquidacion") <> "" Then
|
|
myXmlTextWriter.WriteElementString("cuenta_contrato_liquidacion", row("cuenta_contrato_liquidacion"))
|
|
End If
|
|
|
|
myXmlTextWriter.WriteElementString("monto_operacion_liquidacion", row("monto_operacion_liquidacion"))
|
|
myXmlTextWriter.WriteElementString("moneda_liquidacion", row("moneda_liquidacion"))
|
|
myXmlTextWriter.WriteElementString("instrumento_monetario_liquidacion", row("instrumento_monetario_liquidacion"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra liquidacion
|
|
|
|
myXmlTextWriter.WriteStartElement("sucursal_o_comisionista") 'abre sucursal_o_comisionista
|
|
If clavesucursal <> "" Then
|
|
myXmlTextWriter.WriteElementString("clave_sucursal", row("clave_sucursal"))
|
|
Else
|
|
myXmlTextWriter.WriteStartElement("comisionista") 'ABRE comisionista
|
|
If nombreComisionista <> "" Then
|
|
myXmlTextWriter.WriteElementString("nombre_comisionista", row("nombre_comisionista"))
|
|
myXmlTextWriter.WriteElementString("domicilio_comisionista", row("domicilio_comisionista"))
|
|
End If
|
|
myXmlTextWriter.WriteEndElement() 'cierra comisionista
|
|
End If
|
|
myXmlTextWriter.WriteEndElement() 'cierra sucursal_o_comisionista
|
|
myXmlTextWriter.WriteStartElement("persona_reportada") 'abre persona_reportada
|
|
If nombreusuario <> "" Then
|
|
myXmlTextWriter.WriteStartElement("usuario") 'abre usuario-------------
|
|
myXmlTextWriter.WriteElementString("nombre", row("nombre_usuario"))
|
|
myXmlTextWriter.WriteElementString("apellido_paterno", row("apellido_paterno_usuario"))
|
|
myXmlTextWriter.WriteElementString("apellido_materno", row("apellido_materno_usuario"))
|
|
|
|
If row("fecha_nacimiento_usuario").ToString <> "" Then
|
|
myXmlTextWriter.WriteElementString("fecha_nacimiento", row("fecha_nacimiento_usuario"))
|
|
End If
|
|
|
|
If row("curp_usuario").ToString <> "" Then
|
|
myXmlTextWriter.WriteElementString("curp", row("curp_usuario"))
|
|
End If
|
|
|
|
If row("rfc_usuario").ToString <> "" Then
|
|
myXmlTextWriter.WriteElementString("rfc", row("rfc_usuario"))
|
|
End If
|
|
|
|
If row("pais_nacimiento_usuario").ToString <> "" Then
|
|
myXmlTextWriter.WriteElementString("pais_nacimiento", row("pais_nacimiento_usuario"))
|
|
End If
|
|
|
|
myXmlTextWriter.WriteElementString("pais_nacionalidad", row("pais_nacionalidad_usuario"))
|
|
myXmlTextWriter.WriteStartElement("domicilio") 'abre domicilio
|
|
If domicilioNacionalUnificadoU <> "" Or domicilioNacionalSeparadoU <> "" Then
|
|
myXmlTextWriter.WriteStartElement("nacional") 'abre nacional-------------
|
|
myXmlTextWriter.WriteStartElement("tipo_domicilio") 'abre tipo_domicilio
|
|
If domicilioNacionalUnificadoU <> "" Then
|
|
myXmlTextWriter.WriteStartElement("unificado") 'abre unificado----------------------
|
|
myXmlTextWriter.WriteElementString("domicilio_unificado", row("domicilio_usuario_nacional_unificado"))
|
|
myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_usuario_nacional_unificado"))
|
|
myXmlTextWriter.WriteElementString("colonia", row("colonia_usuario_nacional_unificado"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra unificado---------------------------------
|
|
End If
|
|
|
|
'If domicilioNacionalSeparadoU <> "" Then
|
|
' myXmlTextWriter.WriteStartElement("separado") 'abre separado----------------------
|
|
' myXmlTextWriter.WriteElementString("entidad_federativa", row("entidad_federativa_usuario_nacional_separado"))
|
|
' myXmlTextWriter.WriteElementString("codigo_postal", row("codigo_postal_usuario_nacional_separado"))
|
|
' myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_usuario_nacional_separado"))
|
|
' myXmlTextWriter.WriteElementString("delegacion_municipio", row("delegacion_municipio_usuario_nacional_separado"))
|
|
' myXmlTextWriter.WriteElementString("colonia", row("colonia_usuario_nacional_separado"))
|
|
' myXmlTextWriter.WriteElementString("calle", row("calle_usuario_nacional_separado"))
|
|
' myXmlTextWriter.WriteElementString("numero_exterior", row("numero_exterior_usuario_nacional_separado"))
|
|
' myXmlTextWriter.WriteElementString("numero_interior", row("numero_interior_usuario_nacional_separado"))
|
|
' myXmlTextWriter.WriteEndElement() 'cierra separado--------------------------
|
|
'End If
|
|
|
|
myXmlTextWriter.WriteEndElement() 'cierra tipo_domicilio
|
|
myXmlTextWriter.WriteEndElement() 'cierra nacional-----------------------
|
|
End If
|
|
If pais_extranjero <> "" Then
|
|
myXmlTextWriter.WriteStartElement("extranjero") 'abre extranjero----------------------
|
|
myXmlTextWriter.WriteElementString("pais", row("pais_usuario_extranjero"))
|
|
'myXmlTextWriter.WriteEndElement() 'cierra extranjero
|
|
myXmlTextWriter.WriteStartElement("tipo_domicilio") 'abre tipo_domicilio extranjero
|
|
If domicilioExtranjeroUnificadoU <> "" Then
|
|
myXmlTextWriter.WriteStartElement("unificado") 'abre unificado ext----------------------
|
|
myXmlTextWriter.WriteElementString("domicilio_unificado", row("domicilio_usuario_extranjero_unificado"))
|
|
myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_usuario_extranjero_unificado"))
|
|
myXmlTextWriter.WriteElementString("colonia", row("colonia_usuario_extranjero_unificado"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra unificado ext---------------------------------
|
|
End If
|
|
'If domicilioExtranjeroSeparadoU <> "" Then
|
|
' myXmlTextWriter.WriteStartElement("separado") 'abre separado ext----------------------
|
|
' myXmlTextWriter.WriteElementString("estado_provincia", row("estado_provincia_usuario_extranjero_separado"))
|
|
' myXmlTextWriter.WriteElementString("codigo_postal", row("codigo_postal_usuario_extranjero_separado"))
|
|
' myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_usuario_extranjero_separado"))
|
|
' myXmlTextWriter.WriteElementString("colonia", row("colonia_usuario_extranjero_separado"))
|
|
' myXmlTextWriter.WriteElementString("calle", row("calle_usuario_extranjero_separado"))
|
|
' myXmlTextWriter.WriteElementString("numero_exterior", row("numero_exterior_usuario_extranjero_separado"))
|
|
' myXmlTextWriter.WriteElementString("numero_interior", row("numero_interior_usuario_extranjero_separado"))
|
|
' myXmlTextWriter.WriteEndElement() 'cierra separado extranjero-------------------------
|
|
|
|
'End If
|
|
myXmlTextWriter.WriteEndElement() 'cierra tipo_domicilio extranjero
|
|
myXmlTextWriter.WriteEndElement() 'cierra extranjero
|
|
End If
|
|
myXmlTextWriter.WriteEndElement() 'cierra domicilio
|
|
|
|
'If row("numero_telefono_usuario") <> "" Then
|
|
' myXmlTextWriter.WriteStartElement("telefono") 'abre telefono
|
|
|
|
' If row("clave_pais_telefono_usuario") <> "" Then
|
|
' myXmlTextWriter.WriteElementString("clave_pais", row("clave_pais_telefono_usuario"))
|
|
' End If
|
|
|
|
' myXmlTextWriter.WriteElementString("numero_telefono", row("numero_telefono_usuario"))
|
|
|
|
|
|
' If row("extension_telefono_usuario") <> "" Then
|
|
' myXmlTextWriter.WriteElementString("extension", row("extension_telefono_usuario"))
|
|
' End If
|
|
|
|
' myXmlTextWriter.WriteEndElement() 'cierra telefono
|
|
'End If
|
|
|
|
'If row("tipo_identificacion_usuario") <> "" Then
|
|
' myXmlTextWriter.WriteElementString("tipo_identificacion", row("tipo_identificacion_usuario"))
|
|
'End If
|
|
|
|
'If row("numero_identificacion_usuario") <> "" Then
|
|
' myXmlTextWriter.WriteElementString("numero_identificacion", row("numero_identificacion_usuario"))
|
|
'End If
|
|
|
|
'If row("correo_electronico_usuario") <> "" Then
|
|
' myXmlTextWriter.WriteElementString("correo_electronico", row("correo_electronico_usuario"))
|
|
'End If
|
|
|
|
'If row("fiel_usuario") <> "" Then
|
|
' myXmlTextWriter.WriteElementString("fiel", row("fiel_usuario"))
|
|
'End If
|
|
|
|
myXmlTextWriter.WriteEndElement() 'cierra usuario------------------------
|
|
End If
|
|
|
|
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
If clientePfNombre <> "" Or ClienteRazonPm <> "" Then
|
|
myXmlTextWriter.WriteStartElement("cliente") 'abre cliente
|
|
myXmlTextWriter.WriteStartElement("tipo_persona") 'abre tipo_persona
|
|
If clientePfNombre <> "" Then
|
|
myXmlTextWriter.WriteStartElement("persona_fisica") 'abre persona_fisica
|
|
myXmlTextWriter.WriteElementString("nombre", row("nombre_pf_cliente"))
|
|
myXmlTextWriter.WriteElementString("apellido_paterno", row("apellido_paterno_pf_cliente"))
|
|
myXmlTextWriter.WriteElementString("apellido_materno", row("apellido_materno_pf_cliente"))
|
|
|
|
If row("fecha_nacimiento_pf_cliente").ToString <> "" Then
|
|
myXmlTextWriter.WriteElementString("fecha_nacimiento", row("fecha_nacimiento_pf_cliente"))
|
|
End If
|
|
|
|
If row("curp_pf_cliente").ToString <> "" Then
|
|
myXmlTextWriter.WriteElementString("curp", row("curp_pf_cliente"))
|
|
End If
|
|
|
|
If row("rfc_pf_cliente").ToString <> "" Then
|
|
myXmlTextWriter.WriteElementString("rfc", row("rfc_pf_cliente"))
|
|
End If
|
|
|
|
If row("pais_nacimiento_pf_cliente").ToString <> "" Then
|
|
myXmlTextWriter.WriteElementString("pais_nacimiento", row("pais_nacimiento_pf_cliente"))
|
|
End If
|
|
|
|
|
|
myXmlTextWriter.WriteElementString("pais_nacionalidad", row("pais_nacionalidad_pf_cliente"))
|
|
myXmlTextWriter.WriteElementString("actividad_economica", row("actividad_economica_pf_cliente"))
|
|
myXmlTextWriter.WriteStartElement("domicilio") 'abre domicilio
|
|
If DomicilioClientePfUnificado <> "" Or DomicilioClientePfSeparado <> "" Then
|
|
myXmlTextWriter.WriteStartElement("nacional") 'abre nacional
|
|
myXmlTextWriter.WriteStartElement("tipo_domicilio") 'abre tipo_domicilio
|
|
If DomicilioClientePfUnificado <> "" Then
|
|
myXmlTextWriter.WriteStartElement("unificado") 'abre unificado----------------------------
|
|
myXmlTextWriter.WriteElementString("domicilio_unificado", row("domicilio_nacional_unificado_pf_cliente"))
|
|
myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_nacional_unificado_pf_cliente"))
|
|
myXmlTextWriter.WriteElementString("colonia", row("colonia_nacional_unificado_pf_cliente"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra unificado---------------------------------------
|
|
End If
|
|
If DomicilioClientePfSeparado <> "" Then
|
|
myXmlTextWriter.WriteStartElement("separado") 'abre separado----------------------------
|
|
myXmlTextWriter.WriteElementString("entidad_federativa", row("entidad_federativa_nacional_separado_pf_cliente"))
|
|
myXmlTextWriter.WriteElementString("codigo_postal", row("codigo_postal_nacional_separado_pf_cliente"))
|
|
myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_nacional_separado_pf_cliente"))
|
|
myXmlTextWriter.WriteElementString("delegacion_municipio", row("delegacion_municipio_nacional_separado_pf_cliente"))
|
|
myXmlTextWriter.WriteElementString("colonia", row("colonia_nacional_separado_pf_cliente"))
|
|
myXmlTextWriter.WriteElementString("calle", row("calle_nacional_separado_pf_cliente"))
|
|
myXmlTextWriter.WriteElementString("numero_exterior", row("numero_exterior_nacional_separado_pf_cliente"))
|
|
myXmlTextWriter.WriteElementString("numero_interior", row("numero_interior_nacional_separado_pf_cliente"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra separado---------------------------------------
|
|
End If
|
|
myXmlTextWriter.WriteEndElement() 'cierra tipo_domicilio
|
|
myXmlTextWriter.WriteEndElement() 'cierra nacional
|
|
End If
|
|
If paisExtranjeroCliente <> "" Then
|
|
myXmlTextWriter.WriteStartElement("extranjero") 'abre extranjero----------------------------
|
|
myXmlTextWriter.WriteElementString("pais", row("pais_extranjero_pf_cliente"))
|
|
myXmlTextWriter.WriteStartElement("tipo_domicilio") 'abre tipo_domicilio
|
|
If direccionClienteExtranjeroUnificado <> "" Then
|
|
myXmlTextWriter.WriteStartElement("unificado") 'abre unificado----------------------------
|
|
myXmlTextWriter.WriteElementString("domicilio_unificado", row("domicilio_extranjero_unificado_pf_cliente"))
|
|
myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_extranjero_unificado_pf_cliente"))
|
|
myXmlTextWriter.WriteElementString("colonia", row("colonia_extranjero_unificado_pf_cliente"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra unificado---------------------------------------
|
|
End If
|
|
'If direccionClienteExtranjeroSeparado <> "" Then
|
|
' myXmlTextWriter.WriteStartElement("separado") 'abre separado----------------------------
|
|
' myXmlTextWriter.WriteElementString("entidad_federativa", row("estado_provincia_extranjero_separado_pf_cliente"))
|
|
' myXmlTextWriter.WriteElementString("codigo_postal", row("codigo_postal_extranjero_separado_pf_cliente"))
|
|
' myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_extranjero_separado_pf_cliente"))
|
|
' myXmlTextWriter.WriteElementString("delegacion_municipio", row("delegacion_municipio_extranjero_separado_pf_cliente")) '+++++++++++++++++++++++++++++++++++++++++++++++
|
|
' myXmlTextWriter.WriteElementString("colonia", row("colonia_extranjero_separado_pf_cliente"))
|
|
' myXmlTextWriter.WriteElementString("calle", row("calle_extranjero_separado_pf_cliente"))
|
|
' myXmlTextWriter.WriteElementString("numero_exterior", row("numero_exterior_extranjero_separado_pf_cliente"))
|
|
' myXmlTextWriter.WriteElementString("numero_interior", row("numero_interior_extranjero_separado_pf_cliente"))
|
|
' myXmlTextWriter.WriteEndElement() 'cierra separado---------------------------------------
|
|
'End If
|
|
myXmlTextWriter.WriteEndElement() 'cierra tipo_domicilio
|
|
myXmlTextWriter.WriteEndElement() 'cierra extranjero
|
|
End If
|
|
|
|
myXmlTextWriter.WriteEndElement() 'cierra domicilio
|
|
|
|
'If row("numero_telefono_pf_cliente") <> "" Then
|
|
' myXmlTextWriter.WriteStartElement("telefono") 'abre telefono
|
|
|
|
' If row("clave_pais_telefono_pf_cliente") <> "" Then
|
|
' myXmlTextWriter.WriteElementString("clave_pais", row("clave_pais_telefono_pf_cliente"))
|
|
' End If
|
|
|
|
' myXmlTextWriter.WriteElementString("numero_telefono", row("numero_telefono_pf_cliente"))
|
|
|
|
|
|
' If row("extension_telefono_pf_cliente") <> "" Then
|
|
' myXmlTextWriter.WriteElementString("extension", row("extension_telefono_pf_cliente"))
|
|
' End If
|
|
|
|
' myXmlTextWriter.WriteEndElement() 'cierra telefono
|
|
|
|
'End If
|
|
|
|
'If row("correo_electronico_pf_cliente") <> "" Then
|
|
' myXmlTextWriter.WriteElementString("correo_electronico", row("correo_electronico_pf_cliente"))
|
|
'End If
|
|
|
|
'If row("fiel_pf_cliente") <> "" Then
|
|
' myXmlTextWriter.WriteElementString("fiel", row("fiel_pf_cliente"))
|
|
'End If
|
|
|
|
myXmlTextWriter.WriteEndElement() 'cierra persona_fisica
|
|
End If
|
|
'+++++++++++++++++++++++++++++++Persona Moral++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
If ClienteRazonPm <> "" Then
|
|
myXmlTextWriter.WriteStartElement("persona_moral") 'abre persona_moral
|
|
myXmlTextWriter.WriteElementString("denominacion_razon", row("denominacion_razon_pm_cliente"))
|
|
|
|
If row("fecha_constitucion_pm_cliente") <> "" Then
|
|
myXmlTextWriter.WriteElementString("fecha_constitucion", row("fecha_constitucion_pm_cliente"))
|
|
End If
|
|
|
|
If row("rfc_pm_cliente") <> "" Then
|
|
myXmlTextWriter.WriteElementString("rfc", row("rfc_pm_cliente"))
|
|
End If
|
|
|
|
myXmlTextWriter.WriteElementString("pais_nacionalidad", row("pais_nacionalidad_pm_cliente"))
|
|
myXmlTextWriter.WriteElementString("giro_mercantil", row("giro_mercantil_pm_cliente"))
|
|
myXmlTextWriter.WriteStartElement("domicilio") 'abre domicilio
|
|
If DomicilioClienteNaUnificadoPm <> "" Or DomicilioClienteNaSeparadoPm <> "" Then
|
|
myXmlTextWriter.WriteStartElement("nacional") 'abre nacional
|
|
myXmlTextWriter.WriteStartElement("tipo_domicilio") 'abre tipo_domicilio
|
|
If DomicilioClienteNaUnificadoPm <> "" Then
|
|
myXmlTextWriter.WriteStartElement("unificado") 'abre unificado
|
|
'varificar si van a ir los datos
|
|
myXmlTextWriter.WriteElementString("domicilio_unificado", row("domicilio_nacional_unificado_pm_cliente"))
|
|
myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_nacional_unificado_pm_cliente"))
|
|
myXmlTextWriter.WriteElementString("colonia", row("colonia_nacional_unificado_pm_cliente"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra unificado
|
|
End If
|
|
If DomicilioClienteNaSeparadoPm <> "" Then
|
|
myXmlTextWriter.WriteStartElement("separado") 'abre separado
|
|
'verificar datos
|
|
myXmlTextWriter.WriteElementString("estado_provincia", row("entidad_federativa_nacional_separado_pm_cliente"))
|
|
myXmlTextWriter.WriteElementString("codigo_postal", row("codigo_postal_nacional_separado_pm_cliente"))
|
|
myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_nacional_separado_pm_cliente"))
|
|
'myXmlTextWriter.WriteElementString("delegacion_municipio", dsData.Tables(0).Rows(0).Item("delegacion_municipio_nacional_separado_pm_cliente")) '+++++++++++++++++++++++++++++++++++++++++++++++
|
|
myXmlTextWriter.WriteElementString("colonia", row("colonia_nacional_separado_pm_cliente"))
|
|
myXmlTextWriter.WriteElementString("calle", row("calle_nacional_separado_pm_cliente"))
|
|
myXmlTextWriter.WriteElementString("numero_exterior", row("numero_exterior_nacional_separado_pm_cliente"))
|
|
myXmlTextWriter.WriteElementString("numero_interior", row("numero_interior_nacional_separado_pm_cliente"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra separado
|
|
End If
|
|
myXmlTextWriter.WriteEndElement() 'cierra tipo_domicilio
|
|
myXmlTextWriter.WriteEndElement() 'cierra nacional
|
|
End If
|
|
If paisClienteExtranjeropm <> "" Then
|
|
myXmlTextWriter.WriteStartElement("extranjero") 'abre extranjero
|
|
myXmlTextWriter.WriteElementString("pais", row("pais_extranjero_pm_cliente"))
|
|
myXmlTextWriter.WriteStartElement("tipo_domicilio") 'abre tipo_domicilio
|
|
If DomicilioClienteExtranjeroPmUnificado <> "" Then
|
|
myXmlTextWriter.WriteStartElement("unificado") 'abre unificado
|
|
'verificar datos
|
|
myXmlTextWriter.WriteElementString("domicilio_unificado", row("domicilio_extranjero_unificado_pm_cliente"))
|
|
myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_extranjero_unificado_pm_cliente"))
|
|
myXmlTextWriter.WriteElementString("colonia", row("colonia_extranjero_unificado_pm_cliente"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra unificado
|
|
End If
|
|
'If DomicilioClienteExtranjeroPmSeparado <> "" Then
|
|
' myXmlTextWriter.WriteStartElement("separado") 'abre separado
|
|
' 'verificar datos
|
|
' myXmlTextWriter.WriteElementString("estado_provincia", row("estado_provincia_extranjero_separado_pm_cliente"))
|
|
' myXmlTextWriter.WriteElementString("codigo_postal", row("codigo_postal_extranjero_separado_pm_cliente"))
|
|
' myXmlTextWriter.WriteElementString("ciudad_poblacion", row("ciudad_poblacion_extranjero_separado_pm_cliente"))
|
|
' 'myXmlTextWriter.WriteElementString("colonia", dsData.Tables(0).Rows(0).Item("delegacion_municipio_nacional_separado_pm_cliente")) '+++++++++++++++++++++++++++++++++++++++++++++++
|
|
' myXmlTextWriter.WriteElementString("colonia", row("colonia_extranjero_separado_pm_cliente"))
|
|
' myXmlTextWriter.WriteElementString("calle", row("calle_extranjero_separado_pm_cliente"))
|
|
' myXmlTextWriter.WriteElementString("numero_exterior", row("numero_exterior_extranjero_separado_pm_cliente"))
|
|
' myXmlTextWriter.WriteElementString("numero_interior", row("numero_interior_extranjero_separado_pm_cliente"))
|
|
' myXmlTextWriter.WriteEndElement() 'cierra separado
|
|
'End If
|
|
myXmlTextWriter.WriteEndElement() 'cierra tipo_domicilio
|
|
myXmlTextWriter.WriteEndElement() 'cierra extranjero
|
|
End If
|
|
myXmlTextWriter.WriteEndElement() 'cierra domicilio
|
|
|
|
|
|
'If row("numero_telefono_pm_cliente") <> "" Then
|
|
' myXmlTextWriter.WriteStartElement("telefono") 'abre telefono
|
|
|
|
' If row("clave_pais_telefono_pm_cliente") <> "" Then
|
|
' myXmlTextWriter.WriteElementString("clave_pais", row("clave_pais_telefono_pm_cliente"))
|
|
' End If
|
|
|
|
' myXmlTextWriter.WriteElementString("numero_telefono", row("numero_telefono_pm_cliente"))
|
|
|
|
|
|
' If row("extension_telefono_pm_cliente") <> "" Then
|
|
' myXmlTextWriter.WriteElementString("extension", row("extension_telefono_pm_cliente"))
|
|
' End If
|
|
|
|
' myXmlTextWriter.WriteEndElement() 'cierra telefono
|
|
|
|
'End If
|
|
|
|
'If row("correo_electronico_pm_cliente") <> "" Then
|
|
' myXmlTextWriter.WriteElementString("correo_electronico", row("correo_electronico_pm_cliente"))
|
|
'End If
|
|
|
|
'If row("fiel_pm_cliente") <> "" Then
|
|
' myXmlTextWriter.WriteElementString("fiel", row("fiel_pm_cliente"))
|
|
'End If
|
|
|
|
myXmlTextWriter.WriteElementString("apoderado_legal", row("apoderado_legal_pm_cliente"))
|
|
myXmlTextWriter.WriteEndElement() 'cierra persona_moral
|
|
End If
|
|
|
|
myXmlTextWriter.WriteEndElement() 'cierra tipo_persona
|
|
myXmlTextWriter.WriteEndElement() 'cierra cliente
|
|
End If
|
|
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
myXmlTextWriter.WriteEndElement() 'cierra persona_reportada
|
|
myXmlTextWriter.WriteEndElement() 'cierra operacion
|
|
Next
|
|
myXmlTextWriter.WriteEndElement() 'cierra operaciones
|
|
|
|
myXmlTextWriter.WriteEndElement() 'cierra reporte
|
|
|
|
myXmlTextWriter.Flush()
|
|
myXmlTextWriter.Close()
|
|
|
|
End Sub
|
|
|
|
Private Sub btnModificatorio_Click(sender As System.Object, e As System.EventArgs) Handles btnModificatorio.Click
|
|
|
|
If GridMaster.SelectedRows.Count > 0 Then
|
|
Dim detalle As New FrmDetalle(Me.GridMaster.Columns("IdFDE").Value)
|
|
|
|
'Valida Trimestre
|
|
'Dim Trimestre As Boolean = False
|
|
'Trimestre = ValidaTrimestre(GridMaster.Row())
|
|
'detalle.ValPeriodo = Trimestre
|
|
|
|
'Get Trimestre
|
|
'detalle.Trimestre = GridMaster.Columns(1).CellValue(GridMaster.Row)
|
|
|
|
detalle.ShowDialog()
|
|
|
|
'Actualiza Grid
|
|
FillGrid()
|
|
Else
|
|
MessageBox.Show("Debe seleccionar un elemento de la lista.", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|
End If
|
|
|
|
End Sub
|
|
End Class |