Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
rrene
@@ -2451,66 +2451,10 @@ Partial Class Ventas
|
||||
|
||||
CargaFletes()
|
||||
|
||||
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
|
||||
DdlProyecto.Visible = False
|
||||
BrSubProyecto.Visible = False
|
||||
DdlProyectoPyME.Visible = False
|
||||
LblProyectoHeader.Text = "Sucursal"
|
||||
LblSubProyecto.Text = ""
|
||||
divProyectoPyME.Visible = False
|
||||
LblSubProyectoPyME.Text = "Sucursal"
|
||||
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"))
|
||||
|
||||
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 = 2 Then
|
||||
DdlProyecto.Visible = False
|
||||
BrSubProyecto.Visible = False
|
||||
DdlProyectoPyME.Visible = False
|
||||
LblProyectoHeader.Text = "Proyecto"
|
||||
LblSubProyecto.Text = ""
|
||||
divProyectoPyME.Visible = False
|
||||
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"))
|
||||
|
||||
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 = 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)
|
||||
BrSubProyecto.Visible = DdlProyecto.Visible
|
||||
divProyectoPyME.Visible = DdlProyecto.Visible
|
||||
|
||||
'MOSTRAR LA OPCION DE AGREGAR PS EN BDH
|
||||
If UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then
|
||||
@@ -11026,7 +10970,7 @@ Partial Class Ventas
|
||||
|
||||
'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO
|
||||
If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then
|
||||
TipoMovimiento = True
|
||||
TipoMovimiento = Not TipoMovimiento
|
||||
ConceptoContable = 62
|
||||
importeMovimiento = importeMovimiento * -1
|
||||
importeMX = importeMX * -1
|
||||
@@ -11065,7 +11009,7 @@ Partial Class Ventas
|
||||
|
||||
'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO
|
||||
If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then
|
||||
TipoMovimiento = True
|
||||
TipoMovimiento = Not TipoMovimiento
|
||||
ConceptoContable = 314
|
||||
importeMovimiento = importeMovimiento * -1
|
||||
importeMX = importeMX * -1
|
||||
@@ -11090,7 +11034,7 @@ Partial Class Ventas
|
||||
|
||||
'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO
|
||||
If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then
|
||||
TipoMovimiento = True
|
||||
TipoMovimiento = Not TipoMovimiento
|
||||
ConceptoContable = 63
|
||||
importeMovimiento = importeMovimiento * -1
|
||||
importeMX = importeMX * -1
|
||||
@@ -11129,7 +11073,7 @@ Partial Class Ventas
|
||||
|
||||
'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO
|
||||
If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then
|
||||
TipoMovimiento = True
|
||||
TipoMovimiento = Not TipoMovimiento
|
||||
ConceptoContable = 61
|
||||
importeMovimiento = importeMovimiento * -1
|
||||
importeMX = importeMX * -1
|
||||
@@ -11189,7 +11133,7 @@ Partial Class Ventas
|
||||
|
||||
'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO
|
||||
If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then
|
||||
TipoMovimiento = True
|
||||
TipoMovimiento = Not TipoMovimiento
|
||||
ConceptoContable = 39
|
||||
importeMovimiento = importeMovimiento * -1
|
||||
importeMX = importeMX * -1
|
||||
@@ -12913,8 +12857,69 @@ Partial Class Ventas
|
||||
Else
|
||||
importeMovimiento = 0
|
||||
End If
|
||||
Case 13 ' IVA x Trasladar
|
||||
If gvr.DataKey("RegresarImpuesto") = "1" Then
|
||||
importeMovimiento = gvr.DataKey("IVA").ToString().ToDecimal()
|
||||
importeMX = importeMovimiento
|
||||
PorcentajeImpuesto = (importeMovimiento / gvr.DataKey("SubTotal").ToString().ToDecimal())
|
||||
If importeMovimiento <> 0 Then
|
||||
IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
|
||||
CveCuenta = If(CveCuentaIVAXTrasladar > 0, CveCuentaIVAXTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
|
||||
End If
|
||||
Else
|
||||
importeMovimiento = 0
|
||||
PorcentajeImpuesto = 0
|
||||
End If
|
||||
|
||||
Case 61 ' IVA Trasladado
|
||||
If gvr.DataKey("RegresarImpuesto") = "1" Then
|
||||
importeMovimiento = gvr.DataKey("IVA").ToString().ToDecimal()
|
||||
importeMX = importeMovimiento
|
||||
PorcentajeImpuesto = (importeMovimiento / gvr.DataKey("SubTotal").ToString().ToDecimal())
|
||||
If importeMovimiento <> 0 Then
|
||||
IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
|
||||
CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado)
|
||||
End If
|
||||
Else
|
||||
importeMovimiento = 0
|
||||
PorcentajeImpuesto = 0
|
||||
End If
|
||||
|
||||
Case 38 ' IEPS x Trasladar
|
||||
If gvr.DataKey("RegresarImpuesto") = "1" Then
|
||||
importeMovimiento = gvr.DataKey("IEPS").ToString().ToDecimal()
|
||||
importeMX = importeMovimiento
|
||||
PorcentajeImpuesto = (importeMovimiento / gvr.DataKey("SubTotal").ToString().ToDecimal())
|
||||
If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString().ToEntero()
|
||||
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladarSIG").ToString().ToEntero()
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
importeMovimiento = 0
|
||||
PorcentajeImpuesto = 0
|
||||
End If
|
||||
|
||||
Case 39 ' IEPS Trasladado
|
||||
If gvr.DataKey("RegresarImpuesto") = "1" Then
|
||||
importeMovimiento = gvr.DataKey("IEPS").ToString().ToDecimal()
|
||||
importeMX = importeMovimiento
|
||||
PorcentajeImpuesto = (importeMovimiento / gvr.DataKey("SubTotal").ToString().ToDecimal())
|
||||
If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSTrasladado").ToString().ToEntero()
|
||||
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSTrasladadoSIG").ToString().ToEntero()
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
importeMovimiento = 0
|
||||
PorcentajeImpuesto = 0
|
||||
End If
|
||||
Case Else
|
||||
importeMovimiento = 0
|
||||
PorcentajeImpuesto = 0
|
||||
importeMX = 0
|
||||
End Select
|
||||
|
||||
If importeMovimiento <> 0 Then
|
||||
@@ -12928,8 +12933,9 @@ Partial Class Ventas
|
||||
' CveCuentaContabilizacion = 0
|
||||
'End If
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral, PorcentajeImpuesto:=PorcentajeImpuesto) Then
|
||||
ErrorConta = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
Reference in New Issue
Block a user