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

App_Code/ClsContabilidad.vb

@@ -292,12 +292,11 @@ 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) As Boolean
+                                            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) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_PrePolizasDetalleUpdate")
-
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle
             .Add("@Concepto", SqlDbType.VarChar).Value = Concepto
@@ -318,13 +317,12 @@ Public Class ClsContabilidad
             .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@CveIE", SqlDbType.Int).Value = CveIE
-
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
         End With
 
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
-
         Catch ex As Exception
             If ex.Message.Contains("CuentasResultados_SubProyectos") Then
                 OnError("El concepto requiere que se le especifique centro de costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)

App_Code/Timbrado.vb

@@ -2460,11 +2460,13 @@ Public Class Timbrado
 
 #Region "Comercio Exterior"
 
-            If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then
+            If UsuarioActual.CveEmpresa = 172 Then
-                If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then
 
-                    'DATOS GENERALES
+                If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then
-                    cfdi.ComercioExterior20(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado,
+                    If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then
+
+                        'DATOS GENERALES
+                        cfdi.ComercioExterior20(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado,
                                                        ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento,
                                                        ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen,
                                                        ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen,
@@ -2473,9 +2475,9 @@ Public Class Timbrado
                                                        ObjCFDITimbre.Complementos.ComercioExterior.Observaciones,
                                                        ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD,
                                                        ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD)
-                    'EMISOR
+                        'EMISOR
-                    cfdi.ComercioExterior20Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP))
+                        cfdi.ComercioExterior20Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP))
-                    cfdi.ComercioExterior20Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle,
+                        cfdi.ComercioExterior20Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia,
@@ -2485,9 +2487,9 @@ Public Class Timbrado
                                                                     ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP)
-                    'RECEPTOR
+                        'RECEPTOR
-                    cfdi.ComercioExterior20Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib)
+                        cfdi.ComercioExterior20Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib)
-                    cfdi.ComercioExterior20DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle,
+                        cfdi.ComercioExterior20DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia,
@@ -2498,8 +2500,8 @@ Public Class Timbrado
                                                                             ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP)
 
-                    If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then
+                        If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then
-                        cfdi.ComercioExterior20Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib,
+                            cfdi.ComercioExterior20Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib,
                                                ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre,
                                                ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle,
                                                         ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior,
@@ -2511,27 +2513,104 @@ Public Class Timbrado
                                                         ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado,
                                                         ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais,
                                                         ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP)
-                    End If
+                        End If
 
 
-                    'MERCANCIAS
+                        'MERCANCIAS
-                    If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then
+                        If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then
-                        For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias
+                            For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias
-                            cfdi.ComercioExterior20Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares)
+                                cfdi.ComercioExterior20Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares)
-                            If concep.DescripcionesEspecificas.Marca <> "" Then
+                                If concep.DescripcionesEspecificas.Marca <> "" Then
-                                cfdi.ComercioExterior20MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca,
+                                    cfdi.ComercioExterior20MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca,
                                                                                                    concep.DescripcionesEspecificas.Modelo,
                                                                                                    concep.DescripcionesEspecificas.SubModelo,
                                                                                                    concep.DescripcionesEspecificas.NumeroSerie)
-                            End If
+                                End If
-                        Next
+                            Next
+
+                        End If
+
 
                     End If
-
-
                 End If
-            End If
+            Else
 
+                If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then
+                    If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then
+
+                        'DATOS GENERALES
+                        cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado,
+                                                           ObjCFDITimbre.Complementos.ComercioExterior.TipoOperacion,
+                                                           ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento,
+                                                           ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen,
+                                                           ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen,
+                                                           ObjCFDITimbre.Complementos.ComercioExterior.NumeroExportadorConfiable,
+                                                           ObjCFDITimbre.Complementos.ComercioExterior.Incoterm,
+                                                           ObjCFDITimbre.Complementos.ComercioExterior.Subdivision,
+                                                           ObjCFDITimbre.Complementos.ComercioExterior.Observaciones,
+                                                           ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD,
+                                                           ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD)
+                        'EMISOR
+                        cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP))
+                        cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle,
+                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior,
+                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior,
+                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia,
+                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Localidad,
+                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Referencia,
+                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Municipio,
+                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado,
+                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais,
+                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP)
+                        'RECEPTOR
+                        cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib)
+                        cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle,
+                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior,
+                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior,
+                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia,
+                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Localidad,
+                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Referencia,
+                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Municipio,
+                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Estado,
+                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais,
+                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP)
+
+                        If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then
+                            cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib,
+                                                   ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre,
+                                                   ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle,
+                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior,
+                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroInterior,
+                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Colonia,
+                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Localidad,
+                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Referencia,
+                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Municipio,
+                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado,
+                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais,
+                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP)
+                        End If
+
+
+                        'MERCANCIAS
+                        If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then
+                            For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias
+                                cfdi.ComercioExterior11Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares)
+                                If concep.DescripcionesEspecificas.Marca <> "" Then
+                                    cfdi.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca,
+                                                                                                       concep.DescripcionesEspecificas.Modelo,
+                                                                                                       concep.DescripcionesEspecificas.SubModelo,
+                                                                                                       concep.DescripcionesEspecificas.NumeroSerie)
+                                End If
+                            Next
+
+                        End If
+
+
+                    End If
+                End If
+
+
+            End if
 #End Region
 
 

