concepto 103
This commit is contained in:
rrene
@@ -1948,7 +1948,7 @@ Partial Class Ventas
|
||||
CreaDTmpF()
|
||||
CreaDTDocumentosRelacionados()
|
||||
CargaDdlSubProyectos()
|
||||
'CargaProyecto()
|
||||
CargaProyecto()
|
||||
CargaSucursales()
|
||||
|
||||
CargaClasificaciones()
|
||||
@@ -2452,13 +2452,13 @@ Partial Class Ventas
|
||||
CargaFletes()
|
||||
|
||||
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
|
||||
'DdlProyecto.Visible = False
|
||||
DdlProyecto.Visible = False
|
||||
BrSubProyecto.Visible = False
|
||||
DdlProyectoPyME.Visible = False
|
||||
' LblProyectoHeader.Text = "Sucursal"
|
||||
LblProyectoHeader.Text = "Sucursal"
|
||||
LblSubProyecto.Text = ""
|
||||
divProyectoPyME.Visible = False
|
||||
'LblSubProyectoPyME.InnerText = "Sucursal"
|
||||
LblSubProyectoPyME.Text = "Sucursal"
|
||||
Dim dttSub As New DataTable
|
||||
dttSub = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
|
||||
@@ -2476,41 +2476,41 @@ Partial Class Ventas
|
||||
dttSub.Dispose()
|
||||
|
||||
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
|
||||
'DdlProyecto.Visible = False
|
||||
DdlProyecto.Visible = False
|
||||
BrSubProyecto.Visible = False
|
||||
DdlProyectoPyME.Visible = False
|
||||
'LblProyectoHeader.Text = "Proyecto"
|
||||
LblProyectoHeader.Text = "Proyecto"
|
||||
LblSubProyecto.Text = ""
|
||||
divProyectoPyME.Visible = False
|
||||
'LblSubProyectoPyME.InnerText = "Proyecto"
|
||||
'Dim dttSub As New DataTable
|
||||
'dttSub = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
LblSubProyectoPyME.Text = "Proyecto"
|
||||
Dim dttSub As New DataTable
|
||||
dttSub = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
|
||||
'DdlSubProyecto.Items.Clear()
|
||||
'DdlSubProyecto.DataSource = dttSub
|
||||
''DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
|
||||
'DdlSubProyecto.DataBind()
|
||||
'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlSubProyecto.Items.Clear()
|
||||
DdlSubProyecto.DataSource = dttSub
|
||||
'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
|
||||
DdlSubProyecto.DataBind()
|
||||
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
'DdlSubProyectoPyME.Items.Clear()
|
||||
'DdlSubProyectoPyME.DataSource = dttSub
|
||||
''DdlSubProyectoPyME.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
|
||||
'DdlSubProyectoPyME.DataBind()
|
||||
'DdlSubProyectoPyME.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
'dttSub.Dispose()
|
||||
DdlSubProyectoPyME.Items.Clear()
|
||||
DdlSubProyectoPyME.DataSource = dttSub
|
||||
'DdlSubProyectoPyME.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
|
||||
DdlSubProyectoPyME.DataBind()
|
||||
DdlSubProyectoPyME.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
dttSub.Dispose()
|
||||
|
||||
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
|
||||
' LblProyectoHeader.Text = "Sucursal"
|
||||
' LblSubProyecto.Text = "Proyecto"
|
||||
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
|
||||
LblProyectoHeader.Text = "Sucursal"
|
||||
LblSubProyecto.Text = "Proyecto"
|
||||
|
||||
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
|
||||
' LblProyectoHeader.Text = "Proyecto"
|
||||
' LblSubProyecto.Text = "Sucursal"
|
||||
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
|
||||
LblProyectoHeader.Text = "Proyecto"
|
||||
LblSubProyecto.Text = "Sucursal"
|
||||
|
||||
End If
|
||||
|
||||
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto)
|
||||
CargarCentrosDeCosto(DdlProyectoPyME, DdlSubProyectoPyME, LblProyectoPyME, LblSubProyectoPyME)
|
||||
'CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto)
|
||||
'CargarCentrosDeCosto(DdlProyectoPyME, DdlSubProyectoPyME, LblProyectoPyME, LblSubProyectoPyME)
|
||||
|
||||
'MOSTRAR LA OPCION DE AGREGAR PS EN BDH
|
||||
If UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then
|
||||
@@ -4472,25 +4472,25 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa = 48 Then
|
||||
TxtFecha.AutoPostBack = True
|
||||
TxtFecha.AutoPostBack = True
|
||||
End If
|
||||
|
||||
CargaCodigoUnico()
|
||||
|
||||
'SI ES COTIZACION PUEDE GENERAR UNA OC PARA MODIFICAR LOS IMPORTES
|
||||
If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(583) = "1" Then
|
||||
Dim DtOCGeneradas As DataTable = Nothing
|
||||
If ObjVentas.GetVentasCotizacionesOC(Me.CveVenta, -1, UsuarioActual.CveEmpresa) Then
|
||||
DtOCGeneradas = ObjVentas.DtResultados.Copy()
|
||||
End If
|
||||
|
||||
CargaCodigoUnico()
|
||||
|
||||
'SI ES COTIZACION PUEDE GENERAR UNA OC PARA MODIFICAR LOS IMPORTES
|
||||
If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(583) = "1" Then
|
||||
Dim DtOCGeneradas As DataTable = Nothing
|
||||
If ObjVentas.GetVentasCotizacionesOC(Me.CveVenta, -1, UsuarioActual.CveEmpresa) Then
|
||||
DtOCGeneradas = ObjVentas.DtResultados.Copy()
|
||||
End If
|
||||
If DtOCGeneradas IsNot Nothing AndAlso DtOCGeneradas.Rows.Count > 0 Then
|
||||
LtGenerarOC.Visible = False
|
||||
Else
|
||||
LtGenerarOC.Visible = True
|
||||
End If
|
||||
If DtOCGeneradas IsNot Nothing AndAlso DtOCGeneradas.Rows.Count > 0 Then
|
||||
LtGenerarOC.Visible = False
|
||||
Else
|
||||
LtGenerarOC.Visible = True
|
||||
End If
|
||||
End If
|
||||
|
||||
DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString())
|
||||
DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString())
|
||||
|
||||
CargaPS(-1, DdlPS)
|
||||
|
||||
@@ -4509,8 +4509,8 @@ Partial Class Ventas
|
||||
UpEstatus.Update()
|
||||
Retorno = True
|
||||
|
||||
Else
|
||||
ViewState("CveVenta") = -1
|
||||
Else
|
||||
ViewState("CveVenta") = -1
|
||||
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
@@ -10047,17 +10047,17 @@ Partial Class Ventas
|
||||
CveCuentaCliente = CveCuenta
|
||||
End If
|
||||
|
||||
Case 7 'descuentos
|
||||
If LblDescuentos.Text.ToDecimal > 0 Then
|
||||
'Case 7 'descuentos
|
||||
' If LblDescuentos.Text.ToDecimal > 0 Then
|
||||
|
||||
importeMovimiento = (ObjFactura.Descuento) * ValorMultiplicador
|
||||
importeMX = importeMovimiento * tipoCambio * Multiplicador
|
||||
FechaMovimiento = ObjFactura.FechaPago
|
||||
CveSubProyectoContabilizar = CveSubProyectoVenta
|
||||
IdCtaContable = 0
|
||||
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
|
||||
' importeMovimiento = (ObjFactura.Descuento) * ValorMultiplicador
|
||||
' importeMX = importeMovimiento * tipoCambio * Multiplicador
|
||||
' FechaMovimiento = ObjFactura.FechaPago
|
||||
' CveSubProyectoContabilizar = CveSubProyectoVenta
|
||||
' IdCtaContable = 0
|
||||
' If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
|
||||
|
||||
End If
|
||||
' End If
|
||||
Case 3 'Cliente
|
||||
|
||||
If ObjFactura.TipoDocto = "Ant" Then
|
||||
@@ -10419,7 +10419,7 @@ Partial Class Ventas
|
||||
'End If
|
||||
End If
|
||||
|
||||
If Not ErrorPrepoliza AndAlso ObjConta.ValidacionPrePolizaCuadre(ObjFactura.CvePrePoliza, 5) Then
|
||||
If Not ErrorPrepoliza AndAlso ObjConta.ValidacionPrePolizaCuadre(ObjFactura.CvePrePoliza, 5) Then
|
||||
If ObjConta.ValorPolizaDescuadre > 0 Then
|
||||
'ErrorPrepoliza = True
|
||||
GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas")
|
||||
@@ -10956,7 +10956,7 @@ Partial Class Ventas
|
||||
|
||||
importeMovimiento = 0
|
||||
Case 103 'Descuento
|
||||
If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "-1" Then
|
||||
If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "-1" Then
|
||||
|
||||
importeMovimiento = ObjFactura.Descuento * ValorMultiplicador
|
||||
importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
|
||||
@@ -10975,7 +10975,7 @@ Partial Class Ventas
|
||||
If DT.Rows.Count > 0 Then
|
||||
'Se agrega movimiento separado por la cuenta de ventas (ER)
|
||||
For Each Row2 As DataRow In DT.Rows
|
||||
importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
|
||||
importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
|
||||
importeMX = importeMovimiento * tipoCambio * Multiplicador
|
||||
FechaMovimiento = ObjFactura.FechaPago
|
||||
Concepto = $"{ViewState("VentaFolio").ToString()} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
|
||||
@@ -11005,16 +11005,16 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Case 103 'Descuento
|
||||
'si se amortiza anticipo por concepto de descuento, no debe de registrar esta partida.
|
||||
If DdlTipoAmortizacionAnticipo.SelectedValue <> "1" Then
|
||||
importeMovimiento = ObjFactura.Descuento * ValorMultiplicador
|
||||
importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
|
||||
FechaMovimiento = ObjFactura.FechaPago
|
||||
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
|
||||
IdCtaContable = 0
|
||||
End If
|
||||
importeMovimiento = 0
|
||||
'Case 103 'Descuento
|
||||
' 'si se amortiza anticipo por concepto de descuento, no debe de registrar esta partida.
|
||||
' If DdlTipoAmortizacionAnticipo.SelectedValue <> "1" Then
|
||||
' importeMovimiento = ObjFactura.Descuento * ValorMultiplicador
|
||||
' importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador
|
||||
' FechaMovimiento = ObjFactura.FechaPago
|
||||
' If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
|
||||
' IdCtaContable = 0
|
||||
' End If
|
||||
|
||||
Case 8 'Ret IVA por Trasladar
|
||||
If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso ObjFactura.CveTipoRetencion <> 4 Then 'SI NO ES RETENCION DE IVA DE SERVICIOS
|
||||
|
||||
Reference in New Issue
Block a user