Last UpDate:

Imprime

Y2K - Bug do Ano 2000

Arquivos Temporários

Consistência dos Arquivos de índice

Formatar variável ainda no GET

Migrar do Clipper 5.1 para o Clipper 5.2

Migrar de DBFNTX para DBFCDX

Migrar de Clipper para Visual FoxPro

 

Participação dos Visitantes:

MEGA Micro

Automatização da reestruturação dos DBFs

O ano 2000 chegou!!! Você está preparado???

dias hrs mins segs

Y2K Compliant. Ponha este selo no seu software.

Anderson Cardoso Silva Know-How:

_Se seus sistemas são em clipper, você tem sorte... A preparação para conformidade com o ano 2000 é uns dos mais fáceis que existe em Clipper, porém há alguns casos especiais que precisamos abordar. _Se seu sistema possui apenas campos do tipo date para armazenar dados do tipo data será muito simples. O clipper possui um comando chamado Set Epoch to <YYYY>, onde YYYY é o ano base. Por exemplo, Set Epoch to 1980 trataria os campos date que tivesse um ano menor que 80 como do século seguinte e um ano maior que 80 como do mesmo século, i.e. de dd/mm/00 a dd/mm/79 seriam tratadas do século XXI (2000) e as datas de dd/mm/80 a dd/mm/99 do século XX (1980). Neste caso, sabendo que sua empresa está no mercado desde 1985 e não possui nenhum registro antes deste ano, você colocaria Set Epoch to 1985 no programa principal do seu sistema. _ATENÇÃO: Todas as datas com ano 00 gravadas antes do SET EPOCH serão tratadas como 1900! Ou seja, após a implantação deste comando, você poderá ter datas com ano 00 que signifiquem 1900 e 2000 no mesmo DBF!!! Descobri isto a duas semanas no meu trabalho, sem embargo, só tive tempo p/ publicar isto agora devido à atribulação de tempo com provas finais na universidade. Não obstante, elaborei uma função de uso genérico que lê todos os DBFs do diretório corrente e lê todos os campos do tipo data de cada DBF e então transforma as datas interpretadas como 1900 para 2000!!! Quer mais moleza que essa??? Batizei a função de FIXDATE, faça o download aqui->. Inclui o fonte p/ você testar c/ o debug se quiser comprovar!!! Qualquer dúvida ou comentário poste-a no fórum, ok?! _Muito bem, então você tem campos tipo caracter para armazenar informações de datas, como por exemplo apenas o ano e o mês da data <AAMM> ou <MMAA>. Bem, você deu azar... Calma! Apenas terá um pouco mais de trabalho... far-se-á necessário acrescentar mais 2 (dois) digitos ao tamanho destes campos na base de dados e no programa para receber o século, mudando todo o código para manipular estes dados no seu sistema para isso. Não se desespere! Primeiramente, copie seu sistema para outro diretório para este trabalho, pois pode demorar e você precisar dar algum tipo de manutenção urgente. Para ajudar-lhe, colocarei a disposição um programa () que detectará todas as bases de dados que contiverem este campo, altere estas bases de dados acrescentando mais 2 caracteres ao seu tamanho e depois rode o programa de novo, ele irá acrescentar os dígitos "19" na frente no ano. Esta minha função ajudará apenas na preparação dos bancos de dados, no programa é com você!!! Este trabalho merece muita atenciosidade, então: Boa concentração e mãos à obra!!!

Arquivos Temporários

Elucidação total em estudo de caso.

---

Aprenda a confeccionar qualquer tipo de relatório em ambiente de rede, por mais complexo que seja, e de processamento rápido.

