Merge branch 'master' of http://192.168.10.111:8383/SIG

2021-12-17 22:16:54 -07:00
parent 6b27c6a34d 623095bd9b
commit da86bac203
26 changed files with 3060 additions and 448 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8626,7 +8626,7 @@ Partial Class Compras_Compras
            Dim IndicePrimero As Integer = 0

            For Each dRow As DataRow In TmpDT.Rows
-                If Boolean.Parse(dRow("AplicaIEPS").ToString) Then
+                If Boolean.Parse(dRow("AplicaIEPS").ToString) And dRow("IEPSPS").ToString.ToDecimal > 0 Then
                    IndicePrimero = IndiceContador
                    Exit For
                End If
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -195,11 +195,84 @@ Partial Class PopUpVerFactura
                    SeleccionaReporte(UrlParametros)
                End If
            End If
-
+            If Request("onlyPrint") IsNot Nothing Then
+                If Request("onlyPrint").ToString() = "Pallet" Then
+                    imprimirpallet2(Request("CvePallet").ToString.ToEntero())
+                End If
+                If Request("onlyPrint").ToString() = "PalletCaja" Then
+                    imprimirpallet(Request("CvePallet").ToString.ToEntero())
+                End If
+            End If

        End If
    End Sub

+    Private Sub imprimirpallet2(cvePallet As Integer)
+        Dim Envase As String = ""
+        Dim Tamano As String = ""
+        Dim Cultivo As String = ""
+        Dim noPallet As String = ""
+        Dim Variedad As String = ""
+
+        'Envase = "1 1/9"
+        'Tamano = "Small"
+        'Cultivo = "Tomate"
+        'noPallet = "000001"
+        'Variedad = "Golden"
+        Using objnom As New ClsNominas
+            If objnom.PA_Agro_Embarque_PalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
+                Dim row As DataRow = objnom.DtResultados.Rows(0)
+                Envase = row("Envase").ToString()
+                Tamano = row("Tamaño").ToString()
+                Cultivo = row("Cultivo").ToString()
+                noPallet = row("Codigo").ToString()
+                Variedad = row("CultivoVariedad").ToString()
+
+            End If
+
+        End Using
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("Envase", Envase))
+        params.Add(New ReportParameter("Tamano", Tamano))
+        params.Add(New ReportParameter("Cultivo", Cultivo))
+        params.Add(New ReportParameter("noPallet", noPallet))
+        params.Add(New ReportParameter("Variedad", Variedad))
+        Dim tablaReporte As New DataTable
+        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
+        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
+        ImprimirPDF("GPS/PalletEtiqueta2.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS")
+    End Sub
+    Private Sub imprimirpallet(cvePallet As Integer)
+        Dim Envase As String = ""
+        Dim Tamano As String = ""
+        Dim Cultivo As String = ""
+        Dim noPallet As String = ""
+
+        'Envase = "1 1/9"
+        'Tamano = "Small"
+        'Cultivo = "Tomate"
+        'noPallet = "000001"
+        Using objnom As New ClsNominas
+            If objnom.PA_Agro_Embarque_PalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
+                Dim row As DataRow = objnom.DtResultados.Rows(0)
+                Envase = row("Envase").ToString()
+                Tamano = row("Tamaño").ToString()
+                Cultivo = row("Cultivo").ToString()
+                noPallet = row("Codigo").ToString()
+
+            End If
+
+        End Using
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("Envase", Envase))
+        params.Add(New ReportParameter("Tamano", Tamano))
+        params.Add(New ReportParameter("Cultivo", Cultivo))
+        params.Add(New ReportParameter("noPallet", noPallet))
+        Dim tablaReporte As New DataTable
+        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
+        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
+        ImprimirPDF("GPS/PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS")
+    End Sub
 #Region "U S U A R I O - T O K E N"

    Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario
--- a/Compras/ReembolsosComprobaciones.aspx
+++ b/Compras/ReembolsosComprobaciones.aspx
@@ -398,7 +398,7 @@
                    <asp:TemplateField Visible="false">
                        <HeaderTemplate>Ot. Ing.</HeaderTemplate>
                        <ItemTemplate>
-                            <asp:TextBox ID="TxtComision" Width="80px" runat="server" Style="text-align: right;"></asp:TextBox>&nbsp;
+                            <asp:TextBox ID="TxtComision" Width="80px" runat="server" Style="text-align: right;" CssClass="CsTxtComision"></asp:TextBox>&nbsp;
                            <asp:RangeValidator ID="RVComision" runat="server" Enabled="false" ErrorMessage="*" ControlToValidate="TxtComision" Display="Dynamic" Type="Double"></asp:RangeValidator>
                        </ItemTemplate>
                    </asp:TemplateField>
@@ -459,6 +459,21 @@
                txt.value = "";
            }

+            //let chequeSeleccionado = parseInt($('#C_DDlCheques option:selected').val());
+
+            //if (chequeSeleccionado > 0) {
+
+
+            //    let TotalOtrosEgresos = 0.0;
+            //    $('.CsTxtComision').each(function () {
+            //        TotalOtrosEgresos = parseFloat($(this).val());
+            //    });
+
+            //    alert("Excedente " + Excedente + " TotalOtrosEgresos " + TotalOtrosEgresos);
+
+            //}
+
+
            Excedente = SumaValores();

            if (Excedente > 0) {
@@ -666,9 +681,28 @@
                $get('TxtTotal').value = FormatoNumero(Suma + (ToDouble($get('TxtOtrosImportes').value * -1)), 2);
            }

