Creaditos update correcion orden de campos, ClsValidacion valñida nulos en objeto respuesta, compras correcion ddl devolucion no estaba cargando la opcion seleccione, presupuestos no estaba guardado detalles de nomina

App_Code/ClsValidaCFDi.vb

@@ -97,18 +97,24 @@ Public Class ClsValidaCFDi
             oAcuse = wsConsultaCFDI.Consulta(String.Format("?re={0}&rr={1}&tt={2}&id={3}", LRFCEmisor, LRFCReceptor, Importe, LFolioFiscal.ToUpper))
             'oAcuse = wsConsultaCFDI.Consulta("?re=LESA6211234B2&rr=GCO890418M56&tt=0000001360.000000&id=0C8BAD9C-A8C6-4A48-8FF5-0687AC6F1581")
             'Alert(oAcuse.Estado)
-            If oAcuse.Estado.ToLower = "vigente" Then
-                EsValida = 1
-            End If
-            If oAcuse.Estado.ToLower = "cancelado" Then
-                EsValida = 2
-            End If
 
-            If oAcuse.ValidacionEFOS = "100" Then
+            If oAcuse IsNot Nothing AndAlso oAcuse.Estado IsNot Nothing AndAlso oAcuse.ValidacionEFOS IsNot Nothing Then
-                EnListaEFOS = True
+                If oAcuse.Estado.ToLower = "vigente" Then
+                    EsValida = 1
+                End If
+                If oAcuse.Estado.ToLower = "cancelado" Then
+                    EsValida = 2
+                End If
+
+                If oAcuse.ValidacionEFOS = "100" Then
+                    EnListaEFOS = True
+                Else
+                    EnListaEFOS = False
+                End If
             Else
-                EnListaEFOS = False
+                EsValida = 0
             End If
+
         Catch ex As Exception
             MsgError = "Op1. No se pudo validar la vigencia ante el SAT "
             GuardaLog(String.Format("Op1. {0}", ex.Message))
@@ -122,7 +128,7 @@ Public Class ClsValidaCFDi
 
                 Dim Vigencia As Timbrado.AcuseCancelacionSAT = Timbrado.VerificarVigenciaSAT(LFolioFiscal.ToUpper, LRFCEmisor.Replace("%26", "&"), LRFCReceptor.Replace("%26", "&"), Importe, True)
 
-                If Vigencia IsNot Nothing Then
+                If Vigencia IsNot Nothing AndAlso Vigencia.Estado IsNot Nothing AndAlso Vigencia.EsCancelable IsNot Nothing AndAlso Vigencia.EstatusCancelacion IsNot Nothing Then
                     If Not Vigencia.Estado.ToUpper().Contains("NO ENCONTRADO") AndAlso Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then
                         EsValida = 1
                     End If

Bancos/Creditos.aspx.vb

@@ -965,7 +965,7 @@ Partial Class Bancos_Creditos
         If CveCredito > 0 Then
             If ObjCredito.UpdateCreditos(CveCredito, DdlTipoCredito.SelectedValue.ToEntero, TxtReferencia.Text, TxtObservaciones.Text, -1, -1, -1, DdlTipoMoneda.SelectedValue.ToEntero, TxtFechaInicio.Text.ToString.ToDate, FechaVencimiento, TxtTasa.Text.Trim.ToDouble, TxtSobreTasa.Text.Trim.ToDouble, TxtIVA.Text.ToDouble / 100,
                                       TxtPlazo.Text.Trim.ToEntero, -1, TxtVehiculoValor.Text.ToString.ToDouble, TxtComisionValor.Text.ToString.ToDouble, TxtSeguroMensual.Text.ToString.ToDouble, TxtOtrosGastosValor.Text.ToString.ToDouble,
-                                      DdlProveedores.SelectedValue.ToEntero, RBLClasificacionContable.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False),
+                                      DdlProveedores.SelectedValue.ToEntero, RBLClasificacionContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False),
                                       CreditoAnticipo:=TxtVehiculoAnticipo.Text.ToDouble, ComisionAnticipo:=TxtComisionAnticipo.Text.ToDouble, SeguroAnticipo:=TxtSeguroAnticipo.Text.ToDouble, OtrosGastosAnticipo:=TxtOtrosGastosAnticipo.Text.ToDouble, FondoGarantia:=TxtFondoGarantia.Text.ToDouble, SeguroValor:=TxtSeguroValor.Text.ToDouble, TipoInteres:=ChkTipoInteres.Checked) Then
 
                 If RegeneraTablaAmortizacion Then

Compras/Compras.aspx.vb

@@ -13318,10 +13318,11 @@ Partial Class Compras_Compras
                 dtt = dtt.FiltraParametros($"Fecha >= #{NowADS.AddMonths(-12).ToString("yyyy/MM/dd")}#")
             End If
             DDLDevolucion.DataSource = dtt
-            DDLDevolucion.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
         End If
         objcompras.Dispose()
         DDLDevolucion.DataBind()
+        DDLDevolucion.Items.Insert(0, New ListItem("Seleccione", "-1"))
         UPDevolucion.Update()
 
     End Sub

Contratos/Presupuestos.aspx.vb

@@ -412,7 +412,7 @@ Partial Class Contratos_Presupuestos
                             CveConceptoContableNom = CveAgrupador
                         End If
 
-                        If CveClasificacion > 0 Then
+                        If CveClasificacion > 0 Or CveConceptoContableNom > 0 Then
                             If ImporteClasi > 0 Then
                                 TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuestoNuevo, CveClasificacion, CveTipoGasto, ImporteClasi, ObsDetalle, CveConceptoContableNom:=CveConceptoContableNom)
                                 If TieneError Then

Transportes/RepContratoDetalle.aspx.vb

@@ -266,7 +266,7 @@ Partial Class RepContratoDetalle
             Response.Clear()
             Response.ClearHeaders()
             Response.ClearContent()
-            Response.AddHeader("Content-Disposition", "attachment; filename=" & LbFolio.Text & ".pdf")
+            Response.AddHeader("Content-Disposition", "attachment; filename=" & LbFolio.Text & $"{File.Extension}")
             Response.AddHeader("Content-Length", File.Length.ToString())
             'Response.ContentType = "text/plain"
             Response.ContentType = "application/octet-stream"