diff --git a/Nomina/Aguinaldo.aspx.cs b/Nomina/Aguinaldo.aspx.cs
index a1b39ceeb..e9f78d1f1 100644
--- a/Nomina/Aguinaldo.aspx.cs
+++ b/Nomina/Aguinaldo.aspx.cs
@@ -494,6 +494,13 @@ public partial class Nomina_Aguinaldo : ClsPaginas
else
{
+ totalgravado = 0;
+ isrtotalgravado = 0;
+ isrmensual = 0;
+ lisr = 0;
+
+
+
FraccionIV = 0;
Aguinaldoapagar = aguinaldo - FraccionIV;
}
@@ -513,6 +520,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas
{
FraccionIV = lisr;
}
+ Aguinaldoapagar = aguinaldo - FraccionIV;
Aguinaldoapagar = Aguinaldoapagar - descuento;
aguinaldogravadoSubproyeto += aguinaldogravado;
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 25e522fb5..fd7fc6109 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2720,734 +2720,746 @@ Partial Class Ventas
End Using
End If
- 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())
+ If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then
+
+ Using ObjVentas As New ClsCGame()
+
+ If ObjVentas.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then
+ 'DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString())
+ DdlSubProyectoDatos.SelectedValueExist("12629")
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))
+
+ If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then
+
+ GvPS.DataSource = ObjVentas.DtResultados
+ GvPS.DataBind()
+ End If
+
+ End Using
+ End If
+ 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))
GvPS.DataSource = ObjVentas.DtResultados
GvPS.DataBind()
- 'IEPS A NIVEL DETALLE
- 'TxtIEPS.Text = If(TmpDT.SUM("IEPS") > 0, TmpDT.SUM("IEPS").FormatoNumero, TxtIEPS.Text)
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 UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
- If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem") Then BtnPermisoEditarRemision.Visible = True
-
- DivFechaAnticipoCliente.Visible = True
- TxtFechaAnticipoCliente.Text = NowADS().ToShortDateString
-
- ImgAddObs.Visible = True
- CargaEventoBitacora()
-
- ConfiguraTipoDocto()
-
- TrFolioFiscal.Visible = True
-
- ' Si esta cancelado el compromiso/Pedido no se puede editar el estatus
- 'If DdlEstatus.SelectedValue.Contiene({"9", "14", "17"}) Then
- ' DdlEstatus.Enabled = False
- 'End If
-
- 'CargaDetalle de Almacen
- '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 UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then
- ' Dim ObjInventario As New ClsInventarios
- ' If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
- ' If ObjInventario.DtResultados.Rows.Count > 0 Then
- ' DivDevAlm.Visible = True
- ' End If
- ' End If
- ' ObjInventario.Dispose()
- '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;"
-
+ End Using
End If
- Else
- 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
-
- '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")
+ '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
- If NuevaFactura = 1 Then
- TrTipoRelacion.Visible = True
- DdlTiposRelacion.SelectedValueExist("4")
+ DdlSubProyectoDatos.Enabled = False
+ BtnEmitirImprimir.Visible = False
+ BtnCrearApartirDe.Visible = True
+ If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then BtnCrearApartirDe.Visible = False
- Dim ObjInv As New ClsInventarios
- If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
- If ObjInv.DtResultados.Rows.Count > 0 Then
- TieneAlmacen = True
+ If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
+ If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem") Then BtnPermisoEditarRemision.Visible = True
+
+ DivFechaAnticipoCliente.Visible = True
+ TxtFechaAnticipoCliente.Text = NowADS().ToShortDateString
+
+ ImgAddObs.Visible = True
+ CargaEventoBitacora()
+
+ ConfiguraTipoDocto()
+
+ TrFolioFiscal.Visible = True
+
+ ' Si esta cancelado el compromiso/Pedido no se puede editar el estatus
+ 'If DdlEstatus.SelectedValue.Contiene({"9", "14", "17"}) Then
+ ' DdlEstatus.Enabled = False
+ 'End If
+
+ 'CargaDetalle de Almacen
+ '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
- 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")
+ '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 UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then
+ ' Dim ObjInventario As New ClsInventarios
+ ' If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
+ ' If ObjInventario.DtResultados.Rows.Count > 0 Then
+ ' DivDevAlm.Visible = True
+ ' End If
+ ' End If
+ ' ObjInventario.Dispose()
+ '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;"
+
End If
+ Else
+ If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero() > 0 Then
+ ViewState("CveOS") = Request("CveOS")
+ CargaOS(CveOS)
+ Else
- 'ENTREGA POR ADELANTADO
- If DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped", "PeC") Then
- If UsuarioActual.Empresa.Funcionalidad(145) = "1" Then
- RequiereAlmacenDestino = True
+ '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")
+
+ End If
+
+ 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
+
+ '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
+
+ 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
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
+ End If
+ End If
+
+ 'CARGA PARA FACTURAR
+ ViewState("CveRemision") = IfNull(Request("CveRemision").ToEntero(), 0)
+ ViewState("CveCotizacion") = IfNull(Request("CveCotizacion").ToEntero(), 0)
+
+
+ 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
+
+ '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).ToEntero() > 0 Then
+ TxtFecha.Enabled = False
+ ImgFecha.Visible = 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()
+
+ 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
+ CargaFletes()
+
+ 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(8).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
+ Gvr.FCLinkButton("imgEPyME").Visible = True
+ 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
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
-
- '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).ToEntero() > 0 Then
- TxtFecha.Enabled = False
- ImgFecha.Visible = 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()
-
- 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
- CargaFletes()
+ 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)
- CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto, AplicaTodos:="")
- DdlSubProyecto.SelectedValueExist(DdlSubProyectoDatos.SelectedValue)
- BrSubProyecto.Visible = DdlProyecto.Visible
+ 'SI ESTA CARGANDO UNA REFACTURACION. VALIDAR QUE LA FACTURA ANTERIOR ESTE CANCELADA
+ If Me.ObjFacturaNC IsNot Nothing Then
- 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(8).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
- Gvr.FCLinkButton("imgEPyME").Visible = True
- 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 cancelado. 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 cancelado. 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
- HlFacturasRelaciondas.Visible = False
- End If
-
- ''EN REALIDAD SE OCUPAN ESTAS COSAS DENTRO DEL POSTABCK ???
- If Not CveVenta > 0 Then
- 'LbDescargarExcel.Visible = True
- HlAgregarExcel.Visible = True
- End If
-
- If DdlTipoComprobante.SelectedValue.Contiene("Rem") 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
- 'condición temporal por implementación JAM. usuario FernandaRomo
- If UsuarioActual.CveUsuario.Contiene(11703, 1719) Then
+ '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
+ HlFacturasRelaciondas.Visible = False
+ End If
+
+ ''EN REALIDAD SE OCUPAN ESTAS COSAS DENTRO DEL POSTABCK ???
+ If Not CveVenta > 0 Then
+ 'LbDescargarExcel.Visible = True
+ HlAgregarExcel.Visible = True
+ End If
+
+ If DdlTipoComprobante.SelectedValue.Contiene("Rem") 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
+
+ 'condición temporal por implementación JAM. usuario FernandaRomo
+ If UsuarioActual.CveUsuario.Contiene(11703, 1719) Then
+ TxtFecha.Enabled = True
+ ImgFecha.Visible = True
+ End If
TxtFecha.Enabled = True
- ImgFecha.Visible = True
- End If
- TxtFecha.Enabled = True
- BloqueaCondiconesPago()
+ BloqueaCondiconesPago()
- BloqueaClasificaciones()
+ 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 UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
- HplDownPDF.Visible = False
+ 'NO PERMITIR AGREGAR PS DESDE VENTAS EN ECONOLLANTAS
+ If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+ BtnModalAddPS.Enabled = False
End If
- UPObservaciones.Update()
- End If
+ MostrarOpcionesPaqueteria()
- If UsuarioActual.Empresa.Funcionalidad(163) = "1" Then
- TrDescripcionVenta.Visible = True
- If CveVenta <= 0 Then
- TxtDescripcionVenta.Enabled = True
+ '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 UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
+ HplDownPDF.Visible = False
+ End If
+
+ 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 CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso Request("VM") IsNot Nothing AndAlso IsNumeric(Request("VM")) AndAlso Request("VM").ToEntero() = 1 Then
+ EsVentaMedica = True
+ CargaTiposVenta()
+ End If
+
End If
- If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso Request("VM") IsNot Nothing AndAlso IsNumeric(Request("VM")) AndAlso Request("VM").ToEntero() = 1 Then
- EsVentaMedica = True
- CargaTiposVenta()
- End If
-
- End If
-
-
- If UsuarioActual.CveEmpresa.Contiene(186, 189) Then
+ If UsuarioActual.CveEmpresa.Contiene(186, 189) Then
Dim jsFocus As String = "$(document).ready(function () {
$('#TxtCantidad').on('keydown', function (e) {