topic-29951

Board index FiveWin para Harbour/xHarbour Error al Compilar con Harbour

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Error al Compilar con Harbour
Posted: Sat Jan 10, 2015 03:08 PM

Saludos a Forum
Como puedo hacer esto en Harbour en xHarbour Funciona bien

El Error esta en los & estan son la lineas
@ fil-15,col+clpun GET oV800_1:&prk PICTURE opiun WHEN oV800_1:aContl[1]=5 COLOR colorset(C_FORMUL_FONDO)
@ fil-15,col+clpkl GET oV800_1:&prk PICTURE opikl WHEN oV800_1:aContl[1]=5 COLOR colorset(C_FORMUL_FONDO)
@ fil-15,col+clpps GET oV800_1:&pre PICTURE opips WHEN oV800_1:aContl[1]=5 COLOR colorset(C_FORMUL_FONDO)
Dice Error E0042 Macro of defined simbol "oV800_1:&prk"

Code (fw): Select all Collapse

FUNCTION LSUMP(fil,col,met)
Local pre := "M_pesp"+met
Local ppr := "M_pre"+met
Local prc := "M_prec"+met
Local prk := "M_Kpre"+met
Local pru := "M_Upre"+met
Local prm := "M_Mpre"+met


//alert(str(fil,2,0)+" "+str(col,2,0) )
  oV800_1:&pre := oV800_1:&ppr * oV800_1:&prc
  if oV800_1:H_FAC="0"
     oV800_1:&prk := oV800_1:&ppr
     oV800_1:&pru := oV800_1:&ppr
  else
     oV800_1:&prk := oV800_1:&ppr * (oV800_1:KILMIL/1000)
     oV800_1:&pru := oV800_1:&ppr 
  endif
 //revisar se desabilito por harbour 

  @ fil-15,col+clpun GET oV800_1:&prk  PICTURE opiun  WHEN oV800_1:aContl[1]=5  COLOR colorset(C_FORMUL_FONDO) 
  @ fil-15,col+clpkl GET oV800_1:&prk  PICTURE opikl  WHEN oV800_1:aContl[1]=5  COLOR colorset(C_FORMUL_FONDO) 
  @ fil-15,col+clpps GET oV800_1:&pre  PICTURE opips  WHEN oV800_1:aContl[1]=5  COLOR colorset(C_FORMUL_FONDO) 


 RETURN(.T.)

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Error al Compilar con Harbour
Posted: Sat Jan 10, 2015 04:32 PM

Hola
Has probado asi?

Code (fw): Select all Collapse

       ...  &(ppr) ...

...

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Re: Error al Compilar con Harbour
Posted: Sat Jan 10, 2015 07:11 PM

cnavarro wrote:Hola
Has probado asi?
Code (fw): Select all Collapse
       ...  &(ppr) ...

...

Gracias.
Si funciona de esta manera

He notabo que el paso de xHarbour a Harbour Generar Error el & como el codigo Anexo

IF ( nAttr & FA_RDONLY ) > 0
?? "Readonly "
ENDIF

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

FiveTech Support Forums

Continue the discussion