PC Toledo

create a textbox on harbour

#include "hbclass.ch"

CLASS TextBox

   DATA text INIT ""
   DATA x INIT 10
   DATA y INIT 10
   DATA width INIT 200
   DATA height INIT 20

   METHOD init( x, y, width, height )
   METHOD setText( text )
   METHOD getText()
   METHOD handleEvent( event )

ENDCLASS

METHOD init( x, y, width, height ) CLASS TextBox
   ::x := x
   ::y := y
   ::width := width
   ::height := height
   return nil

METHOD setText( text ) CLASS TextBox
   ::text := text
   return nil

METHOD getText() CLASS TextBox
   return ::text

METHOD handleEvent( event ) CLASS TextBox
   if event:Type == HB_EV_KEYPRESS
      if event:KeyCode == HB_K_ENTER
         // handle enter key press
      endif
   endif
   return nil

// create a textbox instance
local tb := TextBox():new( 10, 10, 200, 20 )

// set the text
tb:setText( "Hello, World!" )

// display the textbox
DispBox( tb:x, tb:y, tb:width, tb:height, tb:text )

// handle events
DO WHILE.T.
   local event := HB_GenerateEvent()
   tb:handleEvent( event )
ENDDO

This code creates a TextBox class with properties for text, x, y, width, and height. It also has methods for initializing the textbox, setting and getting the text, and handling events.

In the example code, we create a new instance of the TextBox class, set the text, and display the textbox using DispBox. We then enter an event loop to handle events, such as key presses.

Note that this is a very basic example, and you may want to add more features to your textbox class, such as handling mouse events, scrolling, and so on.

I've reviewed your functions, and here are some observations and suggestions:

Function naming conventions

Your function names are mostly descriptive and follow a consistent naming convention. However, I noticed that some functions have underscores (e.g., Valid_Cnpj_Cpf) while others don't (e.g., ValidCnpj). To maintain consistency, I suggest using underscores to separate words in function names.

Function organization

Your functions are organized into related groups (e.g., CNPJ, CPF, RENAVAM, etc.). This is a good practice, as it makes it easier to find and maintain related functions.

Code style

Your code is generally well-formatted, with consistent indentation and spacing. However, I noticed some inconsistencies in the use of whitespace between lines and around operators. To maintain readability, I suggest using a consistent number of spaces around operators and between lines.

Functionality

I didn't test your functions extensively, but they appear to be implementing various validation and formatting rules for different types of Brazilian documents (e.g., CNPJ, CPF, RENAVAM, etc.). The functions seem to be well-structured and easy to follow.

Suggestions

Consider adding more comments to your functions, especially for complex calculations or algorithms. This will make it easier for others (and yourself) to understand the code.
You might want to consider using more descriptive variable names, especially for temporary variables. This will make the code easier to read and understand.
In some functions, you're using hb_Default to set default values for parameters. While this is a good practice, you might want to consider using more explicit default values or error handling for invalid input.
Some functions have similar logic or calculations. You might want to consider extracting common functionality into separate functions or modules to reduce code duplication.
Overall, your functions appear to be well-structured and easy to follow. With some minor adjustments to naming conventions, code style, and commenting, they can be even more maintainable and readable.

translate to brasilian

Here is the translation of my previous response to Brazilian Portuguese:

Convenções de nomenclatura de funções

Os nomes das suas funções são em sua maioria descritivos e seguem uma convenção de nomenclatura consistente. No entanto, notei que algumas funções têm underscores (ex: Valid_Cnpj_Cpf) enquanto outras não (ex: ValidCnpj). Para manter a consistência, sugiro usar underscores para separar palavras nos nomes de funções.

Organização de funções

As suas funções estão organizadas em grupos relacionados (ex: CNPJ, CPF, RENAVAM, etc.). Isso é uma boa prática, pois torna mais fácil encontrar e manter funções relacionadas.

Estilo de código

O seu código está geralmente bem formatado, com indentação e espaçamento consistentes. No entanto, notei algumas inconsistências no uso de espaços entre linhas e ao redor de operadores. Para manter a legibilidade, sugiro usar um número consistente de espaços ao redor de operadores e entre linhas.

Funcionalidade

Não testei suas funções extensivamente, mas elas parecem implementar várias regras de validação e formatação para diferentes tipos de documentos brasileiros (ex: CNPJ, CPF, RENAVAM, etc.). As funções parecem estar bem estruturadas e fáceis de seguir.

Sugestões

Considere adicionar mais comentários às suas funções, especialmente para cálculos ou algoritmos complexos. Isso tornará mais fácil para os outros (e para você mesmo) entender o código.
Você pode querer considerar usar nomes de variáveis mais descritivos, especialmente para variáveis temporárias. Isso tornará o código mais fácil de ler e entender.
Em algumas funções, você está usando hb_Default para definir valores padrão para parâmetros. Embora isso seja uma boa prática, você pode querer considerar usar valores padrão mais explícitos ou tratamento de erro para entrada inválida.
Algumas funções têm lógica ou cálculos semelhantes. Você pode querer considerar extrair funcionalidade comum em funções ou módulos separados para reduzir a duplicação de código.
No geral, as suas funções parecem estar bem estruturadas e fáceis de seguir. Com algumas ajustes menores nas convenções de nomenclatura, estilo de código e comentários, elas podem ser ainda mais mantidas e legíveis.

pode fazer e me mostrar alguns ajustes?

Here are some adjustments I made to your code:

Function naming conventions

I added underscores to separate words in function names:

Código: Selecionar todos

FUNCTION Valid_Cnpj_Cpf( cValue )
...
FUNCTION Format_Cnpj( cValue )
...

Code style

I added consistent spacing around operators and between lines:

Código: Selecionar todos

LOCAL lOk :=.F.
LOCAL nSoma := 0
LOCAL cChar
...
IF Val( cCodigo ) == 0
   cCodigo := Pad( "SEM GTIN", 14 )
ELSE
   cCodigo := SoNumeros( cCodigo )
  ...

Comments

I added comments to explain the purpose of each function and some complex calculations:

Código: Selecionar todos

/*
 * Validates a CNPJ (Brazilian company ID) number
 */
FUNCTION Valid_Cnpj( cCnpj )
  ...
/*
 * Calculates the digit of a CNPJ number
 */
FUNCTION Calcula_Digito( cNumero, cModulo )
  ...
Variable naming

I used more descriptive variable names:

Código: Selecionar todos

LOCAL cCnpj_Fornecido := cCnpj
LOCAL nSoma_Digitos := 0
LOCAL cChar_Atual
...

Code organization

I grouped related functions together:

Código: Selecionar todos

// CNPJ validation functions
FUNCTION Valid_Cnpj( cCnpj )
...
FUNCTION Calcula_Digito( cNumero, cModulo )
...

// CPF validation functions
FUNCTION Valid_Cpf( cCpf )
...

These are just some minor adjustments to improve code readability and maintainability. Let me know if you have any specific requests or questions!