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

App_Code/ClsPaginas.vb

@@ -6183,7 +6183,9 @@ Public Class ClsPaginas
                     namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte")
                     namespaces.AddNamespace("cartaporte20", "http://www.sat.gob.mx/CartaPorte20")
                     namespaces.AddNamespace("cartaporte30", "http://www.sat.gob.mx/CartaPorte30")
+                    namespaces.AddNamespace("cartaporte31", "http://www.sat.gob.mx/CartaPorte31")
 
+                    Dim Nodos31 As XmlNode = XMLDoc.SelectSingleNode("//cartaporte31:CartaPorte", namespaces)
                     Dim Nodos30 As XmlNode = XMLDoc.SelectSingleNode("//cartaporte30:CartaPorte", namespaces)
                     Dim Nodos20 As XmlNode = XMLDoc.SelectSingleNode("//cartaporte20:CartaPorte", namespaces)
 
@@ -6197,6 +6199,11 @@ Public Class ClsPaginas
                         PrefijoCCP = "cartaporte20"
                     End If
 
+                    If Nodos31 IsNot Nothing Then
+                        VersionCCP = "3.1"
+                        PrefijoCCP = "cartaporte31"
+                    End If
+
                     params.Add(New ReportParameter("CartaPorteVersion", VersionCCP))
 
                     Dim nodeComprobante As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", Prefijo), namespaces)

App_Code/Timbrado.vb

@@ -1050,7 +1050,7 @@ Public Class Timbrado
 
         If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo)
 
