client/frmDolaresEfectivo.vb

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