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

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-06-28 12:15:48 -07:00
parent 151021d63d
commit 3ded1a5cf9
3 changed files with 105 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
Ashx/E72.ashx
View File

@@ -25,48 +25,80 @@ Public Class E72 : Implements IHttpHandler, IRequiresSessionState
End Try End Try
End Sub End Sub
Private Function contratoexistencia(ByVal context As HttpContext) As String Private Function contratoexistencia(ByVal context As HttpContext) As String
Dim retorno As String = "" Dim retorno As String = ""
Dim ObjInv As New ClsInventarios Dim ObjInv As New ClsInventarios
Try Try
Dim DtMovimientos As DataTable = CreaDT() Dim DtPS As DataTable = CreaDT()
ObjInv.GetRepEntradasSalidasXContrato(72, -1, MinFecha, Date.Now, -1, -1, 17, -1, -1, 3, -1, 1158) ObjInv.GetRepEntradasSalidasXContrato(72, -1, MinFecha, Date.Now, -1, -1, 17, -1, -1, 3, -1, 1158)
Dim DtRepEntradasSalidasXContrato As DataTable = ObjInv.DtResultados.FiltraParametros("CvePS > 0") Dim DtRepEntradasSalidasXContrato As DataTable = ObjInv.DtResultados.FiltraParametros("CvePS > 0")
ObjInv.ApartadosRep(-1, 70437, 259, 72, -1, MinFecha, Date.Now) ObjInv.ApartadosRep(-1, 70437, 259, 72, -1, MinFecha, Date.Now)
Dim DtApartados As DataTable = ObjInv.DtResultados.FiltraParametros("CvePS > 0", "", {"CvePS", "Cantidad"}) Dim DtApartados As DataTable = ObjInv.DtResultados.FiltraParametros("CvePS > 0", "", {"CvePS", "Codigo", "Cantidad"})
Dim asd As Integer = DtApartados.Rows.Count Dim asd As Integer = DtApartados.Rows.Count
For Each tempApartados As DataRow In DtApartados.Rows 'For Each tempApartados As DataRow In DtApartados.Rows
For Each tempEntradasSalidas As DataRow In DtRepEntradasSalidasXContrato.Rows ' For Each tempEntradasSalidas As DataRow In DtRepEntradasSalidasXContrato.Rows
Dim dr As DataRow = DtMovimientos.NewRow ' Dim dr As DataRow = DtMovimientos.NewRow
If tempEntradasSalidas("CvePS").ToString.ToEntero = tempApartados("CvePS").ToString.ToEntero Then ' If tempEntradasSalidas("CvePS").ToString.ToEntero = tempApartados("CvePS").ToString.ToEntero Then
dr("Codigo") = tempEntradasSalidas("Codigo") ' dr("Codigo") = tempEntradasSalidas("Codigo")
dr("Existencia") = tempEntradasSalidas("SaldoFCant") ' dr("Existencia") = tempEntradasSalidas("SaldoFCant")
dr("Cantidad") = tempApartados("Cantidad") ' dr("Cantidad") = tempApartados("Cantidad")
dr("Precio") = tempEntradasSalidas("PrecioVenta") ' dr("Precio") = tempEntradasSalidas("PrecioVenta")
Else ' Else
dr("Codigo") = tempEntradasSalidas("Codigo") ' dr("Codigo") = tempEntradasSalidas("Codigo")
dr("Existencia") = tempEntradasSalidas("SaldoFCant") ' dr("Existencia") = tempEntradasSalidas("SaldoFCant")
dr("Cantidad") = 0 ' dr("Cantidad") = 0
dr("Precio") = tempEntradasSalidas("PrecioVenta") ' dr("Precio") = tempEntradasSalidas("PrecioVenta")
End If ' End If
DtMovimientos.Rows.Add(dr) ' DtMovimientos.Rows.Add(dr)
' Next
'Next
For Each tempEntradasSalidas As DataRow In DtRepEntradasSalidasXContrato.Rows
Dim dr As DataRow = DtPS.NewRow
dr("Codigo") = tempEntradasSalidas("Codigo")
DtPS.Rows.Add(dr)
DtPS.AcceptChanges()
Next
Next Next
Dim dtExistencias = From row In DtMovimientos.FiltraParametros("", "", {"Codigo", "Existencia", "Cantidad", "Precio"}) For Each tempApartados As DataRow In DtApartados.Rows
Group row By Codigo = row.Field(Of String)("Codigo"), Existencia = row.Field(Of Double)("Existencia"), Precio = row.Field(Of Double)("Precio") Into CodigoGroup = Group Dim dr As DataRow = DtPS.NewRow
Select New With { dr("Codigo") = tempApartados("Codigo")
.Codigo = Codigo, DtPS.Rows.Add(dr)
.Existencia = Existencia, DtPS.AcceptChanges()
.Cantidad = CodigoGroup.Sum(Function(r) r.Field(Of Double)("Cantidad")),
.Precio = Precio} Next
Dim DTtemp As DataTable = DtPS.FiltraParametros("", "", {"Codigo", "Existencia", "Cantidad", "Precio"})
For Each Movs As DataRow In DTtemp.Rows
For Each tempEntradasSalidas As DataRow In DtRepEntradasSalidasXContrato.Rows
If tempEntradasSalidas("Codigo").ToString = Movs("Codigo").ToString Then
Movs("Existencia") = tempEntradasSalidas("SaldoFCant").ToString.ToDouble
Movs("Cantidad") = 0
Movs("Precio") = tempEntradasSalidas("PrecioVenta").ToString.ToDouble
End If
Next
For Each tempApartados As DataRow In DtApartados.Rows
If tempApartados("Codigo").ToString = Movs("Codigo").ToString Then
Movs("Existencia") = IIf(Movs("Existencia").ToString.ToEntero > 0, Movs("Existencia"), 0)
Movs("Cantidad") = tempApartados("Cantidad").ToString.ToDouble
Movs("Precio") = IIf(Movs("Precio").ToString.ToEntero > 0, Movs("Existencia"), 0)
End If
Next
DtPS.AcceptChanges()
Next
'Dim dtExistencias = From row In DtMovimientos.FiltraParametros("", "", {"Codigo", "Existencia", "Cantidad", "Precio"})
' Group row By Codigo = row.Field(Of String)("Codigo"), Existencia = row.Field(Of Double)("Existencia"), Precio = row.Field(Of Double)("Precio") Into CodigoGroup = Group
' Select New With {
' .Codigo = Codigo,
' .Existencia = Existencia,
' .Cantidad = CodigoGroup.Sum(Function(r) r.Field(Of Double)("Cantidad")),
' .Precio = Precio}
'Dim LINQEntradasSalidas = From row In DtRepEntradasSalidasXContrato.AsEnumerable 'Dim LINQEntradasSalidas = From row In DtRepEntradasSalidasXContrato.AsEnumerable
' Select New With { ' Select New With {
@@ -89,11 +121,11 @@ Public Class E72 : Implements IHttpHandler, IRequiresSessionState
'Dim Dtnum As Integer = DtMovimientos.su 'Dim Dtnum As Integer = DtMovimientos.su
retorno = JsonConvert.SerializeObject(dtExistencias).ToString retorno = JsonConvert.SerializeObject(DTtemp).ToString
context.Response.Write(retorno) context.Response.Write(retorno)
Catch ex As Exception Catch ex As Exception
context.Response.Write(String.Format("{0}", ex))
End Try End Try
ObjInv.Dispose() ObjInv.Dispose()
Return retorno Return retorno

13
Bancos/DepositosCaja.aspx
View File

@@ -137,7 +137,7 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpGvFacturas" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpParametros" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="row" style="margin-bottom:5px"> <div class="row" style="margin-bottom:5px">
@@ -166,13 +166,17 @@
</div> </div>
<div class="col-md-3" style="text-align: right; font-size:1.2em;" runat="server" id="divLabelTotal" visible="false"> <div class="col-md-3" style="text-align: right; font-size:1.2em;" runat="server" id="divLabelTotal" visible="true">
<asp:label runat="server">Seleccionado: $</asp:label> <asp:label runat="server">Seleccionado: $</asp:label>
<asp:label runat="server" ID="lblValorTotal">0.00</asp:label> <asp:label runat="server" ID="lblValorTotal">0.00</asp:label>
<asp:label runat="server" ID="lblValorTotalSeleccionado" Visible="false"></asp:label> <asp:label runat="server" ID="lblValorTotalSeleccionado" Visible="false"></asp:label>
</div> </div>
</div> </div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpComisiones" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row rowcheck truncate" id="DivComisioncheck" > <div class="row rowcheck truncate" id="DivComisioncheck" >
<div class="col-md-1 truncate" runat="server" id="DivFaltante" style ="width: 155px;" > <div class="col-md-1 truncate" runat="server" id="DivFaltante" style ="width: 155px;" >
<asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante" CssClass="checkbox"/> <asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante" CssClass="checkbox"/>
@@ -266,6 +270,11 @@
</div> </div>
</div> </div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpGvFacturas" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<br /> <br />
<div style="height:450px;overflow-x:scroll"> <div style="height:450px;overflow-x:scroll">
<asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe, SerieFolio" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; " GridLines="None"> <asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe, SerieFolio" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; " GridLines="None">

43
Bancos/DepositosCaja.aspx.vb
View File

@@ -31,7 +31,7 @@ Partial Class Bancos_DepositosCaja
ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);") ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);") ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);")
ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);") ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);")
BtnConsultar.Attributes.Add("onclick", "Consultar(this);")
End If End If
End Sub End Sub
@@ -98,11 +98,20 @@ Partial Class Bancos_DepositosCaja
GvFacturas.DataSource = ObjBancos.DtResultados GvFacturas.DataSource = ObjBancos.DtResultados
ObjBancos.Dispose() ObjBancos.Dispose()
UpGvFacturas.Update()
GvFacturas.DataBind() GvFacturas.DataBind()
lblValorTotal.Text = "0.00"
TxtComision.Text = "" TxtComision.Text = ""
TxtDescuento.Text = ""
TxtIVA.Text = ""
TxtComisionIntermediario.Text = ""
lblValorTotal.Text = "0.0"
lblValorTotalSeleccionado.Text = "0.0"
divLabelTotal.Visible = True divLabelTotal.Visible = True
DdlSubProyectoDeposito.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
DdlSubProyectoDescuento.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
DdlSubProyectoIntermediario.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
UpGvFacturas.Update()
UpParametros.Update()
End Sub End Sub
Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click
@@ -165,14 +174,19 @@ Partial Class Bancos_DepositosCaja
Dim CveCuentaBancariaDestino As Integer = 0 Dim CveCuentaBancariaDestino As Integer = 0
Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim CveSubProyecto As Integer = -1 Dim CveSubProyecto As Integer = DdlSubProyectos.SelectedValue.ToEntero
Dim CveSubProyectoDescuento As Integer = -1
Dim CveClasificacion As Integer = -1 Dim CveClasificacion As Integer = -1
Dim CveClasificacionDescuento As Integer = -1
Dim CveSubProyectoComision As Integer
Dim CveClasificacionComision As Integer
Dim CveSubProyectoDescuento As Integer
Dim CveClasificacionDescuento As Integer
Dim documentos As String = "Los Depósitos se realizaron exitosamente<br/><br/>" Dim documentos As String = "Los Depósitos se realizaron exitosamente<br/><br/>"
Dim imprimirFolios As String = "" Dim imprimirFolios As String = ""
Dim CveSubProyectoIntermediario As Integer = -1 Dim CveSubProyectoIntermediario As Integer
Dim CveClasificacionIntermediario As Integer = -1 Dim CveClasificacionIntermediario As Integer
Dim CveProveedorIntermediario As Integer = -1 Dim CveProveedorIntermediario As Integer = -1
If drOrigen IsNot Nothing Then If drOrigen IsNot Nothing Then
@@ -231,10 +245,10 @@ Partial Class Bancos_DepositosCaja
If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio) Then If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio) Then
If ChkFaltante.Checked Then If ChkFaltante.Checked Then
CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero CveSubProyectoComision = DdlSubProyectoDeposito.SelectedValue.ToEntero
CveClasificacion = DdlClasificacion.SelectedValue.ToEntero CveClasificacionComision = DdlClasificacion.SelectedValue.ToEntero
If Comision <> 0 Then If Comision <> 0 Then
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionComision, CveSubProyecto:=CveSubProyectoComision, ImporteMX:=Comision * TipoCambio) Then
OcurrioError = True OcurrioError = True
End If End If
End If End If
@@ -314,8 +328,9 @@ Partial Class Bancos_DepositosCaja
TxtDescuento.Text = "" TxtDescuento.Text = ""
TxtIVA.Text = "" TxtIVA.Text = ""
TxtComisionIntermediario.Text = "" TxtComisionIntermediario.Text = ""
lblValorTotal.Text = "" lblValorTotal.Text = "0.0"
lblValorTotalSeleccionado.Text = "" lblValorTotalSeleccionado.Text = "0.0"
CargaDatos()
ObjContabilidad.Dispose() ObjContabilidad.Dispose()
End Sub End Sub
@@ -329,6 +344,8 @@ Partial Class Bancos_DepositosCaja
Next Next
lblValorTotal.Text = Total.ToString("N") lblValorTotal.Text = Total.ToString("N")
UpGvFacturas.Update() UpGvFacturas.Update()
UpParametros.Update()
End Sub End Sub
Public Sub ChkFactura_Click(sender As Object, e As EventArgs) Public Sub ChkFactura_Click(sender As Object, e As EventArgs)