Neste estudo de caso será feito um relátorio de devoluções de produto ao fornecedor de um período, c/ fornecedores em ordem alfabética c/ quebra por fornecedor e por ordem de compra. Tentarei ser o mais inteligível e objetivo possível, acompanhe todo o estudo e você irá entender. Iremos trabalhar, em nosso caso, com três bases de dados do sistema. Na estrutura deles (para nosso estudo) teriam alguns campos como: OrdComp.dbf (OC) Estoque.dbf (ES) Fornec.dbf (FO) ================ ================ ================== OC________C__8__0 CODPROD__C__5__0 CODFORN___C__2__0 CODPROD___C__5__0 PRODUTO__C__25_0 FORNEC____C__30_0 CODFORN___C__2__0 CODFORN__C__2__0 ... QTDCOMPRA_N__8__2 QTD______N__6__0 QTDRECEB__N__8__2 VALOR____N__8__2 Index on CODFORN; QTDDEV____N__8__2 ... TO FOCFOR VALOR_____N__10_2 DCOMPRA___D__8__0 Index on CODPROD; DRECEB____D__8__0 TO ESCPROD DDEV______D__8__0 ... Index on DTOS(DDEV)+OC; TO OCDDEV Em Modelagem de Dados: O OC é um DBF de "vários para um", pois há vários registros (produtos) para uma ordem de compra. A relação entre OC e ES é de "um para vários", pois em uma ordem de compra há vários produtos. A relação entre ES e FO é de "vários para um", pois há vários produtos para um só fornecedor. Atente que as "..." (reticências), em algumas linhas do nosso estudo no programa, indicam que deve haver instruções inerentes ao programa de cada um naquele local e o "-" (travesão) é apenas um comentário (os símbolos de comentário em HTML se confundem com o do Clipper). -Vamos ao programa: USE ORDCOMP ALIAS OC SHARED NEW SET INDEX TO OCDDEV USE ESTOQUE ALIAS ES SHARED NEW SET INDEX TO ESCPROD USE FORNEC ALIAS FO SHARED NEW SET INDEX TO FOCFOR -Vamos colher dados do usuário p/ o nosso relatório: DATAI := DATAF := CTOD("") @ 10,10 SAY "Data inicial:" GET DATAI @ 11,10 SAY "Data final..:" GET DATAF VALID DATAF >= DATAI READ IF LASTKEY() = 27 ... RETURN ENDIF -Vamos dar um SOFT SEEK para reduzir drasticamente o tempo de nosso relatório. OC->( DBSEEK( DTOS(DATAI), .T.) ) IF OC->DDEV > DATAF ALERT("Não houve devoluções a nenhum fornecedor nesse período!") ... RETURN ENDIF -Precisaremos de um arquivo temporário para as informações que queremos armazenar e mostrar. -Veja que, trabalhando em ambiente de rede não podemos dar um nome fixo como "temp.dbf" por exemplo, pois se dois ou mais usuários pedirem este relatório ao mesmo tempo o DBCREATE() não criará um arquivo que já existe e o programa irá, no mínimo (dependendo de cada caso), duplicar as informações no temporário e bagunçar todo o relatório. Teremos, então, que criar um nome mutante para este temporário... observe: TEMP := "TEMP"+SUBSTR( TIME(), 4, 2 )+SUBSTR( TIME(), 7, 2 ) TEMPNTX := "NTX" +SUBSTR( TIME(), 4, 2 )+SUBSTR( TIME(), 7, 2 ) -As variáveis TEMP e TEMPNTX guardam o nome do temporário e do seu NTX. Depois temos a "&" e/ou os "()", para estrair esses nomes, dependendo da sintaxe do comando/função. *** Criação do temporário *** aDBF := {} aADD( aDBF, {"OC", "C", 8, 0} ) aADD( aDBF, {"CODPROD", "C", 5, 0} ) aADD( aDBF, {"PRODUTO", "C", 25, 0} ) aADD( aDBF, {"CODFORN", "C", 2, 0} ) aADD( aDBF, {"FORNEC", "C", 30, 0} ) aADD( aDBF, {"QTDRECEB","N", 8, 2} ) aADD( aDBF, {"QTDDEV", "N", 8, 2} ) aADD( aDBF, {"VALOR", "N", 10, 2} ) aADD( aDBF, {"DCOMPRA", "D", 8, 0} ) aADD( aDBF, {"DRECEB", "D", 8, 0} ) aADD( aDBF, {"DDEV", "D", 8, 0} ) DBCREATE( &TEMP, aDBF ) -Está criado o nosso temporário... -Abriremos o nosso arquivo desta forma: USE (TEMP) ALIAS TMP EXCLUSIVE NEW INDEX ON FORNEC+OC+PRODUTO TO (TEMPNTX) -Vamos preencher as informações necessárias em nosso "temp" agora... DO WHILE DDEV <= DATAF -Vamos mover o ponteiro de registro das outras áreas p/ que todas entrem de acordo. ES->( DBSEEK(OC->CODPROD) ) FO->( DBSEEK(OC->CODFORN) ) -agora preencher as informações do temporário... TMP->OC := OC->OC TMP->CODPROD := OC->CODPROD TMP->PRODUTO := ES->PRODUTO TMP->CODFORN := OC->CODFORN TMP->FORNEC := FO->FORNEC TMP->QTDRECEB := OC->QTDRECEB TMP->QTDDEV := OC->QTDDEV TMP->VALOR := OC->QTDCOMPRA/OC->VALOR TMP->DCOMPRA := OC->DCOMPRA TMP->DRECEB := OC->DRECEB TMP->DDEV := OC->DDEV OC->( DBSKIP() ) ENDDO TMP->( DBCOMMIT() ) -Agora vamos ao relatório propriamente dito! TMP->( DBGOTOP() ) cFOR := TMP->FORNEC cOC := TMP->OC LL := 100 LP := 60 -Substitua pela variável do número de linhas/página da impressora atualmente configurada, caso seu sistema possua configuração múltipla de impressora. DO WHILE !TMP->( EOF() ) IF LL >= LP -Quebra de página LL := 0 ... @ LL++,0 SAY REPLI("-",80) @ LL++,0 SAY "Fornecedor Código" @ LL++,0 SAY " Ord. Compra Data de Compra, Receb. e Devolucao" @ LL++,0 SAY " Produto Cód. Qtd.Rec. Qtd.Dev Dev.% Dev.$" @ LL++,0 SAY REPLI("-",80) @ LL++,00 SAY cFOR+" "+TMP->CODFORN @ LL++,05 SAY cOC+" "+DTOC(TMP->DCOMPRA)+", "+DTOC(TMP->DRECEB)+", "+DTOC(TMP->DDEV) @ LL,10 SAY TMP->PRODUTO @ LL,36 SAY TMP->CODPROD @ LL,42 SAY TMP->QTDRECEB @ LL,51 SAY TMP->QTDDEV DEVp := (TMP->QTDDEV*100)/QTDREC DEVv := TMP->QTDDEV*TMP->VALOR @ LL,60 SAY DEVp PICTURE "@R 999.99%" @ LL++,68 SAY DEVv PICTURE "99999.99" TMP->( DBSKIP() ) ENDIF cFOR := TMP->FORNEC cOC := TMP->OC IF cFOR # TMP->FORNEC cFOR := TMP->FORNEC cOC := TMP->OC @ LL++,00 SAY cFOR+" "+TMP->CODFORN @ LL++,05 SAY cOC+" "+DTOC(TMP->DCOMPRA)+", "+DTOC(TMP->DRECEB)+", "+DTOC(TMP->DDEV) ENDIF IF cOC # TMP->OC cOC := TMP->OC @ LL++,05 SAY cOC+" "+DTOC(TMP->DCOMPRA)+", "+DTOC(TMP->DRECEB)+", "+DTOC(TMP->DDEV) ENDIF @ LL,10 SAY TMP->PRODUTO @ LL,36 SAY TMP->CODPROD @ LL,42 SAY TMP->QTDRECEB @ LL,51 SAY TMP->QTDDEV DEVp := (TMP->QTDDEV*100)/QTDREC DEVv := TMP->QTDDEV*TMP->VALOR @ LL,60 SAY DEVp PICTURE "@R 999.99%" @ LL++,68 SAY DEVv PICTURE "99999.99" TMP->( DBSKIP() ) ENDDO ... -Observe que o arquivo temporário deverá ser apagado no final do programa, caso contrário com o tempo a capacidade de registros de arquivos da FAT (tabela de alocação de arquivos) estourará e nenhum outro arquivo poderá ser criado neste diretorio e destarte ocasionará um erro fatal. TMP->( DBCLOSEAREA() ) -Deve-se fechar o arquivo antes de apagá-lo TEMP += ".DBF" TEMPNTX += ".NTX" FERASE( TEMP ) FERASE( TEMPNTX ) RETURN *------------------------------ Bem, aí está o estudo completo! Espero que tenha gostado. Qualquer dúvida a respeito desse estudo entre no fórum, por favor. Obrigado pela atenção.

 

 

