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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-11-07 12:30:10 -07:00
parent 7e3fd77f9c 8abc2e2319
commit 8b07f996bb
4 changed files with 95 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsOC.vb
View File

@@ -766,6 +766,7 @@ Public Class ClsOC
.Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@vSerieFolio", SqlDbType.VarChar, 25).Direction = ParameterDirection.Output
End With End With
Try Try
@@ -773,6 +774,7 @@ Public Class ClsOC
_CveOrdenCompra = SqlAdapter.SelectCommand.Parameters("@vCveOrdenCompra").Value.ToString.ToEntero _CveOrdenCompra = SqlAdapter.SelectCommand.Parameters("@vCveOrdenCompra").Value.ToString.ToEntero
_Folio = SqlAdapter.SelectCommand.Parameters("@vFolio").Value.ToString.ToEntero _Folio = SqlAdapter.SelectCommand.Parameters("@vFolio").Value.ToString.ToEntero
_SerieFolio = SqlAdapter.SelectCommand.Parameters("@vSerieFolio").Value.ToString
'GetOC(_CveOrdenCompra, pCveEmpresa) 'GetOC(_CveOrdenCompra, pCveEmpresa)
Retorno = True Retorno = True

46
OC/OC.aspx
View File

@@ -8,11 +8,9 @@
<li> <li>
<asp:HyperLink ID="HLImprimir" Target="_blank" runat="server" Visible="false"> <i class="fa fa-print"></i> Imprimir</asp:HyperLink> <asp:HyperLink ID="HLImprimir" Target="_blank" runat="server" Visible="false"> <i class="fa fa-print"></i> Imprimir</asp:HyperLink>
</li> </li>
<li> <li>
<asp:HyperLink ID="HLImprimirCotizacion" Target="_blank" runat="server" Visible="false"> <i class="fa fa-print"></i> Imprimir Cotización</asp:HyperLink> <asp:HyperLink ID="HLImprimirCotizacion" Target="_blank" runat="server" Visible="false"> <i class="fa fa-print"></i> Imprimir Cotización</asp:HyperLink>
</li> </li>
<li> <li>
<asp:HyperLink ID="generarAnticipo" Style="width: 170px;" Visible="false" Target="_blank" runat="server"><i class="fa fa-plus"></i> Generar Anticipo</asp:HyperLink> <asp:HyperLink ID="generarAnticipo" Style="width: 170px;" Visible="false" Target="_blank" runat="server"><i class="fa fa-plus"></i> Generar Anticipo</asp:HyperLink>
</li> </li>
@@ -22,7 +20,6 @@
<li> <li>
<asp:HyperLink ID="HLGenerarRecepcion" Visible="false" Target="_blank" runat="server"><i class="fa fa-truck"></i>Recibir Mercancía</asp:HyperLink> <asp:HyperLink ID="HLGenerarRecepcion" Visible="false" Target="_blank" runat="server"><i class="fa fa-truck"></i>Recibir Mercancía</asp:HyperLink>
</li> </li>
<li> <li>
<a id="BtnSolicitudAnticipo" runat="server" visible="false" data-toggle="modal" href="#ModalSolicitarAnticipo"><i class="fa fa-dollar"></i>Solicitar Anticipo </a> <a id="BtnSolicitudAnticipo" runat="server" visible="false" data-toggle="modal" href="#ModalSolicitarAnticipo"><i class="fa fa-dollar"></i>Solicitar Anticipo </a>
</li> </li>
@@ -31,10 +28,7 @@
</li> </li>
<li> <li>
<asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Importar Listado</asp:HyperLink> <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Importar Listado</asp:HyperLink>
</li> </li>
<li>
<asp:LinkButton ID="LbDescargarExcel" Visible="false" runat="server"><i class='fa fa-file-excel-o'></i> Descargar Formato</asp:LinkButton>
</li>
<li> <li>
<a id="BtnGeneraContrato" runat="server" visible="false" data-toggle="modal" href="#ModalContrato"><i class="fa fa-book"></i>Generar por Contrato </a> <a id="BtnGeneraContrato" runat="server" visible="false" data-toggle="modal" href="#ModalContrato"><i class="fa fa-book"></i>Generar por Contrato </a>
</li> </li>
@@ -44,16 +38,18 @@
<li> <li>
<asp:LinkButton ID="LnkCambiarMoneda" Visible="False" runat="server"><i class='fa fa-money'></i> Cambiar Moneda</asp:LinkButton> <asp:LinkButton ID="LnkCambiarMoneda" Visible="False" runat="server"><i class='fa fa-money'></i> Cambiar Moneda</asp:LinkButton>
</li> </li>
<li>
<asp:LinkButton ID="LnkDescargarDetalleExcel" Visible="False" runat="server" OnClick="LnkDescargarDetalleExcel_Click"><i class='fa fa-excel'></i> Descargar Partidas</asp:LinkButton>
</li>
<li style="text-align: left!important" runat="server" id="LiLnkGuias" visible="true"> <li style="text-align: left!important" runat="server" id="LiLnkGuias" visible="true">
<asp:LinkButton runat="server" ID="LnkAgregarGuia" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkAgregarGuia_Click" title="Paquetería Guías." Text="<i class='fa fa-truck'></i> Paqueteria Guías" Visible="false"></asp:LinkButton> <asp:LinkButton runat="server" ID="LnkAgregarGuia" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkAgregarGuia_Click" title="Paquetería Guías." Text="<i class='fa fa-truck'></i> Paqueteria Guías" Visible="false"></asp:LinkButton>
</li> </li>
<li style="text-align: left!important" runat="server" id="LIContratos" visible="false"> <li style="text-align: left!important" runat="server" id="LIContratos" visible="false">
<asp:LinkButton runat="server" ID="LnkAcontratos" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkAcontratos_Click" title="Contratos" Text="<i class='fa fa-file-text'></i> Contratos"></asp:LinkButton> <asp:LinkButton runat="server" ID="LnkAcontratos" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkAcontratos_Click" title="Contratos" Text="<i class='fa fa-file-text'></i> Contratos"></asp:LinkButton>
</li> </li>
</ContentTemplate>
</ContentTemplate>
<Triggers> <Triggers>
<asp:PostBackTrigger ControlID="LbDescargarExcel" /> <asp:PostBackTrigger ControlID="LnkDescargarDetalleExcel" />
</Triggers> </Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>
@@ -285,11 +281,16 @@
</div> </div>
<label class="col-md-2" runat="server" id="DivLugarEntrega1">Lugar Entrega:</label> <label class="col-md-2" runat="server" id="DivLugarEntrega1">Lugar Entrega:</label>
<div class="col-md-4" runat="server" id="DivLugarEntrega2"> <div class="col-md-4" runat="server" id="DivLugarEntrega2">
<asp:CheckBox runat="server" ID="chkSubProyectoEntrega" Visible="false" AutoPostBack="true" OnCheckedChanged="chkSubProyectoEntrega_CheckedChanged" /> <asp:UpdatePanel ID="UPPLugarEntrega" runat="server" updatemode="Conditional">
<asp:DropDownList ID="DdlSubProyectoEntrega" CssClass=" form-control input-sm select2me" runat="server" DataTextField="SubProyecto" Style="width: 80%;" DataValueField="CveSubProyecto" Visible="false" > <ContentTemplate>
<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem> <asp:CheckBox runat="server" ID="chkSubProyectoEntrega" Visible="false" AutoPostBack="true" OnCheckedChanged="chkSubProyectoEntrega_CheckedChanged" />
</asp:DropDownList> <asp:DropDownList ID="DdlSubProyectoEntrega" CssClass=" form-control input-sm select2me" runat="server" DataTextField="SubProyecto" Style="width: 80%;" DataValueField="CveSubProyecto" Visible="false" >
<asp:TextBox ID="txtLugarEntrega" runat="server" MaxLength="100" Width="80%"></asp:TextBox> <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:TextBox ID="txtLugarEntrega" runat="server" MaxLength="100" Width="80%"></asp:TextBox>
</ContentTemplate>
</asp:UpdatePanel>
</div> </div>
<div class="row" runat="server" visible="False" id="TrCancelacion"> <div class="row" runat="server" visible="False" id="TrCancelacion">
<label class="col-md-2">Cancelacion:</label> <label class="col-md-2">Cancelacion:</label>
@@ -402,7 +403,7 @@
<td><b>Estatus:</b></td> <td><b>Estatus:</b></td>
<td> <td>
<asp:Label ID="LblMsgEstatus" runat="server" Text="" Font-Size="6pt" Font-Italic="True" ForeColor="Red"></asp:Label> <asp:Label ID="LblMsgEstatus" runat="server" Text="" Font-Size="6pt" Font-Italic="True" ForeColor="Red"></asp:Label>
<asp:DropDownList ID="CboE" CssClass="form-control input-sm" runat="server" AutoPostBack="true" DataTextField="Estatus" DataValueField="CveEstatus" Width="104px"></asp:DropDownList> <asp:DropDownList ID="CboE" CssClass="form-control input-sm" runat="server" AutoPostBack="true" DataTextField="Estatus" DataValueField="CveEstatus" Width="100%" style="min-width:104px;"></asp:DropDownList>
</td> </td>
</tr> </tr>
<tr runat="server" id="TrPendientes"> <tr runat="server" id="TrPendientes">
@@ -454,7 +455,7 @@
</td> </td>
</tr> </tr>
<tr id="trCfdi" style="display:none;" > <tr id="trCfdi" style="display:none;" >
<td> <td colspan="2">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-pin font-green"></i> <i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">CFDI Versión 3.3</span> <span class="caption-subject bold uppercase">CFDI Versión 3.3</span>
@@ -483,7 +484,7 @@
<td><b>Descuento:</b></td> <td><b>Descuento:</b></td>
<td> <td>
<asp:TextBox ID="TxtDescuentoEscalonado" runat="server" Width="80px" Height="28px"></asp:TextBox> <asp:TextBox ID="TxtDescuentoEscalonado" runat="server" Width="80px" Height="28px"></asp:TextBox>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDescuentoEscalonado" ValidChars="1234567890+" /> <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDescuentoEscalonado" ValidChars="1234567890+." />
<asp:Button runat="server" ID="BtnDescuenEscalonado" Text="Aplicar" CssClass="btn btn-primary" OnClick="BtnDescuenEscalonado_Click" /> <asp:Button runat="server" ID="BtnDescuenEscalonado" Text="Aplicar" CssClass="btn btn-primary" OnClick="BtnDescuenEscalonado_Click" />
</td> </td>
</tr> </tr>
@@ -493,10 +494,7 @@
<asp:TextBox ID="TxtPorcentajeProntoPago" CssClass="form-control " runat="server" MaxLength="50" Width="80px" Height="28px"></asp:TextBox> <asp:TextBox ID="TxtPorcentajeProntoPago" CssClass="form-control " runat="server" MaxLength="50" Width="80px" Height="28px"></asp:TextBox>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPorcentajeProntoPago" ValidChars="1234567890." /> <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPorcentajeProntoPago" ValidChars="1234567890." />
</td> </td>
</tr> </tr>
</table> </table>
@@ -2404,7 +2402,7 @@
<div class="modal-content"> <div class="modal-content">
<div class="modal-header "> <div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button> <button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Agregar Excel</h4> <h4 class="modal-title">Carga por Excel</h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div class="row"> <div class="row">
@@ -2413,7 +2411,7 @@
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-11" style="margin-left: 30px; margin-right: 30px; margin-bottom: 200px;"> <div class="col-md-11" style="margin-left: 30px; margin-right: 30px; margin-bottom: 10px;">
<asp:TextBox ID="TxtExcel" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox> <asp:TextBox ID="TxtExcel" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
</div> </div>
</div> </div>

