client/frmDolaresEfectivo.vb

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