Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -3732,11 +3732,18 @@
|
||||
|
||||
<br />
|
||||
<div style="text-align:center">
|
||||
<asp:CheckBox runat="server" ID="ChkCreditoMultiple" AutoPostBack="true" Text=" Múltiple Crédito" />
|
||||
<asp:CheckBox runat="server" ID="ChkCreditoMultiple" AutoPostBack="true" Text=" Múltiple Crédito" visible="false" />
|
||||
</div>
|
||||
|
||||
<br />
|
||||
|
||||
<div style="text-align:left;width: 85%;margin-left: 7.5%" runat="server" id="DivReembolsoModal" visible="false">
|
||||
<asp:label runat="server" ID="LblReembolsoModal" Text="Num. Reembolso "/><asp:TextBox ID="TxtRembolsoModal" Width="80px" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtRembolsoModal" runat="server" ControlToValidate="TxtRembolsoModal" InitialValue="" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Num. Reembolso''</b> es necesario, por favor ingreselo." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VceTxtRembolsoModal" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtRembolsoModal" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
|
||||
<br />
|
||||
<div runat="server" id="DivReembolso">
|
||||
<asp:Panel ID="Panel1" CssClass="text-small" runat="server" Width="100%" Visible="true" BorderStyle="Solid" BorderColor="#6A92AD" BorderWidth="2px">
|
||||
<div class="chequesie1">
|
||||
@@ -4142,7 +4149,7 @@
|
||||
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnContado" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpContado" data-dismiss="modal" />
|
||||
<asp:Button ID="BtnContado" OnClick="BtnContado_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpContado" />
|
||||
<button id="Button2" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
<asp:HiddenField ID="HiddenField1" runat="server" Value="-1" ClientIDMode="Static" />
|
||||
|
||||
@@ -1266,10 +1266,6 @@ Partial Class Compras_Compras
|
||||
TieneOC = False
|
||||
CveMoneda = -1
|
||||
|
||||
'[IPP] Eliminar 22Junio2018
|
||||
'If UsuarioActual.Empresa.UsaInventarios Then
|
||||
' TabAlmacen.Enabled = Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0
|
||||
'End If
|
||||
|
||||
ImgAnticiposPendientes.Attributes.Add("OnClick", "MuestraAnticipos();")
|
||||
'ImgCerrar.Attributes.Add("OnClick", "$('#DivAnticipos').hide(200);")
|
||||
@@ -1333,9 +1329,9 @@ Partial Class Compras_Compras
|
||||
ViewState("CveFactura") = Request("CveFactura").ToEntero
|
||||
|
||||
Dim RFC As String = CargaFactura(CveFactura)
|
||||
If Not VerificarProductosSATPS() Then
|
||||
Exit Sub
|
||||
End If
|
||||
'If Not VerificarProductosSATPS() Then
|
||||
' Exit Sub
|
||||
'End If
|
||||
If RFC.Trim <> String.Empty Then
|
||||
DdlProveedor.Visible = False
|
||||
HplProveedor.Visible = True
|
||||
@@ -1663,14 +1659,10 @@ Partial Class Compras_Compras
|
||||
If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
|
||||
'verificacion doble, si no la han cancelado, ya tiene una validaci[on para que llegue aqui
|
||||
|
||||
|
||||
|
||||
|
||||
Dim SWatch As New Stopwatch
|
||||
SWatch.Start()
|
||||
Dim ts As New TimeSpan
|
||||
|
||||
|
||||
Dim Valida As New ClsValidaCFDi(dr("UUID").ToString(), dr("RFCDe").ToString, dr("RFCPara").ToString(), dr("Total").ToString.ToDecimal)
|
||||
|
||||
SWatch.Stop()
|
||||
@@ -1764,6 +1756,21 @@ Partial Class Compras_Compras
|
||||
SubTotalConceptos = Math.Round(TmpDT.SUM("Total"), 2).ToDecimal
|
||||
AddPS2(False)
|
||||
|
||||
|
||||
'VALIDA QUE EL XML SI VIENE CON EL CODIGO SAT 01010101
|
||||
Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
|
||||
For Each drr As DataRow In TmpDT.FiltraParametros("ClaveProdServ = '01010101'").Rows
|
||||
|
||||
ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", drr("PS"))
|
||||
|
||||
Next
|
||||
|
||||
If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
|
||||
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)
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
Else
|
||||
CargaConceptosXML(XMLDoc)
|
||||
@@ -1785,8 +1792,6 @@ Partial Class Compras_Compras
|
||||
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
|
||||
ChkAplicaNotaCredito.Enabled = False
|
||||
|
||||
|
||||
|
||||
DdlTipoCompra.Items.Clear()
|
||||
DdlTipoCompra.Items.Add(New ListItem("Seleccione", "-1"))
|
||||
DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6"))
|
||||
@@ -3946,6 +3951,15 @@ Partial Class Compras_Compras
|
||||
Dim EstatusCredito As Integer = 0
|
||||
Dim CveSubProyecto As Integer = 0
|
||||
'Credito Multiple
|
||||
If RBLPago.SelectedValue.ToEntero = 2 Then
|
||||
If RBLContado.SelectedValue.ToEntero = 6 Or RBLContado.SelectedValue.ToEntero = 2 Then
|
||||
If Not TxtRembolsoNumero.Text.Length > 0 Then
|
||||
Alert("Falta especificar un número de reembolso", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If RBLPago.SelectedValue.ToEntero = 4 Then
|
||||
|
||||
Dim DifCreCompra As Decimal = 0
|
||||
@@ -3983,30 +3997,30 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
'VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT
|
||||
If UsuarioActual.CveEmpresa = 72 Then
|
||||
''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
|
||||
' 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
|
||||
|
||||
'Verifica funcionalidad 702 "Require orden de compra para factura de compra"
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
|
||||
If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
|
||||
If Not CompraEstaVinculadaOC Then
|
||||
Alert("Debe de vincular una orden de compra para realizar esta factura")
|
||||
Alert("Debe de vincular una orden de compra para registrar la factura")
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
@@ -4632,7 +4646,7 @@ Partial Class Compras_Compras
|
||||
ErrorOC = True
|
||||
End If
|
||||
'actualiza la compra para que no se surta en almacen. sino por el flete o importación
|
||||
If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
|
||||
If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
|
||||
ErrorOC = True
|
||||
End If
|
||||
End Select
|
||||
@@ -4647,7 +4661,7 @@ Partial Class Compras_Compras
|
||||
ErrorOC = True
|
||||
End If
|
||||
'actualiza la compra para que no se surta en almacen. sino por el flete o importación
|
||||
If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
|
||||
If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
|
||||
ErrorOC = True
|
||||
End If
|
||||
End Select
|
||||
@@ -12827,7 +12841,6 @@ Partial Class Compras_Compras
|
||||
Select Case RBLPago.SelectedValue
|
||||
Case "1" 'Credito
|
||||
PnlContado.Visible = False
|
||||
|
||||
If Not UsuarioActual.Empresa.UsaAC Then
|
||||
TxtNumeroReembolso.Text = ""
|
||||
tdNumeroReembolso.Visible = False
|
||||
@@ -12836,7 +12849,6 @@ Partial Class Compras_Compras
|
||||
romCreditosTabla.Visible = False
|
||||
Case "2" 'Contado
|
||||
PnlContado.Visible = True
|
||||
|
||||
TxtNumeroReembolso.Text = ""
|
||||
tdNumeroReembolso.Visible = False
|
||||
|
||||
@@ -12870,7 +12882,6 @@ Partial Class Compras_Compras
|
||||
Case "3" 'Reembolso/Comprobacion
|
||||
PnlContado.Visible = True
|
||||
|
||||
|
||||
''AGARRA VALORES DE SESSION PARA REEMBOLSO -- SI YA ESTA REGISTRADA LA COMPRA IGNORA DATOS DE REEMBOLSO
|
||||
If Not CveCompra > 0 Then
|
||||
If UsuarioActual.Sesion("Comp-NumeroReembolso") <> Nothing AndAlso UsuarioActual.Sesion("Comp-NumeroReembolso").ToString <> "" Then
|
||||
@@ -12998,26 +13009,61 @@ Partial Class Compras_Compras
|
||||
Case "1" ' Bancos
|
||||
PnlContadoBancos.Visible = True
|
||||
TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
|
||||
ChkCreditoMultiple.Visible = False
|
||||
DivReembolsoModal.Visible = False
|
||||
RfvTxtRembolsoModal.Enabled = False
|
||||
TxtRembolsoModal.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
Case "2" ' F y E
|
||||
PnlContadoFyE.Visible = True
|
||||
CargaFuncionariosEmpleados()
|
||||
ChkCreditoMultiple.Visible = False
|
||||
DivReembolsoModal.Visible = True
|
||||
RfvTxtRembolsoModal.Enabled = True
|
||||
TxtRembolsoNumero.Text = ""
|
||||
TxtRembolsoModal.Text = ""
|
||||
Case "3" ' Creditos
|
||||
PnlContadoCreditos.Visible = True
|
||||
ChkCreditoMultiple.Visible = True
|
||||
CargaCreditos()
|
||||
DivReembolsoModal.Visible = False
|
||||
RfvTxtRembolsoModal.Enabled = False
|
||||
TxtRembolsoModal.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
Case "4" ' Deudores
|
||||
PnlContadoDeudores.Visible = True
|
||||
CargaDeudores()
|
||||
ChkCreditoMultiple.Visible = False
|
||||
DivReembolsoModal.Visible = False
|
||||
RfvTxtRembolsoModal.Enabled = False
|
||||
TxtRembolsoModal.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
Case "5" ' ACREEDORES
|
||||
PnlContadoAcreedores.Visible = True
|
||||
ChkCreditoMultiple.Visible = True
|
||||
CargaAcreedores()
|
||||
DivReembolsoModal.Visible = False
|
||||
RfvTxtRembolsoModal.Enabled = False
|
||||
TxtRembolsoModal.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
Case "6" ' Caja Chica
|
||||
PnlContadoCajaChica.Visible = True
|
||||
TxtDocumentoImporteCaja.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
|
||||
ChkCreditoMultiple.Visible = False
|
||||
DivReembolsoModal.Visible = True
|
||||
RfvTxtRembolsoModal.Enabled = True
|
||||
TxtRembolsoModal.Text = ""
|
||||
TxtRembolsoNumero.Text = ""
|
||||
End Select
|
||||
|
||||
UpContado.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnContado_Click(sender As Object, e As EventArgs)
|
||||
TxtRembolsoNumero.Text = TxtRembolsoModal.Text
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal"))
|
||||
End Sub
|
||||
|
||||
Protected Sub RblRembolso_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
TrRembolsoCajaChica.Visible = False
|
||||
TrRembolsoPersonal.Visible = False
|
||||
@@ -14591,6 +14637,35 @@ Partial Class Compras_Compras
|
||||
Protected Sub BtnCancelarCompra2_Click(sender As Object, e As EventArgs)
|
||||
RegistraScript("$('#DivCancelarCompra').modal('hide');")
|
||||
|
||||
|
||||
Dim ObjComprasComprobacion As New ClsCompras
|
||||
|
||||
|
||||
If ObjComprasComprobacion.GetComprasPagosConciliados(CveCompra, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
Dim TienePagosConciliados As Boolean = False
|
||||
|
||||
If ObjComprasComprobacion.DtResultados.Rows.Count > 0 Then
|
||||
TienePagosConciliados = True
|
||||
Dim PagosConciliados As New StringBuilder
|
||||
|
||||
For Each Drow As DataRow In ObjComprasComprobacion.DtResultados.Rows
|
||||
PagosConciliados.AppendLine($"<a target='_blank' class='Texto' href=../Bancos/IE.aspx?CveIE={Drow("CveIE").ToString}>{Drow("Folio").ToString} </a> <br>")
|
||||
Next
|
||||
|
||||
|
||||
Alert($"La compra no se puede cancelar, tiene pagos conciliados: <br> {PagosConciliados.ToString}", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
If TienePagosConciliados Then
|
||||
ObjComprasComprobacion.Dispose()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
ObjComprasComprobacion.Dispose()
|
||||
|
||||
Dim ObjAC As ClsContPAQi = Nothing
|
||||
If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
|
||||
ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
|
||||
@@ -15126,12 +15201,7 @@ Partial Class Compras_Compras
|
||||
Dr("RetISRTC") = Dr("RetISR")
|
||||
Dr("TotalTC") = Dr("ImporteAjustadoDescuento")
|
||||
|
||||
'[IPP] - JAMEntregaAdelantado | AJUSTE DE CANITDAD POR RECIBIR EN BASE A SALDOS DE INV-COMPRAS
|
||||
'If UsuarioActual.CveUsuario = 100 Then
|
||||
'If Dr("CveTipoPS").ToString.ToEntero = 2 And UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
|
||||
' Dr("CantidadDisponible") = If(Dr("CantidadDisponible").ToString.ToDouble > Dr("CantidadPendienteVincular").ToString.ToDouble, Dr("CantidadPendienteVincular"), Dr("CantidadDisponible"))
|
||||
'End If
|
||||
'End If
|
||||
|
||||
Next
|
||||
|
||||
'DESCRIPCION DE OC CUANDO NO ES COMPRA REGISTRADA
|
||||
@@ -15163,7 +15233,7 @@ Partial Class Compras_Compras
|
||||
|
||||
'SI PUEDE RECIBIR POR OC Y COMPRA
|
||||
If UsuarioActual.CveEmpresa.Contiene(119) Then
|
||||
If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
|
||||
If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Then
|
||||
Select Case DdlOCVinculaInv.SelectedValue.ToEntero
|
||||
Case 176
|
||||
DTOCGV = DTOCGV.FiltraParametros("((EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1)")
|
||||
@@ -15428,21 +15498,21 @@ Partial Class Compras_Compras
|
||||
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)
|
||||
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
|
||||
' 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)
|
||||
@@ -18650,14 +18720,14 @@ Partial Class Compras_Compras
|
||||
For Each gvr As GridViewRow In GvSolDev.Rows
|
||||
If gvr.FCTextBox("TxtCant").Text.ToDecimal > 0 Then
|
||||
'actualiza el estatus del detalle
|
||||
ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0)
|
||||
ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0, UsuarioActual.CveUsuario)
|
||||
Else
|
||||
ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1)
|
||||
ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1, UsuarioActual.CveUsuario)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1)) Then
|
||||
If ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1), UsuarioActual.CveUsuario) Then
|
||||
EstatusAlmacen = If(EstatusAlmacen = 1, 0, 1)
|
||||
Alert(If(EstatusAlmacen = 1, "La solicitud de devolución de almacen se guardo correctamente.", "La solicitud de almacen se canceló correctamente."))
|
||||
End If
|
||||
@@ -19020,7 +19090,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
CveMovimientoInventario = DtInv.MAX("CveMovimiento", $"CveCompraDetalle = {Row2("CveCompraDetalle")}").ToEntero
|
||||
IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DtInv.MIN("CveAlmacen", $"CveCompraDetalle = {Row2("CveCompraDetalle")}")}").ToEntero
|
||||
CveCuenta = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DtInv.MIN("CveAlmacen", $"CveCompraDetalle = {Row2("CveCompraDetalle")}")}").ToEntero
|
||||
' CveCuenta = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DtInv.MIN("CveAlmacen", $"CveCompraDetalle = {Row2("CveCompraDetalle")}")}").ToEntero
|
||||
|
||||
ImporteMovimiento = DtInv.SUM(If(DdlMoneda.SelectedValue = "1", "Total", "TotalExtranjero"), $"CveCompraDetalle = {Row2("CveCompraDetalle")}").ToDecimal
|
||||
ImporteMovimiento = If(ImporteMovimiento > Row2("Total").ToString.ToDecimal, Row2("Total").ToString.ToDecimal, ImporteMovimiento) * Multiplicador
|
||||
@@ -19050,15 +19120,15 @@ Partial Class Compras_Compras
|
||||
If IdCtaContable = 0 Then
|
||||
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
|
||||
End If
|
||||
If CveCuenta = 0 Then
|
||||
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
|
||||
End If
|
||||
'If CveCuenta = 0 Then
|
||||
' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
|
||||
'End If
|
||||
Dim SeContabiliza As Boolean = True
|
||||
'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
|
||||
If DdlTipoCompra.SelectedValue = "10" Then
|
||||
SeContabiliza = False
|
||||
End If
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 68, Concepto, FechaMovimiento, Row("IdCtaContable").ToString.ToEntero, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveMovimientoAlmacen:=Row("CveMovimiento").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(TipoCambioActual = 1, 0, ImporteMovimiento), CveCuenta:=Row("CveCuenta").ToString.ToEntero, Contabilizable:=SeContabiliza) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 68, Concepto, FechaMovimiento, Row("IdCtaContable").ToString.ToEntero, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveMovimientoAlmacen:=Row("CveMovimiento").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(TipoCambioActual = 1, 0, ImporteMovimiento), Contabilizable:=SeContabiliza) Then
|
||||
TieneError = True
|
||||
Exit For
|
||||
End If
|
||||
@@ -19403,7 +19473,7 @@ Partial Class Compras_Compras
|
||||
Case 237
|
||||
Select Case FleteImportacionOpcion
|
||||
Case 1
|
||||
If Not ObjInventario.AddFletescompras(CveFlete, CveCompra) Then
|
||||
If Not ObjInventario.AddFletesCompras(CveFlete, CveCompra) Then
|
||||
ErrorTrans = True
|
||||
End If
|
||||
'''actualiza la compra para que no se surta en almacen. sino por el flete o importación
|
||||
@@ -19415,7 +19485,7 @@ Partial Class Compras_Compras
|
||||
ErrorTrans = True
|
||||
End If
|
||||
'actualiza la compra para que no se surta en almacen. sino por el flete o importación
|
||||
If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
|
||||
If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
|
||||
ErrorTrans = True
|
||||
End If
|
||||
End Select
|
||||
@@ -19430,7 +19500,7 @@ Partial Class Compras_Compras
|
||||
ErrorTrans = True
|
||||
End If
|
||||
'actualiza la compra para que no se surta en almacen. sino por el flete o importación
|
||||
If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
|
||||
If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
|
||||
ErrorTrans = True
|
||||
End If
|
||||
End Select
|
||||
@@ -20204,37 +20274,35 @@ Partial Class Compras_Compras
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function VerificarProductosSATPS() As Boolean
|
||||
Dim CvePSGRuposAux As New StringBuilder("")
|
||||
For Each gvr As GridViewRow In GvPS.Rows
|
||||
Dim CvePSIndividual As String = gvr.DataKey("CvePS")
|
||||
CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
|
||||
Next
|
||||
'Private Function VerificarProductosSATPS() As Boolean
|
||||
' Dim CvePSGRuposAux As New StringBuilder("")
|
||||
' For Each gvr As GridViewRow In GvPS.Rows
|
||||
' Dim CvePSIndividual As String = gvr.DataKey("CvePS")
|
||||
' CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
|
||||
' Next
|
||||
|
||||
If CvePSGRuposAux.Length > 0 Then
|
||||
Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
|
||||
'Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
|
||||
|
||||
Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
|
||||
'Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
|
||||
|
||||
Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
|
||||
For Each PS As GridViewRow In GvPS.Rows
|
||||
Dim PSIndividual As String = PS.DataKey("PS")
|
||||
Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
|
||||
If ClavePSSAT = "46920" Then
|
||||
ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", PSIndividual)
|
||||
End If
|
||||
Next
|
||||
'Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
|
||||
'For Each PS As GridViewRow In GvPS.Rows
|
||||
'Dim PSIndividual As String = PS.DataKey("PS")
|
||||
'Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
|
||||
'If ClavePSSAT = "46920" Then
|
||||
' ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", PSIndividual)
|
||||
' 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)
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
'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)
|
||||
' Return False
|
||||
'End If
|
||||
|
||||
Return True
|
||||
' Return True
|
||||
|
||||
End Function
|
||||
'End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
@@ -292,7 +292,7 @@
|
||||
<asp:HiddenField runat="server" ID="HdnFechasComprasVinculadas" Value="-1" ClientIDMode="Static" />
|
||||
|
||||
<asp:GridView ID="GvCxP" GridLines="None" CssClass="table table-hover table-advance Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes"
|
||||
DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,IdCtaContProveedores,IdCtaContProveedoresSIG,CvePrePoliza,IdPoliza,CveRetIVAConcepto,CveRetISRConcepto,IVAPorcentaje,IVADeducible,IVANoDeducible,CveTipoConcepto,CveSubProyecto">
|
||||
DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,IdCtaContProveedores,IdCtaContAcreedor,CvePrePoliza,IdPoliza,CveRetIVAConcepto,CveRetISRConcepto,IVAPorcentaje,IVADeducible,IVANoDeducible,CveTipoConcepto,CveSubProyecto">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>
|
||||
|
||||
Reference in New Issue
Block a user