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