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

2019-08-27 14:14:35 -07:00
parent 68abc82fd7 1b235737b0
commit 1cee95c506
11 changed files with 84 additions and 40 deletions
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1355,12 +1355,12 @@ Public Class ClsPaginas
            Application("GlobalDTTipoTransacciones") = value
        End Set
    End Property
-    Property GlobalDTEstatusIE() As DataTable
+    Property GlobalDTBancosEstatusIE() As DataTable
        Get
-            GlobalDTEstatusIE = DirectCast(Application("GlobalDTEstatusIE"), DataTable)
+            GlobalDTBancosEstatusIE = DirectCast(Application("GlobalDTBancosEstatusIE"), DataTable)
        End Get
        Set(value As DataTable)
-            Application("GlobalDTEstatusIE") = value
+            Application("GlobalDTBancosEstatusIE") = value
        End Set
    End Property
    Property GlobalDTBancosIE() As DataTable
--- a/Bancos/CatBancosEstatusIE.aspx.vb
+++ b/Bancos/CatBancosEstatusIE.aspx.vb
@@ -25,8 +25,8 @@ Partial Class Bancos_CatBancosEstatusIE
 		Dim ObjEstatusIE As New ClsBancos
 		If ObjEstatusIE.GetBancos_EstatusIE() Then
 			ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
-			GlobalDTEstatusIE = ObjEstatusIE.DtResultados
-		Else
+            GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
+        Else
 			Me.GvDatos.DataSource = Nothing
 		End If

@@ -47,9 +47,9 @@ Partial Class Bancos_CatBancosEstatusIE
 			Alert("El nuevo Estatus de Ingresos y Egresos se guardó correctamente.", TipoMensaje.MsgInformacion)
 			UpTitulos.Update()
 			ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
-			GlobalDTEstatusIE = ObjEstatusIE.DtResultados
+            GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados

-			If ViewState("Orden").ToString() <> String.Empty Then
+            If ViewState("Orden").ToString() <> String.Empty Then
 				CargaGrid(ViewState("Orden").ToString())
 			Else
 				CargaGrid("")
@@ -145,8 +145,8 @@ Partial Class Bancos_CatBancosEstatusIE
 			TxtCveEstatusIE.Text = ""
 			GvDatos.EditIndex = -1
 			ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
-			GlobalDTEstatusIE = ObjEstatusIE.DtResultados
-			Alert("El Estatus de Ingresos y Egresos se eliminó correctamente.", TipoMensaje.MsgInformacion)
+            GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
+            Alert("El Estatus de Ingresos y Egresos se eliminó correctamente.", TipoMensaje.MsgInformacion)
 		End If

 		ObjEstatusIE.Dispose()
@@ -178,8 +178,8 @@ Partial Class Bancos_CatBancosEstatusIE
 		If ObjEstatusIE.UpdateBancos_EstatusIE(EstatusIE, Estatus, CveEstatusIE) Then
 			GvDatos.EditIndex = -1
 			ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
-			GlobalDTEstatusIE = ObjEstatusIE.DtResultados
-			Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
+            GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
+            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
 		End If

 		ObjEstatusIE.Dispose()
--- a/Bancos/CatEstatusIE.aspx.vb
+++ b/Bancos/CatEstatusIE.aspx.vb
@@ -42,8 +42,8 @@ Partial Class Bancos_CatEstatusIE
        Dim ObjEstatusIE As New ClsBancos
        If ObjEstatusIE.GetBancos_EstatusIE() Then
            ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
-            GlobalDTEstatusIE = ObjEstatusIE.DtResultados
-            GvDatos.DataSource = GlobalDTEstatusIE
+            GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
+            GvDatos.DataSource = GlobalDTBancosEstatusIE
        Else
            GvDatos.DataSource = Nothing
        End If
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -701,16 +701,16 @@ Partial Class Bancos_IE
                LnkAjustarMovimiento.Visible = True
            End If

-            If Not VerificaComplementos(True) Then
+            'If Not VerificaComplementos(True) Then

-                LnkCancelarComplemento.Visible = False
-                LnkCancelarComplementoImporte.Visible = False
+            '    LnkCancelarComplemento.Visible = False
+            '    LnkCancelarComplementoImporte.Visible = False


-                UppEliminarIE.Update()
+            '    UppEliminarIE.Update()


-            End If
+            'End If

        End If
    End Sub
@@ -960,6 +960,10 @@ Partial Class Bancos_IE
                    HplDepositado.NavigateUrl = $"/Bancos/IE.aspx?CveIE={CveIEDeposito2}"
                End If

+                LnkCancelarComplemento.Visible = False
+                LnkCancelarComplementoImporte.Visible = False
+                UppEliminarIE.Update()
+

                CargaEventoBitacora()
                CargaGvBitacora()
--- a/Bancos/RepIE.aspx.vb
+++ b/Bancos/RepIE.aspx.vb
@@ -423,7 +423,7 @@ Partial Class Bancos_RepIE
        DdlMoneda.Items.Insert(0, New ListItem("Todas", "-1"))
    End Sub
    Private Sub CargaEstatusIE()
