--Obs en factura global

This commit is contained in:
2025-05-24 00:46:35 -07:00
parent c2476adada
commit b04241187f

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()