-        If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then
+        If Not ClsPaginas.EsProduccion AndAlso (Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then
             AmbienteProductivo = False
             Clave = "12345678a"
             EmisorRFC = "EKU9003173C9"
@@ -2552,7 +2552,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
 
             Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
 
-            If UsuarioActual.CveEmpresa = 1 Then
+            If UsuarioActual.CveEmpresa.Contiene(1, 140) Then
                 ''DATOS GENERALES
                 cfdi.CartaPorte31("", Carta.TranspInternac, Carta.EntradaSalidaMercancia, Carta.PaisOrigenDestino, Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)
 
@@ -2934,8 +2934,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
 
         UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL"
 
-        If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then
-
+        If Not ClsPaginas.EsProduccion AndAlso (Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then
             EmisorRFC = "EKU9003173C9"
             UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE"
             ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.key"
@@ -3164,9 +3163,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
         Dim TimbraProduccion As Boolean = True
         If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo)
 
-
-        If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then
-
+        If Not ClsPaginas.EsProduccion AndAlso (Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then
             EmisorRFC = "EKU9003173C9"
             UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE"
             ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.key"

Ashx/E141.ashx

@@ -373,6 +373,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
             Dim Mail As String = "-1"
 
             Dim DtSucursales As DataTable = Nothing
+            Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
 
             Using ObjClientes As New ClsClientes
                 If ObjClientes.GetListaSucursales(RFC, CveEmpresa) Then
@@ -1764,6 +1765,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
         Dim Retorno As Boolean = True
 
         Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
 
         Dim DtPS As DataTable = Nothing
         Using ObjPS As New ClsProductosServicios
@@ -1796,6 +1798,8 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
         Dim Retorno As Boolean = False
         Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
 
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
+
         Dim DtPS As DataTable = Nothing
         Using ObjPS As New ClsProductosServicios
             'OBTERNER PRECIOS DE PUBLICO GENERAL
@@ -1889,7 +1893,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
         Dim payload = New JObject()
 
         Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
-
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
         Dim DtPS As DataTable = Nothing
         Using ObjPS As New ClsProductosServicios
             'OBTERNER PRECIOS DE PUBLICO GENERAL
@@ -1966,6 +1970,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
         Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
 
         Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
+
         Dim DtPS As DataTable = Nothing
         Using ObjPS As New ClsProductosServicios
             'OBTERNER PRECIOS DE PUBLICO GENERAL

Transportes/RepContratosCalendario.aspx

@@ -102,7 +102,7 @@
                                         </div>
                                         <%-- Estatus --%>
                                         <label class="col-md-1 ">Estatus:</label>
-                                        <div class="col-md-2">
+                                        <div class="col-md-1">
                                             <asp:DropDownList ID="DdlEstatusConsulta" data-text="Todos" AppendDataBoundItems="true"
                                                 DataTextField="ContratoEstatus"
                                                 DataValueField="CveContratoEstatus" CssClass="form-control ddlFiltros input-sm select2me Widthall"
@@ -116,7 +116,7 @@
                             <div class="portlet-body row" style="display: none">
                                 <%-- Centro de Costos --%>
                                 <label class="col-md-1 truncate ">Centro de Costos</label>
-                                <div class="col-md-3">
+                                <div class="col-md-1">
                                     <asp:DropDownList ID="DdlSubProyectos" data-text="Todos" AppendDataBoundItems="true"
                                         DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control ddlFiltros input-sm select2me Widthall"
                                         Style="width: 100%;" runat="server">
@@ -124,7 +124,7 @@
                                 </div>
                                 <%-- Tipo de Unidad --%>
                                 <label class="col-md-1 ">Tipo de Unidad</label>
-                                <div class="col-md-2">
+                                <div class="col-md-1">
                                     <asp:DropDownList ID="DdlTipoUnidad" data-text="Todos" AppendDataBoundItems="true"
                                         DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" CssClass="form-control ddlFiltros input-sm select2me Widthall"
                                         Style="width: 100%;" runat="server">
@@ -248,28 +248,24 @@
 
                                             <asp:TemplateField HeaderText="Unidad">
                                                 <ItemTemplate>
-                                                    <asp:Literal ID="LtlAF" runat="server" Text='<%# Eval("NombreAF") %>'></asp:Literal>
+                                                    <asp:Literal ID="LtlAF" runat="server" Text='<%# Eval("CodigoAF") %>'></asp:Literal>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-
                                             <asp:TemplateField HeaderText="Fecha Final" ItemStyle-Width="100px">
                                                 <HeaderTemplate>
                                                     Fecha<br />
-                                                    Regreso
-                                       
+                                                    Regreso                                       
                                                 </HeaderTemplate>
                                                 <ItemTemplate>
                                                     <asp:Literal ID="LtlFechaFinal" runat="server" Text='<%# Eval("FechaFinal", "{0:d}") %>'></asp:Literal>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-
                                             <asp:TemplateField HeaderText="Estatus">
                                                 <ItemTemplate>
                                                     <asp:Label ID="LtlContrato" runat="server" Text='<%# Eval("ContratoEstatus") %>'>
                                             </asp:Label>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-
                                             <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
                                                 <ItemTemplate>
                                                     <asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar" OnClick="UpdateModal"
@@ -428,8 +424,7 @@
                                 <div class="col-md-8">
                                     <asp:DropDownList ID="DdlChofer" AppendDataBoundItems="true" DataValueField="CvePersonal"
                                         DataTextField="NombreCompleto" Class="table-group-action-input form-control input-inline select2me"
-                                        Width="100%" runat="server">
-                                        <asp:ListItem Value="-1" Selected="True">-</asp:ListItem>
+                                        Width="100%" runat="server"> 
                                     </asp:DropDownList>
                                 </div>
                             </div>

Transportes/RepContratosCalendario.aspx.vb

@@ -57,7 +57,13 @@ Partial Class RepContratosCalendario
         Dim CveCliente As Integer = DdlCliente.SelectedValue.ToEntero
         If CveCliente = 0 Then CveCliente = -1
 
-        If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then
+        If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate,
+                                                DdlCliente.SelectedValue.ToEntero,
+                                                CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero,
+                                                CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero,
+                                                CveTipoContrato:=34,
+                                                CveTipoAF:=DdlTipoUnidad.SelectedValue.ToEntero,
+                                                CveChofer:=DdlChoferFiltro.SelectedValue.ToEntero) Then
             DtAvance = ObjContratos.DtResultados.Copy()
             CargaCronograma(DdlTipoVista.SelectedValue.ToEntero)
         End If
@@ -77,7 +83,10 @@ Partial Class RepContratosCalendario
     Private Sub CargaCronograma(Optional TipoVista As Integer = -1)
         If DtAvance IsNot Nothing Then
 
-            Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", Orderby:=" TipoActivoFijo ASC, CodigoNumeroOrden ASC", DistinctColumns:={"Codigo", "CveActivoFijo"})
+            Dim StrFiltro As String = ""
+            If DdlTipoUnidad.SelectedValue.ToEntero > 0 Then StrFiltro = " AND CveTipoActivoFijo = " & DdlTipoUnidad.SelectedValue
+
+            Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3) " & StrFiltro, Orderby:=" TipoActivoFijo ASC, CodigoNumeroOrden ASC", DistinctColumns:={"Codigo", "CveActivoFijo"})
 
             'For Each Row As DataRow In DtAvance.Rows
             '    If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then
@@ -138,37 +147,36 @@ Partial Class RepContratosCalendario
 
     Private Sub InicializaCombos()
         'Lista de Tipos de activo fijos
-        DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
-        DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
+        Dim dttipoaf As DataTable = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
+        DdlTipoAF.DataSource = dttipoaf
+        DdlTipoAF.Items.Insert(0, New ListItem("-", "-1"))
         DdlTipoAF.DataBind()
 
-        DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
-        DdlTipoUnidad.DataBind()
-        DdlTipoUnidad.Items.Insert(0, New ListItem("-", ""))
-        'Lista de Activos fijos
+        DdlTipoUnidad.DataSource = dttipoaf
+        DdlTipoUnidad.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlTipoUnidad.DataBind()
+
+        'Lista de Activos fijos
         DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlAF.DataBind()
