2021-06-28 12:15:48 -07:00
parent 151021d63d
commit 3ded1a5cf9
3 changed files with 105 additions and 47 deletions
--- 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
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -137,7 +137,7 @@

        </ContentTemplate>
    </asp:UpdatePanel>
-    <asp:UpdatePanel ID="UpGvFacturas" runat="server" UpdateMode="Conditional">
+    <asp:UpdatePanel ID="UpParametros" runat="server" UpdateMode="Conditional">
        <ContentTemplate>

            <div class="row" style="margin-bottom:5px">
@@ -166,13 +166,17 @@
                </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" ID="lblValorTotal">0.00</asp:label>
                    <asp:label runat="server" ID="lblValorTotalSeleccionado" Visible="false"></asp:label>

                </div>
            </div>
+                    </ContentTemplate>
+    </asp:UpdatePanel>
+                            <asp:UpdatePanel ID="UpComisiones" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
            <div class="row rowcheck truncate" id="DivComisioncheck" >
                <div class="col-md-1 truncate" runat="server" id="DivFaltante" style ="width: 155px;" >
                    <asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante" CssClass="checkbox"/>
@@ -265,7 +269,12 @@
                        </div>
                </div>
            </div>
-     
+            
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+         <asp:UpdatePanel ID="UpGvFacturas" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
            <br />
            <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">
--- 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<br/><br/>"
        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)