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 Sub
Private Function contratoexistencia(ByVal context As HttpContext) As String
Dim retorno As String = ""
Dim ObjInv As New ClsInventarios
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)
Dim DtRepEntradasSalidasXContrato As DataTable = ObjInv.DtResultados.FiltraParametros("CvePS > 0")
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
For Each tempApartados As DataRow In DtApartados.Rows
For Each tempEntradasSalidas As DataRow In DtRepEntradasSalidasXContrato.Rows
Dim dr As DataRow = DtMovimientos.NewRow
If tempEntradasSalidas("CvePS").ToString.ToEntero = tempApartados("CvePS").ToString.ToEntero Then
dr("Codigo") = tempEntradasSalidas("Codigo")
dr("Existencia") = tempEntradasSalidas("SaldoFCant")
dr("Cantidad") = tempApartados("Cantidad")
dr("Precio") = tempEntradasSalidas("PrecioVenta")
Else
dr("Codigo") = tempEntradasSalidas("Codigo")
dr("Existencia") = tempEntradasSalidas("SaldoFCant")
dr("Cantidad") = 0
dr("Precio") = tempEntradasSalidas("PrecioVenta")
End If
DtMovimientos.Rows.Add(dr)
'For Each tempApartados As DataRow In DtApartados.Rows
' For Each tempEntradasSalidas As DataRow In DtRepEntradasSalidasXContrato.Rows
' Dim dr As DataRow = DtMovimientos.NewRow
' If tempEntradasSalidas("CvePS").ToString.ToEntero = tempApartados("CvePS").ToString.ToEntero Then
' dr("Codigo") = tempEntradasSalidas("Codigo")
' dr("Existencia") = tempEntradasSalidas("SaldoFCant")
' dr("Cantidad") = tempApartados("Cantidad")
' dr("Precio") = tempEntradasSalidas("PrecioVenta")
' Else
' dr("Codigo") = tempEntradasSalidas("Codigo")
' dr("Existencia") = tempEntradasSalidas("SaldoFCant")
' dr("Cantidad") = 0
' dr("Precio") = tempEntradasSalidas("PrecioVenta")
' End If
' 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
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}
For Each tempApartados As DataRow In DtApartados.Rows
Dim dr As DataRow = DtPS.NewRow
dr("Codigo") = tempApartados("Codigo")
DtPS.Rows.Add(dr)
DtPS.AcceptChanges()
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
' Select New With {
@@ -89,11 +121,11 @@ Public Class E72 : Implements IHttpHandler, IRequiresSessionState
'Dim Dtnum As Integer = DtMovimientos.su
retorno = JsonConvert.SerializeObject(dtExistencias).ToString
retorno = JsonConvert.SerializeObject(DTtemp).ToString
context.Response.Write(retorno)
Catch ex As Exception
context.Response.Write(String.Format("{0}", ex))
End Try
ObjInv.Dispose()
Return retorno