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 ...

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

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

local aGrad := ;
{ ;
{ 0.5, RGB( 193, 182, 174 ), RGB( 237, 234, 109 ) }, ;
{ 0.5, RGB ...

... Precio2"}
aHead:= {"Código","Descripción","Rubro","Precio 1","Precio 2"}
aSize:= { 90 * Factory,240 * Factory,240 * Factory,110 * Factory,110 * Factory }
aJust:= { AL_CENTER , AL_LEFT , AL_LEFT, AL_RIGHT , AL_RIGHT }

@ 0, 0 XBROWSE oBr COLUMNS aCol HEADERS aHead COLSIZES aSize JUSTRIFY aJust OF oDlg

DEFINE BRUSH oBr color rgb( 204, 255, 153 )
...
UTILPRN ::oUtil Self:nLinea, 1.3 SAY " " + DToC( aDatos[ nItem ][ 1 ] ) FONT ::oFnt2 BRUSH oBr WIDTH 18.2 shadow .T.

... local oDlg1,oError,lNuevo:=.F.,cText := ""
local oGet := ARRAY(10)
LOCAL lSalir := .F.
LOCAL lSalvar := .F.
local oBoton1,oBoton2,oBr,vFECHALIMI :=space(12),vINTMORA:=0,vDESIMPTO:=0,vDESMORA:=0,vANOVIG:=space(4)
local cServer := "127.0.0.1"
local cDataBase := "fwmariadb"
local ...

... este hilo que se ha quedado sin respuesta, me interesa mucho el tema

Hi Mr. Rao.

this code works perfectly

oIni:Set( "states", "browse", oBrw:SaveState()

but this not save anything

oIni:Set( "states", "window", oWnd:SaveState()

I use this function.

FUNCTION ...

Hi Mr. Rao.

this code works perfectly

oIni:Set( "states", "browse", oBrw:SaveState()

but this not save anything

oIni:Set( "states", "window", oWnd:SaveState() 

I use this function.

FUNCTION SaveWinData( oWnd, oBrw,cAlias ) LOCAL oIni INI oIni File ...

... he llegado a imprimir 70 etiquetas sin que se corra un mm

Cualquier duda avisame

Saludos

function barcode2tp()

local opr, xStep, yStep, oBr, oFont , N := 0

* public XCANCELA := "N"
PUBLIC XCODIGOC := SPACE(13)
public ocodigo

if msgyesno ("Imprime Codigo de trazabilidad ...

Saludos, para mayor rapidez usa FILLARRAY, aca te coloco las formas en que lo uso, saludos...

oQryVende:FillArray( {| aRow | AAdd( oBrwASi:aArrayData, { aRow[2], aRow[4] } ) } ) // CON POSICION CAMPOoBrwASi:aArrayData := oQryVende:FillArray&#40 ...

... para mayor rapidez usa FILLARRAY, aca te coloco las formas en que lo uso, saludos...

 oQryVende:FillArray( {| aRow | AAdd( oBrwASi:aArrayData, { aRow[2], aRow[4] } ) } ) // CON POSICION CAMPOoBrwASi:aArrayData := oQryVende:FillArray&#40 ...

Hi Nages.

I need your help to convert this funtion into xbrowse, this work well with Tsbrowse

FUNCTION N21A_DEFCOLUMN(_oBR, D_COLUMNAS)
LOCAL X:=0, _PIC, _COLOR:=""
D_COLSIZES:={}
FOR X = 1 TO LEN(D_COLUMNAS)
AADD(D_COLSIZES, IIF(D_COLUMNAS[X,3] < 3 , 40 , D_COLUMNAS[X,3] * 9 ) )
_NCOLOR:= "NCOLOR ...