94
OC/OC.aspx.vb
View File

@@ -45,6 +45,24 @@ Partial Class OC_OC
ViewState("ModalidadSubProyectoGeneral") = value ViewState("ModalidadSubProyectoGeneral") = value
End Set End Set
End Property End Property
Private Property NotificacionCorreo As Boolean
Get
Return If(IsNothing(ViewState("NotificacionCorreo")), True, CBool(ViewState("NotificacionCorreo")))
End Get
Set(value As Boolean)
ViewState("NotificacionCorreo") = value
End Set
End Property
Private Property VisualizaContrato As Boolean
Get
Return If(IsNothing(ViewState("VisualizaContrato")), False, CBool(ViewState("VisualizaContrato")))
End Get
Set(ByVal value As Boolean)
ViewState("VisualizaContrato") = value
End Set
End Property
Private Property TipoOC As String Private Property TipoOC As String
Get Get
If ViewState("TipoOC") Is Nothing Then If ViewState("TipoOC") Is Nothing Then
@@ -213,8 +231,6 @@ Partial Class OC_OC
Else Else
Return ViewState("NumCotizaciones").ToString.ToEntero Return ViewState("NumCotizaciones").ToString.ToEntero
End If End If
End Get End Get
Set(value As Integer) Set(value As Integer)
ViewState("NumCotizaciones") = value ViewState("NumCotizaciones") = value
@@ -646,6 +662,9 @@ Partial Class OC_OC
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing
NotificacionCorreo = True
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then NotificacionCorreo = False
CargaDatosAgregarPS() CargaDatosAgregarPS()
CveProveedorOriginal = -1 CveProveedorOriginal = -1
InventarioPrePoliza176 = 0 InventarioPrePoliza176 = 0
@@ -704,12 +723,10 @@ Partial Class OC_OC
CargaDatos(CveOrdenCompra) CargaDatos(CveOrdenCompra)
ConfiguraRetencionesProveedor() ConfiguraRetencionesProveedor()
Else Else
LIContratos.Visible = True LIContratos.Visible = VisualizaContrato
EsNuevo = True EsNuevo = True
InicializarValores() InicializarValores()
HlAgregarExcel.Visible = True HlAgregarExcel.Visible = True
LbDescargarExcel.Visible = True
TxtDescrip.Attributes.Add("onKeyUp", String.Format("SetText({0}, {1})", TxtDescrip.ClientID, TxtJustificacion.ClientID)) TxtDescrip.Attributes.Add("onKeyUp", String.Format("SetText({0}, {1})", TxtDescrip.ClientID, TxtJustificacion.ClientID))
CreaDTDetalles() CreaDTDetalles()
@@ -793,7 +810,8 @@ Partial Class OC_OC
'End If 'End If
BtnGeneraContrato.Visible = True : CargaClientesContrato() 'BtnGeneraContrato.Visible = True
'CargaClientesContrato()
CargaEstatusInicialFinal() CargaEstatusInicialFinal()
CargaEstatusUsuarios() CargaEstatusUsuarios()
@@ -1020,16 +1038,12 @@ Partial Class OC_OC
TrDescuentoProntoPago.Visible = True TrDescuentoProntoPago.Visible = True
End If End If
If UsuarioActual.Empresa.CveEmpresa = 189 AndAlso CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then If UsuarioActual.Empresa.CveEmpresa = 189 AndAlso CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then
BtnEdicionMasiva.Visible = True BtnEdicionMasiva.Visible = True
End If End If
End If End If
MostrarUsuarioAsignado() MostrarUsuarioAsignado()
ValidaCancelacionConAlamcen() ValidaCancelacionConAlamcen()
Me.Form.DefaultButton = "" Me.Form.DefaultButton = ""
@@ -1396,9 +1410,9 @@ Partial Class OC_OC
Dim dts As DataRow = DT.FiltraParametros("CveSubProyecto = " + tCveSubProyecto.ToString).FiltroPrimero("") Dim dts As DataRow = DT.FiltraParametros("CveSubProyecto = " + tCveSubProyecto.ToString).FiltroPrimero("")
If dts IsNot Nothing Then If dts IsNot Nothing Then
ViewState("CveFolio") = dts("CveFolio").ToString.ToEntero ViewState("CveFolio") = dts("CveFolio").ToString.ToEntero
If UsuarioActual.CveEmpresa = 189 Then If ModalidadSubProyectoGeneral Then
lblFolio.Text = dts("Serie").ToString + " " + dts("FActual").ToString lblFolio.Text = dts("Serie").ToString + "-" + dts("FActual").ToString
SerieFolio = dts("Serie").ToString + " " + dts("FActual").ToString SerieFolio = dts("Serie").ToString + "-" + dts("FActual").ToString
Else Else
lblFolio.Text = TipoOC + " " + dts("FActual").ToString lblFolio.Text = TipoOC + " " + dts("FActual").ToString
SerieFolio = dts("FActual").ToString SerieFolio = dts("FActual").ToString
@@ -1409,7 +1423,7 @@ Partial Class OC_OC
lblFolio.Text = TipoOC + " " + DT.Rows(0)("FActual").ToString lblFolio.Text = TipoOC + " " + DT.Rows(0)("FActual").ToString
SerieFolio = DT.Rows(0)("FActual").ToString SerieFolio = DT.Rows(0)("FActual").ToString
Else Else
Alert("No tiene registrados Folios en esta sucursal.", TipoMensaje.MsgAdvertencia) Alert("No tiene registrados folios en esta sucursal.", TipoMensaje.MsgAdvertencia)
End If End If
DT.Dispose() DT.Dispose()
@@ -1466,7 +1480,7 @@ Partial Class OC_OC
TieneInventario = CBool(objOC.DtResultados.Rows(0)("TieneInvOC")) TieneInventario = CBool(objOC.DtResultados.Rows(0)("TieneInvOC"))
DdlMetodoPago.SelectedValueExist(objOC.DtResultados.Rows(0)("MetodoPago")) DdlMetodoPago.SelectedValueExist(objOC.DtResultados.Rows(0)("MetodoPago"))
LnkDescargarDetalleExcel.Visible = True
If objOC.DtResultados.Rows(0)("CveSubProyectoEntrega").ToString.ToEntero > 0 Then If objOC.DtResultados.Rows(0)("CveSubProyectoEntrega").ToString.ToEntero > 0 Then
DdlSubProyectoEntrega.SelectedValueExist(objOC.DtResultados.Rows(0)("CveSubProyectoEntrega").ToString) DdlSubProyectoEntrega.SelectedValueExist(objOC.DtResultados.Rows(0)("CveSubProyectoEntrega").ToString)
@@ -2921,7 +2935,7 @@ Partial Class OC_OC
If Not TieneError Then If Not TieneError Then
CveOCGeneradas.Add(CveOrdenCompra) CveOCGeneradas.Add(CveOrdenCompra)
FolioOCGeneradas.Add(OC.Folio) FolioOCGeneradas.Add(OC.Folio)
SerieFolio = OC.Folio.ToString SerieFolio = OC.SerieFolio.ToString
End If End If
End If End If
@@ -2971,8 +2985,6 @@ Partial Class OC_OC
TieneError = True TieneError = True
End If End If
If CveOrdenTrabajo > 0 Then If CveOrdenTrabajo > 0 Then
Dim ObjAF As New ClsAF(OC.IniciaTransacSQL) Dim ObjAF As New ClsAF(OC.IniciaTransacSQL)
@@ -2981,9 +2993,6 @@ Partial Class OC_OC
End If End If
End If End If
End If End If
@@ -3019,7 +3028,7 @@ Partial Class OC_OC
End If End If
End If End If
ViewState("LigaOCs") = If(CveEstatusNuevo <> CboE.SelectedValue.ToEntero, String.Format("<a href='/OC/OC.aspx?OC={0}'>{1}</a>", CveOrdenCompra, Folio), "") ViewState("LigaOCs") = If(CveEstatusNuevo <> CboE.SelectedValue.ToEntero, String.Format("<a href='/OC/OC.aspx?OC={0}'>{1}</a>", CveOrdenCompra, SerieFolio), "")
If CveOrdenCompra > 0 Then If CveOrdenCompra > 0 Then
Dim ImprimirOC As String = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Orden de Compra</a> ", Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra))) Dim ImprimirOC As String = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Orden de Compra</a> ", Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra)))
@@ -3599,7 +3608,7 @@ Partial Class OC_OC
'End If 'End If
If Not HuboError Then If Not HuboError Then
LigaOcsTemp = String.Format("{0}<br><a href='/OC/OC.aspx?OC={1}'>{2}</a>", LigaOcsTemp, objOrdenCompra.CveOrdenCompra, objOrdenCompra.Folio) LigaOcsTemp = String.Format("{0}<br><a href='/OC/OC.aspx?OC={1}'>{2}</a>", LigaOcsTemp, objOrdenCompra.CveOrdenCompra, objOrdenCompra.SerieFolio)
CveOCGeneradasTemp.Add(objOrdenCompra.CveOrdenCompra) CveOCGeneradasTemp.Add(objOrdenCompra.CveOrdenCompra)
FolioOCGeneradasTemp.Add(objOrdenCompra.Folio) FolioOCGeneradasTemp.Add(objOrdenCompra.Folio)
End If End If
@@ -3694,7 +3703,7 @@ Partial Class OC_OC
If HuboError = False Then If HuboError = False Then
ViewState("LigaOCs") = String.Format("{0}<br><a href='/OC/OC.aspx?OC={1}'>{2}</a>", LigaOCs, objOrdenCompra.CveOrdenCompra, objOrdenCompra.Folio) ViewState("LigaOCs") = String.Format("{0}<br><a href='/OC/OC.aspx?OC={1}'>{2}</a>", LigaOCs, objOrdenCompra.CveOrdenCompra, objOrdenCompra.SerieFolio)
CveOCGeneradas.Add(objOrdenCompra.CveOrdenCompra) CveOCGeneradas.Add(objOrdenCompra.CveOrdenCompra)
FolioOCGeneradas.Add(objOrdenCompra.Folio) FolioOCGeneradas.Add(objOrdenCompra.Folio)
End If End If
@@ -4019,6 +4028,10 @@ Partial Class OC_OC
e.Row.FCLiteral("LtlSubProyecto").Text = Str e.Row.FCLiteral("LtlSubProyecto").Text = Str
End If End If
End If End If
If e.Row.DBCampo("Descuento").ToDecimal > 0 Then
Dim Desc As Decimal = e.Row.DBCampo("Descuento").ToDecimal
e.Row.FCLiteral("LtlDescuento").Text = String.Format("{0}<br/>{1}%", Desc.FormatoNumero, (Desc / (e.Row.DBCampo("Cantidad").ToDecimal * e.Row.DBCampo("PU").ToDecimal) * 100.0).FormatoNumero)
End If
e.Row.Cells(0).ToolTip = e.Row.DBCampo("CvePresupuestoEgreso") e.Row.Cells(0).ToolTip = e.Row.DBCampo("CvePresupuestoEgreso")
'comente esta linea, RMF: 2015.04.20 'comente esta linea, RMF: 2015.04.20
@@ -6279,6 +6292,9 @@ Partial Class OC_OC
End If End If
End Sub End Sub
Protected Sub EnviarCorreoCambioEstatus(pCveEstatus As Integer, Estatus As String, Optional NotificarAlert As Boolean = True, Optional AsuntoMail As String = "") Protected Sub EnviarCorreoCambioEstatus(pCveEstatus As Integer, Estatus As String, Optional NotificarAlert As Boolean = True, Optional AsuntoMail As String = "")
If Not NotificacionCorreo Then Exit Sub
Dim strOpciones As New StringBuilder Dim strOpciones As New StringBuilder
If CveUsuario = -1 Or Not CBool(GlobalDTUsuarios(CveUsuario, CveEmpresa:=CveEmpresaActual).FiltroPrimeroValor("Estatus")) Then If CveUsuario = -1 Or Not CBool(GlobalDTUsuarios(CveUsuario, CveEmpresa:=CveEmpresaActual).FiltroPrimeroValor("Estatus")) Then
CveUsuario = UsuarioActual.CveUsuario CveUsuario = UsuarioActual.CveUsuario
@@ -6380,6 +6396,7 @@ Partial Class OC_OC
#Region " ENVIAR CORREO USUARIO ASIGNADO " #Region " ENVIAR CORREO USUARIO ASIGNADO "
Protected Sub MandaCorreoUsuario(Para As String, CorreosCCP As String, CorreosCCPNombre As List(Of String), Optional NotificarAlert As Boolean = True) Protected Sub MandaCorreoUsuario(Para As String, CorreosCCP As String, CorreosCCPNombre As List(Of String), Optional NotificarAlert As Boolean = True)
If Not NotificacionCorreo Then Exit Sub
Dim strOpciones As New StringBuilder Dim strOpciones As New StringBuilder
Dim Body As String = GeneraCorreo(CveOrdenCompra, "") 'strOpciones.ToString) 'genero los datos de la OC Dim Body As String = GeneraCorreo(CveOrdenCompra, "") 'strOpciones.ToString) 'genero los datos de la OC
@@ -6401,6 +6418,7 @@ Partial Class OC_OC
End Sub End Sub
Protected Sub CorreoUsuarioAsignado(pCveEstatus As Integer, Estatus As String, Optional NotificarAlert As Boolean = True) Protected Sub CorreoUsuarioAsignado(pCveEstatus As Integer, Estatus As String, Optional NotificarAlert As Boolean = True)
If Not NotificacionCorreo Then Exit Sub
If CBool(GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero, CveEmpresaActual).FiltroPrimeroValor("Estatus").ToString) Then If CBool(GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero, CveEmpresaActual).FiltroPrimeroValor("Estatus").ToString) Then
'Dim CorreosCCP As New List(Of String) 'Dim CorreosCCP As New List(Of String)
Dim StrCorreos As New StringBuilder Dim StrCorreos As New StringBuilder
@@ -6438,6 +6456,7 @@ Partial Class OC_OC
#Region " enviarCorreoOrdenDeCompra " #Region " enviarCorreoOrdenDeCompra "
Protected Sub EnviarCorreoOrdenCompra(CveOrdenCompra As Integer) Protected Sub EnviarCorreoOrdenCompra(CveOrdenCompra As Integer)
If Not NotificacionCorreo Then Exit Sub
Dim CveProveedor As Integer Dim CveProveedor As Integer
Dim strOpciones As New StringBuilder Dim strOpciones As New StringBuilder
@@ -6462,6 +6481,7 @@ Partial Class OC_OC
#End Region #End Region
Private Function GeneraCorreo(CveOrdenCompra As Integer, Opciones As String, Optional IncluirDetalles As Boolean = True, Optional Bitacora As String = "", Optional LigaAdjunto As String = "") As String Private Function GeneraCorreo(CveOrdenCompra As Integer, Opciones As String, Optional IncluirDetalles As Boolean = True, Optional Bitacora As String = "", Optional LigaAdjunto As String = "") As String
If Not NotificacionCorreo Then Return ""
Dim strBody As New StringBuilder Dim strBody As New StringBuilder
Dim objOC As New ClsOC Dim objOC As New ClsOC
@@ -6578,6 +6598,7 @@ Partial Class OC_OC
Return strBody.ToString Return strBody.ToString
End Function End Function
Private Function GeneraCorreoProveedor(CveOrdenCompra As Integer, ByRef CveProveedor As Integer) As String Private Function GeneraCorreoProveedor(CveOrdenCompra As Integer, ByRef CveProveedor As Integer) As String
If Not NotificacionCorreo Then Return ""
Dim strBody As New StringBuilder Dim strBody As New StringBuilder
Dim objOC As New ClsOC Dim objOC As New ClsOC
@@ -6901,8 +6922,12 @@ Partial Class OC_OC
SubProyecto = DrProyecto("SubProyecto").ToString SubProyecto = DrProyecto("SubProyecto").ToString
End If End If
Else Else
CveProyecto = -1 If ModalidadSubProyectoGeneral Then
CveSubProyecto = -1 CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
Else
CveProyecto = -1
CveSubProyecto = -1
End If
End If End If
If Codigo.Length > 0 Then If Codigo.Length > 0 Then
@@ -7005,7 +7030,7 @@ Partial Class OC_OC
Return StrReturn Return StrReturn
End Function End Function
Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click, LbDescargarExcel.Click Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\FormatoOC.xlsx" Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\FormatoOC.xlsx"
Dim Archivo As New IO.FileInfo(Directorio) Dim Archivo As New IO.FileInfo(Directorio)
If Archivo.Exists Then If Archivo.Exists Then
@@ -7122,7 +7147,6 @@ Partial Class OC_OC
BtnCancelarPrevio.Visible = False BtnCancelarPrevio.Visible = False
BtnCrearApartirDe.Visible = False BtnCrearApartirDe.Visible = False
uppSeguimientoEstatus.Update() uppSeguimientoEstatus.Update()
UPProv.Update() UPProv.Update()
UPPEmp.Update() UPPEmp.Update()
@@ -7204,7 +7228,6 @@ Partial Class OC_OC
CargarOptionAnticipos() CargarOptionAnticipos()
HlAgregarExcel.Visible = True HlAgregarExcel.Visible = True
LbDescargarExcel.Visible = True
CargaEstatusInicialFinal() CargaEstatusInicialFinal()
CargaEstatusUsuarios() CargaEstatusUsuarios()
@@ -7250,8 +7273,8 @@ Partial Class OC_OC
BtnSolicitudAnticipo.Visible = False BtnSolicitudAnticipo.Visible = False
HlAgregarExcel.Visible = True HlAgregarExcel.Visible = True
LbDescargarExcel.Visible = True 'BtnGeneraContrato.Visible = True
BtnGeneraContrato.Visible = True : CargaClientesContrato() CargaClientesContrato()
LbVerificarExistencia.Visible = True LbVerificarExistencia.Visible = True
LnkAgregarGuia.Visible = False LnkAgregarGuia.Visible = False
@@ -7731,8 +7754,8 @@ Partial Class OC_OC
Private Function ValidarDescuentos() As Boolean Private Function ValidarDescuentos() As Boolean
Dim Retorno As Boolean = True Dim Retorno As Boolean = True
Dim DescuentoConceptos As Decimal = DtDetalle.SUMD("Descuento") Dim DescuentoConceptos As Decimal = DtDetalle.SUMD("Descuento").RoundSQL
Dim DescuentoGeneral As Decimal = TxtDescuento.Text.ToDecimal Dim DescuentoGeneral As Decimal = TxtDescuento.Text.ToDecimal.RoundSQL
If DescuentoConceptos <> DescuentoGeneral Then If DescuentoConceptos <> DescuentoGeneral Then
Alert(String.Format("Los descuentos no cuadran. Por favor de verificar.({0}-{1})", DescuentoConceptos, DescuentoGeneral), TipoMensaje.MsgAdvertencia) Alert(String.Format("Los descuentos no cuadran. Por favor de verificar.({0}-{1})", DescuentoConceptos, DescuentoGeneral), TipoMensaje.MsgAdvertencia)
@@ -9394,6 +9417,8 @@ Partial Class OC_OC
Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue) DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
DdlSubProyectoEntrega.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
UPPLugarEntrega.Update()
UPPDetalle.Update() UPPDetalle.Update()
CargaFolios() CargaFolios()
End Sub End Sub
@@ -9588,6 +9613,9 @@ Partial Class OC_OC
End Function End Function
Protected Sub LnkDescargarDetalleExcel_Click(sender As Object, e As EventArgs)
GvD.ExportToExcel("des")
End Sub
End Class End Class

