Polyanna Wenze

Q bom q lhe ajudou 'cara'.. ;D []'s

crie um procedimento onde você pode alterar qualquer valor no registro. procedure AlterarRegistro(Chave,Parametro:string;SimNao: Boolean); const Registro = '\Software\Microsoft\Windows\CurrentVersion\Policies\'; <- aqi é o caminho do registro YesNo : array[False .. True] of Word = (0, 1); begin with TRegistry.Create do try RootKey:=HKEY_CURRENT_USER; if OpenKey(Registro + Chave, True) then WriteInteger(Parametro,YesNo[simNao]); CloseKey; finally Free; end; pra chamar o procedimento: AlterarRegistro('Explorer\','NoLogoff',True ou False); True=1 e false=0 E n sqeça de declarar Registry na Uses. Espero ter ajudado..

Olá, para expirar programa eu uso um componente que achei fuçando na net, o TimeStop.. Você adiciona o componente no código fonte do programa.. Funciona bacana, você põe o dia, mês, ano, e a mensagem que você quer apareça quando a pessoa clicar no executável do programa.. Tá aqui o link do componente: http://www.4shared.com/file/112450445/d8d5f1d5/TimeStop.html

Bom, fiquei preocupada achando que o sistema estava calculando errado, mas vou verificar direitinho.. Valeu pela dica.. Grata..

Olá, o meu sistema (por enquanto) não faz a validação.. Então eu gero o xml pelo sistema, e depois tento validar em algum site.. Stou usando o site evandro.net/tiss.. Só que quando eu visualizo as guias do lote, o valor aparece certinho, mas quando mando validar, aí sai diferente.. Passei dias e mais dias revisando o código, alterando como ele calcula o valor do procedimento.. Então eu procurei outro site, e achei o da unimed de belém, o http://tiss.unimedbelem.com.br/validador.. Aí nesse site quando mando validar o xml, sai certinho.. agora o porque, eu não sei.. será que é o site que está calculando errado?

Olá gente.. Desenvolvi um sisteminha para gerar os arquivos xml com as guias para mandar para os convênios.. Na hora de validar o arquivo não dá erro, mas o valor total da guia sai diferente da soma dos procedimentos.. Se o valor da guia for R$100, quando manda validar, aparece R$300 (3x mais)... Se alguém já passou por isso, gostaria que me dessem uma luz... Fico no aguardo...

Olá de novo.. Bom, este problema de início de utilização de novo componente consegui resolver, porém, estou com um outro problema, também com o ApplyUpdates.. Uso o SQLDataSet+DataSetProvider+ClientDataSet+DataSource... SQLDataSet: -CommandType=ctQuery; -CommandType='SELECT * FROM PACIENTES ORDER BY NOME'; Bom, quando eu vou salvar alguma inserção/alteração de registro: SQLDataSet.Insert; SQLDataSet.FieldByName('teste').asString:='lalalalala'; SQLDataSet.Post; SQLDataSet.ApplyUpdates(0); <<----- dá o erro aqi Diz 'Não é possível criar uma nova conexão porque o modo usado é o de transação manual ou distribuída'. Então já mandaram eu colocar um SQLConnection.CloseDataSet em BeforeApplyUpdates do SQLDataSet. Aí ele salva, mas ele fechou o dataset, dando a mensagem de que 'Não pode executar esta operação porque o DataSet está fechado', porque o sistema vai fazer outra coisa depois que salva. Aí eu li que era pra eu colocar um tal de Transaction, iniciar a transação antes de salvar a alteração/inserção, e depois dá o commit: if SQLConnection.DSPacientes.State in [dsInsert,dsEdit] then begin TD.TransactionID := 1; TD.IsolationLevel:=xilReadCommitted; SQLConnection.StartTransaction(TD); . passo os campos . que serão salvos . CDSPacientes.Post; CDSPacientes.ApplyUpdates(0); <<---- dá erro aqui tb SQLConnection.Commit(TD); end; Aí dá a mesma msg de erro que deu no ApplyUpdates: 'Não é possível criar uma nova conexão porque o modo usado é o de transação manual ou distribuída'. E se eu tirar o ApplyUpdates, ele não vai salvar nada no banco.. :blink: E agora, quem poderá me ajudar??? :ninja:

