diff --git a/Ventas/RepVentasDetalle.aspx b/Ventas/RepVentasDetalle.aspx index 5f2199af1..40f6f00f6 100644 --- a/Ventas/RepVentasDetalle.aspx +++ b/Ventas/RepVentasDetalle.aspx @@ -607,6 +607,11 @@ + + + + + <%-- 42--%> @@ -809,7 +814,7 @@ - + diff --git a/Ventas/RepVentasDetalle.aspx.vb b/Ventas/RepVentasDetalle.aspx.vb index ea4bce6d1..680bc7f08 100644 --- a/Ventas/RepVentasDetalle.aspx.vb +++ b/Ventas/RepVentasDetalle.aspx.vb @@ -749,6 +749,7 @@ Partial Class RepVentasDetalle If ChkTC.Checked Then ListPersonalizada.Add("TC") If ChkDescripcionVenta.Checked Then ListPersonalizada.Add("DescripcionVenta") + If ChkGestionCobranzaTurno.Checked Then ListPersonalizada.Add("CobranzaEstatusTurno") If ChkDescargarPDF.Checked Then ListPersonalizada.Add("PDF") @@ -944,6 +945,9 @@ Partial Class RepVentasDetalle Case "DescripcionVenta" ChkDescripcionVenta.Checked = True Exit Select + Case "CobranzaEstatusTurno" + ChkGestionCobranzaTurno.Checked = True + Exit Select Case "XML" ChkDescargarXML.Checked = True Exit Select @@ -1009,8 +1013,9 @@ Partial Class RepVentasDetalle GvDatos.Columns(39).Visible = ChkKilometraje.Checked GvDatos.Columns(40).Visible = ChkTC.Checked GvDatos.Columns(41).Visible = ChkDescripcionVenta.Checked - GvDatos.Columns(42).Visible = ChkDescargarXML.Checked - GvDatos.Columns(43).Visible = ChkDescargarPDF.Checked + GvDatos.Columns(42).Visible = ChkGestionCobranzaTurno.Checked + GvDatos.Columns(43).Visible = ChkDescargarXML.Checked + GvDatos.Columns(44).Visible = ChkDescargarPDF.Checked Personalizo = 1 If Personalizo = 1 Then diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 340c0f9ae..f24257320 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -3895,6 +3895,14 @@ + + Cobranza: + + + + + +
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c5073fc3c..21210923a 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2577,1045 +2577,1048 @@ Partial Class Ventas End If If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.CveUsuario = 100 Then DivPenalizacion.Visible = True + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + CargaGestionCobranza() + End If If UsuarioActual.Empresa.Funcionalidad(595) = "2" Then - LnkSolicitarCredito.Visible = True - End If - - DdlSATPS.setEsWebService(True) : DdlSATPS.Attributes.Add("data-metodo", "getpssat") - DivPSSAT.Visible = True - - SetValues() - CvePresupuesto = 0 - - 'MODALIDADES - If Request("Op") IsNot Nothing AndAlso Request("Op").ToString() <> "" Then - Opcion = Request("Op").ToString() - LblTitulo.Text = "Registro de Cotizaciones" - TrTipo.Visible = False - TabAlmacen.Visible = False - TabDetalleVentas.Visible = False - TabVentaAF.Visible = False - TabE.Visible = False - TabComplementos.Visible = False - divcondicionespago.Visible = UsuarioActual.Empresa.CvePlataforma = 1 'SI ES PLATAFORMA ERP SIEMPRE VSIBLE ESTE PORLET - ImgAntiPend.Visible = False - TrObsAlmacen.Visible = False - TrTxtObsAlmacen.Visible = False - TrPedido.Visible = False - TrOC.Visible = False - DdlTipoComprobante.SelectedValue = "Op" - Else - Opcion = "Ing" - DdlTipoComprobante.SelectedValue = "Ing" - End If - 'DdlTipoComprobante.Attributes.Add("onChange", "ActivaReferencia(this)") - TxtFecha.Text = NowADS().ToShortDateString() - TxtFechaEjecucion.Text = NowADS().ToShortDateString - LblUsuario.Text = UsuarioActual.Usuario - LblFechaRegistro.Text = NowADS().ToShortDateString() - - ImgDescPU.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '0'; $get('LblPrecio1').style.display = ''; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = 'none'; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = ''; $get('BtnAplicarDescG').style.display = 'none'; $get('TrMotivoDescuento').style.display = '';") - ImgDescConcepto.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '1'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = ''; $get('LblSubTotal1').style.display = 'none'; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = ''; $get('BtnAplicarDescG').style.display = 'none'; $get('TrMotivoDescuento').style.display = '';") - ImgDescTotal.Visible = False - - ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';") - 'ImgAntiPend.Attributes.Add("onclick", "$get('HdnTipoDescuento').value = '3'; MuestraAnticipos();") - ImgOtrosConceptos.Attributes.Add("onclick", "javascript:$('#ModalOtrosConceptos').modal();") - 'LkbAgregarComplementos.Attributes.Add("onclick", "javascript:$('#ModalComplementos').modal();") - 'ImgCerrar.Attributes.Add("OnClick", "$('#DivAnticipos').hide();") - 'LkbEstadodeCaja.Attributes.Add("OnClick", "MuestraEstadoCaja();") - 'LkbIngreso.Attributes.Add("OnClick", "MuestraIngresoEgreso(1);") - 'LkbRetiro.Attributes.Add("OnClick", "MuestraIngresoEgreso(0);") - TxtImporteEfectivo.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") - TxtImporteCredito.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") - TxtImporteDebito.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") - TxtImporteCheque.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") - TxtImporteTransferencia.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") - TxtImporteOtrosContado.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") - - TxtEfectivoEnCaja.Attributes.Add("onKeyUp", "CalculaDiferencia();") - TxtEfectivoCajaBloqueo.Attributes.Add("onKeyUp", "CalculaDiferenciaBloqueo();") - - 'ImgCerrarTerminoCorte.Attributes.Add("OnClick", "$('#DivTerminarCorte').hide();") - 'ImgCerrarIE.Attributes.Add("OnClick", "$('#DivIngresoEgreso').hide();")DdlTipoComprobante - 'ImgCerrarEstadoCaja.Attributes.Add("OnClick", "$('#DivEstadoCaja').hide();") - TabAlmacen.Enabled = UsuarioActual.Empresa.UsaInventarios - TxtPorDescP.Attributes.Add("onKeyUp", "CalculaDescuento();") - TxtDescP.Attributes.Add("onKeyUp", "CalculaDescuento();") - TxtPorPS.Attributes.Add("onKeyUp", "CalculaDescPS();") - - CreaDTmpC() - CreaDTmpF() - CreaDTDocumentosRelacionados() - CargaDdlSubProyectos() - 'CargaProyecto() - CargaSucursales() - - CargaClasificaciones() - CargaPS(-1, DdlPS) - CargaPS(-1, DdlPSMercancia) - CargaPS(-1, DdlPSFlete) - 'CargaPSRemision(-1, DdlPSRemision) - - CreaDTVentas() - CargaMetodosPago() - 'CargaFormaPago(-1) - CargaUsoCFDI() - CargaMotivosCancelacion() - CargaTiposRelacion() - CargaMonedas() - CargaVendedores() - CargarAlmacenes() - If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then - CargaFormaEntrega() - 'DdlClasificacion.Visible = False - 'ltlbr.Visible = False - End If - - CargaCuentasTerminal() - 'CargaDdlNCPS() - 'CargarCamiones() - - If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then - CargaMedicos() - CargaProcedimientos() - CargaDdlClientesSucursal() - End If - - - 'SI USUARIO USA AMORTIZACIÓN CONTABLE, se carga las tablas para usarlas mas adelante - If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then - - DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem")) - DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Cot")) - DdlTipoComprobante.Items.Add(New ListItem("Compromisos", "Com")) - DdlTipoComprobante.Items.Add(New ListItem("Orden Pago", "OP")) - - Dim AC As New ClsAC - If AC.GetPresupuestoIngresos(-1, NowADS().Year, True, UsuarioActual.CveEmpresa) Then - DdlFuenteRecaudacion.DataSource = AC.DtResultados() - DTPresupuestoIngresos = AC.DtResultados() - ViewState("DTFuenteRecaudacion") = AC.DtResultados() - 'GenerarPolizasAC() + LnkSolicitarCredito.Visible = True End If - AC.Dispose() - 'columna de Fuente de recaudacion - GvPS.Columns(21).Visible = True - nomostrar.Visible = True - nomostrar2.Visible = True - 'GvPS.Width = 1250 - DdlFuenteRecaudacion.DataBind() - Else - TFuenteRecaudacion.Visible = False - End If - 'Carga cliente - If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero() > 0 AndAlso Request("CveFactura") Is Nothing Then - ViewState("CveCliente") = Request("CveCliente") - HdnCveCliente.Value = Request("CveCliente") - CargaCliente(CveCliente) - VerificarContrato(True) - Else - ViewState("CveCliente") = -1 - HdnCveCliente.Value = "-1" + DdlSATPS.setEsWebService(True) : DdlSATPS.Attributes.Add("data-metodo", "getpssat") + DivPSSAT.Visible = True - 'SI TIENE UN CLIENTE POR DEFECTO DEBE CARGARLO AL INICIAR - If UsuarioActual.Empresa.Funcionalidad(714).ToEntero() > 0 Then - ViewState("CveCliente") = UsuarioActual.Empresa.Funcionalidad(714).ToEntero() - HdnCveCliente.Value = UsuarioActual.Empresa.Funcionalidad(714) - RBLPago.SelectedValue = "2" - RBLPago_SelectedIndexChanged(RBLPago, EventArgs.Empty) - CargaCliente(CveCliente) + SetValues() + CvePresupuesto = 0 + + 'MODALIDADES + If Request("Op") IsNot Nothing AndAlso Request("Op").ToString() <> "" Then + Opcion = Request("Op").ToString() + LblTitulo.Text = "Registro de Cotizaciones" + TrTipo.Visible = False + TabAlmacen.Visible = False + TabDetalleVentas.Visible = False + TabVentaAF.Visible = False + TabE.Visible = False + TabComplementos.Visible = False + divcondicionespago.Visible = UsuarioActual.Empresa.CvePlataforma = 1 'SI ES PLATAFORMA ERP SIEMPRE VSIBLE ESTE PORLET + ImgAntiPend.Visible = False + TrObsAlmacen.Visible = False + TrTxtObsAlmacen.Visible = False + TrPedido.Visible = False + TrOC.Visible = False + DdlTipoComprobante.SelectedValue = "Op" + Else + Opcion = "Ing" + DdlTipoComprobante.SelectedValue = "Ing" End If + 'DdlTipoComprobante.Attributes.Add("onChange", "ActivaReferencia(this)") + TxtFecha.Text = NowADS().ToShortDateString() + TxtFechaEjecucion.Text = NowADS().ToShortDateString + LblUsuario.Text = UsuarioActual.Usuario + LblFechaRegistro.Text = NowADS().ToShortDateString() + + ImgDescPU.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '0'; $get('LblPrecio1').style.display = ''; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = 'none'; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = ''; $get('BtnAplicarDescG').style.display = 'none'; $get('TrMotivoDescuento').style.display = '';") + ImgDescConcepto.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '1'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = ''; $get('LblSubTotal1').style.display = 'none'; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = ''; $get('BtnAplicarDescG').style.display = 'none'; $get('TrMotivoDescuento').style.display = '';") + ImgDescTotal.Visible = False + + ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';") + 'ImgAntiPend.Attributes.Add("onclick", "$get('HdnTipoDescuento').value = '3'; MuestraAnticipos();") + ImgOtrosConceptos.Attributes.Add("onclick", "javascript:$('#ModalOtrosConceptos').modal();") + 'LkbAgregarComplementos.Attributes.Add("onclick", "javascript:$('#ModalComplementos').modal();") + 'ImgCerrar.Attributes.Add("OnClick", "$('#DivAnticipos').hide();") + 'LkbEstadodeCaja.Attributes.Add("OnClick", "MuestraEstadoCaja();") + 'LkbIngreso.Attributes.Add("OnClick", "MuestraIngresoEgreso(1);") + 'LkbRetiro.Attributes.Add("OnClick", "MuestraIngresoEgreso(0);") + TxtImporteEfectivo.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") + TxtImporteCredito.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") + TxtImporteDebito.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") + TxtImporteCheque.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") + TxtImporteTransferencia.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") + TxtImporteOtrosContado.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") + + TxtEfectivoEnCaja.Attributes.Add("onKeyUp", "CalculaDiferencia();") + TxtEfectivoCajaBloqueo.Attributes.Add("onKeyUp", "CalculaDiferenciaBloqueo();") + + 'ImgCerrarTerminoCorte.Attributes.Add("OnClick", "$('#DivTerminarCorte').hide();") + 'ImgCerrarIE.Attributes.Add("OnClick", "$('#DivIngresoEgreso').hide();")DdlTipoComprobante + 'ImgCerrarEstadoCaja.Attributes.Add("OnClick", "$('#DivEstadoCaja').hide();") + TabAlmacen.Enabled = UsuarioActual.Empresa.UsaInventarios + TxtPorDescP.Attributes.Add("onKeyUp", "CalculaDescuento();") + TxtDescP.Attributes.Add("onKeyUp", "CalculaDescuento();") + TxtPorPS.Attributes.Add("onKeyUp", "CalculaDescPS();") + + CreaDTmpC() + CreaDTmpF() + CreaDTDocumentosRelacionados() + CargaDdlSubProyectos() + 'CargaProyecto() + CargaSucursales() + + CargaClasificaciones() + CargaPS(-1, DdlPS) + CargaPS(-1, DdlPSMercancia) + CargaPS(-1, DdlPSFlete) + 'CargaPSRemision(-1, DdlPSRemision) + + CreaDTVentas() + CargaMetodosPago() + 'CargaFormaPago(-1) + CargaUsoCFDI() + CargaMotivosCancelacion() + CargaTiposRelacion() + CargaMonedas() + CargaVendedores() + CargarAlmacenes() + If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then + CargaFormaEntrega() + 'DdlClasificacion.Visible = False + 'ltlbr.Visible = False + End If + + CargaCuentasTerminal() + 'CargaDdlNCPS() + 'CargarCamiones() If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then - 'SI ES COTIZACION CARGAR CLIENTE PUBLICO GENERAL - If Opcion = "Cot" Then - Dim CveClientePG As Integer = -1 - If UsuarioActual.CveEmpresa = 186 Then - CveClientePG = 1151377 - ViewState("CveCliente") = CveClientePG - HdnCveCliente.Value = CveClientePG.ToString() - CargaCliente(CveCliente) + CargaMedicos() + CargaProcedimientos() + CargaDdlClientesSucursal() + End If - TrVentasMedicas2.Visible = False - TrVentasMedicas3.Visible = False + + 'SI USUARIO USA AMORTIZACIÓN CONTABLE, se carga las tablas para usarlas mas adelante + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then + + DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem")) + DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Cot")) + DdlTipoComprobante.Items.Add(New ListItem("Compromisos", "Com")) + DdlTipoComprobante.Items.Add(New ListItem("Orden Pago", "OP")) + + Dim AC As New ClsAC + If AC.GetPresupuestoIngresos(-1, NowADS().Year, True, UsuarioActual.CveEmpresa) Then + DdlFuenteRecaudacion.DataSource = AC.DtResultados() + DTPresupuestoIngresos = AC.DtResultados() + ViewState("DTFuenteRecaudacion") = AC.DtResultados() + 'GenerarPolizasAC() + End If + AC.Dispose() + 'columna de Fuente de recaudacion + GvPS.Columns(21).Visible = True + nomostrar.Visible = True + nomostrar2.Visible = True + 'GvPS.Width = 1250 + DdlFuenteRecaudacion.DataBind() + Else + TFuenteRecaudacion.Visible = False + End If + + 'Carga cliente + If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero() > 0 AndAlso Request("CveFactura") Is Nothing Then + ViewState("CveCliente") = Request("CveCliente") + HdnCveCliente.Value = Request("CveCliente") + CargaCliente(CveCliente) + VerificarContrato(True) + Else + ViewState("CveCliente") = -1 + HdnCveCliente.Value = "-1" + + 'SI TIENE UN CLIENTE POR DEFECTO DEBE CARGARLO AL INICIAR + If UsuarioActual.Empresa.Funcionalidad(714).ToEntero() > 0 Then + ViewState("CveCliente") = UsuarioActual.Empresa.Funcionalidad(714).ToEntero() + HdnCveCliente.Value = UsuarioActual.Empresa.Funcionalidad(714) + RBLPago.SelectedValue = "2" + RBLPago_SelectedIndexChanged(RBLPago, EventArgs.Empty) + CargaCliente(CveCliente) + End If + + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + 'SI ES COTIZACION CARGAR CLIENTE PUBLICO GENERAL + If Opcion = "Cot" Then + Dim CveClientePG As Integer = -1 + If UsuarioActual.CveEmpresa = 186 Then + CveClientePG = 1151377 + ViewState("CveCliente") = CveClientePG + HdnCveCliente.Value = CveClientePG.ToString() + CargaCliente(CveCliente) + + TrVentasMedicas2.Visible = False + TrVentasMedicas3.Visible = False + End If End If End If + End If - End If - - 'Carga empresa CRM - If Request("CveEmpresaCRM") IsNot Nothing AndAlso IsNumeric(Request("CveEmpresaCRM")) AndAlso Request("CveEmpresaCRM").ToEntero() > 0 Then - ViewState("CveEmpresaCRM") = Request("CveEmpresaCRM") - CargaEmpresaCRM(CveEmpresaCRM) - Else - ViewState("CveEmpresaCRM") = -1 - End If - - If Request("CveAcercamientoCRM") IsNot Nothing AndAlso IsNumeric(Request("CveAcercamientoCRM")) AndAlso Request("CveAcercamientoCRM").ToEntero() > 0 Then - ViewState("CveAcercamientoCRM") = Request("CveAcercamientoCRM") - - Dim cRMService As ICRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - Dim AcercamientoModel As New RequestAcercamiento(UsuarioActual.CveEmpresa, CveAcercamientoCRM) - Dim objAcercamiento = cRMService.GetAceracamientoCRM(AcercamientoModel) - - If objAcercamiento.Result.Count > 0 Then - CorreoContactoCRM = objAcercamiento.Result(0).CorreoContacto + 'Carga empresa CRM + If Request("CveEmpresaCRM") IsNot Nothing AndAlso IsNumeric(Request("CveEmpresaCRM")) AndAlso Request("CveEmpresaCRM").ToEntero() > 0 Then + ViewState("CveEmpresaCRM") = Request("CveEmpresaCRM") + CargaEmpresaCRM(CveEmpresaCRM) + Else + ViewState("CveEmpresaCRM") = -1 End If - Else - ViewState("CveAcercamientoCRM") = -1 - End If + If Request("CveAcercamientoCRM") IsNot Nothing AndAlso IsNumeric(Request("CveAcercamientoCRM")) AndAlso Request("CveAcercamientoCRM").ToEntero() > 0 Then + ViewState("CveAcercamientoCRM") = Request("CveAcercamientoCRM") - 'mensaje de confirmación al guardar - BtnEmitirImprimir.OnClientClick = $"ValidaGuardar({ If(ImprimeNombreSucursal = True, 1, 0)},{If(HdnTieneAnticipos.Value = "1", 1, 0)});" - BtnEmitirImprimir.Attributes.Add("data-toggle", "confirmation") - BtnEmitirImprimir.Attributes.Add("data-popout", "true") - BtnEmitirImprimir.Attributes.Add("data-original-title", "confirmar") - BtnEmitirImprimir.Attributes.Add("data-btn-ok-label", "Guardar") - BtnEmitirImprimir.Attributes.Add("data-html", "true") + Dim cRMService As ICRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) + Dim AcercamientoModel As New RequestAcercamiento(UsuarioActual.CveEmpresa, CveAcercamientoCRM) + Dim objAcercamiento = cRMService.GetAceracamientoCRM(AcercamientoModel) - If UsuarioActual.CveEmpresa.Contiene(126) Then ' cuando la empresa se relaciona a ua orden de producción, Citrus Game - TrOP.Visible = True - CargaOrdenProduccion() - End If - - 'MUESTRA EL MODAL PARA PODER RELACIONAR FACTURAS - If UsuarioActual.TienePermisoProceso(321) Then - LnkFacturasRelacionadas.Visible = True - End If - - If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then - DdlSubProyectoDatos.SelectedValueExist(11954) - Using ObjVentas As New ClsNominas - - If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, "", -Request("CveOrdenProduccion").ToEntero()) Then - TmpDT = ObjVentas.DtResultados - TmpDT.Columns.Add("EntregaDirecta", GetType(Integer)) - TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) - TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer)) - TmpDT.Columns.Add("TieneProntoPago", GetType(String)) - TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal)) - TmpDT.Columns.Add("CveMarca", GetType(Integer)) - TmpDT.Columns.Add("CvePrecioLista", GetType(Integer)) - TmpDT.Columns.Add("PrecioLista", GetType(String)) - TmpDT.Columns.Add("CveActivoFijo", GetType(Integer)) - TmpDT.Columns.Add("AFDepreciacion", GetType(Decimal)) - TmpDT.Columns.Add("AFValorInicial", GetType(Decimal)) - TmpDT.Columns.Add("NumTurnos", GetType(Decimal)) - TmpDT.Columns("NumTurnos").DefaultValue = 0D - TmpDT.Columns.Add("NumeroPedimento", GetType(String)) - TmpDT.Columns.Add("CodigoAlterno", GetType(String)) - TmpDT.Columns.Add("PSAlterno", GetType(String)) - TmpDT.Columns.Add("Costo", GetType(Decimal)) - TmpDT.Columns("Costo").DefaultValue = 0D - - GvPS.DataSource = ObjVentas.DtResultados - GvPS.DataBind() - - End If - End Using - End If - - - If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then - Using ObjCGame As New ClsCGame() - - If ObjCGame.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") AndAlso ObjCGame.DtResultados.Rows.Count > 0 Then - DdlSubProyectoDatos.SelectedValueExist(ObjCGame.DtResultados.Rows(0)("CveSubProyecto").ToString()) + If objAcercamiento.Result.Count > 0 Then + CorreoContactoCRM = objAcercamiento.Result(0).CorreoContacto End If - If ObjCGame.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then - GvPS.DataSource = ObjCGame.DtResultados - TmpDT = ObjCGame.DtResultados - TmpDT.Columns.Add("Costo", GetType(Decimal)) - TmpDT.Columns("Costo").DefaultValue = 0D + Else + ViewState("CveAcercamientoCRM") = -1 + End If - GvPS.DataBind() - End If + 'mensaje de confirmación al guardar + BtnEmitirImprimir.OnClientClick = $"ValidaGuardar({ If(ImprimeNombreSucursal = True, 1, 0)},{If(HdnTieneAnticipos.Value = "1", 1, 0)});" + BtnEmitirImprimir.Attributes.Add("data-toggle", "confirmation") + BtnEmitirImprimir.Attributes.Add("data-popout", "true") + BtnEmitirImprimir.Attributes.Add("data-original-title", "confirmar") + BtnEmitirImprimir.Attributes.Add("data-btn-ok-label", "Guardar") + BtnEmitirImprimir.Attributes.Add("data-html", "true") - End Using + If UsuarioActual.CveEmpresa.Contiene(126) Then ' cuando la empresa se relaciona a ua orden de producción, Citrus Game + TrOP.Visible = True + CargaOrdenProduccion() + End If - If TmpDT IsNot Nothing Then - DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2") - TabAlmacen.Visible = True - DivAlmacen.Visible = True - CargaGVInv(DtInv) + 'MUESTRA EL MODAL PARA PODER RELACIONAR FACTURAS + If UsuarioActual.TienePermisoProceso(321) Then + LnkFacturasRelacionadas.Visible = True + End If + + If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then + DdlSubProyectoDatos.SelectedValueExist(11954) + Using ObjVentas As New ClsNominas + + If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, "", -Request("CveOrdenProduccion").ToEntero()) Then + TmpDT = ObjVentas.DtResultados + TmpDT.Columns.Add("EntregaDirecta", GetType(Integer)) + TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) + TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer)) + TmpDT.Columns.Add("TieneProntoPago", GetType(String)) + TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal)) + TmpDT.Columns.Add("CveMarca", GetType(Integer)) + TmpDT.Columns.Add("CvePrecioLista", GetType(Integer)) + TmpDT.Columns.Add("PrecioLista", GetType(String)) + TmpDT.Columns.Add("CveActivoFijo", GetType(Integer)) + TmpDT.Columns.Add("AFDepreciacion", GetType(Decimal)) + TmpDT.Columns.Add("AFValorInicial", GetType(Decimal)) + TmpDT.Columns.Add("NumTurnos", GetType(Decimal)) + TmpDT.Columns("NumTurnos").DefaultValue = 0D + TmpDT.Columns.Add("NumeroPedimento", GetType(String)) + TmpDT.Columns.Add("CodigoAlterno", GetType(String)) + TmpDT.Columns.Add("PSAlterno", GetType(String)) + TmpDT.Columns.Add("Costo", GetType(Decimal)) + TmpDT.Columns("Costo").DefaultValue = 0D + + GvPS.DataSource = ObjVentas.DtResultados + GvPS.DataBind() + + End If + End Using End If - If AplicaComercioExterior Then - CargaGvComercioExterior() - End If - End If + If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then + Using ObjCGame As New ClsCGame() - If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then - DdlMoneda.SelectedValueExist(2) - CambiaMoneda() - Using ObjVentas As New ClsNominas - If ObjVentas.EmbarqueManifiestoGet(-1, -1, -1, Request("CveEmbarqueManifiesto").ToString().ToEntero()) And ObjVentas.DtResultados.Rows.Count > 0 Then - DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString()) - End If - If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, "", Request("CveEmbarqueManifiesto").ToEntero()) Then - TmpDT = ObjVentas.DtResultados - TmpDT.Columns.Add("EntregaDirecta", GetType(Integer)) - TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) - TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer)) - TmpDT.Columns.Add("TieneProntoPago", GetType(String)) - TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal)) - TmpDT.Columns.Add("CveMarca", GetType(Integer)) - TmpDT.Columns.Add("CvePrecioLista", GetType(Integer)) - TmpDT.Columns.Add("PrecioLista", GetType(String)) - TmpDT.Columns.Add("CveActivoFijo", GetType(Integer)) - TmpDT.Columns.Add("AFDepreciacion", GetType(Decimal)) - TmpDT.Columns.Add("AFValorInicial", GetType(Decimal)) - TmpDT.Columns.Add("NumTurnos", GetType(Decimal)) - TmpDT.Columns("NumTurnos").DefaultValue = 0D - TmpDT.Columns.Add("NumeroPedimento", GetType(String)) - TmpDT.Columns.Add("CodigoAlterno", GetType(String)) - TmpDT.Columns.Add("PSAlterno", GetType(String)) - TmpDT.Columns.Add("Costo", GetType(Decimal)) - TmpDT.Columns("Costo").DefaultValue = 0D - GvPS.DataSource = ObjVentas.DtResultados - GvPS.DataBind() + If ObjCGame.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") AndAlso ObjCGame.DtResultados.Rows.Count > 0 Then + DdlSubProyectoDatos.SelectedValueExist(ObjCGame.DtResultados.Rows(0)("CveSubProyecto").ToString()) + End If - End If - End Using - End If + If ObjCGame.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then + GvPS.DataSource = ObjCGame.DtResultados + TmpDT = ObjCGame.DtResultados + TmpDT.Columns.Add("Costo", GetType(Decimal)) + TmpDT.Columns("Costo").DefaultValue = 0D - 'Carga Venta - If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero() > 0 Then - ViewState("CveVenta") = Request("CveVenta") + GvPS.DataBind() + End If - If CargaVenta() Then - If UsuarioActual.TienePermisoProceso(321) Then - CargaRelacionadasPendientes() + End Using + + If TmpDT IsNot Nothing Then + DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2") + TabAlmacen.Visible = True + DivAlmacen.Visible = True + CargaGVInv(DtInv) End If - DdlSubProyectoDatos.Enabled = False - BtnEmitirImprimir.Visible = False - BtnCrearApartirDe.Visible = True - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then BtnCrearApartirDe.Visible = False - If DdlTipoComprobante.SelectedValue = "Ped" Then - BtnPermisoEditarRemision.Text = "Editar Pedido" - BtnEditarRemision.Text = "Actualizar Pedido" - End If - - DivFechaAnticipoCliente.Visible = True - TxtFechaAnticipoCliente.Text = NowADS().ToShortDateString - - ImgAddObs.Visible = True - CargaEventoBitacora() - ConfiguraTipoDocto() - TrFolioFiscal.Visible = True - - 'PERMISO PARA CANCELAR PEDIDO - 'If GvInv.Rows.Count = 0 Then - ' If DdlTipoComprobante.SelectedValue.Contiene("Ped") And Not CveEstatus = 14 Then - ' If UsuarioActual.TienePermisoProceso(186) Then - ' LBCancelarPedido.Visible = True - ' End If - ' End If - 'End If - - 'CARGA GV DE COMERCIO EXTERIOR SI NO ESTA TIMBRADA - If LblSeTimbro.Text = "No" Then + If AplicaComercioExterior Then CargaGvComercioExterior() End If - - 'HABILITA IMPRESION DE FORMATO CICOVISA - If UsuarioActual.CveEmpresa = 72 And CveCliente = 70381 And DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then - LnkImprimirFormatoCicovisa.Visible = True - End If - 'HABILITA IMPRESION DE FORMATO TELCEL - If UsuarioActual.CveEmpresa = 72 And CveCliente = 70869 And DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then - LnkImprimirFormatoTelcel.Visible = True - End If - - If DdlTipoComprobante.SelectedValue = "Ing" Then - CargaVentaCortePorte(Me.CveVenta) - End If - - HlEvento.Visible = True - HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveVenta=" & CveVenta & "&TB_iframe=true&height=370&width=600;" - - ''SOLO SISTEMA DEBE VER ESTA OPCION - If UsuarioActual.CveUsuario = 100 Then - LnkCancelarSoloCFDI.Visible = True - End If - End If - Else - TxtFechaOS.Text = NowADS().ToDateTime.ToString("yyyy-MM-dd HH:mm").Replace(" ", "T") + If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then + DdlMoneda.SelectedValueExist(2) + CambiaMoneda() + Using ObjVentas As New ClsNominas + If ObjVentas.EmbarqueManifiestoGet(-1, -1, -1, Request("CveEmbarqueManifiesto").ToString().ToEntero()) And ObjVentas.DtResultados.Rows.Count > 0 Then + DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString()) + End If + If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, "", Request("CveEmbarqueManifiesto").ToEntero()) Then + TmpDT = ObjVentas.DtResultados + TmpDT.Columns.Add("EntregaDirecta", GetType(Integer)) + TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) + TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer)) + TmpDT.Columns.Add("TieneProntoPago", GetType(String)) + TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal)) + TmpDT.Columns.Add("CveMarca", GetType(Integer)) + TmpDT.Columns.Add("CvePrecioLista", GetType(Integer)) + TmpDT.Columns.Add("PrecioLista", GetType(String)) + TmpDT.Columns.Add("CveActivoFijo", GetType(Integer)) + TmpDT.Columns.Add("AFDepreciacion", GetType(Decimal)) + TmpDT.Columns.Add("AFValorInicial", GetType(Decimal)) + TmpDT.Columns.Add("NumTurnos", GetType(Decimal)) + TmpDT.Columns("NumTurnos").DefaultValue = 0D + TmpDT.Columns.Add("NumeroPedimento", GetType(String)) + TmpDT.Columns.Add("CodigoAlterno", GetType(String)) + TmpDT.Columns.Add("PSAlterno", GetType(String)) + TmpDT.Columns.Add("Costo", GetType(Decimal)) + TmpDT.Columns("Costo").DefaultValue = 0D + GvPS.DataSource = ObjVentas.DtResultados + GvPS.DataBind() + + End If + End Using + End If + + 'Carga Venta + If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero() > 0 Then + ViewState("CveVenta") = Request("CveVenta") + + If CargaVenta() Then + If UsuarioActual.TienePermisoProceso(321) Then + CargaRelacionadasPendientes() + End If + + DdlSubProyectoDatos.Enabled = False + BtnEmitirImprimir.Visible = False + BtnCrearApartirDe.Visible = True + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then BtnCrearApartirDe.Visible = False + + If DdlTipoComprobante.SelectedValue = "Ped" Then + BtnPermisoEditarRemision.Text = "Editar Pedido" + BtnEditarRemision.Text = "Actualizar Pedido" + End If + + DivFechaAnticipoCliente.Visible = True + TxtFechaAnticipoCliente.Text = NowADS().ToShortDateString + + ImgAddObs.Visible = True + CargaEventoBitacora() + ConfiguraTipoDocto() + TrFolioFiscal.Visible = True + + 'PERMISO PARA CANCELAR PEDIDO + 'If GvInv.Rows.Count = 0 Then + ' If DdlTipoComprobante.SelectedValue.Contiene("Ped") And Not CveEstatus = 14 Then + ' If UsuarioActual.TienePermisoProceso(186) Then + ' LBCancelarPedido.Visible = True + ' End If + ' End If + 'End If + + 'CARGA GV DE COMERCIO EXTERIOR SI NO ESTA TIMBRADA + If LblSeTimbro.Text = "No" Then + CargaGvComercioExterior() + End If + + 'HABILITA IMPRESION DE FORMATO CICOVISA + If UsuarioActual.CveEmpresa = 72 And CveCliente = 70381 And DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then + LnkImprimirFormatoCicovisa.Visible = True + End If + 'HABILITA IMPRESION DE FORMATO TELCEL + If UsuarioActual.CveEmpresa = 72 And CveCliente = 70869 And DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then + LnkImprimirFormatoTelcel.Visible = True + End If + + If DdlTipoComprobante.SelectedValue = "Ing" Then + CargaVentaCortePorte(Me.CveVenta) + End If + + HlEvento.Visible = True + HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveVenta=" & CveVenta & "&TB_iframe=true&height=370&width=600;" + + ''SOLO SISTEMA DEBE VER ESTA OPCION + If UsuarioActual.CveUsuario = 100 Then + LnkCancelarSoloCFDI.Visible = True + End If + + End If - If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero() > 0 Then - ViewState("CveOS") = Request("CveOS") - CargaOS(CveOS) Else + TxtFechaOS.Text = NowADS().ToDateTime.ToString("yyyy-MM-dd HH:mm").Replace(" ", "T") - 'SI ES VENTA NUEVA, NO RECARGAR TAB DE ALMACEN - If CveVenta <= 0 Then - 'REMOVER EVENTO PARA RECARGAR ALMACEN - HdnCargarInventario.Value = "False" - 'spanAlmacen.Attributes.Remove("onclick") - UpParametros.Update() - End If - - 'Modalidad Devoluciones y Refacturacion - If Request("CveDevolucion") IsNot Nothing AndAlso IsNumeric(Request("CveDevolucion")) AndAlso Request("CveDevolucion").ToEntero() > 0 Then - ViewState("CveDevolucion") = Request("CveDevolucion") - ViewState("CveVenta") = Request("CveDevolucion") - ViewState("NuevaFactura") = Request("NuevaFactura") - - trNCFactura.Visible = True - DdlNCFactura.DataSource = Nothing - DdlNCFactura.DataBind() - CargaNC(IfNull(Request("CveDevolucion"), "-1").ToString().ToEntero()) - DdlNCFactura.SelectedValueExist(CveDevolucion) - - If NuevaFactura = 0 Then - LbAgregar.Visible = False - If DdlTipoComprobante.SelectedValue = "Ing" Then - DdlTipoComprobante.Items.Insert(0, New ListItem("Devolucion", "Dev")) - DdlTipoComprobante.SelectedValue = "Dev" - ElseIf DdlTipoComprobante.SelectedValue = "Ant" Then - DdlTipoComprobante.SelectedValueExist("Egs") - End If - DdlTipoComprobante.Enabled = False - CargaFolios() - - DdlUsoCFDI.Enabled = True - DdlUsoCFDI.SelectedValueExist("2") - DdlMetodoPago33.Enabled = True - DdlMetodoPago33.SelectedValueExist("1") - DdlFormaPago33.Enabled = True - DdlFormaPago33.SelectedValueExist("20") + If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero() > 0 Then + ViewState("CveOS") = Request("CveOS") + CargaOS(CveOS) + Else + 'SI ES VENTA NUEVA, NO RECARGAR TAB DE ALMACEN + If CveVenta <= 0 Then + 'REMOVER EVENTO PARA RECARGAR ALMACEN + HdnCargarInventario.Value = "False" + 'spanAlmacen.Attributes.Remove("onclick") + UpParametros.Update() End If - If NuevaFactura = 1 Then - TrTipoRelacion.Visible = True - DdlTiposRelacion.SelectedValueExist("4") + 'Modalidad Devoluciones y Refacturacion + If Request("CveDevolucion") IsNot Nothing AndAlso IsNumeric(Request("CveDevolucion")) AndAlso Request("CveDevolucion").ToEntero() > 0 Then + ViewState("CveDevolucion") = Request("CveDevolucion") + ViewState("CveVenta") = Request("CveDevolucion") + ViewState("NuevaFactura") = Request("NuevaFactura") - Dim ObjInv As New ClsInventarios - If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then - If ObjInv.DtResultados.Rows.Count > 0 Then - TieneAlmacen = True + trNCFactura.Visible = True + DdlNCFactura.DataSource = Nothing + DdlNCFactura.DataBind() + CargaNC(IfNull(Request("CveDevolucion"), "-1").ToString().ToEntero()) + DdlNCFactura.SelectedValueExist(CveDevolucion) + + If NuevaFactura = 0 Then + LbAgregar.Visible = False + If DdlTipoComprobante.SelectedValue = "Ing" Then + DdlTipoComprobante.Items.Insert(0, New ListItem("Devolucion", "Dev")) + DdlTipoComprobante.SelectedValue = "Dev" + ElseIf DdlTipoComprobante.SelectedValue = "Ant" Then + DdlTipoComprobante.SelectedValueExist("Egs") End If + DdlTipoComprobante.Enabled = False + CargaFolios() + + DdlUsoCFDI.Enabled = True + DdlUsoCFDI.SelectedValueExist("2") + DdlMetodoPago33.Enabled = True + DdlMetodoPago33.SelectedValueExist("1") + DdlFormaPago33.Enabled = True + DdlFormaPago33.SelectedValueExist("20") + End If - ObjInv.Dispose() + If NuevaFactura = 1 Then + TrTipoRelacion.Visible = True + DdlTiposRelacion.SelectedValueExist("4") + + Dim ObjInv As New ClsInventarios + If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then + If ObjInv.DtResultados.Rows.Count > 0 Then + TieneAlmacen = True + End If + End If + ObjInv.Dispose() + + + End If + 'regenrea el tipo de cambio + CargaNuevaFactura(Nothing) + CambiaMoneda() + + 'NOTA DE CREDITO + If NuevaFactura = 2 Then + DdlTipoComprobante.Items.Insert(0, New ListItem("Nota de Crédito", "Egs")) + DdlTipoComprobante.SelectedValue = "Egs" + DdlTipoComprobante.Enabled = False + CargaFolios() + + DdlUsoCFDI.Enabled = True + DdlUsoCFDI.SelectedValueExist("2") + DdlMetodoPago33.Enabled = True + DdlMetodoPago33.SelectedValueExist("1") + DdlFormaPago33.Enabled = True + DdlFormaPago33.SelectedValueExist("20") + TrTipoRelacion.Visible = True + DdlTiposRelacion.SelectedValueExist("1") + End If End If - 'regenrea el tipo de cambio - CargaNuevaFactura(Nothing) - CambiaMoneda() - 'NOTA DE CREDITO - If NuevaFactura = 2 Then - DdlTipoComprobante.Items.Insert(0, New ListItem("Nota de Crédito", "Egs")) - DdlTipoComprobante.SelectedValue = "Egs" - DdlTipoComprobante.Enabled = False - CargaFolios() + 'ENTREGA POR ADELANTADO + If DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped", "PeC") Then + If UsuarioActual.Empresa.Funcionalidad(145) = "1" Then + RequiereAlmacenDestino = True + + If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then + TrAlmacenAsignado.Visible = True + TrAlmacenOrigen.Visible = True + End If + + Dim CveAlmacenDestino As Integer = DtContratos.FiltroPrimeroValor("CveAlmacenDestino", $"CveContrato = {If(DdlContratosModal.Items.Count > 0, DdlContratosModal.SelectedValue, "0")}").ToEntero() + If CveAlmacenDestino > 0 Then + DdlAlmacenAsignado.Items.Clear() + DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} And CveTipoAlmacen In (4,10)") + DdlAlmacenAsignado.DataBind() + DdlAlmacenAsignado.Items.Insert(0, New ListItem(DtContratos.FiltroPrimeroValor("Almacen", $"CveContrato = {DdlContratosModal.SelectedValue}"), CveAlmacenDestino.ToString())) + DdlAlmacenAsignado.SelectedValue = CveAlmacenDestino.ToString() + Else + DdlAlmacenAsignado.Items.Clear() + DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} AND CveTipoAlmacen IN (10)") + DdlAlmacenAsignado.DataBind() + End If + UpParametros.Update() + Else + RequiereAlmacenDestino = False + TrAlmacenAsignado.Visible = False + TrAlmacenOrigen.Visible = False + End If + + 'ENVIO DE FACTURA + ChkEnviarFactura.Checked = False + ChkEnviarFactura.Visible = True + LblEnviarMail.Visible = True - DdlUsoCFDI.Enabled = True - DdlUsoCFDI.SelectedValueExist("2") - DdlMetodoPago33.Enabled = True - DdlMetodoPago33.SelectedValueExist("1") - DdlFormaPago33.Enabled = True - DdlFormaPago33.SelectedValueExist("20") - TrTipoRelacion.Visible = True - DdlTiposRelacion.SelectedValueExist("1") End If - End If - - 'ENTREGA POR ADELANTADO - If DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped", "PeC") Then - If UsuarioActual.Empresa.Funcionalidad(145) = "1" Then - RequiereAlmacenDestino = True + 'Modalidad Contrato + If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero() > 0 AndAlso Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").Contiene("0", "1") Then If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then TrAlmacenAsignado.Visible = True TrAlmacenOrigen.Visible = True End If - Dim CveAlmacenDestino As Integer = DtContratos.FiltroPrimeroValor("CveAlmacenDestino", $"CveContrato = {If(DdlContratosModal.Items.Count > 0, DdlContratosModal.SelectedValue, "0")}").ToEntero() - If CveAlmacenDestino > 0 Then - DdlAlmacenAsignado.Items.Clear() - DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} And CveTipoAlmacen In (4,10)") - DdlAlmacenAsignado.DataBind() - DdlAlmacenAsignado.Items.Insert(0, New ListItem(DtContratos.FiltroPrimeroValor("Almacen", $"CveContrato = {DdlContratosModal.SelectedValue}"), CveAlmacenDestino.ToString())) - DdlAlmacenAsignado.SelectedValue = CveAlmacenDestino.ToString() - Else - DdlAlmacenAsignado.Items.Clear() - DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} AND CveTipoAlmacen IN (10)") - DdlAlmacenAsignado.DataBind() - End If + UPCondicionesPago.Visible = False + RequiereAlmacenDestino = True + CveContrato = Request("CveContrato").ToEntero() + TipoContrato = Request("Tipo").ToEntero() + + 'DESACTIVA CAMBIO DE CLIENTE + HlCliente.Attributes.Remove("class") + HlCliente.Attributes.Add("class", "Texto disabled") + TxtCodigo.ReadOnly = True + + CargarContratoUrl() UpParametros.Update() - Else - RequiereAlmacenDestino = False - TrAlmacenAsignado.Visible = False - TrAlmacenOrigen.Visible = False End If + 'Modalidad CveCicloComercial + If Request("CveCicloComercial") IsNot Nothing AndAlso IsNumeric(Request("CveCicloComercial")) AndAlso Request("CveCicloComercial").ToEntero() > 0 Then + ViewState("CveCicloComercial") = Request("CveCicloComercial").ToEntero() + CargaCicloComercialURL() + UpParametros.Update() + End If + + + 'MODALIDAD DEVOLUCION PEDIDO NUEVO + If Request("DevPed") IsNot Nothing AndAlso IsNumeric(Request("DevPed")) AndAlso Request("DevPed").ToEntero() > 0 AndAlso Request("MovInv") IsNot Nothing AndAlso IsNumeric(Request("MovInv")) AndAlso Request("MovInv").ToEntero() > 0 Then + ViewState("CveVenta") = Request("DevPed") + ViewState("MovInv") = Request("MovInv") + ViewState("CveMovimientoDetalle") = IfNull(Request("CveMovimientoDetalle"), "-1").ToString().ToEntero() + DdlTipoComprobante.Items.Insert(5, New ListItem("Devolución de perdido", "DPe")) + DdlTipoComprobante.SelectedValue = "DPe" + DdlTipoComprobante.Enabled = False + CargaFacturaDevolucionPedido() + CargaFolios() + If CveContrato > 0 Then + CargaNotificacionContrato() + End If + End If + + 'Modalidad Cotizacion + If Opcion = "Cot" Then + DdlTipoComprobante.SelectedValueExist(Opcion) + DdlTipoComprobante.Enabled = False + + DdlTipoComprobante_SelectedIndexChanged(sender, Nothing) + 'Carga CvePresupuesto + If Request("CvePresupuesto") IsNot Nothing AndAlso IsNumeric(Request("CvePresupuesto")) AndAlso Request("CvePresupuesto").ToEntero() > 0 Then + CvePresupuesto = Request("CvePresupuesto").ToEntero() + 'DdlEstatus.Enabled = False + End If + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + LnkAgregarCliente.Visible = True + ChkEnviarFactura.Checked = False + ChkEnviarFactura.Enabled = False + End If + + End If + CargaEstatusFactura(Opcion) + + If Opcion = "Ing" Then + ObtenerFechaVencimientoCER() + 'DdlEstatus.Enabled = False + If UsuarioActual.Empresa.TipoFacturacion = "CBB" Then + 'DdlEstatus.SelectedValue = "3" + CveEstatus = 3 + ElseIf UsuarioActual.Empresa.TipoFacturacion = "CFDi" Then + 'DdlEstatus.SelectedValue = "2" + CveEstatus = 2 + End If + End If + BtnAdjuntar.Visible = True + End If + End If + + 'CARGA PARA FACTURAR + ViewState("CveRemision") = IfNull(Request("CveRemision").ToEntero(), 0) + ViewState("CveCotizacion") = IfNull(Request("CveCotizacion").ToEntero(), 0) + + 'If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then + ' EsCreaApartirDe = True + 'End If + + If ViewState("CveRemision").ToString().ToEntero() > 0 Or ViewState("CveCotizacion").ToString().ToEntero() > 0 Then + 'ViewState("CveRemision") = Request("CveRemision") + 'Dim CveRemision As Integer = ViewState("CveRemision").ToString().ToEntero() + + CargaVenta() + + 'DdlSucursal.Enabled = False + BtnCrearApartirDe.Visible = True + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + BtnCrearApartirDe.Visible = False + End If + 'DdlEstatus.Enabled = True + + ImgAddObs.Visible = True + CargaEventoBitacora() + + DdlTipoComprobante.Enabled = False + DdlTipoComprobante.SelectedValue = "Ing" + + CargaEstatusFactura() + 'DdlEstatus.SelectedValueExist("2") + + ConfiguraTipoDocto() + + + BtnEmitirImprimir.Text = "Facturar" + BtnEmitirImprimir.Visible = True + + UpnTools.Update() + + TxtFecha.Text = NowADS().ToShortDateString + + '' Si esta cancelado el compromiso no se puede editar el estatus + 'If DdlEstatus.SelectedValue = "9" Then + ' DdlEstatus.Enabled = False + 'End If + + 'CargaDetalle de Almacen + 'InventarioMov() + + If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then + + CargaCotizaciones() + + If DtCotizaciones IsNot Nothing Then + For Each Row As DataRow In DtCotizaciones.Select($"CveVenta={ViewState("CveCotizacion").ToString().ToEntero()}") + Row("Aplicado") = True + Next + End If + + CargarCotizacionesAFacturar() + End If + + End If + + If Not ExFolioFactura Then SetPermisos() + If CveVenta < 1 Then CargaFolios() + + + If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(360) = "1" Then + CargaListasPrecios() + End If + + If CveVenta <= 0 AndAlso UsuarioActual.CveEmpresa.Contiene(7, 122) Then + TxtCantidad.Width = New Unit("100%") + DivNumTurnos.Visible = True + End If + + If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(716) = "1" Then + UpImagen.Visible = True + UpImagen.Update() + End If + + 'SELECCIONA VENDEDOR DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE + 'If UsuarioActual.CveVendedor > 0 Then + ' If CveVenta = -1 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) + ' If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then + ' DdlVendedor.Enabled = False + ' End If + ' 'multiples vendedores visible + ' If UsuarioActual.TienePermisoProceso(153) Then + ' DdlVendedor.Enabled = True + ' End If + 'End If + + If UsuarioActual.Empresa.Funcionalidad(301) = "1" Then + TxtFecha.Enabled = True + ImgFecha.Visible = True + Else + TxtFecha.Enabled = False + ImgFecha.Visible = False + CEFecha.Enabled = False + End If + + CargarCodigo() + InicializaImprimirNew() + + 'RegistraScript("FnSuma()") + TxtSubTotal.Attributes.Add("onKeyUp", "FnSuma()") + TxtIVA.Attributes.Add("onKeyUp", "FnSuma()") + TxtIEPS.Attributes.Add("onKeyUp", "FnSuma()") + TxtRetIVA.Attributes.Add("onKeyUp", "FnSuma()") + TxtRetISR.Attributes.Add("onKeyUp", "FnSuma()") + + 'Cortes de Caja + If UsuarioActual.TienePermisoProceso(160) Then + CargaCorteCaja() + End If + '********************************** + + 'Complementos de Timbrado + 'Dim ObjVenta As New ClsVentas + 'If ObjVenta.GetVentaComplementos() Then + ' RblComplementos.DataSource = ObjVenta.DtResultados + ' RblComplementos.DataBind() + ' UpComplementos.Update() + 'End If + 'ObjVenta.Dispose() + RblComplementos.DataSource = GlobalDTVtaComplementoCFDI + RblComplementos.DataBind() + + CargaFormatoSucursal() + + InicializaDevolucionAlmacen() + 'CargaOtrosConceptos() + CargaFacturaOC() + + 'SELECCIONA SUCURSAL DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE + If Not (CveCliente > 0 Or CveVenta > 0) Then + DdlSubProyectoDatos.SelectedValueExist(UsuarioActual.CveSubProyecto) + DdlSubProyectoEjecucion.SelectedValueExist(UsuarioActual.CveSubProyecto) + DdlSubProyectoCobranza.SelectedValueExist(UsuarioActual.CveSubProyecto) + If UsuarioActual.TienePermisoProceso(152) Then + DdlSubProyectoDatos.Enabled = False + End If + CambiaSucursal() + UpParametros.Update() + UpDetalle.Update() + End If + + 'CUANDO SEA COTIZACION Y SEA COMPUPROVEEDORES (EMPRESA 72) NO DEBE ENVIAR CORREO AL CLIENTE + EnviarCorreoCliente = True + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then + EnviarCorreoCliente = False + ChkEnviarFactura.Enabled = False + End If + + If UsuarioActual.CveEmpresa = 72 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then + ChkEnviarFactura.Checked = False + ChkEnviarFactura.Visible = False + LblEnviarMail.Visible = False + Else + If DdlTipoComprobante.SelectedValue.Contiene("Rem", "PeC", "PA", "Ped") Then 'ENVIO DE FACTURA ChkEnviarFactura.Checked = False ChkEnviarFactura.Visible = True LblEnviarMail.Visible = True + If CveVenta > 0 AndAlso EnviarCorreoCliente Then ChkEnviarFactura.Checked = EnviarCorreoCliente + Else + ChkEnviarFactura.Checked = EnviarCorreoCliente + ChkEnviarFactura.Visible = True + LblEnviarMail.Visible = True End If - 'Modalidad Contrato - If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero() > 0 AndAlso Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").Contiene("0", "1") Then + End If - If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then - TrAlmacenAsignado.Visible = True - TrAlmacenOrigen.Visible = True + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto, AplicaTodos:="") + DdlSubProyecto.SelectedValueExist(DdlSubProyectoDatos.SelectedValue) + BrSubProyecto.Visible = DdlProyecto.Visible + + If UsuarioActual.CveEmpresa.Contiene(172, 173) Then + LnkAddVenta.Visible = True + End If + + 'MOSTRAR LA OPCION DE AGREGAR PS EN BDH + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveVenta <= 0 Then + ImgOtrosConceptos.Visible = False + TrFormaEntrega.Visible = False + TabDetalleVentas.Visible = False + 'TabE.Visible = False + LnkOCs.Visible = False + GvPS.Columns(ColumnaSubProyecto).Visible = False + DdlSubProyecto.Visible = False + TrEdit.Visible = True + + ThProyecto.Visible = False + For Each Gvr As GridViewRow In GvPS.Rows + Gvr.FCLinkButton("imgE").Visible = False + Next + LnkAddVenta.Visible = True + End If + + If UsuarioActual.Empresa.CvePlataforma = 2 Then + ImgOtrosConceptos.Visible = False + TrFormaEntrega.Visible = False + TabDetalleVentas.Visible = False + TabE.Visible = False + LnkOCs.Visible = False + GvPS.Columns(8).Visible = False + DdlSubProyecto.Visible = False + TrEdit.Visible = False + + ThProyecto.Visible = False + For Each Gvr As GridViewRow In GvPS.Rows + Gvr.FCLinkButton("imgE").Visible = False + Next + LnkAddVenta.Visible = True + End If + + TabVentaAF.Visible = (UsuarioActual.CveRol = 1) + DivAgregarAF.Visible = (CveVenta <= 0 AndAlso UsuarioActual.CveRol = 1) + + If DivAgregarAF.Visible Then + CargaDatosAF() + End If + + 'CARGA VALORES INICIALES PARA AGREGAR PS DESDE MODAL + 'CargaMetodosPSModal() + + 'CARGA VALORES DE ORDEN DE PRODUCCION + Dim CveOrdenProduccion As Integer = IfNull(Request("CveOrdenProduccion"), "-1").ToString().ToEntero() + If CveOrdenProduccion > 0 And Not CveVenta > 0 Then + DdlOrdenProduccion.SelectedValueExist(CveOrdenProduccion) + If DdlOrdenProduccion.SelectedValue.ToEntero() > 0 Then + DdlTipoComprobante.SelectedValue = "Rem" + DdlMoneda.SelectedValue = "2" + Dim ObjCGame As New ClsCGame + If ObjCGame.GetAvance(DdlOrdenProduccion.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then + For Each dt As DataRow In ObjCGame.DtResultados.Rows + If dt("Avance").ToString().ToEntero() > 0 Then + AgregarProductoServicio(dt("Avance").ToString().ToDecimal, 29472, "No Aplica", 19588, "Ingresos por comercializadora", 308366, "Ventas", dt("Datos").ToString(), dt("PU").ToString().ToDecimal, 0, + DdlProyecto.SelectedValue.ToEntero(), DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedItem.Text) + 'AddPS(dt("Avance").ToString().ToDouble, 29472, "No Aplica", 19588, "Ingresos por comercializadora", 308366, "Ventas", dt("Datos").ToString(), dt("PU").ToString().ToDouble, 0, 0, 0, 1, 0, True, + ' "", DdlProyecto.SelectedValue.ToEntero(), DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedItem.Text, 2, HdnTipoInv.Value.ToEntero()) + End If + Next + GvPS.DataSource = TmpDT End If - - UPCondicionesPago.Visible = False - RequiereAlmacenDestino = True - CveContrato = Request("CveContrato").ToEntero() - TipoContrato = Request("Tipo").ToEntero() - - 'DESACTIVA CAMBIO DE CLIENTE - HlCliente.Attributes.Remove("class") - HlCliente.Attributes.Add("class", "Texto disabled") - TxtCodigo.ReadOnly = True - - CargarContratoUrl() - UpParametros.Update() - End If - - 'Modalidad CveCicloComercial - If Request("CveCicloComercial") IsNot Nothing AndAlso IsNumeric(Request("CveCicloComercial")) AndAlso Request("CveCicloComercial").ToEntero() > 0 Then - ViewState("CveCicloComercial") = Request("CveCicloComercial").ToEntero() - CargaCicloComercialURL() - UpParametros.Update() - End If - - - 'MODALIDAD DEVOLUCION PEDIDO NUEVO - If Request("DevPed") IsNot Nothing AndAlso IsNumeric(Request("DevPed")) AndAlso Request("DevPed").ToEntero() > 0 AndAlso Request("MovInv") IsNot Nothing AndAlso IsNumeric(Request("MovInv")) AndAlso Request("MovInv").ToEntero() > 0 Then - ViewState("CveVenta") = Request("DevPed") - ViewState("MovInv") = Request("MovInv") - ViewState("CveMovimientoDetalle") = IfNull(Request("CveMovimientoDetalle"), "-1").ToString().ToEntero() - DdlTipoComprobante.Items.Insert(5, New ListItem("Devolución de perdido", "DPe")) - DdlTipoComprobante.SelectedValue = "DPe" - DdlTipoComprobante.Enabled = False - CargaFacturaDevolucionPedido() + If ObjCGame.GetFlete(UsuarioActual.CveEmpresa) Then + TxtObsFact.Text = String.Format("Chofer: {0}; Remolque: {1}; Scat: {2};", ObjCGame.DtResultados.FiltraParametros(String.Format("CveOrdenProduccion = {0}", CveOrdenProduccion))(0)("Chofer"), ObjCGame.DtResultados.FiltraParametros(String.Format("CveOrdenProduccion = {0}", CveOrdenProduccion))(0)("CodigoDescripcionRemolque"), ObjCGame.DtResultados.FiltraParametros(String.Format("CveOrdenProduccion = {0}", CveOrdenProduccion))(0)("Scat")) + End If + ObjCGame.Dispose() + GvPS.DataBind() + UPObservaciones.Update() + UpPS.Update() CargaFolios() - If CveContrato > 0 Then - CargaNotificacionContrato() - End If End If - - 'Modalidad Cotizacion - If Opcion = "Cot" Then - DdlTipoComprobante.SelectedValueExist(Opcion) - DdlTipoComprobante.Enabled = False - - DdlTipoComprobante_SelectedIndexChanged(sender, Nothing) - 'Carga CvePresupuesto - If Request("CvePresupuesto") IsNot Nothing AndAlso IsNumeric(Request("CvePresupuesto")) AndAlso Request("CvePresupuesto").ToEntero() > 0 Then - CvePresupuesto = Request("CvePresupuesto").ToEntero() - 'DdlEstatus.Enabled = False - End If - - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - LnkAgregarCliente.Visible = True - ChkEnviarFactura.Checked = False - ChkEnviarFactura.Enabled = False - End If - - End If - CargaEstatusFactura(Opcion) - - If Opcion = "Ing" Then - ObtenerFechaVencimientoCER() - 'DdlEstatus.Enabled = False - If UsuarioActual.Empresa.TipoFacturacion = "CBB" Then - 'DdlEstatus.SelectedValue = "3" - CveEstatus = 3 - ElseIf UsuarioActual.Empresa.TipoFacturacion = "CFDi" Then - 'DdlEstatus.SelectedValue = "2" - CveEstatus = 2 - End If - End If - BtnAdjuntar.Visible = True End If - End If - 'CARGA PARA FACTURAR - ViewState("CveRemision") = IfNull(Request("CveRemision").ToEntero(), 0) - ViewState("CveCotizacion") = IfNull(Request("CveCotizacion").ToEntero(), 0) - 'If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then - ' EsCreaApartirDe = True - 'End If - - If ViewState("CveRemision").ToString().ToEntero() > 0 Or ViewState("CveCotizacion").ToString().ToEntero() > 0 Then - 'ViewState("CveRemision") = Request("CveRemision") - 'Dim CveRemision As Integer = ViewState("CveRemision").ToString().ToEntero() - - CargaVenta() - - 'DdlSucursal.Enabled = False - BtnCrearApartirDe.Visible = True - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - BtnCrearApartirDe.Visible = False + If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero() = -1 AndAlso UsuarioActual.CveTipoDocumento.Length = 3 Then + CargaDdlSubProyectos() + UpParametros.Update() + DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento) + CambiaTipoDocto() + LimpiaEscondeContado() End If - 'DdlEstatus.Enabled = True - ImgAddObs.Visible = True - CargaEventoBitacora() + InicializaAplicarNC() - DdlTipoComprobante.Enabled = False - DdlTipoComprobante.SelectedValue = "Ing" - - CargaEstatusFactura() - 'DdlEstatus.SelectedValueExist("2") - - ConfiguraTipoDocto() - - - BtnEmitirImprimir.Text = "Facturar" - BtnEmitirImprimir.Visible = True - - UpnTools.Update() - - TxtFecha.Text = NowADS().ToShortDateString - - '' Si esta cancelado el compromiso no se puede editar el estatus - 'If DdlEstatus.SelectedValue = "9" Then - ' DdlEstatus.Enabled = False + 'If CveCliente > 0 Then + ' CargaRestriccionesCreditoCliente(CveVenta:=Me.CveVenta) 'End If - 'CargaDetalle de Almacen - 'InventarioMov() - - If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then - - CargaCotizaciones() - - If DtCotizaciones IsNot Nothing Then - For Each Row As DataRow In DtCotizaciones.Select($"CveVenta={ViewState("CveCotizacion").ToString().ToEntero()}") - Row("Aplicado") = True - Next + If Not CveVenta > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(403).ToString() = "1" Then + If (DdlTipoComprobante.Items.FindByValue("Ing") IsNot Nothing) Then + DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing")) End If - - CargarCotizacionesAFacturar() End If - End If - If Not ExFolioFactura Then SetPermisos() - If CveVenta < 1 Then CargaFolios() - - - If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(360) = "1" Then - CargaListasPrecios() - End If - - If CveVenta <= 0 AndAlso UsuarioActual.CveEmpresa.Contiene(7, 122) Then - TxtCantidad.Width = New Unit("100%") - DivNumTurnos.Visible = True - End If - - If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(716) = "1" Then - UpImagen.Visible = True - UpImagen.Update() - End If - - 'SELECCIONA VENDEDOR DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE - 'If UsuarioActual.CveVendedor > 0 Then - ' If CveVenta = -1 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) - ' If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then - ' DdlVendedor.Enabled = False - ' End If - ' 'multiples vendedores visible - ' If UsuarioActual.TienePermisoProceso(153) Then - ' DdlVendedor.Enabled = True - ' End If - 'End If - - If UsuarioActual.Empresa.Funcionalidad(301) = "1" Then - TxtFecha.Enabled = True - ImgFecha.Visible = True - Else - TxtFecha.Enabled = False - ImgFecha.Visible = False - CEFecha.Enabled = False - End If - - CargarCodigo() - InicializaImprimirNew() - - 'RegistraScript("FnSuma()") - TxtSubTotal.Attributes.Add("onKeyUp", "FnSuma()") - TxtIVA.Attributes.Add("onKeyUp", "FnSuma()") - TxtIEPS.Attributes.Add("onKeyUp", "FnSuma()") - TxtRetIVA.Attributes.Add("onKeyUp", "FnSuma()") - TxtRetISR.Attributes.Add("onKeyUp", "FnSuma()") - - 'Cortes de Caja - If UsuarioActual.TienePermisoProceso(160) Then - CargaCorteCaja() - End If - '********************************** - - 'Complementos de Timbrado - 'Dim ObjVenta As New ClsVentas - 'If ObjVenta.GetVentaComplementos() Then - ' RblComplementos.DataSource = ObjVenta.DtResultados - ' RblComplementos.DataBind() - ' UpComplementos.Update() - 'End If - 'ObjVenta.Dispose() - RblComplementos.DataSource = GlobalDTVtaComplementoCFDI - RblComplementos.DataBind() - - CargaFormatoSucursal() - - InicializaDevolucionAlmacen() - 'CargaOtrosConceptos() - CargaFacturaOC() - - 'SELECCIONA SUCURSAL DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE - If Not (CveCliente > 0 Or CveVenta > 0) Then - DdlSubProyectoDatos.SelectedValueExist(UsuarioActual.CveSubProyecto) - DdlSubProyectoEjecucion.SelectedValueExist(UsuarioActual.CveSubProyecto) - DdlSubProyectoCobranza.SelectedValueExist(UsuarioActual.CveSubProyecto) - If UsuarioActual.TienePermisoProceso(152) Then - DdlSubProyectoDatos.Enabled = False - End If - CambiaSucursal() - UpParametros.Update() - UpDetalle.Update() - End If - - 'CUANDO SEA COTIZACION Y SEA COMPUPROVEEDORES (EMPRESA 72) NO DEBE ENVIAR CORREO AL CLIENTE - EnviarCorreoCliente = True - - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then - EnviarCorreoCliente = False - ChkEnviarFactura.Enabled = False - End If - - If UsuarioActual.CveEmpresa = 72 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then - ChkEnviarFactura.Checked = False - ChkEnviarFactura.Visible = False - LblEnviarMail.Visible = False - Else - If DdlTipoComprobante.SelectedValue.Contiene("Rem", "PeC", "PA", "Ped") Then - 'ENVIO DE FACTURA - ChkEnviarFactura.Checked = False - ChkEnviarFactura.Visible = True - LblEnviarMail.Visible = True - - If CveVenta > 0 AndAlso EnviarCorreoCliente Then ChkEnviarFactura.Checked = EnviarCorreoCliente - Else - ChkEnviarFactura.Checked = EnviarCorreoCliente - ChkEnviarFactura.Visible = True - LblEnviarMail.Visible = True + 'rmf.2020.09.30, codigo de prueba + If UsuarioActual.CveEmpresa = 1 Then + DivMesesSinIntereses.Visible = True + DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4") + DivContadoOtros.Visible = True End If - End If + If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 Then - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto, AplicaTodos:="") - DdlSubProyecto.SelectedValueExist(DdlSubProyectoDatos.SelectedValue) - BrSubProyecto.Visible = DdlProyecto.Visible + DivMesesSinIntereses.Visible = True + DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4") + DivContadoOtros.Visible = True + TrKilometraje.Visible = True + TrPedido.Visible = False + ' TrKilometrajeTxt.Visible = True + End If + LtlTareaNueva.Text = String.Format(" Tarea", CveVenta) - If UsuarioActual.CveEmpresa.Contiene(172, 173) Then - LnkAddVenta.Visible = True - End If + 'SI ESTA CARGANDO UNA REFACTURACION. VALIDAR QUE LA FACTURA ANTERIOR ESTE CANCELADA + If Me.ObjFacturaNC IsNot Nothing Then - 'MOSTRAR LA OPCION DE AGREGAR PS EN BDH - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveVenta <= 0 Then - ImgOtrosConceptos.Visible = False - TrFormaEntrega.Visible = False - TabDetalleVentas.Visible = False - 'TabE.Visible = False - LnkOCs.Visible = False - GvPS.Columns(ColumnaSubProyecto).Visible = False - DdlSubProyecto.Visible = False - TrEdit.Visible = True - - ThProyecto.Visible = False - For Each Gvr As GridViewRow In GvPS.Rows - Gvr.FCLinkButton("imgE").Visible = False - Next - LnkAddVenta.Visible = True - End If - - If UsuarioActual.Empresa.CvePlataforma = 2 Then - ImgOtrosConceptos.Visible = False - TrFormaEntrega.Visible = False - TabDetalleVentas.Visible = False - TabE.Visible = False - LnkOCs.Visible = False - GvPS.Columns(8).Visible = False - DdlSubProyecto.Visible = False - TrEdit.Visible = False - - ThProyecto.Visible = False - For Each Gvr As GridViewRow In GvPS.Rows - Gvr.FCLinkButton("imgE").Visible = False - Next - LnkAddVenta.Visible = True - End If - - TabVentaAF.Visible = (UsuarioActual.CveRol = 1) - DivAgregarAF.Visible = (CveVenta <= 0 AndAlso UsuarioActual.CveRol = 1) - - If DivAgregarAF.Visible Then - CargaDatosAF() - End If - - 'CARGA VALORES INICIALES PARA AGREGAR PS DESDE MODAL - 'CargaMetodosPSModal() - - 'CARGA VALORES DE ORDEN DE PRODUCCION - Dim CveOrdenProduccion As Integer = IfNull(Request("CveOrdenProduccion"), "-1").ToString().ToEntero() - If CveOrdenProduccion > 0 And Not CveVenta > 0 Then - DdlOrdenProduccion.SelectedValueExist(CveOrdenProduccion) - If DdlOrdenProduccion.SelectedValue.ToEntero() > 0 Then - DdlTipoComprobante.SelectedValue = "Rem" - DdlMoneda.SelectedValue = "2" - Dim ObjCGame As New ClsCGame - If ObjCGame.GetAvance(DdlOrdenProduccion.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then - For Each dt As DataRow In ObjCGame.DtResultados.Rows - If dt("Avance").ToString().ToEntero() > 0 Then - AgregarProductoServicio(dt("Avance").ToString().ToDecimal, 29472, "No Aplica", 19588, "Ingresos por comercializadora", 308366, "Ventas", dt("Datos").ToString(), dt("PU").ToString().ToDecimal, 0, - DdlProyecto.SelectedValue.ToEntero(), DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedItem.Text) - 'AddPS(dt("Avance").ToString().ToDouble, 29472, "No Aplica", 19588, "Ingresos por comercializadora", 308366, "Ventas", dt("Datos").ToString(), dt("PU").ToString().ToDouble, 0, 0, 0, 1, 0, True, - ' "", DdlProyecto.SelectedValue.ToEntero(), DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedItem.Text, 2, HdnTipoInv.Value.ToEntero()) + If Me.CveDevolucion > 0 AndAlso Me.NuevaFactura = 1 Then + Dim TipoEstatus As Integer = GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.ObjFacturaNC.CveEstatusFactura}").ToEntero() + If TipoEstatus <> 5 Then + 'ESTATUS DE CANCELACION PENDIENTE + If Not Me.ObjFacturaNC.CveEstatusFactura = 23 Then + Alert($"El documento de tipo '{Me.ObjFacturaNC.TipodeComprobante}' a refacturar no ha sido marcado como 'Cancelación pendiente'. Favor de verificar el documento", TipoMensaje.MsgAdvertencia) + BtnEmitirImprimir.Visible = False + UpFacturar.Update() End If - Next - GvPS.DataSource = TmpDT - End If - If ObjCGame.GetFlete(UsuarioActual.CveEmpresa) Then - TxtObsFact.Text = String.Format("Chofer: {0}; Remolque: {1}; Scat: {2};", ObjCGame.DtResultados.FiltraParametros(String.Format("CveOrdenProduccion = {0}", CveOrdenProduccion))(0)("Chofer"), ObjCGame.DtResultados.FiltraParametros(String.Format("CveOrdenProduccion = {0}", CveOrdenProduccion))(0)("CodigoDescripcionRemolque"), ObjCGame.DtResultados.FiltraParametros(String.Format("CveOrdenProduccion = {0}", CveOrdenProduccion))(0)("Scat")) - End If - ObjCGame.Dispose() - GvPS.DataBind() - UPObservaciones.Update() - UpPS.Update() - CargaFolios() - End If - End If - - - If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero() = -1 AndAlso UsuarioActual.CveTipoDocumento.Length = 3 Then - CargaDdlSubProyectos() - UpParametros.Update() - DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento) - CambiaTipoDocto() - LimpiaEscondeContado() - End If - - InicializaAplicarNC() - - 'If CveCliente > 0 Then - ' CargaRestriccionesCreditoCliente(CveVenta:=Me.CveVenta) - 'End If - - If Not CveVenta > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(403).ToString() = "1" Then - If (DdlTipoComprobante.Items.FindByValue("Ing") IsNot Nothing) Then - DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing")) - End If - End If - - - 'rmf.2020.09.30, codigo de prueba - If UsuarioActual.CveEmpresa = 1 Then - DivMesesSinIntereses.Visible = True - DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4") - DivContadoOtros.Visible = True - End If - - If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 Then - - DivMesesSinIntereses.Visible = True - DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4") - DivContadoOtros.Visible = True - TrKilometraje.Visible = True - TrPedido.Visible = False - ' TrKilometrajeTxt.Visible = True - End If - LtlTareaNueva.Text = String.Format(" Tarea", CveVenta) - - 'SI ESTA CARGANDO UNA REFACTURACION. VALIDAR QUE LA FACTURA ANTERIOR ESTE CANCELADA - If Me.ObjFacturaNC IsNot Nothing Then - - If Me.CveDevolucion > 0 AndAlso Me.NuevaFactura = 1 Then - Dim TipoEstatus As Integer = GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.ObjFacturaNC.CveEstatusFactura}").ToEntero() - If TipoEstatus <> 5 Then - 'ESTATUS DE CANCELACION PENDIENTE - If Not Me.ObjFacturaNC.CveEstatusFactura = 23 Then - Alert($"El documento de tipo '{Me.ObjFacturaNC.TipodeComprobante}' a refacturar no ha sido marcado como 'Cancelación pendiente'. Favor de verificar el documento", TipoMensaje.MsgAdvertencia) - BtnEmitirImprimir.Visible = False - UpFacturar.Update() End If End If End If - End If - 'VALIDA ESTATUS CLIENTE - SOLO SE PUEDE USAR EL CLIENTE PARA COTIZAR EN CASO DE ESTAR INACTIVO - If Not CveVenta > 0 AndAlso Not BtnEmitirImprimir.Visible AndAlso Request("Op") IsNot Nothing AndAlso Request("Op").ToString() <> "" Then - If DdlTipoComprobante.SelectedValue.Contiene("Cot") Then - BtnEmitirImprimir.Visible = True - TrVistaPrevia.Visible = True - End If - End If - - If Request("CveCotizacion") IsNot Nothing AndAlso IfNull(Request("CveCotizacion"), 0).ToString().ToEntero() > 0 Then - If UsuarioActual.Empresa.Funcionalidad(135).Contiene("1", "2") Then - 'VERIFICA SI NO ESTA AUTORIZADA - If CveEstatusCotizacion <> 8 Then - BtnEmitirImprimir.Enabled = False - BtnEmitirImprimir.Visible = False - Alert("La cotización no esta autorizada", TipoMensaje.MsgAdvertencia) + 'VALIDA ESTATUS CLIENTE - SOLO SE PUEDE USAR EL CLIENTE PARA COTIZAR EN CASO DE ESTAR INACTIVO + If Not CveVenta > 0 AndAlso Not BtnEmitirImprimir.Visible AndAlso Request("Op") IsNot Nothing AndAlso Request("Op").ToString() <> "" Then + If DdlTipoComprobante.SelectedValue.Contiene("Cot") Then + BtnEmitirImprimir.Visible = True + TrVistaPrevia.Visible = True End If End If - End If + If Request("CveCotizacion") IsNot Nothing AndAlso IfNull(Request("CveCotizacion"), 0).ToString().ToEntero() > 0 Then + If UsuarioActual.Empresa.Funcionalidad(135).Contiene("1", "2") Then + 'VERIFICA SI NO ESTA AUTORIZADA + If CveEstatusCotizacion <> 8 Then + BtnEmitirImprimir.Enabled = False + BtnEmitirImprimir.Visible = False + Alert("La cotización no esta autorizada", TipoMensaje.MsgAdvertencia) + End If + End If - 'QUITAR ESTAS OPCIONES SI LA FACTURA VA SER CANCELADA O ESTA CANCELADA - If CveEstatus.Contiene(4, 5, 12, 13, 20, 23) Then - LBNotaCredito.Visible = False - LnkAplicarRNCDevolucion.Visible = False - HLPagar.Visible = False - HLSaldarVenta.Visible = False - LnkFacturasRelacionadas.Visible = False - End If - - ''EN REALIDAD SE OCUPAN ESTAS COSAS DENTRO DEL POSTABCK ??? - If Not CveVenta > 0 Then - 'LbDescargarExcel.Visible = True - If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then - HLCargaCotizaciones.Visible = True - HlAgregarExcel.Visible = False - Else - HLCargaCotizaciones.Visible = False - HlAgregarExcel.Visible = True - End If - End If - - If DdlTipoComprobante.SelectedValue.Contiene("Rem") AndAlso UsuarioActual.Empresa.Funcionalidad(109) <> "1" Then - ' IPP 15 Julio 2017 - ERA FALSE - ImgAntiPend.Visible = False - UpPS.Update() - End If - - If UsuarioActual.Empresa.Funcionalidad(517) <> "" Then - TxtFolio.Enabled = False - TxtFecha.Enabled = False - If LblSeTimbro.Text = "No" And DdlTipoComprobante.SelectedValue.Contiene("Ing", "Egs", "Dev", "Ant") Then - TxtFecha.Text = NowADS().ToShortDateString - End If - ImgFecha.Visible = False - End If - - BloqueaCondicionesPago() - - BloqueaClasificaciones() - - 'NO PERMITIR AGREGAR PS DESDE VENTAS EN ECONOLLANTAS - If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then - BtnModalAddPS.Enabled = False - End If - - MostrarOpcionesPaqueteria() - - 'If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then - - 'If Not AjustarTotalCotizacionFacturada(ViewState("CveCotizacion").ToString().ToEntero(), TxtTotal.Text.ToDecimal) Then - ' BtnEmitirImprimir.Visible = True - ' Alert("Ocurrió un error al ajustar el importe", TipoMensaje.MsgError) - 'End If - - 'End If - - If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then - trRotacion.Visible = True - trRotacionlbl.Visible = True - trAlineacion.Visible = True - trAlineacionlbl.Visible = True - - Dim FechaRotaAlinea As Date = TxtFecha.Text.ToDate - LblRotacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString - LblAlineacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString - - If Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then - HplDownPDF.Visible = False End If - DdlPS.Attributes.Remove("data-cvesubproyecto") - DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue) - - UpPS.Update() - UPObservaciones.Update() - End If - - If UsuarioActual.Empresa.Funcionalidad(163) = "1" Then - TrDescripcionVenta.Visible = True - If CveVenta <= 0 Then - TxtDescripcionVenta.Enabled = True + 'QUITAR ESTAS OPCIONES SI LA FACTURA VA SER CANCELADA O ESTA CANCELADA + If CveEstatus.Contiene(4, 5, 12, 13, 20, 23) Then + LBNotaCredito.Visible = False + LnkAplicarRNCDevolucion.Visible = False + HLPagar.Visible = False + HLSaldarVenta.Visible = False + LnkFacturasRelacionadas.Visible = False End If - End If - If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then - If CveVenta <= 0 Then - EsVentaMedica = True - CargaTiposVenta() - If CveCliente > 0 Then - SeleccionarClienteSucursal(CveCliente:=CveCliente) + ''EN REALIDAD SE OCUPAN ESTAS COSAS DENTRO DEL POSTABCK ??? + If Not CveVenta > 0 Then + 'LbDescargarExcel.Visible = True + If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + HLCargaCotizaciones.Visible = True + HlAgregarExcel.Visible = False + Else + HLCargaCotizaciones.Visible = False + HlAgregarExcel.Visible = True End If End If - If CveVenta >= 0 Then - HLFAgregarOS.Visible = True - HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}" + + If DdlTipoComprobante.SelectedValue.Contiene("Rem") AndAlso UsuarioActual.Empresa.Funcionalidad(109) <> "1" Then + ' IPP 15 Julio 2017 - ERA FALSE + ImgAntiPend.Visible = False + UpPS.Update() End If - TxtPrecio.Enabled = False - If UsuarioActual.CveUsuario = 3986 Then - TxtPrecio.Enabled = True + If UsuarioActual.Empresa.Funcionalidad(517) <> "" Then + TxtFolio.Enabled = False + TxtFecha.Enabled = False + If LblSeTimbro.Text = "No" And DdlTipoComprobante.SelectedValue.Contiene("Ing", "Egs", "Dev", "Ant") Then + TxtFecha.Text = NowADS().ToShortDateString + End If + ImgFecha.Visible = False End If - 'ocultar la columna de subproyecto - GvPS.Columns(ColumnaSubProyecto).Visible = False - ThProyecto.Visible = False - ThProyecto2.Visible = False - TxtCantidad.Text = "1" - TxtCantidad.Focus() - End If + BloqueaCondicionesPago() - If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then - LnkAgregarCliente.Visible = True - 'ocultar la columna de subproyecto - GvPS.Columns(ColumnaSubProyecto).Visible = False - ThProyecto.Visible = False - ThProyecto2.Visible = False - TrDescripcionVenta.Visible = False + BloqueaClasificaciones() + + 'NO PERMITIR AGREGAR PS DESDE VENTAS EN ECONOLLANTAS + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + BtnModalAddPS.Enabled = False + End If + + MostrarOpcionesPaqueteria() + + 'If ViewState("CveCotizacion").ToString().ToEntero() > 0 Then + + 'If Not AjustarTotalCotizacionFacturada(ViewState("CveCotizacion").ToString().ToEntero(), TxtTotal.Text.ToDecimal) Then + ' BtnEmitirImprimir.Visible = True + ' Alert("Ocurrió un error al ajustar el importe", TipoMensaje.MsgError) + 'End If + + 'End If + + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + trRotacion.Visible = True + trRotacionlbl.Visible = True + trAlineacion.Visible = True + trAlineacionlbl.Visible = True + + Dim FechaRotaAlinea As Date = TxtFecha.Text.ToDate + LblRotacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString + LblAlineacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString + + If Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then + HplDownPDF.Visible = False + End If + + DdlPS.Attributes.Remove("data-cvesubproyecto") + DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue) + + UpPS.Update() + UPObservaciones.Update() + End If + + If UsuarioActual.Empresa.Funcionalidad(163) = "1" Then + TrDescripcionVenta.Visible = True + If CveVenta <= 0 Then + TxtDescripcionVenta.Enabled = True + End If + End If + + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + If CveVenta <= 0 Then + EsVentaMedica = True + CargaTiposVenta() + If CveCliente > 0 Then + SeleccionarClienteSucursal(CveCliente:=CveCliente) + End If + End If + If CveVenta >= 0 Then + HLFAgregarOS.Visible = True + HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}" + End If + + TxtPrecio.Enabled = False + If UsuarioActual.CveUsuario = 3986 Then + TxtPrecio.Enabled = True + End If + 'ocultar la columna de subproyecto + GvPS.Columns(ColumnaSubProyecto).Visible = False + ThProyecto.Visible = False + ThProyecto2.Visible = False - If CveVenta <= 0 Then TxtCantidad.Text = "1" TxtCantidad.Focus() - RegistraScript("abrirDdlPS();", "A1") End If - UpPS.Update() + + If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then + LnkAgregarCliente.Visible = True + 'ocultar la columna de subproyecto + GvPS.Columns(ColumnaSubProyecto).Visible = False + ThProyecto.Visible = False + ThProyecto2.Visible = False + TrDescripcionVenta.Visible = False + + If CveVenta <= 0 Then + TxtCantidad.Text = "1" + TxtCantidad.Focus() + RegistraScript("abrirDdlPS();", "A1") + End If + UpPS.Update() + + End If End If - End If - End Sub #Region "Bloqueo Pantalla" @@ -5084,6 +5087,9 @@ Partial Class Ventas Me.CveLineaAdicionalVenta = DbRowVenta("CveLineaAdicional").ToString().ToEntero() End If TxtDescripcionVenta.Text = DbRowVenta("DescripcionVenta").ToString() + If DbRowVenta("CveCobranzaEstatusTurno").ToString() <> "" Then + DdlGestionCobranza.SelectedValueExist(DbRowVenta("CveCobranzaEstatusTurno").ToString()) + End If 'CargaEncabezado If Not (CveRemision > 0 Or CveCotizacion > 0) Then @@ -6655,10 +6661,16 @@ Partial Class Ventas DdlFormaEntrega.DataBind() DdlFormaEntrega.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub + + Private Sub CargaGestionCobranza() + TrGestionCobranza.Visible = True + DdlGestionCobranza.DataSource = GlobalDTVtaCobranzaTurnos(UsuarioActual.CveEmpresa) + DdlGestionCobranza.DataBind() + DdlGestionCobranza.Items.Insert(0, New ListItem("-", "-1")) + End Sub Private Sub CargaMonedas() DdlMoneda.DataSource = GlobalDTMonedas DdlMoneda.DataBind() - End Sub Private Sub CargaProyecto() Dim CveSubProyecto As Integer = 0 @@ -14337,7 +14349,7 @@ Partial Class Ventas FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible, CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero(), DescripcionVenta:=DescripcionVenta, CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=CveTipoVentaGuardar, RequiereOS:=ChkRequiereTecnico.Checked, FechaParaSurtir:=factura.FechaParaSurtir, - Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveMotivoDevolucion:=CveMotivoDevolucion, Addenda:=factura.Addenda) Then + Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveMotivoDevolucion:=CveMotivoDevolucion, CveCobranzaEstatusTurno:=DdlGestionCobranza.SelectedValue.ToEntero, Addenda:=factura.Addenda) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Else If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then