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

agregando porcentaje iva al registro de ventas

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-03-07 12:27:36 -07:00
parent ab6ed4c03c
commit ae972bee9c
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
General/SaldosIniciales.aspx.vb
View File

@@ -1378,6 +1378,7 @@ Partial Class General_SaldosIniciales
Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero
Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString.ToDecimal, 0) Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString.ToDecimal, 0)
Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "") Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "")
Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Row("PorcentajeIVA").ToString.ToDecimal, 0)
GuardaLog(Sucursal + "-" + Row("Folio").ToString) GuardaLog(Sucursal + "-" + Row("Folio").ToString)
'Temporalmente SE BORRARA 'Temporalmente SE BORRARA
@@ -1431,7 +1432,7 @@ Partial Class General_SaldosIniciales
End If End If
CveVenta = ObjVentas.CveVenta CveVenta = ObjVentas.CveVenta
If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, 0.16, SubTotal * 0.16, "Saldo Inicial", 0, 0, -1, 0) Then If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, -1, 0, PorcentajeIVA:=PorcentajeIVA) Then
ErrorVentas = True ErrorVentas = True
Exit For Exit For
End If End If