atnsoft

Giovany, pelo que lembro, voce tem um sistema p/ cartórios né? Se, sim, entre em contato pois tenho um cliente pra voce. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Estranho mesmo. Esta tela acima é quase toda de combos. Veja todos os objetos, se não tá repetido ou trocado e se suas variaveis estão inicializando com o conteudo dos combos. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

nAT 0.88,0.8 ComboBox oGrupo Var Vgrupo Items aGrupo Valid ! empty(Vgrupo) Size 145,70 OF oDlgC on Change(PxSub2(Vgrupo, @aSubGrupo, oSubGrupo),xFocus(oSubGrupo), VsubGrupo := aSubGrupo[1], oSubGrupo:Refresh() ) nAT 0.88,20 ComboBox oSubGrupo Var VsubGrupo Items aSubGrupo Valid ! empty(VsubGrupo) Size 140,70 OF oDlgC nAT 2.48,0.8 ComboBox oSetor Var Vsetor Items aSetor Size 145,70 Valid ! Empty(Vsetor) OF oDlgC On Change(CtSetor(@Vsetor, aSetor, oSetor), oSetor:Refresh()) nAT 2.48,20 ComboBox oMes1 Var Vmes1 Items aData of oDlgC Valid ! Empty(Vmes1) Size 35,70 nAT 2.48,26 ComboBox oMes2 Var Vmes2 Items aData of oDlgC Valid ! Empty(Vmes2) Size 35,70 nAT 04.0,1.0 CheckBox Vprevia Prompt "Preview de ImpressÆo" Size 90,11 of oDlgC nAT 05.0,1.0 CheckBox Varquivo Prompt "Em Arquivo" Size 90,11 of oDlgC nAT 4.3,19.4 BUTTON " &Ok " OF oDlgC Size 40,12 ACTION (RelCGS2(@Vgrupo, @VsubGrupo, @Vsetor, @Vmes1, @Vmes2, @Vprevia, @Varquivo, oDlgC), lTodos := .T., lSaida := .T.) nAT 4.3,28.0 BUTTON "&Cancela" OF oDlgC Size 40,12 ACTION (lTodos := .F.,lSaida := .T., oDlgC:End()) Cancel oGrupo:bGotFocus := {||oGrupo:Open()} id=code>id=code>AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Bingo Kleyber. Valeu. Resolvido AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Obrigado pelas respostas, mas nenhuma deu certo. O numero ainda permanece. Já tá em 678012. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Pessoal tem como recomeçar a auto numeração em um campo auto_increment ? Ao apagar a tabela a numeração continua. Uso o HeidiSql 7.0 AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Pessoal tem como recomeçar a auto numeração em um campo auto_increment ? Ao apagar a tabela a numeração continua. Uso o HeidiSql 7.0 AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Tente isso aqui: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=11747 AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Melhorando a pergunta: Bancos Sql são abertos na inicialização do sistema ou somente qdo for necessário? Se for no inicio do sistema, qdo cai a conexão, o que fazer? AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR Editado por - atnsoft on 04/04/2012 18:03:25

Pessoal, sempre trabalhei com dbf e ainda trabalho, mas uso o HeidiSql para dar manutenção em um banco remoto. Minha duvida em relação ao dbf: no HeidiSql ficando algum tempo sem uso, ele desconecta do banco, em meus sistemas (dbf) eu abro o banco toda vez que for necessario e no Sql tambem é assim ou fica sempre aberto ? Abre no inicio do sistema ou quando for usar o banco? e quando desconecta, tem de fechar o sistema e abrir novamente ? PS. Leigo no assunto (Sql) AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Pessoal, sempre trabalhei com dbf e ainda trabalho, mas uso o HeidiSql para dar manutenção em um banco remoto. Minha duvida em relação ao dbf: no HeidiSql ficando algum tempo sem uso, ele desconecta do banco, em meus sistemas (dbf) eu abro o banco toda vez que for necessario e no Sql tambem é assim ou fica sempre aberto ? Abre no inicio do sistema ou quando for usar o banco? e quando desconecta, tem de fechar o sistema e abrir novamente ? PS. Leigo no assunto (Sql) AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Já, mas foi com a Zebra. Experimente ir fazendo linha a linha e ver a posição que imprime. O que te passei acima usando logico comandos da Zebra, nao funcionou, tive que refazer as coordenadas uma a uma. Tente aí. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

