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

Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-11-19 16:03:34 -07:00
parent 255d1e0fb3 45721c4bfc
commit 27867bb874
6 changed files with 223 additions and 817 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Contratos/ContratoAvance.aspx
View File

@@ -100,10 +100,7 @@
<div class="col-md-6" style="text-align:right"> <div class="col-md-6" style="text-align:right">
<a class="linkfile" id="btnanexogral" runat="server" >
<span class="btn btn-circle btn-sm btn-success"><i class='fa fa-plus'></i></span>Agregar
<asp:TextBox ID="AnexoGral" Text='' runat="server"></asp:TextBox>
</a>
</div> </div>

23
Contratos/ContratoAvance.aspx.vb
View File

@@ -96,8 +96,8 @@ Partial Class Contratos_ContratoAvance
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
BtnGuardar.Visible = False BtnGuardar.Visible = False
btnanexogral.Visible = False
CargaContrato() CargaContrato()
@@ -146,16 +146,16 @@ Partial Class Contratos_ContratoAvance
fecha = "" fecha = ""
DtDatos = ObjContratos.DtResultados DtDatos = ObjContratos.DtResultados
If ObjContratos.DtResultados.Rows.Count > 0 Then If ObjContratos.DtResultados.Rows.Count > 0 Then
BtnGuardar.Visible = True BtnGuardar.Visible = True
btnanexogral.Visible = True
End If End If
End If End If
Else Else
If ObjContratos.GetContratosAvanceHistoricos(CveContrato, 2, DdlAvances.SelectedValue) Then If ObjContratos.GetContratosAvanceHistoricos(CveContrato, 2, DdlAvances.SelectedValue) Then
fecha = DdlAvances.SelectedValue fecha = DdlAvances.SelectedValue
DtDatos = ObjContratos.DtResultados DtDatos = ObjContratos.DtResultados
BtnGuardar.Visible = False BtnGuardar.Visible = False
btnanexogral.Visible = False
End If End If
End If End If
ObjContratos.Dispose() ObjContratos.Dispose()
@@ -280,7 +280,7 @@ Partial Class Contratos_ContratoAvance
Dim TieneError = False Dim TieneError = False
Dim CveContratoDetalle As Integer Dim CveContratoDetalle As Integer
Dim Cantidad As Double Dim Cantidad As Double
Dim filesgral As List(Of Archivo) = AnexoGral.getfiles().Archivos 'Dim filesgral As List(Of Archivo) = AnexoGral.getfiles().Archivos
Dim guardarArchivos As New List(Of Archivo) Dim guardarArchivos As New List(Of Archivo)
For Each gvr As GridViewRow In Gv.Rows For Each gvr As GridViewRow In Gv.Rows
@@ -328,9 +328,10 @@ Partial Class Contratos_ContratoAvance
Alert("No se logro guardar el Presupuesto favor de intentarlo mas tarde o comuniquese con soporte", TipoMensaje.MsgAdvertencia) Alert("No se logro guardar el Presupuesto favor de intentarlo mas tarde o comuniquese con soporte", TipoMensaje.MsgAdvertencia)
Else Else
Dim urlsave As String = String.Format("Empresas\{0}\Contrato\{1}\Anexos", UsuarioActual.CveEmpresa, CveContrato) Dim urlsave As String = String.Format("Empresas\{0}\Contrato\{1}\Anexos", UsuarioActual.CveEmpresa, CveContrato)
For Each fileItem As Archivo In filesgral
fileItem.filename.FilesMove(fileItem.filename, urlsave) 'For Each fileItem As Archivo In filesgral
Next ' fileItem.filename.FilesMove(fileItem.filename, urlsave)
'Next
For Each fileItem As Archivo In guardarArchivos For Each fileItem As Archivo In guardarArchivos
fileItem.filename.FilesMove(fileItem.filename.Replace($".{fileItem.Extencion}", ""), urlsave) fileItem.filename.FilesMove(fileItem.filename.Replace($".{fileItem.Extencion}", ""), urlsave)
@@ -338,7 +339,7 @@ Partial Class Contratos_ContratoAvance
ObjContratos.Commit() ObjContratos.Commit()
Alert("se guardo Correctamente") Alert("se guardo Correctamente")
End If End If
AnexoGral.Text = "[]" 'AnexoGral.Text = "[]"
ObjContratos.Dispose() ObjContratos.Dispose()
CargaddlAvance() CargaddlAvance()
CargaDatosAvance() CargaDatosAvance()