Consistência dos Arquivos de índice

Integridade de Banco de Dados

---

Verifique se as quebras constantes dos arquivos de índice são "furos" no programa!

Addendum 28/06/2002: Foi constatado que a corrupção nos arquivos de índices do RDD DBFNTX pode ser reduzida quando se abre todos os índices do arquivo DBF sempre em uma mesma ordem e só depois você determina o índice ativo com DBSETORDER(), por exemplo. Se você tem muitos problemas com corrupção dos índices .NTX, faça um teste e dê o seu depoimento, ok?! Não seria por isso que o RDD DBFCDX é mais consistente?! Os índices deste RDD podem ser criados em um único arquivo .CDX, ou seja, vários índices (chamados de "bolsa") criados em um único arquivo de índice e toda vez que você abre este arquívo, todos os índices estarão abertos e disponíveis sempre na mesma ordem... O RDD Comix mais o ClipMore (extensão .CDX) é uma dupla muito bem falada pela maior robustez e velocidade dos seus arquivos de índices que os índices RDD DBFCDX naturais do Clipper. O RDD SixDrive (extensão .NSX) é clamado o melhor que existe por várias pessoas, os arquivos de índice são menores que os .CDX e, também, são mais rápidos ainda, sem embargo, há depoimentos que seus arquivos se corrompem muito facilmente. Seria viável?! --------------- Integridade do Banco de Dados ============================= * Restrição de domínio * Restrição de chave primária * Restrição de chaves externas * Restrição de domínio Significa restringir o conteúdo dos campos a valore válidos. Domínio é um conjunto de valores possíveis. Por exemplo, para entrar com um código de cliente em uma fatura, você precisa verificar se aquele código existe na tabela de clientes. * Restrição de chave primária Precisa apresentar 2 propriedades: Exclusividade e minimalidade. Exclusividade: significa que se x (uma ou uma combinação de campos) é a chave primária, não poderá haver, em hipótese alguma, mais de um registro com o mesmo valor de x. Minimalidade: é um pouco mais difícil de explicar. Significa que nada que viole sua exclusividade pode ser descontado da classe primária. Por exemplo, a combinação de campos (numero_peca, nome_peca) pode ser uma chave exclusiva. Dois registros não poderão ter os mesmos valores em ambos os campos, mas não é o 'mínimo'. Você pode retirar o nome da peça da chave e ela ainda será exclusiva. O número da peça é o mínimo necessário para identificar o registro. Observe que você só pode selecionar uma chave primária após um amplo estudo dos dados. * Restrição de chaves externas Você define as relações entre tabelas usando o mesmo campo em duas tabelas diferentes. O 'pai' estabelece a relação baseado em suas chaves primárias. Na relação Cliente->Fatura, por exemplo, a tabela de clientes é o pai, e a relação está baseada em Num_cliente, chave primária da tabela Clientes. Esta chave também existe na tabela filho e, nesta tabela, ela é chamada 'chave externa'. Ela é uma chave primária de uma tabela, mas não desta. Ela é um campo, ou uma combinação de campos, cujos valores precisam corresponder a uma chave primária definida em outra tabela. Ao incluir registros em uma tabela, você precisa assegurar que as chaves externas correspondam a uma chave primária definida no banco de dados-pai. Por exemplo, ao incluir uma fatura no sistema, você deve garantir que o campo Num_cliente na tabela Faturas corresponda a um cliente inserido na tabela Clientes. Para impor esta 'integridade referencial', é preciso determinar p/ cada relação, o que fazer quando uma chave primária for modificada ou seu registro for eliminado. Existem 3 métodos de ação: RESTRINGIR: A chave primária eliminada ou atualizada é desautorizada se existirem chaves externas com esse valor. EFEITO CASCATA: Eliminar ou atualizar em efeito CASCATA as chaves externas. Por exemplo, se eliminarmos o cliente 10, todas as faturas pertencentes ao cliente 10 serão eliminadas da tabela Faturas. O mesmo se aplica às atualizações. Todas as chaves serão também atualizadas. ANULAR: As chaves externas com o valor da chave primária eliminada ou atualizada serão definidas com um valor nulo (no clipper, corresponde a um valor predefinido como nulo/desconhecido, pois não existe nulo no sentido da palavra). ------------------ Fonte: Clipper 5.2 - Rick Spence, Makron Books, p.244-249.

 

