1940 lines
102 KiB
VB.net
1940 lines
102 KiB
VB.net
Imports System.Configuration
|
|
Imports System.Xml
|
|
Imports System.IO
|
|
Imports System.Data
|
|
Imports System.Data.SqlClient
|
|
Public Class FrmRepInterExt
|
|
Private EtReporte As String = ""
|
|
|
|
Private EntEmisora As String
|
|
Private CveOrgRegul As String
|
|
Private CveEntidad As String
|
|
Private FolioConsecutivo As String
|
|
Private DatosSolicitudInfo As String
|
|
Private FechaRecepSolInfo As String
|
|
Private EntidadExtrSolic As String
|
|
Private CvePaisEntExt As String
|
|
|
|
Private CveIDPais As String
|
|
|
|
Private CargoFuncionEntExt As String
|
|
Private CargoFuncionReceptor As String
|
|
Private DatosClienteUsuario As String
|
|
Private DatosTipoPersona As String
|
|
Private IdTipoPersona As Integer
|
|
'Persona Fisica
|
|
Private DatosClienteUsuarioPF As String 'Etiqueta
|
|
Private NombrePF As String
|
|
Private ApePaternoPF As String
|
|
Private ApeMaternoPF As String
|
|
Private FechaNacPF As String
|
|
Private CurpPF As String
|
|
Private RFCPF As String
|
|
'Persona Moral
|
|
Private DatosClienteUsuarioPM As String 'Etiqueta
|
|
Private RazonSocialPM As String
|
|
Private FechaConstitucPF As String
|
|
Private RFCPM As String
|
|
'Fideicomiso
|
|
Private DatosClienteUsuarioFI As String 'Etiqueta
|
|
Private RazonSocialFI As String
|
|
Private NumRefFideFI As String
|
|
Private RFCFI As String
|
|
|
|
Private DatosOperaciones As String 'Etiqueta
|
|
Private DatosOperOrigSolic As String
|
|
Private CveTipOperxEntidad As String
|
|
Private CveInstruMoneOper As String
|
|
Private CtaContrOper As String
|
|
Private MontoOper As String
|
|
Private MontoOperFormat As Double
|
|
Private CveMonDivisa As String '3 Digitos
|
|
Private CveMoneda As Integer
|
|
Private FechaHoraOper As Double 'aaaammddhhmmss
|
|
Private CopiaInfoInterc As String
|
|
Private NomArchivoAnexoB As String
|
|
Private NumeroReferencia As String
|
|
|
|
'NombreEtiquetas ------------------------------------------------------------------
|
|
Private ET_EntEmisora As String
|
|
Private ET_CveOrgRegul As String
|
|
Private ET_CveEntidad As String
|
|
Private ET_FolioConsecutivo As String
|
|
Private ET_DatosSolicitudInfo As String
|
|
Private ET_FechaRecepSolInfo As String
|
|
Private ET_EntidadExtrSolic As String
|
|
Private ET_CvePaisEntExt As String
|
|
Private ET_CargoFuncionEntExt As String
|
|
Private ET_CargoFuncionReceptor As String
|
|
Private ET_DatosClienteUsuario As String
|
|
Private ET_DatosTipoPersona As String
|
|
'Persona Fisica
|
|
Private ET_DatosClienteUsuarioPF As String 'Etiqueta
|
|
Private ET_NombrePF As String
|
|
Private ET_ApePaternoPF As String
|
|
Private ET_ApeMaternoPF As String
|
|
Private ET_FechaNacPF As String
|
|
Private ET_CurpPF As String
|
|
Private ET_RFCPF As String
|
|
'Persona Moral
|
|
Private ET_DatosClienteUsuarioPM As String 'Etiqueta
|
|
Private ET_RazonSocialPM As String
|
|
Private ET_FechaConstitucPF As String
|
|
Private ET_RFCPM As String
|
|
'Fideicomiso
|
|
Private ET_DatosClienteUsuarioFI As String 'Etiqueta
|
|
Private ET_RazonSocialFI As String
|
|
Private ET_NumRefFideFI As String
|
|
Private ET_RFCFI As String
|
|
Private ET_DatosOperaciones As String 'Etiqueta
|
|
Private ET_DatosOperOrigSolic As String
|
|
Private ET_CveTipOperxEntidad As String
|
|
Private ET_CveInstruMoneOper As String
|
|
Private ET_CtaContrOper As String
|
|
Private ET_MontoOper As String
|
|
Private ET_CveMonDivisa As String '3 Digitos
|
|
Private ET_FechaHoraOper As String 'aaaammddhhmmss
|
|
Private ET_CopiaInfoInterc As String
|
|
Private ET_NomArchivoAnexoA As String
|
|
Private NomArchivoAnexoA As String
|
|
Private IdCte As Long
|
|
|
|
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub BTGenerar_Click(sender As System.Object, e As System.EventArgs) Handles BTGenerar.Click
|
|
Dim PosUltDiag As Integer
|
|
Dim CadPath As String = ""
|
|
'Dim Anio As String
|
|
Dim Consecutivo As Integer
|
|
Dim SigFolio As String
|
|
Dim DsPersonas As New DataSet
|
|
|
|
Dim fileSave As New SaveFileDialog
|
|
Dim File As String = Nothing
|
|
Dim NomArchXML As String
|
|
|
|
Dim Dia As String
|
|
Dim Mes As String
|
|
Dim Anio As String
|
|
|
|
Dim Nic As String = ""
|
|
|
|
If TxtFolio.Text.Trim = "" Then
|
|
CmdGuardar_Click(Nothing, Nothing)
|
|
End If
|
|
|
|
Dia = dtpFechaRecepcion.Value.Day
|
|
Mes = dtpFechaRecepcion.Value.Month
|
|
Anio = dtpFechaRecepcion.Value.Year
|
|
|
|
Dia = Dia.PadLeft(2, "0")
|
|
Mes = Mes.PadLeft(2, "0")
|
|
|
|
If Not IsNothing(DGVClientes.CurrentRow) Then
|
|
Nic = IIf(IsDBNull(DGVClientes.Rows(DGVClientes.CurrentRow.Index).Cells("NIC").Value()), "", DGVClientes.Rows(DGVClientes.CurrentRow.Index).Cells("NIC").Value())
|
|
End If
|
|
|
|
'NomArchXML = dtpFechaRecepcion.Value.Day & dtpFechaRecepcion.Value.Month & dtpFechaRecepcion.Value.Year & "-" & Mid(TxtFolio.Text, 6, 15) & ".fii"
|
|
NomArchXML = Dia & Mes & Anio & "-" & Nic.Trim & ".fii"
|
|
|
|
Anio = dtpFechaRecepcion.Value.Year
|
|
Consecutivo = SiguienteFolio(Anio)
|
|
SigFolio = Anio & "-" & Consecutivo.ToString
|
|
'TxtFolio.Text = SigFolio
|
|
|
|
If VALIDACIONES() = False Then
|
|
Exit Sub
|
|
End If
|
|
fileSave.FileName = NomArchXML
|
|
fileSave.Filter = "Archivos fii | *.fii"
|
|
File = fileSave.ShowDialog()
|
|
If File <> 1 Then
|
|
MsgBox("Proceso cancelado por el usuario", MsgBoxStyle.Exclamation)
|
|
Exit Sub
|
|
End If
|
|
PosUltDiag = fileSave.FileName.Trim.Length - InStr(StrReverse(fileSave.FileName.Trim), "\", CompareMethod.Text)
|
|
CadPath = Mid(fileSave.FileName.Trim, 1, PosUltDiag + 1)
|
|
TxtRutaRaiz.Text = CadPath
|
|
|
|
Dim FechaRecepSolInfoDate As Date
|
|
Dim FechaContitucionDate As Date
|
|
'Llenando las variables
|
|
EtReporte = "xmlns:xsi=http://www.w3.org/2001/XMLSchema-instance xmlns=http://www.uif.shcp.gob.mx/recepcion/fii"
|
|
EntEmisora = CboEntidad.SelectedValue
|
|
CveOrgRegul = CboOrgRegulador.SelectedValue
|
|
CveEntidad = CboEntidad.SelectedValue
|
|
FolioConsecutivo = TxtFolio.Text
|
|
'DatosSolicitudInfo = "6"
|
|
FechaRecepSolInfoDate = dtpFechaRecepcion.Value
|
|
FechaRecepSolInfo = FechaRecepSolInfoDate.ToString("yyyyMMdd")
|
|
EntidadExtrSolic = TxtNomEntExt.Text
|
|
CvePaisEntExt = CmbPais.SelectedValue
|
|
CveIDPais = RegresaDato("CAT_PAIS", "IDPAIS", "ISO", CvePaisEntExt)
|
|
|
|
CargoFuncionEntExt = TxtCargoFuncExtra.Text
|
|
CargoFuncionReceptor = TxtCargoFuncVaDirigido.Text
|
|
|
|
'PERSONA FISICA
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Then
|
|
'Persona Fisica
|
|
NombrePF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBRE").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBRE").Value())
|
|
ApePaternoPF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOPATERNO").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOPATERNO").Value())
|
|
ApeMaternoPF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOMATERNO").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOMATERNO").Value())
|
|
CurpPF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("CURP").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("CURP").Value())
|
|
RFCPF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value())
|
|
'NombrePF,ApePaternoPF,ApeMaternoPF,FechaNacPF,CurpPF,RFCPF}
|
|
End If
|
|
'PERSONA MORAL
|
|
If CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
If DGVOperaciones.Rows.Count > 0 Then
|
|
'RazonSocialPM = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBREORAZONS1").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBREORAZONS1").Value())
|
|
'FechaConstitucPF = dtpFechaConstit.Value.ToString("ddMMyyyy")
|
|
'RFCPM = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value())
|
|
RazonSocialPM = IIf(IsDBNull(DGVOperaciones.Rows(0).Cells("NOMBREORAZONS1").Value()), "", DGVOperaciones.Rows(0).Cells("NOMBREORAZONS1").Value())
|
|
RazonSocialPM = ReemplazaCaracNoValidos(RazonSocialPM, 1)
|
|
|
|
FechaConstitucPF = dtpFechaConstit.Value.ToString("yyyyMMdd")
|
|
RFCPM = IIf(IsDBNull(DGVOperaciones.Rows(0).Cells("RFC").Value()), "", DGVOperaciones.Rows(0).Cells("RFC").Value())
|
|
|
|
End If
|
|
End If
|
|
'FIDEICOMISO
|
|
If CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
'RazonSocialFI,NumRefFideFI,RFCFI
|
|
RazonSocialFI = IIf(IsDBNull(DGVOperaciones.Rows(0).Cells("NOMBREORAZONS1").Value()), "", DGVOperaciones.Rows(0).Cells("NOMBREORAZONS1").Value())
|
|
RazonSocialFI = ReemplazaCaracNoValidos(RazonSocialFI, 1)
|
|
NumRefFideFI = IIf(IsDBNull(DGVOperaciones.Rows(0).Cells("NUMEROREFERENCIA").Value()), "", DGVOperaciones.Rows(0).Cells("NUMEROREFERENCIA").Value())
|
|
RFCFI = IIf(IsDBNull(DGVOperaciones.Rows(0).Cells("RFC").Value()), "", DGVOperaciones.Rows(0).Cells("RFC").Value())
|
|
|
|
End If
|
|
|
|
'--------------------------nombre del Archivo--------------------------------
|
|
NomArchivoAnexoB = TxtFolio.Text.Trim & ".fii"
|
|
ET_EntEmisora = "entidad_emisora"
|
|
ET_CveOrgRegul = "clave_organismo_regulador"
|
|
ET_CveEntidad = "clave_entidad"
|
|
ET_FolioConsecutivo = "folio_consecutivo"
|
|
ET_DatosSolicitudInfo = "datos_solicitud"
|
|
ET_FechaRecepSolInfo = "fecha_recepcion_solicitud"
|
|
ET_EntidadExtrSolic = "nombre_entidad_solicitante"
|
|
ET_CvePaisEntExt = "pais_entidad_solicitante"
|
|
ET_CargoFuncionEntExt = "cargo_funcionario_solicitante"
|
|
ET_CargoFuncionReceptor = "cargo_funcionario_receptor"
|
|
ET_DatosClienteUsuario = "persona_entidad"
|
|
ET_DatosTipoPersona = "tipo_persona"
|
|
'Persona Fisica
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Then
|
|
ET_DatosClienteUsuarioPF = "persona_fisica" 'Etiqueta
|
|
ET_NombrePF = "nombre"
|
|
ET_ApePaternoPF = "apellido_paterno"
|
|
ET_ApeMaternoPF = "apellido_materno"
|
|
ET_FechaNacPF = "fecha_nacimiento"
|
|
ET_CurpPF = "curp"
|
|
ET_RFCPF = "rfc"
|
|
End If
|
|
'Persona Moral
|
|
If CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
ET_DatosClienteUsuarioPM = "persona_moral" 'Etiqueta
|
|
ET_RazonSocialPM = "denominacion_razon"
|
|
ET_FechaConstitucPF = "fecha_constitucion"
|
|
ET_RFCPM = "rfc"
|
|
End If
|
|
'Fideicomiso
|
|
If CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
ET_DatosClienteUsuarioFI = "fideicomiso" 'Etiqueta---------------------------
|
|
ET_RazonSocialFI = "denominacion_razon_fiduciario"
|
|
ET_NumRefFideFI = "numero_referencia"
|
|
ET_RFCFI = "rfc_fideicomiso"
|
|
End If
|
|
ET_DatosOperaciones = "operaciones" 'Etiqueta-------------------------------
|
|
ET_DatosOperOrigSolic = "operacion"
|
|
ET_CveTipOperxEntidad = "tipo_operacion"
|
|
ET_CveInstruMoneOper = "instrumento_monetario"
|
|
ET_CtaContrOper = "cuenta_contrato"
|
|
ET_MontoOper = "monto_operacion"
|
|
ET_CveMonDivisa = "moneda" '3 Digitos
|
|
ET_FechaHoraOper = "fecha_hora" 'aaaammddhhmmss
|
|
ET_CopiaInfoInterc = "copia_informacion"
|
|
ET_NomArchivoAnexoA = "nombre_archivo"
|
|
NomArchivoAnexoA = TxtArchivoAnexo.Text.Trim
|
|
|
|
AddData(CadPath, NomArchXML)
|
|
'AddData(NomArchivoAnexoB)
|
|
'MsgBox("Reporte Generado con exito", MsgBoxStyle.Information, "Mensaje")
|
|
End Sub
|
|
Private Sub AddData(RutaArchivo As String, NombreArchivo As String)
|
|
'Private Sub AddData(NombreArchivo As String)
|
|
Dim NomArchivoXml As String
|
|
Dim i As Integer = 0
|
|
NomArchivoXml = RutaArchivo & NombreArchivo
|
|
'NomArchivoXml = NombreArchivo
|
|
Dim myXmlTextWriter As New XmlTextWriter(NomArchivoXml, System.Text.Encoding.UTF8)
|
|
myXmlTextWriter.Formatting = System.Xml.Formatting.Indented
|
|
myXmlTextWriter.WriteStartDocument()
|
|
|
|
'Elemento Principal -------------------------------------------------------------------------
|
|
myXmlTextWriter.WriteStartElement("reporte")
|
|
|
|
myXmlTextWriter.WriteAttributeString("xmlns", "xsi", Nothing, "http://www.w3.org/2001/XMLSchema-instance")
|
|
myXmlTextWriter.WriteAttributeString("xmlns", "http://www.uif.shcp.gob.mx/recepcion/fii")
|
|
myXmlTextWriter.WriteAttributeString("xsi", "schemaLocation", Nothing, "http://www.uif.shcp.gob.mx/recepcion/fii fii.xsd")
|
|
|
|
'Entidad Emisora
|
|
myXmlTextWriter.WriteStartElement(ET_EntEmisora)
|
|
'myXmlTextWriter.WriteString(EntEmisora)
|
|
|
|
'Clave Reguladora
|
|
myXmlTextWriter.WriteStartElement(ET_CveOrgRegul)
|
|
myXmlTextWriter.WriteString(CveOrgRegul)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'Clave Entidad
|
|
myXmlTextWriter.WriteStartElement(ET_CveEntidad)
|
|
myXmlTextWriter.WriteString(CveEntidad)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'Folio Consecutivo
|
|
myXmlTextWriter.WriteStartElement(ET_FolioConsecutivo)
|
|
myXmlTextWriter.WriteString(FolioConsecutivo)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
myXmlTextWriter.WriteEndElement() 'CIERRA ENT EMISORA
|
|
|
|
'Datos Solicitud Informacion
|
|
myXmlTextWriter.WriteStartElement(ET_DatosSolicitudInfo)
|
|
myXmlTextWriter.WriteString(DatosSolicitudInfo)
|
|
|
|
|
|
'Fecha Recepcion Solicita Informacion
|
|
myXmlTextWriter.WriteStartElement(ET_FechaRecepSolInfo)
|
|
myXmlTextWriter.WriteString(FechaRecepSolInfo)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
|
|
'Entidad Extranjera Solicita
|
|
myXmlTextWriter.WriteStartElement(ET_EntidadExtrSolic)
|
|
myXmlTextWriter.WriteString(EntidadExtrSolic)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'Clave Pais Entidad Extranjera
|
|
myXmlTextWriter.WriteStartElement(ET_CvePaisEntExt)
|
|
myXmlTextWriter.WriteString(CveIDPais)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'Cargo Funcion Entidad Extranjera
|
|
myXmlTextWriter.WriteStartElement(ET_CargoFuncionEntExt)
|
|
myXmlTextWriter.WriteString(CargoFuncionEntExt)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'Cargo Funcion Receptor
|
|
myXmlTextWriter.WriteStartElement(ET_CargoFuncionReceptor)
|
|
myXmlTextWriter.WriteString(CargoFuncionReceptor)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
myXmlTextWriter.WriteEndElement() 'CIERRA DATOS SOLICITUD
|
|
|
|
|
|
'Datos Cliente Usuario (Persona_Entidad)
|
|
myXmlTextWriter.WriteStartElement(ET_DatosClienteUsuario)
|
|
myXmlTextWriter.WriteString(DatosClienteUsuario)
|
|
|
|
'Datos Tipo Persona
|
|
myXmlTextWriter.WriteStartElement(ET_DatosTipoPersona)
|
|
'myXmlTextWriter.WriteString(DatosTipoPersona)
|
|
|
|
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Then
|
|
'Datos Cliente o Usuario---------------------------------
|
|
myXmlTextWriter.WriteStartElement(ET_DatosClienteUsuarioPF)
|
|
myXmlTextWriter.WriteString(DatosClienteUsuarioPF)
|
|
|
|
'Nombre
|
|
myXmlTextWriter.WriteStartElement(ET_NombrePF)
|
|
myXmlTextWriter.WriteString(NombrePF)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'Apellido Paterno
|
|
myXmlTextWriter.WriteStartElement(ET_ApePaternoPF)
|
|
myXmlTextWriter.WriteString(ApePaternoPF)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'Apellido Materno
|
|
myXmlTextWriter.WriteStartElement(ET_ApeMaternoPF)
|
|
myXmlTextWriter.WriteString(ApeMaternoPF)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'Fecha Nacimiento PF
|
|
myXmlTextWriter.WriteStartElement(ET_FechaNacPF)
|
|
myXmlTextWriter.WriteString(FechaNacPF)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'ET_CurpPF
|
|
myXmlTextWriter.WriteStartElement(ET_CurpPF)
|
|
myXmlTextWriter.WriteString(CurpPF)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'ET_RFCPF
|
|
myXmlTextWriter.WriteStartElement(ET_RFCPF)
|
|
myXmlTextWriter.WriteString(RFCPF)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
myXmlTextWriter.WriteEndElement() 'CIERRA PERSONA FISICA
|
|
|
|
End If
|
|
|
|
|
|
'Datos Cliente Usuario Persona Moral-----------------------------
|
|
If CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
'PERSONA MORAL
|
|
myXmlTextWriter.WriteStartElement(ET_DatosClienteUsuarioPM)
|
|
|
|
'ET_RazonSocialPM
|
|
myXmlTextWriter.WriteStartElement(ET_RazonSocialPM)
|
|
myXmlTextWriter.WriteString(RazonSocialPM.Trim)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'Entidad Emisora ET_FechaConstitucPF
|
|
myXmlTextWriter.WriteStartElement(ET_FechaConstitucPF)
|
|
myXmlTextWriter.WriteString(FechaConstitucPF)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'ET_RFCPM
|
|
myXmlTextWriter.WriteStartElement(ET_RFCPM)
|
|
myXmlTextWriter.WriteString(RFCPM.Trim)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
myXmlTextWriter.WriteEndElement() 'CIERRA PERSONA MORAL
|
|
End If
|
|
|
|
'ET_DatosClienteUsuario FIDEICOMISO --------------------------------------
|
|
If CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
'FIDEICOMISO
|
|
myXmlTextWriter.WriteStartElement(ET_DatosClienteUsuarioFI)
|
|
myXmlTextWriter.WriteString(DatosClienteUsuarioFI)
|
|
|
|
'ET_RazonSocialFI
|
|
myXmlTextWriter.WriteStartElement(ET_RazonSocialFI)
|
|
myXmlTextWriter.WriteString(RazonSocialFI.Trim)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'ET_NumRefFideFI
|
|
myXmlTextWriter.WriteStartElement(ET_NumRefFideFI)
|
|
myXmlTextWriter.WriteString(NumRefFideFI)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'ET_RFCFI ES OPCIONAL NO PONER
|
|
'myXmlTextWriter.WriteStartElement(ET_RFCFI)
|
|
'myXmlTextWriter.WriteString(RFCFI)
|
|
'myXmlTextWriter.WriteEndElement()
|
|
|
|
myXmlTextWriter.WriteEndElement() 'CIERRA 'FIDEICOMISO
|
|
|
|
End If
|
|
|
|
myXmlTextWriter.WriteEndElement() 'CIERRA Tipo Persona
|
|
|
|
myXmlTextWriter.WriteEndElement() 'Cierra Persona_Entidad
|
|
|
|
'ET_DatosOperaciones ----------------------------------------------
|
|
Dim FechaHoraOperDate As Date
|
|
|
|
'ET_DatosOperaciones ETIQUETA OPERACIONES
|
|
myXmlTextWriter.WriteStartElement(ET_DatosOperaciones)
|
|
myXmlTextWriter.WriteString(DatosOperaciones)
|
|
|
|
For i = 0 To DGVDatosReporte.RowCount - 1
|
|
CveTipOperxEntidad = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("IDTIPOOPERACION").Value()), 0, DGVOperaciones.Rows(i).Cells("IDTIPOOPERACION").Value())
|
|
CveInstruMoneOper = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("IDINSTRUMENTOMONETARIO").Value()), 0, DGVOperaciones.Rows(i).Cells("IDINSTRUMENTOMONETARIO").Value())
|
|
CtaContrOper = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("CUENTA").Value()), 0, DGVOperaciones.Rows(i).Cells("CUENTA").Value())
|
|
MontoOperFormat = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("MONTO").Value()), 0, DGVOperaciones.Rows(i).Cells("MONTO").Value())
|
|
MontoOper = MontoOperFormat.ToString("0.00")
|
|
CveMoneda = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("IDMONEDA").Value()), 0, DGVOperaciones.Rows(i).Cells("IDMONEDA").Value())
|
|
CveMonDivisa = RegresaDato("CAT_MONEDA", "IDMONEDA", "NOMBRE", CveMoneda)
|
|
FechaHoraOperDate = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("FECHA").Value()), "01/01/1900", DGVOperaciones.Rows(i).Cells("FECHA").Value())
|
|
'aaaammddhhmmss
|
|
FechaHoraOper = FechaHoraOperDate.ToString("yyyyMMddhhmmss")
|
|
|
|
'ET_DatosOperOrigSolic ETIQUETA OPERACION
|
|
myXmlTextWriter.WriteStartElement(ET_DatosOperOrigSolic)
|
|
myXmlTextWriter.WriteString(DatosOperOrigSolic)
|
|
|
|
'ET_CveTipOperxEntidad
|
|
myXmlTextWriter.WriteStartElement(ET_CveTipOperxEntidad)
|
|
myXmlTextWriter.WriteString(CveTipOperxEntidad)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'ET_CveInstruMoneOper
|
|
myXmlTextWriter.WriteStartElement(ET_CveInstruMoneOper)
|
|
myXmlTextWriter.WriteString(CveInstruMoneOper)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'ET_CtaContrOper
|
|
myXmlTextWriter.WriteStartElement(ET_CtaContrOper)
|
|
myXmlTextWriter.WriteString(CtaContrOper)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'ET_MontoOper
|
|
myXmlTextWriter.WriteStartElement(ET_MontoOper)
|
|
myXmlTextWriter.WriteString(MontoOper)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'ET_CveMonDivisa
|
|
myXmlTextWriter.WriteStartElement(ET_CveMonDivisa)
|
|
myXmlTextWriter.WriteString(CveMonDivisa)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
'ET_FechaHoraOper
|
|
myXmlTextWriter.WriteStartElement(ET_FechaHoraOper)
|
|
myXmlTextWriter.WriteString(FechaHoraOper)
|
|
myXmlTextWriter.WriteEndElement()
|
|
|
|
myXmlTextWriter.WriteEndElement() 'CIERRA OPERACION
|
|
|
|
Next i
|
|
|
|
myXmlTextWriter.WriteEndElement() 'CIERRA OPERACIONES
|
|
|
|
'ET_CopiaInfoInterc
|
|
myXmlTextWriter.WriteStartElement(ET_CopiaInfoInterc)
|
|
myXmlTextWriter.WriteString(CopiaInfoInterc)
|
|
|
|
'ET_NomArchivoAnexoA
|
|
myXmlTextWriter.WriteStartElement(ET_NomArchivoAnexoA)
|
|
myXmlTextWriter.WriteString(NomArchivoAnexoA)
|
|
myXmlTextWriter.WriteEndElement() 'CIERRA NOMBRE ARCHIVO
|
|
|
|
myXmlTextWriter.WriteEndElement() 'CIERRA COPIA
|
|
|
|
'Cierra elemento Principal -------------------------------------------------------------------------
|
|
myXmlTextWriter.WriteEndElement() 'CIERRA REPORTE
|
|
myXmlTextWriter.Flush()
|
|
myXmlTextWriter.Close()
|
|
MsgBox("El Archivo: " & NombreArchivo & " se ha creado correctamente ", MsgBoxStyle.Information)
|
|
End Sub
|
|
Private Function SaveXML(xmlDoc As System.Xml.XmlDocument, ByVal strIdentifier As String) 'As System.Xml.XmlDocument
|
|
xmlDoc.Save(strIdentifier)
|
|
End Function
|
|
|
|
Private Sub FrmRepInterExt_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
Dim clcmp As New clsComplejo
|
|
Dim clcmpEnt As New clsComplejo
|
|
Dim clcmpPais As New clsComplejo
|
|
clcmp.sbLlenaCombo("SELECT CLAVE, CLAVE + ' ' + NOMBRE NOMBRE FROM IEF_CATORGANISMOS", CboOrgRegulador)
|
|
clcmpEnt.sbLlenaCombo("SELECT CLAVE, CLAVE + ' ' + NOMBRE NOMBRE FROM IEF_CATENTFIN", CboEntidad)
|
|
clcmpPais.sbLlenaCombo("SELECT PAIS as NOMBRE,IDPAIS CLAVE FROM CAT_PAIS WHERE ACTIVO = 1 AND LEN(ISO) = 2", CmbPais)
|
|
'CboTipoPersona.Items.Insert(0, New ListViewItem(0,"PERSONA MORAL")
|
|
|
|
LblReporte.Visible = False
|
|
TxtAccion.Text = "ALTA"
|
|
'clcmp.sbLlenaCombo("SELECT PAIS as NOMBRE,IDPAIS CLAVE FROM CAT_PAIS WHERE ACTIVO = 1", CmbPais)
|
|
End Sub
|
|
|
|
Private Sub CboTipoPersona_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CboTipoPersona.SelectedIndexChanged
|
|
Try
|
|
If CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
LblFeConst.Visible = True
|
|
dtpFechaConstit.Visible = True
|
|
Else
|
|
LblFeConst.Visible = False
|
|
dtpFechaConstit.Visible = False
|
|
End If
|
|
|
|
Llenagrid()
|
|
'DGVClientes.DataSource = Nothing
|
|
DGVOperaciones.DataSource = Nothing
|
|
DGVDatosReporte.Rows.Clear()
|
|
Catch Err As Exception
|
|
MsgBox(Err.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
|
|
End Sub
|
|
Private Function SiguienteFolio(Anio As Integer) As String
|
|
Dim DsFolio As New DataSet
|
|
Dim Sql As String = ""
|
|
Dim ClsCom As New clsComplejo
|
|
Dim SigFolio As Integer
|
|
|
|
Sql = "SELECT ISNULL(MAX(CONSECUTIVO),0) + 1 FROM IEF_REPORTE_ENT_EXT " & _
|
|
"WHERE ANIO = " & Anio & ""
|
|
DsFolio = ClsCom.fdtDataSetTabla(Sql)
|
|
SigFolio = DsFolio.Tables(0).Rows(0).Item(0)
|
|
Return SigFolio
|
|
End Function
|
|
|
|
Private Sub CmdGuardar_Click(sender As System.Object, e As System.EventArgs) Handles CmdGuardar.Click
|
|
Dim Sql As String = ""
|
|
Dim Consecutivo As Integer
|
|
Dim Anio As String = ""
|
|
Dim SigFolio As String
|
|
Dim cLScPL As New clsComplejo
|
|
Dim Status As String
|
|
Dim i As Integer = 0
|
|
|
|
Try
|
|
If VALIDACIONES() = False Then
|
|
Exit Sub
|
|
End If
|
|
|
|
If TxtAccion.Text = "ALTA" Then
|
|
IdCte = IIf(TxtIdCliente.Text.Trim = "", 0, CInt(TxtIdCliente.Text))
|
|
Anio = dtpFechaRecepcion.Value.Year
|
|
Consecutivo = SiguienteFolio(Anio)
|
|
SigFolio = Anio & "-" & Consecutivo.ToString
|
|
TxtFolio.Text = SigFolio
|
|
Status = "GUARDADO"
|
|
CvePaisEntExt = CmbPais.SelectedValue
|
|
CveIDPais = RegresaDato("CAT_PAIS", "IDPAIS", "ISO", CvePaisEntExt)
|
|
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Then
|
|
IdTipoPersona = 1
|
|
ElseIf CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
IdTipoPersona = 2
|
|
ElseIf CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
IdTipoPersona = 3
|
|
End If
|
|
|
|
'Fideicomiso
|
|
'RazonSocialFI,NumRefFideFI,RFCFI
|
|
|
|
'Sql = "INSERT INTO IEF_REPORTE_ENT_EXT (ANIO,CONSECUTIVO, ID_ORG_REGULADOR," & _
|
|
'"ID_ENTIDAD_EMISORA,FOLIO,FECHA_RECEP_SOLIC,ENTIDAD_EXTRAN_SOLIC," & _
|
|
'"ID_PAIS_ENT_EXTRAN,CARGO_FUNC_ENT_EXT,CARGO_FUNC_RECEP,NOMBRE_ARCHIVO,STATUS,IDTIPOPERSONA,IDCLIENTE) VALUES(" & _
|
|
'"" & Anio & "," & Consecutivo & ",'" & CboOrgRegulador.SelectedValue & "'," & _
|
|
'"'" & CboEntidad.SelectedValue & "','" & TxtFolio.Text & "','" & dtpFechaRecepcion.Value.ToString("dd/MM/yyyy") & "', '" & TxtNomEntExt.Text.Replace("'", "''") & "'," & _
|
|
'"'" & CveIDPais & "','" & TxtCargoFuncExtra.Text.Replace("'", "''") & "','" & TxtCargoFuncVaDirigido.Text.Replace("'", "''") & "','" & TxtArchivoAnexo.Text & "','" & Status & "'," & IdTipoPersona & "," & IdCte & ")"
|
|
|
|
Sql = "INSERT INTO IEF_REPORTE_ENT_EXT (ANIO,CONSECUTIVO, ID_ORG_REGULADOR," &
|
|
"ID_ENTIDAD_EMISORA,FOLIO,FECHA_RECEP_SOLIC,ENTIDAD_EXTRAN_SOLIC," &
|
|
"ID_PAIS_ENT_EXTRAN,CARGO_FUNC_ENT_EXT,CARGO_FUNC_RECEP,NOMBRE_ARCHIVO,STATUS,IDTIPOPERSONA,IDCLIENTE) VALUES(" &
|
|
"" & Anio & "," & Consecutivo & ",'" & CboOrgRegulador.SelectedValue & "'," &
|
|
"'" & CboEntidad.SelectedValue & "','" & TxtFolio.Text & "',CONVERT(DATETIME,'" & dtpFechaRecepcion.Value.ToString("dd/MM/yyyy") & "', 103)" & " , '" & TxtNomEntExt.Text.Replace("'", "''") & "'," &
|
|
"'" & CveIDPais & "','" & TxtCargoFuncExtra.Text.Replace("'", "''") & "','" & TxtCargoFuncVaDirigido.Text.Replace("'", "''") & "','" & TxtArchivoAnexo.Text & "','" & Status & "'," & IdTipoPersona & "," & IdCte & ")"
|
|
|
|
Try
|
|
cLScPL.sbModifica2(Sql)
|
|
Catch Err As Exception
|
|
Exit Sub
|
|
End Try
|
|
'PERSONA FISICA
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Then
|
|
'Persona Fisica
|
|
NombrePF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBRE").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBRE").Value())
|
|
ApePaternoPF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOPATERNO").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOPATERNO").Value())
|
|
ApeMaternoPF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOMATERNO").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOMATERNO").Value())
|
|
CurpPF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("CURP").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("CURP").Value())
|
|
RFCPF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value())
|
|
'NombrePF,ApePaternoPF,ApeMaternoPF,FechaNacPF,CurpPF,RFCPF}
|
|
|
|
Sql = "INSERT INTO IEF_DATOS_PERSONA (ANIO,CONSECUTIVO," & _
|
|
"NOMBRE,APE_PATERNO,APE_MATERNO,FECHA_NAC," & _
|
|
"CURP,RFC_PF,RAZON_SOC_PM,FECHA_CONSTITUCION," & _
|
|
"RFC_PM,RAZON_SOC_FI,NUM_REFERENCIA_FI,RFC_FI) VALUES (" & _
|
|
"" & Anio & "," & Consecutivo & "," & _
|
|
"'" & NombrePF & "','" & ApePaternoPF & "','" & ApeMaternoPF & "', '" & FechaNacPF & "'" & _
|
|
"'" & CurpPF & "','" & RFCPF & "')"
|
|
|
|
cLScPL.sbModifica2(Sql)
|
|
End If
|
|
'PERSONA MORAL
|
|
If CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
RazonSocialPM = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBREORAZONS1").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBREORAZONS1").Value())
|
|
FechaConstitucPF = dtpFechaConstit.Value.ToString("yyyyMMdd")
|
|
RFCPM = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value())
|
|
|
|
Sql = "INSERT INTO IEF_DATOS_PERSONA (ANIO,CONSECUTIVO," &
|
|
"RAZON_SOC_PM,FECHA_CONSTITUCION,RFC_PM) VALUES (" &
|
|
"" & Anio & "," & Consecutivo & "," &
|
|
"'" & RazonSocialPM.Trim & "', CONVERT(DATETIME,'" & FechaConstitucPF & "', 103),'" & RFCPM & "')"
|
|
|
|
cLScPL.sbModifica2(Sql)
|
|
End If
|
|
'FIDEICOMISO
|
|
If CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
'RazonSocialFI,NumRefFideFI,RFCFI
|
|
RazonSocialFI = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBREORAZONS1").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBREORAZONS1").Value())
|
|
NumRefFideFI = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NUMEROREFERENCIA").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NUMEROREFERENCIA").Value())
|
|
RFCFI = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value())
|
|
|
|
Sql = "INSERT INTO IEF_DATOS_PERSONA (ANIO,CONSECUTIVO," & _
|
|
"RAZON_SOC_FI, NUM_REFERENCIA_FI,RFC_FI) VALUES (" & _
|
|
"" & Anio & "," & Consecutivo & "," & _
|
|
"'" & RazonSocialFI & "','" & NumRefFideFI & "','" & RFCFI & "')"
|
|
|
|
cLScPL.sbModifica2(Sql)
|
|
End If
|
|
'Guardar Datos de las Operaciones
|
|
Dim FechaHoraOperDate As Date
|
|
For i = 0 To DGVDatosReporte.RowCount - 1
|
|
|
|
'DatosOperOrigSolic = "30"
|
|
CveTipOperxEntidad = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("IDTIPOOPERACION").Value()), 0, DGVOperaciones.Rows(i).Cells("IDTIPOOPERACION").Value())
|
|
CveInstruMoneOper = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("IDINSTRUMENTOMONETARIO").Value()), 0, DGVOperaciones.Rows(i).Cells("IDINSTRUMENTOMONETARIO").Value())
|
|
CtaContrOper = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("CUENTA").Value()), 0, DGVOperaciones.Rows(i).Cells("CUENTA").Value())
|
|
MontoOper = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("MONTO").Value()), 0, DGVOperaciones.Rows(i).Cells("MONTO").Value())
|
|
CveMoneda = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("IDMONEDA").Value()), 0, DGVOperaciones.Rows(i).Cells("IDMONEDA").Value())
|
|
CveMonDivisa = RegresaDato("CAT_MONEDA", "IDMONEDA", "TIF", CveMoneda)
|
|
FechaHoraOperDate = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("FECHA").Value()), "01/01/1900", DGVOperaciones.Rows(i).Cells("FECHA").Value())
|
|
NumeroReferencia = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("NUMEROREFERENCIA").Value()), "", DGVOperaciones.Rows(i).Cells("NUMEROREFERENCIA").Value())
|
|
'aaaammddhhmmss
|
|
FechaHoraOper = FechaHoraOperDate.ToString("yyyyMMddhhmmss")
|
|
'FechaHoraOper = FechaHoraOperDate.ToString("dd/MM/YYYY")
|
|
'CopiaInfoInterc = "37" 'ETIQUETA
|
|
|
|
Sql = ""
|
|
Sql = "INSERT INTO IEF_REPORTE_OPERACIONES (ANIO,CONSECUTIVO,ID_TIPO_OPERACION,ID_INSTR_MONETARIO," & _
|
|
"NUM_CTA_CONTRATO,MONTO_OPERACIONES,ID_MONEDA_DIVISA,FECHA_HORA_OPERACIONES,NUMEROREFERENCIA) VALUES (" & _
|
|
"" & Anio & "," & Consecutivo & "," & CveTipOperxEntidad & "," & CveInstruMoneOper & "," & _
|
|
"'" & CtaContrOper & "','" & MontoOper & "','" & CveMonDivisa & "','" & FechaHoraOper & "','" & NumeroReferencia & "')"
|
|
|
|
cLScPL.sbModifica2(Sql)
|
|
Next i
|
|
ElseIf TxtAccion.Text = "CAMBIO" Then
|
|
Actualiza()
|
|
End If
|
|
If TxtAccion.Text = "ALTA" Then MsgBox("La información ha sido guardada exitosamente", MsgBoxStyle.Information)
|
|
Catch Err As Exception
|
|
MsgBox(Err.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub Actualiza()
|
|
Dim Sql As String = ""
|
|
Dim Consecutivo As Integer
|
|
Dim Anio As String = ""
|
|
Dim SigFolio As String
|
|
Dim cLScPL As New clsComplejo
|
|
Dim Status As String
|
|
Dim i As Integer = 0
|
|
|
|
Try
|
|
|
|
IdCte = IIf(TxtIdCliente.Text.Trim = "", 0, CInt(TxtIdCliente.Text))
|
|
Anio = Mid(TxtFolio.Text, 1, 4) 'dtpFechaRecepcion.Value.Year
|
|
'Consecutivo = SiguienteFolio(Anio)
|
|
Consecutivo = Mid(TxtFolio.Text, 6, 10)
|
|
'SigFolio = Anio & "-" & Consecutivo.ToString
|
|
'TxtFolio.Text = SigFolio
|
|
Status = "GUARDADO"
|
|
CvePaisEntExt = CmbPais.SelectedValue
|
|
CveIDPais = RegresaDato("CAT_PAIS", "IDPAIS", "ISO", CvePaisEntExt)
|
|
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Then
|
|
IdTipoPersona = 1
|
|
ElseIf CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
IdTipoPersona = 2
|
|
ElseIf CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
IdTipoPersona = 3
|
|
End If
|
|
|
|
'Fideicomiso
|
|
'RazonSocialFI,NumRefFideFI,RFCFI
|
|
|
|
Sql = "UPDATE IEF_REPORTE_ENT_EXT SET " & _
|
|
"ID_ORG_REGULADOR = '" & CboOrgRegulador.SelectedValue & "',ID_ENTIDAD_EMISORA='" & CboEntidad.SelectedValue & "'," & _
|
|
"FECHA_RECEP_SOLIC='" & dtpFechaRecepcion.Value.ToString("dd/MM/yyyy") & "'," & _
|
|
"ENTIDAD_EXTRAN_SOLIC='" & TxtNomEntExt.Text & "',ID_PAIS_ENT_EXTRAN='" & CveIDPais & "'," & _
|
|
"CARGO_FUNC_ENT_EXT='" & TxtCargoFuncExtra.Text & "',CARGO_FUNC_RECEP='" & TxtCargoFuncVaDirigido.Text & "'," & _
|
|
"NOMBRE_ARCHIVO='" & TxtArchivoAnexo.Text & "',STATUS='" & Status & "'," & _
|
|
"IDTIPOPERSONA=" & IdTipoPersona & ",IDCLIENTE=" & IdCte & " " & _
|
|
"WHERE ANIO=" & Anio & " AND CONSECUTIVO=" & Consecutivo & ""
|
|
cLScPL.sbModifica2(Sql)
|
|
|
|
'PERSONA FISICA
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Then
|
|
'Persona Fisica
|
|
NombrePF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBRE").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBRE").Value())
|
|
ApePaternoPF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOPATERNO").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOPATERNO").Value())
|
|
ApeMaternoPF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOMATERNO").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOMATERNO").Value())
|
|
CurpPF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("CURP").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("CURP").Value())
|
|
RFCPF = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value())
|
|
'NombrePF,ApePaternoPF,ApeMaternoPF,FechaNacPF,CurpPF,RFCPF}
|
|
Sql = "UPDATE IEF_DATOS_PERSONA SET " & _
|
|
"NOMBRE='" & NombrePF & "',APE_PATERNO='" & ApePaternoPF & "',APE_MATERNO,FECHA_NAC='" & ApeMaternoPF & "'," & _
|
|
"CURP='" & CurpPF & "',RFC_PF='" & RFCPF & "',RAZON_SOC_PM=,FECHA_CONSTITUCION," & _
|
|
"RFC_PM,RAZON_SOC_FI,NUM_REFERENCIA_FI,RFC_FI" & _
|
|
"WHERE ANIO=" & Anio & " AND CONSECUTIVO=" & Consecutivo & ""
|
|
cLScPL.sbModifica2(Sql)
|
|
End If
|
|
'PERSONA MORAL
|
|
If CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
RazonSocialPM = IIf(IsDBNull(DGVOperaciones.Rows(0).Cells("NOMBREORAZONS1").Value()), "", DGVOperaciones.Rows(0).Cells("NOMBREORAZONS1").Value())
|
|
FechaConstitucPF = dtpFechaConstit.Value.ToString("dd/MM/yyyy")
|
|
RFCPM = IIf(IsDBNull(DGVOperaciones.Rows(0).Cells("RFC").Value()), "", DGVOperaciones.Rows(0).Cells("RFC").Value())
|
|
|
|
Sql = "UPDATE IEF_DATOS_PERSONA SET " & _
|
|
"RAZON_SOC_PM='" & RazonSocialPM.Trim & "',FECHA_CONSTITUCION='" & FechaConstitucPF & "'," & _
|
|
"RFC_PM='" & RFCPM.Trim & "' " & _
|
|
"WHERE ANIO=" & Anio & " AND CONSECUTIVO=" & Consecutivo & ""
|
|
cLScPL.sbModifica2(Sql)
|
|
End If
|
|
'FIDEICOMISO
|
|
If CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
'RazonSocialFI,NumRefFideFI,RFCFI
|
|
RazonSocialFI = IIf(IsDBNull(DGVOperaciones.Rows(0).Cells("NOMBREORAZONS1").Value()), "", DGVOperaciones.Rows(0).Cells("NOMBREORAZONS1").Value())
|
|
NumRefFideFI = IIf(IsDBNull(DGVOperaciones.Rows(0).Cells("NUMEROREFERENCIA").Value()), "", DGVOperaciones.Rows(0).Cells("NUMEROREFERENCIA").Value())
|
|
RFCFI = IIf(IsDBNull(DGVOperaciones.Rows(0).Cells("RFC").Value()), "", DGVOperaciones.Rows(0).Cells("RFC").Value())
|
|
|
|
Sql = "UPDATE IEF_DATOS_PERSONA SET " & _
|
|
"RAZON_SOC_FI='" & RazonSocialFI & "', NUM_REFERENCIA_FI='" & NumRefFideFI & "',RFC_FI='" & RFCFI & "' " & _
|
|
"WHERE ANIO=" & Anio & " AND CONSECUTIVO=" & Consecutivo & ""
|
|
cLScPL.sbModifica2(Sql)
|
|
|
|
End If
|
|
'Guardar Datos de las Operaciones
|
|
Dim FechaHoraOperDate As Date
|
|
Sql = "DELETE FROM IEF_REPORTE_OPERACIONES WHERE ANIO=" & Anio & " AND CONSECUTIVO=" & Consecutivo & ""
|
|
cLScPL.sbModifica2(Sql)
|
|
For i = 0 To DGVDatosReporte.RowCount - 1
|
|
|
|
'DatosOperOrigSolic = "30"
|
|
CveTipOperxEntidad = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("IDTIPOOPERACION").Value()), 0, DGVOperaciones.Rows(i).Cells("IDTIPOOPERACION").Value())
|
|
CveInstruMoneOper = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("IDINSTRUMENTOMONETARIO").Value()), 0, DGVOperaciones.Rows(i).Cells("IDINSTRUMENTOMONETARIO").Value())
|
|
CtaContrOper = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("CUENTA").Value()), 0, DGVOperaciones.Rows(i).Cells("CUENTA").Value())
|
|
MontoOper = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("MONTO").Value()), 0, DGVOperaciones.Rows(i).Cells("MONTO").Value())
|
|
CveMoneda = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("IDMONEDA").Value()), 0, DGVOperaciones.Rows(i).Cells("IDMONEDA").Value())
|
|
CveMonDivisa = RegresaDato("CAT_MONEDA", "IDMONEDA", "ALIASID", CveMoneda)
|
|
FechaHoraOperDate = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("FECHA").Value()), "01/01/1900", DGVOperaciones.Rows(i).Cells("FECHA").Value())
|
|
NumeroReferencia = IIf(IsDBNull(DGVOperaciones.Rows(i).Cells("NUMEROREFERENCIA").Value()), "", DGVOperaciones.Rows(i).Cells("NUMEROREFERENCIA").Value())
|
|
'aaaaMMddhhmmss
|
|
FechaHoraOper = FechaHoraOperDate.ToString("yyyyMMddhhmmss")
|
|
'CopiaInfoInterc = "37" 'ETIQUETA
|
|
|
|
'Sql = ""
|
|
'Sql = "UPDATE IEF_REPORTE_OPERACIONES SET ID_TIPO_OPERACION=" & CveTipOperxEntidad & "," & _
|
|
'"ID_INSTR_MONETARIO=" & CveInstruMoneOper & ",NUM_CTA_CONTRATO='" & CtaContrOper & "'," & _
|
|
'"MONTO_OPERACIONES='" & MontoOper & "',ID_MONEDA_DIVISA='" & CveMonDivisa & "'," & _
|
|
'"FECHA_HORA_OPERACIONES='" & FechaHoraOper & "' " & _
|
|
'"WHERE ANIO=" & Anio & " AND CONSECUTIVO=" & Consecutivo & ""
|
|
Sql = "INSERT INTO IEF_REPORTE_OPERACIONES (ANIO,CONSECUTIVO,ID_TIPO_OPERACION,ID_INSTR_MONETARIO," & _
|
|
"NUM_CTA_CONTRATO,MONTO_OPERACIONES,ID_MONEDA_DIVISA,FECHA_HORA_OPERACIONES,NUMEROREFERENCIA) VALUES (" & _
|
|
"" & Anio & "," & Consecutivo & "," & CveTipOperxEntidad & "," & CveInstruMoneOper & "," & _
|
|
"'" & CtaContrOper & "','" & MontoOper & "','" & CveMonDivisa & "','" & FechaHoraOper & "','" & NumeroReferencia & "')"
|
|
cLScPL.sbModifica2(Sql)
|
|
Next i
|
|
|
|
MsgBox("La información ha sido guardada exitosamente", MsgBoxStyle.Information)
|
|
|
|
Catch Err As Exception
|
|
MsgBox(Err.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Function RegresaDato(Tabla As String, DatoABuscar As String, DatoTraer As String, ValorDatoBuscar As String) As String
|
|
Dim Sql As String = ""
|
|
Dim DsBusq As New DataSet
|
|
Dim ClsBus As New clsComplejo
|
|
Dim Resultado As String = ""
|
|
If IsNumeric(ValorDatoBuscar) Then
|
|
Sql = "SELECT " & DatoTraer & " FROM " & Tabla & " WHERE " & DatoABuscar & " = " & ValorDatoBuscar & " "
|
|
Else
|
|
Sql = "SELECT " & DatoTraer & " FROM " & Tabla & " WHERE " & DatoABuscar & " = '" & ValorDatoBuscar & "' "
|
|
End If
|
|
DsBusq = ClsBus.fdtDataSet(Sql)
|
|
If DsBusq.Tables(0).Rows.Count > 0 Then
|
|
Resultado = DsBusq.Tables(0).Rows(0).Item(0)
|
|
Else
|
|
Resultado = ""
|
|
End If
|
|
Return Resultado
|
|
End Function
|
|
Private Sub Llenagrid()
|
|
Dim Classcom As New clsComplejo
|
|
Dim ClassCatalogos As New ClassCatalogos
|
|
Dim SQL As String
|
|
Dim FILA As DataRow
|
|
Dim DsDias As New DataSet
|
|
Try
|
|
'LLENA GRID
|
|
SQL = "SELECT IDCLIENTE,NIC, NOMBREORAZONS FROM CLIENTE "
|
|
'PERSONA FISICA TIPOPERSONA = 1 BRANCH = '01'
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Then
|
|
SQL = SQL & "WHERE IDTIPOPERSONA = 2"
|
|
AgregaColumnasOperaciones("PERSONA FISICA")
|
|
End If
|
|
'PERSONA MORAL TIPOPERSONA = 2 BRANCH = '01'
|
|
If CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
SQL = SQL & "WHERE IDTIPOPERSONA = 1"
|
|
AgregaColumnasOperaciones("PERSONA MORAL")
|
|
End If
|
|
'FIDEICOMISO TIPOPERSONA = 2 BRANCH = ISNULL
|
|
If CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
SQL = SQL & "WHERE IDTIPOPERSONA = 7"
|
|
' AgregaColumnasOperaciones("FIDEICOMISO")
|
|
End If
|
|
|
|
DsDias = Classcom.fdtDataSet(SQL)
|
|
DGVClientes.DataSource = DsDias.Tables(0)
|
|
DGVClientes.Columns("IDCLIENTE").Visible = False
|
|
DGVClientes.Columns("NOMBREORAZONS").Width = 500
|
|
DGVClientes.Columns("NIC").Width = 60
|
|
Catch ex As Exception
|
|
MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
|
|
End Try
|
|
End Sub
|
|
Private Sub LlenaOperaciones(IdCliente As Integer, Origen As String)
|
|
Dim DsOper As New DataSet
|
|
Dim ClsCom As New clsComplejo
|
|
Dim Sql As String
|
|
|
|
Try
|
|
If CboTipoPersona.SelectedIndex = -1 Then
|
|
MessageBox.Show("Seleccione tipo de persona", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|
CboTipoPersona.Focus()
|
|
Exit Sub
|
|
End If
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Or CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
Sql = "SELECT CL.IDCLIENTE,CL.NOMBREORAZONS,CL.APATERNO,CL.AMATERNO,CL.CURP,CL.RFC,CL.NOMBREORAZONS,CL.NIC,'' FECHAACTA, IDCUENTA,CUENTA,IDINSTRUMENTOMONETARIO, IDTIPOOPERACION, MONTO, " & _
|
|
"IDMONEDA,FECHA,NUMEROREFERENCIA FROM (SELECT IDCLIENTE,CUENTA.IDCUENTA,CUENTA.NOCUENTA CUENTA,IDINSTRUMENTOMONETARIO, IDTIPOOPERACION, MERCADODECAPITALES.MONTO, " & _
|
|
"MERCADODECAPITALES.IDMONEDA,NUMEROREFERENCIA ,FECHA FROM MERCADODECAPITALES INNER JOIN CUENTA ON MERCADODECAPITALES.IDCUENTA = CUENTA.IDCUENTA " & _
|
|
"UNION SELECT IDCLIENTE,CUENTA.IDCUENTA,CUENTA.NOCUENTA CUENTA, IDINSTRUMENTOMONETARIO, IDTIPOOPERACION, BANCAINTERNACIONAL.MONTO, BANCAINTERNACIONAL.IDMONEDA, NUMEROREFERENCIA ,FECHA " & _
|
|
"FROM BANCAINTERNACIONAL INNER JOIN CUENTA ON BANCAINTERNACIONAL.IDCUENTA = CUENTA.IDCUENTA UNION SELECT IDCLIENTE,CUENTA.IDCUENTA,CUENTA.NOCUENTA CUENTA, IDINSTRUMENTOMONETARIO, IDTIPOOPERACION, CREDITO.MONTO, CREDITO.IDMONEDA, NUMEROREFERENCIA ,FECHA " & _
|
|
"FROM CREDITO INNER JOIN CUENTA ON CREDITO.IDCUENTA = CUENTA.IDCUENTA UNION SELECT IDCLIENTE, CUENTA.IDCUENTA,CUENTA.NOCUENTA CUENTA, IDINSTRUMENTOMONETARIO, IDTIPOOPERACION, " & _
|
|
"DIVISAS.MONTO, DIVISAS.IDMONEDA, NUMEROREFERENCIA ,FECHA FROM DIVISAS INNER JOIN CUENTA ON DIVISAS.IDCUENTA = CUENTA.IDCUENTA " & _
|
|
"UNION SELECT IDCLIENTE, CUENTA.IDCUENTA,CUENTA.NOCUENTA CUENTA,IDINSTRUMENTOMONETARIO, IDTIPOOPERACION, BANCATRADICIONAL.MONTO, BANCATRADICIONAL.IDMONEDA, NUMEROREFERENCIA ,FECHA " & _
|
|
"FROM BANCATRADICIONAL INNER JOIN CUENTA ON BANCATRADICIONAL.IDCUENTA = CUENTA.IDCUENTA) TR INNER JOIN CLIENTE CL ON CL.IDCLIENTE = TR.IDCLIENTE WHERE CL.IDCLIENTE = " & IdCliente & " "
|
|
If Origen = "CLIENTES" Then
|
|
Sql = Sql & " And TR.FECHA BETWEEN CONVERT(DATETIME,'" & ClsCom.ObtenFecha(DTOperFeInicio.Value.Date, "DD/MM/YYYY") & "', 103) AND CONVERT(DATETIME,'" & ClsCom.ObtenFecha(DTOperFeFin.Value.Date, "DD/MM/YYYY") & "', 103) "
|
|
End If
|
|
'"WHERE CL.IDCLIENTE = " & IdCliente & " "
|
|
'WHERE FECHA_RECEP_SOLIC BETWEEN TO_DATE('" & DTPFeRecInicio.Value.ToString("dd/MM/yyyy") & "','dd/MM/yyyy') AND TO_DATE('" & DTPFeRecFin.Value.ToString("dd/MM/yyyy") & "','dd/MM/yyyy') "
|
|
End If
|
|
If CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
Sql = "SELECT CL.IDCLIENTE,CL.NOMBREORAZONS,CL.APATERNO,CL.AMATERNO,CL.CURP,CL.RFC,CL.NOMBREORAZONS,CL.NIC,'' FECHAACTA, IDCUENTA,CUENTA,IDINSTRUMENTOMONETARIO, IDTIPOOPERACION, MONTO," & _
|
|
"IDMONEDA,FECHA,NUMEROREFERENCIA FROM (SELECT IDCLIENTE,CUENTA.IDCUENTA,CUENTA.NOCUENTA CUENTA,IDINSTRUMENTOMONETARIO, IDTIPOOPERACION, MERCADODECAPITALES.MONTO, " & _
|
|
"MERCADODECAPITALES.IDMONEDA,NUMEROREFERENCIA ,FECHA FROM MERCADODECAPITALES INNER JOIN CUENTA ON MERCADODECAPITALES.IDCUENTA = CUENTA.IDCUENTA " & _
|
|
"UNION SELECT IDCLIENTE,CUENTA.IDCUENTA,CUENTA.NOCUENTA CUENTA, IDINSTRUMENTOMONETARIO, IDTIPOOPERACION, BANCAINTERNACIONAL.MONTO, BANCAINTERNACIONAL.IDMONEDA, NUMEROREFERENCIA ,FECHA " & _
|
|
"FROM BANCAINTERNACIONAL INNER JOIN CUENTA ON BANCAINTERNACIONAL.IDCUENTA = CUENTA.IDCUENTA UNION SELECT IDCLIENTE,CUENTA.IDCUENTA,CUENTA.NOCUENTA CUENTA, IDINSTRUMENTOMONETARIO, IDTIPOOPERACION, CREDITO.MONTO, CREDITO.IDMONEDA, NUMEROREFERENCIA ,FECHA " & _
|
|
"FROM CREDITO INNER JOIN CUENTA ON CREDITO.IDCUENTA = CUENTA.IDCUENTA UNION SELECT IDCLIENTE, CUENTA.IDCUENTA,CUENTA.NOCUENTA CUENTA, IDINSTRUMENTOMONETARIO, IDTIPOOPERACION, " & _
|
|
"DIVISAS.MONTO, DIVISAS.IDMONEDA, NUMEROREFERENCIA ,FECHA FROM DIVISAS INNER JOIN CUENTA ON DIVISAS.IDCUENTA = CUENTA.IDCUENTA " & _
|
|
"UNION SELECT IDCLIENTE, CUENTA.IDCUENTA,CUENTA.NOCUENTA CUENTA,IDINSTRUMENTOMONETARIO, IDTIPOOPERACION, BANCATRADICIONAL.MONTO, BANCATRADICIONAL.IDMONEDA, NUMEROREFERENCIA ,FECHA " & _
|
|
"FROM BANCATRADICIONAL INNER JOIN CUENTA ON BANCATRADICIONAL.IDCUENTA = CUENTA.IDCUENTA) TR INNER JOIN CLIENTE CL ON CL.IDCLIENTE = TR.IDCLIENTE " & _
|
|
"WHERE CL.idTipoPersona = 7 "
|
|
If Origen = "CLIENTES" Then
|
|
Sql = Sql & " And TR.FECHA BETWEEN CONVERT(DATETIME,'" & ClsCom.ObtenFecha(DTOperFeInicio.Value.Date, "DD/MM/YYYY") & "', 103) AND CONVERT(DATETIME,'" & ClsCom.ObtenFecha(DTOperFeFin.Value.Date, "DD/MM/YYYY") & "', 103) "
|
|
End If
|
|
'"WHERE CL.IDCLIENTE = " & IdCliente & " "
|
|
End If
|
|
|
|
'DGVOperaciones
|
|
DsOper = ClsCom.fdtDataSet(Sql)
|
|
If DsOper.Tables(0).Rows.Count = 0 Then
|
|
MsgBox("No existen Operaciones para el cliente y rango de fechas seleccionado", MsgBoxStyle.Exclamation, "Operaciones Cliente")
|
|
End If
|
|
DGVOperaciones.DataSource = DsOper.Tables(0)
|
|
|
|
'If CboTipoPersona.Text = "PERSONA FISICA" Or CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
|
|
DGVOperaciones.Columns("IDCLIENTE").Visible = False
|
|
DGVOperaciones.Columns("NOMBREORAZONS").Visible = False
|
|
DGVOperaciones.Columns("APATERNO").Visible = False
|
|
DGVOperaciones.Columns("AMATERNO").Visible = False
|
|
DGVOperaciones.Columns("CURP").Visible = False
|
|
DGVOperaciones.Columns("RFC").Visible = False
|
|
DGVOperaciones.Columns("NOMBREORAZONS").Visible = False
|
|
DGVOperaciones.Columns("NIC").Visible = False
|
|
DGVOperaciones.Columns("FECHAACTA").Visible = False
|
|
DGVOperaciones.Columns("IDCUENTA").Visible = False
|
|
DGVOperaciones.Columns("IDINSTRUMENTOMONETARIO").Visible = False
|
|
DGVOperaciones.Columns("IDMONEDA").Visible = False
|
|
|
|
DGVOperaciones.Columns("FECHA").Visible = True
|
|
DGVOperaciones.Columns("FECHA").Width = 70
|
|
DGVOperaciones.Columns("IDTIPOOPERACION").Visible = False
|
|
DGVOperaciones.Columns("CUENTA").Width = 60
|
|
DGVOperaciones.Columns("MONTO").Width = 60
|
|
DGVOperaciones.Columns("NUMEROREFERENCIA").HeaderText = "No.REF."
|
|
DGVOperaciones.Columns("NUMEROREFERENCIA").Width = 80
|
|
'End If
|
|
'If CboTipoPersona.Text = "PERSONA FISICA" Or CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
' DGVOperaciones.Columns("IDCLIENTE").Visible = False
|
|
' DGVOperaciones.Columns("NOMBRE").Visible = False
|
|
' DGVOperaciones.Columns("APELLIDOPATERNO").Visible = False
|
|
' DGVOperaciones.Columns("APELLIDOMATERNO").Visible = False
|
|
' DGVOperaciones.Columns("CURP").Visible = False
|
|
' DGVOperaciones.Columns("RFC").Visible = False
|
|
' DGVOperaciones.Columns("RAZONSOCIAL").Visible = False
|
|
' DGVOperaciones.Columns("NIC").Visible = False
|
|
' DGVOperaciones.Columns("FECHAACTA").Visible = False
|
|
' DGVOperaciones.Columns("IDCUENTA").Visible = False
|
|
' DGVOperaciones.Columns("IDINSTRUMENTOMONETARIO").Visible = False
|
|
' DGVOperaciones.Columns("IDMONEDA").Visible = False
|
|
' DGVOperaciones.Columns("FECHA").Visible = False
|
|
'End If
|
|
|
|
Catch err As Exception
|
|
MsgBox(err.Message, MsgBoxStyle.Critical, "Operaciones Cliente")
|
|
Finally
|
|
'DsOper.Dispose()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub DGVClientes_CellDoubleClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVClientes.CellDoubleClick
|
|
Try
|
|
DGVOperaciones.DataSource = Nothing
|
|
DGVDatosReporte.Rows.Clear()
|
|
IdCte = DGVClientes.Rows(DGVClientes.CurrentRow.Index).Cells("IDCLIENTE").Value()
|
|
TxtIdCliente.Text = IdCte.ToString
|
|
LlenaOperaciones(IdCte, "CLIENTES")
|
|
Catch err As Exception
|
|
MsgBox(err.Message, MsgBoxStyle.Exclamation, "Operaciones Cliente")
|
|
Finally
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub DGVOperaciones_CellDoubleClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVOperaciones.CellDoubleClick
|
|
'Datos del Cliente
|
|
Dim Nombre As String
|
|
Dim ApePat As String
|
|
Dim ApeMat As String
|
|
Dim Curp As String
|
|
Dim RFC As String
|
|
|
|
Dim RazonSocial As String
|
|
Dim FeConstitucion As String
|
|
|
|
Dim NumReferencia As String
|
|
|
|
''Datos de las Operaciones
|
|
Dim TipoOperacion As String
|
|
Dim Cuenta As String
|
|
Dim InstrMonet As String
|
|
Dim Monto As Double
|
|
Dim IdMoneda As String
|
|
Dim Moneda As String
|
|
Dim Fecha As String
|
|
Dim NumRef As String
|
|
|
|
|
|
Dim NumRefReporte As String
|
|
Dim CuentaReporte As String
|
|
|
|
Dim i As Integer = 0
|
|
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Then
|
|
Nombre = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBRE").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBRE").Value())
|
|
ApePat = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOPATERNO").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOPATERNO").Value())
|
|
ApeMat = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOMATERNO").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("APELLIDOMATERNO").Value())
|
|
Curp = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("CURP").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("CURP").Value())
|
|
RFC = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value())
|
|
|
|
TipoOperacion = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDTIPOOPERACION").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDTIPOOPERACION").Value())
|
|
Cuenta = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("CUENTA").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("CUENTA").Value())
|
|
InstrMonet = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDINSTRUMENTOMONETARIO").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDINSTRUMENTOMONETARIO").Value())
|
|
Monto = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("MONTO").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("MONTO").Value())
|
|
Moneda = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDMONEDA").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDMONEDA").Value())
|
|
Fecha = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("FECHA").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("FECHA").Value())
|
|
|
|
AgregaRenglonPF(Nombre, ApePat, ApeMat, Curp, RFC, TipoOperacion, InstrMonet, Cuenta, Monto, Moneda, Fecha)
|
|
End If
|
|
'PERSONA MORAL TIPOPERSONA = 2 BRANCH = '01'
|
|
If CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
RazonSocial = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBREORAZONS1").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBREORAZONS1").Value())
|
|
|
|
RazonSocial = ReemplazaCaracNoValidos(RazonSocial, 1)
|
|
|
|
FeConstitucion = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("FECHAACTA").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("FECHAACTA").Value())
|
|
RFC = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value())
|
|
|
|
TipoOperacion = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDTIPOOPERACION").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDTIPOOPERACION").Value())
|
|
Cuenta = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("CUENTA").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("CUENTA").Value())
|
|
InstrMonet = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDINSTRUMENTOMONETARIO").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDINSTRUMENTOMONETARIO").Value())
|
|
Monto = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("MONTO").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("MONTO").Value())
|
|
Moneda = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDMONEDA").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDMONEDA").Value())
|
|
Fecha = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("FECHA").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("FECHA").Value())
|
|
NumRef = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NUMEROREFERENCIA").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NUMEROREFERENCIA").Value())
|
|
|
|
'vALIDAR POR CUENTA Y MONTO QUE NO EXISTA EN EL GRID DE DATOS A ENVIAR
|
|
For i = 0 To DGVDatosReporte.Rows.Count - 1
|
|
NumRefReporte = IIf(IsDBNull(DGVDatosReporte.Rows(i).Cells("NumReferencia").Value()), "", DGVDatosReporte.Rows(i).Cells("NumReferencia").Value())
|
|
CuentaReporte = IIf(IsDBNull(DGVDatosReporte.Rows(i).Cells("CUENTA").Value()), "", DGVDatosReporte.Rows(i).Cells("CUENTA").Value())
|
|
If NumRefReporte.Trim = NumRef.Trim And CuentaReporte = Cuenta Then
|
|
MsgBox("Esta operación ya ha sido seleccionada, verifique por favor", MsgBoxStyle.Critical)
|
|
Exit Sub
|
|
End If
|
|
Next
|
|
|
|
AgregaRenglonPM(RazonSocial, FeConstitucion, RFC, TipoOperacion, InstrMonet, Cuenta, Monto, Moneda, Fecha, NumRef)
|
|
|
|
End If
|
|
'FIDEICOMISO TIPOPERSONA = 2 BRANCH = ISNULL
|
|
If CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
RazonSocial = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBREORAZONS1").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NOMBREORAZONS1").Value())
|
|
NumReferencia = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NUMEROREFERENCIA").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NUMEROREFERENCIA").Value())
|
|
RFC = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("RFC").Value())
|
|
|
|
TipoOperacion = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDTIPOOPERACION").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDTIPOOPERACION").Value())
|
|
Cuenta = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("CUENTA").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("CUENTA").Value())
|
|
InstrMonet = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDINSTRUMENTOMONETARIO").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDINSTRUMENTOMONETARIO").Value())
|
|
Monto = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("MONTO").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("MONTO").Value())
|
|
Moneda = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDMONEDA").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("IDMONEDA").Value())
|
|
Fecha = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("FECHA").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("FECHA").Value())
|
|
NumRef = IIf(IsDBNull(DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NUMEROREFERENCIA").Value()), "", DGVOperaciones.Rows(DGVOperaciones.CurrentRow.Index).Cells("NUMEROREFERENCIA").Value())
|
|
|
|
For i = 0 To DGVDatosReporte.Rows.Count - 1
|
|
NumRefReporte = IIf(IsDBNull(DGVDatosReporte.Rows(i).Cells("NumReferencia").Value()), "", DGVDatosReporte.Rows(i).Cells("NumReferencia").Value())
|
|
CuentaReporte = IIf(IsDBNull(DGVDatosReporte.Rows(i).Cells("CUENTA").Value()), "", DGVDatosReporte.Rows(i).Cells("CUENTA").Value())
|
|
If NumRefReporte.Trim = NumRef.Trim And CuentaReporte = Cuenta Then
|
|
MsgBox("Esta operacion ya ha sido seleccionada, verifique por favor", MsgBoxStyle.Critical)
|
|
Exit Sub
|
|
End If
|
|
Next
|
|
AgregaRenglonFI(RazonSocial, NumReferencia, RFC, TipoOperacion, InstrMonet, Cuenta, Monto, Moneda, Fecha, NumRef)
|
|
End If
|
|
|
|
DGVOperaciones.Columns("FECHA").Visible = False
|
|
DGVOperaciones.Columns("IDMONEDA").Visible = False
|
|
|
|
End Sub
|
|
Private Sub AgregaColumnasOperaciones(TipoPersona As String)
|
|
If DGVDatosReporte.Columns.Count > 0 Then Exit Sub
|
|
If TipoPersona = "PERSONA FISICA" Then
|
|
For i As Integer = 0 To 5
|
|
Dim Col As New DataGridViewTextBoxColumn
|
|
If i = 0 Then
|
|
Col.HeaderText = "Nombre"
|
|
Col.Name = "Nombre"
|
|
End If
|
|
If i = 1 Then
|
|
Col.HeaderText = "Ap.Paterno"
|
|
Col.Name = "ApPaterno"
|
|
End If
|
|
If i = 2 Then
|
|
Col.HeaderText = "Ap.Materno"
|
|
Col.Name = "ApPaterno"
|
|
End If
|
|
If i = 3 Then
|
|
Col.HeaderText = "Curp"
|
|
Col.Name = "Curp"
|
|
End If
|
|
If i = 4 Then
|
|
Col.HeaderText = "Rfc"
|
|
Col.Name = "Rfc"
|
|
End If
|
|
If i = 5 Then
|
|
Col.HeaderText = "No.Referencia"
|
|
Col.Name = "NumReferencia"
|
|
End If
|
|
DGVDatosReporte.Columns.Add(Col)
|
|
Next
|
|
End If
|
|
If TipoPersona = "PERSONA MORAL" Then
|
|
For i As Integer = 0 To 2
|
|
Dim Col As New DataGridViewTextBoxColumn
|
|
If i = 0 Then
|
|
Col.HeaderText = "Razon Social"
|
|
Col.Name = "RazonSocial"
|
|
End If
|
|
If i = 1 Then
|
|
Col.HeaderText = "Fe.Const."
|
|
Col.Name = "FeConstit"
|
|
End If
|
|
If i = 2 Then
|
|
Col.HeaderText = "RFC"
|
|
Col.Name = "RFC"
|
|
End If
|
|
DGVDatosReporte.Columns.Add(Col)
|
|
Next
|
|
End If
|
|
If TipoPersona = "FIDEICOMISO" Then
|
|
For i As Integer = 0 To 2
|
|
Dim Col As New DataGridViewTextBoxColumn
|
|
If i = 0 Then
|
|
Col.HeaderText = "Razón Social"
|
|
Col.Name = "RazonSocial"
|
|
End If
|
|
If i = 1 Then
|
|
Col.HeaderText = "Num.Ref."
|
|
Col.Name = "NumRef"
|
|
End If
|
|
If i = 2 Then
|
|
Col.HeaderText = "RFC"
|
|
Col.Name = "RFC"
|
|
End If
|
|
DGVDatosReporte.Columns.Add(Col)
|
|
Next
|
|
End If
|
|
|
|
For i As Integer = 0 To 6
|
|
Dim Col As New DataGridViewTextBoxColumn
|
|
If i = 0 Then
|
|
Col.HeaderText = "Tipo Operación"
|
|
Col.Name = "TipoOpera"
|
|
End If
|
|
If i = 1 Then
|
|
Col.HeaderText = "Instr.Monetario"
|
|
Col.Name = "InstrMonet"
|
|
End If
|
|
If i = 2 Then
|
|
Col.HeaderText = "Cuenta"
|
|
Col.Name = "Cuenta"
|
|
End If
|
|
|
|
If i = 3 Then
|
|
Col.HeaderText = "Monto"
|
|
Col.Name = "Monto"
|
|
End If
|
|
If i = 4 Then
|
|
Col.HeaderText = "Moneda"
|
|
Col.Name = "Moneda"
|
|
End If
|
|
If i = 5 Then
|
|
Col.HeaderText = "Fecha"
|
|
Col.Name = "FECHA"
|
|
End If
|
|
If i = 6 Then
|
|
Col.HeaderText = "No.Referencia"
|
|
Col.Name = "NumReferencia"
|
|
End If
|
|
DGVDatosReporte.Columns.Add(Col)
|
|
Next
|
|
If TipoPersona = "PERSONA MORAL" Then
|
|
DGVDatosReporte.Columns("FeConstit").Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub AgregaRenglonPF(PNombre As String, PApePat As String, PApMat As String, PCurp As String, PRFC As String, TipoOperacion As String, InstrMonet As String, Cuenta As String, Monto As String, Moneda As String, Fecha As String)
|
|
Dim UltRen As Integer
|
|
Dim DT As New DataGridViewRow
|
|
Try
|
|
DGVBuscaDatos.Columns.Clear()
|
|
UltRen = DGVDatosReporte.Rows.Count
|
|
DT.CreateCells(DGVDatosReporte)
|
|
DT.Cells(0).Value = PNombre 'Nombre
|
|
DT.Cells(1).Value = PApePat 'Apellido Paterno
|
|
DT.Cells(2).Value = PApMat 'Apellido Materno
|
|
DT.Cells(3).Value = PCurp 'Curp
|
|
DT.Cells(4).Value = PRFC 'RFC
|
|
|
|
DT.Cells(5).Value = TipoOperacion '
|
|
DT.Cells(6).Value = InstrMonet '
|
|
DT.Cells(7).Value = Cuenta '
|
|
DT.Cells(8).Value = Monto '
|
|
DT.Cells(9).Value = Moneda '
|
|
DT.Cells(10).Value = Fecha '
|
|
|
|
DGVDatosReporte.Rows.Insert(UltRen, DT)
|
|
DGVDatosReporte.CurrentRow.Cells(0).ReadOnly = False
|
|
DGVDatosReporte.CurrentRow.Cells(1).ReadOnly = False
|
|
DGVDatosReporte.CurrentRow.Cells(2).ReadOnly = False
|
|
DGVDatosReporte.CurrentRow.Cells(3).ReadOnly = False
|
|
DGVDatosReporte.CurrentRow.Cells(4).ReadOnly = False
|
|
|
|
Catch Err As Exception
|
|
MsgBox(Err.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub AgregaRenglonPM(PRazonSoc As String, PFechaConst As String, PRFC As String, TipoOperacion As String, InstrMonet As String, Cuenta As String, Monto As String, Moneda As String, Fecha As String, NumReferencia As String)
|
|
Dim UltRen As Integer
|
|
Dim DT As New DataGridViewRow
|
|
Try
|
|
DGVBuscaDatos.Columns.Clear()
|
|
UltRen = DGVDatosReporte.Rows.Count
|
|
DT.CreateCells(DGVDatosReporte)
|
|
DT.Cells(0).Value = PRazonSoc 'Nombre
|
|
DT.Cells(1).Value = PFechaConst 'Apellido Paterno
|
|
DT.Cells(2).Value = PRFC 'RFC
|
|
|
|
DT.Cells(3).Value = TipoOperacion '
|
|
DT.Cells(4).Value = InstrMonet '
|
|
DT.Cells(5).Value = Cuenta '
|
|
DT.Cells(6).Value = Monto '
|
|
DT.Cells(7).Value = Moneda '
|
|
DT.Cells(8).Value = Fecha '
|
|
DT.Cells(9).Value = NumReferencia '
|
|
|
|
DGVDatosReporte.Rows.Insert(UltRen, DT)
|
|
DGVDatosReporte.CurrentRow.Cells(0).ReadOnly = False
|
|
DGVDatosReporte.CurrentRow.Cells(1).ReadOnly = False
|
|
DGVDatosReporte.CurrentRow.Cells(2).ReadOnly = False
|
|
|
|
Catch Err As Exception
|
|
MsgBox(Err.Message)
|
|
End Try
|
|
End Sub
|
|
Private Sub AgregaRenglonFI(PRazonSoc As String, NumRef As String, PRFC As String, TipoOperacion As String, InstrMonet As String, Cuenta As String, Monto As String, Moneda As String, Fecha As String, NumReferencia As String)
|
|
Dim UltRen As Integer
|
|
Dim DT As New DataGridViewRow
|
|
Try
|
|
DGVBuscaDatos.Columns.Clear()
|
|
UltRen = DGVDatosReporte.Rows.Count
|
|
DT.CreateCells(DGVDatosReporte)
|
|
DT.Cells(0).Value = PRazonSoc 'Nombre
|
|
DT.Cells(1).Value = NumRef 'Apellido Paterno
|
|
DT.Cells(2).Value = PRFC 'RFC
|
|
|
|
DT.Cells(3).Value = TipoOperacion '
|
|
DT.Cells(4).Value = InstrMonet '
|
|
DT.Cells(5).Value = Cuenta '
|
|
DT.Cells(6).Value = Monto '
|
|
DT.Cells(7).Value = Moneda '
|
|
DT.Cells(8).Value = Fecha '
|
|
DT.Cells(9).Value = NumReferencia '
|
|
|
|
DGVDatosReporte.Rows.Insert(UltRen, DT)
|
|
DGVDatosReporte.CurrentRow.Cells(0).ReadOnly = False
|
|
DGVDatosReporte.CurrentRow.Cells(1).ReadOnly = False
|
|
DGVDatosReporte.CurrentRow.Cells(2).ReadOnly = False
|
|
|
|
Catch Err As Exception
|
|
MsgBox(Err.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub DGVOperaciones_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVOperaciones.CellContentClick
|
|
'IdCte = DGVClientes.Rows(DGVClientes.CurrentRow.Index).Cells("IDCLIENTE").Value()
|
|
|
|
End Sub
|
|
|
|
Private Sub DGVBuscaDatos_CellDoubleClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVBuscaDatos.CellDoubleClick
|
|
Dim Sql As String = ""
|
|
Dim DsReporte As New DataSet
|
|
Dim DsCliente As New DataSet
|
|
Dim DsOperaciones As New DataSet
|
|
Dim ClsCom As New clsComplejo
|
|
Dim i As Integer = 0
|
|
Dim IdPais As Integer = 0
|
|
Dim IdTipoPersonaBusc As Integer
|
|
Dim Anio As String = ""
|
|
Dim Consecutivo As String = ""
|
|
Dim Nombre As String
|
|
Dim ApePat As String
|
|
Dim ApeMat As String
|
|
Dim Curp As String
|
|
Dim RFC As String
|
|
Dim RazonSocial As String
|
|
Dim FeConstitucion As String
|
|
Dim NumReferencia As String
|
|
''Datos de las Operaciones
|
|
Dim TipoOperacion As String
|
|
Dim Cuenta As String
|
|
Dim InstrMonet As String
|
|
Dim Monto As Double
|
|
Dim IdMoneda As String
|
|
Dim Moneda As String
|
|
Dim Fecha As String
|
|
Dim NumRef As String
|
|
|
|
Dim Status As String = ""
|
|
|
|
Dim IdClien As Integer = 0
|
|
|
|
DGVDatosReporte.Columns.Clear()
|
|
|
|
TxtFolioBusca.Text = DGVBuscaDatos.Rows(DGVBuscaDatos.CurrentRow.Index).Cells("FOLIO").Value()
|
|
|
|
Sql = "SELECT ANIO,CONSECUTIVO,ID_ORG_REGULADOR,ID_ENTIDAD_EMISORA,FOLIO," & _
|
|
"FECHA_RECEP_SOLIC,ENTIDAD_EXTRAN_SOLIC,ID_PAIS_ENT_EXTRAN,CARGO_FUNC_ENT_EXT," & _
|
|
"CARGO_FUNC_RECEP,NOMBRE_ARCHIVO,STATUS,IDTIPOPERSONA,IDCLIENTE FROM IEF_REPORTE_ENT_EXT " & _
|
|
"WHERE FOLIO = '" & TxtFolioBusca.Text.Trim & "'"
|
|
DsReporte = ClsCom.fdtDataSet(Sql)
|
|
|
|
'Datos Generales del Reporte
|
|
If DsReporte.Tables(0).Rows.Count > 0 Then
|
|
TxtFolio.Text = DsReporte.Tables(0).Rows(0).Item("FOLIO")
|
|
CboOrgRegulador.SelectedValue = DsReporte.Tables(0).Rows(0).Item("ID_ORG_REGULADOR")
|
|
CboEntidad.SelectedValue = DsReporte.Tables(0).Rows(0).Item("ID_ENTIDAD_EMISORA")
|
|
dtpFechaRecepcion.Value = CDate(DsReporte.Tables(0).Rows(0).Item("FECHA_RECEP_SOLIC"))
|
|
TxtNomEntExt.Text = DsReporte.Tables(0).Rows(0).Item("ENTIDAD_EXTRAN_SOLIC")
|
|
IdPais = RegresaDato("CAT_PAIS", "ISO", "IDPAIS", DsReporte.Tables(0).Rows(0).Item("ID_PAIS_ENT_EXTRAN"))
|
|
CmbPais.SelectedValue = IdPais
|
|
TxtCargoFuncExtra.Text = DsReporte.Tables(0).Rows(0).Item("CARGO_FUNC_ENT_EXT")
|
|
TxtCargoFuncVaDirigido.Text = DsReporte.Tables(0).Rows(0).Item("CARGO_FUNC_RECEP")
|
|
TxtArchivoAnexo.Text = DsReporte.Tables(0).Rows(0).Item("NOMBRE_ARCHIVO")
|
|
Anio = DsReporte.Tables(0).Rows(0).Item("ANIO")
|
|
Consecutivo = DsReporte.Tables(0).Rows(0).Item("CONSECUTIVO")
|
|
IdTipoPersonaBusc = DsReporte.Tables(0).Rows(0).Item("IDTIPOPERSONA")
|
|
|
|
Status = DsReporte.Tables(0).Rows(0).Item("STATUS")
|
|
If Status = "ENVIADO" Then
|
|
GroupBox1.Enabled = False
|
|
CmdGuardar.Enabled = False
|
|
BTGenerar.Enabled = False
|
|
LblReporte.Visible = True
|
|
Else
|
|
GroupBox1.Enabled = True
|
|
GroupBox1.Enabled = True
|
|
CmdGuardar.Enabled = True
|
|
BTGenerar.Enabled = True
|
|
LblReporte.Visible = False
|
|
End If
|
|
GroupBox2.Enabled = True
|
|
|
|
If IdTipoPersonaBusc = 1 Then
|
|
'PERSONA FISICA
|
|
CboTipoPersona.Text = "PERSONA FISICA"
|
|
ElseIf IdTipoPersonaBusc = 2 Then
|
|
'PERSONA MORAL
|
|
Try
|
|
CboTipoPersona.Text = "PERSONA MORAL"
|
|
Catch err As Exception
|
|
End Try
|
|
ElseIf IdTipoPersonaBusc = 3 Then
|
|
'FIDEICOMISO
|
|
Try
|
|
CboTipoPersona.Text = "FIDEICOMISO"
|
|
Catch err As Exception
|
|
End Try
|
|
End If
|
|
TxtIdCliente.Text = DsReporte.Tables(0).Rows(0).Item("IDCLIENTE")
|
|
IdClien = DsReporte.Tables(0).Rows(0).Item("IDCLIENTE")
|
|
End If
|
|
|
|
'Llena los datos del cliente (Grid Cliente)
|
|
DGVClientes.Visible = False
|
|
Llenagrid()
|
|
For i = 0 To DGVClientes.Rows.Count - 1
|
|
DGVClientes.CurrentCell = DGVClientes.Rows(i).Cells(1)
|
|
DGVClientes.Refresh()
|
|
If DGVClientes.Rows(DGVClientes.CurrentRow.Index).Cells("IDCLIENTE").Value() = IdClien Then
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
DGVClientes.Visible = True
|
|
|
|
'Llenar Operaciones
|
|
LlenaOperaciones(IdClien, "GRIDBUSCA")
|
|
'Llenar ENIVIADOS
|
|
|
|
Sql = "SELECT NOMBRE,APE_PATERNO,APE_MATERNO,CURP,RFC_PF," & _
|
|
"RAZON_SOC_PM,FECHA_CONSTITUCION FECHAACTA,RFC_PM, " & _
|
|
"RAZON_SOC_FI,NUMEROREFERENCIA as NUM_REFERENCIA_FI,RFC_FI, " & _
|
|
"RO.ANIO, RO.CONSECUTIVO, ID_TIPO_OPERACION, ID_INSTR_MONETARIO, " & _
|
|
"NUM_CTA_CONTRATO,MONTO_OPERACIONES,ID_MONEDA_DIVISA,FECHA_HORA_OPERACIONES,NUMEROREFERENCIA " & _
|
|
"FROM IEF_REPORTE_OPERACIONES RO INNER JOIN IEF_DATOS_PERSONA DP " & _
|
|
"ON RO.ANIO = DP.ANIO AND RO.CONSECUTIVO = DP.CONSECUTIVO " & _
|
|
"WHERE RO.ANIO = " & Anio & " AND RO.CONSECUTIVO = " & Consecutivo & ""
|
|
DsOperaciones = ClsCom.fdtDataSet(Sql)
|
|
|
|
If DsOperaciones.Tables(0).Rows.Count > 0 Then
|
|
|
|
TxtFolio.Text = DsOperaciones.Tables(0).Rows(0).Item("ANIO") & "-" & DsOperaciones.Tables(0).Rows(0).Item("CONSECUTIVO")
|
|
For i = 0 To DsOperaciones.Tables(0).Rows.Count - 1
|
|
Nombre = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("NOMBRE")), "", DsOperaciones.Tables(0).Rows(i).Item("NOMBRE"))
|
|
ApePat = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("APE_PATERNO")), "", DsOperaciones.Tables(0).Rows(i).Item("APE_PATERNO"))
|
|
ApeMat = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("APE_MATERNO")), "", DsOperaciones.Tables(0).Rows(i).Item("APE_MATERNO"))
|
|
Curp = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("CURP")), "", DsOperaciones.Tables(0).Rows(i).Item("CURP"))
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Then
|
|
RFC = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("RFC_PF")), "", DsOperaciones.Tables(0).Rows(i).Item("RFC_PF"))
|
|
RazonSocial = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("RAZON_SOC_FI")), "", DsOperaciones.Tables(0).Rows(i).Item("RAZON_SOC_FI"))
|
|
End If
|
|
If CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
RFC = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("RFC_PM")), "", DsOperaciones.Tables(0).Rows(i).Item("RFC_PM"))
|
|
RazonSocial = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("RAZON_SOC_PM")), "", DsOperaciones.Tables(0).Rows(i).Item("RAZON_SOC_PM"))
|
|
End If
|
|
If CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
RFC = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("RFC_FI")), "", DsOperaciones.Tables(0).Rows(i).Item("RFC_FI"))
|
|
RazonSocial = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("RAZON_SOC_FI")), "", DsOperaciones.Tables(0).Rows(i).Item("RAZON_SOC_FI"))
|
|
End If
|
|
|
|
TipoOperacion = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("ID_TIPO_OPERACION")), "", DsOperaciones.Tables(0).Rows(i).Item("ID_TIPO_OPERACION"))
|
|
InstrMonet = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("ID_INSTR_MONETARIO")), "", DsOperaciones.Tables(0).Rows(i).Item("ID_INSTR_MONETARIO"))
|
|
Cuenta = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("NUM_CTA_CONTRATO")), "", DsOperaciones.Tables(0).Rows(i).Item("NUM_CTA_CONTRATO"))
|
|
Monto = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("MONTO_OPERACIONES")), "", DsOperaciones.Tables(0).Rows(i).Item("MONTO_OPERACIONES"))
|
|
Moneda = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("ID_MONEDA_DIVISA")), 0, DsOperaciones.Tables(0).Rows(i).Item("ID_MONEDA_DIVISA"))
|
|
Fecha = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("FECHA_HORA_OPERACIONES")), "", DsOperaciones.Tables(0).Rows(i).Item("FECHA_HORA_OPERACIONES"))
|
|
NumRef = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("NUMEROREFERENCIA")), "", DsOperaciones.Tables(0).Rows(i).Item("NUMEROREFERENCIA"))
|
|
FeConstitucion = IIf(IsDBNull(DsOperaciones.Tables(0).Rows(i).Item("FECHAACTA")), "1900/01/01", DsOperaciones.Tables(0).Rows(i).Item("FECHAACTA"))
|
|
NumReferencia = NumRef
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Then
|
|
AgregaRenglonPF(Nombre, ApePat, ApeMat, Curp, RFC, TipoOperacion, InstrMonet, Cuenta, Monto, Moneda, Fecha)
|
|
End If
|
|
If CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
AgregaRenglonPM(RazonSocial, FeConstitucion, RFC, TipoOperacion, InstrMonet, Cuenta, Monto, Moneda, Fecha, NumRef)
|
|
End If
|
|
If CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
AgregaRenglonFI(RazonSocial, NumReferencia, RFC, TipoOperacion, InstrMonet, Cuenta, Monto, Moneda, Fecha, NumRef)
|
|
End If
|
|
Next i
|
|
End If
|
|
DGVDatosReporte.Columns("FECHA").Visible = False
|
|
DGVDatosReporte.Columns("MONEDA").Visible = False
|
|
TxtAccion.Text = "CAMBIO"
|
|
End Sub
|
|
Private Sub CmdNuevo_Click(sender As System.Object, e As System.EventArgs) Handles CmdNuevo.Click
|
|
LimpiarControles()
|
|
TxtAccion.Text = "ALTA"
|
|
GroupBox1.Enabled = True
|
|
CmdGuardar.Enabled = True
|
|
BTGenerar.Enabled = True
|
|
LblReporte.Visible = False
|
|
End Sub
|
|
Private Sub LimpiarControles()
|
|
TxtFolio.Text = ""
|
|
CboOrgRegulador.SelectedIndex = 0
|
|
CboEntidad.SelectedIndex = 0
|
|
dtpFechaRecepcion.Value = Now
|
|
TxtNomEntExt.Text = ""
|
|
CmbPais.SelectedIndex = 0
|
|
TxtCargoFuncExtra.Text = ""
|
|
TxtCargoFuncVaDirigido.Text = ""
|
|
TxtArchivoAnexo.Text = ""
|
|
'CboTipoPersona.SelectedIndex = 0
|
|
DGVClientes.DataSource = Nothing
|
|
DGVOperaciones.DataSource = Nothing
|
|
DGVDatosReporte.Rows.Clear()
|
|
DGVDatosReporte.Columns.Clear()
|
|
DGVBuscaDatos.DataSource = Nothing
|
|
TxtIdCliente.Text = ""
|
|
TxtFolioBusca.Text = ""
|
|
End Sub
|
|
Private Sub TxtBuscaCliente_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtBuscaCliente.TextChanged
|
|
If TxtBuscaCliente.Text.Trim().Length > 0 Then
|
|
If CboTipoPersona.SelectedIndex = -1 Then
|
|
MsgBox("Seleccione un tipo de persona", MsgBoxStyle.Critical)
|
|
TxtBuscaCliente.Text = ""
|
|
Exit Sub
|
|
End If
|
|
|
|
|
|
LlenagridBCliente(TxtBuscaCliente.Text)
|
|
Else
|
|
If CboTipoPersona.SelectedIndex > -1 Then
|
|
Llenagrid()
|
|
End If
|
|
End If
|
|
End Sub
|
|
Private Sub LlenagridBCliente(Cadena As String)
|
|
Dim Classcom As New clsComplejo
|
|
Dim ClassCatalogos As New ClassCatalogos
|
|
Dim SQL As String
|
|
Dim FILA As DataRow
|
|
Dim DsDias As New DataSet
|
|
Try
|
|
'LLENA GRID
|
|
SQL = "SELECT IDCLIENTE,NIC, NOMBREORAZONS FROM CLIENTE "
|
|
'PERSONA FISICA TIPOPERSONA = 1 BRANCH = '01'
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Then
|
|
SQL = SQL & "WHERE IDTIPOPERSONA = 1 AND NOMBREORAZONS LIKE '" & Cadena & " %'"
|
|
AgregaColumnasOperaciones("PERSONA FISICA")
|
|
End If
|
|
'PERSONA MORAL TIPOPERSONA = 2 BRANCH = '01'
|
|
If CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
SQL = SQL & "WHERE IDTIPOPERSONA = 2 AND NOMBREORAZONS LIKE '" & Cadena & "%'"
|
|
AgregaColumnasOperaciones("PERSONA MORAL")
|
|
End If
|
|
'FIDEICOMISO TIPOPERSONA = 2 BRANCH = ISNULL
|
|
If CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
SQL = SQL & "WHERE NOMBREORAZONS LIKE '" & Cadena & "%'"
|
|
AgregaColumnasOperaciones("FIDEICOMISO")
|
|
End If
|
|
|
|
DsDias = Classcom.fdtDataSet(SQL)
|
|
DGVClientes.DataSource = DsDias.Tables(0)
|
|
DGVClientes.Columns("IDCLIENTE").Visible = False
|
|
DGVClientes.Columns("NOMBREORAZONS").Width = 500
|
|
DGVClientes.Columns("NIC").Width = 60
|
|
Catch ex As Exception
|
|
MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub LlenagridBNic(Cadena As String)
|
|
Dim Classcom As New clsComplejo
|
|
Dim ClassCatalogos As New ClassCatalogos
|
|
Dim SQL As String
|
|
Dim FILA As DataRow
|
|
Dim DsDias As New DataSet
|
|
Try
|
|
'LLENA GRID
|
|
SQL = "SELECT IDCLIENTE,NIC, NOMBREORAZONS FROM CLIENTE "
|
|
'PERSONA FISICA TIPOPERSONA = 1 BRANCH = '01'
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Then
|
|
SQL = SQL & "WHERE IDTIPOPERSONA = 2 AND NIC LIKE '" & Cadena & "%'"
|
|
AgregaColumnasOperaciones("PERSONA FISICA")
|
|
End If
|
|
'PERSONA MORAL TIPOPERSONA = 2 BRANCH = '01'
|
|
If CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
SQL = SQL & "WHERE IDTIPOPERSONA = 1 AND NIC LIKE '" & Cadena & "%'"
|
|
AgregaColumnasOperaciones("PERSONA MORAL")
|
|
End If
|
|
'FIDEICOMISO TIPOPERSONA = 2 BRANCH = ISNULL
|
|
If CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
SQL = SQL & "WHERE NIC LIKE '" & Cadena & "%'"
|
|
AgregaColumnasOperaciones("FIDEICOMISO")
|
|
End If
|
|
|
|
DsDias = Classcom.fdtDataSet(SQL)
|
|
DGVClientes.DataSource = DsDias.Tables(0)
|
|
DGVClientes.Columns("IDCLIENTE").Visible = False
|
|
DGVClientes.Columns("NOMBREORAZONS").Width = 500
|
|
DGVClientes.Columns("NIC").Width = 60
|
|
Catch ex As Exception
|
|
MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TxtNic_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtNic.TextChanged
|
|
If TxtNic.Text.Trim().Length > 0 Then
|
|
If CboTipoPersona.SelectedIndex = -1 Then
|
|
MsgBox("Seleccione un tipo de persona", MsgBoxStyle.Critical)
|
|
TxtNic.Text = ""
|
|
Exit Sub
|
|
End If
|
|
LlenagridBNic(TxtNic.Text)
|
|
Else
|
|
If CboTipoPersona.SelectedIndex > -1 Then
|
|
Llenagrid()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LlenagridBFechas(Cadena As String)
|
|
Dim Classcom As New clsComplejo
|
|
Dim ClassCatalogos As New ClassCatalogos
|
|
Dim SQL As String
|
|
Dim FILA As DataRow
|
|
Dim DsDias As New DataSet
|
|
Try
|
|
If DTOperFeInicio.Value > DTOperFeFin.Value Then
|
|
MsgBox("La fecha inicio no puede ser mayor a la fecha Final", MsgBoxStyle.Critical)
|
|
Exit Sub
|
|
End If
|
|
'LLENA GRID
|
|
SQL = "SELECT IDCLIENTE,NIC, RAZONSOCIAL FROM CLIENTE "
|
|
'PERSONA FISICA TIPOPERSONA = 1 BRANCH = '01'
|
|
If CboTipoPersona.Text = "PERSONA FISICA" Then
|
|
SQL = SQL & "WHERE IDTIPOPERSONA = 1 AND BRANCH_ID IS NOT NULL AND NIC LIKE '" & Cadena & " %'"
|
|
AgregaColumnasOperaciones("PERSONA FISICA")
|
|
End If
|
|
'PERSONA MORAL TIPOPERSONA = 2 BRANCH = '01'
|
|
If CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
SQL = SQL & "WHERE IDTIPOPERSONA = 2 AND BRANCH_ID IS NOT NULL AND NIC LIKE '" & Cadena & "%'"
|
|
AgregaColumnasOperaciones("PERSONA MORAL")
|
|
End If
|
|
'FIDEICOMISO TIPOPERSONA = 2 BRANCH = ISNULL
|
|
If CboTipoPersona.Text = "FIDEICOMISO" Then
|
|
SQL = SQL & "WHERE BRANCH_ID IS NULL AND NIC LIKE '" & Cadena & "%'"
|
|
AgregaColumnasOperaciones("FIDEICOMISO")
|
|
End If
|
|
|
|
DsDias = Classcom.fdtDataSet(SQL)
|
|
DGVClientes.DataSource = DsDias.Tables(0)
|
|
DGVClientes.Columns("IDCLIENTE").Visible = False
|
|
DGVClientes.Columns("RAZONSOCIAL").Width = 500
|
|
DGVClientes.Columns("NIC").Width = 60
|
|
Catch ex As Exception
|
|
MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub CmdBuscarFechas_Click(sender As System.Object, e As System.EventArgs) Handles CmdBuscarFechas.Click
|
|
Dim Sql As String = ""
|
|
Dim DsBusca As New DataSet
|
|
Dim ClsCom As New clsComplejo
|
|
|
|
TxtFolioBusca.Text = ""
|
|
If DTPFeRecInicio.Value.ToString("yyyyMMdd") > DTPFeRecFin.Value.ToString("yyyyMMdd") Then
|
|
MsgBox("La fecha inicio no puede ser mayor a la fecha Final", MsgBoxStyle.Critical)
|
|
Exit Sub
|
|
End If
|
|
'DGVDatosReporte.Columns.Clear()
|
|
Sql = "SELECT ANIO,CONSECUTIVO,FOLIO,ENTIDAD_EXTRAN_SOLIC,FECHA_RECEP_SOLIC " &
|
|
"FROM IEF_REPORTE_ENT_EXT WHERE FECHA_RECEP_SOLIC BETWEEN CONVERT(DATETIME,'" & DTPFeRecInicio.Value.Date & "', 103) AND CONVERT(DATETIME,'" & DTPFeRecFin.Value.Date & "', 103) "
|
|
DsBusca = ClsCom.fdtDataSet(Sql)
|
|
DGVBuscaDatos.DataSource = DsBusca.Tables(0)
|
|
|
|
DGVBuscaDatos.Columns("ANIO").Visible = False
|
|
DGVBuscaDatos.Columns("CONSECUTIVO").Visible = False
|
|
DGVBuscaDatos.Columns("FOLIO").Width = 80
|
|
DGVBuscaDatos.Columns("ENTIDAD_EXTRAN_SOLIC").Width = 300
|
|
DGVBuscaDatos.Columns("FECHA_RECEP_SOLIC").Width = 100
|
|
|
|
End Sub
|
|
Private Sub DGVDatosReporte_CellDoubleClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVDatosReporte.CellDoubleClick
|
|
Dim RenAct As Integer
|
|
Dim Respuesta As String
|
|
Respuesta = MsgBox("¿ Desea eliminar el registro seleccionado ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question)
|
|
If Respuesta = vbNo Then Exit Sub
|
|
'DGVOperaciones.CurrentRow.Index
|
|
RenAct = DGVDatosReporte.CurrentRow.Index
|
|
DGVDatosReporte.Rows.RemoveAt(RenAct)
|
|
DGVDatosReporte.Refresh()
|
|
End Sub
|
|
Private Function ValidarExpresion(Cadena As String, Expresion As String) As Boolean
|
|
Dim Resultado As Boolean
|
|
'Dim ER As New System.Text.RegularExpressions.Regex("[AB]([0-9]{9})")
|
|
Dim ER As New System.Text.RegularExpressions.Regex(Expresion)
|
|
Resultado = ER.IsMatch(Cadena)
|
|
Return Resultado
|
|
End Function
|
|
'Private Sub TxtArchivoAnexo_LostFocus(sender As Object, e As System.EventArgs) Handles TxtArchivoAnexo.LostFocus
|
|
' '[A-Z\d_]{1,90}
|
|
' 'If ValidarExpresion(TxtArchivoAnexo.Text, "^([\w-]+\.)*?[\w-]+@[\w-]+\.([\w-]+\.)*?[\w]+$") = False Then
|
|
' If ValidarExpresion(TxtArchivoAnexo.Text, "[A-Z\d_]{1,90}") = False Then
|
|
' MsgBox("Se ha detectado un caracter invalido, verifique por favor")
|
|
' End If
|
|
'End Sub
|
|
Private Sub TxtNomEntExt_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNomEntExt.KeyPress
|
|
' Lista con los caracteres que deseo permitir.
|
|
Dim caracteresPermitidos As String = "0123456789 ABCDEFGHIJKLMNÑOPQRSTUVWXYZ#-.,&_@'" & Convert.ToChar(8)
|
|
' Carácter presionado.
|
|
Dim c As Char = UCase(e.KeyChar)
|
|
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
|
|
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
|
|
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: 0123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ#-.,&_@'", "ERROR de escritura", _
|
|
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
|
' Deshechamos el carácter
|
|
e.Handled = True
|
|
End If
|
|
End Sub
|
|
Private Sub TxtCargoFuncExtra_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtCargoFuncExtra.KeyPress
|
|
' Lista con los caracteres que deseo permitir.
|
|
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '." & Convert.ToChar(8)
|
|
' Carácter presionado.
|
|
Dim c As Char = UCase(e.KeyChar)
|
|
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
|
|
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
|
|
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.", "ERROR de escritura", _
|
|
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
|
' Deshechamos el carácter
|
|
e.Handled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TxtCargoFuncVaDirigido_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtCargoFuncVaDirigido.KeyPress
|
|
' Lista con los caracteres que deseo permitir.
|
|
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '." & Convert.ToChar(8)
|
|
' Carácter presionado.
|
|
Dim c As Char = UCase(e.KeyChar)
|
|
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
|
|
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
|
|
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.", "ERROR de escritura", _
|
|
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
|
' Deshechamos el carácter
|
|
e.Handled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TxtArchivoAnexo_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtArchivoAnexo.KeyPress
|
|
' Lista con los caracteres que deseo permitir.
|
|
Dim caracteresPermitidos As String = "0123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ_" & Convert.ToChar(8)
|
|
' Carácter presionado.
|
|
Dim c As Char = UCase(e.KeyChar)
|
|
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
|
|
' ctrl-x ctrl-v ctrl-c
|
|
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
|
|
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: 0123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ_", "ERROR de escritura", _
|
|
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
|
' Deshechamos el carácter
|
|
e.Handled = True
|
|
End If
|
|
End Sub
|
|
Private Function CaracteresNoValidos(Cadena As String, TipoCarctPermitidos As Integer) As Boolean
|
|
Dim caracteresPermitidos As String
|
|
Dim Resultado As Boolean = False
|
|
Dim C As String = ""
|
|
Dim i As Integer
|
|
|
|
Select Case TipoCarctPermitidos
|
|
Case 1
|
|
caracteresPermitidos = "0123456789 ABCDEFGHIJKLMNÑOPQRSTUVWXYZ#-.,&_@'" & Convert.ToChar(8)
|
|
Case 2
|
|
caracteresPermitidos = "0123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ_" & Convert.ToChar(8)
|
|
Case 3
|
|
caracteresPermitidos = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '." & Convert.ToChar(8)
|
|
End Select
|
|
|
|
For i = 1 To Cadena.Length
|
|
C = Mid(Cadena, i, 1)
|
|
If (Not (caracteresPermitidos.Contains(C))) Then
|
|
Resultado = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
Return Resultado
|
|
End Function
|
|
Private Function ReemplazaCaracNoValidos(Cadena As String, TipoCarctPermitidos As Integer) As String
|
|
Dim caracteresPermitidos As String
|
|
Dim Auxiliar As String
|
|
Dim Resultado As String
|
|
Dim C As String = ""
|
|
Dim i As Integer
|
|
|
|
Auxiliar = Cadena.Trim
|
|
Select Case TipoCarctPermitidos
|
|
Case 1
|
|
caracteresPermitidos = "0123456789 ABCDEFGHIJKLMNÑOPQRSTUVWXYZ#-.,&_@'" & Convert.ToChar(8)
|
|
Case 2
|
|
caracteresPermitidos = "0123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ_" & Convert.ToChar(8)
|
|
Case 3
|
|
caracteresPermitidos = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '." & Convert.ToChar(8)
|
|
End Select
|
|
|
|
For i = 1 To Cadena.Length
|
|
C = Mid(Cadena, i, 1)
|
|
If (Not (caracteresPermitidos.Contains(C))) Then
|
|
Auxiliar = Replace(Auxiliar, C, "")
|
|
End If
|
|
Next
|
|
Return Auxiliar
|
|
End Function
|
|
Private Function VALIDACIONES() As Boolean
|
|
Dim retval As Boolean = False
|
|
Dim Mensajes As String = Nothing
|
|
|
|
'--------------------------------- ERRORES --------------------------------
|
|
If CboEntidad.Text = "Seleccionar Entidad" Then
|
|
Mensajes = Mensajes & "Es necesario seleccionar la entidad" & Chr(13)
|
|
End If
|
|
'If TxtFolio.Text = "" Then
|
|
' Mensajes = Mensajes & "Hace Falta el Número de Folio" & Chr(13)
|
|
'End If
|
|
If TxtNomEntExt.Text = "" Then
|
|
Mensajes = Mensajes & "Es necesario capturar el nombre de la entidad extranjera" & Chr(13)
|
|
End If
|
|
If CaracteresNoValidos(TxtNomEntExt.Text, 1) = True Then
|
|
Mensajes = Mensajes & "Caracter invalido en el nombre de la entidad extranjera" & Chr(13)
|
|
End If
|
|
If CmbPais.Text = "Seleccionar Pais" Then
|
|
Mensajes = Mensajes & "Es necesario seleccionar el país de la entidad extranjera" & Chr(13)
|
|
End If
|
|
If CmbPais.Text = "Ninguno" Then
|
|
Mensajes = Mensajes & "Es necesario seleccionar el país de la entidad extranjera" & Chr(13)
|
|
End If
|
|
If TxtCargoFuncExtra.Text = "" Then
|
|
Mensajes = Mensajes & "Es necesario capturar el cargo del funcionario extranjero" & Chr(13)
|
|
End If
|
|
If CaracteresNoValidos(TxtCargoFuncExtra.Text, 3) = True Then
|
|
Mensajes = Mensajes & "Caracter invalido en el cargo del funcionario extranjero" & Chr(13)
|
|
End If
|
|
If TxtCargoFuncVaDirigido.Text = "" Then
|
|
Mensajes = Mensajes & "Es necesario capturar el cargo del funcionario a quien va dirigido" & Chr(13)
|
|
End If
|
|
If CaracteresNoValidos(TxtCargoFuncVaDirigido.Text, 3) = True Then
|
|
Mensajes = Mensajes & "Carácter invalido en el cargo del funcionario a quien va dirigido" & Chr(13)
|
|
End If
|
|
If TxtArchivoAnexo.Text = "" Then
|
|
Mensajes = Mensajes & "Es necesario capturar el nombre del archivo anexo A" & Chr(13)
|
|
End If
|
|
If CaracteresNoValidos(TxtArchivoAnexo.Text, 2) = True Then
|
|
Mensajes = Mensajes & "Caracter invalido en el nombre del archivo anexo A" & Chr(13)
|
|
End If
|
|
'
|
|
If CboTipoPersona.Text = "Seleccionar Tipo de Persona" Then
|
|
Mensajes = Mensajes & "Es necesario seleccionar el tipo de persona" & Chr(13)
|
|
End If
|
|
|
|
'DGVOperaciones
|
|
If DGVOperaciones.Rows.Count = 0 Then
|
|
Mensajes = Mensajes & "Es necesario seleccionar algún cliente dando doble click en la lista clientes" & Chr(13)
|
|
End If
|
|
'DGVDatosReporte
|
|
If DGVDatosReporte.Rows.Count = 0 Then
|
|
Mensajes = Mensajes & "Es necesario seleccionar alguna operación dando doble click en la lista operaciones" & Chr(13)
|
|
End If
|
|
'---------------------------------------------------
|
|
If Mensajes IsNot Nothing Then
|
|
MsgBox(Mensajes, MsgBoxStyle.Exclamation, "Mensaje")
|
|
Else
|
|
retval = True
|
|
End If
|
|
Return retval
|
|
End Function
|
|
|
|
Private Sub dtpFechaRecepcion_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpFechaRecepcion.ValueChanged
|
|
Dim FechaHoy As Date
|
|
Dim FechaRecepcion As Date
|
|
FechaHoy = Now
|
|
FechaRecepcion = dtpFechaRecepcion.Value
|
|
If FechaRecepcion > FechaHoy Then
|
|
MsgBox("La fecha de recepción no puede ser mayor a la fecha de hoy", MsgBoxStyle.Critical)
|
|
Exit Sub
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CboTipoPersona_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles CboTipoPersona.SelectionChangeCommitted
|
|
'Try
|
|
' If CboTipoPersona.Text = "PERSONA MORAL" Then
|
|
' LblFeConst.Visible = True
|
|
' dtpFechaConstit.Visible = True
|
|
' Else
|
|
' LblFeConst.Visible = False
|
|
' dtpFechaConstit.Visible = False
|
|
' End If
|
|
|
|
' Llenagrid()
|
|
' 'DGVClientes.DataSource = Nothing
|
|
' DGVOperaciones.DataSource = Nothing
|
|
' DGVDatosReporte.Rows.Clear()
|
|
'Catch Err As Exception
|
|
' MsgBox(Err.Message, MsgBoxStyle.Critical)
|
|
'End Try
|
|
End Sub
|
|
|
|
Private Sub TxtNomEntExt_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtNomEntExt.TextChanged
|
|
If CaracteresNoValidos(TxtNomEntExt.Text, 1) = True Then
|
|
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
|
|
TxtNomEntExt.Text = ""
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TxtCargoFuncExtra_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtCargoFuncExtra.TextChanged
|
|
If CaracteresNoValidos(TxtCargoFuncExtra.Text, 3) = True Then
|
|
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
|
|
TxtCargoFuncExtra.Text = ""
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TxtCargoFuncVaDirigido_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtCargoFuncVaDirigido.TextChanged
|
|
If CaracteresNoValidos(TxtCargoFuncVaDirigido.Text, 3) = True Then
|
|
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
|
|
TxtCargoFuncVaDirigido.Text = ""
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TxtArchivoAnexo_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtArchivoAnexo.TextChanged
|
|
If CaracteresNoValidos(TxtArchivoAnexo.Text, 2) = True Then
|
|
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
|
|
TxtArchivoAnexo.Text = ""
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CmdEnviados_Click(sender As System.Object, e As System.EventArgs) Handles CmdEnviados.Click
|
|
Dim cLScPL As New clsComplejo
|
|
Dim Respuesta As String
|
|
Dim Sql As String = ""
|
|
Try
|
|
If TxtFolio.Text.Trim = "" Then
|
|
MsgBox("Seleccione un registro por favor", MsgBoxStyle.Exclamation)
|
|
Exit Sub
|
|
End If
|
|
Respuesta = MsgBox("¿ Desea marcar el registro como enviado ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question)
|
|
If Respuesta = vbNo Then Exit Sub
|
|
Sql = "UPDATE IEF_REPORTE_ENT_EXT SET STATUS = 'ENVIADO' WHERE FOLIO = '" & TxtFolio.Text & "' "
|
|
cLScPL.sbModifica2(Sql)
|
|
LblReporte.Visible = False
|
|
MsgBox("El registro se actualizo como enviado", MsgBoxStyle.Exclamation)
|
|
Catch Err As Exception
|
|
MsgBox(Err.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub CmdBuscar_Click(sender As System.Object, e As System.EventArgs) Handles CmdBuscar.Click
|
|
Dim Sql As String = ""
|
|
Dim DsBusca As New DataSet
|
|
Dim ClsCom As New clsComplejo
|
|
'DGVDatosReporte.Columns.Clear()
|
|
Sql = "SELECT ANIO,CONSECUTIVO,FOLIO,ENTIDAD_EXTRAN_SOLIC,FECHA_RECEP_SOLIC " & _
|
|
"FROM IEF_REPORTE_ENT_EXT WHERE FOLIO = '" & TxtFolioBusca.Text.Trim & "'"
|
|
DsBusca = ClsCom.fdtDataSet(Sql)
|
|
DGVBuscaDatos.DataSource = DsBusca.Tables(0)
|
|
|
|
DGVBuscaDatos.Columns("ANIO").Visible = False
|
|
DGVBuscaDatos.Columns("CONSECUTIVO").Visible = False
|
|
|
|
DGVBuscaDatos.Columns("FOLIO").Width = 80
|
|
DGVBuscaDatos.Columns("ENTIDAD_EXTRAN_SOLIC").Width = 300
|
|
DGVBuscaDatos.Columns("FECHA_RECEP_SOLIC").Width = 100
|
|
End Sub
|
|
|
|
|
|
Private Sub DGVBuscaDatos_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVBuscaDatos.CellContentClick
|
|
|
|
End Sub
|
|
End Class |