157
Contratos/ContratoObra.aspx
View File

@@ -75,87 +75,7 @@
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<%-- <li runat="server" id="liTerminarContrato" visible="false">
<asp:LinkButton ID="LBTerminarContrato" Visible="false" OnClick="LBTerminarContrato_Click" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="Esta seguro de terminar el contrato?" data-btn-ok-label="si"> <i class="fa fa-check"> </i> Concluir Contrato</asp:LinkButton>
</li>
<li runat="server" id="liCancelarContrato" visible="false">
<asp:LinkButton ID="LBCancelarContrato" Visible="false" OnClick="LBCancelarContrato_Click" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="Esta seguro de cancelar el contrato?" data-btn-ok-label="si"> <i class="fa fa-times"> </i> Cancelar Contrato</asp:LinkButton>
</li>
<li runat="server" id="liVigenteContrato" visible="false">
<asp:LinkButton ID="LBVigenteContrato" Visible="false" OnClick="LBVigenteContrato_Click" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="Esta seguro de pasar a vigente el contrato?" data-btn-ok-label="si"> <i class="fa fa-times"> </i> Reactivar Contrato</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LbDescargarExcel" Visible="True" OnClick="LbDescargarExcel_Click" runat="server"><i class='fa fa-file-excel-o' style="font-weight:bold;"></i> Descargar Formato</asp:LinkButton>
</li>
<li>
<asp:HyperLink ID="LbCrearApartirDe" NavigateUrl="#" data-toggle="modal" data-target="#ModalCrearApartirDe" runat="server"><i class='fa fa-refresh'></i> Crear A Partir De</asp:HyperLink>
</li>
<li>
<asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="True" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Importar Listado</asp:HyperLink>
</li>
<li>
<asp:LinkButton ID="LBAgregarGasto" runat="server"><i class="fa fa-plus"></i> Agregar Gastos</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LBImprimir" Visible="false" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Avance por Documento PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="liImprimir" runat="server" Visible="false"><i class='fa fa-download'></i> Descargar Contrato</i></asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LBImprimirInformacionG" Visible="false" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Informacion PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LBImprimirGastos" Visible="false" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Gastos PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LbImprimirSuministros" Visible="true" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Suministros PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="lbImprimirAvance" Visible="False" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Avance PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LbImprimirPresupuesto" Visible="true" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Presupuesto PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LbImprmirAF" Visible="true" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Activos Fijos PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LbImprmirAFExcel" Visible="true" runat="server"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Activos Fijos Excel</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LbImprimirPedDev" Visible="true" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Pedidos / Devoluciones PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LbImprimirPedDevExcel" Visible="true" runat="server"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Pedidos / Devoluciones Excel</asp:LinkButton>
</li>
<asp:UpdatePanel ID="UpHajusteAcciones" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkAjusteAF" Visible="true" runat="server" OnClick="LnkAjusteAF_Click"> <i class="fa fa-pencil" style="font-weight:bold;"></i>Habilitar Ajuste A.F.</asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>--%>
<asp:UpdatePanel ID="UpAccionesPresupuestos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpAccionesPresupuestos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -165,7 +85,7 @@
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkModalAddPSControl" Visible="false" runat="server" OnClick="LnkModalAddPSControl_Click"> <i class="fa fa-plus" style="font-weight:bold;"></i>Agregar PS Control</asp:LinkButton> <asp:LinkButton ID="LnkModalAddPSControl" Visible="false" runat="server" OnClick="LnkModalAddPSControl_Click"> <i class="fa fa-plus" style="font-weight:bold;"></i>Agregar PS Interno</asp:LinkButton>
</li> </li>
@@ -955,21 +875,10 @@
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="Gv" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Conceptos" <asp:GridView ID="Gv" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Conceptos"
DataKeyNames="CveContratoDetalle,CveUM, CvePS, Cantidad, PU,CveTipoPresupuesto,CveClasificacion,CodigoPS,LimitarCantidad,PS,OCInterna,NoIdentificacion,PermitirAvance" DataKeyNames="CveContratoDetalle,CveUM, CvePS, Cantidad, PU,CveTipoPresupuesto,CveClasificacion,CodigoPS,LimitarCantidad,PS,OCInterna,NoIdentificacion,PermitirAvance,CantidadContratada"
ShowHeader="true" SelectedRowStyle-BackColor="#66CCFF" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"> ShowHeader="true" SelectedRowStyle-BackColor="#66CCFF" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns> <Columns>
<%-- <asp:TemplateField HeaderText="OC <br/> Cliente">
<ItemTemplate>
<asp:Literal ID="LbOCInternaEdit" Text='<%# Eval("OCInterna")%>' runat="server"></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtOCInternaEdit" MaxLength="15" runat="server" Text='<%# Eval("OCInterna") %>' Width="70px"></asp:TextBox>
</EditItemTemplate>
<ItemStyle Width="75px" />
</asp:TemplateField>--%>
<asp:TemplateField HeaderText="Cantidad"> <asp:TemplateField HeaderText="Cantidad">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtCantidad" Text='<%# Eval("CantidadContratada")%>' runat="server"></asp:Literal> <asp:Literal ID="LtCantidad" Text='<%# Eval("CantidadContratada")%>' runat="server"></asp:Literal>
@@ -981,25 +890,7 @@
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<%-- <asp:TemplateField HeaderText="Limitar">
<ItemTemplate>
<asp:Literal ID="LblLimitar" Text='<%# If(Eval("LimitarCantidad").ToString = "True", "Si", "No")%>' runat="server"></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:CheckBox ID="ChkLimitarCantidad" runat="server" Checked='<%# Eval("LimitarCantidad").ToString%>'></asp:CheckBox>
</EditItemTemplate>
<ItemStyle Width="75px" HorizontalAlign="Center" />
</asp:TemplateField>--%>
<%-- <asp:TemplateField HeaderText="Clave Int. Cliente">
<ItemTemplate>
<asp:Literal ID="LblNoIdentificacion" Text='<%# Eval("NoIdentificacion")%>' runat="server"></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtNoIdentificacion" MaxLength="15" runat="server" Text='<%# Eval("NoIdentificacion") %>' Width="70px"></asp:TextBox>
</EditItemTemplate>
<ItemStyle Width="75px" />
</asp:TemplateField>--%>
<asp:TemplateField HeaderText="Producto/Servicio" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Producto/Servicio" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtPS" Text='<%# Eval("CodigoPS")%>' runat="server"></asp:Literal> <asp:Literal ID="LtPS" Text='<%# Eval("CodigoPS")%>' runat="server"></asp:Literal>
@@ -1206,7 +1097,7 @@
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GvInsumos" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Conceptos" <asp:GridView ID="GvInsumos" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Conceptos"
DataKeyNames="CveContratoDetalle,CveUM, CvePS, Cantidad, PU,CveTipoPresupuesto,CveClasificacion,CodigoPS,LimitarCantidad,PS,NoIdentificacion" ShowHeader="true" SelectedRowStyle-BackColor="#66CCFF" DataKeyNames="CveContratoDetalle,CveUM, CvePS, Cantidad, PU,CveTipoPresupuesto,CveClasificacion,CodigoPS,LimitarCantidad,PS,NoIdentificacion,CantidadContratada" ShowHeader="true" SelectedRowStyle-BackColor="#66CCFF"
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"> CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns> <Columns>
@@ -1221,25 +1112,7 @@
<ItemStyle Width="150px" /> <ItemStyle Width="150px" />
</asp:TemplateField> </asp:TemplateField>
<%-- <asp:TemplateField HeaderText="Limitar">
<ItemTemplate>
<asp:Literal ID="LblLimitar" Text='<%# If(Eval("LimitarCantidad").ToString = "True", "Si", "No")%>' runat="server"></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:CheckBox ID="ChkLimitarCantidad" runat="server" Checked='<%# Eval("LimitarCantidad").ToString%>'></asp:CheckBox>
</EditItemTemplate>
<ItemStyle Width="75px" HorizontalAlign="Center" />
</asp:TemplateField>--%>
<%-- <asp:TemplateField HeaderText="Clave <br/> Interna">
<ItemTemplate>
<asp:Literal ID="LblNoIdentificacion" Text='<%# Eval("NoIdentificacion")%>' runat="server"></asp:Literal>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="TxtNoIdentificacion" MaxLength="15" runat="server" Text='<%# Eval("NoIdentificacion") %>' Width="70px"></asp:TextBox>
</EditItemTemplate>
<ItemStyle Width="75px" />
</asp:TemplateField>--%>
<asp:TemplateField HeaderText="Producto/Servicio" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Producto/Servicio" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtPS" Text='<%# Eval("CodigoPS")%>' runat="server"></asp:Literal> <asp:Literal ID="LtPS" Text='<%# Eval("CodigoPS")%>' runat="server"></asp:Literal>
@@ -2736,10 +2609,10 @@
<div class="modal-body"> <div class="modal-body">
<div class="form-group form-md-line-input input-iconright"> <%-- <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtOCInterna" CssClass="form-control" runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtOCInterna" CssClass="form-control" runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtOCInterna.ClientID.ToString()%>">OC:</label> <label for="<%= TxtOCInterna.ClientID.ToString()%>">OC:</label>
</div> </div>--%>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCantidad" runat="server" CssClass="form-control" ></asp:TextBox> <asp:TextBox ID="TxtCantidad" runat="server" CssClass="form-control" ></asp:TextBox>
@@ -2750,15 +2623,15 @@
<div class="form-group form-md-line-input input-iconright"> <%-- <div class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkLimitarVenta" runat="server" CssClass="form-control" /> <asp:CheckBox ID="ChkLimitarVenta" runat="server" CssClass="form-control" />
<label for="<%= ChkLimitarVenta.ClientID.ToString()%>">Limitar:</label> <label for="<%= ChkLimitarVenta.ClientID.ToString()%>">Limitar:</label>
</div> </div>--%>
<div class="form-group form-md-line-input input-iconright"> <%-- <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNoIdentificacionv" runat="server" MaxLength="15" CssClass="form-control" ></asp:TextBox> <asp:TextBox ID="TxtNoIdentificacionv" runat="server" MaxLength="15" CssClass="form-control" ></asp:TextBox>
<label for="<%= TxtNoIdentificacionv.ClientID.ToString()%>">Clave Interna Cliente:</label> <label for="<%= TxtNoIdentificacionv.ClientID.ToString()%>">Clave Interna Cliente:</label>
</div> </div>--%>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
@@ -2830,15 +2703,15 @@
<div class="form-group form-md-line-input input-iconright"> <%-- <div class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkLimitarInsumos" runat="server" CssClass="form-control" /> <asp:CheckBox ID="ChkLimitarInsumos" runat="server" CssClass="form-control" />
<label for="<%= ChkLimitarInsumos.ClientID.ToString()%>">Limitar:</label> <label for="<%= ChkLimitarInsumos.ClientID.ToString()%>">Limitar:</label>
</div> </div>--%>
<div class="form-group form-md-line-input input-iconright"> <%-- <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNoIdentificacionvInsumos" runat="server" MaxLength="15" CssClass="form-control" ></asp:TextBox> <asp:TextBox ID="TxtNoIdentificacionvInsumos" runat="server" MaxLength="15" CssClass="form-control" ></asp:TextBox>
<label for="<%= TxtNoIdentificacionvInsumos.ClientID.ToString()%>">Clave Interna:</label> <label for="<%= TxtNoIdentificacionvInsumos.ClientID.ToString()%>">Clave Interna:</label>
</div> </div>--%>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">

