FiveTech Software tech support forums

... DEFINE FONT oFnt1 NAME "Arial" SIZE 0,-18 OF oPrn
DEFINE FONT oFnt2 NAME "Arial" SIZE 0,-8 BOLD OF oPrn
DEFINE BRUSH oBrush COLOR 0
DEFINE PEN oPen1 WIDTH 5
DEFINE PEN oPen2 WIDTH 15 COLOR 7873845
DEFINE PEN oPen3 WIDTH 1 COLOR 4556678
DEFINE PEN oPen4 WIDTH 3 COLOR ...

... function go_code( cBarra, nx,ny,oPrint,lHoRz, nColor, nWidth, nLen)
//-----------------------------------------------------------------
local n, oBr
if empty(nColor)
nColor := CLR_BLACK
end
default lHorz := .t.

default nWidth := 0.030 // 1/3 M/mm
* default nWidth := 0.035 // 1/3 M/mm ...

... function AbmCorregir()
local napu
local aBotones := {}

local oDlg, oBrw, cAlias := cGetNewAlias( "CORREGIR" )
local oBr, oFont

local titgral := 'Información Sobre Correcciones'
local atitcol := ''
local acampos ...

... function AbmOC()
local napu
local aBotones := {}

local oDlg, oBrw, cAlias := cGetNewAlias( "_ARTFOR" )
local oBr, oFont
local titgral := 'Stock'
local atitcol := ''
local acampos := {}
local lcampos

Private ...

... pero jo logro que muestre el nombre del cliente. si alguien ve en que le estoy errando agradecere su ayuda. gracias
aca el prg.

local oDlg, oBrw, cAlias := cGetNewAlias( "PRECFOR" )
local oBr, oFont
local titgral := 'Precios de FORMULARIOS'

local oBrw2, cAlias2 := cGetNewAlias( "PRECBAR ...