From 3ded1a5cf9f8b151ff2e0778e6549b76eb43605a Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Mon, 28 Jun 2021 12:15:48 -0700 Subject: [PATCH] --- Ashx/E72.ashx | 94 ++++++++++++++++++++++++------------ Bancos/DepositosCaja.aspx | 15 ++++-- Bancos/DepositosCaja.aspx.vb | 43 ++++++++++++----- 3 files changed, 105 insertions(+), 47 deletions(-) diff --git a/Ashx/E72.ashx b/Ashx/E72.ashx index 660808dc7..310c93b60 100644 --- a/Ashx/E72.ashx +++ b/Ashx/E72.ashx @@ -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 diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 3295a33f7..fa1cf6073 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -137,7 +137,7 @@ - +
@@ -166,13 +166,17 @@
-
+
Seleccionado: $ 0.00
+ + + +
@@ -265,7 +269,12 @@
- + + + + + +
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 21df2bcf2..4679c6408 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -31,7 +31,7 @@ Partial Class Bancos_DepositosCaja ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);") ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);") ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);") - + BtnConsultar.Attributes.Add("onclick", "Consultar(this);") End If End Sub @@ -98,11 +98,20 @@ Partial Class Bancos_DepositosCaja GvFacturas.DataSource = ObjBancos.DtResultados ObjBancos.Dispose() - UpGvFacturas.Update() + GvFacturas.DataBind() - lblValorTotal.Text = "0.00" TxtComision.Text = "" + TxtDescuento.Text = "" + TxtIVA.Text = "" + TxtComisionIntermediario.Text = "" + lblValorTotal.Text = "0.0" + lblValorTotalSeleccionado.Text = "0.0" divLabelTotal.Visible = True + DdlSubProyectoDeposito.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero) + DdlSubProyectoDescuento.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero) + DdlSubProyectoIntermediario.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero) + UpGvFacturas.Update() + UpParametros.Update() End Sub 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 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 CveSubProyecto As Integer = -1 - Dim CveSubProyectoDescuento As Integer = -1 + Dim CveSubProyecto As Integer = DdlSubProyectos.SelectedValue.ToEntero 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

" Dim imprimirFolios As String = "" - Dim CveSubProyectoIntermediario As Integer = -1 - Dim CveClasificacionIntermediario As Integer = -1 + Dim CveSubProyectoIntermediario As Integer + Dim CveClasificacionIntermediario As Integer Dim CveProveedorIntermediario As Integer = -1 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 ChkFaltante.Checked Then - CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero - CveClasificacion = DdlClasificacion.SelectedValue.ToEntero + CveSubProyectoComision = DdlSubProyectoDeposito.SelectedValue.ToEntero + CveClasificacionComision = DdlClasificacion.SelectedValue.ToEntero 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 End If End If @@ -314,8 +328,9 @@ Partial Class Bancos_DepositosCaja TxtDescuento.Text = "" TxtIVA.Text = "" TxtComisionIntermediario.Text = "" - lblValorTotal.Text = "" - lblValorTotalSeleccionado.Text = "" + lblValorTotal.Text = "0.0" + lblValorTotalSeleccionado.Text = "0.0" + CargaDatos() ObjContabilidad.Dispose() End Sub @@ -329,6 +344,8 @@ Partial Class Bancos_DepositosCaja Next lblValorTotal.Text = Total.ToString("N") UpGvFacturas.Update() + UpParametros.Update() + End Sub Public Sub ChkFactura_Click(sender As Object, e As EventArgs)