Gr@c@

Para quem usa Capicom qual valor deve ser setado para essa propriedade? ACBrNFe1.Configuracoes.Geral.ValidarDigest := True ou False?

Meus clientes já estão enviando NF-e versão 3.10 em produção (MG e MA). A versão 2.0 será aceita pelo SEFAZ até 01/03/2015. Para adaptar seu aplicativo, é só seguir o manual de orientação com as tags novas e regras novas. São poucas alterações, porém as regras e rejeições estão mais rigorosas.

Fiz o update do ACBr hoje e tentei instalar (via ACBrInstall.exe) e está dando erro ao instalar o ACBR_SPED.dpk. Em anexo arquivo de log. C:\Program Files\Borland\Delphi7\Lib\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal\ACBrEFDBlocos.pas(168) Error: ',' or ')' expected but identifier 'vlVersao108' found C:\Program Files\Borland\Delphi7\Lib\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal\ACBrEFDBlocos.pas(169) Error: ',' or ')' expected but identifier 'vlVersao109' found C:\Program Files\Borland\Delphi7\Lib\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal\ACBrEFDBloco_0.pas(50) Fatal: Could not compile used unit '..\..\..\Fontes\ACBrSPED\ACBrSPEDFiscal\ACBrEFDBlocos.pas' Compilation failure log_Delphi_7.txt

Reabri este tópico porque este erro ainda está ocorrendo em MG. Porém, após novas tentativas de envio do CT-e acaba dando certo. Os schemas estão corretos, não houve alteração. Alguém passando por isso? Será falha nos serviços do SEFAZ/MG?

Esse certificado digital da Valid sempre foi uma dor de cabeça. E também da Caixa e dos Correios. Não recomendo.

comecei a ter esse problema hoje aqui em MG ambiente de produção. Só confirmando porque peguei o assunto atrasada, tenho que fazer somente isso? Desativar essa linha no ACBr.inc e recompilar minha aplicação? {$DEFINE SoapHTTP}

Tive esse problema ontem em um cliente cujo ambiente era: -UF = MG -Windows 7 32 bits (não original e desatualizado) -Internet explorer 10 -certificado digital cartão/leitora -versão do aplicativo emissor de NF-e = 3.10. -Disponibilidade dos serviços do SEFAZ/MG = todos disponiveis O único procedimento que fiz foi: Encerrar o aplicativo emissor de NFe, retirar o cartão da leitora e limpar. Coincidência ou não, funcionou logo de imediato.

O que o Elton disse está correto. Não faz mesmo sentido atualizar estoque da matéria-prima do produto ao atualizar estoque do produto. Tanto matéria-prima como produto final deveriam ter seus estoques atualizados no ato de produção (ficha técnica). Cuidado com triggers. Elas ajudam em alguns casos, mas limitam em outros.

Amigo tenta aí. Lembrando que os meus comandos são para SqlServer. No Firebird eu desconheço os comandos. CREATE TRIGGER ESTOQUE_ATU_MATP FOR ESTOQUE_PROD ACTIVE AFTER UPDATE POSITION 0 AS DECLARE @IDTRIGGER INT Begin SELECT @IDTRIGGER = ISNULL(IDTRIGGER,0) FROM INSERTED INS ---> não sei como vc captura o valor de um campo na trigger no caso do firebird porque eu trabalho com SqlServer, mas vc tem que pegar o conteúdo do campo IDTRIGGER da tabela que está sofrendo alteração e jogar na variável @IDTRIGGER IF @IDTRIGGER = 9 RETURN ----> para por aqui ELSE BEGIN ---> AQUI DÁ UPDATE NA TABELA NOS CAMPOS QUE VOCÊ PRECISA E SETANDO O CAMPO IDTRIGGER = 9 END end + ou - assim.

Pessoal, caso alguém tenha uma idéia melhor, fique a vontade para postar aqui. Assim, quem sabe eu também aproveite a idéia e refaça meus projetos.

