Merge branch 'master' of http://192.168.10.111:8383/SIG

Compras/PopUpVerFactura.aspx.vb

@@ -247,6 +247,7 @@ Partial Class PopUpVerFactura
         Dim SCAC As String = ""
         Dim CAAT As String = ""
         Dim NumeroTrailer As String = ""
+        Dim Permiso As String = ""
 
 
         Dim tablaReporte As New DataTable
@@ -282,7 +283,7 @@ Partial Class PopUpVerFactura
                 LineaTransportacion = row("LineaTransportacion").ToString()
                 SCAC = row("SCAC").ToString()
                 CAAT = row("CAAT").ToString()
-
+                Permiso = row("Permiso").ToString()
                 'If row("CveCamionRemolque1").ToString() = "1" Then
                 '    Rem1Placa = "12-TF-5E"
                 '    Remolque1 = "Remolque 1"
@@ -292,8 +293,8 @@ Partial Class PopUpVerFactura
 
                 'End If
 
-                If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
-                    NoPallets = objnom.DtResultados.Rows.Count.ToString()
+                If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1, True) And objnom.DtResultados.Rows.Count > 0 Then
+                    NoPallets = objnom.DtResultados.SUM("NoPallets").ToString()
                     NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
                     NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")
 
@@ -317,6 +318,7 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("Camion", Camion))
         params.Add(New ReportParameter("Rem1Placa", Rem1Placa))
         params.Add(New ReportParameter("Remolque1", Remolque1))
+        params.Add(New ReportParameter("Permiso", Permiso))
 
 
         params.Add(New ReportParameter("LongitudCaja", LongitudCaja))

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