Edson.pol

Bom dia. No Header do arquivo remessa do Bradesco, posições 27 a 46 está sendo preenchida com o código do cedente. O correto e preenchear com o "Codigo da empresa no banco". "027 a 046 – Códigos da Empresa Será informado pelo Bradesco, quando do cadastramento da Conta beneficiário na sua Agência. Esse código deve ser alinhado à direita com Zeros à esquerda." Se gerado como está no SVN, o banco recusa a remessa e dá mensagem "Indícios de Rejeição" Código que está funcionando: procedure TACBrBancoBradesco.GerarRegistroHeader400(NumeroRemessa : Integer; ARemessa:TStringList); var wLinha, ATipoInscricao: String; begin with ACBrBanco.ACBrBoleto.Cedente do begin case TipoInscricao of pFisica : ATipoInscricao := '1'; pJuridica: ATipoInscricao := '2'; else ATipoInscricao := ' '; end; wLinha:= '0' + // ID do Registro '1' + // ID do Arquivo( 1 - Remessa) 'REMESSA' + // Literal de Remessa '01' + // Código do Tipo de Serviço PadRight( 'COBRANCA', 15 ) + // Descrição do tipo de serviço //PadLeft( CodigoCedente, 20, '0') + // *** PadLeft( CodigoTransmissao, 20, '0') + // Codigo da Empresa no Banco PadRight( Nome, 30) + // Nome da Empresa IntToStr( Numero )+ PadRight('BRADESCO', 15) + // Código e Nome do Banco(237 - Bradesco) FormatDateTime('ddmmyy',Now) + Space(08)+'MX' + // Data de geração do arquivo + brancos IntToStrZero(NumeroRemessa,7) + Space(277) + // Nr. Sequencial de Remessa + brancos IntToStrZero(1,6); // Nr. Sequencial de Remessa + brancos + Contador ARemessa.Text:= ARemessa.Text + UpperCase(wLinha); end; end; Lembrando que os dois dados são necessários em locais distintos, como na impressão do boleto (CodigoCedente) e na remessa (CodigoTransmissao) * Lembrar de alimentar o componente com a informação correta: with ACBrBoleto1.Cedente.CodigoTransmissao:= 'Codigo fornecido pelo banco' []´s Edson.

Já tinha lido tudo, mas a dúvida persiste. Minha dúvida é no caso de o cliente não ser obrigado a ECF, somente a NFe. Vejam que neste link: http://www.nfce.fazenda.sp.gov.br/NFCePortal/Paginas/DuvidasFrequentes.aspx 7. Já existe legislação em vigor para regulamentar a NFC-e? Sim. A NFC-e foi instituída pelo Ajuste SINIEF nº 01/2013, que alterou o Ajuste SINIEF nº 07/2005 (Nota Fiscal Eletrônica – NF-e). II. Obrigatoriedade 8. Quando a minha empresa será obrigada à emissão de NFC-e? Existe cronograma de obrigatoriedade de utilização do CF-e/SAT disposto no artigo 27 da Portaria CAT 147/2012. Entretanto, conforme artigo 28 da mesma Portaria, o contribuinte pode, em substituição a esse documento, optar pela emissão da Nota Fiscal Eletrônica - NF-e, modelos 55, ou da Nota Fiscal de Consumidor Eletrônica – NFC-e (NF-e, modelo 65). - Já tive alguns casos, de clientes que emitiam nota fiscal eletrônica (55) para clientes PJ, e cupom fiscal (ECF) para pessoa física, e aposentaram o ECF, com a condição de emitir NFe (55) para todas as operações. Fiz uma consulta a SEFAZ-SP. Assim que responderem posto aqui. []´s Edson