-        DdlEstatusIE.DataSource = GlobalDTEstatusIE
+        DdlEstatusIE.DataSource = GlobalDTBancosEstatusIE
        DdlEstatusIE.DataBind()
    End Sub
    Private Sub CargaUsuarioConcilio()
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9744,18 +9744,21 @@ Partial Class Compras_Compras
            ReceptorRFC = ValorXML(node, "RFC")
        End If

-        node = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
-        If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
-            If ValorXML(node, "TipoRelacion").ToString.Contiene("04", "07") Then
-                Dim nodeDocumentosRelacionados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionado", Prefijo), namespaces)
-                For Each documento As XmlNode In nodeDocumentosRelacionados
-                    If documento.Attributes("UUID").Value <> "" Then
-                        ListaDocumentos.Add(documento.Attributes("UUID").Value)
-                    End If
-                Next
+        If UsuarioActual.CveEmpresa.Contiene(119) Then
+            node = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
+            If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
+                If ValorXML(node, "TipoRelacion").ToString.Contiene("04", "07") Then
+                    Dim nodeDocumentosRelacionados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionado", Prefijo), namespaces)
+                    For Each documento As XmlNode In nodeDocumentosRelacionados
+                        If documento.Attributes("UUID").Value <> "" Then
+                            ListaDocumentos.Add(documento.Attributes("UUID").Value)
+                        End If
+                    Next
+                End If
            End If
        End If

+
        node = XMLDoc.SelectSingleNode(String.Format("//{0}:Impuestos", Prefijo), namespaces)
        If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
            Dim nodeRetenciones As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Impuestos/{0}:Retenciones/{0}:Retencion", Prefijo), namespaces)
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -3260,7 +3260,7 @@ Partial Class Contratos_Default
                    Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper
                    Dim PrecioUnitario As Double = Row("Precio Unitario").ToString.ToDouble
                    Dim CvePS As Integer = 0
-                    Dim CveUM As Integer = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero
+                    Dim CveUM As Integer = 0 ' GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero
                    Dim CodigoPS As Integer = 0
                    Dim Total As Double = (Cantidad * PrecioUnitario)

--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1528,7 +1528,7 @@ Partial Class Inventarios_EntradasSalidas
                                    If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then
                                        IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
                                    End If
-                                Case 13
+                                Case 13, 29
                                    CveConceptoContable = 69
                                    Dim drr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("")
                                    If drr IsNot Nothing Then
@@ -1881,7 +1881,7 @@ Partial Class Inventarios_EntradasSalidas
        Dim filtro As String = ""
        Dim CveTipoAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero

-        filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27,29)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27,29)")
+        filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27)")

        If DdlAlmacen.SelectedValue = "-1" Then
            filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString
--- a/Planeacion/CatFolios.aspx.vb
+++ b/Planeacion/CatFolios.aspx.vb
@@ -70,6 +70,7 @@ Partial Class CatFolios
            DdlTipoDocto.Items.Insert(31, New ListItem("Proveedor", "Pro"))
            DdlTipoDocto.Items.Insert(32, New ListItem("Acreedor", "Acr"))
            DdlTipoDocto.Items.Insert(33, New ListItem("Productos/Servicios", "PS"))
+            DdlTipoDocto.Items.Insert(34, New ListItem("NC de Remisión", "RNC"))
        ElseIf UsuarioActual.Empresa.CvePlataforma = 2 Then
            DdlTipoDocto.Items.Insert(1, New ListItem("Facturas", "Ing"))
            DdlTipoDocto.Items.Insert(2, New ListItem("Notas de Crédito", "Egs"))
--- a/Ventas/PopUpBuscarFolio.aspx
+++ b/Ventas/PopUpBuscarFolio.aspx
@@ -46,6 +46,7 @@
                                <asp:ListItem Text="Pedido" Value="Ped"></asp:ListItem>
                                <asp:ListItem Text="Autorización" Value="PA"></asp:ListItem>
                                <asp:ListItem Text="Pedido2" Value="Pd2"></asp:ListItem>
+                                <asp:ListItem Text="NC de Remisión" Value="RNC"></asp:ListItem>
                            </asp:DropDownList>
                        </td>
                        <td class="text-right"><b>Estatus Factura:</b></td>
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -1727,6 +1727,10 @@ Partial Class Ventas

            DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Pd2"))

+            If UsuarioActual.Empresa.Funcionalidad(344).ToString = "1" Then
+                DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("NC de Remisión", "RNC"))
+            End If
+
            If UsuarioActual.Empresa.Funcionalidad(528) = "1" Then 'FUNCIONALIDAD. DE REGISTRO DE CUENTA PREDIAL.
                GvPS.Columns(ColumnaPredial).Visible = True
                thPredial1.Visible = True
@@ -6568,7 +6572,7 @@ Partial Class Ventas
                        'ContPAQ El movimiento 1 es el de Venta
                        Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"

