-- option strict on

This commit is contained in:
2023-08-23 00:04:25 -07:00
parent 3bc4f72658
commit e5c000432f
28 changed files with 192 additions and 279 deletions

View File

@@ -71,10 +71,10 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
RespuestaError.Message = "Ocurrió un error al obtener el cuerpo de los parametros"
End If
If Not TieneError AndAlso Not String.IsNullOrEmpty(JsonRequest("fecha")) Then
If Not TieneError AndAlso Not String.IsNullOrEmpty(JsonRequest("fecha").ToString) Then
Dim ObjContaAC As ClsContPAQi = Nothing
Dim observaciones As String = IIf(JsonRequest("observaciones").ToString() <> "", JsonRequest("observaciones").ToString(), "Salida Almacen")
Dim observaciones As String = If(JsonRequest("observaciones").ToString() <> "", JsonRequest("observaciones").ToString(), "Salida Almacen")
Dim IDPoliza As Integer = 0
Dim usuario As String = JsonRequest("usuario").ToString()
@@ -311,7 +311,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
Else
context.Response.StatusCode = 200
Respuesta.Message = "La salida se registró correctamente"
Respuesta.Folio = folioSalida
Respuesta.Folio = FolioSalida.ToString
retorno = JsonConvert.SerializeObject(Respuesta).ToString