Boa tarde. Tem alguém usando NFC-e ao invés de SAT-ECF no estado de SP ? Vi que existe esta opção, e tenho clientes que emitem NFe (modelo 55) para 99% das operações e que ainda usavam talão D1 - Nota Fiscal Consumidor. O posto fiscal não está mais autorizando emissão de talão D1 (que é usado esporadicamente), para vendas a vista. A emissão de uma NFC-e (modelo 65) resolveria o problema. Texto extraído do manual do SAT da Dimep: "O SAT, A NF-E E A NFC-E O que deverei (ou serei obrigado a) usar? SAT ou NFC-e? Em São Paulo o contribuinte poderá optar entre as duas soluções, uma não exclui a outra. Existe previsão na Portaria CAT 147 de 2012 que trata do SAT permitindo ao contribuinte optar por emitir NF-e (modelo 55) ou NFC-e (modelo 65) nas hipóteses em que a legislação prevê a emissão de Cupom Fiscal, ao invés de emitir CF-e-SAT. Assim, o contribuinte obrigado à emissão de CF-e-SAT poderá, alternativamente, emitir NF-e ou NFC-e. Base legal: Artigos 28 e 28-A da Portaria CAT 147 de 2012" []´s Edson.

Até que enfim uma boa notícia... Vou testar a Tanca ! Obrigado pela dicas. []´s Edson.

O principal receio é sobre assistência técnica. Não sei como será no caso do SAT, se somente as autorizadas poderão abrir o equipamento, como no caso das ECFs antigas. Sabe dizer algo sobre isto Daniel ?

Boa tarde. Vou começar agora a substituir alguns ECFs por SAT-ECF. Não sei qual marca indicar aos meus clientes. (Dimep, Tanca, Elgin, Gertec, Urano). Alguém sabe quais as diferenças entre as marcas ? Qual tem melhor suporte ao desenvolvedor ? []´s Edson.

Boa noite... O problema com o TamanhoMaximoNossoNum é no arquivo remessa. Sobre as variáveis,vou tentar explicar melhor: O TipoCobranca esta setado corretamente: ACBrBoleto.Banco.TipoCobranca := cobBancoDoBrasil; Se a conta estiver cadastrada com 5 dígitos, o comando RightStr não gera zeros a esquerda. ACBrBoleto.Cedente.Conta := '60123'; aConta := RightStr(ACBrBoleto.Cedente.Conta, 8); // retorna '60123' aConta := IntToStrZero(StrToIntDef(OnlyNumber(ACBrBoleto.Cedente.Conta),0),8); // retorna '00060123' aConta := PadLeft(ACBrBoleto.Cedente.Conta, 8, '0'); // retorna '00060123' O problema é com RightStr. Poderia ser usado o PadLeft, para ajustar o número da conta para 8 dígitos, e não "descolunar" o arquivo. []´s Edson.

Boa noite Juliana. O problema éra na formatação no nosso numero. Quando a variável fpTamanhoMaximoNossoNum está zerada, o nosso numero ficava em branco. Tive outro problema com o Header (cnab400), nas variáveis "aAgencia e aConta" também por deslocamento de colunas. procedure TACBrBancoBrasil.GerarRegistroHeader400(NumeroRemessa: Integer; aRemessa:TStringList); var TamConvenioMaior6 :Boolean; aAgencia, aConta :String; wLinha: String; begin with ACBrBanco.ACBrBoleto.Cedente do begin TamConvenioMaior6:= Length(trim(Convenio)) > 6; //Alterado em 01/02/2016 por Edson Polonio aAgencia:= IntToStrZero(StrToIntDef(OnlyNumber(Agencia),0),4); aConta := IntToStrZero(StrToIntDef(OnlyNumber(Conta),0),8); //aAgencia:= RightStr(Agencia, 4); -> Desta forma está causando deslocamento das colunas //aConta := RightStr(Conta, 8); Outro ponto que causou problemas foi na transação (cnab400), quando é informada uma data para protesto superior a 6 dias. Não estava gerando as instruçoes: if (DataProtesto > 0) and (DataProtesto > Vencimento) then begin DiasProtesto := ' '; case (DaysBetween(DataProtesto,Vencimento)) of 3: // Protestar no 3º dia util após vencimento begin if (trim(Instrucao1) = '') or (trim(Instrucao1) = '03') then AInstrucao := '03'+ PadLeft(trim(Instrucao2),2,'0'); end; 4: // Protestar no 4º dia util após vencimento begin if (trim(Instrucao1) = '') or (trim(Instrucao1) = '04') then AInstrucao := '04'+ PadLeft(trim(Instrucao2),2,'0'); end; 5: // Protestar no 5º dia util após vencimento begin if (trim(Instrucao1) = '') or (trim(Instrucao1) = '05') then AInstrucao := '05'+ PadLeft(trim(Instrucao2),2,'0'); end; else if (trim(Instrucao1) = '') or (trim(Instrucao1) = '06') then AInstrucao := '06'+ PadLeft(trim(Instrucao2),2,'0') else //Alterado em 01/02/2016 Edson Polonio //Se informado data de protesto com mais de 6 dias e Instrucao1 não for brancos ou 06 AInstrucao := PadLeft(trim(Instrucao1),2,'0') + PadLeft(trim(Instrucao2),2,'0'); DiasProtesto:=IntToStr(DaysBetween(DataProtesto,Vencimento)); end; end else begin Instrucao1 := '07'; //Não Protestar AInstrucao := PadLeft(Trim(Instrucao1),2,'0') + PadLeft(Trim(Instrucao2),2,'0'); DiasProtesto:= ' '; end; Em anexo a unit alterada. []´s Edson. ACBrBancoBrasil.pas