Ashx/E119.ashx

@@ -129,11 +129,12 @@ Public Class E119 : Implements IHttpHandler
             End If
 
             If Metodo = "RegistraRemision" Then
+
                 context.Response.ContentType = "application/json"
                 Dim Auth As AuthMessage = ValidarSolicitud(context)
-
+                MsgLog.AppendLine("Validado:" & Auth.IsSuccess)
                 If Auth.IsSuccess Then
-                    retorno = RegistraRemision(context)
+                    retorno = RegistraRemision(context, MsgLog)
                 Else
                     context.Response.StatusCode = Auth.StatusCode
                     retorno = JsonConvert.SerializeObject(Auth.ErrorMessage)
@@ -335,15 +336,14 @@ Public Class E119 : Implements IHttpHandler
         End If
     End Function
 
-    Private Function RegistraRemision(ByVal context As HttpContext) As String
+    Private Function RegistraRemision(ByVal context As HttpContext, ByRef MsgLog As StringBuilder) As String
 
         Dim TieneError As Boolean = False
         Dim JsonRequest As JObject = Nothing
         Dim Respuesta As New ResponseMsg
         Dim RespuestaError As New ResponseMsgError
-        Dim MsgLog As New StringBuilder
-        Try
 
+        Try
             MsgLog.AppendLine("1.0 Registra")
             If context.Request.InputStream IsNot Nothing Then
                 Using reader As New StreamReader(context.Request.InputStream)
@@ -355,6 +355,7 @@ Public Class E119 : Implements IHttpHandler
                             TieneError = True
                         End If
                     Else
+                        MsgLog.AppendLine("json:" & json)
                         TieneError = True
                     End If
                 End Using
@@ -362,7 +363,7 @@ Public Class E119 : Implements IHttpHandler
 
             MsgLog.AppendLine("1.1 accedido")
             If TieneError Then
-                RespuestaError.message = "No se pudo procesar la solicitud - Formato mal formado"
+                RespuestaError.message = "No se pudo procesar la solicitud - Formato mal formado (1.1)"
                 context.Response.StatusCode = 200
                 Return JsonConvert.SerializeObject(RespuestaError)
             End If
@@ -528,9 +529,10 @@ Public Class E119 : Implements IHttpHandler
 
         Catch ex As Exception
             TieneError = True
+        Finally
+            MsgLog.ToString.GuardaLogAD("LogE119")
         End Try
 
-        MsgLog.ToString.GuardaLogAD("LogE119")
         If TieneError Then
             context.Response.StatusCode = 200
             Return JsonConvert.SerializeObject(RespuestaError)

Compras/RepComplementoPago.aspx.vb

@@ -63,10 +63,10 @@ Partial Class Compras_RepComplementoPago
     Private Sub CargaDatos()
 
         Dim CveProveedor As Integer = If(DdlProveedores.SelectedValue.ToEntero = 0, -1, DdlProveedores.SelectedValue.ToEntero)
-        Dim CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero
+        Dim CveTipoProveedor As Integer = DdlTipoProveedor.SelectedValue.ToEntero
-        Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha)
+        Dim FechaInicio As Date = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha)
-        Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha)
+        Dim FechaFin As Date = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha)
-        Dim TipoConsulta = If(ChkViculadas.Checked, 2, 1)
+        Dim TipoConsulta As Integer = If(ChkViculadas.Checked, 2, 1)
         Dim Count As Integer = 0
 
         Dim ObjCompras As New ClsCompras

Contabilidad/RegPrePolizaS.aspx

@@ -440,7 +440,7 @@
                     <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
 
                         <asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn GvPrePoliza" GridLines="None"
-                            DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,ImporteMN,Cargo,Abono,CveIE" Width="100%" >
+                            DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,ImporteMN,Cargo,Abono,CveIE,Modificado" Width="100%" >
                             <Columns>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Movimiento</HeaderTemplate>
@@ -529,7 +529,6 @@
                                         <asp:LinkButton ID="LnkEdit" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
                                         <asp:LinkButton ID="LnkEliminar" OnClick="LnkGvPrePolizaEliminar_Click" runat="server" AlternateText="Eliminar"  CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
                                              data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"   />                                        
