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

Refacturacion con anticipos y NC

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-02-11 21:03:42 -07:00
parent aeee23fd81
commit 173de6ebe4
3 changed files with 74 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Ventas/Ventas.aspx
View File

@@ -6515,14 +6515,26 @@
} }
function LimitaSaldoRNCChk(TxtImporte, Saldo) { function LimitaSaldoRNCChk(TxtImporte, Saldo) {
var Importe = 0; var Importe = 0;
if (TxtImporte.value != '') {
Importe = parseFloat(TxtImporte.value); if (TxtImporte.value.includes('.')) {
return;
}
if (TxtImporte.value.includes(',')) {
return;
} }
if (Importe > Saldo) { var regex = new RegExp("^[-+]?[0-9]+\.[0-9]+$");
TxtImporte.value = FormatoNumero(Saldo, 2);
} else { if (regex.test(TxtImporte.value)) {
TxtImporte.value = FormatoNumero(Importe, 2);; if (TxtImporte.value != '') {
Importe = parseFloat(TxtImporte.value);
}
if (Importe > Saldo) {
TxtImporte.value = FormatoNumero(Saldo, 2);
} else {
TxtImporte.value = FormatoNumero(Importe, 2);;
}
} }
} }

51
Ventas/Ventas.aspx.vb
View File

@@ -6771,19 +6771,25 @@ Partial Class Ventas
TieneAnticipo = True TieneAnticipo = True
CveAnticipoPadre = row2.DataKey("CveVenta").ToEntero CveAnticipoPadre = row2.DataKey("CveVenta").ToEntero
ObjFactura.CveVentaRelacion = CveAnticipoPadre 'relaciona al anticipo
CveAnticipo = CveAnticipoPadre CveAnticipo = CveAnticipoPadre
ObjFactura.ImporteRelacion = row2.FCTextBox($"TxtAnticipo{actualindex}").Text.ToDecimal 'CUANDO ES REFACTURACION DEBE RELACIONAR CON LA FACTURA REFACTURADA
FolioFiscalRelacionado = row2.DataKey("FolioFiscal") If NuevaFactura <> 1 Then
ObjFactura.CveVentaPadre = row2.DataKey("CveVenta").ToEntero ObjFactura.CveVentaRelacion = CveAnticipoPadre 'relaciona al anticipo
ObjFactura.ImporteRelacion = row2.FCTextBox($"TxtAnticipo{actualindex}").Text.ToDecimal
FolioFiscalRelacionado = row2.DataKey("FolioFiscal")
ObjFactura.CveVentaPadre = row2.DataKey("CveVenta").ToEntero
Else
ObjFactura.CveVentaRelacion = CveDevolucion
End If
End If End If
actualindex = actualindex + 1 actualindex = actualindex + 1
Next Next
End If End If
Dim EsNCAmortizacion As Boolean = False Dim EsNCAmortizacion As Boolean = False
If DdlTipoComprobante.SelectedValue = "Egs" AndAlso ChkAplicaNCAnticipo.Checked Then If ObjFactura.TipoDocto = "Egs" AndAlso ChkAplicaNCAnticipo.Checked Then
EsNCAmortizacion = True EsNCAmortizacion = True
End If End If
@@ -6847,7 +6853,14 @@ Partial Class Ventas
' cambiar la condicion para saber si hay seleccionado ' cambiar la condicion para saber si hay seleccionado
If (TieneAnticipo AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "2") OrElse NCDescuento Then If (TieneAnticipo AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "2") OrElse NCDescuento Then
Try Try
CreaObjetosVentaAmortizacion(ObjVentas, FolioFiscalRelacionado, CveAnticipoPadre, NCDescuento:=NCDescuento) Dim CveVentaRelacionada As Integer = -1
If NuevaFactura = 1 Then
CveVentaRelacionada = ObjFactura.CveVenta
Else
CveVentaRelacionada = CveAnticipoPadre
End If
CreaObjetosVentaAmortizacion(ObjVentas, FolioFiscalRelacionado, CveVentaRelacionada, NCDescuento:=NCDescuento)
If RegistrarNCAmortizacion(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjContPaq, ObjFacturaDevolucion, ObjBancos, Nothing, If RegistrarNCAmortizacion(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjContPaq, ObjFacturaDevolucion, ObjBancos, Nothing,
Nothing, NCDescuento:=NCDescuento) Then Nothing, NCDescuento:=NCDescuento) Then
Obj2.Add(ObjFacturaDevolucion) Obj2.Add(ObjFacturaDevolucion)
@@ -7524,13 +7537,16 @@ Partial Class Ventas
End If End If
End If End If
If DtVentasNC Is Nothing Then InicializaDTVentasNC() 'SI NO ES REFACTURACION
Dim Drt = DtVentasNC.NewRow If NuevaFactura <> 1 Then
Drt("CveVenta") = ObjFactura.CveVenta If DtVentasNC Is Nothing Then InicializaDTVentasNC()
Drt("Importe") = 0 Dim Drt = DtVentasNC.NewRow
Drt("FolioFiscal") = ObjFactura.FolioFiscal Drt("CveVenta") = ObjFactura.CveVenta
DtVentasNC.Rows.Add(Drt) Drt("Importe") = 0
DtVentasNC.AcceptChanges() Drt("FolioFiscal") = ObjFactura.FolioFiscal
DtVentasNC.Rows.Add(Drt)
DtVentasNC.AcceptChanges()
End If
End Sub End Sub
@@ -7648,7 +7664,14 @@ Partial Class Ventas
factura.RetIVA = TotalRetIVA factura.RetIVA = TotalRetIVA
factura.RetISR = TotalRetISR factura.RetISR = TotalRetISR
factura.Total = Total factura.Total = Total
factura.CveVentaPadre = CveVentaP
'SI ES REFACTURACION DEBE RELACIONAR CON LA VENTA NUEVA
If NuevaFactura = 1 Then
factura.CveVentaPadre = ObjFactura.CveVenta
Else
factura.CveVentaPadre = CveVentaP
End If
If DtVentasNC IsNot Nothing AndAlso DtVentasNC.Rows.Count > 0 Then If DtVentasNC IsNot Nothing AndAlso DtVentasNC.Rows.Count > 0 Then
DtVentasNC.Rows(0)("Importe") = Total DtVentasNC.Rows(0)("Importe") = Total

36
vwd.webinfo
View File

@@ -1,18 +1,20 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<!-- <!--
Visual Studio global web project settings. Visual Studio global web project settings.
--> -->
<VisualWebDeveloper> <VisualWebDeveloper>
<StartupServices> <StartupServices>
<Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
</StartupServices>
<Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
</StartupServices>
</VisualWebDeveloper> </VisualWebDeveloper>