already defined: program terminated

kovalsk · Mensagem por **kovalsk** » 21 Nov 2016 10:04

Sou iniciante em foruns, nunca usei.
Sou programador a 20 anos em clipper 5.2e e estou tentando migrar para HMG 3.4.3 mas estou tendo muitos problemas.
No momento criei 3 janelas pela ide. coloquei uma main e logo chamo uma child para digitar usuario e senha e na rotina verifica_senha no final dela chamo uma funcao cria() que tem um form cria.fmg e quando executo da o erro already defined: program terminated.
lembrando que a janela cria é modal. da erro em cria na linha 4. Essa janela apenas mostra os arquivos sendo criados e era pra voltar para a principal.
Não sei se fiz certo ao colar a rotina abaixo, caso tenha feita errado peço desculpas e por favor me expliquem com detalhes.

Código: Selecionar todos

#include <hmg.ch>

load window cria
	cria.label_arq1.value := "Mensalistas"
	cria.label_narq1.value := "MEN001"
	cria.label_arq2.value := "Regulamento"
	cria.label_narq2.value := "REG002"
	cria.label_arq3.value := "Automóveis"
	cria.label_narq3.value := "AUT003"
	cria.label_arq4.value := "Movimento em Aberto"
	cria.label_narq4.value := "MOA004"
	cria.label_arq5.value := "Movimento Fechado"
	cria.label_narq5.value := "MOF005"
	cria.label_arq6.value := "Caixa"
	cria.label_narq6.value := "CAI006"
	cria.label_arq7.value := "Diário"
	cria.label_narq7.value := "DIA012"
	cria.label_arq8.value := "Telefones"
	cria.label_narq8.value := "TEL013"
	cria.label_arq9.value := "Arquivos de Trabalho"
	cria.label_narq9.value := "TRA008"
	cria.label_arq10.value := "Placas de Mensalistas"
	cria.label_narq10.value := "PLA010"
	cria.label_arq11.value := "Cancelamentos"
	cria.label_narq11.value := "CAN011"
	cria.label_arq12.value := "Recebimento de Mensalistas"
	cria.label_narq12.value := "REC016"
	cria.label_arq13.value := "Caixa"
	cria.label_narq13.value := "CAI020"
	cria.label_arq14.value := "Serviços"
	cria.label_narq14.value := "SER026"
	cria.label_arq15.value := "Serviços Ítens"
	cria.label_narq15.value := "SVA027"
	cria.label_arq16.value := "Serviços Arquivo Morto"
	cria.label_narq16.value := "SVF028"
	
	cria.label_arq17.value := ""
	cria.label_narq17.value := ""
	cria.label_arq18.value := ""
	cria.label_narq18.value := ""
	cria.label_arq19.value := ""
	cria.label_narq19.value := ""
	cria.label_arq20.value := ""
	cria.label_narq20.value := ""
	cria.label_arq21.value := ""
	cria.label_narq21.value := ""
	cria.label_arq22.value := ""
	cria.label_narq22.value := ""
	cria.label_arq23.value := ""
	cria.label_narq23.value := ""
	cria.label_arq24.value := ""
	cria.label_narq24.value := ""
	
	*----------------------------------------------------------------------------*
	_nom_arq := "men001.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"cod_men","c",04,00})
	aadd(_mat_arq,{"nom_men","c",50,00})
	aadd(_mat_arq,{"ide_men","c",18,00})
	aadd(_mat_arq,{"cpf_men","c",18,00})
	aadd(_mat_arq,{"end_men","c",50,00})
	aadd(_mat_arq,{"bai_men","c",25,00})
	aadd(_mat_arq,{"cid_men","c",30,00})
	aadd(_mat_arq,{"est_men","c",02,00})
	aadd(_mat_arq,{"cep_men","c",10,00})
	aadd(_mat_arq,{"tel_men","c",13,00})
	aadd(_mat_arq,{"dat_nas","d",08,00})
	aadd(_mat_arq,{"emp_men","c",50,00})
	aadd(_mat_arq,{"end_com","c",50,00})
	aadd(_mat_arq,{"tel_com","c",13,00})
	aadd(_mat_arq,{"car_men","c",30,00})
	aadd(_mat_arq,{"qtd_men","n",02,00})
	aadd(_mat_arq,{"dat_cad","d",08,00})
	aadd(_mat_arq,{"sit","c",03,00})
	aadd(_mat_arq,{"men_sec","c",01,00})
	aadd(_mat_arq,{"val_men","n",15,02})
	aadd(_mat_arq,{"dia_ven","c",02,00})
	aadd(_mat_arq,{"msg_mes","c",01,00})
	Verdbf(_nom_arq)

	Reordena("men001")
	if ! file("men001.cdx")
		nRecsDone := 0
			
		cria.ProgressBar_1.visible := .t.
		
		clos all
		use men001
		nLastRec := LastRec()
		cria.ProgressBar_1.Value := ( (nRecsDone + 10) / nLastRec ) * 100
		index on cod_men tag ind_me01 to men001
		index on nom_men tag ind_me02 to men001
		index on Transdata(dat_nas) tag ind_me03 to men001
		reindex eval {|| Progresso(nLastRec,"ProgressBar_1") } every 10
	endif

	cria.label_ok1.value := "Ok"

	*----------------------------------------------------------------------------*
	_nom_arq := "reg002.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"hor_ini","c",05,00})
	aadd(_mat_arq,{"hor_fim","c",05,00})
	aadd(_mat_arq,{"hor_per","c",05,00})
	aadd(_mat_arq,{"qua_dia","n",02,00})
	aadd(_mat_arq,{"min_tol","n",02,00})
	aadd(_mat_arq,{"tol_per","c",05,00})
	aadd(_mat_arq,{"tem_cob","n",02,00})
	aadd(_mat_arq,{"val_cob_1","n",15,02})
	aadd(_mat_arq,{"val_cob_2","n",15,02})
	aadd(_mat_arq,{"val_cob_3","n",15,02})
	aadd(_mat_arq,{"val_per","n",15,02})
	aadd(_mat_arq,{"val_dia","n",15,02})
	aadd(_mat_arq,{"val_men","n",15,02})
	aadd(_mat_arq,{"per_cai","n",06,02})
	aadd(_mat_arq,{"val_hor_1","n",15,02})
	aadd(_mat_arq,{"val_hor_2","n",15,02})
	aadd(_mat_arq,{"hor_hor","n",02,00})
	aadd(_mat_arq,{"val_max","n",15,02})
	aadd(_mat_arq,{"hor_max","c",05,00})
	aadd(_mat_arq,{"tol_ser","n",02,00})
	Verdbf(_nom_arq)

	cria.label_ok2.value := "Ok"
		cria.ProgressBar_2.visible := .t.
		
		cria.ProgressBar_2.value := 50

	*----------------------------------------------------------------------------*
	_nom_arq := "aut003.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"cod_aut","c",04,00})
	aadd(_mat_arq,{"nom_aut","c",20,00})
	aadd(_mat_arq,{"val_hor","n",15,02})
	aadd(_mat_arq,{"val_cob_1","n",15,02})
	aadd(_mat_arq,{"val_cob_2","n",15,02})
	aadd(_mat_arq,{"val_cob_3","n",15,02})
	aadd(_mat_arq,{"qua_dia","n",02,00})
	aadd(_mat_arq,{"val_dia","n",06,02})
	Verdbf(_nom_arq)

	Reordena("aut003")
	if ! file("aut003.cdx")
		nRecsDone := 0
		cria.ProgressBar_3.visible := .t.
		
		cria.ProgressBar_3.value := nRecsDone
		
		clos all
		use aut003
		nLastRec := LastRec()
		index on cod_aut tag ind_au01 to aut003
		index on nom_aut tag ind_au02 to aut003
		reindex eval {|| Progresso(nLastRec,ProgressBar_3) } every 10
	endif

	cria.label_ok3.value := "Ok"

	*----------------------------------------------------------------------------*
	_nom_arq := "moa004.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"cod_mov","n",10,00})
	aadd(_mat_arq,{"dat_mov","d",08,00})
	aadd(_mat_arq,{"hor_mov","c",08,00})
	aadd(_mat_arq,{"pla_aut","c",08,00})
	aadd(_mat_arq,{"nom_usu","c",10,00})
	aadd(_mat_arq,{"var_men","c",01,00})
	aadd(_mat_arq,{"obs_aut","c",40,00})
	aadd(_mat_arq,{"por_mov","c",01,00})
	Verdbf(_nom_arq)

	Reordena("moa004")
	if ! file("moa004.cdx")
		nRecsDone := 0
		cria.ProgressBar_4.visible := .t.
		
		cria.ProgressBar_4.value := nRecsDone

		clos all
		use moa004
		nLastRec := LastRec()
		index on cod_mov tag ind_mo01 to moa004
		index on pla_aut tag ind_mo02 to moa004
		index on dat_mov tag ind_mo03 to moa004
		index on Invdata(dat_mov) + hor_mov tag ind_mo04 to moa004
		reindex eval {|| Progresso(nLastRec,"ProgressBar_4") } every 10
	endif

	cria.label_ok4.value := "Ok"

	*----------------------------------------------------------------------------*
	_nom_arq := "mof005.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"cod_mov","n",10,00})
	aadd(_mat_arq,{"con_mov","c",04,00})
	aadd(_mat_arq,{"usu_mov","c",10,00})
	aadd(_mat_arq,{"dat_mov","d",08,00})
	aadd(_mat_arq,{"dat_fim","d",08,00})
	aadd(_mat_arq,{"hor_mov","c",08,00})
	aadd(_mat_arq,{"hor_fim","c",08,00})
	aadd(_mat_arq,{"pla_aut","c",08,00})
	aadd(_mat_arq,{"nom_usu","c",10,00})
	aadd(_mat_arq,{"tot_mov","n",15,02})
	aadd(_mat_arq,{"tot_rea","n",15,02})
	aadd(_mat_arq,{"tot_men","n",15,02})
	aadd(_mat_arq,{"tot_des","n",15,02})
	aadd(_mat_arq,{"dat_pag","d",08,00})
	aadd(_mat_arq,{"hor_pag","c",08,00})
	aadd(_mat_arq,{"men_sec","c",01,00})
	aadd(_mat_arq,{"por_move","c",01,00})
	aadd(_mat_arq,{"por_movs","c",01,00})
	aadd(_mat_arq,{"tem_per","c",08,00})
	aadd(_mat_arq,{"tax_tax","n",03,00})
	aadd(_mat_arq,{"ter_mov","c",01,00})

	Verdbf(_nom_arq)

	Reordena("mof005")
	if ! file("mof005.cdx")
		nRecsDone := 0
		cria.ProgressBar_5.visible := .t.
		
		cria.ProgressBar_5.value := nRecsDone

		clos all
		use mof005
		nLastRec := LastRec()
		index on cod_mov tag ind_mv01 to mof005
		index on pla_aut tag ind_mv02 to mof005
		index on dat_mov tag ind_mv03 to mof005
		index on Invdata(dat_fim) + hor_fim tag ind_mv04 to mof005
		index on usu_mov + Invdata(dat_fim) tag ind_mv05 to mof005
		index on dat_pag tag ind_mv06 to mof005
		reindex eval {|| Progresso(nLastRec) } every 10
	endif

	cria.label_ok5.value := "Ok"

	*----------------------------------------------------------------------------*
	_nom_arq := "cai006.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"tip_mov","c",01,00})
	aadd(_mat_arq,{"dat_mov","d",08,00})
	aadd(_mat_arq,{"hor_mov","c",08,00})
	aadd(_mat_arq,{"mot_mov","c",40,00})
	aadd(_mat_arq,{"val_mov","n",14,02})
	aadd(_mat_arq,{"qtd_vei","n",05,00})
	aadd(_mat_arq,{"qtd_men","n",05,00})
	aadd(_mat_arq,{"qtd_tol","n",05,00})
	aadd(_mat_arq,{"qtd_ent","n",05,00})
	aadd(_mat_arq,{"ter_mov","c",01,00})
	Verdbf(_nom_arq)

	Reordena("cai006")
	if ! file("cai006.cdx")
		nRecsDone := 0
		cria.ProgressBar_6.visible := .t.
		
		cria.ProgressBar_6.value := 1
		
		clos all
		use cai006
		nLastRec := LastRec()
		index on invdata(dat_mov) + tip_mov + ter_mov tag ind_cx01 to cai006
		index on invdata(dat_mov) + hor_mov tag ind_cx02 to cai006
		reindex eval {|| Progresso(nLastRec) } every 10
	endif

	cria.label_ok6.value := "Ok"

	*----------------------------------------------------------------------------*
	_nom_arq := "dia007.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"data","d",08,00})
	aadd(_mat_arq,{"h08","c",083,00})
	aadd(_mat_arq,{"h09","c",083,00})
	aadd(_mat_arq,{"h10","c",083,00})
	aadd(_mat_arq,{"h11","c",083,00})
	aadd(_mat_arq,{"h12","c",083,00})
	aadd(_mat_arq,{"h13","c",083,00})
	aadd(_mat_arq,{"h14","c",083,00})
	aadd(_mat_arq,{"h15","c",083,00})
	aadd(_mat_arq,{"h16","c",083,00})
	aadd(_mat_arq,{"h17","c",083,00})
	aadd(_mat_arq,{"h18","c",083,00})
	aadd(_mat_arq,{"h19","c",083,00})
	aadd(_mat_arq,{"h20","c",083,00})
	aadd(_mat_arq,{"h21","c",083,00})
	Verdbf(_nom_arq)

	Reordena("dia007")
	if ! file("dia007.cdx")
		nRecsDone := 0
		cria.ProgressBar_7.visible := .t.
		
		cria.ProgressBar_7.value := 1
		
		clos all
		use dia007
		nLastRec := LastRec()
		index on data tag ind_di01 to dia007
		reindex eval {|| Progresso(nLastRec) } every 10
	endif

	cria.label_ok7.value := "Ok"

	*----------------------------------------------------------------------------*
	_nom_arq := "tel008.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"cod","c",04,00})
	aadd(_mat_arq,{"nom","c",050,00})
	aadd(_mat_arq,{"end","c",050,00})
	aadd(_mat_arq,{"bai","c",030,00})
	aadd(_mat_arq,{"cid","c",030,00})
	aadd(_mat_arq,{"est","c",02,00})
	aadd(_mat_arq,{"cep","c",010,00})
	aadd(_mat_arq,{"tel01","c",014,00})
	aadd(_mat_arq,{"tel02","c",014,00})
	aadd(_mat_arq,{"tel03","c",014,00})
	Verdbf(_nom_arq)

	Reordena("tel008")
	if ! file("tel008.cdx")
		nRecsDone := 0
		cria.ProgressBar_8.visible := .t.
		
		cria.ProgressBar_8.value := 1
		
		clos all
		use tel008
		nLastRec := LastRec()
		index on cod tag ind_tl01 to tel008
		index on nom tag ind_tl02 to tel008
		reindex eval {|| Progresso(nLastRec) } every 10
	endif

	cria.label_ok8.value := "Ok"

	*------------------------------------------------------------------------*
	for _arq := 1 to 9
		_nom_arq := "tra009"+strzero(_arq,02)+".dbf"
		_arq_cdx := "tra009"+strzero(_arq,02)+".cdx"
		_mat_arq := {}
		aadd(_mat_arq,{"lin_001","c",050,00})
		aadd(_mat_arq,{"lin_002","c",050,00})
		aadd(_mat_arq,{"lin_003","c",050,00})
		aadd(_mat_arq,{"lin_004","c",050,00})
		aadd(_mat_arq,{"lin_005","c",050,00})
		aadd(_mat_arq,{"cod_mov","n",010,00})
		aadd(_mat_arq,{"dat_mov","d",08,00})
		aadd(_mat_arq,{"dat_fim","d",08,00})
		aadd(_mat_arq,{"hor_ent","c",08,00})
		aadd(_mat_arq,{"hor_sai","c",08,00})
		aadd(_mat_arq,{"nom_aut","c",20,00})
		aadd(_mat_arq,{"pla_aut","c",08,00})
		aadd(_mat_arq,{"nom_usu","c",010,00})
		aadd(_mat_arq,{"prc_001","n",015,02})
		aadd(_mat_arq,{"prc_002","n",015,02})
		aadd(_mat_arq,{"prc_003","n",015,02})
		aadd(_mat_arq,{"prc_004","n",015,02})
		aadd(_mat_arq,{"prc_005","n",015,02})
		aadd(_mat_arq,{"cam_001","c",078,00})
		aadd(_mat_arq,{"sit","c",003,00})
		
		Verdbf(_nom_arq)

		if ! file("&_arq_cdx")
			nRecsDone := 0
			cria.ProgressBar_9.visible := .t.
		
			cria.ProgressBar_9.value := 1
		
			clos all
			use (_nom_arq)
			nLastRec := LastRec()
			index on right(pla_aut,4) tag _ind_tr01 to &_arq_cdx
			reindex eval {|| Progresso(nLastRec) } every 10
		endif
	next

	cria.label_ok9.value := "Ok"

	*----------------------------------------------------------------------------*
	_nom_arq := "pla010.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"cod_men","c",04,00})
	aadd(_mat_arq,{"pla_aut","c",08,00})
	Verdbf(_nom_arq)

	Reordena("pla010")
	if ! file("pla010.cdx")
		nRecsDone := 0
		cria.ProgressBar_10.visible := .t.
		
		cria.ProgressBar_10.value := 1
		
		clos all
		use pla010
		nLastRec := LastRec()
		index on pla_aut tag ind_pl01 to pla010
		index on cod_men + pla_aut tag ind_pl02 to pla010
		index on cod_men tag ind_pl03 to pla010
		reindex eval {|| Progresso(nLastRec) } every 10
	endif

	cria.label_ok10.value := "Ok"

	*----------------------------------------------------------------------------*
	_nom_arq := "can011.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"cod_mov","n",10,00})
	aadd(_mat_arq,{"dat_mov","d",08,00})
	aadd(_mat_arq,{"hor_mov","c",08,00})
	aadd(_mat_arq,{"pla_aut","c",08,00})
	aadd(_mat_arq,{"nom_usu","c",10,00})
	aadd(_mat_arq,{"hor_can","c",08,00})
	aadd(_mat_arq,{"dat_can","d",08,00})
	Verdbf(_nom_arq)

	Reordena("can011")
	if ! file("can011.cdx")
		nRecsDone := 0
		cria.ProgressBar_11.visible := .t.
		
		cria.ProgressBar_11.value := 1
		
		clos all
		use can011
		nLastRec := LastRec()
		index on dat_can tag ind_ca01 to can011
		reindex eval {|| Progresso(nLastRec) } every 10
	endif

	cria.label_ok11.value := "Ok"

	*----------------------------------------------------------------------------*
	_nom_arq := "rec016.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"cod_men","c",04,00})
	aadd(_mat_arq,{"dat_pag","d",08,00})
	aadd(_mat_arq,{"hor_pag","c",08,00})
	aadd(_mat_arq,{"per_men","c",05,00})
	aadd(_mat_arq,{"val_rec","n",014,02})
	aadd(_mat_arq,{"val_men","n",014,02})
	aadd(_mat_arq,{"tax_jur","n",06,02})
	aadd(_mat_arq,{"tax_des","n",015,02})
	aadd(_mat_arq,{"ter_mov","c",01,00})
	Verdbf(_nom_arq)

	Reordena("rec016")
	if ! file("rec016.cdx")
		nRecsDone := 0
		cria.ProgressBar_12.visible := .t.
		
		cria.ProgressBar_12.value := 1
		
		clos all
		use rec016
		nLastRec := LastRec()
		index on cod_men + per_men tag ind_re01 to rec016
		index on cod_men + Invper(per_men) tag ind_re02 to rec016
		reindex eval {|| Progresso(nLastRec) } every 10
	endif

	cria.label_ok12.value := "Ok"

	*----------------------------------------------------------------------------*
	_nom_arq := "cai020.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"dat_fec","d",08,00})
	aadd(_mat_arq,{"hor_fec","c",08,00})
	aadd(_mat_arq,{"dat_ini","d",08,00})
	aadd(_mat_arq,{"hor_ini","c",08,00})
	aadd(_mat_arq,{"tot_mov","n",15,02})
	aadd(_mat_arq,{"tot_men","n",15,02})
	aadd(_mat_arq,{"tot_ext","n",15,02})
	aadd(_mat_arq,{"tot_dsp","n",15,02})
	aadd(_mat_arq,{"tot_rec","n",15,02})
	aadd(_mat_arq,{"tot_pag","n",15,02})
	aadd(_mat_arq,{"tot_ger","n",15,02})
	aadd(_mat_arq,{"tot_tro","n",15,02})
	aadd(_mat_arq,{"tot_ser","n",15,02})
	aadd(_mat_arq,{"tot_bol","n",15,00})
	aadd(_mat_arq,{"seq_fec","n",15,00})
	aadd(_mat_arq,{"ter_mov","c",01,00})
	Verdbf(_nom_arq)

	Reordena("cai020")
	if ! file("cai020.cdx")
		nRecsDone := 0
		cria.ProgressBar_13.visible := .t.
		
		cria.ProgressBar_13.value := 1
		
		clos all
		use cai020
		nLastRec := LastRec()
		index on Invdata(dat_fec) + hor_fec tag ind_fe01 to cai020
		reindex eval {|| Progresso(nLastRec) } every 10
	endif

	cria.label_ok13.value := "Ok"

	*----------------------------------------------------------------------------*
	_nom_arq := "ser026.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"cod_ser","c",004,00})
	aadd(_mat_arq,{"nom_ser","c",020,00})
	aadd(_mat_arq,{"val_ser","n",015,02})
	aadd(_mat_arq,{"is1_ser","c",001,00})
	aadd(_mat_arq,{"is2_ser","c",001,00})
	aadd(_mat_arq,{"is3_ser","c",001,00})
	aadd(_mat_arq,{"is4_ser","c",001,00})
	aadd(_mat_arq,{"is5_ser","c",001,00})
	aadd(_mat_arq,{"is6_ser","c",001,00})
	aadd(_mat_arq,{"is7_ser","c",001,00})
	aadd(_mat_arq,{"is8_ser","c",001,00})
	aadd(_mat_arq,{"is9_ser","c",001,00})
	aadd(_mat_arq,{"isa_ser","c",001,00})
	aadd(_mat_arq,{"isb_ser","c",001,00})
	aadd(_mat_arq,{"isc_ser","c",001,00})
	aadd(_mat_arq,{"ist_ser","c",001,00})
	Verdbf(_nom_arq)

	Reordena("ser026")
	if ! file("ser026.cdx")
		nRecsDone := 0
		cria.ProgressBar_14.visible := .t.
		
		cria.ProgressBar_14.value := 1
		
		clos all
		use ser026
		nLastRec := LastRec()
		index on cod_ser tag ind_se01 to ser026
		index on nom_ser tag ind_se02 to ser026
		reindex eval {|| Progresso(nLastRec) } every 10
	endif

	cria.label_ok14.value := "Ok"

	*----------------------------------------------------------------------------*
	_nom_arq := "sva027.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"cod_ser","c",004,00})
	aadd(_mat_arq,{"num_bol","n",010,00})
	Verdbf(_nom_arq)

	Reordena("sva027")
	if ! file("sva027.cdx")
		nRecsDone := 0
		cria.ProgressBar_15.visible := .t.
		
		cria.ProgressBar_15.value := 1
		
		clos all
		use sva027
		nLastRec := LastRec()
		index on strzero(num_bol,10) + cod_ser tag ind_se01 to sva027
		reindex eval {|| Progresso(nLastRec) } every 10
	endif

	cria.label_ok15.value := "Ok"

	*----------------------------------------------------------------------------*
	_nom_arq := "svf028.dbf"
	_mat_arq := {}
	aadd(_mat_arq,{"dat_ser","d",008,00})
	aadd(_mat_arq,{"cod_ser","c",004,00})
	aadd(_mat_arq,{"num_bol","n",010,00})
	Verdbf(_nom_arq)

	Reordena("svf028")
	if ! file("svf028.cdx")
		nRecsDone := 0
		cria.ProgressBar_16.visible := .t.
		
		cria.ProgressBar_16.value := 1
		
		clos all
		use svf028
		nLastRec := LastRec()
		index on Invdata(dat_ser) + cod_ser tag ind_se01 to svf028
		reindex eval {|| Progresso(nLastRec) } every 10
	endif
	
	cria.label_ok16.value := "Ok"

	cria.label_ok17.value := ""
	cria.label_ok18.value := ""
	cria.label_ok19.value := ""
	cria.label_ok20.value := ""
	cria.label_ok21.value := ""
	cria.label_ok22.value := ""
	cria.label_ok23.value := ""
	cria.label_ok24.value := ""

	center window cria
	cria.activate
	MsgInfo("Arquivos criados com sucesso!","Arquivos e índices gerados")
	
