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 @@ -
+
@@ -381,6 +381,20 @@
+
+ + + + + + + + + + + + +
diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 975d682c3..0c345af30 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -179,6 +179,10 @@ Partial Class Bancos_RepCortes End If End If + If Vn.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + GvDep.DataSource = Vn.DtResultados + End If + If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then GvD.DataSource = Vent.DtResultados DtCortesVentas = Vent.DtResultados @@ -197,6 +201,7 @@ Partial Class Bancos_RepCortes Vent.Dispose() GvD.DataBind() GvP.DataBind() + GvDep.DataBind() GvPorIVA.DataBind() UPPDetalle.Update() UpAcciones.Update()