-                                        <asp:CheckBox runat="server" ID="chkModificado" Checked="false" Visible="false"/>
                                     </ItemTemplate>
                                    <ItemStyle Width="75px" />
                                 </asp:TemplateField>

Contabilidad/RegPrePolizaS.aspx.vb

@@ -558,9 +558,6 @@ Partial Class ContabilidadC_RegPrePolizaS
             If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
             If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 
-            If e.Row.DBCampo("Modificado") = "True" Then
-                e.Row.FCCheckBox("chkModificado").Checked = True
-            End If
         End If
 
         If e.Row.RowType = DataControlRowType.Header Then
@@ -1145,9 +1142,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                     Dim CveIEAgregado As Integer = -1
                     For Each row As GridViewRow In GvPrePoliza.Rows
                         If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
-                            If row.FCCheckBox("chkModificado").Checked Then
+                            If CBool(row.DataKey("Modificado")) Then
                                 contador = contador + 1
-
                                 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
@@ -1166,7 +1162,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                                                                                    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,
+                                                                                   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,
                                                                                    CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
@@ -1176,8 +1172,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                             End If
                         Else
                             contador = contador + 1
-
-
                             Dim ImporteIE As Decimal = If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal)
 
                             If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
@@ -1191,14 +1185,14 @@ Partial Class ContabilidadC_RegPrePolizaS
                                     Exit For
                                 End If
                             End If
-
+                            Dim tTipoMovto As Boolean = If(row.DataKey("TipoMovto") = "True", True, False)
-                            If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, False, True),
+                            If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto,
-                                                                        If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal),
+                                                                        If(Not tTipoMovto, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal),
-                                                                        If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal),
+                                                                        If(Not tTipoMovto, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal),
                                                                         row.DataKey("CveConceptoContable").ToEntero, row.DataKey("Referencia").ToString, row.FCLiteral("TxtConcepto").Text,
                                                                         CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero,
                                                                         CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
-                                                                        CveProveedor:=row.DataKey("CveProveedor").ToEntero,
+                                                                        CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero,
                                                                         CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
                                                                         CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal, CveIE:=CveIEAgregado) Then
                                 OcurrioError = True
@@ -1208,6 +1202,13 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                     Next
                 End If
+                If Not OcurrioError AndAlso ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
+                    If ObjContabilidad.ValorPolizaDescuadre > 0 Then
+                        OcurrioError = True
+                        Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia)
+                        GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                    End If
+                End If
             Else
                 OcurrioError = True
             End If
@@ -1217,31 +1218,22 @@ Partial Class ContabilidadC_RegPrePolizaS
             OnError("Ocurrío un error al actualizar la PrePoliza", ex)
         End Try
 
-        If ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
-            If ObjContabilidad.ValorPolizaDescuadre > 0 Then
-                OcurrioError = True
-                Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia)
-                GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-            End If
-        End If
-
         If Not OcurrioError Then
             ObjContabilidad.Commit()
+            CargaPrePoliza(CvePrePoliza)
             Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:=$"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={Me.CvePrePoliza}""", ShowCloseButton:=False)
         Else
             ObjContabilidad.RollBack()
-            Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError)
         End If
 
         ObjContabilidad.Dispose()
-        CargaPrePoliza(CvePrePoliza)
 
-        If Not OcurrioError Then
+        'If Not OcurrioError Then
-            If IdPoliza > 0 AndAlso contador > 0 Then
+        '    If IdPoliza > 0 AndAlso contador > 0 Then
-                Contabilizar()
+        '        Contabilizar()
-            End If
+        '    End If
 
-        End If
+        'End If
     End Sub
     Protected Sub LnkAddConcepto_Click(sender As Object, e As EventArgs)
         RegistraScript(String.Format("$('#{0}').modal();", "DivEditConcepto"))
@@ -1731,7 +1723,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         GvPrePoliza.DataBind()
         UpPrePoliza.Update()
         GvPrePoliza.Visible = True
-        If IndiceGrid >= 0 Then GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True
 
         TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
         TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
@@ -1998,22 +1989,15 @@ Partial Class ContabilidadC_RegPrePolizaS
     Protected Sub DdlTipoGasto_SelectedIndexChanged(sender As Object, e As EventArgs)
         If UpPrePoliza.Visible Then
 
-
             For Each dRow As DataRow In DtMovimientos.Rows
                 dRow("CveTipoGasto") = DdlTipoGasto.SelectedValue
                 dRow("TipoGasto") = DdlTipoGasto.SelectedItem.Text
+                dRow("Modificado") = True
             Next
 
             DtMovimientos.AcceptChanges()
             GvPrePoliza.DataSource = DtMovimientos
             GvPrePoliza.DataBind()