733
Contratos/ContratoObra.aspx.vb
View File

File diff suppressed because it is too large Load Diff

29
Ventas/Ventas.aspx
View File

@@ -2748,10 +2748,7 @@
<td>Contrato:</td> <td>Contrato:</td>
<td><asp:DropDownList ID="DdlContrato" runat="server" AppendDataBoundItems="true" Width="350px" AutoPostBack="true" DataTextField="NumeroContrato" DataValueField="CveContrato" CssClass="select2me" ></asp:DropDownList></td> <td><asp:DropDownList ID="DdlContrato" runat="server" AppendDataBoundItems="true" Width="350px" AutoPostBack="true" DataTextField="NumeroContrato" DataValueField="CveContrato" CssClass="select2me" ></asp:DropDownList></td>
</tr> </tr>
<tr runat="server" id="DVEstimacionesObra" visible="false">
<td> Estimacion:</td>
<td><asp:DropDownList ID="DdlEstimacionesObra" runat="server" AppendDataBoundItems="true" Width="350px" AutoPostBack="true" DataTextField="NumeroEstimacion" DataValueField="CveEstimacion" CssClass="select2me"></asp:DropDownList></td>
</tr>
</table> </table>
@@ -2793,13 +2790,22 @@
<div id="ContratoDetalles" class="row" runat="server" visible="false"> <div id="ContratoDetalles" class="row" runat="server" visible="false">
<div class="col-md-12"> <div class="col-md-12">
<div class="row" style="margin-bottom: 10px;"> <div class="row" style="margin-bottom: 10px;">
<div class="col-md-1">
<asp:Label runat="server" Text="Contrato:"></asp:Label> <div class="col-md-6">
</div> <table>
<div class="col-md-5"> <tr>
<asp:DropDownList runat="server" ID="DdlContratosModal" AutoPostBack="true" CssClass=" form-control input-sm select2me text-left" Width="400px" DataTextField="ContratoCompleto" DataValueField="CveContrato" /> <td><asp:Label runat="server" Text="Contrato:"></asp:Label></td>
<td><asp:DropDownList runat="server" ID="DdlContratosModal" AutoPostBack="true" CssClass=" form-control input-sm select2me text-left" Width="400px" DataTextField="ContratoCompleto" DataValueField="CveContrato" /></td>
</tr>
<tr runat="server" id="DVEstimacionesObra" visible="false">
<td> Estimacion:</td>
<td> <asp:DropDownList ID="DdlEstimacionesObra" runat="server" AppendDataBoundItems="true" Width="400px" AutoPostBack="true" DataTextField="NumeroEstimacion" DataValueField="CveEstimacion" CssClass="select2me"></asp:DropDownList> </td>
</tr>
</table>
</div> </div>
<div class="col-md-6 display4 bold" style="font-size: 16px;"> <div class="col-md-6 display4 bold" style="font-size: 16px;">
Saldo: $<asp:Literal Text="" ID="LtContratoImporteSaldo" runat="server" /> Saldo: $<asp:Literal Text="" ID="LtContratoImporteSaldo" runat="server" />
</div> </div>
@@ -2813,6 +2819,7 @@
<asp:ListItem Text="Venta" Value="2" Selected="True" /> <asp:ListItem Text="Venta" Value="2" Selected="True" />
<asp:ListItem Text="Suministro" Value="1" /> <asp:ListItem Text="Suministro" Value="1" />
<%--<asp:ListItem Text="Consignación" Value="3" Enabled="false" />--%> <%--<asp:ListItem Text="Consignación" Value="3" Enabled="false" />--%>
<asp:ListItem Text="Obra" Value="4" />
</asp:RadioButtonList> </asp:RadioButtonList>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
@@ -4307,7 +4314,7 @@
<asp:RadioButtonList ID="RblOpcionContrato" runat="server" CssClass="rbl" RepeatDirection="Horizontal" RepeatLayout="Table"> <asp:RadioButtonList ID="RblOpcionContrato" runat="server" CssClass="rbl" RepeatDirection="Horizontal" RepeatLayout="Table">
<asp:ListItem Text="Si" Value="2"></asp:ListItem> <asp:ListItem Text="Si" Value="2"></asp:ListItem>
<asp:ListItem Text="No" Value="1"></asp:ListItem> <asp:ListItem Text="No" Value="1"></asp:ListItem>
<asp:ListItem Text="Obra" Value="3"></asp:ListItem>
</asp:RadioButtonList> </asp:RadioButtonList>
<asp:LinkButton ID="BtnIniciarContrato" runat="server" CssClass="btn btn-success" Text="Aceptar" /> <asp:LinkButton ID="BtnIniciarContrato" runat="server" CssClass="btn btn-success" Text="Aceptar" />

