Jump to content

carlessoflu

Membros
  • Posts

    177
  • Joined

  • Last visited

Community Answers

  1. carlessoflu's post in Retornar Serial do HD was marked as the answer   
    Olá, uso uma função para retornar o serial do HD dos clientes, para controlar quem pode acessar o sistema. Funciona bem, porém em alguns poucos computadores essa função retorna sempre valores diferentes, sendo que deveria retornar sempre o mesmo valor. Alguém sabe porque o serial fica mudando?
    A função é essa:
    Function SerialNum(FDrive:String) :String; Var WSerial : DWord; DirLen, Flags : DWord; DLabel : Array[0..11] of Char; begin Try GetVolumeInformation(PChar(FDrive+':\'),dLabel,12,@WSerial,DirLen,Flags,nil,0); Result := IntToHex(WSerial,8); Except Result :=''; end; end; Em 99% dos computadores funciona normal, traz sempre o mesmo serial para cada computador, mas em alguns sempre que uso a função o serial vem diferente.
    Já peguei alguns casos que mudava porque a bateria da placa mãe estava fraca, ai trocava a bateria e voltava ao normal, mas tem um caso agora que todos os computadores de um cliente novo estão assim, são 7 computadores. Não sei se é algum programa que está fazendo alterar, verifiquei e não encontrei nenhum programa diferente rodando nas máquinas.
  2. carlessoflu's post in Erro na NFC-E ao imprimir em papel A4 (Novo tópico) was marked as the answer   
    Ajustei as margens do componente e deu certo. Estavam todas as margens com 10, coloquei 0,7 e deu certo.
  3. carlessoflu's post in ACBrEtiq - Imagem saindo errado depois da atualização was marked as the answer   
    Provavelmente foi algum erro na conversão feita pelo site. Quando fiz a conversão pelo fotoshop deu certo.
  4. carlessoflu's post in Arquivo .ini was marked as the answer   
    Fiz isso mas deu o erro que o Valdir citou, como abaixo. Mas no meu caso foi erro mesmo, não compilou por causa disso. no cado do Valdir foi apenas um Warning. o que será?
     
     
  5. carlessoflu's post in Alterar Trigger Dentro De Outra Trigger was marked as the answer   
    É que um cliente quer que o sistema funcione dessa forma para ele, por isso estou fazendo essa modificação.
     
    Muito obrigado pela ajuda, consegui resolver pegando a base do que vcs me ajudaram.
     
    Vou postar o código da trigger na tabela de estoque de matéria prima, caso alguém tbm tenha essa dúvida.
    CREATE TRIGGER ESTOQUE_ATU_PROD FOR MATERIAPEST ACTIVE AFTER UPDATE POSITION 0 AS declare ASSOCIADO varchar(15); declare DESCRICAO varchar(120); declare ASSOC_LOJA integer; declare ASSOC_COR integer; declare ATU integer; begin --verificar se é para fazer ou não o código da trigger - se for 0 não faz se for 1 faz --essa verificação é feita para não entrar em looping, ex: atualiza estoque_prod ai a trigger atualiza o estoque_mat --e vice-versa e fica no looping Select atu from atu_estoque_pela_trigger into :ATU; if (coalesce(:atu,0) = 1) then begin --buscar dados da materia prima Select assoc_loja, assoc_cor, associado, descricao from cad_materia where referencia = new.referencia into :ASSOC_LOJA, :ASSOC_COR, :associado, :DESCRICAO; if ((:ASSOCIADO is not null) and (:ASSOCIADO <> '')) then begin --faz um update colocando o atu = 0 para não fazer o codigo da trigger na tabela de estoque (produtos) update atu_estoque_pela_trigger set atu = 0; --atualizar estoque do produto update estoque set q1 = new.quant, quant_total = new.quant where referencia = :ASSOCIADO and loja = :ASSOC_LOJA and cor = :ASSOC_COR; --faz um update colocando o atu = 1 para voltar ao normal update atu_estoque_pela_trigger set atu = 1; --inserir registro no kardex insert into kardex (data, referencia, descricao, operacao, QUANT, cor, loja, tam, registro) values (current_date, :ASSOCIADO, :DESCRICAO, 'Associação a matéria-prima', (new.quant-old.quant), :ASSOC_COR, :ASSOC_LOJA, 'U', GEN_ID(gen_kardex,1)); end end end
  6. carlessoflu's post in Processo Abre Mas Sistema Não Abre was marked as the answer   
    Vou tentar entrar em contato com o suporte do Avast.
    Mas já até desinstalei o Avast e continuou o problema.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.