Painel de líderes

Boa tarde, pessoal! Tivemos que fazer uma alteração no ACBr para possibilitar que seja enviado o Valor do INSS como 0 nas tags de Tributos Federais (infTribFed). Como sabemos pela validação N28, esta informação é obrigatória quando o Tomador for Pessoa Jurídica e o serviço for Transporte de Pessoas ou Excesso de Bagagem, mas de fato não há nenhuma restrição que impeça que o Valor seja 0. Recebemos a confirmação por e-mail do fiscal Sergio Luiz Cintra, da SEFA do Paraná, e nos nossos testes recebemos a Autorização de Uso preenchendo assim. A alteração é no arquivo pcteCTeW.pas, e estamos enviando em anexo o arquivo. Obs: incluímos também uma alteração bem pertinente, apontada pelo @Maurício Sareto em outro tópico, sobre o Renavam não ser obrigatório, mas que foi enviada em um fonte desatualizado no tópico original. Favor dar os créditos a ele. pcteCTeW.pas

Procurei e fiz alguns testes no Fortes mas não encontrei a propriedade para controlar isso. Qualquer novidade eu passo pro fórum. Vlw Juliomar.

Segue em anexo unit modificada para não adicionar a tag Renavam quando não for informado nem um valor, tendo em vista que a tag no modelo 67 não é obrigatória.... pcteCTeW.pas

sim, isto o 128-C, porem não sabia como utiliza-lo... mas depois de tanto sofrimento consegui hehe... desculpe incomoda-los!!! Desde já agradeço a todos que responderam. Abração!

Sim está sendo feito antes o eSocial e logo sobe esse daqui pois o mesmo necessita de alterações para compatibilizar com Lazarus e Delphi 7

Bom dia Luiz, Os XMLs alem da versão ser diferente a SEFAZ-Autorizadora também é, dessa forma não da para fazer comparações. Outra coisa importante, em nenhum Manual ou Nota Técnica ou na Legislação consta que ao cancelar um CT-e o protocolo de autorização deve ser substituído pelo de cancelamento. Infelizmente a SEFAZ-MT no Web Services da versão 2.00 do CT-e (espero que consertem na versão 3.00) ao realizar uma consulta se o CT-e estiver cancelado é retornado o protocolo de cancelamento, sendo que o correto seria retornar o protocolo de autorização e o evento de cancelamento vinculado ao CT-e em questão. O componente por sua vez acaba pegando o protocolo de cancelamento uma vez que o de autorização não é retornado. Na unit ACBrCTeWebServices temos o seguinte fragmento de código que comprova o que foi dito acima. Atualiza := (NaoEstaVazio(CTeRetorno.XMLprotCTe)); if Atualiza and TACBrCTe(FPDFeOwner).cStatCancelado(CTeRetorno.CStat) then Atualiza := False; if (CTeRetorno.cUF = 51) and (CTeRetorno.CStat = 101) then Atualiza := True; Inicialmente a variável Atualizar recebe o valor True caso temos um retorno que contenha o grupo <protCTe>. Depois essa variável poderá se tornar False caso o status do CT-e seja cancelado. Em seguida poderá receber o valor True caso a UF seja 51 (MT) e o status seja 101 (cancelado). A variável Atualiza sendo True faz com que o XML caso esteja com o protocolo de autorizado, faz com que seja atualizado, ou seja, o protocolo de autorização seja substituído pelo de cancelamento. Como dito anteriormente isso esta errado, mas infelizmente a SEFAZ-MT ao consultar um CT-e cancelado não retorna o protocolo de autorizado mais o evento de cancelamento. Se removermos o IF em negrito (acima) um XML que esteja somente assinado, ao realizar essa consulta, corre o risco de ficar sem o protocolo, principalmente se este foi cancelado. Não sei se ficou claro. Mas procure fazer testes na SEFAZ-MT e na de MG com a versão 3.00 para ver o comportamento de de ambas. Faça o seguinte teste. Emita um CT-e na versão 3.00 na SEFAZ-MT, o XML é para ficar com o protocolo de autorizado. Depois remova o protocolo de autorização, carregue o XML e realize uma consulta, é para repor o protocolo de autorizado. O próximo passo é realizar o cancelamento desse CT-e. Remova novamente o protocolo de autorizado, carregue o XML e realize a consulta, verifique se o XML recebeu o protocolo de autorizado (correto) ou o de cancelamento. Depois fação o teste acima com a SEFAZ-MG e compare o resultado de ambas.

O Zeos é free ... https://sourceforge.net/projects/zeoslib/

tem este aqui https://github.com/ccy/dbx4fb

Não existe CST em ECF. Provavelmente é alguma configuração do software contábil dela. No ECF se informa o totalizador: http://www3.bematech.com.br/suporte/tutorial/index.html?tabela.htm

Boa tarde, estou tendo o mesmo problema para emitir NFSe para a cidade de João Pessoa/Paraiba, ja segui as dicas, estou utilizando já a versão com WinCrypt sem precisar da capcon. Testei as diversas configurações da SSLType e nada, testei na minha máquina e na maquina do cliente mesmo erro. Funciona na versão antiga tendo que registrar a Capcon, alguem tem alguma dica. Agradeço. Segue configurações: ACBrNFSe1.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrNFSe1.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; ACBrNFSe1.Configuracoes.Geral.SSLHttpLib := httpWinHttp; ACBrNFSe1.Configuracoes.Geral.SSLXmlSignLib := xsMsXml; ACBrNFSe1.SSL.SSLType := LT_all;

Não sei se isso o ajudará porque quase não uso WebBrowser e meu Delphi é 2009, mas algum tempo atrás tive problemas de compatibilidade. Meu programa rodava bem no Windows 7 mas quando migrei para o 10 os sites ficavam desfigurados. Após pesquisar descobri que o problema estava relacionado a emulação do Internet Explorer, o WebBrowser do meu programa trabalha de forma a emular o Internet Explorer 7. Para resolver é preciso fazer um ajuste no registro do Windows, com base nas informações do site da Microsoft criei uma função para automatizar isso: https://msdn.microsoft.com/en-us/library/ee330730(v=vs.85).aspx: // versões IE: 7, 8, 9 10 e 11 Procedure SetIEEmulation(VersaoIE : Integer); Var R : TRegistry; V : Integer; Begin V := 11001; Case VersaoIE Of 7 : V := 7000; 8 : V := 8888; 9 : V := 9999; 10 : V := 10001; 11 : V := 11001; End; // internet explorer 11 = 11000 ou 11001 // internet explorer 10 = 10000 ou 10001 // internet explorer 9 = 9000 ou 9999 // internet explorer 8 = 8000 ou 8888 // internet explorer 7 = 7000 // https://msdn.microsoft.com/en-us/library/ee330730%28v=vs.85%29.aspx // resumidamente, esta função grava um valor no registro que força a emulação da versão do Internet Explorer para o programa indicado // só é preciso o nome do programa, não é necessário o path completo R := TRegistry.Create; Try R.RootKey := HKEY_CURRENT_USER; R.OpenKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\',False); // código para emular o internet explorer 11 R.WriteInteger(ExtractFileName(ParamStr(0)),V); Finally R.CloseKey; R.Free; End; End; Para emular o Internet Explorer 11 chame a função do seu programa apenas uma vez, desta forma: SetIEEmulation(11); Não testei se isso funcionará no seu caso (também não tenho o XE7), mas talvez ajude.