diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index 9512a2bb0..7821c2ad6 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -379,7 +379,7 @@
- +
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 --%>
-
@@ -204,6 +204,11 @@ + + + + + <%-- Columnas Ocultas --%> @@ -223,6 +228,7 @@ + @@ -511,7 +517,7 @@
- +
diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index 754c713f5..90e67e004 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -51,7 +51,7 @@ Partial Class ListadoContratos DdlEstatus.DataBind() DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1")) - CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoModal) + CargarCentrosDeCosto(Nothing, DdlCentroCostos, Nothing, LblSubProyectoModal) DdlSubProyectoModal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoModal.DataBind() @@ -180,7 +180,7 @@ Partial Class ListadoContratos End If Anexo.Text = "" - If ErrorProceso = False AndAlso Not ChkEsPresupuestal.Checked Then + If ErrorProceso = False Then Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{LbFolio.Text}"