Valdir Dill

Na verdade não a NT toda que começa a viger agora. E apenas o complemente dela (versão 1.90) que entra em vigor dia 07/11/2016. Acho que alguém aqui fez confusão, hehe!

Bem Paulo, eu estou fazendo +- assim: "if nota tem DIFAL then InfAdic.infCpl := InfAdic.infCpl + '; Valores totais de ICMS interestadual: DIFAL da UF destino R$....'" Não vejo motivo para parametrizar e deixar o usuário decidir se o texto vai ou não ser incluído, já que é regra nacional e não uma opção do emitente. De toda forma, concordo com ambos. Pensando melhor, acho que não seria mesmo uma boa o acbr fazer essa inclusão. Obrigado!

Bom dia, Nos próximos dias entrará em vigor a NT 2015.003. Entre as novas regras está a de que será necessário informar valores DIFAL nas informações complementares da nota e, por conseguinte, impressas no DANFE. Essa regra é algo fixo, ou seja, sempre que houver valor nos campos de ICMS de operações interestaduais, dever-se-á adicionar um texto (pg 25 da NT) nas informações complementares da NFe. Então, pergunto/sugiro: não seria interessante o próprio componente acbr já adicionar esse texto, quando for o caso! Obrigado!

Muito obrigado Ricardo! Compreendidíssimo!

Bom dia, Alguém tem algum comentário ou explicação sobre o porquê da situação abaixo: - NCM 39191010 - É validado pelo AcbrNCM, ou seja, consta na lista da receita, mas é invalidado na consulta da lista de AcbrIBPTTax, ou seja, não consta na tabela IBPT; - NCM 39191000 - ocorre o inverso, ou seja, é invalidado pelo AcbrNCM e validado AcbrIBPTTax; Obrigado!

Bom dia Italo, Em consulta à prefeitura de lá, recebemos a resposta: " Não temos um provedor , temos um serviço de Comunicação (Webservice) que esta no endereço: http://servicos.saolourencodosul.rs.gov.br:8082/nfse.portal.integracao/Services.svc para tanto deve solicitar acesso a NFSE junto a PM. Na página http://www.saolourencodosul.rs.gov.br/conteudo.php?ID_PAGINA=254 tem todo o material necessário para programação da comunicação." Faz sentido? Obrigado!

Boa noite, Cidade: 4318804 - São Lourenço do Sul - RS WebServices Produção: http://servicos.saolourencodosul.rs.gov.br:8082/nfse.portal.integracao/services.svc Homologação : http://servicos.saolourencodosul.rs.gov.br:8082/nfse.portal.integracao.teste/services.svc Obrigado!

Obrigado, consegui resolver... Olha a função que criei. Funciona tanto no Win como Android. Compartilho para ajudar outros, se precisarem. class procedure TFuncoes.BuscaCEPKIngHost(VCEP : String; Const VResult : TCEP); Const VChave = 'XXXXXX'; VUrl = 'http://webservice.kinghost.net/web_cep.php?auth='; Var VStream : TStringStream; VRetorno : String; VIdHttp : TIdHTTP; VURLFinal : String; begin VResult.FQtdeEnder := 0; VCEP := SomenteNumeros(VCEP); if length(VCEP) <> 8 then exit; //se não é um CEP válido nem analisa. VStream := TStringStream.Create('', TEncoding.ANSI{tem q ter esse ANSI para não dar erro no Android}); VIdHttp := TIdHTTP.Create(nil); try VURLFinal := VUrl + VChave + '&formato=xml&cep=' + VCEP; VIdHttp.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 9.0)'; VIdHttp.Get(VURLFinal, VStream); VRetorno := VStream.DataString; VResult.FQtdeEnder := StrToIntDef(LerTagXML(VRetorno, 'resultado'), 0); if VResult.FQtdeEnder > 0 then begin //obs LerTagXML é uma função do acbrUtil VResult.FTipoLogr := LerTagXML(VRetorno, 'tipo_logradouro'); VResult.FLogr := LerTagXML(VRetorno, 'logradouro'); VResult.FCompl := LerTagXML(VRetorno, 'complemento'); VResult.FBairro := LerTagXML(VRetorno, 'bairro'); VResult.FCidade := LerTagXML(VRetorno, 'cidade'); VResult.FUF := LerTagXML(VRetorno, 'uf'); end; finally VStream.DisposeOf; VIdHttp.DisposeOf; end; end; Obrigado!!

Bom dia e obrigado Daniel, no seu caso, vc não está considerando o "encoding" no header da mensagem HTTP 'text/xml; charset=iso-8859-1'; Pode me passar uma dica de como fazer isso? Tente Memo1.Text := ACBrStr(str); Não funcionou. O str volta como foi, sem alterações. Obrigado!

