Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
503
OC/CotizacionEnLinea.aspx.vb
Normal file
503
OC/CotizacionEnLinea.aspx.vb
Normal file
@@ -0,0 +1,503 @@
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class OC_CotizacionEnLinea
|
||||
Inherits Page
|
||||
'debe de heredar de PAGE, no de clspaginas, porque sino valida la sesion en el servidor.
|
||||
|
||||
#Region "Propiedades"
|
||||
Public Property Empresa As Empresa
|
||||
|
||||
Private Property CotizacionActiva As Boolean
|
||||
Get
|
||||
CotizacionActiva = CBool(ViewState("CotizacionActiva").ToString)
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("CotizacionActiva") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveOrdenCompra As Integer
|
||||
Get
|
||||
CveOrdenCompra = ViewState("CveOrdenCompra").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveOrdenCompra") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveProveedor As Integer
|
||||
Get
|
||||
CveProveedor = ViewState("CveProveedor").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveProveedor") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveColectiva As Integer
|
||||
Get
|
||||
CveColectiva = ViewState("CveColectiva").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveColectiva") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveEmpresa As Integer
|
||||
Get
|
||||
CveEmpresa = ViewState("CveEmpresa").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveEmpresa") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveCotizacion As Integer
|
||||
Get
|
||||
CveCotizacion = ViewState("CveCotizacion").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveCotizacion") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property Validacion As String
|
||||
Get
|
||||
Validacion = ViewState("Validacion").ToString
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("Validacion") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CorreoCCP As String
|
||||
Get
|
||||
CorreoCCP = ViewState("CorreoCCP").ToString
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("CorreoCCP") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CorreoPara As String
|
||||
Get
|
||||
CorreoPara = ViewState("CorreoPara").ToString
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("CorreoPara") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property DtDetalle As DataTable
|
||||
Get
|
||||
DtDetalle = DirectCast(ViewState("DtDetalle"), DataTable)
|
||||
End Get
|
||||
Set(ByVal value As DataTable)
|
||||
ViewState("DtDetalle") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property DiasCredito As Integer
|
||||
Get
|
||||
DiasCredito = ViewState("DiasCredito").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("DiasCredito") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "C A R G A D A T O S"
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CType(Me.Master, Site).EsPopup = True
|
||||
CType(Me.Master, Site).PopupWidth = 670
|
||||
|
||||
'Validar que este activo aun el link
|
||||
'ViewState("CveOrdenCompra") = If(Not Request("CveOrdenCompra") Is Nothing AndAlso Request("CveOrdenCompra").ToString.ToEntero > 0, Request("CveOrdenCompra").ToEntero, 0)
|
||||
'ViewState("CveProveedor") = If(Not Request("CveProveedor") Is Nothing AndAlso Request("CveProveedor").ToString.ToEntero > 0, Request("CveProveedor").ToEntero, 0)
|
||||
RegistraScript("$('#mBody').addClass('page-sidebar-closed')")
|
||||
RegistraScript("$('#divMenu').css('display','none')")
|
||||
|
||||
ViewState("Validacion") = If(Not Request("P") Is Nothing, Request("P").ToString, "")
|
||||
|
||||
'If Validacion IsNot Nothing AndAlso Validacion = Encripta(String.Format("{0}|||{1}", CveOrdenCompra, CveProveedor)) Then
|
||||
If Validacion IsNot Nothing Then
|
||||
Dim Cadena As String = ModExtensiones.Decripta(Validacion)
|
||||
|
||||
If Cadena <> "" Then
|
||||
Dim UrlParametros As Hashtable = Parametros(Cadena)
|
||||
If UrlParametros("CVECOTIZACION") IsNot Nothing AndAlso UrlParametros("CVECOTIZACION").ToString.ToEntero > 0 Then
|
||||
ViewState("CveCotizacion") = UrlParametros("CVECOTIZACION").ToString.ToEntero
|
||||
' PnlGral.Visible = True
|
||||
CargaMonedas()
|
||||
CargaCotizacion()
|
||||
Else
|
||||
Alert("ERROR", TipoMensaje.MsgError)
|
||||
End If
|
||||
Else
|
||||
Alert("ERROR", TipoMensaje.MsgError)
|
||||
End If
|
||||
Else
|
||||
Alert("ERROR", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub CargaMonedas()
|
||||
Dim objMonedas As New ClsMonedas
|
||||
|
||||
If objMonedas.GetMonedas Then
|
||||
ddlMoneda.DataSource = objMonedas.DtResultados
|
||||
ddlMoneda.DataBind()
|
||||
End If
|
||||
|
||||
objMonedas.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCotizacion()
|
||||
Dim objCotizacion As New ClsOC
|
||||
|
||||
If objCotizacion.GetCotizaciones(-1, CveCotizacion) Then
|
||||
ViewState("CveOrdenCompra") = objCotizacion.CveOrdenCompra
|
||||
ViewState("CveEmpresa") = objCotizacion.CveEmpresa
|
||||
ViewState("CveProveedor") = objCotizacion.CveProveedor
|
||||
ViewState("CveColectiva") = objCotizacion.CveColectiva
|
||||
DiasCredito = objCotizacion.DiasCredito
|
||||
|
||||
lblEmpresa.Text = objCotizacion.Empresa
|
||||
lblSubProyecto.Text = objCotizacion.SubProyecto
|
||||
LbLugarEntrega.Text = objCotizacion.LugarEntrega
|
||||
TxtDiasCredito.Text = objCotizacion.DiasCredito.ToString
|
||||
'lblFolio.Text = objCotizacion.Folio.ToString
|
||||
|
||||
TxtFolio.Text = objCotizacion.Folio.ToString
|
||||
ddlMoneda.SelectedValue = objCotizacion.CveMoneda.ToString
|
||||
Dim Emp As New ClsSisEmpresas
|
||||
If Emp.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
|
||||
If Emp.DtResultados.Rows.Count > 0 Then
|
||||
lblTelefono.Text = Emp.DtResultados.Rows(0)("Telefono").ToString
|
||||
End If
|
||||
|
||||
End If
|
||||
Emp.Dispose()
|
||||
|
||||
If objCotizacion.CveProveedor > 0 Then
|
||||
Dim objProveedor As New ClsCompProveedores
|
||||
|
||||
If objProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", 1, CveEmpresa) Then
|
||||
If objProveedor.DtResultados.Rows.Count > 0 Then
|
||||
lblProveedor.Text = objProveedor.DtResultados.Rows(0)("RazonSocial").ToString
|
||||
End If
|
||||
End If
|
||||
objProveedor.Dispose()
|
||||
ElseIf objCotizacion.CveColectiva > 0 Then
|
||||
Dim objColectiva As New ClsGenerales
|
||||
|
||||
If objColectiva.GetColectivas(CveColectiva, "-1", "-1", "1", CveEmpresa) Then
|
||||
If objColectiva.DtResultados.Rows.Count > 0 Then
|
||||
lblProveedor.Text = objColectiva.DtResultados.Rows(0)("Colectiva").ToString
|
||||
End If
|
||||
End If
|
||||
objColectiva.Dispose()
|
||||
End If
|
||||
|
||||
|
||||
'Dim CorreosCCP As String() = Nothing
|
||||
Dim StrCorreoPara As String = ""
|
||||
Dim StrCorreos As New StringBuilder
|
||||
Dim Contador As Integer = 1
|
||||
|
||||
If objCotizacion.GetOC(CveOrdenCompra, CveEmpresa) Then
|
||||
If objCotizacion.GetEstatusUsuarios(-1, objCotizacion.CveEstatusSiguiente, -1, CveOrdenCompra, CveEmpresa) Then
|
||||
Dim Usr As New ClsSisUsuarios
|
||||
For Each Row As DataRow In objCotizacion.DtResultados.Rows
|
||||
'Array.Resize(CorreosCCP, If(CorreosCCP IsNot Nothing, UBound(CorreosCCP) + 2, 1))
|
||||
If Usr.GetUsuarios(Row("CveUsuario").ToString.ToEntero) Then
|
||||
If Usr.DtResultados.Rows.Count > 0 AndAlso Usr.DtResultados.Rows(0) IsNot Nothing Then
|
||||
If Contador = 1 Then
|
||||
StrCorreoPara = Usr.DtResultados.Rows(0)("correo").ToString
|
||||
Contador += 1
|
||||
Else
|
||||
StrCorreos.AppendFormat("{0};", Usr.DtResultados.Rows(0)("correo").ToString)
|
||||
End If
|
||||
|
||||
'CorreosCCP(UBound(CorreosCCP)) = Usr.DtResultados.Rows(0)("correo").ToString
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
Usr.Dispose()
|
||||
End If
|
||||
|
||||
ViewState("CorreoCCP") = StrCorreos.ToString
|
||||
ViewState("CorreoPara") = StrCorreoPara
|
||||
|
||||
If objCotizacion.GetCotizacionesDetalle(CveCotizacion, -1) Then
|
||||
DtDetalle = objCotizacion.DtResultados
|
||||
If objCotizacion.DtResultados.COUNT("CveCotizacionDetalle", "PU IS NOT NULL") = 0 Then ViewState("CotizacionActiva") = True Else ViewState("CotizacionActiva") = False
|
||||
GvD.DataSource = DtDetalle
|
||||
GvD.DataBind()
|
||||
End If
|
||||
|
||||
If CotizacionActiva = False Then Alert("Esta cotización ya fue capturada y no puede ser modificada", TipoMensaje.MsgAdvertencia) : BtnGuardar.Visible = False : GvD.Enabled = False : TxtFolio.Enabled = False : FUArchivo.Enabled = False
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
objCotizacion.Dispose()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
|
||||
Dim objCotizacion As New ClsOC
|
||||
objCotizacion.IniciaTransacSQL()
|
||||
Dim TieneError = False
|
||||
|
||||
If objCotizacion.UpdateCotizacion(CveProveedor, CveColectiva, TxtFolio.Text, Now.ToShortDateString(), IO.Path.GetExtension(FUArchivo.FileName), ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, 0, CveCotizacion) Then
|
||||
|
||||
If FUArchivo.HasFile Then
|
||||
'verificar que exista el directorio
|
||||
If Not System.IO.Directory.Exists(String.Format("{0}/Empresas/{1}/Cotizaciones/", AppDomain.CurrentDomain.BaseDirectory, CveEmpresa)) Then
|
||||
System.IO.Directory.CreateDirectory(String.Format("{0}/Empresas/{1}/Cotizaciones/", AppDomain.CurrentDomain.BaseDirectory, CveEmpresa))
|
||||
End If
|
||||
FUArchivo.SaveAs(String.Format("{0}/Empresas/{1}/Cotizaciones/{2}{3}", AppDomain.CurrentDomain.BaseDirectory, CveEmpresa, CveCotizacion, IO.Path.GetExtension(FUArchivo.FileName)))
|
||||
End If
|
||||
|
||||
For Each dr As GridViewRow In GvD.Rows
|
||||
If Not objCotizacion.UpdateCotizacionDetalle(dr.DataKey("CveCotizacionDetalle").ToEntero, dr.FCTextBox("TxtPU").Text.ToDouble, dr.FCTextBox("txtCantidadSurtir").Text.ToDouble, If(dr.FCTextBox("txtFechaEntrega").Text.Trim = "" Or dr.FCTextBox("txtFechaEntrega").Text = "__/__/____", "-1", dr.FCTextBox("txtFechaEntrega").Text), dr.FCTextBox("txtObservacion").Text.ToString) Then
|
||||
TieneError = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If Not TieneError Then
|
||||
objCotizacion.Commit()
|
||||
Alert("Cotización Guardada.", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
objCotizacion.RollBack()
|
||||
Alert("Ocurrió un error al guardar la cotización.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
objCotizacion.Dispose()
|
||||
|
||||
|
||||
'Enviar mail
|
||||
If Not TieneError Then
|
||||
Dim Body As String = GeneraCorreo(CveProveedor, CveCotizacion)
|
||||
|
||||
If Body <> String.Empty AndAlso CorreoPara <> "" Then
|
||||
ViewState("Para") = CorreoPara
|
||||
ViewState("ArrayCC") = CorreoCCP
|
||||
ViewState("Asunto") = "SIG - Cotización Recibida"
|
||||
ViewState("Body") = Body
|
||||
Dim Hilo As New System.Threading.Thread(AddressOf MandaCorreo)
|
||||
Hilo.Start()
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
TxtFolio.Enabled = False
|
||||
FUArchivo.Enabled = False
|
||||
GvD.Enabled = False
|
||||
BtnGuardar.Enabled = False
|
||||
End Sub
|
||||
|
||||
#Region " C O R R E O "
|
||||
Private Sub MandaCorreo()
|
||||
Dim Mail As New ClsSisMail()
|
||||
|
||||
Empresa = ClsPaginas.EmpresaNotificaciones
|
||||
Empresa.Ruta = String.Format("{0}Empresas\{1}\", AppDomain.CurrentDomain.BaseDirectory, CveEmpresa)
|
||||
|
||||
Mail.SendMail(Empresa, ViewState("Para").ToString, ViewState("Asunto").ToString, ViewState("Body").ToString, ViewState("ArrayCC").ToString)
|
||||
|
||||
'Mail.MandaCorreo(Empresa, ViewState("Para").ToString, ViewState("Asunto").ToString, CType(ViewState("ArrayCC"), String()), ViewState("Body").ToString)
|
||||
End Sub
|
||||
|
||||
Private Function GeneraCorreo(CveProveedor As Integer, CveCotizacion As Integer) As String
|
||||
|
||||
Dim objCotizacion As New ClsOC
|
||||
Dim strBody As New StringBuilder
|
||||
|
||||
If objCotizacion.GetOC(CveOrdenCompra, CveEmpresa) Then
|
||||
Dim Folio = "", Descripcion = "", Justificacion = "", Estatus = "", Empresa = "", FechaEstimadaEntrega = ""
|
||||
|
||||
Folio = objCotizacion.Folio
|
||||
Descripcion = objCotizacion.Descripcion
|
||||
Justificacion = objCotizacion.Justificacion
|
||||
Estatus = objCotizacion.Estatus
|
||||
Empresa = objCotizacion.Empresa
|
||||
FechaEstimadaEntrega = objCotizacion.FechaEstimadaEntrega
|
||||
|
||||
If objCotizacion.GetCotizaciones(-1, CveCotizacion) Then
|
||||
strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
|
||||
strBody.Append("<head> ")
|
||||
strBody.Append(" <style type=""text/css""> ")
|
||||
strBody.Append(" body ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" margin:0px; ")
|
||||
strBody.Append(" padding:0px 0px 0px 0px; ")
|
||||
strBody.Append(" font-family: Verdana, Arial, Helvetica, sans-serif; ")
|
||||
strBody.Append(" font-size: 10px; ")
|
||||
strBody.Append(" background-color:#F0F0F0; ")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" a.Texto ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" font-size:11px; ")
|
||||
strBody.Append(" background-color:#F7F6F3; ")
|
||||
strBody.Append(" text-decoration:none; ")
|
||||
strBody.Append(" font-weight:bold; ")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .Texto ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .TextoAlterno ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center; ")
|
||||
strBody.Append(" vertical-align:middle; height:20px;")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .BarraIdentidad ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" color:#FFFFFF; ")
|
||||
strBody.Append(" background:#F0F0F0; ")
|
||||
strBody.Append(" font-weight:bold; ")
|
||||
strBody.Append(" font-size:19px; ")
|
||||
strBody.Append(" font-style:oblique; ")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .Titulos ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" background-color: Gray;")
|
||||
strBody.Append(" color:White; ")
|
||||
strBody.Append(" font-family:Verdana; font-size:12px; text-align:center; ")
|
||||
strBody.Append(" vertical-align:middle; font-weight:bold; height:30px; ")
|
||||
strBody.Append(" text-decoration:none; ")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .Contenido ")
|
||||
strBody.Append(" { ")
|
||||
strBody.Append(" background-color: White;")
|
||||
strBody.Append(" font-family:Verdana; font-size:12px; text-align:center; ")
|
||||
strBody.Append(" vertical-align:middle; font-weight:bold; height:30px; ")
|
||||
strBody.Append(" text-decoration:none; ")
|
||||
strBody.Append(" } ")
|
||||
strBody.Append(" .Verde {color: #00CC00;} ")
|
||||
strBody.Append(" .Negro {color: #000000;} ")
|
||||
strBody.Append(" .Rojo {color: #FF0000;} ")
|
||||
strBody.Append(" </style> ")
|
||||
strBody.Append("</head> ")
|
||||
strBody.Append("<body> ")
|
||||
|
||||
strBody.Append("<div class='Titulos'>Se acaba de recibir una Cotización</div><br>")
|
||||
|
||||
strBody.Append("<div class='Contenido'>")
|
||||
strBody.AppendFormat(" <div id=""C_divOC"" style=""width: 550px""> <fieldset> <legend><b>Datos {0}</b></legend> ", "Cotización")
|
||||
strBody.Append(" <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> ")
|
||||
strBody.Append(" <tr style=""height: 22px""> ")
|
||||
strBody.AppendFormat(" <td style=""width: 90px""> Empresa:</td><td colspan=""3""><b>{0}</b></td> ", Empresa)
|
||||
strBody.Append(" </tr> ")
|
||||
strBody.Append(" <tr style=""height: 22px""> ")
|
||||
strBody.AppendFormat(" <td>Entrega:</td><td><b>{0}</b></td><td> </td><td><b> </b></td> ", FechaEstimadaEntrega)
|
||||
strBody.Append(" </tr> ")
|
||||
'strBody.Append(" <tr style=""height: 20px""> ")
|
||||
'strBody.AppendFormat(" <td>Descripción:</td><td colspan='3'><b>{0}</b></td> ", objOC.Descripcion)
|
||||
'strBody.Append(" </tr> ")
|
||||
'strBody.Append(" <tr style=""height: 20px""> ")
|
||||
'strBody.AppendFormat(" <td>Justificación</td><td colspan=""3""><textarea name=""ctlTJ"" rows=""5"" cols=""20"" readonly=""readonly""id=""ctlTJ"" style=""width: 300px;"">{0}</textarea></td> ", OC.Justificacion)
|
||||
'strBody.Append(" </tr> ")
|
||||
strBody.Append(" </table> ")
|
||||
strBody.Append(" </fieldset> ")
|
||||
strBody.Append(" </div> ")
|
||||
|
||||
strBody.AppendFormat(" <div id=""C_divProv"" style=""width: 550px""> <fieldset> <legend><b>Proveedor</b></legend> ")
|
||||
strBody.Append(" <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> ")
|
||||
strBody.Append(" <tr style=""height: 22px""> ")
|
||||
strBody.AppendFormat(" <td style=""width: 90px""> Folio:</td><td style=""width: 125px""><b>{0}</b></td><td style=""width: 90px""> Estatus: </td><td><b>{1}</b></td> ", Folio, Estatus)
|
||||
strBody.Append(" </tr> ")
|
||||
strBody.Append(" <tr style=""height: 22px""> ")
|
||||
strBody.AppendFormat(" <td style=""width: 90px""> Proveedor:</td><td colspan=""3""><b>{0}</b></td> ", If(objCotizacion.CveProveedor > 0, objCotizacion.RazonSocial, objCotizacion.Colectiva))
|
||||
strBody.Append(" </tr> ")
|
||||
strBody.Append(" <tr style=""height: 20px""> ")
|
||||
strBody.AppendFormat(" <td>Descripción:</td><td colspan='3'><b>{0}</b></td> ", Descripcion)
|
||||
strBody.Append(" </tr> ")
|
||||
strBody.Append(" <tr style=""height: 20px""> ")
|
||||
strBody.AppendFormat(" <td>Justificación</td><td colspan=""3""><textarea name=""ctlTJ"" rows=""5"" cols=""20"" readonly=""readonly""id=""ctlTJ"" style=""width: 300px;"">{0}</textarea></td> ", Justificacion)
|
||||
strBody.Append(" </tr> ")
|
||||
strBody.Append(" </table> ")
|
||||
strBody.Append(" </fieldset> ")
|
||||
strBody.Append(" </div> ")
|
||||
'Cargo el detalle
|
||||
|
||||
strBody.Append(" <div style='width: 550px'> ")
|
||||
strBody.Append(" <fieldset> ")
|
||||
strBody.Append(" <legend>Productos Cotizados</legend> ")
|
||||
strBody.Append(" <table width=""550px""> <tr style='background-color:gray;color:White;font-family:Verdana;font-size:10px;text-align:center;vertical-align:middle;font-weight:bold;height:20px;text-decoration:none;'><th scope='col' style='width: 50px'>Cantidad</th><th scope='col' style='width: 50px'>Unidad</th><th scope='col' style='width: 225px'>Descripción</th><th scope='col' style='width: 100px'>Precio Unitario</th><th scope='col' style='width: 125px'>Importe</th>")
|
||||
'strBody.Append(" <th scope='col' style='width: 100px'>Clasificación</th><th scope='col' style='width: 85px'>Maq</th></tr>")
|
||||
strBody.Append(" </tr>")
|
||||
|
||||
'verifico los permisos según el estatus
|
||||
|
||||
objCotizacion.GetCotizacionesDetalle(CveCotizacion)
|
||||
Dim dtConceptos As DataTable = objCotizacion.DtResultados
|
||||
|
||||
For Each dr As DataRow In dtConceptos.Rows
|
||||
strBody.AppendFormat("<tr class='Texto'><td style='width:50px;'>{0}</td><td style='width:50px;'>{1}</td><td align='left' style='width:225px;'>{2}</td><td style='width:100px;text-align:right;'>${3}</td><td style='width:125px;text-align:right;'>${4}</td></tr>", dr("Cantidad").ToString.FormatoNumero, dr("Abreviatura"), dr("PS"), dr("PU").ToString.FormatoNumero(2), dr("Importe").ToString.FormatoNumero)
|
||||
|
||||
Next
|
||||
strBody.Append(" </table> ")
|
||||
strBody.Append(" </fieldset> ")
|
||||
strBody.Append(" </div> ")
|
||||
|
||||
|
||||
strBody.Append("</div>")
|
||||
strBody.Append("</body></html>")
|
||||
Else
|
||||
OnError("NO SE ENCONTRO COTIZACION AL QUERER MANDAR CORREO DONDE SE CAPTURO COTIZACION", New Exception)
|
||||
End If
|
||||
Else
|
||||
OnError("NO SE ENCONTRO ORDEN DE COMPRA AL QUERER MANDAR CORREO DONDE SE CAPTURO COTIZACION", New Exception)
|
||||
End If
|
||||
|
||||
Return strBody.ToString
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "GV"
|
||||
Protected Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
e.Row.FCCalendarExtender("CEFechaEntrega").StartDate = Date.Now
|
||||
e.Row.FCTextBox("TxtPU").Attributes.Add("onchange", String.Format("$get('{0}').value = FormatNumber(parseFloat(this.value) * parseFloat($get('{1}').value), 2, true, true, true);", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.FCTextBox("TxtCant").ClientID))
|
||||
|
||||
Page.ClientScript.RegisterExpandoAttribute(e.Row.FCCustomValidator("CVFechaEntrega").ClientID, "txtCantidadSurtir", e.Row.FCTextBox("txtCantidadSurtir").ClientID, False)
|
||||
Page.ClientScript.RegisterExpandoAttribute(e.Row.FCCustomValidator("CVPU").ClientID, "txtCantidadSurtirPU", e.Row.FCTextBox("txtCantidadSurtir").ClientID, False)
|
||||
|
||||
e.Row.FCRangeValidator("RVCantidad").MaximumValue = e.Row.DBCampo("Cantidad")
|
||||
e.Row.FCTextBox("TxtPU").Attributes.Add("onkeyup", String.Format("CalculaImporte({0},this,{1})", e.Row.FCTextBox("TxtCantidadSurtir").ClientID, e.Row.FCTextBox("TxtImporte").ClientID))
|
||||
e.Row.FCTextBox("TxtCantidadSurtir").Attributes.Add("onkeyup", String.Format("CalculaImporte(this,{0},{1})", e.Row.FCTextBox("TxtPU").ClientID, e.Row.FCTextBox("TxtImporte").ClientID))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function Parametros(Cadena As String) As Hashtable
|
||||
Dim P1() As String = Cadena.Split("&"c)
|
||||
Dim Tmp As String
|
||||
Dim P2() As String
|
||||
|
||||
Dim URLParametros As New Hashtable
|
||||
|
||||
For Each Tmp In P1
|
||||
P2 = Tmp.Split("="c)
|
||||
URLParametros.Add(P2(0).ToString.ToUpper, P2(1))
|
||||
Next
|
||||
Return URLParametros
|
||||
End Function
|
||||
#End Region
|
||||
End Class
|
||||
Reference in New Issue
Block a user