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

Bancos/RepCortes.aspx.vb

@@ -5,8 +5,7 @@ Imports System.Data
 Imports Extensiones
 
 Partial Class Bancos_RepCortes
-    Inherits ClsPaginas
+    Inherits ClsPaginas
-    Private Shared missing As Object = System.Reflection.Missing.Value
 
 #Region "PROPIEDADES"
     Private Property DtCortes As DataTable
@@ -174,10 +173,12 @@ Partial Class Bancos_RepCortes
             GvP.DataSource = Vn.DtResultados
             DtCortesVentasResumen = Vn.DtResultados
         End If
-        If Vn.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
-            GvPorIVA.DataSource = Vn.DtResultados
+            If Vn.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-        End If
+                GvPorIVA.DataSource = Vn.DtResultados
-
+            End If
+        End If
+
         If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
             GvD.DataSource = Vent.DtResultados
             DtCortesVentas = Vent.DtResultados

Inicio.aspx.vb

@@ -30,7 +30,6 @@ Partial Class Inicio
                     For Each item As DataRow In theDataSet.Tables(0).Rows
                         sb.AppendFormat("{0};", item("Uuid").ToString())
                     Next
-
                     If objventas.GetFacturasCanceladasPendientes(sb.ToString(), CveEmpresa) Then
                         retorno = True
                     End If
@@ -41,12 +40,11 @@ Partial Class Inicio
                     End If
                 End If
             Else
-                Alert("Error al obtener cancelaciones pendientes: " & resp.Descripcion, ModExtensiones.TipoMensaje.MsgError)
+                Alert("Los servicios del SAT presentan intermitencia y no se puede obtener la información de cancelaciones pendientes: " & resp.Descripcion, ModExtensiones.TipoMensaje.MsgError)
             End If
-
         Catch ex As Exception
             retorno = False
-            Me.OnError("Error al obtener cancelaciones pendientes: ", ex, "")
+            Me.OnError("Los servicios del SAT presentan intermitencia y no se puede obtener la información: ", ex, "")
         End Try
         gvCancelaPendiente.DataBind()
         Return retorno

OS/OrdenesServicios.aspx.vb

@@ -4,19 +4,11 @@ Option Strict On
 Imports Extensiones
 Imports System.IO
 Imports System.Data
-Imports Telerik.Web.UI
-Imports System.Data.SqlClient
-Imports Stimulsoft.Report.StiOptions.Export
-Imports Modelos
-Imports System.Runtime.InteropServices.ComTypes
-Imports APP_Code_CSharp
-Imports System.ComponentModel.Design
 
 Partial Class OS_OrdenesServicios
     Inherits ClsPaginas
 
 #Region "Propiedades"
-    Private Shared missing As Object = System.Reflection.Missing.Value
     Private Property CveCliente As Integer
         Get
             Return ViewState("CveCliente").ToString.ToEntero
@@ -436,11 +428,6 @@ Partial Class OS_OrdenesServicios
 
                 LblCuentaEquipoTH.Visible = False
                 DdlCuentaEquipo.Visible = False
-
-
-
-
-
                 TREstatus2.Visible = If(TipoEstatus.Contiene(4, 5), False, True)
 
                 DdlPsModalFinalizar.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
@@ -456,8 +443,6 @@ Partial Class OS_OrdenesServicios
                     DdlPsModalFinalizar.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
                 End If
 
-
-
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
@@ -735,9 +720,6 @@ Partial Class OS_OrdenesServicios
                 TxtIdentificadorCliente.Text = ObjOS.IdentificadorCliente
                 TxtFolioAdicional.Text = ObjOS.FolioAdicional
 
-
-
-
                 CargaEventoBitacora()
                 CargaHistorial()
                 CargaDetalles()
@@ -762,7 +744,6 @@ Partial Class OS_OrdenesServicios
                 ViewState("CveCliente") = ObjVentas.DtResultados.Rows(0)("CveCliente").ToString.ToEntero
                 CargaCliente(CveCliente)
 
-
                 Dim Drow As DataRow = ObjVentas.DtResultados.Rows(0)
                 If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                     TxtDescripcion.Text = Drow("SerieFolio").ToString
