- bloqueo con código 010101

-- longitud 200 en txtdescripción

Compras/Compras.aspx

@@ -322,7 +322,7 @@
                                 <div class="form-group whitoutcol" style="width: 280px;">
                                     <span class="whitoutcol linewhitsize comprasdfleft">Descripción: </span>
                                     <div class="whitoutcol whitoutcol comprasdfleftvar">
-                                        <asp:TextBox ID="TxtDescripcion" runat="server" CausesValidation="true" MaxLength="100" TextMode="MultiLine" ValidationGroup="GrpGuardar" Width="280px"></asp:TextBox>
+                                        <asp:TextBox ID="TxtDescripcion" runat="server" CausesValidation="true" MaxLength="200" TextMode="MultiLine" ValidationGroup="GrpGuardar" Width="280px"></asp:TextBox>
                                         <asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                         <ajax:ValidatorCalloutExtender ID="VCODescripcion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDescripcion" Width="350px"></ajax:ValidatorCalloutExtender>
                                     </div>

Compras/Compras.aspx.vb

@@ -15,8 +15,6 @@ Imports MoreLinq
 Partial Class Compras_Compras
     Inherits ClsPaginas
 
-
-
 #Region "Propiedades"
 
     'Local
@@ -1568,9 +1566,7 @@ Partial Class Compras_Compras
         Dim RFC As String = ""
         If ObjeFacturas.GetFacturas(CveFactura, "-1", Now.AddYears(-4), Now, "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then
 
-
             Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador
-
             ViewState("CveTipoProveedor") = dr("CveTipoProveedor").ToString.ToEntero
 
             Dim XMLDoc As New XmlDocument
@@ -1600,8 +1596,6 @@ Partial Class Compras_Compras
                     If UsuarioActual.CveEmpresa < 2 Then
                         Valida.EsValida = 1
                     End If
-
-
                     EnListadoEFOS = Valida.EnListaEFOS
 
                     If EnListadoEFOS Then
@@ -1631,10 +1625,8 @@ Partial Class Compras_Compras
                 Else
                     Alert("Los servicios de validacion de facturas del SAT, no están activados.", TipoMensaje.ToastError, "", 0)
                 End If
-
                 UpPSS.Update()
 
-
                 If Validada And Not EnListadoEFOS Then
                     Try
                         XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("&lt;br&gt;", "").Replace("&lt;", "").Replace("o;?", ""))
@@ -1650,23 +1642,19 @@ Partial Class Compras_Compras
                     CreaDTConceptos()
                     CargaComprobanteXML(XMLDoc)
 
-                    If NuevaValidacionXML = 1 Or (Version = "3.3" Or Version = "4.0") Then
+                    If NuevaValidacionXML = 1 OrElse (Version = "3.3" OrElse Version = "4.0") Then
                         Dim Xml As String
                         Dim nodo As XmlNode = XMLDoc.DocumentElement
                         Dim Version = ValorXML(nodo, "version")
-
-
                         Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
                         Dim cfdVer As String = ""
                         Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
 
-
                         If Version = "3.2" Then
                             Prefijo = "cfd"
                             cfdVer = "http://www.sat.gob.mx/cfd/2"
                         ElseIf Version = "3.3" Then
                             cfdVer = "http://www.sat.gob.mx/cfd/3"
-
                         Else ' se considera que es la version 4.0
                             cfdVer = "http://www.sat.gob.mx/cfd/4"
                         End If
@@ -1691,10 +1679,8 @@ Partial Class Compras_Compras
                         Xml = Xml.Replace("<br />", "") 'salto de linea html
                         Xml = Xml.Replace("&lt;br&gt;", "")
                         Xml = Xml.Replace("&lt;", "")
-
                         Xml = Xml.Replace("&", "") 'adicional, si hay otros
 
-
                         If ObjeFacturas.GetFacturasComparacionXML(Version, Xml, UsuarioActual.CveEmpresa) Then
                             TmpDT = ObjeFacturas.DtResultados
                             TmpDT.Columns.Add("CveSATPSActualizado")
