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

App_Code/ClsContabilidad.vb

@@ -293,7 +293,7 @@ Public Class ClsContabilidad
     Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1,
                                             Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1,
                                             Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1,
-                                            Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1, Optional CveActivoFijo As Integer = -1) As Boolean
+                                            Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional ImporteME As Decimal = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_PrePolizasDetalleUpdate")
@@ -319,6 +319,7 @@ Public Class ClsContabilidad
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@CveIE", SqlDbType.Int).Value = CveIE
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@ImporteME", SqlDbType.Money).Value = ImporteME.RoundSQL(3)
         End With
 
         Try

App_Code/ClsPaginas.vb

@@ -7641,6 +7641,28 @@ Public Class ClsPaginas
                 Return Nothing
             End If
 
+            'SOLO FORMATO DE STIMULSOFT Y COMPLEMENTO DE SERVICIOS DE CONSTRUCCION
+            If UsuarioActual.Empresa.Funcionalidad(707) = "1" AndAlso Vta.CveComplementoTimbrado = 9 AndAlso Not String.IsNullOrEmpty(Vta.ComplementoSAT) Then
+                Dim settings As New JsonSerializerSettings
+                settings.NullValueHandling = NullValueHandling.Ignore
+                Dim pc As Modelos.MParcialesConstruccion = JsonConvert.DeserializeObject(Of Modelos.MParcialesConstruccion)(Vta.ComplementoSAT, settings)
+
+                If pc IsNot Nothing Then
+                    params.Add(New ReportParameter("SC_NumPerLicoAut", pc.NumPerLicoAut))
+                    params.Add(New ReportParameter("SC_Calle", pc.Calle))
+                    params.Add(New ReportParameter("SC_NoExterior", pc.NoExterior))
+                    params.Add(New ReportParameter("SC_NoInterior", pc.NoInterior))
+                    params.Add(New ReportParameter("SC_Colonia", pc.Colonia))
+                    params.Add(New ReportParameter("SC_Localidad", pc.Localidad))
+                    params.Add(New ReportParameter("SC_Referencia", pc.Referencia))
+                    params.Add(New ReportParameter("SC_Municipio", pc.Municipio))
+                    Dim Estado = GlobalDTGralEstados("MEX").FiltroPrimeroValor("NombreEstado", $"CveEstado = {pc.CveEstado}")
+                    params.Add(New ReportParameter("SC_Estado", Estado))
+                    params.Add(New ReportParameter("SC_CodigoEstado", pc.Estado))
+                    params.Add(New ReportParameter("SC_CodigoPostal", pc.CodigoPostal))
+                End If
+            End If
+
             If NombreArchivo = "FacturaUSA" Then
                 Dim DtBaseTotales As DataTable = Vta.DtDeduccion.Clone()
 
@@ -7868,7 +7890,7 @@ Public Class ClsPaginas
         If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then
             RutaReporte = String.Format("{0}{1}", bdir, RutaReporte)
         End If
-        Dim urlHost As String = "http://sig.adssistemas.mx:7998/"
+        Dim urlHost As String = "http: //sig.adssistemas.mx:7998/"
         'Dim urlHost As String = "http://localhost:2202/"
         If EsProduccion Then
             urlHost = "http://192.200.113.178:6599/"

App_Code/ClsProductosServicios.vb

@@ -325,6 +325,26 @@ Public Class ClsProductosServicios
 
         Return Retorno
     End Function