-
-            For Each Gvr As GridViewRow In GvPrePoliza.Rows
-                'Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue)
-                Gvr.FCCheckBox("chkModificado").Checked = True
-
-            Next
-
             UpPrePoliza.Update()
         End If
         If divMovtos.Visible Then

General/SaldosIniciales.aspx.vb

@@ -1455,7 +1455,7 @@ Partial Class General_SaldosIniciales
                         Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString().ToDate
                         Dim CveMoneda As Integer = 1
                         Dim CveProveedorSucursal As Integer = If(dt.Columns.Contains("CveProveedorSucursal"), Row("CveProveedorSucursal").ToString(), "0").ToEntero
-                        Dim PorcentajeIVA As String = If(dt.Columns.Contains("PorcentajeIVA"), Row("PorcentajeIVA").ToString(), "0")
+                        Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Row("PorcentajeIVA").ToString(), "0").ToDecimal
                         Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString(), "0").ToDecimal
                         Dim RetIVAPorcentaje As Decimal = If(dt.Columns.Contains("RetIVAPorcentaje"), Row("RetIVAPorcentaje").ToString(), "0").ToDecimal
                         Dim RetISRPorcentaje As Decimal = If(dt.Columns.Contains("RetISRPorcentaje"), Row("RetISRPorcentaje").ToString(), "0").ToDecimal
@@ -1499,14 +1499,14 @@ Partial Class General_SaldosIniciales
                         End If
                         If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero(), SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDecimal, FechaVencimiento,
                                                     False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal,
-                                                    NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto) Then
+                                                    NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto) Then
                             ErrorCompras = True
                             Exit For
                         End If
                         CveCompra = ObjCompras.CveCompra
 
                         'Compra Detalle
-                        If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero(), -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA.ToDecimal, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then
+                        If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, CveSubProyecto, -1, 0, 1, SubTotal, SubTotal * PorcentajeIVA, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then
                             ErrorCompras = True
                             Exit For
                         End If
@@ -1518,7 +1518,7 @@ Partial Class General_SaldosIniciales
                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, SubTotal, 6, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveClasificacion:=CveClasificacion, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
 
                         If IVA > 0 Then
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, IVA, 14, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero(), CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA.ToDecimal) Then ErrorCompras = True : Exit For
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, IVA, 14, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero(), CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA) Then ErrorCompras = True : Exit For
                         End If
 
                         If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, IEPS, 25, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For

SAT/SolicitudesIngresoSat.aspx

