correcciones a carga centro de costo

Compras/Compras.aspx.vb

@@ -7385,21 +7385,23 @@ Partial Class Compras_Compras
 
                                                                     End If
 
-                                                                    ''Unificacion de PrePolizas
+                                                                    If UsuarioActual.CveEmpresa.Contiene(83) Then
-                                                                    'If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
+                                                                        'Unificacion de PrePolizas
-                                                                    '    If Not ObjConta.PrePolizaUnificacion(Ant.CvePrePoliza, CvePrePoliza) Then
+                                                                        If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
-                                                                    '        ErrorPrepoliza = True
+                                                                            If Not ObjConta.PrePolizaUnificacion(Ant.CvePrePoliza, CvePrePoliza) Then
-                                                                    '        Alert("No se pudo unificar la prepoliza", TipoMensaje.MsgError)
+                                                                                ErrorPrepoliza = True
-                                                                    '    End If
+                                                                                Alert("No se pudo unificar la prepoliza", TipoMensaje.MsgError)
-                                                                    'End If
+                                                                            End If
+                                                                        End If
 
-                                                                    ''Simplificacion de PrePolizas
+                                                                        'Simplificacion de PrePolizas
-                                                                    'If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
+                                                                        If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                                                                    '    If Not ObjConta.PrePolizaSimplificacion(Ant.CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                                                                            If Not ObjConta.PrePolizaSimplificacion(Ant.CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                                                    '        ErrorPrepoliza = True
+                                                                                ErrorPrepoliza = True
-                                                                    '        Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
+                                                                                Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
-                                                                    '    End If
+                                                                            End If
-                                                                    'End If
+                                                                        End If
+                                                                    End If
 
                                                                 Next
                                                                 importeMovimiento = 0
@@ -17357,7 +17359,7 @@ Partial Class Compras_Compras
     Private Sub CargaSubProyecto()
         Dim CveProyecto = If(DdlProyecto.SelectedValue.ToEntero > 0, DdlProyecto.SelectedValue.ToEntero, -1)
         DdlSubProyecto.Items.Clear()
-        If CveProyecto > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(1, 2) Then
+        If CveProyecto > 0 Then
             DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
         End If
         DdlSubProyecto.DataBind()
@@ -19692,7 +19694,6 @@ Partial Class Compras_Compras
         Next
 
         TmpDT.AcceptChanges()
-        Alert((TmpDT.Select("Consec = " & gvr.RowIndex + 1)(0))("NoDeducible").ToString())
         AddPS2(EsNoDeducible:=EsNoDeducible)
 
     End Sub

Compras/RepCxP.aspx.vb

@@ -177,7 +177,7 @@ Partial Class Compras_RepCxP
             GvCxP.Columns(10).Visible = False
             Dim Contador As Integer = 2
             Dim CargaColumnaVencido As Boolean = False
-            Dim Dr As DataRow = Mov.DtResultados.Rows(0)
+            Dim Dr As DataRow = DtDatos.Rows(0)
             If Dr("NomC1").ToString <> "" Then
                 GvCxP.Columns(Contador).Visible = True
                 GvCxP.Columns(Contador).HeaderText = Dr("NomC1").ToString

OC/OC.aspx.vb

@@ -695,20 +695,20 @@ Partial Class OC
                 divtxtprioridad.Visible = False
             End If
 
-            If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-
-            ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-
-            ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-
-            ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-
-            End If
-
             CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, TtituloProyecto, TituloSubProyecto)
             CargarCentrosDeCosto(Nothing, DdlSubProyectoContrato, LblProyecto, LblSubProyecto)
             DivProyecto.Visible = DdlProyecto.Visible
 
+            DdlSubProyecto.Items.Clear()
+            ' aqui tiene otras condiciones especiales
+            DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+            DdlSubProyecto.DataBind()
+            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DdlSubProyectoContrato.Items.Clear()
+            DdlSubProyectoContrato.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+            DdlSubProyectoContrato.DataBind()
+            DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
             'SOLO SE MUESTRA CUANDO ES REGISTRO NUEVO
             If Not CveOrdenCompra > 0 Then
                 If UsuarioActual.Empresa.EsComercializadora And Not CveCotizacion > 0 Then

Ventas/Ventas.aspx.vb

@@ -1948,7 +1948,7 @@ Partial Class Ventas
             CreaDTmpF()
             CreaDTDocumentosRelacionados()
             CargaDdlSubProyectos()
-            CargaProyecto()
+            'CargaProyecto()
             CargaSucursales()
 
             CargaClasificaciones()
@@ -4760,14 +4760,14 @@ Partial Class Ventas
         UpINV.Update()
     End Sub
     Private Sub CargaSubProyecto(Optional CveSubProyecto As Integer = -1)
-        DdlSubProyecto.Items.Clear()
+        'DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.SelectedValue = Nothing
+        'DdlSubProyecto.SelectedValue = Nothing
-        If DdlProyecto.SelectedValue.ToEntero() > 0 Then
+        'If DdlProyecto.SelectedValue.ToEntero() > 0 Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        '    DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+        '    'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-        End If
+        'End If
-        DdlSubProyecto.DataBind()
+        'DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
+        'DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
         If CveSubProyecto > 0 Then DdlSubProyecto.SelectedValueExist(CveSubProyecto)
     End Sub
 
