Correcion empresa 13 ventas tipo documento anticipo, error al generar pdf, error seccion carta porte

AF/RepDepreciacion.aspx.vb

@@ -13,7 +13,7 @@ Partial Class AF_RepDepreciacion
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            txtFechaI.Text = Now.ToString
+            txtFechaI.Text = New Date(Now.Year, Now.Month + 1, 1).AddDays(-1).ToString("dd/MM/yyyy")
         End If
     End Sub
 
@@ -35,6 +35,7 @@ Partial Class AF_RepDepreciacion
             Dim CvePrePoliza = ObjConta.AddPrePolizas("Depreciacion", 74, 0, 0, 1, txtFechaI.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
 
+
             For Each RowsDt As GridViewRow In GvDatos.Rows
                 CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero
                 If RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDouble > 0 And CveActivoFijo <> 0 Then

Compras/PopUpVerFactura.aspx.vb

@@ -3094,13 +3094,13 @@ Partial Class PopUpVerFactura
                         CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                     End If
                 Else
-                    If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Egs" Then
+                    If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto.Contiene("Egs", "Ant") Then
                         CartaPorte = New Modelos.MSubReportData()
                         CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                     End If
                 End If
             Else
-                If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Egs" Then
+                If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto.Contiene("Egs", "Ant") Then
                     CartaPorte = New Modelos.MSubReportData()
                     CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                 End If