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

Documentacion/TableroMaterialidad.aspx

@@ -167,7 +167,8 @@
                     <asp:Repeater ID="RptDatos" runat="server" OnItemDataBound="RptDatos_ItemDataBound">
                         <ItemTemplate>
                             <tr>
-                                <td><%# DataBinder.Eval(Container.DataItem, "NombreComercial") %></td>
+                                
+                                <td><%# string.Format("<a href='/Ventas/Clientes.aspx?CveCliente={0}' target='_blank'>{1}</a>",DataBinder.Eval(Container.DataItem, "CveCliente"),DataBinder.Eval(Container.DataItem, "NombreComercial")) %></td>
                                 <asp:Repeater ID="rptdocumentacion" runat="server">
                                     <ItemTemplate>
                                         <td><%#

GPS/PalletEtiqueta.rdlc

@@ -1586,10 +1586,10 @@ KM12 HERMOSILLO, SONORA</Value>
       <Page>
         <PageHeight>29.7cm</PageHeight>
         <PageWidth>21cm</PageWidth>
-        <LeftMargin>2cm</LeftMargin>
+        <LeftMargin>0cm</LeftMargin>
-        <RightMargin>2cm</RightMargin>
+        <RightMargin>0cm</RightMargin>
-        <TopMargin>2cm</TopMargin>
+        <TopMargin>0cm</TopMargin>
-        <BottomMargin>2cm</BottomMargin>
+        <BottomMargin>0cm</BottomMargin>
         <ColumnSpacing>0.13cm</ColumnSpacing>
         <Style />
       </Page>

Inventarios/EntregaAlmacen.aspx.vb

@@ -2914,6 +2914,10 @@ Partial Class Inventarios_EntregaAlmacen
 
             If RbEntregaInterna.Checked Then
                 Msg.AppendFormat("<br/><br/>Se agregó una guía de paquetería interna")
+            End If
+
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso TipoDocto = "Rem" Then
+                Msg.AppendFormat("<br/><br/>Recibir Usado: <b><a href=""/Inventarios/RecepcionUsados.aspx?CveRemision={0}"" target=""_blank"">Ir a Recepción de Usados</a></b>", CveVentaSurtir)
             End If
 
             Alert(Msg.ToString(), TipoMensaje.MsgInformacion)

Inventarios/RecepcionUsados.aspx

@@ -236,7 +236,8 @@
                                             <label class="col-md-1" style="width: 110px">Recibe:</label>
                                             <div class="col-md-3">
                                                 <asp:TextBox runat="server" Text="" ID="TxtResponsable" Width="100%" />
-                                                <%--<asp:DropDownList ID="DdlResponsable" runat="server" DataTextField="Nombre" DataValueField="CveUsuario" CssClass="form-control input-sm" Style="width: 200px !important;"></asp:DropDownList>--%>
+                                                <asp:RequiredFieldValidator ID="RFVResponsable" runat="server" ControlToValidate="TxtResponsable" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Recibe''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCEResponsable" runat="server" HighlightCssClass="vco" TargetControlID="RFVResponsable"></ajax:ValidatorCalloutExtender>
                                             </div>
                                         </div>
                                         <div class="row">
@@ -280,6 +281,12 @@
                                                 <asp:TextBox ID="TxtRemision" runat="server" Enabled="false" />
                                             </div>
                                         </div>
+                                        <div class="row" id="DivRemisionRecibida" runat="server" visible="false">
+                                            <label class="col-md-1 truncate" style="width: 110px">Remision:</label>
+                                            <div class="col-md-2">
+                                                <asp:TextBox ID="TxtRemisionRecibida" runat="server" Enabled="false" />
+                                            </div>
+                                        </div>
                                     </div>
                                 </div>
                             </div>

Inventarios/RecepcionUsados.aspx.vb

@@ -349,6 +349,7 @@ Partial Class Inventarios_RecepcionUsados
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaInicial()
+            CargaRemisionFromURL()
             GeneraRNCFromURL()
         End If
     End Sub
@@ -424,6 +425,17 @@ Partial Class Inventarios_RecepcionUsados
         'DdlProducto2.setEsWebService(True)
         'DdlProducto2.Attributes.Add("data-metodo", "getpsusados")
     End Sub
+
+    Private Sub CargaRemisionFromURL()
+        Me.CveRemisionRecibida = -1
+
+        Dim CveRemision As Integer = IfNull(Request("CveRemision"), "-1").ToString().ToEntero()
+        If CveRemision > 0 Then
+            Me.CveRemisionRecibida = CveRemision
+            RecibirRemision()
+        End If
+
+    End Sub
     Private Sub GeneraRNCFromURL()
         Dim RFC As String = IfNull(Request("RFC"), "").ToString()
         Dim CveAlmacen As Integer = IfNull(Request("CveAlmacen"), "-1").ToString().ToEntero()
@@ -2185,11 +2197,15 @@ Partial Class Inventarios_RecepcionUsados
         UpGenerales.Update()
     End Sub
     Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
