Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -30,6 +30,7 @@ Public Class ClsOC
|
||||
Public Property CveOrdenCompra As Integer
|
||||
Public Property CveOrdenCompraDetalle As Integer
|
||||
Public Property Folio As Integer
|
||||
Public Property SerieFolio As String = ""
|
||||
Public Property Serie As String = ""
|
||||
Public Property CveIEAnticipo As Integer
|
||||
Public Property CveProveedorAnticipo As Integer
|
||||
@@ -609,6 +610,7 @@ Public Class ClsOC
|
||||
Dim dr As DataRow = Data.Rows(0)
|
||||
_CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero
|
||||
_Folio = dr("Folio").ToString.ToEntero
|
||||
_SerieFolio = dr("SerieFolio").ToString
|
||||
_Serie = dr("Serie").ToString
|
||||
_CveIEAnticipo = dr("CveIEAnticipo").ToString.ToEntero
|
||||
_FolioIEAnticipo = dr("FolioIEAnticipo").ToString.ToEntero
|
||||
|
||||
@@ -6705,26 +6705,38 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
Dim importeMNTemp As Decimal = 0
|
||||
Dim CveCompraAmortizacion As Integer = -1
|
||||
|
||||
For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
|
||||
If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
|
||||
Dim importeMNTemp As Decimal = 0
|
||||
|
||||
If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
|
||||
ErrorMovInv = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal
|
||||
' Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal
|
||||
'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal)
|
||||
'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal)
|
||||
importeMNTemp = (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * tipoCambioActual).RoundSQL
|
||||
importeMNTemp = importeMNTemp + (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * tipoCambioActual).RoundSQL
|
||||
ImporteTransito += importeMNTemp
|
||||
CveCompraAmortizacion = Gvr.DataKey("CveCompra").ToEntero
|
||||
'se registra por cada compra relacionada
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, importeMNTemp, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
If importeMNTemp > 0 Then
|
||||
importeMNTemp = importeMNTemp - TxtDescuento.Text.ToDecimal
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, importeMNTemp, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraAmortizacion, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'si se marca que no se va a recibir, falta validación
|
||||
If Not ErrorMovInv AndAlso Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 1, UsuarioActual.CveUsuario) Then
|
||||
ErrorMovInv = True
|
||||
@@ -7687,10 +7699,10 @@ Partial Class Compras_Compras
|
||||
|
||||
If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4, AutoConta:=AutoConta) Then
|
||||
TieneError = True
|
||||
'If ObjConta.ValorPolizaDescuadre > 0 Then
|
||||
' Alert($"{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia}", TipoMensaje.MsgError)
|
||||
' ErrorPrepolizaDescuadre = True
|
||||
'End If
|
||||
If ObjConta.ValorPolizaDescuadre > 0 AndAlso UsuarioActual.CveRol = 1 Then
|
||||
Alert($"{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia}", TipoMensaje.MsgError)
|
||||
ErrorPrepolizaDescuadre = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
@@ -178,6 +178,7 @@
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
|
||||
|
||||
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="uppBtns" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
@@ -696,7 +697,7 @@
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div id="DVSeccionGVD"></div>
|
||||
<asp:UpdatePanel ID="UPPTab" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%">
|
||||
@@ -946,7 +947,7 @@
|
||||
<asp:Button ID="BtnVinculaAFEdit" ClientIDMode="Static" OnClick="BtnVinculaAFEdit_Click" Style="display: none;" runat="server" />
|
||||
<asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="$('#DivConceptosContenido').width()" ClientIDMode="Static" />
|
||||
|
||||
|
||||
|
||||
|
||||
<asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" GridLines=" none" BorderColor="Transparent" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn"
|
||||
DataKeyNames="SubProyecto, Cantidad, Importe, Descuento, CveOrdenCompra, CveUnidadMedida, CvePresupuestoEgreso, PS,CveClasificacion, CvePS, CveSubProyecto, CveActivoFijo, CodigoAF, TipoDato, Observacion, CveOrdenCompraDetalle,CveCompra,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje,CantidadNoEditable,CveCultivoCuadroDetalle" data-tableheader=".GVDHeader" ShowHeader="false" data-rows="0">
|
||||
@@ -1704,7 +1705,7 @@
|
||||
<table>
|
||||
<tr>
|
||||
<td style="text-align: center;">
|
||||
<asp:Button runat="server" ID="BtnEdicionMasiva" Text="Edición Masiva" CssClass="btn btn-success" OnClick="BtnEdicionMasiva_Click" Width="170px" />
|
||||
<asp:Button runat="server" ID="BtnEdicionMasiva" Text="Edición Masiva" CssClass="btn btn-success" OnClick="BtnEdicionMasiva_Click" Width="170px" Visible="false" />
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
|
||||
@@ -661,11 +661,12 @@ Partial Class OC_OC
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyectoEntrega, Nothing, Nothing, "Seleccione")
|
||||
|
||||
If UsuarioActual.CveEmpresa = 189 Then
|
||||
'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC)
|
||||
|
||||
DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"})
|
||||
DdlSubProyectoGral.DataBind()
|
||||
DdlSubProyectoGral.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
|
||||
|
||||
TdProyectoSubPrpyectoDdl.Visible = False
|
||||
TdProyectoSubPrpyecto.Visible = False
|
||||
GvD.Columns(4).Visible = False
|
||||
@@ -1014,6 +1015,9 @@ Partial Class OC_OC
|
||||
If UsuarioActual.CveRol = 1 Then
|
||||
TrDescuentoEscalonado.Visible = True
|
||||
TrDescuentoProntoPago.Visible = True
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.CveEmpresa = 189 AndAlso CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then
|
||||
BtnEdicionMasiva.Visible = True
|
||||
End If
|
||||
|
||||
@@ -1577,6 +1581,21 @@ Partial Class OC_OC
|
||||
TxtPorcentajeProntoPago.Text = (100 * objOC.PorcentajeProntoPago).ToString("###.00")
|
||||
|
||||
If UsuarioActual.CveEmpresa = 189 Then
|
||||
Dim existeCvesubproyecto As Boolean = False
|
||||
If objOC.DtResultados.Rows(0)("CveSubProyectoGral").ToString.ToEntero > 0 Then
|
||||
For Each tmpItem As ListItem In DdlSubProyectoGral.Items
|
||||
If tmpItem.Value.ToEntero = objOC.DtResultados.Rows(0)("CveSubProyectoGral").ToString.ToEntero Then
|
||||
existeCvesubproyecto = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If Not existeCvesubproyecto Then
|
||||
Dim tmpSubProyecto As String = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, objOC.DtResultados.Rows(0)("CveSubProyectoGral").ToString.ToEntero, -1).FiltroPrimeroValor("SubProyecto")
|
||||
DdlSubProyectoGral.Items.Add(New ListItem(tmpSubProyecto, objOC.DtResultados.Rows(0)("CveSubProyectoGral").ToString))
|
||||
End If
|
||||
|
||||
DdlSubProyectoGral.SelectedValueExist(objOC.DtResultados.Rows(0)("CveSubProyectoGral").ToString)
|
||||
End If
|
||||
|
||||
@@ -1609,7 +1628,7 @@ Partial Class OC_OC
|
||||
HLGenerarVenta.Visible = True
|
||||
HLGenerarVenta.NavigateUrl = $"/Ventas/Ventas.aspx?CveOC={pCveOrdenCompra}"
|
||||
|
||||
lblFolio.Text = String.Format("OC {0}", objOC.Folio)
|
||||
lblFolio.Text = String.Format("OC {0}", objOC.SerieFolio)
|
||||
lblTipoPadreHijo.Text = "REQ"
|
||||
ChkCotizacion.Visible = False
|
||||
|
||||
@@ -1672,7 +1691,7 @@ Partial Class OC_OC
|
||||
Case "REQ"
|
||||
ViewState("TipoOC") = objOC.Tipo
|
||||
ViewState("TipoLargo") = "Requisición"
|
||||
lblFolio.Text = "REQ " + objOC.Folio.ToString
|
||||
lblFolio.Text = "REQ " + objOC.SerieFolio.ToString
|
||||
lblTipoPadreHijo.Text = "OC"
|
||||
ChkCotizacion.Visible = True
|
||||
DdlProveedores.SelectedValue = objOC.CveProveedor.ToString
|
||||
@@ -1694,7 +1713,7 @@ Partial Class OC_OC
|
||||
Case "OS"
|
||||
ViewState("TipoOC") = "REQ"
|
||||
ViewState("TipoLargo") = "Orden de Servicio"
|
||||
lblFolio.Text = "OS " + objOC.Folio.ToString
|
||||
lblFolio.Text = "OS " + objOC.SerieFolio.ToString
|
||||
'lblTipoPadreHijo.Text = "OC"
|
||||
ChkCotizacion.Visible = True
|
||||
TipoOS = True
|
||||
@@ -9515,6 +9534,7 @@ Partial Class OC_OC
|
||||
|
||||
|
||||
End If
|
||||
RegistraScript("$(document).ready(function() {setTimeout(function() {document.getElementById('DVSeccionGVD').scrollIntoView({ behavior: 'smooth' }); }, 250);});", "100")
|
||||
|
||||
|
||||
UPPDetalle.Update()
|
||||
@@ -9603,6 +9623,7 @@ Partial Class OC_OC
|
||||
|
||||
CargaDatosDetalles()
|
||||
|
||||
|
||||
Return True
|
||||
|
||||
End Function
|
||||
|
||||
Reference in New Issue
Block a user