Boa tarde. Atualizei esses dias o ACBr e tive problemas com geração de remessa para o Banco do Brasil. Comparando com uma versão antiga, vi que a variável " fpTamanhoMaximoNossoNum " antigamente tinha valor = 5, e agora está com valor = 0 Alterei para 5 e tudo voltou ao normal. constructor TACBrBancoBrasil.create(AOwner: TACBrBanco); begin inherited create(AOwner); fpDigito := 9; fpNome := 'Banco do Brasil'; fpNumero := 001; fpTamanhoMaximoNossoNum := 0; // o correto é fpTamanhoMaximoNossoNum := 5; fpTamanhoConta := 12; fpTamanhoAgencia := 4; fpTamanhoCarteira:= 2; end; []´s Edson.

Boa noite. Eu estou trabalhando para implantar o provedor CONAM, que também não usa certificado digital. Pra funcionar, tive que alterar diversas units, entre elas a ACBrNFSeWebServices, para ignorar o erro da exigência de certificado, mesmo quando ele não é informado. Se quiserem dar uma olhada, segue o link: http://www.projetoacbr.com.br/forum/applications/core/interface/file/attachment.php?id=20913 []´s Edson.

Bom dia. Esqueci de anexar o CONAM.INI, acho que está quase pronto... []´s Edson. Cidades.INI CONAM.INI

Boa tarde André / Italo. Eu também estou implantando o CONAM no Trunk2. Fiz diversas alterações, uma delas em relação a não necessidade de certificado. Já dá pra enviar o RPS pelo ACBr, mas ainda estou entrando no site para imprimir as notas, pois não entendi direito o que fazer para consultar o lote pelo protocolo para poder imprimir as notas autorizadas. Estou anexando as units alteradas, pode ser que ajude. []´s Edson ACBrNFSe_Trunk2.rar

Repare na piada pronta: No link acima tem "incentivo a pobreza", e não "combate a pobreza". É essa percepção do momento atual do Brasil. Empresas fechando "a rodo" o que incentiva a pobreza a medida que postos de trabalho vão desaparecendo.

Bom dia. E exemplo do cálculo acima está perfeito. (ao menos para as empresas "Normais", ou seja "não optantes pelo Simples Nacional") Já vi exemplos em que a alíquota interestadual é a do Simples (1,25%) como neste link: https://ciranda.me/tsdn/blog-da-tecnospeed/post/assista-ao-video-sobre-como-calcular-a-partilha-do-icms-regulamentado-na-nt-2015-003 e outros questionando a constitucionalidade : "Novo ICMS do e-commerce não vale para as empresas do Simples Nacional" http://grupopertile.com.br/noticias/tecnicas/2015/12/14/novo-icms-do-e-commerce-nao-vale-para-as-empresas-do-simples-nacional.html Por enquanto, vou adotar as alíquotas "normais", porque se pagar "a maior" o governo não reclama. O problema será receber crédito se um dia alguém perceber que é inconstitucional pagar mais do que está na estabelecido na constituição. Já o FCP é outra coisa que não consigo engolir... Mais 2% de imposto jogado no lixo do caixa 2 da corrupção. []´s Edson.