+
+    Public Function GetPS_APIMarcasStock(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Inv_APIMarcasStockGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+            Retorno = True
+        Catch ex As SqlException
+            OnError("Ocurrió un error al consultar el stock.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
     Public Function GetPSSimplificado(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 

Ashx/E189.ashx

@@ -0,0 +1,216 @@
+<%@ WebHandler Language="VB" Class="E189" %>
+
+Option Strict On
+Option Explicit On
+
+Imports System.Data
+Imports System.IO
+Imports Newtonsoft.Json
+Imports Newtonsoft.Json.Linq
+Imports Extensiones
+
+Public Class E189 : Implements IHttpHandler, System.Web.SessionState.IRequiresSessionState
+
+    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
+        Get
+            Return False
+        End Get
+    End Property
+
+    Private ReadOnly Property CveEmpresa As Integer = 189
+    Private ReadOnly Property CveUsuario As Integer = 100
+    Private ReadOnly Property NombreCadena As String = "Conexion"
+
+    Public ReadOnly Property EsProduccion As Boolean
+        Get
+            If IsNothing(System.Configuration.ConfigurationManager.AppSettings("EsProduccion")) Then
+                Return False
+            Else
+                Return (System.Configuration.ConfigurationManager.AppSettings("EsProduccion").ToString() = "1")
+            End If
+        End Get
+    End Property
+
+
+#Region "V A L I D A  - D A T O S"
+    Private Function ValidaUsuarioSistema(CveUsuario As Integer, CveEmpresa As Integer) As Usuario
+        Dim UsuarioActual As Usuario = Nothing
+        Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa)
+        Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
+        UsuarioActual = ObjUsuarios.GetUsuarioDetalle(100, CveEmpresa)
+        If UsuarioActual IsNot Nothing Then
+            HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
+            'CreaObjetoEmpresa(UsuarioActual)
+        End If
+        ObjUsuarios.Dispose()
+
+        Return UsuarioActual
+    End Function
+
+    'Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
+    '    Dim ObjEmpresa As New ClsSisEmpresas()
+    '    If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
+    '        If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa) Then
+    '            Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
+
+    '            Dim EmpresasFuncionalidades As New HybridDictionary
+    '            For Each Row As Data.DataRow In dttmp.Rows
+    '                EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
+    '            Next
+    '            ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
+    '        End If
+
+    '        UsuarioActual.Empresa = ObjEmpresa.Empresa
+
+    '    End If
+    '    ObjEmpresa.Dispose()
+    'End Sub
+#End Region
+
+    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
+        Dim retorno As String = ""
+        Dim MsgLog As New StringBuilder
+        MsgLog.AppendLine("Inicia Petición.")
+        Try
+            Dim Metodo As String = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString())
+            MsgLog.AppendLine(Metodo)
+
+            If Metodo = "Stock" Then
+                context.Response.ContentType = "application/json"
+                retorno = ConsultaDatos(context)
+            End If
+
+            context.Response.Write(retorno)
+
+        Catch ex As Exception
+            context.Response.ContentType = "text/html"
+            MsgLog.AppendLine("Error de procesamiento:" & ex.Message)
+
+            Dim respuesta As New AuthMessage
+            respuesta.ErrorMessage = New ResponseMsgError() With {.message = "La solicitud no se pudo procesar."}
+            respuesta.IsSuccess = False
+            respuesta.StatusCode = 200
+            retorno = JsonConvert.SerializeObject(respuesta.ErrorMessage)
+            context.Response.Write(retorno)
+
+        End Try
+        MsgLog.ToString.GuardaLogAD("LogE119")
+    End Sub
+
+
+    Private Function ConsultaDatos(ByVal context As HttpContext) As String
+        Dim Respuesta As New ResponseMsg
+        Dim RespuestaError As New ResponseMsgError
+        Dim TieneError As Boolean = False
+
+        Dim productos As JArray = Nothing
+
+        Using ObjInventario As New ClsProductosServicios
+            If ObjInventario.GetPS_APIMarcasStock(189) AndAlso ObjInventario.DtResultados IsNot Nothing Then
+                productos = JArray.Parse(ObjInventario.DtResultados.DataTableToJSONIPP())
+            Else
+                RespuestaError.message = "no se pudo obtener los datos"
+                TieneError = True
+            End If
+        End Using
+
+        If TieneError Then
+            context.Response.StatusCode = 200
+            Return JsonConvert.SerializeObject(RespuestaError)
+        Else
+            context.Response.StatusCode = 200
+            Try
+                Return New JObject(New JProperty("productos", productos)).ToString()
+            Catch ex As Exception
+                RespuestaError.message = "Ocurrió un error al generar la petición"
+                Return JsonConvert.SerializeObject(RespuestaError)
+            End Try
+
+        End If
+    End Function
+
+
+
+    Private Class ResponseMsg
+        Sub New()
+            status = "success"
+        End Sub
+        Public Property status As String
+        Public Property data As Object
+        Public Property message As String
+    End Class
+
+    Private Class ResponseMsgError
+        Sub New()
+            status = "error"
+        End Sub
+        Public Property status As String
+        Public Property message As String
+    End Class
+
+    Private Class AuthMessage
+        Public Property IsSuccess As Boolean
+        Public Property ErrorMessage As ResponseMsgError
+        Public Property StatusCode As Integer
+    End Class
+
+    'Private Function ActualizarExistenciasJson(Todos As Boolean) As String
+    '    Dim payload = New JObject()
+
+    '    Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
+
+    '    Dim DtPS As DataTable = Nothing
+    '    Using ObjPS As New ClsProductosServicios
+    '        If ObjPS.GetExistenciasEmpresa("-1", CveEmpresa) Then
+    '            DtPS = ObjPS.DtResultados.Copy()
+    '        End If
+    '    End Using
+
+    '    If DtPS IsNot Nothing Then
+    '        payload.Add(New JProperty("stock", GenerarPayloadExistencias(DtPS)))
+    '    End If
+
+    '    Return payload.ToString()
+    'End Function
+
+
+
+    Private Function Parametros(Cadena As String) As Hashtable
+        Dim P1() As String = Cadena.Split("&"c)
+        Dim Tmp As String
+        Dim P2() As String
+
+        Dim URLParametros As New Hashtable
+
+        For Each Tmp In P1
+            P2 = Tmp.Replace("%26%", "&").Split("="c)
+            URLParametros.Add(P2(0).ToString.ToUpper, P2(1))
+        Next
+        Return URLParametros
+    End Function
+
+    Private Shared Function IsValidJson(ByVal strInput As String) As Boolean
+        If String.IsNullOrWhiteSpace(strInput) Then
+            Return False
+        End If
+
+        strInput = strInput.Trim()
+
+        If (strInput.StartsWith("{") AndAlso strInput.EndsWith("}")) OrElse (strInput.StartsWith("[") AndAlso strInput.EndsWith("]")) Then
+
+            Try
+                Dim obj As JToken = JToken.Parse(strInput)
+                Return True
+            Catch jex As JsonReaderException
+                Console.WriteLine(jex.Message)
+                Return False
+            Catch ex As Exception
+                Console.WriteLine(ex.ToString())
+                Return False
+            End Try
+        Else
+            Return False
+        End If
+    End Function
+
+End Class

Bancos/PagoAcreedor.aspx.cs

@@ -242,11 +242,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
             CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero(), DdlTipoTransaccion.SelectedValue.ToEntero(), TxtFechaDocumento.Text.Trim().ToDate(), TxtFolio.Text.Trim(), DdlProveedores.SelectedText.ToString(), ImporteBanco.ToString().ToDouble(), CveMonedaPago,
                                      TCPago.ToString().ToDouble(), TxtObservaciones.Text.Trim(), "", ChkAbonoCuenta.Checked, false, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
 
-
-
             if (CveIE > 0)
             {
-
                 decimal Importe;
                 decimal ImporteMN;
                 decimal ImporteComision;
@@ -286,6 +283,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
                         if (tCveMoneda > 1 && gvr.DataKey("FechaDocumento").ToDate() < TxtFechaDocumento.Text.ToDate().FirstDayOfMonth())
                         {
                             TC = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDate().AddMonths(-1).LastDayOfMonth()).ToDecimal();//obtengo el TC del mes anterior del pago
+                            CveConceptoContablePago = 384;
                         }
                         ImporteBancosMN = (Importe * TCPago).RoundSQL();
                         ImporteAcreedorMN = (Importe * TC).RoundSQL();
@@ -323,6 +321,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
                         ImporteComision = ImporteComision.RoundSQL();
                         AcumImporteMN += ImporteMN;
 
+                        if (tCveMoneda > 1 ) { CveConceptoContablePago = 384; }
+
                         if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, ImporteMN, CveConceptoContablePago, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
                         {
                             MsgError = "No se pudo insertar concepto de pago acreedor";
@@ -619,10 +619,9 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
                     MsgError = "No se pudo insertar concepto de bancos";
                 }
 
-
                 if (CveMoneda != 1)
                 {
-                    if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, ImporteMN, CveConceptoContablePrestamo, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
+                    if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, ImporteMN, 383, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
                     {
                         MsgError = "No se pudo insertar concepto de acreedor";
                     }

Contabilidad/ContabilidadElectronica.aspx.vb

@@ -186,7 +186,7 @@ Partial Class Contabilidad_ContabilidadElectronica
         Dim Archivopfx As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.FielPFX }"
         Dim Clavepfx As String = UsuarioActual.Empresa.FielPassword
 
-        Dim xsltPath As String
+        Dim xsltPath As String = ""
         Select Case Opcion
             Case 1
                 xsltPath = $"{AppDomain.CurrentDomain.BaseDirectory}Temp\CatalogoCuentas_1_3.xslt"
@@ -265,7 +265,7 @@ Partial Class Contabilidad_ContabilidadElectronica
         Dim DtCuentas As New DataTable
         If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             Dim objconta As New ClsContabilidad
-            If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, -1, -1, -1, UsuarioActual.CveEmpresa, 0) Then
+            If objconta.GetBalanzaComprobacion(FechaI, FechaF, 5, -1, -1, -1, UsuarioActual.CveEmpresa, 0) Then
                 DtCuentas = objconta.DtResultados
             End If
             objconta.Dispose()

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1173,33 +1173,44 @@ Partial Class ContabilidadC_RegPrePolizaS
                         If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
                             If CBool(row.DataKey("Modificado")) Then
                                 contador = contador + 1