@@ -4,7 +4,15 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
-        .dashboard-stat .visual > i {
+
+        .colSAT {
+            color:White;background-color:#C46B06;
+        }
+        .colSIG {
+           color:White;background-color:#3598dc;
+        }
+
+       /* .dashboard-stat .visual > i {
             font-size: 90px;
         }
 
@@ -33,187 +41,8 @@
             color: #333333;
             background-color: #DDD;
             font-weight: bold;
-        }
+        }*/
         
-        .reporte1 .GVSolicitudTimbreNominaGral tr td:nth-child(n+2),
-        .reporte1 .GVSolicitudTimbreNominaGral tr th:nth-child(n+2) {
-            text-align: right !important;
-            white-space: nowrap;
-        }
-
-        .reporte1 .GVSolicitudTimbreNominaGral tr th:nth-child(2)
-        /*,.reporte1 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(2) */ {
-            background-color: #900;
-            color: #FFF;
-        }
-
-        .reporte1 .GVSolicitudTimbreNominaGral tr th:nth-child(3),
-        .reporte1 .GVSolicitudTimbreNominaGral tr th:nth-child(4),
-        .reporte1 .GVSolicitudTimbreNominaGral tr th:nth-child(5) /*,
-        .reporte1 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(3),
-        .reporte1 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(4),
-        .reporte1 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(5)*/ {
-            background-color: #3598dc;
-            color: #FFF;
-        }
-
-
-
-
-        .reporte2 .GVSolicitudTimbreNominaGral tr td:nth-child(n+2),
-        .reporte2 .GVSolicitudTimbreNominaGral tr th:nth-child(n+2) {
-            text-align: right !important;
-            white-space: nowrap;
-        }
-
-        .reporte2 .GVSolicitudTimbreNominaGral tr th:nth-child(2) /*,
-        .reporte2 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(2)*/ {
-            background-color: #900;
-            color: #FFF;
-        }
-
-        .reporte2 .GVSolicitudTimbreNominaGral tr th:nth-child(n+3):not(:nth-child(7)) /*,
-        .reporte2 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(n+3):not(:nth-child(7))*/ {
-            background-color: #3598dc;
-            color: #FFF;
-        }
-
-
-        .reporte3 .GVSolicitudTimbreNominaGral tr td:nth-child(n+3) {
-            white-space: nowrap;
-        }
-
-        .reporte3 .GVSolicitudTimbreNominaGral tr td:nth-child(4),
-        .reporte3 .GVSolicitudTimbreNominaGral tr td:nth-child(8),
-        .reporte3 .GVSolicitudTimbreNominaGral tr td:nth-child(9),
-        .reporte3 .GVSolicitudTimbreNominaGral tr td:nth-child(n+13):not(:nth-child(n+19)),
-        .reporte3 .GVSolicitudTimbreNominaGral tr td:nth-child(24),
-        .reporte3 .GVSolicitudTimbreNominaGral tr td:nth-child(n+28):not(:nth-child(n+33)) {
-            text-align: right !important;
-        }
-
-        .reporte3 .GVSolicitudTimbreNominaGral tr th:nth-child(2),
-        .reporte3 .GVSolicitudTimbreNominaGral tr th:nth-child(n+20) /*,
-        .reporte3 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(2),
-        .reporte3 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(n+20)*/ {
-            background-color: #900;
-            color: #FFF;
-        }
-
-        .reporte3 .GVSolicitudTimbreNominaGral tr th:nth-child(1),
-        .reporte3 .GVSolicitudTimbreNominaGral tr th:nth-child(n+3):not(:nth-child(n+20)) /*,
-        .reporte3 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(1),
-        .reporte3 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(n+3):not(:nth-child(n+20))*/ {
-            background-color: #3598dc;
-            color: #FFF;
-        }
-
-
-        .reporte4 .GVSolicitudTimbreNominaGral tr td:nth-child(n+2),
-        .reporte4 .GVSolicitudTimbreNominaGral tr th:nth-child(n+2) {
-            text-align: right !important;
-            white-space: nowrap;
-        }
-
-        .reporte4 .GVSolicitudTimbreNominaGral tr th:nth-child(2) /*,
-        .reporte4 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(2)*/ {
-            background-color: #900;
-            color: #FFF;
-        }
-
-        .reporte4 .GVSolicitudTimbreNominaGral tr th:nth-child(n+3):not(:nth-child(n+6)) /*,
-        .reporte4 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(n+3)*/ {
-            background-color: #3598dc;
-            color: #FFF;
-        }
-
-        .reporte5 .GVSolicitudTimbreNominaGral tr th:nth-child(2) /*,
-        .reporte5 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(2)*/ {
-            background-color: #900;
-            color: #FFF;
-        }
-
-        .reporte5 .GVSolicitudTimbreNominaGral tr th:nth-child(3) /*,
-        .reporte5 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(3)*/ {
-            background-color: #3598dc;
-            color: #FFF;
-        }
-
-
-        .reporte6 .GVSolicitudTimbreNominaGral tr td:nth-child(n) {
-            white-space: nowrap;
-        }
-
-        .reporte6 .GVSolicitudTimbreNominaGral tr td:nth-child(n+4),
-        .reporte6 .GVSolicitudTimbreNominaGral tr th:nth-child(n+4) {
-            text-align: right !important;
-        }
-
-            .reporte6 .GVSolicitudTimbreNominaGral tr th:nth-child(n+4):not(:nth-child(n+7)) {
-                background-color: #900;
-                color: #FFF;
-            }
-
-        .reporte6 .GVSolicitudTimbreNominaGral tr th:nth-child(n+7):not(:nth-child(n+10)) {
-            background-color: #3598dc;
-            color: #FFF;
-        }
-
-
-
-        .reporte7 .GVSolicitudTimbreNominaGral tr td:nth-child(n+3),
-        .reporte7 .GVSolicitudTimbreNominaGral tr th:nth-child(n+3) {
-            text-align: right !important;
-        }
-
-            .reporte7 .GVSolicitudTimbreNominaGral tr th:nth-child(n+3):not(:nth-child(n+6)) {
-                background-color: #900;
-                color: #FFF;
-            }
-
-        .reporte7 .GVSolicitudTimbreNominaGral tr th:nth-child(n+6):not(:nth-child(n+9)) {
-            background-color: #3598dc;
-            color: #FFF;
-        }
-
-
-
-
-        .reporte8 .GVSolicitudTimbreNominaGral tr td:nth-child(n+6),
-        .reporte8 .GVSolicitudTimbreNominaGral tr th:nth-child(n+6) {
-            text-align: right !important;
-        }
-
-            .reporte8 .GVSolicitudTimbreNominaGral tr th:nth-child(n+6):not(:nth-child(n+9)) {
-                background-color: #900;
-                color: #FFF;
-            }
-
-        .reporte8 .GVSolicitudTimbreNominaGral tr th:nth-child(n+9):not(:nth-child(n+12)) {
-            background-color: #3598dc;
-            color: #FFF;
-        }
-
-
-        .reporte9 .GVSolicitudTimbreNominaGral tr td:nth-child(1),
-        .reporte9 .GVSolicitudTimbreNominaGral tr td:nth-child(4) {
-            white-space: nowrap;
-        }
-
-        .reporte9 .GVSolicitudTimbreNominaGral tr td:nth-child(2),
-        .reporte9 .GVSolicitudTimbreNominaGral tr td:nth-child(3),
-        .reporte9 .GVSolicitudTimbreNominaGral tr td:nth-child(n+40) {
-            text-align: right !important;
-        }
-
-
-        /*    .ajax_tab_xp .ajax_tab_body {
-            font-size: 9px !important;
-        }
-*/
-        .ajax__tab_xp .ajax__tab_body {
-            font-size: 12px !important;
-        }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -327,57 +156,72 @@
                                     <asp:Label ID="LblMes" runat="server" Text='<%# Eval("Mes")%>'></asp:Label>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                             <asp:TemplateField HeaderText="SubTotal" ItemStyle-HorizontalAlign="Right">
+                             <asp:TemplateField HeaderText="SubTotal" ItemStyle-HorizontalAlign="Right" HeaderStyle-CssClass="colSIG">
                                 <ItemTemplate>
                                     <asp:Label runat="server" Text='<%# Eval("VSubTotal", "{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="IVA" ItemStyle-HorizontalAlign="Right">
+                            <asp:TemplateField HeaderText="Descuento" ItemStyle-HorizontalAlign="Right" HeaderStyle-CssClass="colSIG">
+                                <ItemTemplate>
+                                    <asp:Label runat="server" Text='<%# Eval("VDescuento", "{0:N2}")%>'></asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="IVA" ItemStyle-HorizontalAlign="Right" HeaderStyle-CssClass="colSIG">
                                 <ItemTemplate>
                                     <asp:Label runat="server" Text='<%# Eval("VIVA", "{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="IEPS" ItemStyle-HorizontalAlign="Right">
+                            <asp:TemplateField HeaderText="IEPS" ItemStyle-HorizontalAlign="Right" Visible="false" HeaderStyle-CssClass="colSIG">
                                 <ItemTemplate>
                                     <asp:Label runat="server" Text='<%# Eval("VIEPS", "{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="Ret IVA" ItemStyle-HorizontalAlign="Right">
+                            <asp:TemplateField HeaderText="Ret IVA" ItemStyle-HorizontalAlign="Right" Visible="false" HeaderStyle-CssClass="colSIG" >
                                 <ItemTemplate>
                                     <asp:Label  runat="server" Text='<%# Eval("VRetIVA", "{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="Ret ISR" ItemStyle-HorizontalAlign="Right">
+                            <asp:TemplateField HeaderText="Ret ISR" ItemStyle-HorizontalAlign="Right" Visible="false" HeaderStyle-CssClass="colSIG">
                                 <ItemTemplate>
                                     <asp:Label runat="server" Text='<%# Eval("VRetISR", "{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="TOTAL SIG" ItemStyle-HorizontalAlign="Right">
+                            <asp:TemplateField HeaderText="TOTAL SIG" ItemStyle-HorizontalAlign="Right" HeaderStyle-CssClass="colSIG">
                                 <ItemTemplate>
                                     <asp:Label ID="LblVTotal" runat="server" Text='<%# Eval("VTotal","{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="IVA" ItemStyle-HorizontalAlign="Right">
+                            <asp:TemplateField HeaderText="SubTotal" ItemStyle-HorizontalAlign="Right" HeaderStyle-CssClass="colSAT">
+                                <ItemTemplate>
+                                    <asp:Label runat="server" Text='<%# Eval("CBTSubTotal", "{0:N2}")%>'></asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Descuento" ItemStyle-HorizontalAlign="Right" HeaderStyle-CssClass="colSAT">
+                                <ItemTemplate>
+                                    <asp:Label runat="server" Text='<%# Eval("CBTDescuento", "{0:N2}")%>'></asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="IVA" ItemStyle-HorizontalAlign="Right" HeaderStyle-CssClass="colSAT">
                                 <ItemTemplate>
                                     <asp:Label runat="server" Text='<%# Eval("CBTIVA", "{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="IEPS" ItemStyle-HorizontalAlign="Right">
+                            <asp:TemplateField HeaderText="IEPS" ItemStyle-HorizontalAlign="Right" Visible="false" HeaderStyle-CssClass="colSAT">
                                 <ItemTemplate>
                                     <asp:Label runat="server" Text='<%# Eval("CBTIEPS", "{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="Ret IVA" ItemStyle-HorizontalAlign="Right">
+                            <asp:TemplateField HeaderText="Ret IVA" ItemStyle-HorizontalAlign="Right" Visible="false" HeaderStyle-CssClass="colSAT">
                                 <ItemTemplate>
                                     <asp:Label  runat="server" Text='<%# Eval("CBTRetIVA", "{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="Ret ISR" ItemStyle-HorizontalAlign="Right">
+                            <asp:TemplateField HeaderText="Ret ISR" ItemStyle-HorizontalAlign="Right" Visible="false" HeaderStyle-CssClass="colSAT">
                                 <ItemTemplate>
                                     <asp:Label runat="server" Text='<%# Eval("CBTRetISR", "{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:TemplateField HeaderText="TOTAL SAT" ItemStyle-HorizontalAlign="Right">
+                            <asp:TemplateField HeaderText="TOTAL SAT" ItemStyle-HorizontalAlign="Right" HeaderStyle-CssClass="colSAT">
                                 <ItemTemplate>
                                     <asp:Label ID="LblCBTTotal" runat="server" Text='<%# Eval("CBTTotal","{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>

SAT/SolicitudesIngresoSat.aspx.cs

@@ -7,7 +7,6 @@ using System.Net.Http.Headers;
 using System.Text;
 using System.Threading;
 using System.Threading.Tasks;
-using System.Web;
 using System.Web.UI;
 using System.Web.UI.WebControls;
 using Extensiones;
@@ -120,6 +119,11 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
                     GvResumen.DataSource = ObjNom.DtResultados;
                     TipoDescarga = ObjNom.DtResultados.Rows.Count > 0 ? 1 : 0;
                     LnkDownloadExcel.Visible = true;
+                    if (UsuarioActual.Empresa.Funcionalidad(713) == "1")
+                    {
+                        GvResumen.Columns[4].Visible = false;
+                        GvResumen.Columns[11].Visible = false;
+                    }
                 }
                 else if (DdlReporte.SelectedValue.ToEntero() == 2)
                 {
@@ -400,56 +404,6 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
         {
             if (e.Row.DataKey("Fecha") == "")
                 e.Row.Attributes.Add("class", "Totales");
-
-            if (UsuarioActual.Empresa.Funcionalidad(713) != "1")
-            {
-                e.Row.Cells[2].Visible = false;
-            }
-
-
-            if (UsuarioActual.Empresa.Funcionalidad(713) != "1")
-            {
-                e.Row.Cells[7].Visible = false;
-            }
-
-
-        }
-
-        if (e.Row.RowType == DataControlRowType.Header)
-        {
-            e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc");
-            e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#3598dc");
-            e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc");
-            if (UsuarioActual.Empresa.Funcionalidad(713) != "1")
-            {
-                e.Row.Cells[2].Visible = false;
-            }
-
-            e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc");
-            e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc");
-
-            e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#C46B06");
-            e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#C46B06");
-            e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#C46B06");
-            if (UsuarioActual.Empresa.Funcionalidad(713) != "1")
-            {
-                e.Row.Cells[7].Visible = false;
-            }
-
-            e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#C46B06");
-            e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#C46B06");
-
-
-            e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white");
         }         
     }
 
