thiagoweb

Vlw Pessoal deu CertO mUito ObrigadO =D ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper

Ola funciono tudo certinho ! esta ok! entao no primeiro post ai em cima como vc pode ver tem varios arquivo dbf gostaria de saber como fica esse exmplo que vc passo, colendo as informações de cada arquivo dbf. resumindo como salvo no arquivo txt as informações que esta dentro de cada banco de dados ?? ficaria assim ?? cArqTxt:="\Temp\Teste.txt" If File(cArqTxt) FErase(cArqTxt) EndIf oTxt := TTxtFile():New(cArqTxt) If oTxt:Open() oTexto:="dctfm00.dbf" oTxt:Add(oTexto) oTexto:="dctfm01.dbf" oTxt:Add(oTexto) oTexto:="dctfm02.dbf" oTxt:Add(oTexto) oTxt:Close() EndIf e assim por diante ??? ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper

ola obrigado por responder, mas ainda naum funciono.=( eu coloquei esse cod logo em cima do copyfile, e nada no meu caso eu esto somente querendo gerar um arquivo txt. (meuarquivo.txt) no copyfile estou juntando todos os arquivo para salvar em um só ! so que da esse erro chato na tela !=( tem como vc passar um exemplo baseado no cod assima ou comentar ?? Obrigado desde ja. ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper

Ola pessoal estou tentando gerar um arquivo txt so que esta dando um erro como sou novato aqui ainda não consegui arrumar.(rsrs) como resolver ???? descrição do erro : [dos error 2]base/2012 open error:dctfm00.txtdctfm01.txt from errorsys,line:0 segue a função : Function grava_dctf Select tributo set order to 1 ach=codemp+strzero(mdt_ano,4) seek ach vmes=strzero(mdt_me,2) select DCTFM00 append blank if ! neterr() replace sistema with "DCTFM" replace ano_compet with xano replace tp_declara with substr(mtipo,1,1) replace cnpj_contr with cadastro->cgc replace versao with "150" replace nome_empre with cadastro->nome replace uf_domicil with cadastro->estado replace situacao with substr(msituacao,1,2) replace ano_comp_d with xano replace mes_comp_d with gmes replace base_inici with conv_ddt(mdt_ini) replace base_final with conv_ddt(mdt_fin) replace dt_evento with conv_ddt(mdt_emi) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace reservado4 with " " replace reservado5 with " " replace reservado6 with " " replace reservado7 with " " replace reservado8 with " " replace reservado9 with " " replace reservad10 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm01 append blank if ! neterr() replace tipo with "001" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace data_event with conv_ddt(mdt_emi) replace inicio_per with conv_ddt(mdt_ini) replace final_per with conv_ddt(mdt_fin) replace d_retifica with mdecla replace nro_dctf_r with mnr_rec replace trib_lucro with mlucro replace qualifi_pj with mpj replace pj_balance with mbalancete replace pj_scp with mscp replace pj_inativa with minativa replace pj_deb_dec with mdebito replace pj_dctf_se with mdctfs replace reservado1 with " " replace delimita_r with chr(13)+chr(10) endif select dctfm02 append blank if ! neterr() replace tipo with "002" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace data_event with conv_ddt(mdt_emi) replace nome_empre with cadastro->nome replace cod_nat_ju with cadastro->cae replace logradouro with CADASTRO->ENDERECO replace numero with cadastro->numero replace complement with " " replace bairro with CADASTRO->BAIRRO replace municipio with CADASTRO->CIDADE replace uf with CADASTRO->ESTADO replace cep with cadastro->cep replace ddd_telefo with substr(cadastro->telefone,1,3) replace telefone with CADASTRO->TELEFONE replace ddd_do_fax with substr(cadastro->telefone,1,3) replace fax with CADASTRO->TELEFONE replace caixa_post with cadastro->cep replace uf_postAL with cadastro->estado replace cep_postal with cadastro->cep replace correio_el with CADASTRO->EMAIL replace reservado2 with " " replace delimita_r with chr(13)+chr(10) endif select dctfm03 append blank if ! neterr() replace tipo with "003" replace cnpj_contr with CADASTRO->CGC replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace data_event with conv_ddt(mdt_emi) replace nome_repre with CADASTRO->RESP_EMPRE replace cpf_repres with CADASTRO->CPF_EMPRE replace ddd_telefo with substr(cadastro->telefone,1,3) replace telefone with CADASTRO->TELEFONE replace ramal with " " replace ddd_fax with substr(cadastro->telefone,1,3) replace fax with cadastro->telefone replace correio with CADASTRO->EMAIL replace reservado1 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm10 append blank if ! neterr() replace tipo with "010" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2089" // irpj replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace mes_bi_t_q with substr(aa,4,2) replace dia_se_Q_d with substr(aa,1,2) replace ordem_esta with " " replace cnpj_incor with cadastro->cgc replace vl_debito with str(tributo->fat&vmes,12,2) replace ba_reducao with " " replace sa_debito with " " replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace delimita_r with chr(13)+chr(10) endif select dctfm11 append blank if ! neterr() replace tipo with "011" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2372" // social replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace mes_apurac with substr(aa,4,2) replace dia_apurac with substr(aa,1,2) replace ordem_esta with " " replace cnpj_incor with cadastro->cgc replace pe_apuraca with aa replace cnpj_darf with cadastro->cgc bb=dtoc(mdt_fin) replace dt_vencime with bb replace nro_refere with tributo->c_empresa replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_debito with " " replace reservado with " " replace reservado1 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm12 append blank if ! neterr() replace tipo with "012" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "8109" // pis replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace mes_apurac with substr(aa,4,2) replace dia_apurac with substr(aa,1,2) replace ordem_esta with " " replace cnpj_incor with cadastro->cgc replace peri_apura with substr(aa,4,6) replace cnpj_darf with cadastro->cgc replace forma_pedi with substr(mform_ped,20,20) replace vlr_debito with ltrim(str(tributo->fat&vmes,12,2)) replace perdcomp with " " replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace reservado4 with " " replace reservado5 with " " replace reservado5 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm13 append blank if ! neterr() replace tipo with "013" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2172" // cofis replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace mes_apurac with substr(aa,4,2) replace dia_apurac with substr(aa,1,2) replace ordem_esta with " " replace apuracao with conv_ddt(mdt_emi) replace cnpj_incor with cadastro->cgc replace tp_credito with mtp_cred replace vlr_debito with str(tributo->fat&vmes,12,2) replace form_pedid with mform_ped replace perdcomp with " " replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace reservado4 with " " replace reservado5 with " " replace delimita_r with chr(13)+chr(10) endif select dctfm14 append blank if ! neterr() replace tipo with "014" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2089" //irpj replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace mes_apurac with substr(aa,4,2) replace dia_apurac with substr(aa,1,2) replace ordem_esta with " " replace cnpj_incor with cadastro->cgc replace deposito with mdeposito replace nro_proces with " " // jogar na tela replace vara with " " // jogar na tela replace uf with cadastro->estado replace ident_depo with " " // preencher se ouver deposito replace dt_apuraca with " " // se ouver deposito replace cod_recei1 with " " // se ouver deposito replace dt_vencime with " " // se ouver replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_debito with str(tributo->fat&vmes,12,2) replace motivo_deb with " " // se ouver replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm15 append blank if ! neterr() replace tipo with "015" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2372" // social replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace mes_apurac with substr(aa,4,2) replace dia_apurac with substr(aa,1,2) replace ordem_esta with " " replace nro_proces with " " replace vlr_debito with " " // preencher com valor parcelado replace reservado with " " replace delimita_r with chr(13)+chr(10) endif select dctfm16 append blank if ! neterr() replace tipo with "016" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,2) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "8109" // pis replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace mes_apurac with substr(aa,4,2) replace dia_apurac with substr(aa,1,2) replace ordem_esta with " " replace cnpj_incor with cadastro->cgc replace dt_apuraca with " " replace cnpj_darf with cadastro->cgc replace cod_re_dar with " " // preencher info.na tela bb=dtoc(mdt_fin) replace dt_vencime with conv_ddt(mdt_fin) replace nro_refere with " " replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_debito with " " replace reservado with " " replace reservado1 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm20 append blank if ! neterr() replace tipo with "020" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2172" // cofins replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace vlr_debito with str(tributo->fat&vmes,12,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace reservado5 with " " replace qua_cotas with " " replace reservado6 with " " replace reservado8 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm21 append blank if ! neterr() replace tipo with "021" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_dt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2089" // irpj replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace per_apurac with conv_ddt(mdt_ini) replace cnpj_darf with cadastro->cgc replace cod_r_darf with " " bb=dtoc(mdt_fin) replace dt_vencime with bb replace nro_refere with " " replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_debito with str(tributo->fat&vmes,12,2) replace reservado4 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm22 append blank if ! neterr() replace tipo with "022" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2372" // social replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace per_apurac with conv_ddt(mdt_ini) replace cnpj_darf with cadastro->cgc replace cod_r_darf with " " bb=dtoc(mdt_fin) replace dt_vencime with bb replace nro_refere with " " replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_debito with str(tributo->fat&vmes,12,2) replace form_pedid with mform_ped replace perdcomp with " " replace reservado6 with " " replace reservado8 with " " replace reservado9 with " " replace reservad10 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm23 append blank if ! neterr() replace tipo with "023" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "8109" // pis replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace tp_credito with mtp_cred replace vlr_debito with str(tributo->fat&vmes,12,2) replace form_pedid with mform_ped replace perdcomp with " " replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace reservado6 with " " replace reservado8 with " " replace reservado9 with " " replace reservad10 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm24 append blank if ! neterr() replace tipo with "024" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2172" // cofis replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace per_apurac with substr(aa,1,2) bb=(mdt_fin) replace dt_vencime with conv_ddt(mdt_fin) replace nro_proces with " " replace vara with " " replace municipio with cadastro->cidade replace uf with cadastro->estado replace ide_deposi with " " replace cnpj with cadastro->cgc replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_debito with str(tributo->fat&vmes,12,2) replace form_pedid with mform_ped replace reservado9 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm25 append blank if ! neterr() replace tipo with "025" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2089" // irpj replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace nro_proces with " " replace vlr_pa_deb with " " replace reservado4 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm30 append blank if ! neterr() replace tipo with "030" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2372" //social replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace nro_quota with " " replace reservado4 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm31 append blank if ! neterr() replace tipo with "031" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "8109" // pis replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace nro_quota with " " replace per_apurac with substr(aa,7,4) replace cnpj_darf with cadastro->cgc replace cod_darf with " " replace dt_vencime with conv_ddt(mdt_fin) replace nro_refere with " " replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_quota with " " replace reservado9 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm32 append blank if ! neterr() replace tipo with "032" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2089" // irpj replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace nro_quota with " " replace per_apurac with substr(aa,7,4) replace cnpj_darf with cadastro->cgc replace cod_r_darf with " " replace dt_vencime with conv_ddt(mdt_fin) replace nro_refere with " " replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_quota with " " replace form_pedid with " " replace perdcomp with " " replace reservado5 with " " replace reservado6 with " " replace reservado8 with " " replace reservad10 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm33 append blank if ! neterr() replace tipo with "033" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2372" // social replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace nro_quota with " " replace tp_credito with mtp_cred replace form_pedid with " " replace perdcomp with " " replace reservado4 with " " replace reservado5 with " " replace reservado6 with " " replace reservado8 with " " replace reservad10 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm33 append blank if ! neterr() replace tipo with "033" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "8109" // pis replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace nro_quota with " " replace tp_credito with mtp_cred replace form_pedid with " " replace perdcomp with " " replace reservado4 with " " replace reservado5 with " " replace reservado6 with " " replace reservado8 with " " replace reservad10 with " " replace delimina_r with chr(13)+chr(10) endif select dctfmt9 append blank if ! neterr() replace tipo with "0t9" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace hashcode with " " replace quan_regis with " " replace reservado with " " replace delimina_r with chr(13)+chr(10) endif select DCTFM00 copy to sdf select DCTFM01 copy to sdf select DCTFM02 copy to sdf select DCTFM03 copy to sdf select DCTFM10 copy to sdf select DCTFM11 copy to sdf select DCTFM12 copy to sdf select DCTFM13 copy to sdf select DCTFM14 copy to sdf select DCTFM15 copy to sdf select DCTFM16 copy to sdf select DCTFM20 copy to sdf select DCTFM21 copy to sdf select DCTFM22 copy to sdf select DCTFM23 copy to sdf select DCTFM24 copy to sdf select DCTFM25 copy to sdf select DCTFM30 copy to sdf select DCTFM31 copy to sdf select DCTFM32 copy to sdf select DCTFM33 copy to sdf select DCTFMt9 copy to sdf __copyfile("dctfm00.txt"+"dctfm01.txt"+"dctfm02.txt"+"dctfm03.txt"+"dctfm10.txt"+"dctfm11.txt"+"dctfm12.txt"+"dctfm13.txt"+"dctfm14.txt"+"dctfm15.txt"+"dctfm16.txt"+"dctfm20.txt"+"dctfm21.txt"+"dctfm22.txt"+"dctfm23.txt"+"dctfm24.txt"+"dctfm25.txt"+"dctfm30.txt"+"dctfm31.txt"+"dctfm32.txt"+"dctfm33.txt"+"dctfmt9.txt","dctf.dctf") close databases jn05:end() return nil ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper

Ola pessoal estou tentando gerar um arquivo txt so que esta dando um erro como sou novato aqui ainda não consegui arrumar.(rsrs) como resolver ???? descrição do erro : [dos error 2]base/2012 open error:dctfm00.txtdctfm01.txt from errorsys,line:0 segue a função : Function grava_dctf Select tributo set order to 1 ach=codemp+strzero(mdt_ano,4) seek ach vmes=strzero(mdt_me,2) select DCTFM00 append blank if ! neterr() replace sistema with "DCTFM" replace ano_compet with xano replace tp_declara with substr(mtipo,1,1) replace cnpj_contr with cadastro->cgc replace versao with "150" replace nome_empre with cadastro->nome replace uf_domicil with cadastro->estado replace situacao with substr(msituacao,1,2) replace ano_comp_d with xano replace mes_comp_d with gmes replace base_inici with conv_ddt(mdt_ini) replace base_final with conv_ddt(mdt_fin) replace dt_evento with conv_ddt(mdt_emi) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace reservado4 with " " replace reservado5 with " " replace reservado6 with " " replace reservado7 with " " replace reservado8 with " " replace reservado9 with " " replace reservad10 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm01 append blank if ! neterr() replace tipo with "001" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace data_event with conv_ddt(mdt_emi) replace inicio_per with conv_ddt(mdt_ini) replace final_per with conv_ddt(mdt_fin) replace d_retifica with mdecla replace nro_dctf_r with mnr_rec replace trib_lucro with mlucro replace qualifi_pj with mpj replace pj_balance with mbalancete replace pj_scp with mscp replace pj_inativa with minativa replace pj_deb_dec with mdebito replace pj_dctf_se with mdctfs replace reservado1 with " " replace delimita_r with chr(13)+chr(10) endif select dctfm02 append blank if ! neterr() replace tipo with "002" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace data_event with conv_ddt(mdt_emi) replace nome_empre with cadastro->nome replace cod_nat_ju with cadastro->cae replace logradouro with CADASTRO->ENDERECO replace numero with cadastro->numero replace complement with " " replace bairro with CADASTRO->BAIRRO replace municipio with CADASTRO->CIDADE replace uf with CADASTRO->ESTADO replace cep with cadastro->cep replace ddd_telefo with substr(cadastro->telefone,1,3) replace telefone with CADASTRO->TELEFONE replace ddd_do_fax with substr(cadastro->telefone,1,3) replace fax with CADASTRO->TELEFONE replace caixa_post with cadastro->cep replace uf_postAL with cadastro->estado replace cep_postal with cadastro->cep replace correio_el with CADASTRO->EMAIL replace reservado2 with " " replace delimita_r with chr(13)+chr(10) endif select dctfm03 append blank if ! neterr() replace tipo with "003" replace cnpj_contr with CADASTRO->CGC replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace data_event with conv_ddt(mdt_emi) replace nome_repre with CADASTRO->RESP_EMPRE replace cpf_repres with CADASTRO->CPF_EMPRE replace ddd_telefo with substr(cadastro->telefone,1,3) replace telefone with CADASTRO->TELEFONE replace ramal with " " replace ddd_fax with substr(cadastro->telefone,1,3) replace fax with cadastro->telefone replace correio with CADASTRO->EMAIL replace reservado1 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm10 append blank if ! neterr() replace tipo with "010" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2089" // irpj replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace mes_bi_t_q with substr(aa,4,2) replace dia_se_Q_d with substr(aa,1,2) replace ordem_esta with " " replace cnpj_incor with cadastro->cgc replace vl_debito with str(tributo->fat&vmes,12,2) replace ba_reducao with " " replace sa_debito with " " replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace delimita_r with chr(13)+chr(10) endif select dctfm11 append blank if ! neterr() replace tipo with "011" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2372" // social replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace mes_apurac with substr(aa,4,2) replace dia_apurac with substr(aa,1,2) replace ordem_esta with " " replace cnpj_incor with cadastro->cgc replace pe_apuraca with aa replace cnpj_darf with cadastro->cgc bb=dtoc(mdt_fin) replace dt_vencime with bb replace nro_refere with tributo->c_empresa replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_debito with " " replace reservado with " " replace reservado1 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm12 append blank if ! neterr() replace tipo with "012" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "8109" // pis replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace mes_apurac with substr(aa,4,2) replace dia_apurac with substr(aa,1,2) replace ordem_esta with " " replace cnpj_incor with cadastro->cgc replace peri_apura with substr(aa,4,6) replace cnpj_darf with cadastro->cgc replace forma_pedi with substr(mform_ped,20,20) replace vlr_debito with ltrim(str(tributo->fat&vmes,12,2)) replace perdcomp with " " replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace reservado4 with " " replace reservado5 with " " replace reservado5 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm13 append blank if ! neterr() replace tipo with "013" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2172" // cofis replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace mes_apurac with substr(aa,4,2) replace dia_apurac with substr(aa,1,2) replace ordem_esta with " " replace apuracao with conv_ddt(mdt_emi) replace cnpj_incor with cadastro->cgc replace tp_credito with mtp_cred replace vlr_debito with str(tributo->fat&vmes,12,2) replace form_pedid with mform_ped replace perdcomp with " " replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace reservado4 with " " replace reservado5 with " " replace delimita_r with chr(13)+chr(10) endif select dctfm14 append blank if ! neterr() replace tipo with "014" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2089" //irpj replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace mes_apurac with substr(aa,4,2) replace dia_apurac with substr(aa,1,2) replace ordem_esta with " " replace cnpj_incor with cadastro->cgc replace deposito with mdeposito replace nro_proces with " " // jogar na tela replace vara with " " // jogar na tela replace uf with cadastro->estado replace ident_depo with " " // preencher se ouver deposito replace dt_apuraca with " " // se ouver deposito replace cod_recei1 with " " // se ouver deposito replace dt_vencime with " " // se ouver replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_debito with str(tributo->fat&vmes,12,2) replace motivo_deb with " " // se ouver replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm15 append blank if ! neterr() replace tipo with "015" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2372" // social replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace mes_apurac with substr(aa,4,2) replace dia_apurac with substr(aa,1,2) replace ordem_esta with " " replace nro_proces with " " replace vlr_debito with " " // preencher com valor parcelado replace reservado with " " replace delimita_r with chr(13)+chr(10) endif select dctfm16 append blank if ! neterr() replace tipo with "016" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,2) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "8109" // pis replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace mes_apurac with substr(aa,4,2) replace dia_apurac with substr(aa,1,2) replace ordem_esta with " " replace cnpj_incor with cadastro->cgc replace dt_apuraca with " " replace cnpj_darf with cadastro->cgc replace cod_re_dar with " " // preencher info.na tela bb=dtoc(mdt_fin) replace dt_vencime with conv_ddt(mdt_fin) replace nro_refere with " " replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_debito with " " replace reservado with " " replace reservado1 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm20 append blank if ! neterr() replace tipo with "020" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2172" // cofins replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace vlr_debito with str(tributo->fat&vmes,12,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace reservado5 with " " replace qua_cotas with " " replace reservado6 with " " replace reservado8 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm21 append blank if ! neterr() replace tipo with "021" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_dt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2089" // irpj replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace per_apurac with conv_ddt(mdt_ini) replace cnpj_darf with cadastro->cgc replace cod_r_darf with " " bb=dtoc(mdt_fin) replace dt_vencime with bb replace nro_refere with " " replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_debito with str(tributo->fat&vmes,12,2) replace reservado4 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm22 append blank if ! neterr() replace tipo with "022" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2372" // social replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace per_apurac with conv_ddt(mdt_ini) replace cnpj_darf with cadastro->cgc replace cod_r_darf with " " bb=dtoc(mdt_fin) replace dt_vencime with bb replace nro_refere with " " replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_debito with str(tributo->fat&vmes,12,2) replace form_pedid with mform_ped replace perdcomp with " " replace reservado6 with " " replace reservado8 with " " replace reservado9 with " " replace reservad10 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm23 append blank if ! neterr() replace tipo with "023" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "8109" // pis replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace tp_credito with mtp_cred replace vlr_debito with str(tributo->fat&vmes,12,2) replace form_pedid with mform_ped replace perdcomp with " " replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace reservado6 with " " replace reservado8 with " " replace reservado9 with " " replace reservad10 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm24 append blank if ! neterr() replace tipo with "024" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2172" // cofis replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace per_apurac with substr(aa,1,2) bb=(mdt_fin) replace dt_vencime with conv_ddt(mdt_fin) replace nro_proces with " " replace vara with " " replace municipio with cadastro->cidade replace uf with cadastro->estado replace ide_deposi with " " replace cnpj with cadastro->cgc replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_debito with str(tributo->fat&vmes,12,2) replace form_pedid with mform_ped replace reservado9 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm25 append blank if ! neterr() replace tipo with "025" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2089" // irpj replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace reservado3 with " " replace nro_proces with " " replace vlr_pa_deb with " " replace reservado4 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm30 append blank if ! neterr() replace tipo with "030" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2372" //social replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace nro_quota with " " replace reservado4 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm31 append blank if ! neterr() replace tipo with "031" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "8109" // pis replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace nro_quota with " " replace per_apurac with substr(aa,7,4) replace cnpj_darf with cadastro->cgc replace cod_darf with " " replace dt_vencime with conv_ddt(mdt_fin) replace nro_refere with " " replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_quota with " " replace reservado9 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm32 append blank if ! neterr() replace tipo with "032" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2089" // irpj replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace nro_quota with " " replace per_apurac with substr(aa,7,4) replace cnpj_darf with cadastro->cgc replace cod_r_darf with " " replace dt_vencime with conv_ddt(mdt_fin) replace nro_refere with " " replace vlr_princi with str(tributo->fat&vmes,12,2) replace vlr_multa with " " replace vlr_juros with " " replace vlr_quota with " " replace form_pedid with " " replace perdcomp with " " replace reservado5 with " " replace reservado6 with " " replace reservado8 with " " replace reservad10 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm33 append blank if ! neterr() replace tipo with "033" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "2372" // social replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace nro_quota with " " replace tp_credito with mtp_cred replace form_pedid with " " replace perdcomp with " " replace reservado4 with " " replace reservado5 with " " replace reservado6 with " " replace reservado8 with " " replace reservad10 with " " replace delimina_r with chr(13)+chr(10) endif select dctfm33 append blank if ! neterr() replace tipo with "033" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace grupo_trib with " " replace cod_receit with "8109" // pis replace periodicid with mperiod aa=dtoc(mdt_ini) replace ano_apurac with substr(aa,7,4) replace tri_apurac with substr(aa,4,2) replace reservado with " " replace reservado1 with " " replace reservado2 with " " replace nro_quota with " " replace tp_credito with mtp_cred replace form_pedid with " " replace perdcomp with " " replace reservado4 with " " replace reservado5 with " " replace reservado6 with " " replace reservado8 with " " replace reservad10 with " " replace delimina_r with chr(13)+chr(10) endif select dctfmt9 append blank if ! neterr() replace tipo with "0t9" replace cnpj_contr with cadastro->cgc replace mofg with strzero(mdt_ano,4)+strzero(mdt_me,2) replace situacao with substr(msituacao,1,1) replace dt_evento with conv_ddt(mdt_emi) replace hashcode with " " replace quan_regis with " " replace reservado with " " replace delimina_r with chr(13)+chr(10) endif select DCTFM00 copy to sdf select DCTFM01 copy to sdf select DCTFM02 copy to sdf select DCTFM03 copy to sdf select DCTFM10 copy to sdf select DCTFM11 copy to sdf select DCTFM12 copy to sdf select DCTFM13 copy to sdf select DCTFM14 copy to sdf select DCTFM15 copy to sdf select DCTFM16 copy to sdf select DCTFM20 copy to sdf select DCTFM21 copy to sdf select DCTFM22 copy to sdf select DCTFM23 copy to sdf select DCTFM24 copy to sdf select DCTFM25 copy to sdf select DCTFM30 copy to sdf select DCTFM31 copy to sdf select DCTFM32 copy to sdf select DCTFM33 copy to sdf select DCTFMt9 copy to sdf __copyfile("dctfm00.txt"+"dctfm01.txt"+"dctfm02.txt"+"dctfm03.txt"+"dctfm10.txt"+"dctfm11.txt"+"dctfm12.txt"+"dctfm13.txt"+"dctfm14.txt"+"dctfm15.txt"+"dctfm16.txt"+"dctfm20.txt"+"dctfm21.txt"+"dctfm22.txt"+"dctfm23.txt"+"dctfm24.txt"+"dctfm25.txt"+"dctfm30.txt"+"dctfm31.txt"+"dctfm32.txt"+"dctfm33.txt"+"dctfmt9.txt","dctf.dctf") close databases jn05:end() return nil ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper

Ola Pessoal Estou iniciando nessa linguagem, aprendi a montar programas tudo pelo Prompt de comando DOs, Dialog, alinha os texto, botões, gets tudo pelo Dos. Só que eu to perdendo muito tempo para montar tudo isso, então resolvi fazer pelo visual fivewin, só que não estou conseguindo configura. Gostaria de saber como configura o programa Visual Fivewin for harbour ou se tem algum programa melhor do que o visual. ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper

Ola Pessoal Estou iniciando nessa linguagem, aprendi a montar programas tudo pelo Prompt de comando DOs, Dialog, alinha os texto, botões, gets tudo pelo Dos. Só que eu to perdendo muito tempo para montar tudo isso, então resolvi fazer pelo visual fivewin, só que não estou conseguindo configura. Gostaria de saber como configura o programa Visual Fivewin for harbour ou se tem algum programa melhor do que o visual. ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper

Ola Gostaria de saber como funciona o minigui e onde posso baixa e se ele é pago ! ja procurei postagens antigas so que não achei. fico no aguardo . ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper

Ola Gostaria de saber como funciona o minigui e onde posso baixa e se ele é pago ! ja procurei postagens antigas so que não achei. fico no aguardo . ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper

Então! Como só iniciante no fivewin, Ainda não se é possível. Andei pesquisando e ainda não encontrei nada, por isso postei aqui, pr ver se alguém sabe ou se realmente é possível! ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper

Assim Ele entra no site, tem um menu onde só o gerente e os funcionários tem acesso ai eles vão entra com login e senha! Quando carregar a pagina restrita abre o programa em Xharbour. Tendeu? ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper

Oieee Gostaria de saber se é possível usar um programa feito xharbour na internet! Ex: Fiz um programa Feito em xharbour e o meu cliente queria usar o programa de dentro do site dele! È possível ou tem que ter uma class especifica para isso ou algo assim? ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper

Oieee Gostaria de saber se é possível usar um programa feito xharbour na internet! Ex: Fiz um programa Feito em xharbour e o meu cliente queria usar o programa de dentro do site dele! È possível ou tem que ter uma class especifica para isso ou algo assim? ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper

Gostaria de saber se nessa class tem a função zera bofer! Para reconhecer que é fim de pagina para não deixa passa a folha sozinha ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper

Iremos Testa ! Até + ObrigadO =) ThiagoO Web Develop Zn/Sp FW - xHarbour - Clipper