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

Validacion de registro de compra proveniente de OC

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-12-01 16:41:58 -07:00
parent d9c03272bf
commit f2e3b8f510
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ventas/Ventas.aspx.vb
View File

@@ -21854,7 +21854,7 @@ Partial Class Ventas
Dim tDT As DataTable = Nothing Dim tDT As DataTable = Nothing
Dim ObjOC As New ClsOC Dim ObjOC As New ClsOC
If ObjOC.GetOCFacturacion(CveOC, UsuarioActual.CveEmpresa) Then If ObjOC.GetOCFacturacion(CveOC, UsuarioActual.CveEmpresa) Then
tDT = ObjOC.DtResultados tDT = ObjOC.DtResultados.Copy()
'tTmpDT.Columns.Add("TipoDocto", GetType(String)) 'tTmpDT.Columns.Add("TipoDocto", GetType(String))
'tTmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) 'tTmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
'tTmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal)) 'tTmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
@@ -21867,10 +21867,14 @@ Partial Class Ventas
If tDT IsNot Nothing AndAlso tDT.Rows.Count > 0 Then If tDT IsNot Nothing AndAlso tDT.Rows.Count > 0 Then
ViewState("CveCliente") = ObjOC.DtResultados.Rows(0)("CveCliente") ViewState("CveCliente") = tDT.Rows(0)("CveCliente")
HdnCveCliente.Value = CveCliente.ToString() HdnCveCliente.Value = CveCliente.ToString()
CargaCliente(CveCliente) CargaCliente(CveCliente)
If (DdlTipoComprobante.Items.FindByValue("Rem") IsNot Nothing) Then
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
End If
For Each Dr As DataRow In tDT.Rows For Each Dr As DataRow In tDT.Rows
AgregarProductoServicio(Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("UM").ToString(), Dr("CveClasificacion").ToString().ToEntero(), Dr("Clasificacion").ToString(), AgregarProductoServicio(Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("UM").ToString(), Dr("CveClasificacion").ToString().ToEntero(), Dr("Clasificacion").ToString(),