//	doMethod( "cria" , "minimize")
//	DoMethod( "Principal" , "minimize" )
//	DoMethod( "Principal" , "restore" )
//	DoMethod( "Principal" , "SetFocus" )
	
retu nil

kovalsk · Mensagem por **kovalsk** » 21 Nov 2016 10:10

A função progresso que fiz tambem nao funcionou porque na função se eu habilito a segunda linha da erro de compilação pela IDE.
tentei varias formas do tipo passar o nome da variável e depois usar a macro substituição mas sem sucesso ex: cria.&VBarra.value := ( nRecsDone / nLastRec ) * 100). Dá erro de compilação tipo (.) só isso e não da pra saber porque.

Código: Selecionar todos

*---------------------------------------------------------------------------*
Func Progresso(nLastRec,VBarra)
*---------------------------------------------------------------------------*
	nRecsDone := nRecsDone + 10
//	cria.ProgressBar_1.value := ( nRecsDone / nLastRec ) * 100)
//	setproperty("cria",&VBarra,"Value",( nRecsDone / nLastRec ) * 100)
	hb_IdleSleep( 0.2 ) // When dbf is too big, pls cut off this
	Return .T.

kovalsk · Mensagem por **kovalsk** » 21 Nov 2016 10:27

Abaixo a imagem do erro.
Estou precisando muito de ajuda porque agora não consigo continuar porque não passa adiante. Tentei mudar o tipo da janela pra modal, child, panel, standard.

