Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2021-06-30 10:27:54 -07:00
parent f40d6397f8 3cefe30612
commit 9036cb0e45
26 changed files with 556 additions and 330 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8343,9 +8343,9 @@ Partial Class Compras_Compras
                                    'ACTUALIZA CVEFACTURA
                                    If Request("CveFactura") IsNot Nothing Then

-                                        If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
-                                            TieneError = True
-                                        End If
+                                        'If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
+                                        '    TieneError = True
+                                        'End If

                                        If UsuarioActual.Empresa.UsaAC Then
                                            MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza)
@@ -10357,7 +10357,7 @@ Partial Class Compras_Compras
                        Dim CveProveedorConcepto As Integer = 0, CveIE As Integer = 0, CveCreditoDetalle As Integer = 0
                        Dim ConceptoPersonal As String = "", Concepto As String = ""

-                        If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza) Then
+                        If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                            ErrorPrepoliza = True
                        Else
                            If ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (6,68,49,205,176)").Rows.Count > 0 Then
@@ -15010,7 +15010,7 @@ Partial Class Compras_Compras
                End If
            Else
                If CvePrePoliza > 0 Then
-                    If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza) Then
+                    If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                        dt = ObjContabilidad.DtResultados

                        CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -15062,11 +15062,11 @@ Partial Class Compras_Compras

            'LIMPIA PRE-POLIZA PONIENDO IMPORTE EN CEROS
            If CvePrePoliza > 0 Then
-                If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza) Then
+                If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                    dt = ObjContabilidad.DtResultados

                    For Each dr As DataRow In dt.Rows
-                        If Not ObjContabilidad.UpdatePrepolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                        If Not ObjContabilidad.UpdatePrePolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                            ErrorCancelar = True : Exit For
                        End If
                    Next
@@ -18689,7 +18689,7 @@ Partial Class Compras_Compras
            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero
            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Clasificacion") = HdnPSAliasClasificacion.Value
            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Obs") = TxtPSAlias.Text.Trim
-            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value
+            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value

            'busco si el producto está en otros renglones QUE NO LO TENGAN ASIGNADO, LO VINCULE
@@ -18701,7 +18701,7 @@ Partial Class Compras_Compras
                drt("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero
                drt("Clasificacion") = HdnPSAliasClasificacion.Value
                drt("Obs") = TxtPSAlias.Text.Trim
-                drt("CveSATPS") = HdnPSAliasCveSATPS.Value
+                drt("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
                drt("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value

            Next
@@ -18710,14 +18710,12 @@ Partial Class Compras_Compras
            GvPS.DataBind()
            UpPS.Update()

-            Alert("Registro actualizado con exito.", TipoMensaje.MsgInformacion)
+            Alert("Registro actualizado con éxito.", TipoMensaje.MsgInformacion)

            RegistraScript("$('#ModalPSAlias').modal('hide');", "ModalPSAliasHide")
        End If
        PS.Dispose()

-
-
    End Sub

    Private Sub RecargaGlobalEquivalencias()
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2310,16 +2310,16 @@ Partial Class PopUpVerFactura


                Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
-                If Archivo.Exists Then
+                If Archivo.Exists Then
+                    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+                    If Imagen.Exists Then
+                        params.Add(New ReportParameter("LogoPath", logouri))
+                    Else
+                        params.Add(New ReportParameter("LogoPath", ""))
+                    End If
                    If UsuarioActual.CveEmpresa = 140 Then
-                        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
-                        If Imagen.Exists Then
-                            params.Add(New ReportParameter("LogoPath", logouri))
-                        Else
-                            params.Add(New ReportParameter("LogoPath", ""))
-                        End If
                        params.Add(New ReportParameter("Origen", Almacen))
                        params.Add(New ReportParameter("Destino", AlmacenDestino))
                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
@@ -2329,7 +2329,19 @@ Partial Class PopUpVerFactura
                        params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString()))
                        params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
                        params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
-                    Else
+                    ElseIf UsuarioActual.CveEmpresa = 153 Then
+                        params.Add(New ReportParameter("Origen", Almacen))
+                        params.Add(New ReportParameter("Destino", AlmacenDestino))
+                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                        params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
+                        params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
+                        params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
+                        params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
+                        params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
+                        params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
+                    Else
                        params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
                        params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
                        params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
@@ -2414,7 +2426,21 @@ Partial Class PopUpVerFactura
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                        params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
-                        params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
+                        params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
+                    ElseIf UsuarioActual.CveEmpresa = 153 Then
+                        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+                        If Imagen.Exists Then
+                            params.Add(New ReportParameter("LogoPath", logouri))
+                        Else
+                            params.Add(New ReportParameter("LogoPath", ""))
+                        End If
+                        params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
+                        params.Add(New ReportParameter("Destino", Almacen))
+                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                    End If


@@ -3975,7 +4001,7 @@ Partial Class PopUpVerFactura
                End If
            ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
                Dim PreP As New ClsContabilidad
-                If PreP.GetPrePolizasDetalle(-1, CveIE) Then
+                If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
                    DtMovimientosPoliza = New DataTable
                    DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
                    DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
@@ -4055,7 +4081,7 @@ Partial Class PopUpVerFactura
            tIdPoliza = ObjIE.IDPoliza

            Dim PreP As New ClsContabilidad
-            If PreP.GetPrePolizasDetalle(-1, CveIE) Then
+            If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
                If PreP.DtResultados.Rows.Count > 0 Then
                    CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
                    CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
@@ -4256,7 +4282,7 @@ Partial Class PopUpVerFactura

                    Dim dtMovs As New DataTable
                    Dim Mov As New ClsContabilidad
-                    If Mov.GetPrePolizasDetalle(-1, CveIE) Then
+                    If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then

                        dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)")