Ir para conteúdo
  • Cadastre-se

felipehf

Membros
  • Total de ítens

    24
  • Registro em

  • Última visita

Posts postados por felipehf

  1. Olá,

    Novas funcionalidades adicionadas ao software!

    Abraço

    Atenciosamente,

    ---------------------------------------------

    Felipe H Feltes

     +55 (51) 9999-8380

     [email protected]

    ---------------------------------------------

    THC Informática Ltda - http://www.thcinformatica.net

    Porto Alegre - RS – Brasil

    ---------------------------------------------

    Ajude-nos a preservar o meio-ambiente. Só imprima se for realmente necessário.

  2. Olá a todos,

    A quem interessar possa:

    Minha empresa está encerrando o desenvolvimento de softwares e treinamento após 19 anos de serviço. Por este motivo, estamos repassando nossa tecnologia. Não queremos que todo esforço, investimento, tempo e tecnologia caiam no esquecimento.

    Nosso ERP é multi-plataforma (Linux/Windows) com compilação dos binários Linux e Windows no próprio Delphi7 Win32.

    Usamos PostgreSQL, Fortes Report e ACBr, com NFe2, ECF, etc.

    Hoje, existem mais de 80 empresas ativas utilizando este software.

    Não está descartada a venda do código fonte, fusão ou união empresarial, percentual sobre vendas, etc.

    Para demonstração do sistema, fazer o download do instalador pelo link:

    http://www.thcinformatica.net/component ... Itemid,18/

    ou pelo site http://www.thcinformatica.net , preencher os campos usuário e senha com os valores: cliente e cliente2007

    Menu Downloads | Instaladores | thc_clx_setup

    Instalar como administrador o programa pelo setup (Windows Vista e 7 com usuário limitado ou Controle de conta usuário ativo, NÃO instalar na pasta Arquivos de Programas. Exemplo: Instale em C:\THC).

    Você estará acessando nossa base de testes PostgreSQL no servidor da THC Informática, por isto, não é necessária instalação do banco de dados (seg/sex horário comercial).

    Para login no sistema:

    Usuário: admin

    senha: THC (maiúsculas)

    Mais informações sobre nossos produtos em http://www.thcinformatica.net

    Quem tiver interesse, veja o demo.

    Favor entrar em contato para propostas pelo email: [email protected]

    Abraço

    Atenciosamente,

    ---------------------------------------------

    Felipe H Feltes

     +55 (51) 9999-8380

     [email protected]

    ---------------------------------------------

    THC Informática Ltda - http://www.thcinformatica.net

    Porto Alegre - RS – Brasil

    ---------------------------------------------

    Ajude-nos a preservar o meio-ambiente. Só imprima se for realmente necessário.

  3. Acho que podemos fixar um tópico com a resposta adequada a todas as situações "Total do xxx difere da Somatória dos xxx"

    pois isto já foi respondido mais de 100 vezes neste fórum.

    A resposta é:

    "Na totalização da NFe (Total.ICMSTot.vBC, Total.ICMSTot.vICMS, Total.ICMSTot.vIPI, Total.ICMSTot.vProd, etc) OBRIGATORIAMENTE devem conter o SOMATÓRIO dos respectivos valores informados nos ITENS (Produtos ou serviços) da NFe"

    Então, o Somatório dos ítens (Total.ICMSTot.vProd) deve ser o resultado do somatório de todos Prod.vProd

  4. Se vcs derem um .add pra cada item, criará 6 objetos volume.

    O código a ser usado basta ser copiado do demo, como abaixo:

    // Exemplo

    with Transp.Vol.Add do

    begin

    qVol := 1;

    esp := 'Especie';

    marca := 'Marca';

    nVol := 'Numero';

    pesoL := 100;

    pesoB := 110;

    //Lacres do volume. Pode ser adicionado vários

    //Lacres.Add.nLacre := '';

    end;

  5. Este problema não é só na Capicom e pode ser em qualquer das 5 dll's necessárias para NFe.

    Destas 5 apenas 3 são necessárias fazer o registro pelo regsrv32 (como ADMINISTRADOR), porém, não esqueça de colocar as outras 2 (libeay32.dll e ssleay32.dll) na pasta Windows\system32

    abraço

  6. Cara: trocar o fire pelo access não é uma boa idéia. Eu tinha um sys com base Access e fui obrigado a trocar pois ele não aguenta concorrencia e quando o banco access atinge 1GB exige reparação todo dia.

    Abraço

  7. Pessoal:

    O erro total da BC, BCST, ICMS, ICMSST difere do somatorio dos itens é porque la´nos totais tem que fechar o somatorio dos itens:

    Total.ICMSTot.vBC := cBC; //tem que ser igual ao somatorio dos Itens.ICMS.vBC

    Total.ICMSTot.vICMS := cICMS; ////tem que ser igual ao somatorio dos Itens.ICMS.vICMS

    Total.ICMSTot.vBCST := cBCST; //tem que ser igual ao somatorio dos Itens.ICMS.vBCST

    Total.ICMSTot.vST := cICMSST; //tem que ser igual ao somatorio dos Itens.ICMS.vICMSST

    Crie variaveis para fazer este somatorio, pois se der R$ 0,01 de diferença não vai validar.

  8. bErro é uma variavel boolean do procedimento para armazenar se houve erro ou não;

    Consulta_pela_chave faz a consulta pela chave da NFe:

    sChave:=Copy(Self.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID,

    (Length(Self.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44);

    with Self.ACBrNFe1 do

    begin

    NotasFiscais.Clear;

    WebServices.Consulta.NFeChave:=sChave;

    WebServices.Consulta.Executar;

    end;

    Update_tb014 são os updates que faço nos campos na minha base de dados, tipo:

    Update tabelavendas set arquivo_nfe='nomearquivo' , etc

  9. Olá,

    Na verdade o componente consulta o Status automaticamente antes de qualquer operação.

    O ideal seria retirar este comportamento e o aplicativo verificar quando for preciso para manter o tempo de 3 minutos entre consultas.

    Abraço

  10. Eu faço assim para garantir o retorno em qualquer caso:

    try

    result:=Self.ACBrNFe1.Enviar(0);

    except

    on Exc: Exception do

    begin

    Update_tb014(Self.FNumMov,0,true); {se deu qq erro, aqui eu faço update com o nome do XML: 'nfe_arquivo='+QuotedStr(Copy(Self.ACBrNFe1.NotasFiscais.Items[iNFLote].NFe.infNFe.ID,

    (Length(Self.ACBrNFe1.NotasFiscais.Items[iNFLote].NFe.infNFe.ID)-44)+1, 44)+'-NFe.xml')}

    G_Mensagem(exc.message);

    end;

    end;

    if not Self.ACBrNFe1.NotasFiscais.Items[0].Confirmada then

    begin

    Self.Consulta_pela_chave(Copy(Self.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID,

    (Length(Self.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44), true);

    end;

    if not bErro then Self.Update_tb014(Self.FNumMov);//{se não deu nenhum erro, aqui eu faço update com o nome do XML, protocolo e demais}

×
×
  • 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...