kovalsk · Mensagem por **kovalsk** » 21 Nov 2016 10:31

Abaixo a imagem do erro.
Estou precisando muito de ajuda porque agora não consigo continuar porque não passa adiante. Tentei mudar o tipo da janela pra modal, child, panel, standard.

: Tela de erro em execução

Mensagem por **Toledo** » 21 Nov 2016 12:59

Amigo, seu código é bem grande e também depende de arquivos FMG, então fica um pouco difícil de entender tudo. Mas observei o seguinte, veja estas linhas do seu código:

094 reindex eval {|| Progresso(nLastRec,"ProgressBar_1") } every 10

154 reindex eval {|| Progresso(nLastRec,ProgressBar_3) } every 10

186 reindex eval {|| Progresso(nLastRec,"ProgressBar_4") } every 10

234 reindex eval {|| Progresso(nLastRec) } every 10

266 reindex eval {|| Progresso(nLastRec) } every 10

Na função Progresso() tem que passar dois parâmetros: Func Progresso(nLastRec,VBarra)

Então dê uma olhada a diferença que há entre a linha 094 e 154, bem como as demais linhas que chama esta função.

Abraços,

kovalsk · Mensagem por **kovalsk** » 21 Nov 2016 13:45

Toledo obrigado pela resposta, é o seguinte a linha que aparece o progressbar eu copiei de um exemplo aqui do forum e não deu certo. os parametros eu deixei mas ja estava dando erro antes deles, coloquei o parametro VBarra para passar pra funcao progresso o nome do componente e la usei tipo cria.&VBarra.value := .....valores e não deu certo. a função da erro de compilação (.) na linha acima citada.

