AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- cambio de es presupuestal a "no requiere unidad"

Browse Source
This commit is contained in:
rrene
2024-12-03 18:04:19 -07:00
parent a514d625a7
commit 59d7c6c219
4 changed files with 33 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Transportes/RepContratoDetalle.aspx
View File

@@ -379,7 +379,7 @@
</div>
</div>
<div class="row">
<label class="col-md-4">Es Solo Cotización</label>
<label class="col-md-4">NO Requiere Unidad</label>
<div class="col-md-8">
<asp:CheckBox runat="server" ID="ChkEsPresupuestal" CssClass="make-switchsd" data-size="small" Checked="true" />
</div>

42
Transportes/RepContratoDetalle.aspx.vb
View File

@@ -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()

12
Transportes/RepContratos.aspx
View File

@@ -119,8 +119,8 @@
<%-- Centro de Costos --%>
<label class="col-md-1 truncate ">Centro de Costos</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlCentroCostos" data-text="Todos" AppendDataBoundItems="true"
DataTextField="" DataValueField="" CssClass="form-control ddlFiltros input-sm select2me"
<asp:DropDownList ID="DdlCentroCostos" data-text="Todos" AppendDataBoundItems="true"
DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control ddlFiltros input-sm select2me"
Style="width: 100%;" runat="server">
</asp:DropDownList>
</div>
@@ -204,6 +204,11 @@
<asp:Literal ID="LtlFechaFinal" runat="server" Text='<%# Eval("FechaFinal", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Rem/Invoice" >
<ItemTemplate>
<asp:HyperLink ID="HplRem" runat="server" NavigateUrl='<%#Eval("CveVentaRemision", "/Ventas/Ventas.aspx?CveVenta={0}") %>' Text='<%# Eval("RemisionSerieFolio") %>'></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<%-- Columnas Ocultas --%>
<asp:TemplateField HeaderText="Chofer 1" Visible="false">
@@ -223,6 +228,7 @@
<asp:Literal ID="LtUnidad" runat="server" Text='<%# Eval("NombreAF") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="F. Ingreso" >
<ItemTemplate>
<asp:Literal ID="LtFingreso" runat="server" Text='<%# Eval("FechaIng","{0:d}") %>'></asp:Literal>
@@ -511,7 +517,7 @@
<div class="row my-1">
<label class="col-md-4">Es Presupuestal</label>
<label class="col-md-4">NO Requiere Unidad</label>
<div class="col-md-8">
<asp:CheckBox runat="server" ID="ChkEsPresupuestal" CssClass="make-switchsd" data-size="small" Checked="true" />
</div>

4
Transportes/RepContratos.aspx.vb
View File

@@ -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}"