diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 86a6c8e41..c6406dcbb 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -3467,6 +3467,28 @@ Public Class ClsVentas Return Retorno End Function + Public Function GetCortesDetalleDepositosCaja(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_CortesDetalleDepositosCajaGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCorte", SqlDbType.Int).Value = CveCorte + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los detalle de cortes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + #End Region #Region " CANCELAR ANTE SAT " diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 2a9fc859b..f1d222eae 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -267,6 +267,10 @@ Partial Class Bancos_DepositosCaja CveTransaccionBanco = 6 End If + If DdlTipoPago.SelectedValue.Contiene("11", "12") Then ' cuando son pagos con tarjetas + CveTransaccionBanco = DdlTipoPago.SelectedValue.ToEntero + End If + 'código temporal, para claudia y toñita, monge, anadelia, alba,patricia If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then FolioIE = TxtFolio.Text.ToEntero diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index a34000c10..ad94189eb 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -372,7 +372,7 @@ -