Mensagem por **Toledo** » 21 Nov 2016 15:11

Amigo, observe que o segundo parâmetro da função Progresso() tem hora que você passa entre aspas, outra hora SEM as aspas e em outra sem este parâmetro. Então corrigir isto, tem que ir entre aspas.
E use o seguinte código:

Código: Selecionar todos

SetProperty("cria",VBarra,"Value",( nRecsDone / nLastRec ) * 100)

Abraços,

kovalsk · Mensagem por **kovalsk** » 21 Nov 2016 17:39

mas esse parametro por ser o nome de uma variavel nao era pra ser com &?
Você viu de diversas formas diferentes por causa do meu desespero de achar uma mensagem adequada de erro, pois o erro é sempre o mesmo (.) ou então a barra não aparece, somente o componente cinza. não sei se observou mas o segundo arquivo eu deixei um valor sem mandar pra funcao progresso e a barra apareceu completa verde.
Não sei como fazer esse componente funcionar com a criação de índices.
Estou querendo tirar esse componente porque a variável não e reconhecida pelo parametro.
ja tentei entre aspas "VBarra" ou "&VBarra" ou VBarra ou &VBarra e nada funcionou, por isso achei que o erro poderia ser o HMG 3.4.3.
Mas o maior dos meus problemas e quando a função cria() é chamada e mostra tudo e termina com um erro que é o titulo do topico.
Posso tirar as funções que o erro do tópico continua.
Vou limpar tudo e testar e depois volto a postar aqui.