+                                Dim tImporteME As Decimal = 0
+                                If CBool(row.DataKey("EsMonedaExtranjera")) Then tImporteME = row.DataKey("ImporteME").ToDecimal
                                 Dim ImporteIE As Decimal = If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal)
 
-                                If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
+                                    If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
-                                    Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL)
+                                        Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL)
-                                    CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, row.DataKey("ContadoNumeroFolio"),
+                                        Dim tCveMoneda As Integer = GlobalDTBancosCuentasGral(UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveMoneda", $"CveCuenta = {row.DataKey("ContadoCuenta")}").ToEntero
-                                                               row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "",
+                                        CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, row.DataKey("ContadoNumeroFolio"),
-                                                               False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                                                   row.DataKey("ContadoBeneficiario"), ImporteIE, tCveMoneda, row.DataKey("TC").ToDecimal, row.DataKey("ContadoObservaciones"), "",
-                                    If CveIEAgregado < 0 Then
+                                                                   False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                                        'MsgError = "No se pudo registrar movimiento bancario"
+                                        If CveIEAgregado < 0 Then
+                                            'MsgError = "No se pudo registrar movimiento bancario"
+                                            OcurrioError = True
+                                            Exit For
+                                        End If
+                                    End If
+                                    If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
+                                                                                       -1, If(row.DataKey("Cargo").ToDecimal <> 0, False, True),
+                                                                                       If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal),
+                                                                                       CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
+                                                                                       CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero,
+                                                                                       CveProveedor:=row.DataKey("CveProveedor").ToEntero,
+                                                                                       CveCompra:=row.DataKey("CveCompra").ToEntero,
+                                                                                       CveCliente:=row.DataKey("CveCliente").ToEntero,
+                                                                                       CveVenta:=row.DataKey("CveVenta").ToEntero,
+                                                                                       CveClasificacion:=row.DataKey("CveClasificacion").ToEntero,
+                                                                                       CvePersonal:=row.DataKey("CvePersonal").ToEntero,
+                                                                                       Referencia:=row.FCLiteral("TxtRef").Text,
+                                                                                       TipoCambio:=row.DataKey("TC").ToDecimal,
+                                                                                       CveActivoFijo:=row.DataKey("CveActivoFijo").ToEntero,
+                                                                                       CveCuenta:=row.DataKey("CveCuenta").ToEntero,
+                                                                                       ImporteME:=tImporteME,
+                                                                                       CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
                                         OcurrioError = True
                                         Exit For
                                     End If
                                 End If