A verdadeira torre de babel... Cada UF deu um nome ao FPC, e a cobrança é por NCM, e as alíquotas variam. Acho que a saída será fazer tabela de correlação entre NCM x UF x FCP Danda uma lida rápida na legistalação de cada estado dá pra ter uma idéia do problema: SP - FECOEP a) bebidas alcoólicas classificadas na posição 22.03; fumo e seus sucedâneos manufaturados, classificados no capítulo 24; RS - AMPARA/RS I - bebidas alcoólicas e cerveja sem álcool; II - cigarros, cigarrilhas, charutos, cachimbos, cigarreiras, fumos desfiados e encarreirados, fumos para cachimbos e fumos tipo crespo; III - perfumaria e cosméticos; e IV - prestação de serviço de televisão por assinatura. MS - FECOMP a) armas, suas partes, peças e acessórios e munições; artigos de pirotecnia classificados na subposição 3604.10 da Nomenclatura Brasileira de Mercadorias - Sistema Harmonizado (NBM/SH); c) bebidas alcoólicas; d) cigarros, fumo e seus demais derivados; e) jóias, classificadas nas posições 7113 e 7116 da Nomenclatura Brasileira de Mercadorias - Sistema Harmonizado (NBM/SH); f) peleterias, classificadas no capítulo 43 da Nomenclatura Brasileira de Mercadorias - Sistema Harmonizado (NBM/SH); g) perfumes conforme classificação na Nomenclatura Brasileira de Mercadorias - Sistema Harmonizado (NBM/SH); h) obras de arte; GO - PROTEGE GOIAS XII - de receitas oriundas do adicional de até 2% (dois por cento) na alíquota do ICMS sobre produtos e serviços supérfluos nos termos do art. 82, § 1º, do Ato das Disposições Constitucionais Transitórias - ADCT; Acrescentado pela Lei n° 15.945/2006 (DOE de 29.12.2006) vigência a partir de 16.01.2007 PB - FECEB a) bebidas alcoólicas, exceto aguardente de cana-de-açúcar ou de melaço; gasolina; c) charutos, cigarrilhas e cigarros, de fumo (tabaco) ou dos seus sucedâneos, classificados na posição 2402 da Nomenclatura Brasileira de Mercadorias - Sistema Harmonizado - NBM/SH; d) balões, dirigíveis, planadores, asas-delta, ultraleves e outros veículos aéreos, não concebidos para propulsão com motor, classificados na posição 8801 da NBM/SH; e) iates e outros barcos e embarcações de recreio ou de esporte, barcos a remo, canoas e jet-skis, classificados na posição 8903 da NBM/SH; f) revólveres e pistolas, classificados na posição 9302 da NBM/SH, armas de fogo e aparelhos semelhantes que utilizem a deflagração da pólvora, classificados na posição 9303 da NBM/SH, armas classificadas na posição 9304 da NBM/SH, partes e acessórios de revólveres e pistolas, classificados no código 9305.10.00 da NBM/SH, bombas, granadas, torpedos, minas, mísseis, cartuchos e outras munições e projéteis e suas partes, incluídos os zagalotes, chumbos de caça e buchas para cartuchos, classificados na posição 9306 da NBM/SH; CE - FECOP a) energia elétrica destinada aos consumidores da classe residencial com consumo mensal igual ou inferior a 50 KWh e da classe residencial baixa renda com consumo mensal de 51 a 140 KWh, nos termos do inciso XI do art.4° da Lei n° 12.670, de 27 de dezembro de 1996; Acrescentado pela Lei Complementar n° 148/2014 (DOE de 26.12.2014), efeitos a partir de 26.12.2014 óleo diesel destinado ao transporte coletivo urbano e metropolitano de passageiros, conforme Lei n° 14.091, de 14 de março de 2008; Acrescentado pela Lei Complementar n° 148/2014 (DOE de 26.12.2014), efeitos a partir de 26.12.2014 c) medicamentos destinados à prestação de serviços de saúde, nos termos dos Convênios ICMS n° 162/94 e 87/02 ou em cumprimento de mandado judicial. Acrescentado pela Lei Complementar n° 148/2014 (DOE de 26.12.2014), efeitos a partir de 26.12.2014