@@ -534,17 +488,17 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
         if (e.Row.RowType == DataControlRowType.Header)
         {
 
-            e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
+            //e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
-            e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
+            //e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
 
-            e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); //Rojo
+            //e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); //Rojo
-            e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
+            //e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
-            e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
+            //e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
-            e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
+            //e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
-            e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
+            //e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
-            e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
+            //e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
-            e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
+            //e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
-            e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
+            //e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul
 
 
 
@@ -556,33 +510,33 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
             //e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#900"); //Rojo
             //e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#900"); //Rojo
 
-            e.Row.Cells[11].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
+            //e.Row.Cells[11].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
-            e.Row.Cells[12].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
+            //e.Row.Cells[12].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
-            e.Row.Cells[13].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
+            //e.Row.Cells[13].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
-            e.Row.Cells[14].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
+            //e.Row.Cells[14].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
-            e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
+            //e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
-            e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
+            //e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
-            e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
+            //e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo
 
 
-            e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white");
 
-            e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[11].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[11].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[12].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[12].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[13].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[13].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[14].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[14].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[16].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[16].ForeColor = System.Drawing.Color.FromName("white");
-            e.Row.Cells[17].ForeColor = System.Drawing.Color.FromName("white");
+            //e.Row.Cells[17].ForeColor = System.Drawing.Color.FromName("white");
 
         }
 