-                                If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
+                            Else
-                                                                                   -1, If(row.DataKey("Cargo").ToDecimal <> 0, False, True),
-                                                                                   If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal),
-                                                                                   CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
-                                                                                   CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
-                                                                                   CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero,
-                                                                                   CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text,
-                                                                                   TipoCambio:=row.DataKey("TC").ToDecimal, CveActivoFijo:=row.DataKey("CveActivoFijo").ToEntero,
-                                                                                   CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
-                                    OcurrioError = True
-                                    Exit For
-                                End If
-                            End If
-                        Else
                             contador = contador + 1
                             Dim ImporteIE As Decimal = If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal)
 

Contabilidad/RepBalanzaComprobacion.aspx

@@ -136,15 +136,10 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
-
+         
-    <br />
+    <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px" align="left;">        
-  
-    
-    <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px" align="left;">
-        
         <input type="text" id="TxtBusquedaIndicadores" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaIndicadores','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaIndicadores','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-
     </div>    
     
     <div class="row">
@@ -153,27 +148,25 @@
                 <ContentTemplate>
 
                     <asp:GridView ID="GvDatos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" 
-                        runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound">
+                        runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvDatos_RowDataBound">
                         <Columns>
                             <asp:TemplateField HeaderText="Nivel" >
                                 <ItemTemplate>
                                     <asp:Label ID="LblNivelSAT" runat="server" Text='<%# Eval("Nivel")%>'></asp:Label>
                                 </ItemTemplate>
-                                <ItemStyle HorizontalAlign="Left" Width="20px" />
+                                <ItemStyle Width="20px" />
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
+                            <asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left" HeaderStyle-Width ="125px">
                                 <ItemTemplate>
                                     <asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
-                                </ItemTemplate>
+                                </ItemTemplate> 
-                                <ItemStyle HorizontalAlign="Left" Width="180" />
                             </asp:TemplateField>
                             <asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
                                 <ItemTemplate>
                                     <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
-                                </ItemTemplate>
+                                </ItemTemplate> 
-                                <ItemStyle HorizontalAlign="Left" Width="320" />
                             </asp:TemplateField>
-                            <asp:TemplateField>
+                            <asp:TemplateField  HeaderStyle-Width ="170px">
                                 <HeaderTemplate>
                                     <table width="100%">
                                         <tr>
@@ -186,23 +179,23 @@
                                     </table>
                                 </HeaderTemplate>
                                 <ItemTemplate>
-                                    <asp:Label ID="LbSaldoInicial" Style="padding-right: 75px;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
+                                    <asp:Label ID="LbSaldoInicial" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>
-                                <ItemStyle Width="120" HorizontalAlign="Right" />
+                                <ItemStyle  HorizontalAlign="Right" />
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="Cargos">
+                            <asp:TemplateField HeaderText="Cargos" HeaderStyle-Width ="140px">
                                 <ItemTemplate>
                                     <asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>
-                                <ItemStyle Width="120" HorizontalAlign="Right" />
+                                <ItemStyle  HorizontalAlign="Right" />
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="Abonos">
+                            <asp:TemplateField HeaderText="Abonos" HeaderStyle-Width ="140px">
                                 <ItemTemplate>
                                     <asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>
-                                <ItemStyle Width="120" HorizontalAlign="Right" />
+                                <ItemStyle  HorizontalAlign="Right" />
                             </asp:TemplateField>
-                            <asp:TemplateField>
+                            <asp:TemplateField HeaderStyle-Width ="170px">
                                 <HeaderTemplate>
                                     <table width="100%">
                                         <tr>
@@ -218,13 +211,13 @@
                                     <asp:HyperLink ID="HLSaldoActual" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                     <asp:Label ID="LbSaldoActual" Style="white-space: pre;" runat="server"></asp:Label>
                                 </ItemTemplate>
-                                <ItemStyle Width="120" HorizontalAlign="Right" />
+                                <ItemStyle  HorizontalAlign="Right" />
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="Diferencia" Visible="false">
+                            <asp:TemplateField HeaderText="Diferencia" Visible="false"  HeaderStyle-Width ="100px">
                                 <ItemTemplate>
                                     <asp:Literal ID="Lbdif" runat="server" Text='<%# Eval("diferenciaSAT", "{0:N2}")%>'></asp:Literal>
                                 </ItemTemplate>
-                                <ItemStyle Width="100" HorizontalAlign="Right" />
+                                <ItemStyle HorizontalAlign="Right" />
                             </asp:TemplateField>
                         </Columns>
                         <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />

Contabilidad/RepBalanzaComprobacion.aspx.vb

@@ -180,7 +180,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
         RegistraScript("Enable();")
     End Sub
 
-    Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             If e.Row.DBCampo("CtaMayor") = "1" OrElse e.Row.DBCampo("CtaMayor") = "3" OrElse e.Row.DBCampo("CtaMayor") = "4" Then
@@ -189,9 +189,11 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
 
             'Acomoda Deudor y Acreedor
             If e.Row.DBCampo("CveTipo") = "0" Then
