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 If CveEstatusFinalOK > 0 AndAlso CveEstatusFinalOK = Ent.CveEstatus Then
Dim IDPolizaPresupuestal = ObjOC.IdPoliza Dim IDPolizaPresupuestal = ObjOC.IdPoliza
If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra) Then If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra, Ent.CveEmpresa) Then
DtDetalle = ObjOC.DtResultados.Copy DtDetalle = ObjOC.DtResultados.Copy
Dim ObjConta As ClsContPAQi = Nothing Dim ObjConta As ClsContPAQi = Nothing
Retorno = Not GeneraOrdenes(FolioOCGeneradas, ObjConta, ObjOC, DtOC.Rows(0), DtDetalle, Ent.CveUsuario, Ent.CveEmpresa, IDPolizaPresupuestal, UsaAC, DtPresupuestos) 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 jarray As JArray = JArray.Parse(ObjOC.DtResultados.ToJson)
Dim json As JObject = jarray.Children(Of JObject).FirstOrDefault() Dim json As JObject = jarray.Children(Of JObject).FirstOrDefault()
If json IsNot Nothing Then 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))) json.Add(New JProperty("Detalle", JArray.Parse(ObjOC.DtResultados.ToJson)))
End If End If
Retorno = Encripta(json.ToString) Retorno = Encripta(json.ToString)
@@ -2700,13 +2700,14 @@ Public Class WSSIGApp
Dim Estructura = New With Dim Estructura = New With
{ {
Key .[CveOrdenCompra] = -1, Key .[CveOrdenCompra] = -1,
Key .[CveEmpresa] = -1,
Key .[Ticks] = "" Key .[Ticks] = ""
} }
Dim JsonRequest As String = Decripta(Cadena) Dim JsonRequest As String = Decripta(Cadena)
Dim Entrada = JsonConvert.DeserializeAnonymousType(JsonRequest, Estructura) Dim Entrada = JsonConvert.DeserializeAnonymousType(JsonRequest, Estructura)
If IsCurrentDate(Entrada.Ticks) Then If IsCurrentDate(Entrada.Ticks) Then
Dim ObjOC As New ClsOC Dim ObjOC As New ClsOC
If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra) Then If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra, Entrada.CveEmpresa) Then
Dim JsonRetorno = ObjOC.DtResultados.ToJson Dim JsonRetorno = ObjOC.DtResultados.ToJson
retorno = Encripta(JsonRetorno) retorno = Encripta(JsonRetorno)
End If End If
@@ -2871,7 +2872,7 @@ Public Class WSSIGApp
If ObjOC.AddCotizacion(Ent.CveOrdenCompra, Ent.CveProveedor, Ent.CveColectiva, "-1", "-1", "", 1, 0, 0) Then If ObjOC.AddCotizacion(Ent.CveOrdenCompra, Ent.CveProveedor, Ent.CveColectiva, "-1", "-1", "", 1, 0, 0) Then
CveCotizacion = ObjOC.CveCotizacion CveCotizacion = ObjOC.CveCotizacion
'Cargar los detalles de la cotizacion '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 'Agrega CveCotizacion a la lista
For Each RowCD As DataRow In ObjOC.DtResultados.Rows For Each RowCD As DataRow In ObjOC.DtResultados.Rows
@@ -3221,7 +3222,7 @@ Public Class WSSIGApp
Dim dtConceptos As DataTable = Nothing Dim dtConceptos As DataTable = Nothing
Dim ObjOCdb As New ClsOC Dim ObjOCdb As New ClsOC
If ObjOCdb.GetOrdenesDetalle(CveOrdenCompra) Then If ObjOCdb.GetOrdenesDetalle(CveOrdenCompra, CveEmpresa) Then
dtConceptos = ObjOCdb.DtResultados dtConceptos = ObjOCdb.DtResultados
End If End If
@@ -3320,7 +3321,7 @@ Public Class WSSIGApp
'verifico los permisos según el estatus '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 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>", 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), "")) 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), ""))