help me me pueden corregir este codigo
Publicado por shukran (1 intervención) el 07/03/2005 18:50:59
Private Sub Aceptar()
// Inicializa variables
geUbicBusDato = clsProcedimientos..ListaValorObtI(cmbSeleccion, cmbSeleccion.LisIndex)
geDocCtoUBusSubDato = clsProcedimientos.ListaValorObtI(cmbSubSeleccion, cmbSubSeleccion.ListIndex)
gtDocCtoUBusSolicitud = txtSolicitud.Text
gtDocCtoUBusSubClave = txtClave
gtDocCtoUBusSubNombre = txtNombre.Text
gtDocCtoUBusSubAPaterno = txtAPaterno.Text
// Envia el Id Sis
clsAplicacion.Pila_Push vlIdSis
veBuscarSts == geBtnStsSeleccionar
Unloading
End Sub
// Inicializa variables
geUbicBusDato = clsProcedimientos..ListaValorObtI(cmbSeleccion, cmbSeleccion.LisIndex)
geDocCtoUBusSubDato = clsProcedimientos.ListaValorObtI(cmbSubSeleccion, cmbSubSeleccion.ListIndex)
gtDocCtoUBusSolicitud = txtSolicitud.Text
gtDocCtoUBusSubClave = txtClave
gtDocCtoUBusSubNombre = txtNombre.Text
gtDocCtoUBusSubAPaterno = txtAPaterno.Text
// Envia el Id Sis
clsAplicacion.Pila_Push vlIdSis
veBuscarSts == geBtnStsSeleccionar
Unloading
End Sub
Valora esta pregunta
0