limitar la facturacion si tiene codigo sat 01010101

Ventas/Ventas.aspx.vb

@@ -7062,6 +7062,22 @@ Partial Class Ventas
                 Exit Sub
             End If
             dttsat.Dispose()
+
+            If UsuarioActual.CveEmpresa = 72 Then
+                Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(SATClaveProdServ,'') = '01010101' ")
+                If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
+                    Dim StrNoEncontrados As New StringBuilder
+                    StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>")
+                    For Each drt As DataRow In DtNoEncontrados.Rows
+                        StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
+                    Next
+                    Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
+                    DtNoEncontrados.Dispose()
+                    StrNoEncontrados.Clear()
+                    Exit Sub
+                End If
+                DtNoEncontrados.Dispose()
+            End If
         End If
 
         If ObjFactura Is Nothing Or (ObjFactura.Cliente Is Nothing And Not CveEmpresaCRM > 0) Then
@@ -15715,6 +15731,11 @@ Partial Class Ventas
                     MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: Sin Unidad Medida SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
                     Return False
                 End If
+
+                If UsuarioActual.CveEmpresa = 72 AndAlso DrPS("SATClavePS").ToString() = "01010101" Then
+                    MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: El producto/servicio no existe en el catálogo del SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
+                    Return False
+                End If
             End If
         End If