Sistemas/UsuarioDetalle.aspx.vb

@@ -861,7 +861,7 @@ Partial Class Sistemas_UsuarioDetalle
                 End If
 
                 For Each Row As DataRow In DtAsignacionesMultiEmpresa.FiltraParametros("CveEmpresa > 0").Rows
-                    If Not ObjUsuarios.AddUsuarioAsignar(Row("CvePersonal").ToString.ToEntero, Row("CveVendedor").ToString.ToEntero, Row("CveAlmacen").ToString.ToEntero, Row("CveSucursal").ToString.ToEntero, Row("CveTipoDocumento").ToString, Row("CveEmpresa").ToString.ToEntero, CveUsuario) Then
+                    If Not ObjUsuarios.AddUsuarioAsignar(Row("CvePersonal").ToString.ToEntero, Row("CveVendedor").ToString.ToEntero, Row("CveSucursal").ToString.ToEntero, Row("CveAlmacen").ToString.ToEntero, Row("CveTipoDocumento").ToString, Row("CveEmpresa").ToString.ToEntero, CveUsuario) Then
                         TieneError = True
                     End If
                 Next

Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs

@@ -323,6 +323,7 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
         ObjConta.IniciaTransacSQL();
         int CvePrePoliza = 0,  CveVenta = -1, CveIE = -1;
         decimal Saldo = 0;
