AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2022-01-27 23:35:05 -07:00
parent f6ab8ae428 615f257c6e
commit 9b6d1c1b75
9 changed files with 525 additions and 423 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Documentacion/TableroMaterialidad.aspx
View File

@@ -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><%#

8
GPS/PalletEtiqueta.rdlc
View File

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

4
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -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)

9
Inventarios/RecepcionUsados.aspx
View File

@@ -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>

24
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -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

862
RH/Personal.aspx
View File

File diff suppressed because it is too large Load Diff

22
RH/Personal.aspx.vb
View File

@@ -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

8
Ventas/RepCancelacionesPorRespuesta.aspx.cs
View File

@@ -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;
}

8
Ventas/Ventas.aspx.vb
View File

@@ -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.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.Add("onblur", String.Format("SeriePSBlur({0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
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.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("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))