--Obs en factura global
This commit is contained in:
@@ -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())
|
CveProyecto:=Dr("CveProyecto").ToString().ToEntero(), CveSubProyecto:=Dr("CveSubProyecto").ToString().ToEntero(), CveVentaDetallePadre:=Dr("CveVentaDetalle").ToString().ToEntero(), CveVentaDetalleRemision:=Dr("CveVentaDetalle").ToString().ToEntero())
|
||||||
Next
|
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.CalculaTotales()
|
||||||
|
|
||||||
ObjFactura.PreparaTimbre()
|
ObjFactura.PreparaTimbre()
|
||||||
|
|||||||
Reference in New Issue
Block a user