-                        If UsuarioActual.CveEmpresa = 119 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ant", "Rem", "Cot", "Ped", "Pd2", "PA", "NC") Then
+                        If UsuarioActual.CveEmpresa = 119 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "NC") Then
                            AutoConta = False
                        End If

@@ -6623,7 +6627,7 @@ Partial Class Ventas
                        Dim EstatusSMS = 0

                        'TIMBRADO Y CASO ESPECIAL NOTA DE CREDITO
-                        If (TipoDoctoDevolucion = "" OrElse Not TipoDoctoDevolucion.Contiene("Rem", "Cot", "Ped", "DPe", "PA", "Pd2")) Then
+                        If (TipoDoctoDevolucion = "" OrElse Not TipoDoctoDevolucion.Contiene("Rem", "RNC", "Cot", "Ped", "DPe", "PA", "Pd2")) Then

                            Dim DebeTimbrar As Boolean = True
                            If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
@@ -9104,7 +9108,7 @@ Partial Class Ventas
                CvePlantilaPoliza = 4
            ElseIf ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
                CvePlantilaPoliza = 7
-            ElseIf ObjFactura.TipoDocto = "Rem" Then
+            ElseIf ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
                CvePlantilaPoliza = 4
            End If

@@ -9173,7 +9177,7 @@ Partial Class Ventas

                    Select Case ConceptoContable
                        Case 1 'Cliente
-                            If Not ObjFactura.TipoDocto.Contiene("Egs", "Rem") Then
+                            If Not ObjFactura.TipoDocto.Contiene("Egs", "Rem", "RNC") Then
                                importeMovimiento = (ObjFactura.Total - TotalOtrosConceptos) * ValorMultiplicador
                                importeMX = importeMovimiento * tipoCambio * Multiplicador
                                FechaMovimiento = ObjFactura.FechaPago
@@ -9247,6 +9251,37 @@ Partial Class Ventas
                                ViewState("SeGuardoPrePoliza") = True
                            End If

+                        Case 277 'Remisión del cliente
+
+                            If ObjFactura.TipoDocto = "RNC" Then
+                                importeMovimiento = (ObjFactura.Total - TotalOtrosConceptos) * ValorMultiplicador
+                                importeMX = importeMovimiento * tipoCambio * Multiplicador
+                                FechaMovimiento = ObjFactura.FechaPago
+                                CveSubProyectoContabilizar = CveSubProyectoVenta
+                                If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+
+                                If tipoCambio = 1 Then
+                                    IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
+                                    CveCuenta = ObjFactura.Cliente.CveCuentaClientes
+                                Else
+                                    IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera
+                                    CveCuenta = ObjFactura.Cliente.CveCuentaMonedaExtranjera
+                                End If
+                                IdCtaContableCliente = IdCtaContable
+                                CveCuentaCliente = CveCuenta
+
+                                If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                        ErrorPrepoliza = True
+                                    End If
+                                Else
+                                    ErrorPrepoliza = True
+                                End If
+
+                                importeMovimiento = 0
+                                ViewState("SeGuardoPrePoliza") = True
+                            End If
+
                        Case 12 'Nota de Credito
                            If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
                                importeMovimiento = ObjFactura.Total * ValorMultiplicador
@@ -9712,7 +9747,7 @@ Partial Class Ventas
                            importeMovimiento = 0

                        Case 4 'Venta Clasificacion
-                            If Not ObjFactura.TipoDocto.Contiene("Rem", "Ant", "Egs", "Dev") Then
+                            If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC", "Ant", "Egs", "Dev") Then

                                Dim ConceptoContableAplicar = 4
                                Dim CveVentaAplicar = ObjFactura.CveVenta
@@ -9890,7 +9925,7 @@ Partial Class Ventas

                            importeMovimiento = 0
                        Case 103 'Descuento
-                            If Not ObjFactura.TipoDocto.Contiene("Rem") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "-1" Then
+                            If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "-1" Then

                                importeMovimiento = ObjFactura.Descuento * ValorMultiplicador
                                importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
@@ -9937,7 +9972,7 @@ Partial Class Ventas
                            End If

                        Case 8 'Ret IVA por Trasladar
-                            If Not ObjFactura.TipoDocto.Contiene("Rem") Then
+                            If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
                                importeMovimiento = ObjFactura.RetIVA * ValorMultiplicador
                                importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
                                FechaMovimiento = ObjFactura.FechaPago
@@ -9968,7 +10003,7 @@ Partial Class Ventas
                            End If

                        Case 9 'Ret ISR por Trasladar
-                            If Not ObjFactura.TipoDocto.Contiene("Rem") Then
+                            If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
                                importeMovimiento = ObjFactura.RetISR * ValorMultiplicador
                                importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
                                FechaMovimiento = ObjFactura.FechaPago
@@ -9998,7 +10033,7 @@ Partial Class Ventas
                                End If
                            End If
                        Case 13 'Iva por Trasladar
-                            If Not ObjFactura.TipoDocto.Contiene("Rem") Then
+                            If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then
                                importeMovimiento = ObjFactura.IVA * ValorMultiplicador
                                importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2)
                                FechaMovimiento = ObjFactura.FechaPago