-- mejora

Transportes/RepContratoDetalle.aspx.vb

@@ -422,8 +422,13 @@ Partial Class RepContratoDetalle
 
         If Not ErrorProceso Then
 
-            If CveSubProyectoOriginal <> DdlSubProyecto.SelectedValue.ToEntero Or CveMonedaOriginal <> DdlMoneda.SelectedValue.ToEntero Or ImporteOrigial <> TxtImporte.Text.ToDecimal Or DescripcionOriginal <> TxtDescripcion.Text Or
-                TipoAFOriginal <> DdlTipoAF.SelectedItem.Text Or FolioOriginal <> TxtFolio.Text.Trim Then
+            If CveVentaRemision > 0 AndAlso (CveSubProyectoOriginal <> DdlSubProyecto.SelectedValue.ToEntero OrElse
+                      CveMonedaOriginal <> DdlMoneda.SelectedValue.ToEntero OrElse
+                      ImporteOrigial <> TxtImporte.Text.ToDecimal OrElse
+                      DescripcionOriginal <> TxtDescripcion.Text OrElse
+                      TipoAFOriginal <> DdlTipoAF.SelectedItem.Text OrElse
+                        FolioOriginal <> TxtFolio.Text.Trim) Then
+
                 Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{TxtFolio.Text}"
                 If Not UpdateRemision(ObjContratos.IniciaTransacSQL(), DdlSubProyecto.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtImporte.Text.ToDecimal, ObsRemisionPartida) Then
                     ErrorProceso = True

Transportes/RepContratos.aspx.vb

@@ -24,7 +24,7 @@ Partial Class ListadoContratos
 
         If Not IsPostBack Then
             txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString
-            txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString
+            txtFechaF.Text = DateTime.Now.AddDays(15).ToShortDateString
             InicializaCombos()
             CargaDatos()
         End If
@@ -116,17 +116,15 @@ Partial Class ListadoContratos
             Directory.CreateDirectory(folderContratosPath)
         End If
 
-
         If DdlClientes.SelectedValue = "" Then
             Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
-
         'Agregamos Contrato
 
         Dim ObjContratos As New ClsContratos
-        ObjContratos.IniciaTransacSQL()
+        Dim ObjFolios As New ClsGralFolios(ObjContratos.IniciaTransacSQL())
 
         CveContrato = ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "",
                                      DdlSubProyectoModal.SelectedValue.ToEntero, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal,
@@ -188,17 +186,13 @@ Partial Class ListadoContratos
                     ErrorProceso = True
                     Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia)
                 End If
-
             End If
-
-
         Else
             ErrorProceso = True
         End If
 
         If Not ErrorProceso Then
             'Aumentamos Folio
-            Dim ObjFolios As New ClsGralFolios(ObjContratos.IniciaTransacSQL())
             If Not ObjFolios.UpdateFolioActual(-1, "Con", True, UsuarioActual.CveEmpresa) Then
                 ErrorProceso = True
             End If
@@ -214,9 +208,9 @@ Partial Class ListadoContratos
         End If
 
         ObjContratos.Dispose()
+        ObjFolios.Dispose()
 
         ResetModal()
-
         CargaDatos()
         RegistraScript("$('#ModalAgregar').modal('hide')", "hidemodal1")
     End Sub
@@ -264,7 +258,7 @@ Partial Class ListadoContratos
         ObjContratos.Dispose()
     End Sub
     Protected Sub Consultar(sender As Object, e As EventArgs)
-
+        CargaDatos()
     End Sub
     Protected Sub Personalizar(sender As Object, e As EventArgs)
         GvContratos.Columns(6).Visible = ChkChofer.Checked