@@ -822,10 +803,7 @@ Partial Class OS_OrdenesServicios
 
                                 TmpDT.Rows.Add(drt)
                                 Cons = Cons + 1
-
-
                             End If
-
                         Next
                         GvPS.DataSource = TmpDT
                         GvPS.DataBind()
@@ -845,8 +823,6 @@ Partial Class OS_OrdenesServicios
         Dim IDOSDetalle As Integer = 1
 
         CreaDT()
-
-
         If ObjOrdenServicio.GetOrdenesServiciosDetalle(CveOS) Then
             If ObjOrdenServicio.DtResultados IsNot Nothing Then
                 For Each Row As DataRow In ObjOrdenServicio.DtResultados.Rows
@@ -999,13 +975,9 @@ Partial Class OS_OrdenesServicios
     End Sub
     Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = 1, Optional CargaPublicoGeneral As Boolean = False)
 
-
-
         Dim ObjCliente As New ClsClientes()
-
         Dim NombreCliente As String = "-1"
 
-
         If CargaPublicoGeneral Then
             NombreCliente = "PUBLICO EN GENERAL"
         End If
@@ -1225,10 +1197,6 @@ Partial Class OS_OrdenesServicios
 
         'ObjEstatusPermisos.Dispose()
 
-
-
-
-
         'OS Estatus Inicial
         If tipoEstatus = 1 And UsuarioActual.TienePermisoProceso(366) Then
             Exit Sub
@@ -1256,7 +1224,6 @@ Partial Class OS_OrdenesServicios
 
         UpGuardar.Visible = False
 
-
     End Sub
 #End Region
 
@@ -3365,7 +3332,7 @@ Partial Class OS_OrdenesServicios
 
     End Sub
 
-    Private Function GeneraRemision(CveVentaPedido As Integer, ByRef TransaccionSQL As SqlTransaction) As RespuestaFacturacion
+    Private Function GeneraRemision(CveVentaPedido As Integer, ByRef TransaccionSQL As SqlClient.SqlTransaction) As RespuestaFacturacion
 
         Dim Respuesta As New RespuestaFacturacion()
         Dim CveRemisionGenerada As Integer = -1

Ventas/ProductosServicios.aspx

@@ -819,7 +819,7 @@
                                             </asp:DropDownList>
                                             <label for="<%= DdlIEPSPorcentaje.ClientID.ToString()%>">IEPS Porcentaje:</label>
                                         </div>
-                                        <div class="form-group form-md-line-input input-iconright" title="El precio no está determinado por el valor de la lista de precio, este es manual.">
+                                        <div style="display:none;" class="form-group form-md-line-input input-iconright" title="El precio no está determinado por el valor de la lista de precio, este es manual.">
                                             <label>Precio Libre de Lista</label>
                                             <asp:CheckBox ID="ChkPrecioLibre" CssClass="make-switchsd" data-size="small" runat="server" Checked="False" />
                                         </div>

Ventas/Ventas.aspx

@@ -5611,7 +5611,7 @@
                                                         Cantidad
                                                     </HeaderTemplate>
                                                     <ItemTemplate>
-                                                        <asp:TextBox ID="TxtCantidadRem" runat="server" Style="text-align: right;" Text='<%#Eval("Cantidad", "{0:#,###.#####}").ToString%>' MaxLength="12" Width="46px" Height="24px"></asp:TextBox>
+                                                        <asp:TextBox ID="TxtCantidadRem" runat="server" Style="text-align: right;" Text='<%#Eval("Cantidad", "{0:####.#####}").ToString%>' MaxLength="12" Width="46px" Height="24px"></asp:TextBox>
                                                         <asp:RangeValidator ID="RVCantRem" runat="server" Type="Double" MinimumValue="0" MaximumValue='<%#Eval("Cantidad", "{0:####.#####}").ToString%>' ErrorMessage="Cantidad Excedida" ControlToValidate="TxtCantidadRem" ValidationGroup="GprGvRemPS" Display="Dynamic" SetFocusOnError="True"></asp:RangeValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCECantidad3" runat="server" HighlightCssClass="vco" TargetControlID="RVCantRem" Width="300px"></ajax:ValidatorCalloutExtender>
                                                     </ItemTemplate>