+                'e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
                 e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0}          ", e.Row.DBCampo("SaldoInicial").FormatoNumero)
-                e.Row.FCLabel("LbSaldoInicial").Style.Remove("padding-right")
+                e.Row.FCLabel("LbSaldoInicial").Style.Add("padding-right", "65px")
-                e.Row.FCLabel("LbSaldoActual").Text = "     "
+                e.Row.FCLabel("LbSaldoActual").Text = " "
+                e.Row.FCLabel("LbSaldoActual").Style.Add("padding-right", "65px")
             End If
 
             'Colorea NEGATIVOS

Inicio.aspx.vb

@@ -143,12 +143,12 @@ Partial Class Inicio
             If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
             MuestraAniversarioLaboral()
             If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso
-                     (UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then
+                     (UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165, 3960) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then
 
                 divsms1.Visible = True
                 txtFechaInicioSMS.Text = Now.FirstDayOfMonth.ToString
                 txtFechaFinSMS.Text = Now.LastDayOfMonth.ToString
-                If UsuarioActual.CveUsuario.Contiene(3964, 4165) Then 'diego de la concha
+                If UsuarioActual.CveUsuario.Contiene(3964, 4165, 3960) Then 'diego de la concha
                     DdlSMSOpciones.SelectedValue = "2"
                     DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ")
                     DdlSMSVendedores.DataBind()

Inventarios/EntregaAlmacen.aspx.vb

@@ -128,7 +128,17 @@ Partial Class Inventarios_EntregaAlmacen
         End Set
     End Property
 
-
+    Private Property SeleccionLoteCaducidadCombo As Boolean
+        Get
+            If ViewState("SeleccionLoteCaducidadCombo") Is Nothing Then
+                ViewState("SeleccionLoteCaducidadCombo") = False
+            End If
+            Return CType(ViewState("SeleccionLoteCaducidadCombo"), Boolean)
+        End Get
+        Set(value As Boolean)
+            ViewState("SeleccionLoteCaducidadCombo") = value
+        End Set
+    End Property
 
     Private Property TipoEstatus As Integer
         Get
@@ -631,18 +641,13 @@ Partial Class Inventarios_EntregaAlmacen
         TipoEntrega = 1
         BtnGuardar.Visible = True
 
-        Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,26)"
+        Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,4, 26)"
-        If UsuarioActual.CveSubProyecto = 8804 Then
-            StrAlmacenes = "CveTipoAlmacen IN (1,2,12)"
-        End If
-
         Dim ObjInventario As New ClsInventarios
 
         If ObjInventario.EntregaAlmacenGet(CveVenta, UsuarioActual.CveEmpresa, CveAlmacen) Then
             If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
 
                 Dim CveVentaPadre As Integer = -1