Eu já apanhei muito com esse erro, aí eu ví que em Params (propriedade do SQLDataSet), faltava dizer qual era o DataType dos meus parâmetros, q estava ftUnknown (desconhecido).. No caso está faltando dizer qual é o tipo do parâmetro :identificacao, se é inteiro (ftInteger), string (ftString), real (ftFloat), por aí.. Espero ter ajudado..

Huuuummm, então eu tenho que 'pegar na mão do SQLDataSet', dizer que para inserir algum registro, o commandtext tem que ser 'INSERT INTO CLIENTES (?,?,?,?) VALUES (?,?,?,?)', onde passo os parâmetros que eu quero, igualmente no UPDATE e DELETE? Poxa, queria que fosse como o MDO onde ponho a Query junto com o UpdateSQL, gero os SQL de INSERT,UPDATE,DELETE, ou no Zeos, onde simplesmente ponho um ZQuery e RequestLive=True?? :lol: :rolleyes: Agradeço pela atenção

Bom, vendo o link que você colocou e fazendo pesquisas, se eu for usar o commandtype=ctQuery, eu tenho que passar a instrução insert,update e delete por commandtext?? Ex: INSERT=insert into clientes ("nome","cpf") values ('teste','123.456.789-09'); <<- eu tenho que passar todos os parâmetros, isso?? Grata...

Olá.. Bom, estou começando a desenvolver um sistema usando o Delphi 2009 e o SQL Server 2005... estou usando: SQLDataSet DataSetProvider ClientDataSet DataSource Na propriedade DataSet do DataSetProvider, ponho o SQLDataSet.. Na propriedade ProviderName do ClientDataSet ponho o DataSetProvider.. e o DataSource eu ligo com o ClientDataSet.. No DataSetProvider, UpdateMode eu coloquei upWhereKeyOnly. No Fields Editor, o providerFlags da chave primária ponho Where,Update e Key como True, e nos demais fields ponho só Update True.. No SQLDataSet uso o commandtype=ctTable, aí Insert, Update, Delete funcionam bacana... Mas tipo, se eu colocar o commandtype=ctQuery e colocar uma sentença SQL, aí ele não consegue alterar, incluir.. Falta eu configurar alguma coisa quando eu colocar ctQuery no commandtype?? Grata

Podes colocar no evento do Form1 OnkeyDown: if ((key=*) and (edit1.focused)) then Form2.show; * = código em ASCII da tecla F8 O keyPreview tm q tah TRUE pra funcionar...

Olá, bom eu tentei fazer esse exemplo, onde eu coloquei assim no WinExec: WinExec(pchar('\\192.168.1.101\Office11\WINWORD.EXE ' + s2), 0); <- onde eu compartilhei a pasta do Office Como eu precisava de uma máquina 'virgem' de Office, eu criei uma máquina virtual (no Microsoft Virtual PC) com somente o sistema operacional.. e quanto eu tentei abrir um arquivo *.doc via rede nessa máquina virtual, aí deu uma mensagem: 'O sistema operacional não está configurado para executar este aplicativo'. Tá faltando instalar alguma coisa na máquina virtual, alguma DLL, sei lá? []'s

Olá, gostei desse exemplo, estou tentando fazer aqui... Ah, eu ví um site mostrando um 'Word Remote', que chamou a minha atenção.. É que quero abrir o Word dentro do OLEContainer, para que o usuário tenha acesso a determinadas funções, onde esse word está instalado somente no servidor.. Segue o link: http://www.inf.ufsc.br/~prass/artigos/artigo04.html []'s

Olá, mas para abrir o arquivo, o Word tem que estar instalado na máquina, certo?? Mas só que as máquinas não vão ter o Office instalado, somente no servidor, aí o sistema se conectaria ao servidor e usaria o office dele remotamente, já que localmente não tem Office.. []'s