Compras corrección reembolsos se estabanc ontabilizando

Compras/Compras.aspx.vb

@@ -12303,6 +12303,24 @@ Partial Class Compras_Compras
 
     Protected Sub BtnContado_Click(sender As Object, e As EventArgs)
         TxtRembolsoNumero.Text = TxtNumeroReembolso.Text
+
+        If RBLContado.SelectedValue.ToEntero = 6 Then ' Caja chica
+            DdlFuncionarioEmpleado.SelectedValueExist(-1)
+            TxtDocumentoImporteFE.Text = ""
+            TextBox3.Text = ""
+            ViewState("CvePersonal") = -1
+        End If
+
+        If RBLContado.SelectedValue.ToEntero = 2 Then ' viaticos personal
+            DdlTipoTransaccionCaja.SelectedValueExist(-1)
+            DdlCuentaCajaChicaReembolso.SelectedValueExist(-1)
+            DdlCuentaCaja.SelectedValueExist(-1)
+            TxtDocumentoFolioCaja.Text = ""
+            TxtDocumentoImporteCaja.Text = ""
+            TxtDocumentoObservacionesCaja.Text = ""
+            ViewState("CveCajaChica") = -1
+        End If
+
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal"))
     End Sub