+        decimal SaldoAdmin = 0;
         decimal ImporteTotalGasto = 0;
         string MsgError = "";
 
@@ -349,16 +350,18 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
                     {
                         CveVenta = Gv.DataKey("CveVenta").ToEntero();
                         Saldo = -Gv.DataKey("Saldo").ToDecimal();
+                        SaldoAdmin = Saldo;
                     }
                     else if (Tipo == 3)
                     { 
                         ConPreP.CveConcepto = 92;
                         CveIE = Gv.DataKey("CveIE").ToEntero();
-                        Saldo = Gv.DataKey("Saldo").ToDecimal();
+                        Saldo = -Gv.DataKey("Saldo").ToDecimal();
+                        SaldoAdmin = -Saldo;
                     } 
 
                     ImporteTotalGasto += Saldo;
-                    if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, Saldo,  Saldo, ConPreP.CveConcepto, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE: CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero()))
+                    if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, SaldoAdmin,  Saldo, ConPreP.CveConcepto, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE: CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero()))
                     {
                         MsgError = "Ocurrio un error al saldar el movimiento";
                         break;

Ventas/RepComisionesJAM.aspx.cs

@@ -54,12 +54,9 @@ public partial class Ventas_RepComisionesJAM : ClsPaginas
         DdlVendedor.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlVendedor.DataBind();
 
-        if( UsuarioActual.CveVendedor > 0 && !UsuarioActual.TienePermisoProceso(263))
         if( UsuarioActual.CveVendedor > 0 && !UsuarioActual.TienePermisoProceso(263))
        {
-            DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString());
 
-            DdlVendedor.Enabled = false;
             DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString());
             DdlVendedor.Attributes.Add("disabled", "disabled");
             DdlVendedor.Enabled = false;

Ventas/RepNCxAplicar.aspx.cs

@@ -207,7 +207,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas
                     }
                 }
 
-                if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Saldo").ToDecimal() * Gv.DataKey("TipoCambioValuacion").ToDecimal(), 78, Gv.DataKey("Folio").ToString(), TxtConcepto.Text, CveVenta: Gv.DataKey("CveVenta").ToEntero() ))
+                if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true,  Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Saldo").ToDecimal() * Gv.DataKey("TipoCambioValuacion").ToDecimal(), 78, Gv.DataKey("Folio").ToString(), TxtConcepto.Text, CveVenta: Gv.DataKey("CveVenta").ToEntero() ))
                 {
                     MsgError = "Ocurrio un error al saldar el movimiento";
                 }

Ventas/RepRemisiones.aspx

@@ -222,8 +222,8 @@
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                 data-sort="true"  GridLines="None">
                 <Columns>
-                     <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField ="Folio" DataNavigateUrlFormatString="/Ventas/RepRemisionesDetalle.aspx?CveVenta={0}"  DataNavigateUrlFields="CveVenta" />
+                    <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField ="Folio" DataNavigateUrlFormatString="/Ventas/RepRemisionesDetalle.aspx?CveVenta={0}"  DataNavigateUrlFields="CveVenta" Target="_blank" />
-                     <asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="100px" DataTextField ="Fecha" DataTextFormatString="{0:d}" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}"  DataNavigateUrlFields="CveVenta" />                    
+                    <asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="100px" DataTextField ="Fecha" DataTextFormatString="{0:d}" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}"  DataNavigateUrlFields="CveVenta" />                    
                     <asp:BoundField HeaderText="Vencimiento" DataField="FechaVencimiento" DataFormatString="{0:d}"  />
                     <asp:BoundField HeaderText="Cliente" DataField="Cliente"  />
                     <asp:BoundField HeaderText="Contrato" DataField="TieneContrato" Visible="false"  />