Bom dia, Sei que a dúvida que estou postando não tem relação direta com o ACBR, mas se alguém pudere analisar e me dar uma dica, agradecerioa muito. É o seguinte: estou tentando fazer uma busca de CEP com Firemonkey para Android. Fiz uma rotina utilizando a classe THTTPSend e me baseiei nas rotinas do próprio acbrCEP. Funcionou 100% em Windows. Porém, quando fui complicar em Android, notei que essa classe (hpttpSend.pas) não pode ser usada para Android. Então tentei com o componente TidHttp. Funciona tanto em Windows, como Android. Veja a rotina abaixo. Traz todos os dados do WS KingHost. O problema neste caso, é que ele traz errado os dados que têm caractere com acento. Veja o bairro no print que estou anexando. Rotina com TidHTTP. prcedure BuscaCEPKIngHost; Const urlKingHost = 'http://webservice.kinghost.net/web_cep.php?auth=' + VmyKey + '3c1a01713160cab43caea3d24f3baf4e&formato=xml&cep=82650520'; var str : String; begin idHTTP1.Request.Accept := 'text/html, */*'; idHTTP1.Request.ContentType := 'text/xml; charset=iso-8859-1'; idHTTP1.Request.ContentEncoding := 'iso-8859-1'; IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 9.0)'; IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; str := IdHTTP1.Get(urlKingHost); Memo1.Text := str; end; Pergunto: 1 - Realmente não tem como usar httpSend no Androi? 2 - No meu exemplo acima com idHttp estou fazendo algo errado na chamada? Qual a sugestão? Obrigado

Boa tarde, Estou realizando alguns testes com o componente posPrinter. Se coloco assim: VTexto := 'teste de impressão <corte_total>'; acbrPosPrinter1.Imprimir(VTexto); Aí, imprime beleza. Mas, se colocar assim: VTexto := '</zera> teste de impressão <corte_total>'; acbrPosPrinter1.Imprimir(VTexto); Aí ele pula uma linha no início, ou seja, parece que a a tag '</zera>' avança o papel. É isso mesmo que é para ocorrer? Obrigado!

Baixei os fontes hoje e ainda continua da mesma forma. Pelo que entendi, seria corrigido ou não? Obrigado!

Bom dia, Mais uma vez a cidade de Bacabal-MA (2101202) mudou seu endereço de recepção dos XMLs de NFSe. Em anexo o arquivo Fiorilli.ini atualizado. Mudou de: http://1a7601e12b31.sn.mynetname.net:5661/IssWeb-ejb/IssWebWS/IssWebWS?wsdl Para: http://187.28.44.121:5661/IssWeb-ejb/IssWebWS/IssWebWS?wsdl Obrigado! Fiorilli.INI

Boa tarde, Ok. Ficamos no aguardo então. Obrigado!

Boa noite Juliana, Banco.TipoCobranca := cobCaixaSicob; ListadeBoletos.Clear; //limpa boletos emitidos numa proc anterior. Cedente.TipoCarteira := tctSimples; Cedente.Conta := 162; Cedente.ContaDigito := 9; Cedente.Agencia := 2538; Cedente.CodigoCedente := 870 000 000 09 (os espaço são só para facilitar a leitura) Convenio := ''; LocalPagamento := Lotérica; Vencimento := 27/07/2016; DataDocumento := 01/04/2016; EspecieDoc := 'DM'; Aceite := atNao; DataProcessamento := Now; TotalParcelas := 1; Carteira := 'SR'; NossoNumero := 000 000 000 18792 ValorDocumento := 2104,00;

Boa tarde, Fiz o teste, mas aí fica pior. Não formata do campo Agencia/Código Beneficiário. O código do cedente (infromado no campo convenio) nem aparece na linha digitável.... Obrigado

Boa tarde Juliana, Deixo em branco. Só alimento o cedente.codigoCedente, pois esse convênio 870, até onde eu sei, não tem código de convênio, apenas codigoCedente. Estou fazendo algo errado? Obrigado!

