Compras/RepProductosServiciosDetalle.aspx.vb

@@ -123,6 +123,9 @@ Partial Class Compras_RepProductosServiciosDetalle
         txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text)
         txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 1).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text)
 
+        If CveCultivo.ToEntero() > 0 AndAlso FechaI = "-1" AndAlso Anio = "-1" AndAlso Mes = "-1" AndAlso AnioMes = "-1" Then
+            txtFechaI.Text = "01/01/1900"
+        End If
         If Fecha <> "-1" Then
             txtFechaI.Text = Fecha
             txtFechaF.Text = Fecha