This commit is contained in:
2025-05-24 07:06:45 -07:00
4 changed files with 168 additions and 124 deletions

View File

@@ -228,6 +228,16 @@ Partial Class Ventas_FacturacionGlobal
CveProyecto:=Dr("CveProyecto").ToString().ToEntero(), CveSubProyecto:=Dr("CveSubProyecto").ToString().ToEntero(), CveVentaDetallePadre:=Dr("CveVentaDetalle").ToString().ToEntero(), CveVentaDetalleRemision:=Dr("CveVentaDetalle").ToString().ToEntero())
Next
Dim SbObs As New StringBuilder
If txtFechaI.Text.Trim() <> txtFechaF.Text.Trim() Then
SbObs.AppendFormat("Periodo: {0} al {1}", txtFechaI.Text, txtFechaF.Text)
ElseIf txtFechaI.Text.Trim() = txtFechaF.Text.Trim() Then
SbObs.AppendFormat("Periodo: {0}", txtFechaI.Text)
End If
ObjFactura.Observaciones = SbObs.ToString()
ObjFactura.CalculaTotales()
ObjFactura.PreparaTimbre()