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

-

Browse Source
This commit is contained in:
rrene
2024-08-01 15:50:54 -07:00
parent 6cffbc0c18
commit 6f054204c0
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
asmx/WSSIGApp.asmx
View File

@@ -2449,7 +2449,7 @@ Public Class WSSIGApp
If CveEstatusFinalOK > 0 AndAlso CveEstatusFinalOK = Ent.CveEstatus Then
Dim IDPolizaPresupuestal = ObjOC.IdPoliza
If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra) Then
If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra, Ent.CveEmpresa) Then
DtDetalle = ObjOC.DtResultados.Copy
Dim ObjConta As ClsContPAQi = Nothing
Retorno = Not GeneraOrdenes(FolioOCGeneradas, ObjConta, ObjOC, DtOC.Rows(0), DtDetalle, Ent.CveUsuario, Ent.CveEmpresa, IDPolizaPresupuestal, UsaAC, DtPresupuestos)
@@ -2679,7 +2679,7 @@ Public Class WSSIGApp
Dim jarray As JArray = JArray.Parse(ObjOC.DtResultados.ToJson)
Dim json As JObject = jarray.Children(Of JObject).FirstOrDefault()
If json IsNot Nothing Then
If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra) Then
If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra, Entrada.CveEmpresa) Then
json.Add(New JProperty("Detalle", JArray.Parse(ObjOC.DtResultados.ToJson)))
End If
Retorno = Encripta(json.ToString)
@@ -2700,13 +2700,14 @@ Public Class WSSIGApp
Dim Estructura = New With
{
Key .[CveOrdenCompra] = -1,
Key .[CveEmpresa] = -1,
Key .[Ticks] = ""
}
Dim JsonRequest As String = Decripta(Cadena)
Dim Entrada = JsonConvert.DeserializeAnonymousType(JsonRequest, Estructura)
If IsCurrentDate(Entrada.Ticks) Then
Dim ObjOC As New ClsOC
If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra) Then
If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra, Entrada.CveEmpresa) Then
Dim JsonRetorno = ObjOC.DtResultados.ToJson
retorno = Encripta(JsonRetorno)
End If
@@ -2871,7 +2872,7 @@ Public Class WSSIGApp
If ObjOC.AddCotizacion(Ent.CveOrdenCompra, Ent.CveProveedor, Ent.CveColectiva, "-1", "-1", "", 1, 0, 0) Then
CveCotizacion = ObjOC.CveCotizacion
'Cargar los detalles de la cotizacion
If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra) Then
If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra, Ent.CveEmpresa) Then
'Agrega CveCotizacion a la lista
For Each RowCD As DataRow In ObjOC.DtResultados.Rows
@@ -3221,7 +3222,7 @@ Public Class WSSIGApp
Dim dtConceptos As DataTable = Nothing
Dim ObjOCdb As New ClsOC
If ObjOCdb.GetOrdenesDetalle(CveOrdenCompra) Then
If ObjOCdb.GetOrdenesDetalle(CveOrdenCompra, CveEmpresa) Then
dtConceptos = ObjOCdb.DtResultados
End If
@@ -3320,7 +3321,7 @@ Public Class WSSIGApp
'verifico los permisos según el estatus
If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
If objOC.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
For Each dr As DataRow In objOC.DtResultados.Rows
strBody.AppendFormat("<tr class='Texto'><td>{0}</td><td>{1}</td><td><span style='width: 220px; border-bottom: 1px solid gray;'>{2}</span><br>{3}</td><td>{4}</td><td style='width:150px;'><span style='width: 150px; border-bottom: 1px solid gray;'>{5}</span><br>{6}</td><td>{7}</td><td align='right'>{8}</td><td align='right'>{9}</td></tr>",
dr("Cantidad").ToString.FormatoNumero, dr("Abreviatura"), dr("Clasificacion"), dr("PS"), dr("Observacion"), dr("Proyecto"), If(CveEmpresaActual = 66, "", dr("SubProyecto")), dr("Codigo"), If(Not IsDBNull(dr("Importe")), FormatCurrency(dr("Importe").ToString), ""), If(Not IsDBNull(dr("Total")), FormatCurrency(dr("Total").ToString), ""))