kovalsk · Mensagem por **kovalsk** » 22 Nov 2016 02:59

Obrigado Toledo consegui resolver o problema do tópico.
Só não funcionou a progressbar na criação de índices.
Tem alguma função pronta que usa o componente progressbar na criação de índices?

Mensagem por **Toledo** » 22 Nov 2016 11:23

Amigo, função pronta não tem não, mas segue um exemplo:

Código: Selecionar todos

#include "minigui.ch"

Function Main()

  use demo alias demo 

  DEFINE WINDOW Form_1 ;
      AT 0,0 ;
      WIDTH 400 HEIGHT 300 ;
      TITLE 'Criar Indice com ProgressBar' ;
      MAIN

      DEFINE BUTTON oButton_1
        CAPTION 'Indexar Arquivo'
        ROW   20
        COL   100
        ACTION {|| IndexArq() }
        WIDTH 190
        HEIGHT 28
        TOOLTIP 'Clique aqui para indexar o arquivo'
      END BUTTON

      @ 178,10 LABEL Label_1 ;
               WIDTH 380 HEIGHT 20 ;
               VALUE ''

      @ 200,50 PROGRESSBAR Progress_1 ;
		RANGE 0 , 100 ;
		WIDTH 300 ;
		HEIGHT 30

  END WINDOW

  Form_1.Center
  Form_1.Activate

Return Nil

******************************************
Func IndexArq()
Form_1.Progress_1.Value:=0
index on COD to IND1 EVAL ind_Progress("clientes", "clientes.ntx") EVERY LASTREC()/20
Retu Nil

******************************************
Func ind_Progress( c_arq , c_ind )
LOCAL _nComplete := ((RECNO()/LASTREC()) * 100)
Form_1.Progress_1.Value:=_nComplete
Form_1.Label_1.Value:="Arquivo: "+c_arq+"   Indice: "+c_ind
Retu .T.

Obs.: arquivo DBF em anexo.

Abraços,