Merge ventas con correciones
This commit is contained in:
@@ -11026,7 +11026,7 @@ Partial Class Ventas
|
|||||||
|
|
||||||
'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO
|
'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
|
If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then
|
||||||
TipoMovimiento = True
|
TipoMovimiento = Not TipoMovimiento
|
||||||
ConceptoContable = 62
|
ConceptoContable = 62
|
||||||
importeMovimiento = importeMovimiento * -1
|
importeMovimiento = importeMovimiento * -1
|
||||||
importeMX = importeMX * -1
|
importeMX = importeMX * -1
|
||||||
@@ -11065,7 +11065,7 @@ Partial Class Ventas
|
|||||||
|
|
||||||
'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO
|
'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
|
If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then
|
||||||
TipoMovimiento = True
|
TipoMovimiento = Not TipoMovimiento
|
||||||
ConceptoContable = 314
|
ConceptoContable = 314
|
||||||
importeMovimiento = importeMovimiento * -1
|
importeMovimiento = importeMovimiento * -1
|
||||||
importeMX = importeMX * -1
|
importeMX = importeMX * -1
|
||||||
@@ -11090,7 +11090,7 @@ Partial Class Ventas
|
|||||||
|
|
||||||
'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO
|
'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
|
If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then
|
||||||
TipoMovimiento = True
|
TipoMovimiento = Not TipoMovimiento
|
||||||
ConceptoContable = 63
|
ConceptoContable = 63
|
||||||
importeMovimiento = importeMovimiento * -1
|
importeMovimiento = importeMovimiento * -1
|
||||||
importeMX = importeMX * -1
|
importeMX = importeMX * -1
|
||||||
@@ -11129,7 +11129,7 @@ Partial Class Ventas
|
|||||||
|
|
||||||
'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO
|
'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
|
If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then
|
||||||
TipoMovimiento = True
|
TipoMovimiento = Not TipoMovimiento
|
||||||
ConceptoContable = 61
|
ConceptoContable = 61
|
||||||
importeMovimiento = importeMovimiento * -1
|
importeMovimiento = importeMovimiento * -1
|
||||||
importeMX = importeMX * -1
|
importeMX = importeMX * -1
|
||||||
@@ -11189,7 +11189,7 @@ Partial Class Ventas
|
|||||||
|
|
||||||
'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO
|
'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
|
If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then
|
||||||
TipoMovimiento = True
|
TipoMovimiento = Not TipoMovimiento
|
||||||
ConceptoContable = 39
|
ConceptoContable = 39
|
||||||
importeMovimiento = importeMovimiento * -1
|
importeMovimiento = importeMovimiento * -1
|
||||||
importeMX = importeMX * -1
|
importeMX = importeMX * -1
|
||||||
@@ -12913,8 +12913,69 @@ Partial Class Ventas
|
|||||||
Else
|
Else
|
||||||
importeMovimiento = 0
|
importeMovimiento = 0
|
||||||
End If
|
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
|
Case Else
|
||||||
importeMovimiento = 0
|
importeMovimiento = 0
|
||||||
|
PorcentajeImpuesto = 0
|
||||||
|
importeMX = 0
|
||||||
End Select
|
End Select
|
||||||
|
|
||||||
If importeMovimiento <> 0 Then
|
If importeMovimiento <> 0 Then
|
||||||
@@ -12928,8 +12989,9 @@ Partial Class Ventas
|
|||||||
' CveCuentaContabilizacion = 0
|
' CveCuentaContabilizacion = 0
|
||||||
'End If
|
'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
|
ErrorConta = True
|
||||||
|
Exit For
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
|||||||
Reference in New Issue
Block a user