FiveTech Support Forums

I have this error

Error description: Error BASE/1003 Variabile inesistente: C1

on the source

           numeri:= 9
           combinaz:= 10
           scelta:= "2"
           c1:= "102030405060708090"
           c2:= "011121314151617181"
           c3:= "021222324252627282"
           c4:= "031323334353637383"
           c5:= "041424344454647484"
           c6:= "051525354555657585"
           c7:= "061626364656667686"
           c8:= "071727374757677787"
           c9:= "081828384858687888"
           c10:= "091929394959697989"


 contacomb:= 1
        do while (contacomb <= combinaz)
           c:= "C" + LTrim(Str(contacomb))
           cnum:= LTrim(Trim(&c))                              <----------------- give me error here not found c1
           conta:= 1
           do while (conta <= Len(cnum) / 2)
              num:= "N" + LTrim(Str(conta))
              &num:= SubStr(cnum, conta * 2 - 1, 2)
              if (SubStr(&num, 1, 1) = "0")
                 &num:= SubStr(&num, 2, 1)
              endif
              conta:= conta + 1
           enddo

How I can resolve ?

I not understood, where is the error, on ca-clipper it was ok

the c1,c2... are not memvar but local and each combination have different C(n) there is one have until C45

I not understood why you must change my code allways

the experts of fwh / harbor / clipper have always recommended me not to use the memvar and then in the old source of ca-clipper they are local

1) first column I must divide the string into type XX.XX.XX.XX. how I can make ?
2) the other columns are -1 because are not calculate how I can make to show none ?

      // ? VAL( CNUM )

      cValcNum := VAL( CNUM )

      ? TRANSF( cValcNum, "99-99-99-99-99-99-99-99-99" )

Any variable that is not local must be only used when really necessary (ie. in very rare occasions). The reason is simple: non-local variables break the encapsulation principle so their values are more difficult to trace.

EMG

Enrico Maria Giordano wrote:Any variable that is not local must be only used when really necessary (ie. in very rare occasions). The reason is simple: non-local variables break the encapsulation principle so their values are more difficult to trace.

EMG

Encapsulation is not a concept tied to a particular programming language. It is a good programming principle that is useful to build and maintain a clean project structure. You can learn about it reading any programming theory book.

EMG

karinha wrote:

1) first column I must divide the string into type XX.XX.XX.XX. how I can make ?
2) the other columns are -1 because are not calculate how I can make to show none ?

muéstranos un ejemplo práctico de cómo lo estás haciendo, no tengo idea de lo que quieres.

show us a practical example of how you are doing it, i have no idea what you want.

Code (fw): Select all Collapse

      // ? VAL( CNUM )

      cValcNum := VAL( CNUM )

      ? TRANSF( cValcNum, "99-99-99-99-99-99-99-99-99" )

Regards, saludos.

#include "fivewin.ch"
Function Main ()
? ConvertString("019002894546")

return nil 
Function ConvertString(cnum)
local conta:= 1
local cnewstring:=""
              do while (conta <= Len(cnum) / 2)
                  num:= "N" + LTrim(Str(conta))
                  &num:= SubStr(cnum, conta * 2 - 1, 2)
                  cnewstring+=&num+"."
                  conta:= conta + 1
               enddo
return cnewstring

Enrico Maria Giordano wrote:Encapsulation is not a concept tied to a particular programming language. It is a good programming principle that is useful to build and maintain a clean project structure. You can learn about it reading any programming theory book.

EMG

I put many samples in this forum during the years, so you should have seen some of my source code. Anyway, maybe you don't know that declaring a variable also defines its scope and lifetime.

A LOCAL variable exists and is only visible inside the function where it is declared.

A STATIC variable declared inside a function is just like a LOCAL one but keeps its value till the end of the program (ie. its lifetime lasts from the declaration to the end of the program).

A STATIC variable declared outside a function is visible in the whole file (the PRG) and its lifetime is like the previous one.

A PRIVATE variable is visible and exists from the declaration to all the functions called by the function where it is declared.

A PUBLIC variable is visible and exists from the declaration to all the program.

So the only variable that fully respect the encapsulation principle is the LOCAL one.

EMG

Una variable LOCAL existe y solo es visible dentro de la función donde se declara.

Una variable ESTÁTICA declarada dentro de una función es como una LOCAL pero mantiene su valor hasta el final del programa (es decir, su tiempo de vida dura desde la declaración hasta el final del programa).

Una variable STATIC declarada fuera de una función es visible en todo el archivo (el PRG) y su tiempo de vida es como el anterior.

Una variable PRIVADA es visible y existe desde la declaración hasta todas las funciones llamadas por la función donde se declara.

Una variable PÚBLICA es visible y existe desde la declaración hasta todo el programa.

Entonces, la única variable que respeta completamente el principio de encapsulación es la LOCAL.