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

Fecha de vencimiento segun los datos del cliente

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-06-30 10:22:31 -07:00
parent 1fba1062ea
commit d04808e4a7
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Contratos/FacturacionMasiva.aspx.vb
View File

@@ -433,11 +433,12 @@ Partial Class Contratos_FacturacionMasiva
ObjFactura.Folio = -1
ObjFactura.Serie = "-1"
ObjFactura.CveMesa = -1
ObjFactura.Fecha = DR("FechaVenc").ToString.ToDate 'If(DR("FechaVenc").ToString.ToDate > Now, Now, DR("FechaVenc").ToString.ToDate)
ObjFactura.Fecha = If(DR("FechaVenc").ToString.ToDate > Now, Now, DR("FechaVenc").ToString.ToDate)
ObjFactura.CvePrePoliza = -1
ObjFactura.CveMetodoPago = 1
ObjFactura.MetodoPago = "Efectivo"
ObjFactura.FechaPago = DateTime.Today
ObjFactura.MetodoPago = "Efectivo"
ObjFactura.MotivoDescuento = ""
ObjFactura.Observaciones = If(String.IsNullOrEmpty(TxtObservaciones.Text), "", TxtObservaciones.Text + " ") + DR("Observaciones").ToString
ObjFactura.FechaEjecucion = DateTime.Today
@@ -567,6 +568,13 @@ Partial Class Contratos_FacturacionMasiva
ViewState("CveCuentaRetIVA") = ObjCliente.CveCuentaRetIVA
ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR
'AGREGAR LOS PLAZOS PARA EL PAGO DEL CLIENTE
Dim FechaPago As DateTime = ObjFactura.Fecha.AddDays(ObjCliente.PlazoCobranza)
ObjFactura.FechaVencimiento = FechaPago
ObjFactura.Vigencia = FechaPago
ObjFactura.FechaPago = FechaPago
End If
End If
ObjCliente.Dispose()