-        DtMovimientos.Rows.Clear()
-
         Me.CveRemisionRecibida = -1
         Me.CveRemisionRecibida = CType(CType(sender, LinkButton).NamingContainer, GridViewRow).DataKey("CveVenta").ToEntero()
 
+        RecibirRemision()
+    End Sub
+
+    Private Sub RecibirRemision()
+        DtMovimientos.Rows.Clear()
+
         Dim DtUsados As DataTable = Nothing
         Dim CveCliente As Integer = -1
 
@@ -2210,6 +2226,8 @@ Partial Class Inventarios_RecepcionUsados
 
         Me.ObjFactura = New Modelos.Factura(UsuarioActual, CveRemisionRecibida, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas)
 
+        TxtRemisionRecibida.Text = Me.ObjFactura.SerieFolio
+        DivRemisionRecibida.Visible = True
 
         'SI ES DISTRIBUIDOR VAMOS A GENERAR LA REMISION DE NOTA DE CREDITO
         If EsDistribuidor Then
@@ -2419,7 +2437,7 @@ Partial Class Inventarios_RecepcionUsados
         Me.ObjRemisionNC.OrdenCompra = ""
         Me.ObjRemisionNC.PedidoContrato = ""
         Me.ObjRemisionNC.ObservacionesAlmacen = ""
-
+        Me.ObjRemisionNC.Recibio = TxtResponsable.Text.Trim
         'If TmpDTPolizaVirtual IsNot Nothing Then
         '    Me.ObjRemisionNC.DtPolizasVirtuales = TmpDTPolizaVirtual
         'End If

RH/Personal.aspx.vb

@@ -52,6 +52,18 @@ Partial Class RH_Personal
             ViewState("DTDocumentacion") = value
         End Set
     End Property
+    Private Property DTDocumentacionFiscal As DataTable
+        Get
+            If ViewState("DTDocumentacionFiscal") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DTDocumentacionFiscal"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            ViewState("DTDocumentacionFiscal") = value
+        End Set
+    End Property
     Property NombreCompleto As String
         Get
             If ViewState("NombreCompleto") Is Nothing Then
@@ -3749,8 +3761,18 @@ Partial Class RH_Personal
             Else
                 GvDocumentosFirma.DataSource = Nothing
             End If
+
+
+            If DTDocumentacion.FiltraParametros(" Modulo =  7 ").Rows.Count > 0 Then
+                GVMaterialidad.DataSource = DTDocumentacion.FiltraParametros(" Modulo =  7 ")
+            Else
+                GVMaterialidad.DataSource = Nothing
+            End If
+
+            GVMaterialidad.DataBind()
             GvDocumentosFirma.DataBind()
 
+            UpMaterialidad.Update()
             UPGvDocumentosFirma.Update()
             UpGvDocumentosFirma2.Update()
         End If

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -396,7 +396,13 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
         var factura = new Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion: true);
         if (EsRefacturacion)
         {
-            if (CveEstatusRefacturacion >= 0)
+            //SI YA FUE REFACTURADA MARCALA COMO REFACTURADA
+            if (!string.IsNullOrEmpty(FolioSustitucion))
+            {
+                CveEstatusRefacturacion = 2;
+            }
+
+            if (CveEstatusRefacturacion > 0)
             {
                 factura.CveEstatusRefacturacion = CveEstatusRefacturacion;
             }

Ventas/Ventas.aspx.vb

@@ -7691,10 +7691,10 @@ Partial Class Ventas
             If e.Row.DBCampo("CveTipoInvPS").ToEntero() = 5 And CveVenta <= 0 Then
 
                 e.Row.FCTextBox("TxtSerie").Visible = True
-                    e.Row.FCTextBox("TxtSerie").Attributes.Remove("onkeypress")
+                e.Row.FCTextBox("TxtSerie").Attributes.Remove("onkeypress")
-                    e.Row.FCTextBox("TxtSerie").Attributes.Add("onkeypress", String.Format("SeriePS(event,{0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
+                e.Row.FCTextBox("TxtSerie").Attributes.Add("onkeypress", String.Format("SeriePS(event,{0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
-                    e.Row.FCTextBox("TxtSerie").Attributes.Remove("onblur")
+                e.Row.FCTextBox("TxtSerie").Attributes.Remove("onblur")
-                    e.Row.FCTextBox("TxtSerie").Attributes.Add("onblur", String.Format("SeriePSBlur({0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
+                e.Row.FCTextBox("TxtSerie").Attributes.Add("onblur", String.Format("SeriePSBlur({0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
 
                 'e.Row.FCTextBox("TxtSerie").Attributes.Add("onkeyup", String.Format("LimpiaAF(1, '{0}'); EnterAFEdit(event,this,{1},{2});", e.Row.FCHiddenField("HdnCveConcepto").Value, e.Row.FCHiddenField("HdnCveAF").ClientID, e.Row.FCHiddenField("HdnCodAF").ClientID))