EMD. cambios en contratos
This commit is contained in:
@@ -487,6 +487,10 @@ Partial Class Contratos_Default
|
||||
End If
|
||||
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then divResponsable.Visible = False
|
||||
|
||||
If UsuarioActual.CveEmpresa = 13 Then
|
||||
rpCompra.Visible = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub CargaDireccionesEnvios(CveCliente As Integer)
|
||||
@@ -728,11 +732,11 @@ Partial Class Contratos_Default
|
||||
DvTotal.Visible = True
|
||||
|
||||
|
||||
If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then
|
||||
If CveContrato > 0 AndAlso Not CveContratoTipo.Contiene(25, 33) Then
|
||||
TableDatosCabecera.Visible = True
|
||||
End If
|
||||
|
||||
If CveContratoTipo = 25 Then
|
||||
If CveContratoTipo.Contiene(25, 33) Then
|
||||
DvMax.Visible = False
|
||||
DvMin.Visible = False
|
||||
DvTotal.Visible = False
|
||||
@@ -749,11 +753,11 @@ Partial Class Contratos_Default
|
||||
DvTotal.Visible = True
|
||||
'TxtCantidad.Visible = False
|
||||
|
||||
If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then
|
||||
If CveContrato > 0 AndAlso Not CveContratoTipo.Contiene(25, 33) Then
|
||||
TableDatosCabecera.Visible = True
|
||||
End If
|
||||
|
||||
If CveContratoTipo = 25 Then
|
||||
If CveContratoTipo.Contiene(25, 33) Then
|
||||
DvMax.Visible = False
|
||||
DvMin.Visible = False
|
||||
DvTotal.Visible = False
|
||||
@@ -835,6 +839,48 @@ Partial Class Contratos_Default
|
||||
CargaPlantillas()
|
||||
TrContratoPlantilla.Visible = True
|
||||
TabPres.HeaderText = "Partidas"
|
||||
End If
|
||||
|
||||
|
||||
If CveContratoTipo = 33 Then
|
||||
TabContratosGastos.Visible = False
|
||||
TabAF.Visible = False
|
||||
TabReporteAvance.Visible = False
|
||||
TabAvanveDocumento.Visible = False
|
||||
TabContratosGastos.Visible = False
|
||||
TabAF.Visible = False
|
||||
TabPed.Visible = False
|
||||
TabAddendum.Visible = False
|
||||
TabFacCiclica.Visible = False
|
||||
|
||||
TabPVInsumos.Visible = False
|
||||
|
||||
thOcCliente.Visible = False
|
||||
tdOcCliente.Visible = False
|
||||
|
||||
thLimitar.Visible = False
|
||||
tdLimitar2.Visible = False
|
||||
|
||||
trLicitacion.Visible = False
|
||||
divResponsable.Visible = False
|
||||
'TrPeriodo.Visible = True
|
||||
trIva.Visible = False
|
||||
trAnticipo.Visible = False
|
||||
trAmortizacion.Visible = False
|
||||
trPorGarantia.Visible = False
|
||||
DvMin.Visible = False
|
||||
RowFlexible.Visible = False
|
||||
RowPorcentajeComision.Visible = False
|
||||
DvMax.Visible = False
|
||||
DvTotal.Visible = False
|
||||
'RowEstatus.Visible = False
|
||||
DdlSubProyectoContrato.AutoPostBack = False
|
||||
|
||||
dvAddendum.Visible = False
|
||||
|
||||
DivFianzas.Visible = False
|
||||
Div4.Visible = False
|
||||
DivImpuestosLocales.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
@@ -938,6 +984,27 @@ Partial Class Contratos_Default
|
||||
|
||||
thLimitar.Visible = False
|
||||
tdLimitar2.Visible = False
|
||||
|
||||
trLicitacion.Visible = False
|
||||
divResponsable.Visible = False
|
||||
'TrPeriodo.Visible = True
|
||||
trIva.Visible = False
|
||||
trAnticipo.Visible = False
|
||||
trAmortizacion.Visible = False
|
||||
trPorGarantia.Visible = False
|
||||
DvMin.Visible = False
|
||||
RowFlexible.Visible = False
|
||||
RowPorcentajeComision.Visible = False
|
||||
DvMax.Visible = False
|
||||
DvTotal.Visible = False
|
||||
RowEstatus.Visible = False
|
||||
DdlSubProyectoContrato.AutoPostBack = False
|
||||
|
||||
dvAddendum.Visible = False
|
||||
|
||||
DivFianzas.Visible = False
|
||||
Div4.Visible = False
|
||||
DivImpuestosLocales.Visible = False
|
||||
End If
|
||||
|
||||
If ObjContratos.CveProveedor > 0 Then
|
||||
@@ -1232,20 +1299,23 @@ Partial Class Contratos_Default
|
||||
|
||||
Private Sub CargarFianzas()
|
||||
|
||||
DivFianzas.Visible = True
|
||||
|
||||
Dim ObjContrato As ClsContratos = New ClsContratos()
|
||||
|
||||
If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then
|
||||
DtTmpFianzas = ObjContrato.DtResultados
|
||||
GvFianzas.DataSource = ObjContrato.DtResultados
|
||||
|
||||
DtTmpFianzasInicial = DtTmpFianzas.Copy()
|
||||
|
||||
If CveContratoTipo <> 33 Then
|
||||
DivFianzas.Visible = True
|
||||
|
||||
Dim ObjContrato As ClsContratos = New ClsContratos()
|
||||
|
||||
If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then
|
||||
DtTmpFianzas = ObjContrato.DtResultados
|
||||
GvFianzas.DataSource = ObjContrato.DtResultados
|
||||
|
||||
DtTmpFianzasInicial = DtTmpFianzas.Copy()
|
||||
|
||||
End If
|
||||
|
||||
ObjContrato.Dispose()
|
||||
GvFianzas.DataBind()
|
||||
End If
|
||||
|
||||
ObjContrato.Dispose()
|
||||
GvFianzas.DataBind()
|
||||
UpGvFianzas.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -555,7 +555,7 @@
|
||||
</td>
|
||||
</tr>
|
||||
<tr align="left" id="TrDescripcionVenta" runat="server" visible="false">
|
||||
<td><b>Descripción de factura:</b></td>
|
||||
<td><b>Descripción:</b></td>
|
||||
<td colspan="3">
|
||||
<asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="2" TextMode="MultiLine" Width="100%" MaxLength="300" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
|
||||
</tr>
|
||||
@@ -3226,7 +3226,7 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<asp:GridView ID="GvContratoDetalles" runat="server" AutoGenerateColumns="False" DataKeyNames="CveContratoDetalle,CvePS, CveUM, Cantidad, CveClasificacion, Clasificacion, IVA, ModalidadDetalle,LimitarCantidad, Observaciones" EmptyDataText="Seleccione un Contrato Válido" CssClass="table table-striped table-advance table-hover Widthall GvContratoDetalles ScrollAD" data-height="300" data-sort="false" GridLines="None">
|
||||
<asp:GridView ID="GvContratoDetalles" runat="server" AutoGenerateColumns="False" DataKeyNames="CveContratoDetalle,CvePS, CveUM, Cantidad, CveClasificacion, Clasificacion, IVA, ModalidadDetalle,LimitarCantidad, Observaciones" EmptyDataText="El contrato no tiene productos y/o servicios" CssClass="table table-striped table-advance table-hover Widthall GvContratoDetalles ScrollAD" data-height="300" data-sort="false" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>OC Cliente</HeaderTemplate>
|
||||
|
||||
Reference in New Issue
Block a user