506 lines
34 KiB
VB.net
506 lines
34 KiB
VB.net
Public Class FrmDetalle
|
|
Dim _idFDE As Integer
|
|
Dim clCmp As clsComplejo = New clsComplejo
|
|
Dim clCmp1 As clsComplejo = New clsComplejo
|
|
Dim clCmpCombo As clsComplejo = New clsComplejo
|
|
Dim clCmpGrid As clsComplejo = New clsComplejo
|
|
Dim statusT, CadSQL As String
|
|
Public ValPeriodo As Boolean
|
|
Public Trimestre As String
|
|
|
|
Sub New(ByVal idFDE As Integer)
|
|
InitializeComponent()
|
|
|
|
_idFDE = idFDE
|
|
End Sub
|
|
|
|
Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click
|
|
|
|
Dim clCmp As clsComplejo = New clsComplejo
|
|
|
|
Dim formatTrimestre As String = String.Empty
|
|
|
|
Dim fec As String = Mid(txtFechaHora.Text, 1, 4) & "/" & Mid(txtFechaHora.Text, 5, 2) & "/" & Mid(txtFechaHora.Text, 7, 2)
|
|
Dim fecha As DateTime = Convert.ToDateTime(fec)
|
|
|
|
formatTrimestre = ValidateDate()
|
|
fecha = fecha.AddMonths(3)
|
|
|
|
CadSQL = "sp_InsertaFDE '" & formatTrimestre & "','" & txtClaveOrganoRegulador.Text.Trim & "','" & txtClaveEntidad.Text.Trim & "','" & _idFDE.ToString() & "'" _
|
|
& ",'" & fecha & "','" & txtTipoOperacion.Text.Trim & "','" & txtCuentaContrato.Text.Trim & "','" & txtMontoOperacion.Text.Trim & "','" & txtMoneda.Text.Trim & "'" _
|
|
& ",'" & txtIntrumentoMonetario.Text.Trim & "','" & txtCuentaContratoLiquidacion.Text.Trim & "','" & txtMontoOperacionLiquidacion.Text.Trim & "','" & txtMonedaLiquidacion.Text.Trim & "'" _
|
|
& ",'" & txtInstrumentoMonetarioLiquidacion.Text.Trim & "','" & txtClaveSucursal.Text.Trim & "','" & txtNombreComisionista.Text.Trim & "','" & txtDomicilioComisionista.Text.Trim & "'" _
|
|
& ",'" & txtNombreUsuario.Text.Trim & "','" & txtApellidoPaternoUsuario.Text.Trim & "','" & txtApellidoMaternoUsuario.Text.Trim & "','" & txtFechaNaciminetoUsuario.Text.Trim & "'" _
|
|
& ",'" & txtCurpUsuario.Text.Trim & "','" & txtRFCUsuario.Text.Trim & "','" & txtPaisNacimineto.Text.Trim & "','" & txtPaisNacionalidad.Text.Trim & "','" & txtDomicilioUnificado.Text.Trim & "'" _
|
|
& ",'" & txtCiudadPoblacion.Text.Trim & "','" & txtColonia.Text.Trim & "','" & txtEnitdadFederativa.Text.Trim & "','" & txtCodigoPostal.Text.Trim & "','" & txtCiudadPoblacionSeparado.Text.Trim & "'" _
|
|
& ",'" & txtDelegacionMunicipio.Text.Trim & "','" & txtColoniaSeparado.Text.Trim & "','" & txtCalle.Text.Trim & "','" & txtNumeroExterior.Text.Trim & "','" & txtNumeroInterior.Text.Trim & "'" _
|
|
& ",'" & txtPaisUsuarioExtranjero.Text.Trim & "','" & txtUsuarioDomicilioUnificado.Text.Trim & "','" & txtUsuarioCiudadPoblacion.Text.Trim & "','" & txtUsuarioColonia.Text.Trim & "'" _
|
|
& ",'" & txtUsuarioSeparadoEstadoProvincia.Text.Trim & "','" & txtUsuarioSeparadoCodigoPostal.Text.Trim & "','" & txtUsuarioSeparadoCiudadPoblacion.Text.Trim & "','" & txtUsuarioSeparadoColonia.Text.Trim & "'" _
|
|
& ",'" & txtUsuarioSeparadoCalle.Text.Trim & "','" & txtUsuarioSeparadoNumeroExterior.Text.Trim & "','" & txtUsuarioSeparadoNumeroInterior.Text.Trim & "','" & txtTipoIdentificacion.Text.Trim & "'" _
|
|
& ",'" & txtNumeroIdentificacion.Text.Trim & "','" & txtClavePais.Text.Trim & "','" & txtNumeroTelefono.Text.Trim & "','" & txtExtension.Text.Trim & "','" & txtCorreoElectronico.Text.Trim & "'" _
|
|
& ",'" & txtFiel.Text.Trim & "','" & txtNombrePersonaFisica.Text.Trim & "','" & txtApellidoPaternoPersonaFisica.Text.Trim & "','" & txtApellidoMaternoPersonaFisica.Text.Trim & "'" _
|
|
& ",'" & txtFechaNaciminetoPersonaFisica.Text.Trim & "'" _
|
|
& ",'" & txtCurpPersonaFisica.Text.Trim & "'" _
|
|
& ",'" & txtRFCPersonaFisica.Text.Trim & "'" _
|
|
& ",'" & txtPaisNaciminetoPersonaFisica.Text.Trim & "'" _
|
|
& ",'" & txtPaisNacioalidadPersonaFisica.Text.Trim & "'" _
|
|
& ",'" & txtActividadEconomicaPersonaFisica.Text.Trim & "'" _
|
|
& ",'" & txtdomicilio_nacional_unificado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtciudad_poblacion_nacional_unificado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcolonia_nacional_unificado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtentidad_federativa_nacional_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcodigo_postal_nacional_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtciudad_poblacion_nacional_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtdelegacion_municipio_nacional_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcolonia_nacional_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcalle_nacional_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtnumero_exterior_nacional_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtnumero_interior_nacional_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtpais_extranjero_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtdomicilio_extranjero_unificado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtciudad_poblacion_extranjero_unificado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcolonia_extranjero_unificado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtestado_provincia_extranjero_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcodigo_postal_extranjero_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtciudad_poblacion_extranjero_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcolonia_extranjero_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcalle_extranjero_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtnumero_exterior_extranjero_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtnumero_interior_extranjero_separado_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtclave_pais_telefono_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtnumero_telefono_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtextension_telefono_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcorreo_electronico_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtfiel_pf_cliente.Text.Trim & "'" _
|
|
& ",'" & txtdenominacion_razon_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtfecha_constitucion_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtrfc_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtpais_nacionalidad_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtgiro_mercantil_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtdomicilio_nacional_unificado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtciudad_poblacion_nacional_unificado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcolonia_nacional_unificado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtentidad_federativa_nacional_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcodigo_postal_nacional_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtciudad_poblacion_nacional_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtdelegacion_municipio_nacional_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcolonia_nacional_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcalle_nacional_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtnumero_exterior_nacional_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtnumero_interior_nacional_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtpais_extranjero_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtdomicilio_extranjero_unificado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtciudad_poblacion_extranjero_unificado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcolonia_extranjero_unificado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtestado_provincia_extranjero_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcodigo_postal_extranjero_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtciudad_poblacion_extranjero_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcolonia_extranjero_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcalle_extranjero_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtnumero_exterior_extranjero_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtnumero_interior_extranjero_separado_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtclave_pais_telefono_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtnumero_telefono_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtextension_telefono_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtcorreo_electronico_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtfiel_pm_cliente.Text.Trim & "'" _
|
|
& ",'" & txtapoderado_legal_pm_cliente.Text.Trim & "'"
|
|
|
|
clCmp.fdtDataSetTabla(CadSQL)
|
|
|
|
'Bloquea los textobox despues de ingresar el registro
|
|
BlockControls()
|
|
|
|
'Bitacora
|
|
Dim Auditoria As New ClassMyUtils
|
|
Auditoria.RT_Auditoria(clsVaribles.varUsuario, 132, 30, "Creacion de registro Dolares en Efectivo del folio: " & _idFDE.ToString() & "")
|
|
|
|
MsgBox("Se actualizaron los datos", vbInformation, "Aviso")
|
|
|
|
End Sub
|
|
|
|
Private Sub FrmDetalle_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
Try
|
|
|
|
|
|
'Valida Textbox
|
|
If (ValPeriodo = False) Then
|
|
BlockControls()
|
|
End If
|
|
|
|
lblTrimestreReportado.Text = Trimestre.ToString()
|
|
|
|
CadSQL = "sp_ConsultaFDEIdFDE " & _idFDE
|
|
clCmp.fdtDataSetTabla(CadSQL)
|
|
Dim fila As DataRow
|
|
fila = clCmp.ds.Tables(0).Rows(0)
|
|
|
|
txtClaveOrganoRegulador.Text = IIf(IsDBNull(fila("clave_organo_regulador")), "", fila("clave_organo_regulador"))
|
|
txtClaveEntidad.Text = IIf(IsDBNull(fila("clave_entidad")), "", fila("clave_entidad"))
|
|
|
|
txtFolioConsecutivo.Text = IIf(IsDBNull(fila("folio_consecutivo")), "", fila("folio_consecutivo"))
|
|
txtFolioPrevio.Text = IIf(IsDBNull(fila("folio_previo")), "", fila("folio_previo"))
|
|
txtFechaHora.Text = IIf(IsDBNull(fila("fecha_hora")), "", fila("fecha_hora"))
|
|
txtTipoOperacion.Text = IIf(IsDBNull(fila("tipo_operacion")), "", fila("tipo_operacion"))
|
|
txtCuentaContrato.Text = IIf(IsDBNull(fila("cuenta_contrato")), "", fila("cuenta_contrato"))
|
|
|
|
txtMontoOperacion.Text = IIf(IsDBNull(fila("monto_operacion")), "", fila("monto_operacion"))
|
|
txtMoneda.Text = IIf(IsDBNull(fila("moneda")), "", fila("moneda"))
|
|
txtIntrumentoMonetario.Text = IIf(IsDBNull(fila("instrumento_monetario")), "", fila("instrumento_monetario"))
|
|
|
|
txtCuentaContratoLiquidacion.Text = IIf(IsDBNull(fila("cuenta_contrato_liquidacion")), "", fila("cuenta_contrato_liquidacion"))
|
|
txtMontoOperacionLiquidacion.Text = IIf(IsDBNull(fila("monto_operacion_liquidacion")), "", fila("monto_operacion_liquidacion"))
|
|
txtMonedaLiquidacion.Text = IIf(IsDBNull(fila("moneda_liquidacion")), "", fila("moneda_liquidacion"))
|
|
txtInstrumentoMonetarioLiquidacion.Text = IIf(IsDBNull(fila("instrumento_monetario_liquidacion")), "", fila("instrumento_monetario_liquidacion"))
|
|
|
|
txtClaveSucursal.Text = IIf(IsDBNull(fila("clave_sucursal")), "", fila("clave_sucursal"))
|
|
txtNombreComisionista.Text = IIf(IsDBNull(fila("nombre_comisionista")), "", fila("nombre_comisionista"))
|
|
txtDomicilioComisionista.Text = IIf(IsDBNull(fila("domicilio_comisionista")), "", fila("domicilio_comisionista"))
|
|
|
|
txtNombreUsuario.Text = IIf(IsDBNull(fila("nombre_usuario")), "", fila("nombre_usuario"))
|
|
txtApellidoPaternoUsuario.Text = IIf(IsDBNull(fila("apellido_paterno_usuario")), "", fila("apellido_paterno_usuario"))
|
|
txtApellidoMaternoUsuario.Text = IIf(IsDBNull(fila("apellido_materno_usuario")), "", fila("apellido_materno_usuario"))
|
|
txtFechaNaciminetoUsuario.Text = IIf(IsDBNull(fila("fecha_nacimiento_usuario")), "", fila("fecha_nacimiento_usuario"))
|
|
txtCurpUsuario.Text = IIf(IsDBNull(fila("curp_usuario")), "", fila("curp_usuario"))
|
|
txtRFCUsuario.Text = IIf(IsDBNull(fila("rfc_usuario")), "", fila("rfc_usuario"))
|
|
txtPaisNacimineto.Text = IIf(IsDBNull(fila("pais_nacimiento_usuario")), "", fila("pais_nacimiento_usuario"))
|
|
txtPaisNacionalidad.Text = IIf(IsDBNull(fila("pais_nacionalidad_usuario")), "", fila("pais_nacionalidad_usuario"))
|
|
|
|
'-----------
|
|
|
|
txtTipoIdentificacion.Text = IIf(IsDBNull(fila("tipo_identificacion_usuario")), "", fila("tipo_identificacion_usuario"))
|
|
txtNumeroIdentificacion.Text = IIf(IsDBNull(fila("numero_identificacion_usuario")), "", fila("numero_identificacion_usuario"))
|
|
txtClavePais.Text = IIf(IsDBNull(fila("clave_pais_telefono_usuario")), "", fila("clave_pais_telefono_usuario"))
|
|
txtNumeroTelefono.Text = IIf(IsDBNull(fila("numero_telefono_usuario")), "", fila("numero_telefono_usuario"))
|
|
txtExtension.Text = IIf(IsDBNull(fila("extension_telefono_usuario")), "", fila("extension_telefono_usuario"))
|
|
txtCorreoElectronico.Text = IIf(IsDBNull(fila("correo_electronico_usuario")), "", fila("correo_electronico_usuario"))
|
|
txtFiel.Text = IIf(IsDBNull(fila("fiel_usuario")), "", fila("fiel_usuario"))
|
|
|
|
'-----------
|
|
|
|
txtDomicilioUnificado.Text = IIf(IsDBNull(fila("domicilio_usuario_nacional_unificado")), "", fila("domicilio_usuario_nacional_unificado"))
|
|
txtCiudadPoblacion.Text = IIf(IsDBNull(fila("ciudad_poblacion_usuario_nacional_unificado")), "", fila("ciudad_poblacion_usuario_nacional_unificado"))
|
|
txtColonia.Text = IIf(IsDBNull(fila("colonia_usuario_nacional_unificado")), "", fila("colonia_usuario_nacional_unificado"))
|
|
txtEnitdadFederativa.Text = IIf(IsDBNull(fila("entidad_federativa_usuario_nacional_separado")), "", fila("entidad_federativa_usuario_nacional_separado"))
|
|
txtCodigoPostal.Text = IIf(IsDBNull(fila("codigo_postal_usuario_nacional_separado")), "", fila("codigo_postal_usuario_nacional_separado"))
|
|
txtCiudadPoblacionSeparado.Text = IIf(IsDBNull(fila("ciudad_poblacion_usuario_nacional_separado")), "", fila("ciudad_poblacion_usuario_nacional_separado"))
|
|
txtDelegacionMunicipio.Text = IIf(IsDBNull(fila("delegacion_municipio_usuario_nacional_separado")), "", fila("delegacion_municipio_usuario_nacional_separado"))
|
|
|
|
txtColoniaSeparado.Text = IIf(IsDBNull(fila("colonia_usuario_nacional_separado")), "", fila("colonia_usuario_nacional_separado"))
|
|
txtCalle.Text = IIf(IsDBNull(fila("calle_usuario_nacional_separado")), "", fila("calle_usuario_nacional_separado"))
|
|
txtNumeroExterior.Text = IIf(IsDBNull(fila("numero_exterior_usuario_extranjero_separado")), "", fila("numero_exterior_usuario_extranjero_separado"))
|
|
txtNumeroInterior.Text = IIf(IsDBNull(fila("numero_interior_usuario_extranjero_separado")), "", fila("numero_interior_usuario_extranjero_separado"))
|
|
|
|
'---------------
|
|
|
|
txtNombrePersonaFisica.Text = IIf(IsDBNull(fila("nombre_pf_cliente")), "", fila("nombre_pf_cliente"))
|
|
txtApellidoPaternoPersonaFisica.Text = IIf(IsDBNull(fila("apellido_paterno_pf_cliente")), "", fila("apellido_paterno_pf_cliente"))
|
|
txtApellidoMaternoPersonaFisica.Text = IIf(IsDBNull(fila("apellido_materno_pf_cliente")), "", fila("apellido_materno_pf_cliente"))
|
|
txtFechaNaciminetoPersonaFisica.Text = IIf(IsDBNull(fila("fecha_nacimiento_pf_cliente")), "", fila("fecha_nacimiento_pf_cliente"))
|
|
txtCurpPersonaFisica.Text = IIf(IsDBNull(fila("curp_pf_cliente")), "", fila("curp_pf_cliente"))
|
|
txtRFCPersonaFisica.Text = IIf(IsDBNull(fila("rfc_pf_cliente")), "", fila("rfc_pf_cliente"))
|
|
txtPaisNaciminetoPersonaFisica.Text = IIf(IsDBNull(fila("pais_nacimiento_pf_cliente")), "", fila("pais_nacimiento_pf_cliente"))
|
|
txtPaisNacioalidadPersonaFisica.Text = IIf(IsDBNull(fila("pais_nacionalidad_pf_cliente")), "", fila("pais_nacionalidad_pf_cliente"))
|
|
txtActividadEconomicaPersonaFisica.Text = IIf(IsDBNull(fila("actividad_economica_pf_cliente")), "", fila("actividad_economica_pf_cliente"))
|
|
|
|
'---------------------
|
|
'Usuario - Domicilio
|
|
|
|
txtPaisUsuarioExtranjero.Text = IIf(IsDBNull(fila("pais_usuario_extranjero")), "", fila("pais_usuario_extranjero"))
|
|
txtUsuarioDomicilioUnificado.Text = IIf(IsDBNull(fila("domicilio_usuario_extranjero_unificado")), "", fila("domicilio_usuario_extranjero_unificado"))
|
|
txtUsuarioCiudadPoblacion.Text = IIf(IsDBNull(fila("ciudad_poblacion_usuario_extranjero_unificado")), "", fila("ciudad_poblacion_usuario_extranjero_unificado"))
|
|
txtUsuarioColonia.Text = IIf(IsDBNull(fila("colonia_usuario_extranjero_unificado")), "", fila("colonia_usuario_extranjero_unificado"))
|
|
|
|
txtUsuarioSeparadoEstadoProvincia.Text = IIf(IsDBNull(fila("estado_provincia_usuario_extranjero_separado")), "", fila("estado_provincia_usuario_extranjero_separado"))
|
|
txtUsuarioSeparadoCodigoPostal.Text = IIf(IsDBNull(fila("codigo_postal_usuario_extranjero_separado")), "", fila("codigo_postal_usuario_extranjero_separado"))
|
|
txtUsuarioSeparadoCiudadPoblacion.Text = IIf(IsDBNull(fila("ciudad_poblacion_usuario_extranjero_separado")), "", fila("ciudad_poblacion_usuario_extranjero_separado"))
|
|
txtUsuarioSeparadoColonia.Text = IIf(IsDBNull(fila("colonia_usuario_extranjero_separado")), "", fila("colonia_usuario_extranjero_separado"))
|
|
txtUsuarioSeparadoCalle.Text = IIf(IsDBNull(fila("calle_usuario_extranjero_separado")), "", fila("calle_usuario_extranjero_separado"))
|
|
|
|
txtUsuarioSeparadoNumeroExterior.Text = IIf(IsDBNull(fila("numero_exterior_usuario_extranjero_separado")), "", fila("numero_exterior_usuario_extranjero_separado"))
|
|
txtUsuarioSeparadoNumeroInterior.Text = IIf(IsDBNull(fila("numero_interior_usuario_extranjero_separado")), "", fila("numero_interior_usuario_extranjero_separado"))
|
|
|
|
'--------------------------
|
|
|
|
txtclave_pais_telefono_pf_cliente.Text = IIf(IsDBNull(fila("clave_pais_telefono_pf_cliente")), "", fila("clave_pais_telefono_pf_cliente"))
|
|
txtnumero_telefono_pf_cliente.Text = IIf(IsDBNull(fila("numero_telefono_pf_cliente")), "", fila("numero_telefono_pf_cliente"))
|
|
txtextension_telefono_pf_cliente.Text = IIf(IsDBNull(fila("extension_telefono_pf_cliente")), "", fila("extension_telefono_pf_cliente"))
|
|
txtcorreo_electronico_pf_cliente.Text = IIf(IsDBNull(fila("correo_electronico_pf_cliente")), "", fila("correo_electronico_pf_cliente"))
|
|
txtfiel_pf_cliente.Text = IIf(IsDBNull(fila("fiel_pf_cliente")), "", fila("fiel_pf_cliente"))
|
|
|
|
'---------------------------
|
|
|
|
txtdenominacion_razon_pm_cliente.Text = IIf(IsDBNull(fila("denominacion_razon_pm_cliente")), "", fila("denominacion_razon_pm_cliente"))
|
|
txtfecha_constitucion_pm_cliente.Text = IIf(IsDBNull(fila("fecha_constitucion_pm_cliente")), "", fila("fecha_constitucion_pm_cliente"))
|
|
txtrfc_pm_cliente.Text = IIf(IsDBNull(fila("rfc_pm_cliente")), "", fila("rfc_pm_cliente"))
|
|
txtpais_nacionalidad_pm_cliente.Text = IIf(IsDBNull(fila("pais_nacionalidad_pm_cliente")), "", fila("pais_nacionalidad_pm_cliente"))
|
|
txtgiro_mercantil_pm_cliente.Text = IIf(IsDBNull(fila("giro_mercantil_pm_cliente")), "", fila("giro_mercantil_pm_cliente"))
|
|
|
|
'--------------------------
|
|
|
|
txtdomicilio_nacional_unificado_pm_cliente.Text = IIf(IsDBNull(fila("domicilio_nacional_unificado_pm_cliente")), "", fila("domicilio_nacional_unificado_pm_cliente"))
|
|
txtciudad_poblacion_nacional_unificado_pm_cliente.Text = IIf(IsDBNull(fila("ciudad_poblacion_nacional_unificado_pm_cliente")), "", fila("ciudad_poblacion_nacional_unificado_pm_cliente"))
|
|
txtcolonia_nacional_unificado_pm_cliente.Text = IIf(IsDBNull(fila("colonia_nacional_unificado_pm_cliente")), "", fila("colonia_nacional_unificado_pm_cliente"))
|
|
|
|
'--------------------------
|
|
|
|
txtentidad_federativa_nacional_separado_pm_cliente.Text = IIf(IsDBNull(fila("entidad_federativa_nacional_separado_pm_cliente")), "", fila("entidad_federativa_nacional_separado_pm_cliente"))
|
|
txtcodigo_postal_nacional_separado_pm_cliente.Text = IIf(IsDBNull(fila("codigo_postal_nacional_separado_pm_cliente")), "", fila("codigo_postal_nacional_separado_pm_cliente"))
|
|
txtciudad_poblacion_nacional_separado_pm_cliente.Text = IIf(IsDBNull(fila("ciudad_poblacion_nacional_separado_pm_cliente")), "", fila("ciudad_poblacion_nacional_separado_pm_cliente"))
|
|
txtdelegacion_municipio_nacional_separado_pm_cliente.Text = IIf(IsDBNull(fila("delegacion_municipio_nacional_separado_pm_cliente")), "", fila("delegacion_municipio_nacional_separado_pm_cliente"))
|
|
txtcolonia_nacional_separado_pm_cliente.Text = IIf(IsDBNull(fila("colonia_nacional_separado_pm_cliente")), "", fila("colonia_nacional_separado_pm_cliente"))
|
|
txtcalle_nacional_separado_pm_cliente.Text = IIf(IsDBNull(fila("calle_nacional_separado_pm_cliente")), "", fila("calle_nacional_separado_pm_cliente"))
|
|
txtnumero_exterior_nacional_separado_pm_cliente.Text = IIf(IsDBNull(fila("numero_exterior_nacional_separado_pm_cliente")), "", fila("numero_exterior_nacional_separado_pm_cliente"))
|
|
txtnumero_interior_nacional_separado_pm_cliente.Text = IIf(IsDBNull(fila("numero_interior_nacional_separado_pm_cliente")), "", fila("numero_interior_nacional_separado_pm_cliente"))
|
|
|
|
'--------------------------
|
|
|
|
txtpais_extranjero_pm_cliente.Text = IIf(IsDBNull(fila("pais_extranjero_pm_cliente")), "", fila("pais_extranjero_pm_cliente"))
|
|
txtdomicilio_extranjero_unificado_pm_cliente.Text = IIf(IsDBNull(fila("domicilio_extranjero_unificado_pm_cliente")), "", fila("domicilio_extranjero_unificado_pm_cliente"))
|
|
txtciudad_poblacion_extranjero_unificado_pm_cliente.Text = IIf(IsDBNull(fila("ciudad_poblacion_extranjero_unificado_pm_cliente")), "", fila("ciudad_poblacion_extranjero_unificado_pm_cliente"))
|
|
txtcolonia_extranjero_unificado_pm_cliente.Text = IIf(IsDBNull(fila("colonia_extranjero_unificado_pm_cliente")), "", fila("colonia_extranjero_unificado_pm_cliente"))
|
|
txtestado_provincia_extranjero_separado_pm_cliente.Text = IIf(IsDBNull(fila("estado_provincia_extranjero_separado_pm_cliente")), "", fila("estado_provincia_extranjero_separado_pm_cliente"))
|
|
txtcodigo_postal_extranjero_separado_pm_cliente.Text = IIf(IsDBNull(fila("codigo_postal_extranjero_separado_pm_cliente")), "", fila("codigo_postal_extranjero_separado_pm_cliente"))
|
|
txtciudad_poblacion_extranjero_separado_pm_cliente.Text = IIf(IsDBNull(fila("ciudad_poblacion_extranjero_separado_pm_cliente")), "", fila("ciudad_poblacion_extranjero_separado_pm_cliente"))
|
|
txtcolonia_extranjero_separado_pm_cliente.Text = IIf(IsDBNull(fila("colonia_extranjero_separado_pm_cliente")), "", fila("colonia_extranjero_separado_pm_cliente"))
|
|
txtcalle_extranjero_separado_pm_cliente.Text = IIf(IsDBNull(fila("calle_extranjero_separado_pm_cliente")), "", fila("calle_extranjero_separado_pm_cliente"))
|
|
txtnumero_exterior_extranjero_separado_pm_cliente.Text = IIf(IsDBNull(fila("numero_exterior_extranjero_separado_pm_cliente")), "", fila("numero_exterior_extranjero_separado_pm_cliente"))
|
|
txtnumero_interior_extranjero_separado_pm_cliente.Text = IIf(IsDBNull(fila("numero_interior_extranjero_separado_pm_cliente")), "", fila("numero_interior_extranjero_separado_pm_cliente"))
|
|
|
|
'--------------------------
|
|
|
|
txtclave_pais_telefono_pm_cliente.Text = IIf(IsDBNull(fila("clave_pais_telefono_pm_cliente")), "", fila("clave_pais_telefono_pm_cliente"))
|
|
txtnumero_telefono_pm_cliente.Text = IIf(IsDBNull(fila("numero_telefono_pm_cliente")), "", fila("numero_telefono_pm_cliente"))
|
|
txtextension_telefono_pm_cliente.Text = IIf(IsDBNull(fila("extension_telefono_pm_cliente")), "", fila("extension_telefono_pm_cliente"))
|
|
txtcorreo_electronico_pm_cliente.Text = IIf(IsDBNull(fila("correo_electronico_pm_cliente")), "", fila("correo_electronico_pm_cliente"))
|
|
txtfiel_pm_cliente.Text = IIf(IsDBNull(fila("fiel_pm_cliente")), "", fila("fiel_pm_cliente"))
|
|
txtapoderado_legal_pm_cliente.Text = IIf(IsDBNull(fila("apoderado_legal_pm_cliente")), "", fila("apoderado_legal_pm_cliente"))
|
|
|
|
'---------------------
|
|
' CLIENTE
|
|
'---------------------
|
|
'Cliente - Nacional
|
|
txtdomicilio_nacional_unificado_pf_cliente.Text = IIf(IsDBNull(fila("domicilio_nacional_unificado_pf_cliente")), "", fila("domicilio_nacional_unificado_pf_cliente"))
|
|
txtciudad_poblacion_nacional_unificado_pf_cliente.Text = IIf(IsDBNull(fila("ciudad_poblacion_nacional_unificado_pf_cliente")), "", fila("ciudad_poblacion_nacional_unificado_pf_cliente"))
|
|
txtcolonia_nacional_unificado_pf_cliente.Text = IIf(IsDBNull(fila("colonia_nacional_unificado_pf_cliente")), "", fila("colonia_nacional_unificado_pf_cliente"))
|
|
txtentidad_federativa_nacional_separado_pf_cliente.Text = IIf(IsDBNull(fila("entidad_federativa_nacional_separado_pf_cliente")), "", fila("entidad_federativa_nacional_separado_pf_cliente"))
|
|
txtcodigo_postal_nacional_separado_pf_cliente.Text = IIf(IsDBNull(fila("codigo_postal_nacional_separado_pf_cliente")), "", fila("codigo_postal_nacional_separado_pf_cliente"))
|
|
txtciudad_poblacion_nacional_separado_pf_cliente.Text = IIf(IsDBNull(fila("ciudad_poblacion_nacional_separado_pf_cliente")), "", fila("ciudad_poblacion_nacional_separado_pf_cliente"))
|
|
txtdelegacion_municipio_nacional_separado_pf_cliente.Text = IIf(IsDBNull(fila("delegacion_municipio_nacional_separado_pf_cliente")), "", fila("delegacion_municipio_nacional_separado_pf_cliente"))
|
|
txtcolonia_nacional_separado_pf_cliente.Text = IIf(IsDBNull(fila("colonia_nacional_separado_pf_cliente")), "", fila("colonia_nacional_separado_pf_cliente"))
|
|
txtcalle_nacional_separado_pf_cliente.Text = IIf(IsDBNull(fila("calle_nacional_separado_pf_cliente")), "", fila("calle_nacional_separado_pf_cliente"))
|
|
txtnumero_exterior_nacional_separado_pf_cliente.Text = IIf(IsDBNull(fila("numero_exterior_nacional_separado_pf_cliente")), "", fila("numero_exterior_nacional_separado_pf_cliente"))
|
|
txtnumero_interior_nacional_separado_pf_cliente.Text = IIf(IsDBNull(fila("numero_interior_nacional_separado_pf_cliente")), "", fila("numero_interior_nacional_separado_pf_cliente"))
|
|
|
|
'---------------------
|
|
'Cliente - Pais
|
|
txtpais_extranjero_pf_cliente.Text = IIf(IsDBNull(fila("pais_extranjero_pf_cliente")), "", fila("pais_extranjero_pf_cliente"))
|
|
|
|
'---------------------
|
|
'Cliente - Extranjero
|
|
txtdomicilio_extranjero_unificado_pf_cliente.Text = IIf(IsDBNull(fila("domicilio_extranjero_unificado_pf_cliente")), "", fila("domicilio_extranjero_unificado_pf_cliente"))
|
|
txtciudad_poblacion_extranjero_unificado_pf_cliente.Text = IIf(IsDBNull(fila("ciudad_poblacion_extranjero_unificado_pf_cliente")), "", fila("ciudad_poblacion_extranjero_unificado_pf_cliente"))
|
|
txtcolonia_extranjero_unificado_pf_cliente.Text = IIf(IsDBNull(fila("colonia_extranjero_unificado_pf_cliente")), "", fila("colonia_extranjero_unificado_pf_cliente"))
|
|
txtestado_provincia_extranjero_separado_pf_cliente.Text = IIf(IsDBNull(fila("estado_provincia_extranjero_separado_pf_cliente")), "", fila("estado_provincia_extranjero_separado_pf_cliente"))
|
|
txtcodigo_postal_extranjero_separado_pf_cliente.Text = IIf(IsDBNull(fila("codigo_postal_extranjero_separado_pf_cliente")), "", fila("codigo_postal_extranjero_separado_pf_cliente"))
|
|
txtciudad_poblacion_extranjero_separado_pf_cliente.Text = IIf(IsDBNull(fila("ciudad_poblacion_extranjero_separado_pf_cliente")), "", fila("ciudad_poblacion_extranjero_separado_pf_cliente"))
|
|
txtcolonia_extranjero_separado_pf_cliente.Text = IIf(IsDBNull(fila("colonia_extranjero_separado_pf_cliente")), "", fila("colonia_extranjero_separado_pf_cliente"))
|
|
txtcalle_extranjero_separado_pf_cliente.Text = IIf(IsDBNull(fila("calle_extranjero_separado_pf_cliente")), "", fila("calle_extranjero_separado_pf_cliente"))
|
|
txtnumero_exterior_extranjero_separado_pf_cliente.Text = IIf(IsDBNull(fila("numero_exterior_extranjero_separado_pf_cliente")), "", fila("numero_exterior_extranjero_separado_pf_cliente"))
|
|
txtnumero_interior_extranjero_separado_pf_cliente.Text = IIf(IsDBNull(fila("numero_interior_extranjero_separado_pf_cliente")), "", fila("numero_interior_extranjero_separado_pf_cliente"))
|
|
|
|
txtPaisUsuarioExtranjero.Enabled = False
|
|
txtClaveOrganoRegulador.Enabled = False
|
|
txtClaveEntidad.Enabled = False
|
|
txtFolioConsecutivo.Enabled = True
|
|
txtFolioPrevio.Enabled = False
|
|
txtFechaHora.Enabled = False
|
|
txtTipoOperacion.Enabled = False
|
|
txtCuentaContrato.Enabled = False
|
|
txtFolioConsecutivo.Enabled = False
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Protected Sub BlockControls()
|
|
Dim ctl As New Control
|
|
|
|
btnGuardar.Enabled = False
|
|
|
|
For Each tp As TabPage In TabControl1.TabPages
|
|
For Each ctl In tp.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
Next
|
|
|
|
For Each tp As TabPage In TabControl3.TabPages
|
|
For Each ctl In tp.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
Next
|
|
|
|
For Each tp As TabPage In TabControl5.TabPages
|
|
For Each ctl In tp.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
Next
|
|
|
|
For Each tp As TabPage In TabControl4.TabPages
|
|
For Each ctl In tp.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
Next
|
|
|
|
For Each ctl In GroupBox1.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox2.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox3.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox4.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox5.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox6.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox7.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox8.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox9.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox10.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox11.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox12.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox18.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox23.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox17.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox13.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox15.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox22.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
For Each ctl In GroupBox16.Controls
|
|
If TypeOf ctl Is TextBox Then
|
|
ctl.Enabled = False
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Private Function ValidateDate() As String
|
|
Dim trimestre As String = String.Empty
|
|
Dim _Trimestre As String = String.Empty
|
|
Dim año As Integer
|
|
|
|
trimestre = lblTrimestreReportado.Text.Trim
|
|
trimestre = trimestre.Substring(5, 1)
|
|
año = Convert.ToInt32(lblTrimestreReportado.Text.Substring(0, 4))
|
|
|
|
Select Case trimestre
|
|
Case "1"
|
|
_Trimestre = "2"
|
|
Case "2"
|
|
_Trimestre = "3"
|
|
Case "3"
|
|
_Trimestre = "4"
|
|
Case "4"
|
|
_Trimestre = "1"
|
|
año += 1
|
|
End Select
|
|
|
|
trimestre = año & "-" & _Trimestre
|
|
|
|
Return trimestre
|
|
|
|
End Function
|
|
|
|
End Class |