- Marquei o programa principal como MAIN;
- Coloquei a "function main()... return nil" no PRG principal;
- Editei todos os programas .PRG com o início com "PROCEDURE + "nomedomódulo"...
Enfim, já estou na hora de compilar com o F9...
Agora chegou num erro, que não consigo sair dele, o qual é:
"F0002 Redefinition of procedure or function DCI10001"
A partir daí para a compilação e a linha 1 do "DCI10001.PRG", fica em vermelho q está com o seguinte comando:
"PROCEDURE DCI10001"...
Bom, pra me ajudarem, segue todo o conteúdo deste .PRG:
=========
Código: Selecionar todos
procedure DCI10001
private DCI10001 := {{{'DCI10001',;
'Fornecedores',;
'&DIR\DCI10001.DBF'},;
{'ICI10001',;
'str (CDFORNECE,04)',;
'&DIR\DCI10001.NTX'},;
{'ICI10520',;
'NMFORNECE',;
'&DIR\ICI10520.NTX'},;
{'ICI10521',;
'NUCGC',;
'&DIR\ICI10521.NTX'}},;
{'CDFORNECE' ,'N', 4, 0},;
{'NMFORNECE' ,'C', 40, 0},;
{'EDENDEREC' ,'C', 40, 0},;
{'EDBAIRRO' ,'C', 30, 0},;
{'EDCIDADE' ,'C', 30, 0},;
{'NUCEP' ,'C', 8, 0},;
{'EDUF' ,'C', 2, 0},;
{'EDCXPOST' ,'C', 15, 0},;
{'DT_CADAST' ,'D', 8, 0},;
{'NUFONE' ,'C', 10, 0},;
{'NUFONE2' ,'C', 10, 0},;
{'NUFAX' ,'C', 10, 0},;
{'NUDDG' ,'C', 11, 0},;
{'NM_SITE' ,'C', 30, 0},;
{'NM_EMAIL' ,'C', 30, 0},;
{'NUCGC' ,'C', 14, 0},;
{'NU_IE' ,'C', 30, 0},;
{'NM_REPRES' ,'C', 70, 0},;
{'NUFONE_RP' ,'C', 10, 0}}
=============