--Ferretera.
--Aplicacion de pago de IxC
This commit is contained in:
@@ -4122,12 +4122,8 @@ Namespace Modelos
|
||||
Pago.AplicaTraslado = False
|
||||
Pago.Referencia = DrPago("Folio").ToString()
|
||||
Pago.CveVentaAmortizacion = -1
|
||||
|
||||
If DrPago("TipoPago").ToString() = "NC" Then
|
||||
Pago.TipoPago = "NC"
|
||||
Else
|
||||
Pago.TipoPago = "B"
|
||||
End If
|
||||
Pago.TipoPago = DrPago("TipoPago").ToString()
|
||||
Pago.CveClientePago = ObjFactura.CveCliente
|
||||
|
||||
ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=False)
|
||||
Else
|
||||
@@ -4178,12 +4174,8 @@ Namespace Modelos
|
||||
Pago.AplicaTraslado = False
|
||||
Pago.Referencia = DrPago("Folio").ToString()
|
||||
Pago.CveVentaAmortizacion = DrPago("CveVenta").ToString().ToEntero()
|
||||
|
||||
If DrPago("TipoPago").ToString() = "NC" Then
|
||||
Pago.TipoPago = "NC"
|
||||
Else
|
||||
Pago.TipoPago = "B"
|
||||
End If
|
||||
Pago.TipoPago = DrPago("TipoPago").ToString()
|
||||
Pago.CveClientePago = ObjFactura.CveCliente
|
||||
|
||||
ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(VentaActual, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=False)
|
||||
|
||||
|
||||
@@ -3404,7 +3404,7 @@ Partial Class Ventas
|
||||
If TipoEstatus <> 5 Then
|
||||
'ESTATUS DE CANCELACION PENDIENTE
|
||||
If Not Me.ObjFacturaNC.CveEstatusFactura = 23 Then
|
||||
Alert($"El documento de tipo '{Me.ObjFacturaNC.TipodeComprobante}' a refacturar no ha sido cancelado. Favor de verificar el documento", TipoMensaje.MsgAdvertencia)
|
||||
Alert($"El documento de tipo '{Me.ObjFacturaNC.TipodeComprobante}' a refacturar no ha sido marcado como 'Cancelación pendiente'. Favor de verificar el documento", TipoMensaje.MsgAdvertencia)
|
||||
BtnEmitirImprimir.Visible = False
|
||||
UpFacturar.Update()
|
||||
End If
|
||||
@@ -14397,6 +14397,15 @@ Partial Class Ventas
|
||||
AutoConta = False
|
||||
End If
|
||||
|
||||
'VERIFICA SI EL OBJETO FACTURA TIENE EL OBJETO USUARIO, REQUERIDO PARA FUNCIONES DE PAGOS
|
||||
If ObjFactura.UsuarioActual Is Nothing Then
|
||||
ObjFactura.UsuarioActual = UsuarioActual
|
||||
Else
|
||||
If ObjFactura.UsuarioActual.Empresa Is Nothing Then
|
||||
ObjFactura.UsuarioActual.Empresa = UsuarioActual.Empresa
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim UsaComplementariaClientes As Boolean = True
|
||||
|
||||
If ObjConta.GetPlantillaConceptos(ObjFactura.CveEmpresa, CvePlantilaPoliza) Then
|
||||
@@ -15508,6 +15517,48 @@ Partial Class Ventas
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'APLICA PAGO SI SELECCIONA IxC
|
||||
If DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
|
||||
If Not ErrorPrepoliza Then
|
||||
|
||||
Dim VentaActual As New ClsPaginas.Venta(ObjFactura, UsuarioActual)
|
||||
|
||||
For Each row2 As GridViewRow In GVAnticipos.Rows
|
||||
|
||||
If row2.DataKey("CveConceptoContable").ToString().ToEntero() = 66 Then
|
||||
|
||||
If row2.FCCheckBox("Chk" & row2.RowIndex).Checked Then
|
||||
importeMovimiento = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal
|
||||
|
||||
If importeMovimiento <> 0 Then
|
||||
|
||||
Dim Pago As New ClsPaginas.VentaPago
|
||||
Pago.Fecha = Now
|
||||
Pago.FechaDocumentoRelacionado = row2.DataKey("Fecha").ToString().ToDateTime()
|
||||
Pago.ImportePagoVenta = importeMovimiento
|
||||
Pago.ImportePago = importeMovimiento
|
||||
Pago.CveIE = row2.DataKey("CveIE").ToEntero()
|
||||
Pago.CveMonedaPago = row2.DataKey("CveMoneda").ToEntero()
|
||||
Pago.TCPago = row2.DataKey("TipoCambioPago").ToDecimal()
|
||||
Pago.AplicaTraslado = False
|
||||
Pago.Referencia = row2.DataKey("Folio")
|
||||
Pago.CveVentaAmortizacion = -1
|
||||
Pago.TipoPago = "I"
|
||||
Pago.CveClientePago = ObjFactura.CveCliente
|
||||
|
||||
ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(VentaActual, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=True)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'Si es Facturacion de una remision cancelamos, traspasamos saldos y agregamos evento a la bitacora
|
||||
If RemisionesLista.Count > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then
|
||||
|
||||
@@ -15541,12 +15592,8 @@ Partial Class Ventas
|
||||
Pago.AplicaTraslado = False
|
||||
Pago.Referencia = DrPago("Folio").ToString()
|
||||
Pago.CveVentaAmortizacion = -1
|
||||
|
||||
If DrPago("TipoPago").ToString() = "NC" Then
|
||||
Pago.TipoPago = "NC"
|
||||
Else
|
||||
Pago.TipoPago = "B"
|
||||
End If
|
||||
Pago.TipoPago = DrPago("TipoPago").ToString()
|
||||
Pago.CveClientePago = ObjFactura.CveCliente
|
||||
|
||||
ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=False)
|
||||
Else
|
||||
@@ -15587,13 +15634,7 @@ Partial Class Ventas
|
||||
|
||||
'TRASPASO DE PAGOS DE REMISIONES A FACTURA GLOBAL
|
||||
If ObjFactura.DtPagosFacturaGlobal IsNot Nothing Then
|
||||
If ObjFactura.UsuarioActual Is Nothing Then
|
||||
ObjFactura.UsuarioActual = UsuarioActual
|
||||
Else
|
||||
If ObjFactura.UsuarioActual.Empresa Is Nothing Then
|
||||
ObjFactura.UsuarioActual.Empresa = UsuarioActual.Empresa
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim VentaActual As New ClsPaginas.Venta(ObjFactura, UsuarioActual)
|
||||
|
||||
For Each DrPago As DataRow In ObjFactura.DtPagosFacturaGlobal.Rows
|
||||
@@ -15610,12 +15651,8 @@ Partial Class Ventas
|
||||
Pago.AplicaTraslado = False
|
||||
Pago.Referencia = DrPago("Folio").ToString()
|
||||
Pago.CveVentaAmortizacion = DrPago("CveVenta").ToString().ToEntero()
|
||||
|
||||
If DrPago("TipoPago").ToString() = "NC" Then
|
||||
Pago.TipoPago = "NC"
|
||||
Else
|
||||
Pago.TipoPago = "B"
|
||||
End If
|
||||
Pago.TipoPago = DrPago("TipoPago").ToString()
|
||||
Pago.CveClientePago = ObjFactura.CveCliente
|
||||
|
||||
ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(VentaActual, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=False)
|
||||
|
||||
@@ -16995,7 +17032,7 @@ Partial Class Ventas
|
||||
If DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
|
||||
|
||||
For Each gvr As GridViewRow In GVAnticipos.Rows
|
||||
If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(12, 277) Then
|
||||
If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(12, 66, 277) Then
|
||||
Amortizacion += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal ' - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
|
||||
End If
|
||||
Next
|
||||
|
||||
Reference in New Issue
Block a user