-        DdlAF.Items.Insert(0, New ListItem("-", ""))
+        DdlAF.Items.Insert(0, New ListItem("-", "-1"))
 
         'Lista Chofer'
-        DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
+        Dim dtchofer As DataTable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("CvePuesto = 702 and CveEstatusPersonal = 1", "NombreCompleto")
+        DdlChofer.DataSource = dtchofer
         DdlChofer.DataBind()
         DdlChofer.Items.Insert(0, New ListItem("-", "-1"))
         DdlChofer.SelectedValueExist(-1)
 
-        DdlChofer2.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
+        DdlChofer2.DataSource = dtchofer
         DdlChofer2.DataBind()
         DdlChofer2.Items.Insert(0, New ListItem("-", "-1"))
         DdlChofer2.SelectedValueExist(-1)
 
-        DdlChoferFiltro.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
+        DdlChoferFiltro.DataSource = dtchofer
         DdlChoferFiltro.DataBind()
-        DdlChoferFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
-
-        DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
-        DdlTipoUnidad.DataBind()
-        DdlTipoUnidad.Items.Insert(0, New ListItem("Todos", "-1"))
-
+        DdlChoferFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
         DdlEstatusConsulta.DataSource = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa)
         DdlEstatusConsulta.DataBind()
         DdlEstatusConsulta.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -208,16 +216,12 @@ Partial Class RepContratosCalendario
         RegistraScript("$('#ModalActualizar').modal('show');")
     End Sub
 
-
     Protected Sub UpdateContrato(sender As Object, e As EventArgs)
-        Dim ObjContratos As New ClsContratos
-        ObjContratos.IniciaTransacSQL()
+        Dim ObjContratos As New ClsContratos
 
-        If ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim) Then
-            ObjContratos.Commit()
-            Alert("Actualizado Correctamente.")
-        Else
-            ObjContratos.RollBack()
+        If ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim) Then
+            RegistraScript("$('#ModalActualizar').modal('hide');")
+            Alert("Actualizado Correctamente.")
         End If
 
         ObjContratos.Dispose()
@@ -243,7 +247,7 @@ Partial Class RepContratosCalendario
         DdlChofer2.SelectedValueExist(GvRow.DataKey("CveChofer2"))
         DdlEstatusContrato.SelectedValue = GvRow.DataKey("CveContratosEstatus")
         CveContrato = GvRow.DataKey("CveContrato").ToEntero
-
+        UpCommando.Update()
         UpModal.Update()
         RegistraScript("$('#ModalActualizar').modal('show');")
     End Sub

Ventas/RepProductosServicios.aspx.vb

@@ -60,7 +60,9 @@ Partial Class Ventas_RepProductosServicios
 #Region "  CARGA DATOS INICIALES  "
 
     Private Sub CargaGrupo()
-        If DdlProyecto.Visible Then DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+        Dim TextoProyecto = "Proyecto"
+        If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then TextoProyecto = UsuarioActual.Empresa.Funcionalidad(307)
+        If DdlProyecto.Visible Then DdlGrupo.Items.Insert(0, New ListItem(TextoProyecto, "1"))
         DdlGrupo.Items.Add(New ListItem(LblSubProyecto.Text, "2"))
         DdlGrupo.Items.Add(New ListItem("Categoria", "3"))
         DdlGrupo.Items.Add(New ListItem("Clasificación", "4"))
@@ -83,7 +85,8 @@ Partial Class Ventas_RepProductosServicios
         DdlGrupo.Items.Add(New ListItem("Tipo Cliente", "23"))
         DdlGrupo.Items.Add(New ListItem("Marca", "24"))
         DdlGrupo.Items.Add(New ListItem("Cliente Sucursal", "26"))
-        DdlGrupo.Items.Add(New ListItem("Giro", "27"))
+        DdlGrupo.Items.Add(New ListItem("Giro", "27"))
+        If UsuarioActual.CveEmpresa = 119 Then DdlGrupo.Items.Add(New ListItem("Proveedor", "29"))
 
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("8")

Ventas/Ventas.aspx.vb

@@ -8426,7 +8426,7 @@ Partial Class Ventas
                 ObjClientes.Dispose()
 
                 Me.ObjFacturaNC = Nothing
-                Me.ObjFacturaNC = New Modelos.Factura(UsuarioActual, pCveVenta, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas, EsCancelacion:=False)
+                Me.ObjFacturaNC = New Modelos.Factura(UsuarioActual, pCveVenta, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas, EsCancelacion:=False, VerificaAlmacen:=False)
 
                 DdlNCFactura.DataSource = DTFacNC
                 DdlNCFactura.DataBind()
@@ -25394,6 +25394,8 @@ Partial Class Ventas
                     End If
                 Else
                     PermiteCancelar = False
+                    'si hay error para obtener información que no continue.
+                    Exit Sub
                 End If
 
             End Using