diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index 8ad8491f4..a5a1fb0a0 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -304,17 +304,20 @@ Partial Class Bancos_DepositosCaja
End If
'Asignamos la cuenta Deposito
- If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then
+ If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEOrigen, CveIE) Then
OcurrioError = True
Exit For
- End If
- Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEDestino}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
-
- 'documentos += String.Format("Imprimir {1}
", StrEncript, SerieFolio)
+ End If
+
+
End If
- Next
-
+ Next
+
+ Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEOrigen}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
+
+
+ documentos += String.Format("
Imprimir {1}
", StrEncript, "Depósito Bancario")
If OcurrioError Then
ObjContabilidad.RollBack()