eu uso assim (lPorlan = retrato / paisagem): if ! empty(Vqual[conta]) oPrn:Say(oPrn:nRow+01,01,Chr(2)+"L") oPrn:Say(oPrn:nRow+01,01,"D11") oPrn:Say(oPrn:nRow+01,01,"H"+StrZero(lDens,2,0)) if (LporLan = "1") oPrn:Say(oPrn:nRow+01,01,"131000000960008"+LletiL+Wcodigo) oPrn:Say(oPrn:nRow+01,01,"121000001000085"+" - "+Wnome) oPrn:Say(oPrn:nRow+01,01,"121000000840008"+WnomeN) oPrn:Say(oPrn:nRow+01,01,"121000000760008") oPrn:Say(oPrn:nRow+01,01,"121000000720008"+Vqual[Conta]) if ! empty(Vqual1[conta]) oPrn:Say(oPrn:nRow+01,01,"121000000600008"+Vqual1[Conta]) endif if ! empty(Vqual2[Conta]) oPrn:Say(oPrn:nRow+01,01,"11000000480008"+Vqual2[Conta]) endif if empty(vqual2[conta]) oPrn:Say(oPrn:nRow+01,01,"121000000440008") endif oPrn:Say(oPrn:nRow+01,01,"121000000360008"+Trim(Vtubo[conta])+" - "+Vsetor[Conta]) oPrn:Say(oPrn:nRow+01,01,"1A0002000010027"+LletiL+Ltrim(Str(Val(Wcodigo),8,0))) Wccet ++ else oPrn:Say(oPrn:nRow+01,01,"431000000090030"+LletiL+Wcodigo) oPrn:Say(oPrn:nRow+01,01,"421000000800028"+" - "+Wnome) oPrn:Say(oPrn:nRow+01,01,"421000000090043"+WnomeN) oPrn:Say(oPrn:nRow+01,01,"421000000090050") oPrn:Say(oPrn:nRow+01,01,"421000000090060"+Vqual[Conta]) if ! empty(vqual1[conta]) oPrn:Say(oPrn:nRow+01,01,"421000000090073"+Vqual1[Conta]) endif if ! empty(Vqual2[Conta]) oPrn:Say(oPrn:nRow+01,01,"421000000090083"+Vqual2[Conta]) endif if Empty(vqual2[Conta]) oPrn:Say(oPrn:nRow+01,01,"421000000090085") endif oPrn:Say(oPrn:nRow+01,01,"421000000090095"+Trim(Vtubo[Conta])+" - "+Vsetor[Conta]) oPrn:Say(oPrn:nRow+01,01,"4A0002000190128"+LletiL+ltrim(Str(Val(Wcodigo),8,0))) Wccet ++ endif oPrn:Say(oPrn:nRow+01,01,"Q0001") oPrn:Say(oPrn:nRow+01,01,"E") endif id=code>id=code>AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Senhores, verifico se o arquivo existe usando a funçao File(), pasta usando o isDir() e para testar unidade? Tipo f:, e: ????? DiskReady() ??? esta função existe, mas da erro na compilação. oh vida, oh céus, AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Senhores, verifico se o arquivo existe usando a funçao File(), pasta usando o isDir() e para testar unidade? Tipo f:, e: ????? DiskReady() ??? esta função existe, mas da erro na compilação. oh vida, oh céus, AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Recompile as libs. Me parece que há problemas com a TS em versoes mais recentes do Five. (barras de rolagens é uma delas). AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Quatro programadores se encontram em horário de almoço e um deles comenta: - Pessoal, ontem eu vi uma morena... Vocês nem vão acreditar! - Uau... - Animaram-se os amigos. - Linda! Com uns pernões dessa grossura... Olhos azuis, seios lindos... Uma beleza! - Uau! - repetiram eles. - Começamos a conversar... Papo vai, papo vem... Ela aceitou ir para o meu apartamento! - Uau!! - Bebemos um pouco de vinho, nos beijamos e o clima começou a esquentar... - Uau!!! - E a parte mais incrível: Ela virou pra mim e disse "Quero te sentir dentro de mim agora!" - Uauuuuuu!!! - Então eu tirei a minha roupa e comecei a despir aquele mulherão! Primeiro a blusa, depois o sutiã, que eu joguei em cima do teclado do meu micro novo e depois... - Opa! - interrompeu um dos amigos - Você comprou um micro novo? Qual o processador? AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Quatro programadores se encontram em horário de almoço e um deles comenta: - Pessoal, ontem eu vi uma morena... Vocês nem vão acreditar! - Uau... - Animaram-se os amigos. - Linda! Com uns pernões dessa grossura... Olhos azuis, seios lindos... Uma beleza! - Uau! - repetiram eles. - Começamos a conversar... Papo vai, papo vem... Ela aceitou ir para o meu apartamento! - Uau!! - Bebemos um pouco de vinho, nos beijamos e o clima começou a esquentar... - Uau!!! - E a parte mais incrível: Ela virou pra mim e disse "Quero te sentir dentro de mim agora!" - Uauuuuuu!!! - Então eu tirei a minha roupa e comecei a despir aquele mulherão! Primeiro a blusa, depois o sutiã, que eu joguei em cima do teclado do meu micro novo e depois... - Opa! - interrompeu um dos amigos - Você comprou um micro novo? Qual o processador? AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Numa reunião com o Presidente da Suiça, Lula apresenta os seus ministros: - Este é o Ministro da Saúde, este é o ministro da Educação, este é o Ministro da Cultura, este é o Ministro da Justiça... E assim foi. Chegou a vez do Presidente da Suiça: - Este é o Ministro da Saúde, este é o Ministro da Fazenda, este é o Ministro da Educação, este é o Ministro da Marinha... Nessa altura, Lula começa a rir: - Desculpe, Sr.Presidente, mas para quê o Sr. tem um Ministro da Marinha, se o seu país não tem mar? O Presidente da Suiça, então, educadamente, responde: - Bem, quando você apresentou os Ministros da Educação, da Saúde e da Justica, eu me segurei e não ri. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Numa reunião com o Presidente da Suiça, Lula apresenta os seus ministros: - Este é o Ministro da Saúde, este é o ministro da Educação, este é o Ministro da Cultura, este é o Ministro da Justiça... E assim foi. Chegou a vez do Presidente da Suiça: - Este é o Ministro da Saúde, este é o Ministro da Fazenda, este é o Ministro da Educação, este é o Ministro da Marinha... Nessa altura, Lula começa a rir: - Desculpe, Sr.Presidente, mas para quê o Sr. tem um Ministro da Marinha, se o seu país não tem mar? O Presidente da Suiça, então, educadamente, responde: - Bem, quando você apresentou os Ministros da Educação, da Saúde e da Justica, eu me segurei e não ri. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Tiraram mesmo. Vamos recomeçar...... Na faculdade, a escultural professora estava acabando de dar as últimas orientações sobre a prova que haveria no dia seguinte. — Eu não vou tolerar faltas! Não quero desculpas esfarrapadas... Só aceito faltas se os motivos forem de internação na UTI, doença incurável ou falecimento! Silêncio geral na classe, até que alguém lá do fundo resolveu se manifestar: — Professora... Dentre esses motivos justificados, podemos incluir o de extremo cansaço por atividade sexual? Depois que todos pararam de rir a professorinha se levantou, olhou para o engraçadinho e respondeu, tranquilamente: — Eu sinto em lhe informar que isto não é um motivo justificado, pois a prova será com questões de múltipla escolha e eu permitirei que você venha para a classe e marque as respostas com a outra mão.. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Qdo tentei fiz assim e funcionou: #include "Fivewin.ch" #include "sqlrdd.ch" // SQLRDD Main include #include "mysql.ch" // Needed if you plan to use native connection to MySQL REQUEST SQLRDD // SQLRDD should be linked in REQUEST SR_MYSQL // Needed if you plan to use native connection to MySQL Function main() blabla na compilação usar os seguintes: (no verce foi facil, xdev fico devendo) sql.lib oci.lib libmysql.lib ps: as duas ultimas na pasta do sistema tb. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Tenho quase certeza: UNCP: Usuario q nao consegue participar PHD: Pouca habilidade em digitação e A.A.:= Automação automatica. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Eu acho que o len ira mostrar somente o numero de linhas por ser unidimensional o seu array. Nesse caso o que esta sendo adicionado sao colunas. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR

Rubem, tb achei isso e fiz a troca de uma delas. Para minha decepção, funcionou. To achando que é alguma coisa no meu soft ou esqueci de algum comando pra comutar entre ribbon e etiqueta termica. AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR