-
This commit is contained in:
rrene
@@ -4802,15 +4802,19 @@
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:GridView ID="GvSolDev" runat="server" AutoGenerateColumns="false" GridLines="none" BorderWidth="0" DataKeyNames="CveCompraDetalle,CvePS" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
|
||||
<asp:GridView ID="GvSolDev" runat="server" AutoGenerateColumns="false" GridLines="none" BorderWidth="0" DataKeyNames="Cantidad,CveCompraDetalle,CvePS" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
|
||||
<Columns>
|
||||
<%--<%#Eval("Cantidad") %>--%>
|
||||
<asp:TemplateField ItemStyle-Width="55px" HeaderText="Cant">
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtCant" runat="server" Text='<%#Eval("Cantidad") %>' Width="50px" ></asp:TextBox>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtCant" runat="server" Text='' Width="50px" ></asp:TextBox>
|
||||
<asp:RangeValidator ID="RVR" Display="Dynamic" ControlToValidate="TxtCant" runat="server" MinimumValue="0" Type="Double" ErrorMessage="Supera el total disponible"></asp:RangeValidator>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="Cantidad" HeaderText="Total"/>
|
||||
<asp:BoundField DataField="UM" headertext="UM" />
|
||||
<asp:BoundField DataField="CodigoPS" headertext="Producto" />
|
||||
<asp:BoundField DataField="Total" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
|
||||
@@ -1145,7 +1145,7 @@ Partial Class Compras_Compras
|
||||
CargaDatosAgregarPS()
|
||||
TieneAnticiposXML = False
|
||||
Modalidad = ""
|
||||
Version = ""
|
||||
Version = "3.3"
|
||||
CveMetodoPago = -1
|
||||
RFCProv = ""
|
||||
CargaDdlTipoGasto()
|
||||
@@ -3953,6 +3953,24 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
'VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT
|
||||
If UsuarioActual.CveEmpresa = 72 Then
|
||||
|
||||
Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(CveSATPS,0) = 46920 ")
|
||||
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
|
||||
|
||||
'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle
|
||||
Dim GuardaNoDeducibles As Boolean = False
|
||||
If ChkEsNoDeducible.Checked Then
|
||||
@@ -4489,7 +4507,7 @@ Partial Class Compras_Compras
|
||||
CveConceptoContableAlmacen = 205
|
||||
End If
|
||||
Else
|
||||
CveConceptoContableAlmacen = 225
|
||||
CveConceptoContableAlmacen = 225
|
||||
End If
|
||||
|
||||
'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen
|
||||
@@ -6741,7 +6759,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(119) Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(119) Then
|
||||
Dim ContienePSNeteoBonif As Boolean = False
|
||||
For Each Dr As DataRow In TmpDT.Rows
|
||||
If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Or DdlTipoCompra.SelectedValue.ToEntero = 11 Then 'clasificación de Bonificación, no se incluirá en el neteo
|
||||
@@ -15365,11 +15383,27 @@ Partial Class Compras_Compras
|
||||
Dim SubTotalCompra As Decimal = Amortizacion
|
||||
Dim DiferenciaPermitida = 1
|
||||
Dim Cont = 0
|
||||
Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
|
||||
For Each gvr As GridViewRow In GvOC1.Rows
|
||||
SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
|
||||
If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
|
||||
Cont = 1
|
||||
If GvOC1.Columns(6).Visible Then
|
||||
Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
|
||||
Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text
|
||||
If SatPS.Contains("01010101") Then
|
||||
ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", NombreProducto)
|
||||
'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto)
|
||||
'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
|
||||
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
|
||||
Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
|
||||
Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then
|
||||
LbSubTotalDif.Visible = False
|
||||
@@ -17661,8 +17695,17 @@ Partial Class Compras_Compras
|
||||
ActualizaTotales = True
|
||||
Select Case Modalidad
|
||||
Case "A" 'ADD
|
||||
|
||||
Dim SATClavePS = -1
|
||||
Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
|
||||
If PSRow IsNot Nothing Then
|
||||
SATClavePS = PSRow("SATClavePS").ToString.ToEntero
|
||||
End If
|
||||
|
||||
AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
|
||||
DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text, NoDeducible:=ChkEsNoDeduciblePS.Checked)
|
||||
DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2),
|
||||
TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
|
||||
NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS)
|
||||
|
||||
AddPS2()
|
||||
LimpiaAgregar()
|
||||
@@ -18544,6 +18587,14 @@ Partial Class Compras_Compras
|
||||
UPPSolDev.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GvSolDev_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvSolDev.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
Dim ExistenciasAux As Decimal = e.Row.DataKey("Cantidad").ToDecimal
|
||||
e.Row.FCRangeValidator("RVR").MaximumValue = ExistenciasAux.ToString
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnDevolucion_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjCompras As New ClsCompras
|
||||
Dim TieneError As Boolean = False
|
||||
|
||||
@@ -2703,6 +2703,9 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
|
||||
Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
|
||||
Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Capturo))
|
||||
|
||||
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
|
||||
params.Add(New ReportParameter("Almacen", Almacen))
|
||||
@@ -2712,12 +2715,17 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("Descuentos", ""))
|
||||
params.Add(New ReportParameter("IVA", ""))
|
||||
params.Add(New ReportParameter("Total", ""))
|
||||
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
||||
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
||||
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
||||
params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
|
||||
params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))
|
||||
|
||||
If UsuarioActual.CveEmpresa = 72 Then
|
||||
params.Add(New ReportParameter("Sucursal", SubProyecto))
|
||||
params.Add(New ReportParameter("DepartamenteRecibio", DepartamentoRecibe))
|
||||
params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego))
|
||||
|
||||
End If
|
||||
params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo))
|
||||
params.Add(New ReportParameter("Observaciones", Observaciones))
|
||||
|
||||
Reference in New Issue
Block a user