@@ -6153,23 +6153,23 @@ Partial Class Ventas
             TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString().ToDecimal)
 
             Dim ClienteRetIVA = Me.ClienteRetIVA
-            If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+
-                'ClienteRetIVA = 0.0D
+            If ClienteRetIVA <= 0 Then
-                If ClienteRetIVA <= 0 Then
+                If CBool(TmpDT.Rows(e.RowIndex)("EsOutSourcing").ToString()) Then
-                    If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
+                    ClienteRetIVA = 0.06D
-                        ClienteRetIVA = 0.106667D
+                    DdlTipoRetencion.SelectedValueExist("4")
-                    ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
+                    LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
-                        ClienteRetIVA = 0.04D
+                    TrRetIVA.Style.Add("display", "")
-                    ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(TmpDT.Rows(e.RowIndex)("EsOutSourcing").ToString()) Then
+                    DdlTipoRetencion.Visible = True
-                        ClienteRetIVA = 0.06D
+                ElseIf DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
-                    End If
+                    ClienteRetIVA = 0.106667D
+                ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
+                    ClienteRetIVA = 0.04D
                 End If
-                ' LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
-                TrRetIVA.Style.Add("display", "")
-                DdlTipoRetencion.Visible = True
             End If
 
 
+
             TmpDT.Rows(e.RowIndex)("CveUM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedValue.ToEntero()
             TmpDT.Rows(e.RowIndex)("UM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedItem.Text
             TmpDT.Rows(e.RowIndex)("Cantidad") = Cantidad
@@ -8582,9 +8582,9 @@ Partial Class Ventas
             End Select
             ObjFactura.ComplementoINE = INE
         End If
-        If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+
-            ObjFactura.CveTipoRetencion = DdlTipoRetencion.SelectedValue.ToEntero()
+        ObjFactura.CveTipoRetencion = DdlTipoRetencion.SelectedValue.ToEntero()
-        End If
+
         ObjFactura.NuevaFactura = Me.NuevaFactura
     End Sub
 
@@ -9506,10 +9506,8 @@ Partial Class Ventas
             Next
         End If
 
-        Dim CveTipoRetencion As Integer = 0
+
-        If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+
-            CveTipoRetencion = factura.CveTipoRetencion
-        End If
 
         'SI LA FACTURA ESTA PAGADA DEBE MARCAR LA DEVOLUCION POR SI SE QUIERE AMORTIZAR
         If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso factura.TipoDocto = "Dev" Then
@@ -9531,7 +9529,7 @@ Partial Class Ventas
                            CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero() > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
                            CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                            DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
-                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero) Then
+                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         Else
             If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then
@@ -15229,24 +15227,23 @@ Partial Class Ventas
         End If
 
         Dim ClienteRetIVA = Me.ClienteRetIVA
-        If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
-            'ClienteRetIVA = 0.0D
-            If ClienteRetIVA <= 0 Then
-                If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
-                    ClienteRetIVA = 0.106667D
-                ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
-                    ClienteRetIVA = 0.04D
-                ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(DrPS("EsOutSourcing").ToString()) Then
-                    ClienteRetIVA = 0.06D
-                End If
 
+        If ClienteRetIVA <= 0 Then
+            If CBool(DrPS("EsOutSourcing").ToString()) Then
+                ClienteRetIVA = 0.06D
+                DdlTipoRetencion.SelectedValueExist("4")
+            ElseIf DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
+                ClienteRetIVA = 0.106667D
+            ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
+                ClienteRetIVA = 0.04D
             End If
-
-            ' LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
-            TrRetIVA.Style.Add("display", "")
-            DdlTipoRetencion.Visible = True
         End If
 
+        LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
+        TrRetIVA.Style.Add("display", "")
+        DdlTipoRetencion.Visible = True
+
+
         Row("IVA") = Row("PorcentajeIVA")
         Row("ImporteIVA") = (Row("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales)
         Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
@@ -15283,6 +15280,7 @@ Partial Class Ventas
         Row("CveVentaDetalleCotizacion") = CveVentaDetalleCotizacion
         Row("CveVentaDetallePedido2") = CveVentaDetallePedido2
         Row("CuentaPredial") = CuentaPredial
+        Row("EsOutSourcing") = DrPS("EsOutSourcing")
 
         If UsuarioActual.CveEmpresa = 119 Then
             If Not RemisionesLista.Count > 0 Then 'SI VIENE DE REMISION NO SE CONSIDERA
@@ -25861,8 +25859,8 @@ Partial Class Ventas
     Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
 
         If CveVenta <= 0 OrElse EsCreaApartirDe Then
-            If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+
-                If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
+            If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
                     For Each RowServicio As DataRow In TmpDT.Rows
                         Dim tClienteRetIVA = ClienteRetIVA
                         If tClienteRetIVA <= 0 Then
@@ -25895,7 +25893,7 @@ Partial Class Ventas
 
 
                 End If
-            End If
+
 
         End If
         UpPS.Update()