+
+            let chequeSeleccionado = parseInt($('#C_DDlCheques option:selected').val());
+            let TotalOtrosEgresos = 0.0;
+
+            if (chequeSeleccionado > 0) {
+
+
+               
+                $('.CsTxtComision').each(function () {
+                    TotalOtrosEgresos = parseFloat($(this).val());
+                });
+
+                //alert("Excedente " + Excedente + " TotalOtrosEgresos " + TotalOtrosEgresos);  EEEEEEEEEEEEEEEEEEEEEEEEE
+
+                Excedente = Excedente + TotalOtrosEgresos;
+
+            }
+
+
            if (Excedente > 0) {
                txt.value = FormatoNumero(ToDouble(txt.value) - Excedente, 2);
-                alert("El Importe no debe de exceder a el saldo del cheque");
+                alert("Excedente " + Excedente + " TotalOtrosEgresos " + TotalOtrosEgresos);                
            }


--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -744,9 +744,7 @@ Partial Class Compras_ReembolsosComprobaciones
                            End If


-
-
-
+                            Dim ComisionTmp As Decimal = gvr.FCTextBox("TxtComision").Text.ToDecimal

                            'Otros Ingresos
                            If (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then
@@ -764,8 +762,15 @@ Partial Class Compras_ReembolsosComprobaciones
                            If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = (ImporteMovto / gvr.DataKey("Original").ToDecimal) Else PorcentajePago = 1

                            If Not ChkReembolsarSinBancos.Checked AndAlso (Not HdnCheque.Value.ToEntero > 0 Or Not UsuarioActual.CveEmpresa.Contiene(119, 158)) Then
+
+
+                                Dim ImporteMovtoTmp As Decimal = ImporteMovto
+                                If ComisionTmp < 0 Then
+                                    ImporteMovtoTmp = ImporteMovto + ComisionTmp
+                                End If
+
                                'Si es caja chica metemos el concepto 30, si es funcionario metemos 29
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, ImporteMovto, Referencia, If(CveCajaChica > 0, 30, 29), ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(CveCajaChica > 0, IdCuentaBancaria, IdCtaPersonal), -1, CveIE:=CveIEPago, CveIEDevolucion:=If(CveCajaChica > 0, If(DDlCheques.SelectedValue.ToEntero = -1, CveIECajaChica, DDlCheques.SelectedValue.ToEntero), -1), CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), ImporteMX:=ImporteMovto * tipoCambio, CveCuenta:=CveCuentaPersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, ImporteMovtoTmp, Referencia, If(CveCajaChica > 0, 30, 29), ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(CveCajaChica > 0, IdCuentaBancaria, IdCtaPersonal), -1, CveIE:=CveIEPago, CveIEDevolucion:=If(CveCajaChica > 0, If(DDlCheques.SelectedValue.ToEntero = -1, CveIECajaChica, DDlCheques.SelectedValue.ToEntero), -1), CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovtoTmp), ImporteMX:=ImporteMovtoTmp * tipoCambio, CveCuenta:=CveCuentaPersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then
                                    MsgError = "Detalle"
                                End If
                            End If
--- a/Compras/RepComprasAF.aspx
+++ b/Compras/RepComprasAF.aspx
@@ -174,7 +174,7 @@
        </ContentTemplate>
    </asp:UpdatePanel>
    <br />
-    <div class="col-md-8">
+    <div class="col-md-8" >
        <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
            <ContentTemplate>
                <asp:GridView ID="GvDatos" runat="server" data-sort="true" DataKeyNames="GPO,Cantidad,Total,Moneda" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros con los filtros especificados" 
--- a/Compras/RepComprasAF.aspx.vb
+++ b/Compras/RepComprasAF.aspx.vb
@@ -192,12 +192,19 @@ Partial Class Compras_RepComprasAF
            If CvePS = "" Or CvePS = "0" Then
                CvePS = "-1"
            End If
-            Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}&CveClasificacion2={e.Row.DBCampo("CveClasificacion2")}"
+
+
            If e.Row.DBCampo("Orden") = "1" Then
+                Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}&CveClasificacion2={e.Row.DBCampo("CveClasificacion2")}"
                e.Row.Cells(0).Text = String.Format("<a class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DataKey("GPO").ToString)
            Else
                e.Row.BackColor = Drawing.Color.LightGray
+                Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO=-1&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}&CveClasificacion2={e.Row.DBCampo("CveClasificacion2")}"
+
+                e.Row.Cells(0).Text = String.Format("<a style='font-weight:bold' class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DataKey("Moneda").ToString)
+
            End If
+
        End If
    End Sub

--- a/Compras/RepComprasAFDetalle.aspx.vb
+++ b/Compras/RepComprasAFDetalle.aspx.vb
@@ -317,6 +317,7 @@ Partial Class Compras_RepComprasAFDetalle
                e.Row.Cells(0).Text = String.Format("<a class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString)
            Else
                e.Row.BackColor = Drawing.Color.LightGray
+                e.Row.Font.Bold = True
            End If

        End If