Esse nome Flag é só um exemplo. Trata-se de um campo identificador, que fica nas tabelas. No meu caso eu uso um campo chamado IDTRIGGER . Então a trigger só é ativada se o campo IDTRIGGER for <> 9. Vou te dar um exemplo simplificado: Tenho uma tabela TB_Cliente que contem um campo chamado IDTRIGGER do tipo int. Na tabela TB_Cliente executo uma trigger de update se (e somente se) o campo IDTRIGGER capturado for <> 9. Se for = 9 não continuo executando o restante da trigger. Caso contrário, executo o restante da trigger onde dou update na TB_Cliente nos campos que precisam ser atualizados e também no campo IDTRIGGER setanto ele para 9. Isso interrompe um possível loop. Apesar que creio eu que você não deveria colocar esse tipo de atualização em trigger. Por que não deixa isso por conta do próprio aplicativo? Ou, mais corretamente, em uma procedure de atualização que poderá ser usada por mais de um formulário? ALTER TRIGGER [dbo].[TU_CLIENTE] ON [dbo].[TB_Cliente] FOR UPDATE AS DECLARE @EMPRESA INT, @SETOR INT, @ROTA INT, @SETOR_ANTERIOR INT, @ROTA_ANTERIOR INT, @DEL_IDTRIGGER INT, @INS_IDTRIGGER INT BEGIN -- VERIFICA SE VAI EXECUTAR A TRIGGER ATRAVÉS DO CAMPO IDTRIGGER DA TABELA (IDTRIGGER <> 9) -- SELECT @DEL_IDTRIGGER = ISNULL(DEL.IDTRIGGER,0) FROM DELETED DEL IF @DEL_IDTRIGGER = 9 RETURN --> sai da trigger SELECT @INS_IDTRIGGER = ISNULL(INS.IDTRIGGER,0) FROM INSERTED INS IF @INS_TIDTRIGGER = 9 RETURN --> sai da trigger --************************************************************************************-- IF ( UPDATE(Setor) ) or ( UPDATE(Rota) ) begin Declare CursorCLIU CURSOR FOR Select Empresa, Setor, Rota from DELETED Open CursorCLIU While (1=1) begin Fetch Next From CursorCLIU into @Empresa, @Setor, @Rota if (@@Fetch_Status <> 0) Break Update TB_Rota Set QtdeCliente = (Select count(codigo) from tb_cliente where Empresa = @Empresa and Setor = @Setor and Rota = @Rota), IDTRIGGER = 9 where Empresa = @Empresa and Setor = @Setor and Codigo = @Rota end; Close CursorCLIU Deallocate CursorCLIU Declare CursorCLIU2 CURSOR FOR Select Empresa, Setor, Rota from INSERTED Open CursorCLIU2 While (1=1) begin Fetch Next From CursorCLIU2 into @Empresa, @Setor, @Rota if (@@Fetch_Status <> 0) Break Update TB_Rota Set QtdeCliente = (Select count(codigo) from tb_cliente where Empresa = @Empresa and Setor = @Setor and Rota = @Rota), IDTRIGGER = 9 where Empresa = @Empresa and Setor = @Setor and Codigo = @Rota end; Close CursorCLIU2 Deallocate CursorCLIU2 end; END;

Tentou usar um campo flag? Por exemplo, quando a atualização for feita pela primeira vez, grave o flag para 2. Assim você executará a trigger somente se esse flag for < 2. If Flag < 2 begin executa trigger update tabela estoque set flag = 2 update tabela matéria prima set flag = 2 end;

Quando ocorreu isso comigo, eu enviei uma solicitação diretamente ao Fale Conosco do site de MG. Foi resolvido em poucos minutos.

Desculpe Italo, encontrei o link explicativo no portal do SEFAZ-AM Para utilizar o Ambiente de Testes não é preciso realizar qualquer credenciamento junto à Sefaz/AM, bastando configurar as URL dos web services abaixo em suas aplicações: •AUTORIZAÇÃO (3.10): https://homnfce.sefaz.am.gov.br/nfce-services-nac/services/NfeAutorizacao •RETORNO AUTORIZAÇÃO (3.10): https://homnfce.sefaz.am.gov.br/nfce-services-nac/services/NfeRetAutorizacao •CONSULTA: https://homnfce.sefaz.am.gov.br/nfce-services-nac/services/NfeConsulta2 •RECEPCAO: https://homnfce.sefaz.am.gov.br/nfce-services-nac/services/NfeRecepcao2 •EVENTO: https://homnfce.sefaz.am.gov.br/nfce-services-nac/services/RecepcaoEvento •STATUS DE SERVICO: https://homnfce.sefaz.am.gov.br/nfce-services-nac/services/NfeStatusServico2 •RETORNO DA RECEPCAO: https://homnfce.sefaz.am.gov.br/nfce-services-nac/services/NfeRetRecepcao2 •INUTILIZACAO: https://homnfce.sefaz.am.gov.br/nfce-services-nac/services/NfeInutilizacao2 •QR-CODE: homnfce.sefaz.am.gov.br/nfceweb/consultarNFCe.jsp? Código de Segurança do Contribuinte – CSC Usuários do ambiente de desenvolvedores deverão utilizar o valor fixo “0123456789” para o CSC e o identificador “000001”. Consulta ao Ambiente de Homologação da SEFAZ-AM Este serviço permite ao desenvolvedor visualizar as NFC-e de testes (sem validade jurídica) emitidas no Ambiente de Homologação.

Boa tarde Italo Qual é o procedimento para se obter o Token? No meu caso, meu certificado digital para realizar é de MG. P/ realizar testes terei que ter um certificado do Maranhão (por exemplo) e me cadastrar no SEFAZ do Maranhão para obter o token? Ou posso usar o meu próprio certificado e o token será fornecido pelo SEFAZ-AM? Não encontrei nada no portal do AM e o retorno do Fale Conosco deles é muito demorado.