Lista Atualizada: Relação de Estados onde há cobrança do Fundo de Combate a Pobreza (FCP) Unidade da Federação Percentual do FCEP Base legal Acre - - Alagoas De 1% a 2% Lei n° 6.558/2004 Amapá - - Amazonas - - Bahia 2% Lei nº 7.988/2001 Ceará 2% Lei Complementar nº 37/2003 Distrito Federal 2% Lei nº 4.220/2008 Espírito Santo 2% Lei Complementar nº 336/2005 Goiás 2% e 5% Lei nº 14.469/2003 Maranhão 2% Lei nº 8.205/2004 Mato Grosso 2% Lei Complementar nº 144/2003 Mato Grosso do Sul 2% Lei nº 3.337/2006 Minas Gerais 2% Lei nº 19.978/2011 Pará - - Paraíba 2% Lei nº 7.611/2004 Paraná 2% Lei nº 18.573/2015 Pernambuco 2% Lei nº 12.523/2003 Piauí 2% Lei n° 5.622/2006 Rio de Janeiro De 1% a 5% Lei nº 4.056/2002 Rio Grande do Norte 2% Lei Complementar nº 261/2003 Rio Grande do Sul 2% Lei nº 14.742/2015 Rondônia 2% Lei Complementar n° 842/2015 Roraima - - Santa Catarina - - Sergipe 2% Lei nº 4.731/2002 São Paulo 2% Lei n° 16.006/2015 Tocantins 2% Lei nº 3.015/2015 []´s Edson.

Bom dia Amilton. Em anexo o pacote inteiro do Trunk1 Alterei as rotinas referentes ao provedor Conam, está gerando e enviando com sucesso. Falta corrigir o processamento do retorno, para imprimir automaticamente quando nf aprovada. Por enquanto, estou imprimindo a nota pelo site. []´s Edson ACBrNFSe_Trunk1.rar

Bom dia. Acabei de chegar da prefeitura. Não atendem telefone, nem e-mail. Disseram que tem milhares de cadastros pra liberar, um por um, e se não houver nenhuma pendência, o prestador recebe um e-mail avisando sobre a liberação do cadastro. Só aí é que será possível emitir notas, tanto pelo site quanto pelo webservice. []´s Edson

Boa noite Danny. Ainda não consegui gerar um RPS válido. Estou testando no demo do ACBrNFSe, na opção "Gerar e Enviar Lote RPS" Inclui as URLs de Jaú/SP na função GetConfigURL, 3525300: begin //Jaú / SP ConfigURL.HomRecepcaoLoteRPS := 'https://nfehomologacao.etransparencia.com.br/sp.jau/webservice/aws_nfe.aspx?wsdl'; ConfigURL.ProRecepcaoLoteRPS := 'https://nfe.etransparencia.com.br/sp.jau/webservice/aws_nfe.aspx?wsdl'; end; - Estava dando "erro no suporte a canais seguros", removi a configuração do certificado e passou. Agora o erro é: " Erro desconhecido ao enviar o lote! " Não sei se é por falta de liberação da prefeitura ao ambiente de homologação. Hoje tentei ligar na prefeitura umas 500 vezes, só dava ocupado. Liguei novamente as 17:01 e aí ninguém mais atendeu. Tá osso Danny, Atualizando: Marquei a opção para "salvar soap" e no arquivo gerado, vi que o erro está no código do usuário ou do contribuinte. Ou pode ser também pela falta de liberação. <code> <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> <SOAP-ENV:Body> <ws_nfe.PROCESSARPSResponse xmlns="NFe"> <Sdt_processarpsout> <Retorno>false</Retorno> <Protocolo/> <Messages> <Message> <Id>Erro 1</Id> <Type>0</Type> <Description> Usuario/Contribuinte Nao Identificado (Erro 1) [ Cod. Usuario Enviado:3f70ba2d-224e-4850-b414-9d2b2534015f46ug19aj5079-ed-000-la15pi4c, Cod. Contribuinte Enviado:g17ae1eg-9e57-4083-921c-2b402754b1a825ug10aj1197-ef-049-la16pi4c ] </Description> <LinErr>0</LinErr> </Message> </Messages> </Sdt_processarpsout> </ws_nfe.PROCESSARPSResponse> </SOAP-ENV:Body> </SOAP-ENV:Envelope> </code> Quando conseguir progresso, te aviso. Obrigado pela ajuda. []´s Edson

