se debe aplicar al amortizar con una devolución (marcada con la bandera mencionada anteriormente) a una factura aparte que no haya sido pagada
This commit is contained in:
@@ -3575,7 +3575,7 @@
|
||||
<div style="max-height: 300px; overflow-y: auto;">
|
||||
<asp:GridView ID="GVAnticipos" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Anticipos del Cliente"
|
||||
ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall" data-height="300" Style="text-align: center;" GridLines="None"
|
||||
DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, IdCtaContableNC,FolioFiscal, CveClasificacionNC, IdCtaContableNCSIG, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos">
|
||||
DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, IdCtaContableNC,FolioFiscal, CveClasificacionNC, IdCtaContableNCSIG, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
|
||||
@@ -4471,25 +4471,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)
|
||||
|
||||
@@ -4508,8 +4508,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
|
||||
@@ -10418,7 +10418,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")
|
||||
@@ -11011,7 +11011,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
|
||||
@@ -11050,7 +11050,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
|
||||
@@ -11075,7 +11075,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
|
||||
@@ -11114,7 +11114,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
|
||||
@@ -11174,7 +11174,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
|
||||
@@ -12898,8 +12898,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
|
||||
@@ -12913,13 +12974,15 @@ 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
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
Else
|
||||
ErrorConta = True
|
||||
|
||||
Reference in New Issue
Block a user