Bom dia. A minha dúvida é a mesma do Robson Maciel acima, mas parece que ele não obteve resposta. Meu certificado digital é de MG. Mas, tenho clientes em outros estados que já necessitam de NFC-e, pelo menos, em fase de testes. Já é possível realizar testes de NFC-e em MG? Caso negativo, o SEFAZ de outro estado (AM por exemplo) disponibiliza um ambiente onde se possa realizar testes para qualquer estado emitente? Como proceder?

a minha é a 5.0 que acompanha o Delphi 7

O que o Udenilson citou é o que ocorre comigo também: "Qdo visualiza não aparece na visualização, como tb não sai na impressão fisica, mas se vc gerar diretamente no componente PDF ele vem com a logo." MInha configuração: Windows 7 (original e com as últimas atualizações), Delphi 7 e Rave 5.0

A tag XNOME está com conteúdo = '1', mas o layout exige que tenha no mínimo 2 caracteres ex: 'AA'. Você tem que tratar várias tags assim, como nome, endereço, bairro, placa....Verifique o layout no manual

Nota Técnica 2015/001 Divulga alterações no layout do MDFe, regras de validação, alterações nos DAMDFE e novo Web Service Consulta Não Encerrados previsão para 01/01/2015 em homologação e 01/02/2015 em produção

Desculpe João Henrique, acho q vc me interpretou mal. O problema é que a logomarca é da empresa e não tenho permissão para postar aqui, por isso te enviei as logomarcas em private. Só pedi que excluísse o anexo, mas acho que não me expressei como deveria. Desculpe o mal entendido.

João Henrique, vou testar, mas por favor, delete o bmp que vc anexou.

Outro erro: procedure TACBrNFeDANFERaveCB.ImprimirDANFE(NFE : TNFe = nil); var LogoMarcaEmpresa:TJPEGImage; ExisteLogoMarca: Boolean; begin LogoMarcaEmpresa:=TJPEGImage.Create; try ExisteLogoMarca := CarregaLogoMarca(LogoMarcaEmpresa); ImprimirDANFeRave(TACBrNFe(ACBrNFe), Site, Email, Fax, Sistema, Usuario, ProtocoloNFe, SeSenaoJPEG(ExisteLogoMarca,LogoMarcaEmpresa,nil), DFeUtil.SeSenao((TipoDANFE=tiRetrato),poPortrait,poLandScape), DFeUtil.SeSenao(MostrarPreview,tsPreview,tsPrint), MostrarStatus, MostrarSetup, NumCopias, Impressora, '', MargemInferior*10, MargemSuperior*10, MargemEsquerda*10, MargemDireita*10, CasasDecimais._qCom, CasasDecimais._vUnCom, CasasDecimais._Mask_qCom, CasasDecimais._Mask_vUnCom, TamanhoCampoCodigo, TamanhoCampoVlUnit, TamanhoFonte_DemaisCampos, TamanhoFonte_ANTT, ProdutosPorPagina, EspessuraBorda, ExibirResumoCanhoto, ExibirResumoCanhoto_Texto, ImprimirDescPorc, ImprimirDesconto, // #consult atech ImprimirTotalLiquido, ImprimirDetalhamentoEspecifico, ImprimirTributosItem, FormularioContinuo, ExpandirLogoMarca, =================================> aqui NFeCancelada, TributosFonte, TributosPercentual, MarcaDaguaMSG, LocalImpCanhoto, ExpandirDadosAdicionaisAuto, NFe); finally LogoMarcaEmpresa.Free; end; end; erro2.txt

Jõao Henrique, deu erro na compilação: function TACBrNFeDANFERaveCB.BMPtoJPGString(aBMPFile: string): string; var aBmp: TBitmap; aJpg: TJpegImage; aStr: TStringStream; begin Result:=''; aBmp := TBitmap.Create; try aBmp.LoadFromFile(aBMPFile) ; aJpg := TJpegImage.Create; aStr := TStringStream.Create; =================================> nesta linha try aJpg.Assign(aBmp) ; aJpg.SaveToStream(aStr); Result := aStr.DataString; finally aStr.Free; aJpg.Free end; finally aBmp.Free end; end; Mensagens de erro na compilação: erro.txt erro.txt

Bom dia atualmente uso 2 componentes da antiga RXLib, como CurrencyEdit e DateEdit. Quero atualizar meu sistema e passar a usar os componentes do projeto Jedi. Alguém de vocês sabe se é possível converter esses 2 componentes para os componentes do Jedi usando um conversor já pronto sem necessidade de trocar os componentes nos forms? E como proceder para fazer a instalação do Jedi e a conversão dos componentes?