Participação dos Visitantes

Atualização da estrutura dos DBF

Know-How enviado por Pontelo, da MEGA Micro

---

Automatize a reestruturação dos DBF!

Desenvolvemos para nosso sistema um método que automaticamente verifica se os DBFs tiveram alteração de estrutura e ajusta os arquivos para a nova estrutura. O conceito é o seguinte : 1. Você define todas as estruturas de todos os arquivos os quais seu sistema irá manipular. 2. Você cria uma função que retorne essa estrutura. No nosso caso, GetStru() 3. Ao subir o sistema, você pega cada estrutura dos arquivos - com dbstruct() por exemplo - e a estrutura definida internamente no seu sistema. 4. Você compara as duas estruturas - no nosso caso, com CmpStru() 5. Se forem iguais, está tudo OK e você retorna. 6. Se diferentes - qualquer diferença que não alteração de tipo de campo (pois neste caso poderá ser gerado um erro com os comandos utilizados nesta função ) , você deverá : 6.1 Gravar um arquivo novo com os dados atuais. 6.2 Comparar os dados gravados com os atuais. 6.3 Apagar o atual e criar o novo com a nova estrutura. 6.4 Appendar os dados do arquivo gravado 6.5 Comparar os dados appendados com os gravados originalmente. 7. Fim do Processo. Algumas proteções são colocadas : 1.Ao começar uma revisão , o sistema cria o Arquivo VERSION.DAT . Se algum outro terminal tentar subir o programa e, se encontrar este arquivo, significa que : 1.1 Algum terminal está fazendo revisão e eu não posso subir agora. 1.2 Alguém (talvez eu mesmo) estava fazendo revisão de sistema e o sistema caiu , ou a máquina caiu, parou a força, etc... Em qualquer caso, deve haver duas opções, Você entrar e continua Revisão ou Desiste de subir no programa para subir mais tarde. 2. Conforme começar a revisão, todos os arquivos de índice associados ao arquivo serão apagados o sistema deve ter mecanismos de criá-los automaticamente sempre que for abrir um arquivo. 3. Se sistema caiu fazendo revisão, através do estado do arquivo de back-up gravado, ele saberá em que ponto parou e o que fazer para não perder dados. 4. Uma variável global, associada preferencialmente a algum campo de um arquivo de configuração do sistema, indicará se pode ou não haver checagem ou não de integridade de DBFs e NTX. Envio arquivo anexo com as funções descritas neste documento. Espero que possa ser útil a alguém.

 

Formatar Variável ainda no GET

---

Coloque os zeros antes do número automaticamente, ainda dentro do GET.

Para ficar bem claro, será mostrado duas rotinas equânimes a seguir. Uma rotina normalmente usada seria assim: WCOD := 0 @ 10,10 SAY "CODIGO:" GET WCOD PICT "999999" //Outros GETs READ WCOD := STRZERO(WCOD,6) --------------------------------------- A partir de agora você fará o seguinte: @ 10,10 SAY "CODIGO:" GET WCOD PICT "999999" VALID EVAL( { || WCOD := STRZERO(WCOD,6), .T.} ) //Outros GETs READ Gostou?! ------------------ Fonte: Algum lugar do tempo e do espaço.

 

 

 

Migrar do Clipper para Visual FoxPro (116Kb)

Downloads realizados:

 

 

_Você tem algum know-how? Então diga qual! E seja reconhecido em nesta página de Know-How (dê alguns dados pessoais). Além de ganhar um link para sua página (se você tiver), você contribui para o avanço tecnológico nacional e aparece na Web!