@@ -1716,6 +1702,7 @@ Partial Class Compras_Compras
                                 Dim mensajeAdvertencia As String = String.Format("El comprobante contiene productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
                                 Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
                                 BtnGuardar.Enabled = False
+                                BtnGuardar.ToolTip = "No se permite registrar facturas con conceptos con código '01010101'. Solicite al proveedor un nuevo comprobante."
                             End If
 
                         End If
@@ -1823,11 +1810,8 @@ Partial Class Compras_Compras
                             TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
                         End If
                         TmpDT.AcceptChanges()
-
                         ValidacionesTotalesXml()
-
                     Else
-
                         'PRUEBA 
                         'http://rm/Compras/Compras.aspx?CveFactura=122518 Emp: 48
 
@@ -1841,12 +1825,6 @@ Partial Class Compras_Compras
                             AgregarConceptoIEPS(TrasladoIEPS, UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero)
                             ' TrasladoIEPS = 0
                         End If
-
-                        'AGREGA IEPS COMO IMPORTE GENERAL
-                        'If TrasladoIEPS > 0 And Not UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero > 0 Then
-                        '    IEPS = TrasladoIEPS
-                        'End If
-
                         'en otro impuesto lo esta registrando en ajuste en automatico
                         If OtrosImpuestos > 0 Then
                             AjustaUltimoConcepto = True
@@ -1862,12 +1840,9 @@ Partial Class Compras_Compras
                         End If
 
                         Dim SubTotalReal As Decimal = 0
-
                         SubTotalReal = Math.Round(Total + RetencionISR + RetencionIVA - IVA + Descuentos - TrasladoIEPS, 2) ' NO se incluye otros impuestos para ajustar esa cifra
-
                         Dim DiferenciaTotales As Decimal = SubTotalReal - Math.Round(SubTotalConceptos, 2)
 
-
                         If DiferenciaTotales <> 0 Then
                             'Verificamos IEPS y Otros Impuestos
                             'restricccion general, que si el subtotal de los conceptos no cuadra con Total + RetISR + RetIVA - IVA <> SubTotalConeptos, ajuste al final
@@ -1892,12 +1867,9 @@ Partial Class Compras_Compras
                                             Row.FCLinkButton("imgE").Visible = False
                                             Row.FCLinkButton("imgD").Visible = False
                                         Next
-
                                     End If
-
                                 End If
                                 TrasladoIEPS = 0 : OtrosImpuestos = 0 : SubTotal2 = SubTotal
-
                             Else
                                 PnlAjusteProductos.Visible = True
                                 Dim Porcentaje As Double = If(SubTotalConceptos > 0, Math.Round((SubTotalConceptos - SubTotalReal) / SubTotalConceptos * 100, 2), 0)
@@ -1912,8 +1884,6 @@ Partial Class Compras_Compras
                                 Next
                             End If
                         End If
-
-
                         'Si no hay diferencias pero tenemos descuento, se ofrece la opcion para ajustar el gasto
                         If Descuentos > 0 Then
 
@@ -1933,7 +1903,6 @@ Partial Class Compras_Compras
                                     Row.FCLinkButton("imgD").Visible = False
                                 Next
                             End If
-
                         End If
 
                         SubTotal2 = SubTotalReal - Descuentos
@@ -1946,7 +1915,6 @@ Partial Class Compras_Compras
                             Alert(Msg, TipoMensaje.MsgAdvertencia)
                             BtnGuardar.Enabled = False
                         End If
-
                         'AJUSTAMOS SUBTOTAL EN CASO DE SER DIFERENTE AL SUBTOTAL2 DEL XML (TOTAL - IVA)
                         If SubTotal2 <> SubTotal Then
                             SubTotal = SubTotalConceptos
@@ -1978,16 +1946,10 @@ Partial Class Compras_Compras
                         If OtrosImpuestos > 0 Then TrOtrosImpuestos.Visible = True
 
                         HFDiferenciaCompra.Value = TxtTotal.Text
-
-                        'LblRetIVA.Text = TmpDT.MAX("PorcentajeRetIVA").ToString '(If(SubTotal2 > 0, (RetencionIVA / SubTotal2), 0) * 100).FormatoNumero(3) + "%"
-                        'LblRetISR.Text = TmpDT.MAX("PorcentajeRetISR").ToString '(If(SubTotal2 > 0, (RetencionISR / SubTotal2), 0) * 100).FormatoNumero(3)
-
                         'ASIGNA VALORES ORIGINALES PARA GUARDAR
                         AsignaValoresOriginales(SubTotal, SubTotal2, IVA, RetencionIVA, RetencionISR, Total)
 
                     End If
-
-
                     TxtFechaPago.Text = (TxtFecha.Text.ToDate.AddDays(LblDiasCredito.Text.ToEntero)).ToShortDateString
 
                     Dim drMon As DataRow = GlobalDTMonedas.FiltroPrimero(String.Format(" (Abreviatura LIKE '%{0}%' OR Moneda LIKE '%{0}%' )", Moneda))
@@ -2003,7 +1965,6 @@ Partial Class Compras_Compras
                             LblMoneda.Text = Moneda
                             LblMoneda.ForeColor = Drawing.Color.Red
                         End If
-
                     End If
 
                     If DdlMoneda.SelectedValue.ToEntero > 1 Then
@@ -2017,7 +1978,6 @@ Partial Class Compras_Compras
                         Else
                             TxtFecha.Attributes.Add("onblur", "CambiaFechaTC();")
                         End If
-
                     End If
 
                     If TipoCambio > 0 And DdlMoneda.SelectedValue.ToEntero > 1 Then LblTC.Text = String.Format("TC: {0}", TipoCambio.ToString("N4"))
@@ -2031,14 +1991,11 @@ Partial Class Compras_Compras
                         Alert("El xml no contiene la etiqueta  'método de pago', favor de verificar la emisión con el proveedor.", TipoMensaje.MsgAdvertencia)
                         BtnGuardar.Visible = False
                     End If
-
                 End If
-
             Else
                 Alert("No se Encontró la Factura", TipoMensaje.MsgAdvertencia)
                 BtnGuardar.Visible = False
             End If
-
             'GvPS.DataSource = 'DTConceptos
             'GvPS.DataBind()
         End If
@@ -2072,7 +2029,6 @@ Partial Class Compras_Compras
 
         If Cambio Then
             DdlRetIVAConcepto.Items.Clear()
-
             If RFCProv.Length = 13 Then ' personal fisica
                 If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
                     DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
@@ -2109,7 +2065,6 @@ Partial Class Compras_Compras
             End If
         End If
         UpPS.Update()
-
     End Sub
     Private Sub CargaRetISRConcepto(Optional Cambio As Boolean = False, Optional DIOTCveTipoOperacion As Integer = -1)
         If TrRetISR.Visible Then
@@ -2133,9 +2088,6 @@ Partial Class Compras_Compras
                 DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2"))
                 DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
             End If
-
-
-
         End If
         UpPS.Update()
     End Sub
@@ -7094,8 +7046,8 @@ Partial Class Compras_Compras
 
                                         If ObjIE.GetCreditos(DdlCredito.SelectedValue.ToEntero, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
                                             CvePrePolizaCredito = ObjConta.AddPrePolizas("Compras/RegistrarCredito", -1, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 1, TxtFecha.Text.ToDate, "Vinculación crédito con factura", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                                            If ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, False, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, CveConceptoPago, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra, CvePrePolizaOriginal:=CvePrePolizaCredito) Then
+                                            If ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, False, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, CveConceptoPago, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, True, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 50, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra, CvePrePolizaOriginal:=CvePrePolizaCredito) Then
+                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, True, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 50, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then
                                                     ErrorCreditosCompra = True
                                                 End If
                                             Else