AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-04-08 14:39:52 -07:00
parent 6b275b803c a4d33a2e4b
commit fee964cf44
7 changed files with 67 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
App_Code/ClsPuntoVenta.vb
View File

@@ -245,27 +245,27 @@ Public Class ClsPuntoVenta
Return Retorno Return Retorno
End Function End Function
Public Function GetCortesPorCuenta(CveCuenta As Integer, CveEmpresa As Integer) As Boolean 'Public Function GetCortesPorCuenta(CveCuenta As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False
DataAdapter("PA_Vta_CuentaCorteGet") ' DataAdapter("PA_Vta_CuentaCorteGet")
With SqlAdapter.SelectCommand.Parameters ' With SqlAdapter.SelectCommand.Parameters
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta ' .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output ' .Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output
End With ' End With
Try ' Try
SqlAdapter.Fill(Data) ' SqlAdapter.Fill(Data)
CveCorte = Integer.Parse(SqlAdapter.SelectCommand.Parameters("@CveCorte").Value.ToString) ' CveCorte = Integer.Parse(SqlAdapter.SelectCommand.Parameters("@CveCorte").Value.ToString)
Retorno = True ' Retorno = True
Catch ex As Exception ' Catch ex As Exception
OnError("Ocurrió un error al obtener los cuenta de corte", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) ' OnError("Ocurrió un error al obtener los cuenta de corte", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try ' End Try
Return Retorno ' Return Retorno
End Function 'End Function
Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveSubProyecto As Integer = -1, Optional CveCorte As Integer = -1) As Boolean Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveSubProyecto As Integer = -1, Optional CveCorte As Integer = -1) As Boolean

22
App_Code/ClsVentas.vb
View File

@@ -3467,6 +3467,28 @@ Public Class ClsVentas
Return Retorno Return Retorno
End Function 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 #End Region
#Region " CANCELAR ANTE SAT " #Region " CANCELAR ANTE SAT "

4
Bancos/DepositosCaja.aspx.vb
View File

@@ -267,6 +267,10 @@ Partial Class Bancos_DepositosCaja
CveTransaccionBanco = 6 CveTransaccionBanco = 6
End If 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 'código temporal, para claudia y toñita, monge, anadelia, alba,patricia
If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then
FolioIE = TxtFolio.Text.ToEntero FolioIE = TxtFolio.Text.ToEntero

16
Bancos/RepCortes.aspx
View File

@@ -372,7 +372,7 @@
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>
<div class="col-md-6"> <div class="col-md-2">
<asp:GridView ID="GvPorIVA" runat="server" AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover"> <asp:GridView ID="GvPorIVA" runat="server" AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover">
<Columns> <Columns>
<asp:BoundField HeaderText="Documento" DataField="TipoDocto" /> <asp:BoundField HeaderText="Documento" DataField="TipoDocto" />
@@ -381,6 +381,20 @@
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>
<div class="col-md-2">
<asp:GridView ID="GvDep" runat="server" AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover mysmallbtn ">
<Columns>
<asp:BoundField HeaderText="TipoTransacción" DataField="TipoTransaccion" />
<asp:HyperLinkField HeaderText="Folio Pago" DataTextField="FolioPago" Target="_blank" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataNavigateUrlFields="CveIE" />
<asp:BoundField HeaderText="Importe" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:TemplateField HeaderText="Póliza" >
<ItemTemplate>
<asp:HyperLink ID="HplImpPol" runat="server" CssClass="btn btn-circle btn-sm blue mysmallbtn" Text="<i class='fa fa-print'></i>" ToolTip="Imprimir"></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div> </div>
<asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun corte" DataKeyNames="CveVenta" ToolTip="Reporte de Cortes" CssClass="table table-striped table-advance table-hover Widthall" Style="position: static" UseAccessibleHeader="false" GridLines="None"> <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun corte" DataKeyNames="CveVenta" ToolTip="Reporte de Cortes" CssClass="table table-striped table-advance table-hover Widthall" Style="position: static" UseAccessibleHeader="false" GridLines="None">
<Columns> <Columns>

5
Bancos/RepCortes.aspx.vb
View File

@@ -179,6 +179,10 @@ Partial Class Bancos_RepCortes
End If End If
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 If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
GvD.DataSource = Vent.DtResultados GvD.DataSource = Vent.DtResultados
DtCortesVentas = Vent.DtResultados DtCortesVentas = Vent.DtResultados
@@ -197,6 +201,7 @@ Partial Class Bancos_RepCortes
Vent.Dispose() Vent.Dispose()
GvD.DataBind() GvD.DataBind()
GvP.DataBind() GvP.DataBind()
GvDep.DataBind()
GvPorIVA.DataBind() GvPorIVA.DataBind()
UPPDetalle.Update() UPPDetalle.Update()
UpAcciones.Update() UpAcciones.Update()

2
Ventas/PVCobranza.aspx
View File

@@ -272,7 +272,7 @@
<div class="row"> <div class="row">
<div class="col-md-1"> <div class="col-md-1">
Ver Solo pagadas: Solo pagadas:
</div> </div>
<div class="col-md-1" style="padding-top:6px"> <div class="col-md-1" style="padding-top:6px">
<asp:CheckBox ID="ChkMostrarSoloPagados" CssClass="chksino" runat="server" Text="Ver Solo pagadas" /> <asp:CheckBox ID="ChkMostrarSoloPagados" CssClass="chksino" runat="server" Text="Ver Solo pagadas" />

3
Ventas/PVCobranza.aspx.vb
View File

@@ -814,11 +814,10 @@ Partial Class Ventas_PVCobranza
Sub CargaDdlPagos() Sub CargaDdlPagos()
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'") DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing' AND Estatus = 1")
DdlTipoTransaccion.DataBind() DdlTipoTransaccion.DataBind()
DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1")) DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuenta.DataBind() DdlCuenta.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))