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