Danny, Como não veio a unit pnfsNFSeG.pas, para continuar com os testes, criei as functions Gera_DadosMsgEnviarLoteCONAM, e demais, vazias, somente com Result:='', para ver se falta alguma coisa, e agora dá falta da rotina: NFSeRetorno.LerXml_provedorCONAM; Pelo que vi, estão nas units: pnfsConsSitLoteRpsResposta pnfsConsLoteRpsResposta pnfsConsNfseporRpsResposta pnfsSubsNfseResposta pnfsConsNfseResposta Você já fez codificou esta rotina ? Se estiver faltando alguma coisa na sua lista "todo", me avisa que vou te ajudando. []´s Edson.

Boa tarde! Leo Gazziro: Troque EstaVazio por DFeUtil.Estavazio que resolve. Danny: Está faltando a unit pnfsNFSeG.pas Nela estão as funções como "TNFSeG.Gera_DadosMsgEnviarLoteCONAM". Estou tentando criá-las. Você já tem prontas ? []´s Edson.

Grande ajuda Danny. Vou resolver um problema com a liberação de ambiente de testes hoje. Acho que a noite eu consigo testar. Amanhã te dou uma posição. Muito obrigado. []´s Edson. PS: Passei o sábado, domingo e segunda sofrendo com o "consumo do webservice". Agora que vi sua unit, dá vontade de bater a cabeça na parede !

Bom dia Danny. Você teria como anexar as alterações que fez no Trunk1 ? Estou penando pra fazer as rotina de envio, que você já fez. Grato. Edson.

Bom dia danny. Que bom que conseguiu. Você pode passar o "caminho das pedras" ? Ou melhor ainda, disponibilizar as alterações. Posso te ajudar nos testes. []´s Edson.

Boa noite. Achei algumas informações neste site: http://desenvolvedores.migrate.com.br/2015/06/03/padrao-conam/ " O padrão Conam apresenta as seguintes diferenças em relação ao padrão ABRASF: 1. Habilitação para emissão É necessário solicitar junto a prefeitura o credenciamento para a emissão de NFSe. Para a emissão, deverá ser informado no campo ‘Usuário Autent.’ no cadastro de empresas, o valor referente ao Código do Usuário no sistema da prefeitura, que pode ser obtido através do Menu Sistema -> Editar Perfil, como está mostrado na imagem abaixo. Também é necessário informar no campo ‘Senha Autent.’ no cadastro de empresas, o Código do Contribuinte, que pode ser obtido através do menu ‘Cadastros Básicos’ -> ‘Contribuintes(Prestadores e Tomadores)’. Na grade de empresas, clique em ‘Consultar Contribuinte’. 2. Numeração do RPS A numeração do RPS deve ser subsequente por série. Obs: Se a ultima NFSe efetivada for cancelada, a mesma deverá ser reemitida com a mesma numeração. Caso não seja, deverá continuar seguindo a regra de numeração subsequente para a emissão de novas notas. 3. Série do RPS É permitido informar no máximo três caracteres por série. 4. Prestação do Serviço Deve ser informado o local da prestação do serviço, se o mesmo for diferente do endereço do tomador. 5. Substituição Não é possível efetuar uma substituição de Nfse. 6. Exemplo XML Anexo: exemplo de XML de envio. " PadraoCONAM.xml