Depois que atualizei os fontes, notei foram feitas alterações na formatação do nosso número da cobrança é do tipo SICOB da CEF. E isso está gerando problemas nos boletos. Na function TACBrCaixaEconomicaSICOB.FormataNossoNumero(const ACBrTitulo :TACBrTitulo): String, que inicia a partir da linha 357 da ACBrBancoCaixaSICOB.pas (abaixo) Nessa função está formatando as variáveis wTamNossoNum e wOperacao estão recebendo valor conforme o valor do código convênio. Até antes da atualização, era o código do cedente que era utilizado. function TACBrCaixaEconomicaSICOB.FormataNossoNumero(const ACBrTitulo :TACBrTitulo): String; var ANossoNumero: String; wTamNossoNum: Integer; wOperacao: Integer; begin with ACBrTitulo do begin ANossoNumero := OnlyNumber(NossoNumero); wTamNossoNum := CalcularTamMaximoNossoNumero(Carteira, ANossoNumero, ACBrBoleto.Cedente.Convenio ); Não deveria ser ACBrBoleto.Cedente.CodigoCedente wOperacao := StrToIntDef(Copy(ACBrBoleto.Cedente.Convenio, 1 , 3 ), 0); if (Carteira = 'SR') then begin if (wOperacao = 870) then ANossoNumero:= '8'+ PadLeft(Copy(ANossoNumero,Length(ANossoNumero)-13,14),14) else ANossoNumero:= '82'+ PadLeft(Copy(ANossoNumero,Length(ANossoNumero)-7,8),8); end else if (Carteira = 'CS') then ANossoNumero := PadLeft(Copy(ANossoNumero,Length(ANossoNumero)-9,10),10,'0') else ANossoNumero:= '9' + PadLeft(Copy(ANossoNumero,Length(ANossoNumero)-8,9),9,'0'); end; Result := ANossoNumero; end; Com as alterações, o formato do nosso npumero ficou assim (sem os espaços): 82 000 000 000-DV. Antes era 800 000 000 000 000 - DV Agora fiquei na dúvda se essas mudanças estão mesmo corretas. Obrigado!

Perfeito, agora passou tudo, hehe! Sem erros. Só ainda tá dando um erro "CNPJ não consta na base de dados". Mas acho que deve ser porque estou usando o nosso CNPJ que não é usuário de Sorriso-MT. Vou pedir pro usuário fazer um teste real. Me diga uma coisa, essa unit vai ainda subir pro repositório, certo? Obrigado!

Fiz isso, mas o mesmo problema persiste. No caso do segundo erro, o da quantidade no caso do segundo erro, o da quantidade, a linha 351 da pnfsNFSeW_Agili.pas tem a seguinte rotina: Gerador.wCampoNFSe(tcDe4, '#13', 'Quantidade ', 01, 17, 1, NFSe.Servico.ItemServico.Quantidade, '') ou seja, está gerando o campo com 4 decimais (tcDe4). Pelo que entendi do erro, esse campo é no máximo 2 decimais. Vejamos o schemas (XSDAgili.XSD) <xsd:simpleType name="tsQuantidade"> <xsd:restriction base="xsd:decimal"> <xsd:totalDigits value="10" /> <xsd:fractionDigits value="2" /> esta regra que tá gerando o conflito. <xsd:minInclusive value="0" /> </xsd:restriction> </xsd:simpleType> Obrigado!

Sim, eu percebi isso. Estou testando para Sorriso-MT. Não cheguei a consultar o provedor, mas, pelo que entendi analisando o arquivo cidades.ini, esta cidade utilizar o Provedor=Agiliv2. Então configurei tudo (inis e schemas) para essa versão. Está correta minha interpretação? Ou seja, Sorriso usa Agiliv2, certo? Ou isso depende de mais alguma coisa? Obrigado!

Boa tarde, Atualizei os fontes e fiz alguns testes. Primeiro deu erro no arquivo um (ErroUm.png anexo). Aí, para testar, alterei o valor de Servico.Valores.Aliquota := 0; e de Servico.Valores.ValorIss := 0; Depois disso ocorreu outro erro (ErroUm.png anexo) da quantidade que no xml está 1.0000. Parece que não aceita mais que dois decimais, mas é gerado com 4. Obrigado!

Certo Italo, foi exatamente isso que eu também entendi lendo a mensagem de forma literal, mas pensei que não poderia ser isso, rs... Então, se entendi direito, nesse caso, não tem como enviar uma única nota (RPS). Precisa enviar sempre, no mínimo duas notas? Isso não é muito estranho? Obrigado!

Valeu BingWings...era isso mesmo, ou seja, a chave digital tem que alimentar na Prestador.ChaveACesso. Só que agora que passou desse ponto, gerou outro erro, rs..não estou conseguindo achar onde alimentar...le pede uma QuantidadeRps. Estou anexando print... Alguma dica? Obrigado!

Eu tentei isso Italo, mas não é essa variável. Tentei também Configuracoes.Geral.Emitente.WebFraseSecr :=...mas dá erro -> " ssa atualização deveria resolver o erro '' violates length constraint of '32'.The element '{http://www.agili.com.br/nfse_v_1.00.xsd}chaveDigital' with value '' failed to parse." Obrigado!