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

Pagos para FyE,IVA al generar OC,poliza virtual,etc

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2019-11-06 09:22:45 -07:00
parent 1b276d5656
commit 71159a162b
7 changed files with 642 additions and 159 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Ventas/PV.aspx.vb
View File

@@ -5076,14 +5076,15 @@ Partial Class PV
Dim FechaI = TxtFechaAjuste.Text.ToDate
Dim FechaF = Now
'Dim NumDiasAlMes As Double = (365 / 12)
'Dim DiasTranscurridos = DateDiff(DateInterval.Day, FechaI, FechaF)
'Dim MesesTranscurridos As Double = DiasTranscurridos / NumDiasAlMes
'Dim MesesTranscurridos As Double = (DiasTranscurridos / NumDiasAlMes)
'Dim Diff = Math.Round(MesesTranscurridos - Math.Truncate(MesesTranscurridos), 2)
'Dim NoMesesTrascurridos = Math.Ceiling(MesesTranscurridos)
Dim NoMesesTrascurridos2 = DateDiff(DateInterval.Month, FechaI, FechaF)
TxtMesesUso.Text = (DateDiff(DateInterval.Month, FechaI, FechaF) + 1).ToString()
'TxtMesesUso.Text = If(Diff > 0.5, NoMesesTrascurridos, NoMesesTrascurridos2).ToString()
TxtMesesUso.Text = NoMesesTrascurridos2
CalculaPorcentajeAjuste()
End Sub