93
Ventas/Ventas.aspx.vb
View File

@@ -3031,21 +3031,7 @@ Partial Class Ventas
LnkOCs.Visible = True LnkOCs.Visible = True
UpnTools.Update() UpnTools.Update()
ElseIf RblOpcionContrato.SelectedValue = "3" Then
DivEstimaciones.Visible = True
DVEstimacionesObra.Visible = True
DdlContrato.DataSource = DtContratos.FiltraParametros("CveContrato > 0", "NumeroContrato", DistinctColumns:={"CveContrato", "NumeroContrato"})
DdlContrato.DataBind()
DdlContrato.Items.Insert(0, New ListItem("Seleccione", "0"))
BtnEstimacion.Visible = False
GvEst.Visible = False
UPEstimaciones.Update()
Else Else
BtnEstimacion.Visible = True BtnEstimacion.Visible = True
@@ -3234,6 +3220,7 @@ Partial Class Ventas
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Cot")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Cot"))
End If End If
DVEstimacionesObra.Visible = False
Select Case RBLTipoContrato.SelectedValue.ToEntero() Select Case RBLTipoContrato.SelectedValue.ToEntero()
Case 1 Case 1
DdlTipoComprobante.Items.Insert(0, New ListItem("Pedido", "Ped")) DdlTipoComprobante.Items.Insert(0, New ListItem("Pedido", "Ped"))
@@ -3246,7 +3233,35 @@ Partial Class Ventas
DdlTipoComprobante.Items.Insert(0, New ListItem("Pedido de Consignación", "PeC")) DdlTipoComprobante.Items.Insert(0, New ListItem("Pedido de Consignación", "PeC"))
DdlTipoComprobante.SelectedValue = "PeC" DdlTipoComprobante.SelectedValue = "PeC"
DdlTipoComprobante.Enabled = False DdlTipoComprobante.Enabled = False
Case 4
TabGenerales.Enabled = True
DVEstimacionesObra.Visible = True
DdlEstimacionesObra.Items.Clear()
Dim Con As New ClsContratos
If Con.GetContratosAvanceEstimacionVentas(DdlContratosModal.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
DdlEstimacionesObra.DataSource = Con.DtResultados
Else
DdlEstimacionesObra.DataSource = Nothing
End If
Con.Dispose()
DdlEstimacionesObra.DataBind()
DdlEstimacionesObra.Items.Insert(0, New ListItem("Todos", "-1"))
BtnCargarContratoDetalles.Visible = False
BtnCancelarContratoDetalles.Visible = False
BtnCalcularTotalesContrato.Visible = False
BtnEstimacion.Visible = False
GvEst.Visible = False
GvContratoDetalles.Visible = False
End Select End Select
UPEstimaciones.Update()
Updatetabs.Update()
ChkPSOC.Checked = False ChkPSOC.Checked = False
CambiaTipoDocto() CambiaTipoDocto()
@@ -3580,6 +3595,7 @@ Partial Class Ventas
UpContratos.Update() UpContratos.Update()
End Sub End Sub
Private Sub DdlContratoModalSelectIndex() Private Sub DdlContratoModalSelectIndex()
If Not DdlContratosModal.SelectedValue.ToEntero() > 0 Then If Not DdlContratosModal.SelectedValue.ToEntero() > 0 Then
GvContratoDetalles.DataBind() GvContratoDetalles.DataBind()
UpContratos.Update() UpContratos.Update()
@@ -8757,6 +8773,13 @@ Partial Class Ventas
ObjFactura.CveCorte = CveCorte ObjFactura.CveCorte = CveCorte
ObjFactura.CveMesa = -1 ObjFactura.CveMesa = -1
ObjFactura.NumeroPersonas = 0 ObjFactura.NumeroPersonas = 0
If ObjFactura.TipoDocto = "Ant" And DdlContratosModal.SelectedValue.ToEntero > 0 Then
CveContrato = DdlContratosModal.SelectedValue.ToEntero
End If
ObjFactura.CveContrato = If(CveContrato > 0, CveContrato, CvePresupuesto) ObjFactura.CveContrato = If(CveContrato > 0, CveContrato, CvePresupuesto)
ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero() ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero()
@@ -10511,7 +10534,7 @@ Partial Class Ventas
End If End If
If ErrorList.Count = 0 AndAlso RblOpcionContrato.SelectedValue = "3" And DdlEstimacionesObra.SelectedValue.ToEntero > 0 Then If ErrorList.Count = 0 AndAlso RBLTipoContrato.SelectedValue = "4" And DdlEstimacionesObra.SelectedValue.ToEntero > 0 Then
If Not ObjContr.UpdateContratosAvanceEstimacionVentas(DdlEstimacionesObra.SelectedValue.ToEntero, ObjFactura.CveVenta, UsuarioActual.CveEmpresa) Then If Not ObjContr.UpdateContratosAvanceEstimacionVentas(DdlEstimacionesObra.SelectedValue.ToEntero, ObjFactura.CveVenta, UsuarioActual.CveEmpresa) Then
ErrorList.Add("Ocurrió un error al actualizar la estimación") ErrorList.Add("Ocurrió un error al actualizar la estimación")
@@ -18104,19 +18127,19 @@ Partial Class Ventas
BtnEstimacion.Visible = True BtnEstimacion.Visible = True
End If End If
If RblOpcionContrato.SelectedValue = "3" Then 'If RblOpcionContrato.SelectedValue = "3" Then
GvEst.DataSource = Nothing ' GvEst.DataSource = Nothing
GvEst.DataBind() ' GvEst.DataBind()
BtnEstimacion.Visible = False ' BtnEstimacion.Visible = False
BtnCargarContratoDetalles.Visible = False ' BtnCargarContratoDetalles.Visible = False
BtnCancelarContratoDetalles.Visible = False ' BtnCancelarContratoDetalles.Visible = False
UPEstimaciones.Update() ' UPEstimaciones.Update()
End If 'End If
End Sub End Sub
Private Sub CargaDatosEstimaciones(CveCliente As Integer) Private Sub CargaDatosEstimaciones(CveCliente As Integer)
@@ -18127,29 +18150,9 @@ Partial Class Ventas
If RblOpcionContrato.SelectedValue = "3" Then
DdlEstimacionesObra.Items.Clear()
If Con.GetContratosAvanceEstimacionVentas(DdlContrato.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
DdlEstimacionesObra.DataSource = Con.DtResultados
DdlEstimacionesObra.DataBind()
DdlEstimacionesObra.Items.Insert(0, New ListItem("Todos", "-1"))
Else
DdlEstimacionesObra.DataSource = Nothing
DdlEstimacionesObra.DataBind()
End If
UPEstimaciones.Update() If Con.GetEstimacionesPorFacturar(-1, CveCliente, DdlContrato.SelectedValue.ToEntero(), 0, UsuarioActual.CveEmpresa) Then
Else
If Con.GetEstimacionesPorFacturar(-1, CveCliente, DdlContrato.SelectedValue.ToEntero(), 0, UsuarioActual.CveEmpresa) Then
GvEst.DataSource = Con.DtResultados GvEst.DataSource = Con.DtResultados
If Con.DtResultados.Rows.Count > 0 Then If Con.DtResultados.Rows.Count > 0 Then
'BtnEstimacion.Visible = True 'BtnEstimacion.Visible = True
@@ -18165,7 +18168,7 @@ Partial Class Ventas
DdlContrato.DataBind() DdlContrato.DataBind()
GvEst.DataBind() GvEst.DataBind()
End If