sSql = "INSERT INTO ab_solaba (" & _
"sab_numero, " & _
"sab_estado, " & _
"sab_tipo, " & _
"sab_fecha, " & _
"ccg_codigo, " & _
"esa_codigo_cco, " & _
"esa_codigo_para, " & _
"esa_codigo_uop_ingresa, " & _
"cun_codigo_ingresa, " & _
"otr_numero, " & _
"cun_codigo_para, " & _
"sab_nro_documento, " & _
"per_usuario, " & _
"sab_ce_estado, " & _
"sab_notas, " & _
"bod_clave, " & _
"oco_numero_ref, " & _
"mov_numero_recepcion, " & _
"usercrea, " & _
"dtcrea, " & _
"sab_tipo_solicitud, " & _
"num_recep_referencia, " & _
"tipo_recep_referencia) " & _
"VALUES (" & _
"ab_s_solaba.nextval, " & _
"'01', " & _
"'E', " & _
"TO_DATE('" & Format(Me.txtSAB_FECHA.Value, "dd/MM/yyyy") & "', 'dd/MM/yyyy'), " & _
Me.cboCCG_CODIGO.List(cboCCG_CODIGO.ListIndex) & ", " & _
"101, " & _
"101, " & _
"null, " & _
"null, " & _
"null, " & _
Me.cboCodUNIOPE.List(cboCodUNIOPE.ListIndex) & ", " & _
"null, " & _
"'SALUD1', " & _
IIf(chkDefinitiva.Value = vbChecked, "'03'", "'01'") & ", " & _
IIf(Len(Trim(txtNotas.Text)) = 0, "null", "'" & txtNotas.Text & "'") & ", " & _
cboCodBodega.List(cboBodega.ListIndex) & ", " & _
IIf(chkSinRelacion.Value = vbChecked, "null", txtOCO_NUMERO.Text) & ", " & _
IIf(chkSinRelacion.Value = vbChecked, "null", "txtMOV_NUMERO.Text") & ", '" & _
sUser & "', SYSDATE, " & nSolicitud & ", " & _
IIf(Me.txtNMovSinOC.Text = "", "null", Me.txtNMovSinOC.Text) & ", " & _
IIf(Me.txtTipoRecepcion.Text = "", "null", "'" & Me.txtTipoRecepcion.Text & "'") & ")"