19
Ventas/RepVentasUtilidadPadre.aspx
View File

@@ -286,7 +286,7 @@
<div class="modal-header"> <div class="modal-header">
<button type="button" class="close" data-dismiss="modal">&times;</button> <button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title"> <h4 class="modal-title">
<asp:Label ID="LblModalTituloPorcentajes" runat="server" ClientIDMode="Static" Text="">Consulta Porcentajes</asp:Label> <asp:Label ID="LblModalTituloPorcentajes" runat="server" ClientIDMode="Static" Text="">Consulta Ventas menores a </asp:Label>
</h4> </h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
@@ -326,8 +326,8 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtModalPorcentaje" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="13" Text="5" Enabled="true"></asp:TextBox> <asp:TextBox ID="TxtModalPorcentaje" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="13" Text="5" Enabled="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtModalPorcentaje" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtModalPorcentaje" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Porcentaje''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalPorcentaje"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvTxtModalPorcentaje" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtModalPorcentaje" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Porcentaje''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalPorcentaje"></asp:RequiredFieldValidator>
<ajax:FilteredTextBoxExtender ID="FIETTxtModalPorcentaje" TargetControlID="TxtModalPorcentaje" FilterType="Numbers,Custom" ValidChars="-" runat="server" /> <ajax:FilteredTextBoxExtender ID="FIETTxtModalPorcentaje" TargetControlID="TxtModalPorcentaje" FilterType="Numbers,Custom" ValidChars="-." runat="server" />
<label for="<%= TxtModalPorcentaje.ClientID.ToString()%>">Porcentaje Menor a:</label> <label for="<%= TxtModalPorcentaje.ClientID.ToString()%>">% Menor a:</label>
</div> </div>
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
@@ -346,17 +346,18 @@
CssClass="table table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" OnRowDataBound="GvPorcentajes_RowDataBound" > CssClass="table table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" OnRowDataBound="GvPorcentajes_RowDataBound" >
<Columns> <Columns>
<asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-Width="200px" /> <asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-Width="120px" />
<asp:HyperLinkField ItemStyle-HorizontalAlign="Center" HeaderText="Serie Folio" DataTextField="SerieFolio" DataTextFormatString="{0}" Target="_blank" <asp:HyperLinkField ItemStyle-HorizontalAlign="Center" HeaderText="Serie Folio" DataTextField="SerieFolio" DataTextFormatString="{0}" Target="_blank"
DataNavigateUrlFields="CveVenta" DataNavigateUrlFields="CveVenta"
DataNavigateUrlFormatString="Ventas.aspx?CveVenta={0}" /> DataNavigateUrlFormatString="Ventas.aspx?CveVenta={0}" />
<asp:BoundField ItemStyle-HorizontalAlign="Center" HeaderText="Fecha" DataField="FechaVenta" DataFormatString="{0:d}" ItemStyle-Width="100px" /> <asp:BoundField ItemStyle-HorizontalAlign="Center" HeaderText="Fecha" DataField="FechaVenta" DataFormatString="{0:d}" ItemStyle-Width="85px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N}" ItemStyle-Width="100px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N}" ItemStyle-Width="90px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Costo" DataField="Costo" DataFormatString="{0:N}" ItemStyle-Width="90px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="% Neto" DataField="PorNeto" DataFormatString="{0:N}" ItemStyle-Width="70px" />
<asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText="Vendedor" DataField="Vendedor" ItemStyle-Width="100px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Costo" DataField="Costo" DataFormatString="{0:N}" ItemStyle-Width="100px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="% Neto" DataField="PorNeto" DataFormatString="{0:N}" ItemStyle-Width="100px" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>