Search the Community

Boas práticas = Uma ajuda sem ninguém pedir Olá pessoal, sei que este espaço se presta para ajuda direcionada a um objetivo específico, erro ou dúvidas. Pois bem, sabemos que outras linguagens existem materiais farto na internet, já xHarbour resume-se aos fóruns e nas documentações própria. Com o conhecimento de outras linguagens como o JAVA, por exemplo, vejo que temos algumas facilidades em determinado pontos e perdemos em outros. Mas com a expertise do dia-a-dia, sempre descobri mos técnicas do xHarbour que não vejo nos fóruns, e nem nos exemplos disponíveis GitHub, Google e etc. A minha sugestão em boas práticas, refere-se à codificação, boas praticas em programar, não estou falando de regras de negócios, cada um ou cada empresa tem a sua que é a base do seu sistema. Aqui nos temos grandes programadores, diria os melhores, acredito que cada um tem algo a compartilhar, como uma rotina genérica, forma manipular um objeto e etc. Posso citar como exemplo a TCalc, uma classe que desenvolvi tempos atrás, serve para gerar planilhas através LibreOficce está disponível neste fórum. Salvo juízo contrário, cada programador poderia compartilhar aquilo que acha interessante que pudesse ajudar no aprendizado dos demais. Com a ajuda dos demais poderia até acrescentar algo para otimizar e favorecendo o próprio autor ou apenas servir de material didático para os demais. Como ponta pé inicial, gostaria de apresentar uma forma que acho legal para definição de variáveis. Hipoteticamente, vamos imagina um sistema que tem 3 dbfs, Médico, Paciente e Agenda de consultas: #include "hbstruct.ch" //include obrigatório REQUEST HB_GT_WIN_DEFAULT //Definição de 3 objetos , um para cada tabela Static oMed,oPac,oAgenda //pode ser local private, publica – prefiro statica de PRG, assim //posso usar em métodos e funções sem a necessidade de enviar como parâmetro, para rotina //de outros prg, a sim precisa enviar via parâmetro. Procedure Main() STRUCTURE oMed //variaveis para tabela de médicos MEMBER cCrm AS STRING INIT Space(6) MEMBER cNome AS STRING INIT Space(20) ENDSTRUCTURE STRUCTURE oPac //variaveis para tabela de pacientes MEMBER cCpf AS STRING INIT Space(11) MEMBER cNome AS STRING INIT Space(20) MEMBER dDtNasc AS DATE INIT CTOD('') ENDSTRUCTURE STRUCTURE oAgenda //variaveis para tabela de agendamento de consulta MEMBER cCrm AS STRING INIT Space(6) MEMBER cCpf AS STRING INIT Space(11) MEMBER dDtConsulta AS DATE INIT CTOD('') ENDSTRUCTURE //gets e says e gravações Return