diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index ed57c2205..bd5c5e642 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -280,11 +280,11 @@ Partial Class RepContratoDetalle
CargaEventoBitacora()
End If
- If CveVentaRemision > 0 Then
- DVFactura.Visible = True
- ChkEsPresupuestal.Enabled = False
- ChkEsPresupuestal.Checked = False
- End If
+ 'If CveVentaRemision > 0 Then
+ ' DVFactura.Visible = True
+ ' ChkEsPresupuestal.Enabled = False
+ ' ChkEsPresupuestal.Checked = False
+ 'End If
End If
@@ -639,24 +639,24 @@ Partial Class RepContratoDetalle
End If
End If
- If Not ErrorProceso AndAlso Not CveVentaRemision > 0 AndAlso ChkEsPresupuestal.Checked = False Then
- 'CveVentaRemision
- Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{TxtFolio.Text}"
+ 'If Not ErrorProceso AndAlso Not CveVentaRemision > 0 AndAlso ChkEsPresupuestal.Checked = False Then
+ ' 'CveVentaRemision
+ ' Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{TxtFolio.Text}"
- Dim Respuesta As New RespuestaFacturacion()
- Dim CvePS As Integer = 907784
- Respuesta = GeneraRemision(CveContrato, ObsRemisionPartida, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL, DdlSubProyecto.SelectedValue.ToEntero)
+ ' Dim Respuesta As New RespuestaFacturacion()
+ ' Dim CvePS As Integer = 907784
+ ' Respuesta = GeneraRemision(CveContrato, ObsRemisionPartida, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL, DdlSubProyecto.SelectedValue.ToEntero)
- If Respuesta.CveVenta > 0 Then
- CveVentaRemision = Respuesta.CveVenta
- SerieFolioRemision = Respuesta.SerieFolio
- ErrorProceso = False
- SeGeneroRemision = True
- Else
- ErrorProceso = True
- Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia)
- End If
- End If
+ ' If Respuesta.CveVenta > 0 Then
+ ' CveVentaRemision = Respuesta.CveVenta
+ ' SerieFolioRemision = Respuesta.SerieFolio
+ ' ErrorProceso = False
+ ' SeGeneroRemision = True
+ ' Else
+ ' ErrorProceso = True
+ ' Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia)
+ ' End If
+ 'End If
If Not ErrorProceso Then
ObjContratos.Commit()
diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx
index 714f7e723..941e988e3 100644
--- a/Transportes/RepContratos.aspx
+++ b/Transportes/RepContratos.aspx
@@ -119,8 +119,8 @@
<%-- Centro de Costos --%>