-- mejora
This commit is contained in:
@@ -1885,10 +1885,10 @@
|
||||
<asp:UpdatePanel runat="server" ID="UpGvOC2" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div id="DivDatosCompra" style="height: 250px; overflow-y: auto;">
|
||||
<asp:GridView AutoGenerateColumns="false" runat="server" ID="GvOC2" GridLines="None" EmptyDataText="No se encontraron registros." CssClass="table table-striped table-hover gridconheader Widthall" RowStyle-HorizontalAlign="Center" DataKeyNames="Cantidad,UM,PS,SATClaveProductoServicio,PU,Total,Descuento">
|
||||
<asp:GridView AutoGenerateColumns="false" runat="server" ID="GvOC2" GridLines="None" EmptyDataText="No se encontraron registros." CssClass="table table-striped table-hover gridconheader Widthall" RowStyle-HorizontalAlign="Center" DataKeyNames="Cantidad,UM,PS,CvePS,CodigoPS,SATClaveProductoServicio,PU,Total,Descuento">
|
||||
<Columns>
|
||||
<asp:BoundField HeaderText="#" DataField="Consec" ItemStyle-Width="20px" />
|
||||
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-Width="40px" />
|
||||
<asp:BoundField HeaderText="#" DataField="Consec" ItemStyle-Width="20px" ItemStyle-Font-Size="6pt" />
|
||||
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.######}" ItemStyle-Width="40px" />
|
||||
<asp:BoundField HeaderText="UM" DataField="UM" ItemStyle-Width="40px" />
|
||||
<asp:TemplateField HeaderText="UM" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
@@ -1896,7 +1896,7 @@
|
||||
<asp:Label ID="LblClasificacion" runat="server" Text='<%# Eval("Clasificacion") %>'></asp:Label>
|
||||
</span>
|
||||
<br />
|
||||
<asp:Label ID="LbProductoServicio" runat="server" Text='<%# Eval("PS")%>'></asp:Label>
|
||||
<asp:Label ID="LbProductoServicio" runat="server" Text='<%# Eval("CodigoPS")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<HeaderTemplate>
|
||||
Clasificación
|
||||
|
||||
@@ -1647,15 +1647,10 @@ Partial Class Compras_Compras
|
||||
DdlTipoComprobante.SelectedValueExist("DEV")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso DdlTipoComprobante.SelectedValue = "NC" Then
|
||||
|
||||
|
||||
|
||||
ConfiguraseleccionRemisionNotaCredito()
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -7693,7 +7688,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Not TieneError Then
|
||||
ObjCompras.Commit()
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
|
||||
@@ -7735,7 +7729,7 @@ Partial Class Compras_Compras
|
||||
Else
|
||||
ObjCompras.RollBack()
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
|
||||
Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
|
||||
Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente..", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
|
||||
@@ -13491,7 +13485,7 @@ Partial Class Compras_Compras
|
||||
CargaGVsAF()
|
||||
|
||||
CargaTipoCentroCostoOC()
|
||||
GvOC1.DataSource = DTOCTemp
|
||||
GvOC1.DataSource = DTOCTemp.FiltraParametros("", "CodigoPS")
|
||||
|
||||
Dim DTCVEOCS As DataTable = DTOCTemp.FiltraParametros("", "", {"CveOrdenCompra"})
|
||||
If DTCVEOCS IsNot Nothing AndAlso DTCVEOCS.Rows.Count > 1 Then
|
||||
@@ -13502,7 +13496,7 @@ Partial Class Compras_Compras
|
||||
GvOC1.DataBind()
|
||||
|
||||
' TmpDT = OrdenarTablas("CvePS", DTOCTemp, TmpDT)
|
||||
GvOC2.DataSource = TmpDT
|
||||
GvOC2.DataSource = TmpDT.FiltraParametros("", "CodigoPS")
|
||||
GvOC2.DataBind()
|
||||
|
||||
UpGvOC1.Update()
|
||||
@@ -14547,24 +14541,10 @@ Partial Class Compras_Compras
|
||||
|
||||
CargaTipoCentroCostoOC()
|
||||
|
||||
GvOC1.DataSource = DTOCGV
|
||||
GvOC1.DataSource = DTOCGV.FiltraParametros("", "CveOrdenCompra, CodigoPS")
|
||||
GvOC1.DataBind()
|
||||
|
||||
'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
|
||||
If UsuarioActual.Empresa.Funcionalidad(382).ToEntero > 0 Then
|
||||
For Each Gvr As GridViewRow In GvOC1.Rows
|
||||
Dim Change As Boolean = False
|
||||
For Each Dr2 As DataRow In TmpDT.Rows
|
||||
If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then
|
||||
Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
|
||||
Change = True
|
||||
End If
|
||||
Next
|
||||
If Not Change Then
|
||||
Gvr.FCTextBox("TxtCantidad").Text = "0"
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
Dim DTCVEOGV As DataTable = DTOCGV.FiltraParametros("", "", {"CveOrdenCompra"})
|
||||
If DTCVEOGV.Rows.Count > 1 Then
|
||||
@@ -14578,15 +14558,39 @@ Partial Class Compras_Compras
|
||||
RegistraScript($"CalculaTotalOCEdit('{ gvr.DataKey("PS").Replace("'", "").Replace(vbLf, " ").Replace(vbCrLf, " ") }', {gvr.DataKey("Cantidad").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", $"Gv{Cont}")
|
||||
Cont += 1
|
||||
Next
|
||||
|
||||
UpGvOC1.Update()
|
||||
|
||||
TmpDT = TmpDT.FiltraParametros("", "PU")
|
||||
TmpDT = TmpDT.FiltraParametros("", "CodigoPS")
|
||||
|
||||
GvOC2.DataSource = TmpDT
|
||||
GvOC2.DataBind()
|
||||
'condicion temporal rmf
|
||||
|
||||
'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
|
||||
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
|
||||
For Each Gvr As GridViewRow In GvOC1.Rows
|
||||
Dim Change As Boolean = False
|
||||
For Each Dr2 As DataRow In TmpDT.Rows
|
||||
If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then
|
||||
Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
|
||||
Change = True
|
||||
End If
|
||||
Next
|
||||
If Not Change Then
|
||||
Gvr.FCTextBox("TxtCantidad").Text = ""
|
||||
End If
|
||||
Next
|
||||
'detectar los ps que no están en la OC, códigos que no están en la OC
|
||||
'mostrar los ps que no están en la oc
|
||||
Dim strMsg As New StringBuilder
|
||||
For Each Gvr As GridViewRow In GvOC2.Rows
|
||||
Dim i As Integer = DTOCGV.FiltraParametros($"CvePS = '{Gvr.DataKey("CvePS")}'").Rows.Count
|
||||
If i = 0 Then
|
||||
strMsg.AppendFormat("- {0} <br/>", Gvr.DataKey("CodigoPS"))
|
||||
Gvr.BackColor = Drawing.Color.Red
|
||||
End If
|
||||
Next
|
||||
If strMsg.Length > 0 Then Alert("Los siguientes productos facturados no están en la Orden de compra<br/>" & strMsg.ToString, TipoMensaje.MsgAdvertencia)
|
||||
|
||||
'condicion temporal rmf
|
||||
GvOC1.Columns(6).Visible = False
|
||||
GvOC2.Columns(4).Visible = False
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user