Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -2299,7 +2299,6 @@ Partial Class Clientes
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
|
||||
Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
|
||||
Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
|
||||
@@ -2308,9 +2307,9 @@ Partial Class Clientes
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto.Value.Contiene("Ing", "Egs", "Ant", "Dev") Then
|
||||
If File.Exists($"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf") AndAlso File.Exists($"{Ruta}XML\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.xml") Then
|
||||
Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf"
|
||||
Dim XML As String = $"{Ruta}XML\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.xml"
|
||||
Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf"
|
||||
Dim XML As String = $"{Ruta}XML\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.xml"
|
||||
If File.Exists(PDF) AndAlso File.Exists(XML) Then
|
||||
|
||||
Dim ResultadoMail As Integer = 0
|
||||
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
||||
@@ -2344,38 +2343,38 @@ Partial Class Clientes
|
||||
Else
|
||||
Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
|
||||
End If
|
||||
ElseIf UsuarioActual.Empresa.TipoFacturacion = "CBB" AndAlso HdnTipoDocto.Value.Contiene("Ing", "Egs", "Ant", "Dev") Then
|
||||
If File.Exists(Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf") Then
|
||||
Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf"
|
||||
'ElseIf UsuarioActual.Empresa.TipoFacturacion = "CBB" AndAlso HdnTipoDocto.Value.Contiene("Ing", "Egs", "Ant", "Dev") Then
|
||||
' If File.Exists(Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf") Then
|
||||
' Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf"
|
||||
|
||||
Dim ResultadoMail As Integer = 0
|
||||
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF})
|
||||
If Dr("Adjunto").ToString() <> "" Then
|
||||
Adjunto = Dr("Adjunto").ToString()
|
||||
Dim ArchivoAdjunto As String = $"{Ruta}Ventas\{Adjunto}"
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoAdjunto})
|
||||
End If
|
||||
' Dim ResultadoMail As Integer = 0
|
||||
' Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
||||
' LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF})
|
||||
' If Dr("Adjunto").ToString() <> "" Then
|
||||
' Adjunto = Dr("Adjunto").ToString()
|
||||
' Dim ArchivoAdjunto As String = $"{Ruta}Ventas\{Adjunto}"
|
||||
' LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoAdjunto})
|
||||
' End If
|
||||
|
||||
'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
|
||||
If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, Asunto, Cuerpo, TxtCC.Text.Trim, LSRutasMail) Then
|
||||
ResultadoMail = 1
|
||||
TxtCC.Text = ""
|
||||
TxtBody.Text = ""
|
||||
RegistraScript("$('#ModalDivMail').modal('hide');")
|
||||
Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
|
||||
CargaHistorial()
|
||||
UpnHistorial.Update()
|
||||
Else
|
||||
ResultadoMail = 3
|
||||
End If
|
||||
' 'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
|
||||
' If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, Asunto, Cuerpo, TxtCC.Text.Trim, LSRutasMail) Then
|
||||
' ResultadoMail = 1
|
||||
' TxtCC.Text = ""
|
||||
' TxtBody.Text = ""
|
||||
' RegistraScript("$('#ModalDivMail').modal('hide');")
|
||||
' Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
|
||||
' CargaHistorial()
|
||||
' UpnHistorial.Update()
|
||||
' Else
|
||||
' ResultadoMail = 3
|
||||
' End If
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero())
|
||||
ObjVentas.Dispose()
|
||||
Else
|
||||
Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
|
||||
End If
|
||||
' Dim ObjVentas As New ClsVentas
|
||||
' ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero())
|
||||
' ObjVentas.Dispose()
|
||||
' Else
|
||||
' Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
|
||||
' End If
|
||||
ElseIf HdnTipoDocto.Value = "Cot" Then
|
||||
If File.Exists($"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf") Then
|
||||
Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf"
|
||||
@@ -2966,7 +2965,7 @@ Partial Class Clientes
|
||||
'HLRemision.HRef = $"/Ventas/Ventas.aspx?CveRemision={e.Row.DBCampo("CveVenta")}"
|
||||
|
||||
Dim Liga As String = String.Format("< a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">", e.Row.DBCampo("CveVenta"))
|
||||
HLSendMail.HRef = String.Format("javascript:(function mail(){{$get('HdnTipoDocto').value='{0}';$get('HdnCveVenta').value='{1}';$get('HdnFolioVenta').value='{2}';$get('TxtParaMail').value='{3}';$get('HdnSerieFolio').value='{4}';$get('HdnSubProyecto').value='{5}';$('#ModalDivMail').modal();return false;}})();", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveVenta"), e.Row.DBCampo("folio"), e.Row.DBCampo("Correo"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("SubProyecto"))
|
||||
HLSendMail.HRef = String.Format("javascript:(function mail(){{$get('HdnTipoDocto').value='{0}';$get('HdnCveVenta').value='{1}';$get('HdnFolioVenta').value='{2}';$get('TxtParaMail').value='{3}';$get('HdnSerieFolio').value='{4}';$get('HdnSubProyecto').value='{5}';$('#ModalDivMail').modal();void(0);}})();", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveVenta"), e.Row.DBCampo("folio"), e.Row.DBCampo("Correo"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("SubProyecto"))
|
||||
e.Row.FCLiteral("LtlFactura").Text = String.Format("<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">{1}</a>", e.Row.DBCampo("CveVenta"), e.Row.DBCampo("Folio"))
|
||||
|
||||
UpSendMail.Update()
|
||||
|
||||
@@ -385,6 +385,7 @@
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12" id="DivLlantas" runat="server" visible="false">
|
||||
<div class="portlet xspadding light bordered">
|
||||
@@ -434,6 +435,7 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<asp:UpdatePanel ID="UpPSAdicionales" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
@@ -495,6 +497,45 @@
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12" id="DivCitricos" runat="server" visible="false">
|
||||
<div class="portlet xspadding light bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-briefcase font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Cítricos</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form">
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlEmpacado" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoEmpacado" DataValueField="CveTipoEmpacado" Height="22px">
|
||||
<asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlEmpacado.ClientID.ToString()%>">Empacado:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlTipoOrganico" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoOrganico" DataValueField="CveTipoOrganico" Height="22px">
|
||||
<asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlTipoOrganico.ClientID.ToString()%>">Tipo Orgánico:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
|
||||
@@ -397,6 +397,12 @@ Partial Class ProductosyServicios
|
||||
|
||||
CvePSAdicional = -1
|
||||
|
||||
'Nueva funcionalidad MLopez: 18/11/2022 -- Empresa Citrícola
|
||||
If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then
|
||||
DivCitricos.Visible = True
|
||||
CargaPanelCitricos()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
'Private Sub CargaPSAdicional(Objeto As ADServerControl.Dropdownlost)
|
||||
@@ -431,6 +437,22 @@ Partial Class ProductosyServicios
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaPanelCitricos()
|
||||
Dim ObjGral As New ClsGenerales()
|
||||
If ObjGral.GetEmpacados(UsuarioActual.CveEmpresa) Then
|
||||
DdlEmpacado.DataSource = ObjGral.DtResultados
|
||||
End If
|
||||
If ObjGral.GetTipoOrganicos(UsuarioActual.CveEmpresa) Then
|
||||
DdlTipoOrganico.DataSource = ObjGral.DtResultados
|
||||
End If
|
||||
ObjGral.Dispose()
|
||||
|
||||
DdlEmpacado.DataBind()
|
||||
DdlTipoOrganico.DataBind()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub MuestraPanel(Optional AfterPageLoad As Boolean = False)
|
||||
If AfterPageLoad Then
|
||||
RegistraScript("window.onload = function MuestraPanel() { document.getElementById(""C_BtnMostrarPanel"").click(); }")
|
||||
@@ -940,6 +962,9 @@ Partial Class ProductosyServicios
|
||||
' DdlPSAdicional.SelectedText = "Seleccione"
|
||||
'End If
|
||||
|
||||
DdlEmpacado.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTipoEmpacado").ToString)
|
||||
DdlTipoOrganico.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTipoOrganico").ToString)
|
||||
|
||||
Try
|
||||
DdlClasificacion_SelectedIndexChanged(DdlClasificacion, Nothing)
|
||||
|
||||
@@ -1428,6 +1453,7 @@ Partial Class ProductosyServicios
|
||||
CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
|
||||
CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=CveTamaño,
|
||||
CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
|
||||
CveTipoEmpacado:=DdlEmpacado.SelectedValue.ToEntero(), CveTipoOrganico:=DdlTipoOrganico.SelectedValue.ToEntero(),
|
||||
ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
|
||||
ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
|
||||
CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim,
|
||||
@@ -1478,6 +1504,7 @@ Partial Class ProductosyServicios
|
||||
CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
|
||||
CveUsuarioModifico:=UsuarioActual.CveUsuario, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=CveTamaño,
|
||||
CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
|
||||
CveTipoEmpacado:=DdlEmpacado.SelectedValue.ToEntero(), CveTipoOrganico:=DdlTipoOrganico.SelectedValue.ToEntero(),
|
||||
ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
|
||||
ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
|
||||
AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
|
||||
@@ -1588,7 +1615,7 @@ Partial Class ProductosyServicios
|
||||
Dim ObjAliasAdd As New ClsProductosServicios
|
||||
Dim TieneError = False
|
||||
|
||||
If ObjAliasAdd.AddPSAlias(TxtAlias.Text.ToString, CvePS, False, UsuarioActual.CveUsuario) Then
|
||||
If ObjAliasAdd.AddPSAlias(TxtAlias.Text.ToString, CvePS, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
CargarAlias()
|
||||
UPGVAlias.Update()
|
||||
Alert("Alias " + TxtAlias.Text + " agregado.", TipoMensaje.MsgInformacion)
|
||||
|
||||
@@ -47,6 +47,14 @@
|
||||
<label class="col-md-2 truncate">Promoción:</label>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox ID="TxtPromocion" Width="90%" runat="server" />
|
||||
<div>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtPromocion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtPromocion" Display="Dynamic"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Promoción''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar">
|
||||
</asp:RequiredFieldValidator>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
|
||||
@@ -404,7 +404,8 @@
|
||||
<div class="caption font-green">
|
||||
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase"><a id="HlCliente" href="javascript:void(0);" runat="server" class="Texto" onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarClientes.aspx?Opt=Fact', 800, 547, 'N', 'PopUpBuscar')">Cliente: </a></span>
|
||||
<span class="caption-subject bold uppercase"><a id="HlCliente" href="javascript:void(0);" runat="server" class="Texto" onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarClientes.aspx?Opt=Fact', 800, 547, 'N', 'PopUpBuscar')">
|
||||
<asp:Label runat="server" id="LblTituloPorletCliente" Text ="Cliente:"> </asp:Label></a></span>
|
||||
<asp:LinkButton ID="LnkAgregarCliente" runat="server" AlternateText="Agregar Cliente" Text="<i class='fa fa-plus-square'></i>" />
|
||||
<asp:TextBox ID="TxtCodigo" runat="server" AutoPostBack="true" BorderStyle="None" Width="65px"></asp:TextBox>
|
||||
<asp:HiddenField ID="HdnCveCliente" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
@@ -424,20 +425,15 @@
|
||||
<div class="form-body">
|
||||
|
||||
<table border="0" width="463px">
|
||||
<tr align="left">
|
||||
|
||||
<tr align="left" runat="server" id="trNombreCliente">
|
||||
<td width="95px"><b>Nombre:</b> </td>
|
||||
<td width="200px">
|
||||
<asp:Label ID="LblCliente" runat="server" Text="Cliente"></asp:Label></td>
|
||||
<td width="85px" runat="server" id="LblEnviarMail"><b>Enviar Mail:</b></td>
|
||||
<td width="135px">
|
||||
<asp:CheckBox ID="ChkEnviarFactura" runat="server" /></td>
|
||||
</tr>
|
||||
<%-- <tr runat="server" id="trFacturacionSucursal" visible="false">
|
||||
<td><b>Facturar Sucursal :</b></td>
|
||||
<td>
|
||||
<asp:CheckBox ID="ChkFacturarSucursal" runat="server" OnCheckedChanged="ChkFacturarSucursal_CheckedChanged" />
|
||||
</td>
|
||||
</tr>--%>
|
||||
</tr>
|
||||
<tr runat="server" id="trsucursalciente" visible="false">
|
||||
<td align="left"><b>
|
||||
<asp:Label ID="LblSucursal" runat="server" Text="Sucursal"></asp:Label>
|
||||
@@ -510,6 +506,26 @@
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
<%--CRM--%>
|
||||
<tr align="left" runat="server" id="trCRM1" visible="false">
|
||||
<td width="95px"><b>Empresa:</b> </td>
|
||||
<td width="200px">
|
||||
<asp:Label ID="LblEmpresaCRM" runat="server" Text="Cliente"></asp:Label></td>
|
||||
</tr>
|
||||
<tr align="left" runat="server" id="trCRM2" visible="false" >
|
||||
<td><b>RFC:</b> </td>
|
||||
<td>
|
||||
<asp:Label ID="LblRFCCRM" runat="server" Text="AAA010101AAA"></asp:Label></td>
|
||||
</tr>
|
||||
<tr align="left" runat="server" id="trCRM3" visible="false" >
|
||||
<td><b>Medio de Captación::</b> </td>
|
||||
<td>
|
||||
<asp:Label ID="LblMedioCaptacionCRM" runat="server" Text=""></asp:Label></td>
|
||||
</tr>
|
||||
<%--CRM--%>
|
||||
|
||||
|
||||
<tr runat="server" id="TrAtencionA" visible="false">
|
||||
<td><b>Atención A:</b></td>
|
||||
<td>
|
||||
@@ -536,16 +552,20 @@
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<asp:UpdatePanel ID="UpEmpresaCRM" runat="server" Visible="false" UpdateMode="Conditional" class="portlet light xspadding bordered whitoutcol" style="width: 473px;">
|
||||
<%-- <asp:UpdatePanel ID="UpEmpresaCRM" runat="server" Visible="false" UpdateMode="Conditional" class="portlet light xspadding bordered whitoutcol" style="width: 473px;">
|
||||
<ContentTemplate>
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<div class="caption font-green" >
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">EMPRESA CRM </span>
|
||||
</div>
|
||||
@@ -557,26 +577,15 @@
|
||||
<div class="form-body">
|
||||
|
||||
<table border="0" width="463px">
|
||||
<tr align="left">
|
||||
<td width="95px"><b>Empresa:</b> </td>
|
||||
<td width="200px">
|
||||
<asp:Label ID="LblEmpresaCRM" runat="server" Text="Cliente"></asp:Label></td>
|
||||
</tr>
|
||||
<tr align="left">
|
||||
<td><b>RFC:</b> </td>
|
||||
<td>
|
||||
<asp:Label ID="LblRFCCRM" runat="server" Text="AAA010101AAA"></asp:Label></td>
|
||||
</tr>
|
||||
<tr align="left">
|
||||
<td><b>Medio de Captación::</b> </td>
|
||||
<td>
|
||||
<asp:Label ID="LblMedioCaptacionCRM" runat="server" Text=""></asp:Label></td>
|
||||
</tr>
|
||||
|
||||
|
||||
|
||||
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:UpdatePanel>--%>
|
||||
|
||||
<asp:UpdatePanel ID="UpParametros" runat="server" UpdateMode="Conditional" class="portlet light xspadding .nolineheight bordered whitoutcol" style="width: 310px;">
|
||||
<ContentTemplate>
|
||||
|
||||
@@ -2407,7 +2407,7 @@ Partial Class Ventas
|
||||
UpFacturar.Update()
|
||||
'CargaTiposDocumentos()
|
||||
TrEmitir.Visible = False
|
||||
If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
||||
If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83, 172, 173) Then
|
||||
DivCartaPorte.Visible = True
|
||||
End If
|
||||
ViewState("EstablecioFolio") = False
|
||||
@@ -2512,7 +2512,13 @@ Partial Class Ventas
|
||||
TrObsAlmacen.Visible = False
|
||||
TrTxtObsAlmacen.Visible = False
|
||||
TrPedido.Visible = False
|
||||
|
||||
|
||||
|
||||
TrOC.Visible = False
|
||||
|
||||
|
||||
|
||||
DdlTipoComprobante.SelectedValue = "Op"
|
||||
Else
|
||||
Opcion = "Ing"
|
||||
@@ -6164,6 +6170,8 @@ Partial Class Ventas
|
||||
If CveSubProyecto > 0 Then DdlSubProyecto.SelectedValueExist(CveSubProyecto)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub CargaEmpresaCRM(CveEmpresaCRM As Integer)
|
||||
Dim ObjCRM As New ClsCRM
|
||||
If ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa, CveEmpresaCRM) Then
|
||||
@@ -6180,7 +6188,8 @@ Partial Class Ventas
|
||||
TxtCodigo.ReadOnly = True
|
||||
|
||||
UpCliente.Visible = True
|
||||
UpEmpresaCRM.Visible = False
|
||||
|
||||
'UpEmpresaCRM.Visible = False
|
||||
Else
|
||||
LblEmpresaCRM.Text = ObjCRM.DtResultados.Rows(0)("Empresa").ToString()
|
||||
LblRFCCRM.Text = ObjCRM.DtResultados.Rows(0)("RFC").ToString()
|
||||
@@ -6190,8 +6199,28 @@ Partial Class Ventas
|
||||
LblEnviarMail.Visible = False
|
||||
|
||||
UPCondicionesPago.Visible = True
|
||||
UpCliente.Visible = False
|
||||
UpEmpresaCRM.Visible = True
|
||||
'UpCliente.Visible = False
|
||||
'UpEmpresaCRM.Visible = True
|
||||
|
||||
trNombreCliente.Visible = False
|
||||
trsucursalciente.Visible = False
|
||||
TrDireccion.Visible = False
|
||||
TrCiudad.Visible = False
|
||||
TrRFC.Visible = False
|
||||
TrOP.Visible = False
|
||||
trDireccionEnvio.Visible = False
|
||||
|
||||
TrAtencionA.Visible = True
|
||||
trCRM1.Visible = True
|
||||
trCRM2.Visible = True
|
||||
trCRM3.Visible = True
|
||||
|
||||
LblTituloPorletCliente.Text = "EMPRESA CRM"
|
||||
|
||||
tdTelefonoGen.Visible = False
|
||||
tdTxtTelefonoGen.Visible = False
|
||||
|
||||
|
||||
|
||||
End If
|
||||
Me.CveVendedorEmpresaCRM = ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString().ToEntero()
|
||||
@@ -6199,16 +6228,22 @@ Partial Class Ventas
|
||||
DdlVendedor.SelectedValueExist(ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString())
|
||||
DdlVendedor.Enabled = False
|
||||
LbAgregar.Enabled = True
|
||||
|
||||
'TrAtencionA.Visible = True
|
||||
TrOC.Visible = True
|
||||
|
||||
End If
|
||||
|
||||
|
||||
ThTiempoEntrega.Visible = True
|
||||
ThTiempoEntrega2.Visible = True
|
||||
GvPS.Columns(5).Visible = True
|
||||
ThTiempoEntrega2.Visible = True
|
||||
GvPS.Columns(5).Visible = True
|
||||
|
||||
End If
|
||||
ObjCRM.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = -1)
|
||||
|
||||
If CveCliente <= 0 Then Exit Sub
|
||||
@@ -17801,7 +17836,7 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
'SI NO TIENE LA FUNCIONALIDAD VALIDARA LAS MONEDAS
|
||||
If Not UsuarioActual.Empresa.Funcionalidad(524) <> "" Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(524) <> "" Then
|
||||
If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count >= 1 Then
|
||||
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
|
||||
If DrPS IsNot Nothing Then
|
||||
|
||||
Reference in New Issue
Block a user