-
                 ArchivoBitacora = String.Format("{0}Temp\EntregaDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
                 ArchivoBitacoraDetalle = String.Format("{0}Temp\EntregaDTD_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
                 If ArchivoBitacora <> "" Then
@@ -902,6 +907,11 @@ Partial Class Inventarios_EntregaAlmacen
                         Case Else
                             Filtro = "CveConcepto = 9"
                     End Select
+                    'condicion especial cuando  es tipo uso de material 
+                    'CveTipoVenta
+                    If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveTipoVenta.Contiene(5, 6) AndAlso TipoDocto = "Ped" Then
+                        Filtro = "CveConcepto = 8" 'salida del almacen de consigna
+                    End If
 
                     If ObjInventario.GetInv_Mov(CveVentaPadre, UsuarioActual.CveEmpresa) Then
                         DtExistencias = ObjInventario.DtResultados.FiltraParametros($"CvePS Is Not NULL AND {Filtro} " & FiltroPS)
@@ -1064,8 +1074,6 @@ Partial Class Inventarios_EntregaAlmacen
     Private Sub CargaGvDatos(Optional RecargaVenta As Boolean = True)
 
         If DtDatos IsNot Nothing Then
-
-
             Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie As Boolean
             If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
                 AplicaSerie = CBool(DtDatos.MAX("AplicaSerie"))
@@ -1079,6 +1087,7 @@ Partial Class Inventarios_EntregaAlmacen
             If AplicaCaducidad Then GvDatos.Columns(10).Visible = True
 
             If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                SeleccionLoteCaducidadCombo = True
                 GvDatos.Columns(8).Visible = True
                 GvDatos.Columns(9).Visible = False
                 GvDatos.Columns(10).Visible = False
@@ -1285,7 +1294,7 @@ Partial Class Inventarios_EntregaAlmacen
             If Boolean.Parse(e.Row.DataKey("AplicaLote")) Or Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then
                 Dim ValorAsignado As String = ""
                 Dim DtDatosDevolucion As DataTable = Nothing
-                If GvDatos.Columns(8).Visible AndAlso EsDevolucionVenta = 1 Then
+                If SeleccionLoteCaducidadCombo AndAlso EsDevolucionVenta = 1 Then
                     ValorAsignado = $"{e.Row.DBCampo("Lote").ToString}|{e.Row.DBCampo("FechaCaducidad").ToDate.ToString("dd/MM/yyyy")}"
                     DtDatosDevolucion = DtDatos.Copy()
                 End If
@@ -1308,8 +1317,6 @@ Partial Class Inventarios_EntregaAlmacen
         Dim Lote As String = ArrayCaducidad(0)
         Dim FechaCaducidad As String = ArrayCaducidad(1)
 
-
-
         If AplicaLote Then
             GvRow.FCTextBox("TxtLote").Text = Lote
         End If
@@ -1317,7 +1324,6 @@ Partial Class Inventarios_EntregaAlmacen
         If AplicaCaducidad Then
             GvRow.FCTextBox("TxtCaducidad").Text = FechaCaducidad
         End If
-
         UpDatos.Update()
 
     End Sub
@@ -1347,7 +1353,6 @@ Partial Class Inventarios_EntregaAlmacen
             ObjInventarios.Dispose()
         End If
 
-
         If Not String.IsNullOrEmpty(ValorAsignado) Then
             DdlLoteFechaCaducidad.SelectedValueExist(ValorAsignado)
         End If
@@ -1867,6 +1872,15 @@ Partial Class Inventarios_EntregaAlmacen
         TdSeriePS.Visible = False
         Dim Existe As Boolean = False
         Dim PSTemp As String = ""
+        'validación de impresión con CódigoQR, ej. ?CvePS=711820&Lote=220078&Fecha=04/07/2027
+        If TxtCodigoPS.Text.Trim.Contains("?CvePS") Then
+            Dim query As String = TxtCodigoPS.Text.Trim '"?CvePS=711820&Lote=220078&Fecha=04/07/2027"
+            Dim parsedQuery = HttpUtility.ParseQueryString(Query)
+
+            Dim tCvePS As String = parsedQuery("CvePS")
+            Dim tLote As String = parsedQuery("Lote")
+            Dim tFecha As String = parsedQuery("Fecha")
+        End If
 
         For Each Gvr As GridViewRow In GvDatos.Rows
             If Gvr.DataKey("CodigoBarras") = TxtCodigoPS.Text.Trim Then
@@ -2054,7 +2068,7 @@ Partial Class Inventarios_EntregaAlmacen
                     End If
 
                     If CBool(Gvr.DataKey("AplicaCaducidad")) Then
-                        If GvDatos.Columns(8).Visible Then
+                        If SeleccionLoteCaducidadCombo Then
                             If String.IsNullOrEmpty(Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim()) OrElse Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim() = "|" Then
                                 ValidaCaducidad = True
                             End If
@@ -2066,7 +2080,7 @@ Partial Class Inventarios_EntregaAlmacen
                     End If
 
                     If CBool(Gvr.DataKey("AplicaLote")) Then
-                        If GvDatos.Columns(8).Visible Then
+                        If SeleccionLoteCaducidadCombo Then
                             If String.IsNullOrEmpty(Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim()) OrElse Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim() = "|" Then
                                 ValidaLote = True
                             End If

Nomina/RepMovtosPermanentes.aspx

@@ -121,28 +121,7 @@
                                     <asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
-                            <label class="col-md-1 mediocol"  style="max-width: 35px;">del:</label>
+                            
-                            <div class="col-md-1" style="min-width:155px">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
-                                    <asp:TextBox ID="TxtRpdFechaInicio" CssClass="form-control input-sm ADSMaskDate" Style="width: 110px" runat="server"></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="LnkRpdFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                    <ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtRpdFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender3" TargetControlID="TxtRpdFechaInicio" PopupButtonID="LnkRpdFechaInicio" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
-                                </div>
-                            </div>
-                            <label class="col-md-1 mediocol"  style="max-width: 35px;">al:</label>
-                            <div class="col-md-1" style="min-width:155px">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
-                                    <asp:TextBox ID="TxtRpdFechaFin" CssClass="form-control input-sm ADSMaskDate" Style="width: 110px" runat="server"></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="LnkFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                    <ajax:MaskedEditExtender ID="MaskedEditExtender5" runat="server" TargetControlID="TxtRpdFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender4" TargetControlID="TxtRpdFechaFin" PopupButtonID="LnkFechaFin" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
-                                </div>
-                            </div>
                             <label class="col-md-1 compoonenlabel" style="max-width: 65px;">Ejercicio: </label>
                             <div class="col-md-1">
                                 <asp:DropDownList ID="DdlEjercicios" runat="server" OnSelectedIndexChanged="DdlEjercicios_SelectedIndexChanged" AutoPostBack="true" Style="width: 100% !important;" CssClass="select2me" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList>
@@ -181,6 +160,28 @@
                                     <asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
+                            <label class="col-md-1 mediocol"  style="max-width: 35px;">del:</label>
+                            <div class="col-md-1" style="min-width:155px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
+                                    <asp:TextBox ID="TxtRpdFechaInicio" CssClass="form-control input-sm ADSMaskDate" Style="width: 110px" runat="server"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="LnkRpdFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtRpdFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender3" TargetControlID="TxtRpdFechaInicio" PopupButtonID="LnkRpdFechaInicio" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                </div>
+                            </div>
+                            <label class="col-md-1 mediocol"  style="max-width: 35px;">al:</label>
+                            <div class="col-md-1" style="min-width:155px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
+                                    <asp:TextBox ID="TxtRpdFechaFin" CssClass="form-control input-sm ADSMaskDate" Style="width: 110px" runat="server"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="LnkFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MaskedEditExtender5" runat="server" TargetControlID="TxtRpdFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender4" TargetControlID="TxtRpdFechaFin" PopupButtonID="LnkFechaFin" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                </div>
+                            </div>
                         </div>
                 </div>
             </div>

Sistemas/CatRoles.aspx

@@ -4,40 +4,7 @@
     <link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" />
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-   <%-- <style>
+   
-        .Widthall {
-            width: 100% !important;
-        }
-
-        .dataTables_scrollHeadInner {
-            width: 100% !important;
-            background-color: #dddddd;
-            padding-left: 0px !important;
-        }
-
-        .dataTables_scrollFoot {
-            display: none;
-            position: static;
-        }
-
-        .table-scrollable {
-            margin: 0px !important;
-        }
-
-        .dataTables_scroll {
-            margin-bottom: 0px;
-        }
-
-        .table.dataTable {
-            margin-top: 0px !important;
-        }
-
-        .dataTables_scrollBody table th {
-            padding: 0px !important;
-            padding-right: 4px !important;
-            padding-left: 4px !important;
-        }
-    </style>--%>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
   <li>

Sistemas/CatRoles.aspx.vb

@@ -4,17 +4,6 @@ Imports System.Data
 
 Partial Class CatRoles
     Inherits ClsPaginas
-
-    Private Property DtRoles As DataTable
-        Get
-            Return CType(ViewState("DtRoles"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtRoles") = value
-        End Set
-    End Property
-
-
     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             'LnkCerrar.Style.Add("cursor", "hand")
@@ -52,7 +41,7 @@ Partial Class CatRoles
     Public Sub CargaDatos()
         Dim Rol As New ClsSisRoles
         If Rol.GetRoles(-1, UsuarioActual.CveEmpresa) Then
-            DtRoles = Rol.DtResultados
+
             If Rol.GetRoles(-1, -1) Then GlobalDTRoles(-1) = Rol.DtResultados
             GvDatos.DataSource = Rol.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             GvDatos.DataBind()

Transportes/Boletos.aspx.vb

@@ -80,6 +80,8 @@ Partial Class Boletos
             If Request.QueryString("CveViaje") Is Nothing And UsuarioActual.CveVendedor <> Nothing And UsuarioActual.CveVendedor <> -1 Then
                 Response.Redirect("/Transportes/RepViajes.aspx")
             End If
+
+            Permisos()
             AsientoSeleccionado = ""
             CveViaje = IfNull(Request("CveViaje"), "0").ToString.ToEntero
             If CveViaje > 0 Then
@@ -88,7 +90,6 @@ Partial Class Boletos
                 Alert("Viaje no definido")
             End If
 
-            Permisos()
 
         End If
     End Sub

Ventas/CatMetasVendedores.aspx

@@ -168,11 +168,7 @@
                                 <asp:DropDownList ID="DdlVendedores" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me" Width="100%"></asp:DropDownList>
                             </div>
                         </div>
-                        <div class="row" style="display: flex; align-items: center; margin-bottom: 10px;" id="Div3" runat="server" visible="false">
+                        <div class="row" style="display: flex; align-items: center; margin-bottom: 10px;">
-                            <div class="col-md-2 truncate">Marca</div>
-                            <div class="col-md-4">
-                                <asp:DropDownList ID="DdlMarcas" runat="server" DataTextField="Marca" DataValueField="CveMarca" CssClass="form-control input-sm select2me" Width="100%"></asp:DropDownList>
-                            </div>
                             <div class="col-md-2 truncate">Mes y Año</div>
                             <div class="col-md-4">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
@@ -185,6 +181,12 @@
                                 <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                             </div>
                         </div>
+                        <div class="row" style="display: flex; align-items: center; margin-bottom: 10px;" id="Div3" runat="server" visible="false">
+                            <div class="col-md-2 truncate">Marca</div>
+                            <div class="col-md-10">
+                                <asp:DropDownList ID="DdlMarcas" runat="server" DataTextField="Marca" DataValueField="CveMarca" CssClass="form-control input-sm select2me" Width="100%"></asp:DropDownList>
+                            </div>
+                        </div>
                         <div class="row" style="display: flex; align-items: center; margin-bottom: 10px;" id="Div2" runat="server" visible="false">
                             <div class="col-md-2">Clasificación Superior</div>
                             <div class="col-md-10">

Ventas/CatMetasVendedores.aspx.vb

@@ -44,7 +44,6 @@ Partial Class CatMetasVendedores
             GvDatos.Columns(1).Visible = False
             GvDatos.Columns(2).Visible = False
             GvDatos.Columns(3).Visible = False
-            GvDatos.Columns(4).Visible = False
 
             DivLblSucursal.Visible = False
             DivSucursal.Visible = False
@@ -109,13 +108,15 @@ Partial Class CatMetasVendedores
     End Sub
 
     Protected Sub LnkAgregar_Click() Handles LnkAgregar.Click
+        BtnAgregarMetaVendedor.Text = "Agregar"
+        ResetDatosSeleccionadosModal()
         RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
     End Sub
 
     Protected Sub BtnAgregarMetaVendedor_Click(sender As Object, e As EventArgs) Handles BtnAgregarMetaVendedor.Click
 
         Dim CveVendedor As Integer = DdlVendedores.SelectedValue.ToEntero()
-        Dim Fecha As Date = MinFecha
+        Dim Fecha As Date = TxtFechaI.Text.ToDate()
         Dim CveMarca As Integer = -1
         Dim CveClasificacionSuperior As Integer = -1
         Dim CveClasificacion As Integer = -1
@@ -128,14 +129,13 @@ Partial Class CatMetasVendedores
                 Alert(String.Format("Falta Seleccionar {0}{1}{2}", If(DdlVendedores.SelectedValue.ToEntero > 0, "", "Vendedor, "), If(DdlMarcas.SelectedValue.ToEntero > 0, "", "Marca, "), If(TxtFechaI.Text <> "", "", "Fecha, ")))
                 Exit Sub
             End If
-            Fecha = TxtFechaI.Text.ToDate()
             CveClasificacionSuperior = DdlClasificacionSup.SelectedValue.ToEntero
             CveClasificacion = DdlClasificacion.SelectedValue.ToEntero
             CveMarca = DdlMarca.SelectedValue.ToEntero
 
         Else
-            If Not (DdlVendedores.SelectedValue.ToEntero > 0) Then
+            If Not (DdlVendedores.SelectedValue.ToEntero > 0 AndAlso TxtFechaI.Text <> "") Then
-                Alert("Falta Seleccionar el vendedor")
+                Alert(String.Format("Falta Seleccionar {0}{1}", If(DdlVendedores.SelectedValue.ToEntero > 0, "", "Vendedor, "), If(TxtFechaI.Text <> "", "", "Fecha, ")))
                 Exit Sub
             End If
         End If
@@ -176,12 +176,11 @@ Partial Class CatMetasVendedores
         BtnAgregarMetaVendedor.Text = "Actualizar"
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         CveMetaVendedor = GvRow.DataKey("CveMeta").ToEntero
-        DdlVendedores.SelectedValue = GvRow.DataKey("CveVendedor")
+        DdlVendedores.SelectedValue = GvRow.DataKey("CveVendedor")
+        TxtFechaI.Text = GvRow.DataKey("MesAño")
 
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
 
-            TxtFechaI.Text = GvRow.DataKey("MesAño")
-
             DdlClasificacionSup.SelectedValueExist(GvRow.DataKey("CveClasificacionSup"))
             DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion"))
 

Ventas/Ventas.aspx

@@ -3455,16 +3455,16 @@
                                                     <div class="portlet-body form-horizontal form-row-sepe formnombottom" style="display: none;">
                                                         <div class="form-body">
                                                             <div class="row" style="display: flex; align-items: center; margin-bottom: 10px;">
-                                                                <div class="col-md-4">
+                                                                <div class="col-md-4" style="display:flex">
-                                                                    NumPerLicoAut
+                                                                    No.Permiso <div style="color:red">*</div>
                                                                 </div>
                                                                 <div class="col-md-8">
                                                                     <asp:TextBox ID="TxtNumPerLicoAut" CssClass="form-control" runat="server" CausesValidation="true" Width="100%"></asp:TextBox>
                                                                 </div>
                                                             </div>
                                                             <div class="row" style="display: flex; align-items: center; margin-bottom: 10px;">
-                                                                <div class="col-md-4">
+                                                                <div class="col-md-4" style="display:flex">
-                                                                    Calle
+                                                                    Calle<div style="color:red">*</div>
                                                                 </div>
                                                                 <div class="col-md-8">
                                                                     <asp:TextBox ID="TxtSCCalle" CssClass="form-control" runat="server" CausesValidation="true" Width="100%"></asp:TextBox>
@@ -3511,16 +3511,16 @@
                                                                 </div>
                                                             </div>
                                                             <div class="row" style="display: flex; align-items: center; margin-bottom: 10px;">
-                                                                <div class="col-md-4">
+                                                                <div class="col-md-4" style="display:flex">
-                                                                    Municipio
+                                                                    Municipio<div style="color:red">*</div>
                                                                 </div>
                                                                 <div class="col-md-8">
                                                                     <asp:TextBox ID="TxtSCMunicipio" CssClass="form-control" runat="server" CausesValidation="true" Width="100%"></asp:TextBox>
                                                                 </div>
                                                             </div>
                                                             <div class="row" style="display: flex; align-items: center; margin-bottom: 10px;">
-                                                                <div class="col-md-4">
+                                                                <div class="col-md-4" style="display:flex">
-                                                                    Estado
+                                                                    Estado<div style="color:red">*</div>
                                                                 </div>
                                                                 <div class="col-md-8">
                                                                     <asp:DropDownList ID="DdlSCEstado" DataTextField="NombreEstado" DataValueField="CveEstado" runat="server" CssClass="form-control input-sm select2me" Width="100%">
@@ -3528,8 +3528,8 @@
                                                                 </div>
                                                             </div>
                                                             <div class="row" style="display: flex; align-items: center; margin-bottom: 10px;">
-                                                                <div class="col-md-4">
+                                                                <div class="col-md-4" style="display:flex">
-                                                                    Código Postal
+                                                                    C.Postal<div style="color:red">*</div>
                                                                 </div>
                                                                 <div class="col-md-8">
                                                                     <asp:TextBox ID="TxtSCCP" CssClass="form-control" runat="server" CausesValidation="true" Width="100%"></asp:TextBox>

Ventas/Ventas.aspx.vb

@@ -2741,7 +2741,7 @@ Partial Class Ventas
             DdlSCEstado.DataSource = GlobalDTGralEstados("MEX")
             DdlSCEstado.DataBind()
             DdlSCEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
+            UPComplementosSAT.Update()
 
             'SI USUARIO USA AMORTIZACIÓN CONTABLE, se carga las tablas para usarlas mas adelante
             If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then