AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge ventas con correciones

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-07-06 18:11:15 -07:00
parent 03ac720771
commit 55b8575017
1 changed files with 68 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
Ventas/Ventas.aspx.vb
View File

@@ -11026,7 +11026,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 +11065,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 +11090,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 +11129,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 +11189,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 +12913,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 +12989,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