Luiz Arruda (ICO) Posted September 11, 2012 Report Share Posted September 11, 2012 Boa Tarde.. Pessoal.. porque esse APPEND ai não está funcionando ? Procedure ChecaEmpresa() //Pré cadastro de Empresasid=blue> Private oxCampo:="c:\pessoal9" REQUEST DBFCDX, DBFFPT, ORDKEYCOUNT,ORDKEYGOTO, ORDKEYNO, DTOS RDDSETDEFAULT("DBFCDX") FERASE("c:\pessoal9\EMPRESAS.250") CLOSE DATA DBCLOSEAREA() Select 1 Use Empresas EXCLUSIVE xVerStru := DBSTRUCT() Close empresas If .Not. xStru("ENDERECO",xVerStru) MsgInfo("A tebela EMPRESAS será Alterada","..::Tabelas") fRename("&oxCampo\EMPRESAS.dbf", "&oxCampo\EMPRESAS.250" ) aestru:={} Aadd(aestru, {"NOME", "C", 035,000 }) Aadd(aestru, {"SENHA", "C", 003,000 }) Aadd(aestru, {"CPF", "C", 016,000 }) Aadd(aestru, {"ALERTA1", "C", 250,000 }) Aqui ele adiciona os campos normalmenteid=red> Aadd(aestru, {"ENDERECO", "C", 100,000 }) Aadd(aestru, {"BAIRRO", "C", 050,000 }) Aadd(aestru, {"CIDADE", "C", 035,000 }) Aadd(aestru, {"CEP", "C", 010,000 }) DbCreate("&oXCampo\EMPRESAS.DBF", aestru) MsgInfo("Tabela Alterada com sucesso!","..::Empresas") Close Data DbcloseArea() Use \PESSOAL9\EMPRESAS EXCLUSIVE append from c:\pessoal9\EMPRESAS.250 browse() coloquei só pra ver se tava OK, não faz parte do códigoid=red> Endif Return(.t.) id=code>id=code>Inclusive coloquei esses Close Data e DbcloseArea pra ver se resolvia e não deu em nada. eu faço essas alterações em vários DBFs e funciona, mas nesse ai("Empresas.dbf") não quer dar certo.. Se eu dou um browse no Empresas.250, que é o antigo empresas.DBF renomeado eu vejo as empresas cadastradas, só que no append não estão indo pra empresas.DBFid=red> deve ter algum erro que não tô vendo e tô passando por cima dele. Se alguém puder ajudar agradeço.. Desde já obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 11, 2012 Author Report Share Posted September 11, 2012 Boa Tarde.. Pessoal.. porque esse APPEND ai não está funcionando ? Procedure ChecaEmpresa() //Pré cadastro de Empresasid=blue> Private oxCampo:="c:\pessoal9" REQUEST DBFCDX, DBFFPT, ORDKEYCOUNT,ORDKEYGOTO, ORDKEYNO, DTOS RDDSETDEFAULT("DBFCDX") FERASE("c:\pessoal9\EMPRESAS.250") CLOSE DATA DBCLOSEAREA() Select 1 Use Empresas EXCLUSIVE xVerStru := DBSTRUCT() Close empresas If .Not. xStru("ENDERECO",xVerStru) MsgInfo("A tebela EMPRESAS será Alterada","..::Tabelas") fRename("&oxCampo\EMPRESAS.dbf", "&oxCampo\EMPRESAS.250" ) aestru:={} Aadd(aestru, {"NOME", "C", 035,000 }) Aadd(aestru, {"SENHA", "C", 003,000 }) Aadd(aestru, {"CPF", "C", 016,000 }) Aadd(aestru, {"ALERTA1", "C", 250,000 }) Aqui ele adiciona os campos normalmenteid=red> Aadd(aestru, {"ENDERECO", "C", 100,000 }) Aadd(aestru, {"BAIRRO", "C", 050,000 }) Aadd(aestru, {"CIDADE", "C", 035,000 }) Aadd(aestru, {"CEP", "C", 010,000 }) DbCreate("&oXCampo\EMPRESAS.DBF", aestru) MsgInfo("Tabela Alterada com sucesso!","..::Empresas") Close Data DbcloseArea() Use \PESSOAL9\EMPRESAS EXCLUSIVE append from c:\pessoal9\EMPRESAS.250 browse() coloquei só pra ver se tava OK, não faz parte do códigoid=red> Endif Return(.t.) id=code>id=code>Inclusive coloquei esses Close Data e DbcloseArea pra ver se resolvia e não deu em nada. eu faço essas alterações em vários DBFs e funciona, mas nesse ai("Empresas.dbf") não quer dar certo.. Se eu dou um browse no Empresas.250, que é o antigo empresas.DBF renomeado eu vejo as empresas cadastradas, só que no append não estão indo pra empresas.DBFid=red> deve ter algum erro que não tô vendo e tô passando por cima dele. Se alguém puder ajudar agradeço.. Desde já obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 11, 2012 Report Share Posted September 11, 2012 tente: Use Empresas EXCLUSIVE NEW Ou Use Empresas ALIAS Empresas EXCLUSIVE NEW abs, João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 11, 2012 Author Report Share Posted September 11, 2012 Que doido.. matei o CDX com o Ferase()junto com o Empresas.250 e agora tá dando certo.. quero entender porque isso. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 11, 2012 Report Share Posted September 11, 2012 Empresas.250 ?? Então voce tem 2 arquivos? Empresas.250 e empresas.dbf? E empresas.dbf está vazia?? Agora boiei total... kkkkkkkkkkkkkkk João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
vagner Posted September 11, 2012 Report Share Posted September 11, 2012 citação:Que doido.. matei o CDX com o Ferase()junto com o Empresas.250 e agora tá dando certo.. quero entender porque isso. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. id=quote>id=quote>Bom, faz sentido, como estava o seu Ãndice na hora que estava appendando ? Vagner Wirts "Ele não sabendo que era impossÃvel, foi lá e fez" Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 11, 2012 Author Report Share Posted September 11, 2012 citação:Bom, faz sentido, como estava o seu Ãndice na hora que estava appendando ? Vagner Wirts "Ele não sabendo que era impossÃvel, foi lá e fez" id=quote>id=quote>Vagner :: Eu havia criado ele na abertura, antes de dar o append. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 11, 2012 Author Report Share Posted September 11, 2012 citação:Empresas.250 ?? Então voce tem 2 arquivos? Empresas.250 e empresas.dbf? E empresas.dbf está vazia?? Agora boiei total... kkkkkkkkkkkkkkk João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Não, não tenho 2 arquivos, o empresas.250 é o empresas.dbf renomeado, já que o DbCreate() vai criar um Empresas.dbf vazio, e com o append eu recupero os cadastro das empresas feito anteriormente. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
Eduardo Bilato Posted September 12, 2012 Report Share Posted September 12, 2012 Não teria alguma relação com o buffer de gravação ? De repente, um COMMIT bastaria Mas não sei ao certo, é só um palpite att Eduardo de Camargo Bilato FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY email: eduardobilato@gmail.com msn: dunhox@hotmail.com Quote Link to comment Share on other sites More sharing options...
vagner Posted September 12, 2012 Report Share Posted September 12, 2012 citação: citação:Bom, faz sentido, como estava o seu Ãndice na hora que estava appendando ? Vagner Wirts "Ele não sabendo que era impossÃvel, foi lá e fez" id=quote>id=quote>Vagner :: Eu havia criado ele na abertura, antes de dar o append. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. id=quote>id=quote>Olá, Desculpe da demora, mas é justamente isso, vc criou o Ãndice antes de dar o append, e pelo visto antes de dar o rename pq não và ele na parte do prg q mostrou, aà vc renomeou o dbf que estava com o Ãndice para outro e deu o appen, é isso ? Vagner Wirts "Ele não sabendo que era impossÃvel, foi lá e fez" Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 14, 2012 Author Report Share Posted September 14, 2012 Isso mesmo Vagner.. Excluindo o CDX antigo e recriando depois do append deu certo.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 14, 2012 Report Share Posted September 14, 2012 E eu pensei que fosse o único!! kkkkkkkkkkkkk João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 14, 2012 Author Report Share Posted September 14, 2012 citação:E eu pensei que fosse o único!! kkkkkkkkkkkkk João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Né não João, estamo quase em extinção mas ainda dá um cardo... Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.