Ir para conteúdo
  • Cadastre-se

carlessoflu

Membros
  • Total de ítens

    223
  • Registro em

  • Última visita

Community Answers

  1. carlessoflu's post in Dúvida Set_Context e Get_Context was marked as the answer   
    Consegui resolver, vou deixar aqui caso alguém tenha a mesma dúvida.
    Usei um SqlQuery para fazer o set_context ao invés do IBQuery e deu certo.
    Acredito que é porque o SqlQuery fica ligado direto no SqlConnection, e como uso ClientDataSet para fazer o insert, que tbm é ligado direto no SqlConnetion, eles ficam na mesma SESSION de conexão.
    Já o IBQuery fica ligado direto no IBDatabase, nesse caso dá certo usando o IBSQL, que tbm fica ligado no IBDatabase.
  2. carlessoflu's post in ACBrNFSeX - Outras informações não está indo, e separar arquivos por pastas was marked as the answer   
    Consegui achar aqui, é o campo InformacoesComplementares ✅
    Só a questão de separar por pastas que não deu certo, mas tudo bem, vou deixar assim mesmo.
  3. carlessoflu's post in Dúvidas NFSe Linhares/ES was marked as the answer   
    🤦‍♂️ Descobri o motivo.
    Simplesmente o campo ACBrNFSeX1.Configuracoes.Geral.Emitente.CNPJ não estava sendo preenchido. 
    Eu copiei todos os campos do demo, mas por algum motivo justamente esse pelo jeito eu esqueci. É sempre assim, quando trava em alguma coisa é sempre por uma bobeira rsrs.
    Obrigado a todos que responderam.
  4. 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.
  5. 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.
  6. 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.
  7. 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á?
     
     
  8. 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
  9. 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.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...