Hetosoft Sistemas

Não Delci. Leia meu post até o final: Existem 2 cenários de Tangará. Antes de 05 de fevereiro, tinha que enviar com 12 pra autorizar. De repente parou de funcionar e passou a autorizar apenas com 9. Só que eles não atualizaram os schemas pra 9, daí eu mudei o schema manualmente e enviei com 9.

Sim, eu já tinha avisado aqui, que o servidor deles passou a validar 9 ao invés de 12, e o schema do site deles estava errado.

Esse já é o retorno. Eu não achei o envio aqui na minha máquina. Vou pedir pra alguém pegar lá no cliente

<DeclaracaoPrestacaoServico> <InfDeclaracaoPrestacaoServico> <CondicaoPagamento> <Condicao>0</Condicao> <QuantidadeParcela>1</QuantidadeParcela> <Observacao></Observacao> <Parcela> <Parcela>1</Parcela> <Valor>5.00000000</Valor> </Parcela> </CondicaoPagamento> <NaturezaOperacao>0</NaturezaOperacao> <Servico> <ItemListaServico>14.01</ItemListaServico> <Discriminacao>MAO DE OBRA AUXILIAR 01</Discriminacao> <Observacao>MAO DE OBRA AUXILIAR 01</Observacao> <CodigoMunicipio>5107958</CodigoMunicipio> <MunicipioIncidencia>5107958</MunicipioIncidencia> </Servico> <Prestador> <CpfCnpj> <Cnpj>4xxxxxxxxx6</Cnpj> </CpfCnpj> <Endereco> <Endereco>xxxx</Endereco> <Numero>xxxx</Numero> <Complemento>xxxxx1</Complemento> <Bairro>CENTRO</Bairro> <CodigoMunicipio>5107958</CodigoMunicipio> <Cep>xxxxxxxx</Cep> </Endereco> <Contato> <Telefone>65 xxxxxxxxx</Telefone> <Email></Email> </Contato> <DadosObra> <CnoObra></CnoObra> <CepObra></CepObra> <LogradouroObra></LogradouroObra> <NumeroObra></NumeroObra> <BairroObra></BairroObra> <ComplementoObra></ComplementoObra> <QuadraObra></QuadraObra> <LoteObra></LoteObra> </DadosObra> <RazaoSocial>xxxxxxxxxxxxx</RazaoSocial> <NomeFantasia>xxxxxxxx</NomeFantasia> <InscricaoMunicipal>27221</InscricaoMunicipal> <InscricaoEstadual></InscricaoEstadual> </Prestador> <Tomador> <IdentificacaoTomador> <CpfCnpj> <Cnpj>0xxxxxxxxx</Cnpj> </CpfCnpj> <InscricaoMunicipal></InscricaoMunicipal> <Estrangeiro>2</Estrangeiro> </IdentificacaoTomador> <RazaoSocial>xxxxxxxxx</RazaoSocial> <NomeFantasia></NomeFantasia> <InscricaoEstadual></InscricaoEstadual> <Endereco> <Endereco>xxxxxx</Endereco> <Numero>325</Numero> <Complemento>SALxxx2</Complemento> <Bairro>CENTRO-SUL</Bairro> <CodigoMunicipio>5108402</CodigoMunicipio> <Cep>xxxxxxxxx</Cep> </Endereco> <Contato> <Telefone>xxxxxxxxx</Telefone> <Email>xxxxxxxx.br</Email> </Contato> </Tomador> </InfDeclaracaoPrestacaoServico> </DeclaracaoPrestacaoServico> Vou mandar o DPS que fica mais fácil pra mim.

Sim. O cliente está emitindo pelo sistema novamente.

Tem que subir o provider que eu subi

Atualizações: Após termos ficado uns 3 dias conseguindo emitir com essa correção, de repente parou de funcionar. A validação de schema estava passando, mas retornava erro lá do ws deles. Depois de muita tentativa e erro (já que o suporte deles não respondem), descobrimos que o schema disponibilizado por eles no site está incorreto: http://app.centi.com.br/files/nfse.xsd Nesse schema está assim <xsd:simpleType name="tsCodigoNbs"> <xsd:restriction base="xsd:string"> <xsd:maxLength value="12"/> <xsd:minLength value="12"/> <xsd:whiteSpace value="collapse"/> </xsd:restriction> </xsd:simpleType> Porém quando chega lá com 12, dá rejeição. Alteramos o schema da nossa máquina para min e maxLenght = 9. Autorizou a nota novamente Palmas para os provedores, estão trabalhando muito bem Sendo assim no ACBr o método deve permanecer com 9 dígitos Result.AppendChild(AddNode(tcStr, '#32', 'CodigoNbs', 1, 9, NrOcorrCodigoNBS, NFSe.Servico.CodigoNBS, DSC_CMUN));

Subi com um erro que percebi agora. O parametro do AddNode tem que ser alterado para 12 também: Result.AppendChild(AddNode(tcStr, '#32', 'CodigoNbs', 1, 12, NrOcorrCodigoNBS, PadLeft(NFSe.Servico.CodigoNBS, 12, '0'), DSC_CMUN));

Ah, vai ser isso com certeza. Abri no VSCode, na verdade. E Meu VSCode é configurado pra sempre salvar em UTF-8 with BOM

Estranho. 1 arquivo teve apenas uma linha adicionada, uma variável já existente sendo atribuída o valor de string vazia. O outro é um CTRL + C, CTRLV + V do arquivo da superclasse TNFSeW_ABRASFv2. Olhei na superclasse e não tem nenhuma diretiva de compilação condicional para as uses. Então imagino que o erro de compilação não seja especificamente por causa desses 2 arquivos. Qual o output do erro de compilação?

Consegui fazer as emissões depois de alguns ajustes nos fontes: Em procedure TACBrNFSeProviderCenti202.Configuracao; Precisei limpar o Identificador. Identificador := ''; E precisei fazer a implementação do método function TNFSeW_Centi202.GerarServico: TACBrXmlNode; Uma observação é que o NBS está sendo validado como tamanho mínimo de 12 caracteres, então fiz um PadLeft pra facilitar. Segue os fontes Centi.GravarXml.pas Centi.Provider.pas

Não tem mesmo Gustavo. Você está correto. Também gostaria de utilizar os endpoints de consulta. Na collection que recebemos deles do Postman, também não tem, mas documentação online tem. Implementei manualmente aqui no Postman e deu certo. Seria interessante a equipe do ACBr verificar.

Por aqui também seguimos acompanhando. Todos os dias no aguardo

Ok. Pode fechar por enquanto. Vou deixar o meu alterado por aqui mesmo.

Segue o fonte ACBrBancoBrasil.pas

Olá. Atualmente o PDF do Boleto do "Banco do Brasil (CNAB)" mostra o número da agencia e da conta no campo "Agencia/Codigo do Beneficiário", ambos com o dígito verificador. Porém quando o Boleto é do Tipo "Banco do Brasil API" não mostra os dígitos. Estamos homologando um cliente novo, e o gerente da conta solicitou que os dígidos verificadores aparecessem no boleto. Fizemos um teste alterando a função TACBrBancoBrasil.MontarCampoCodigoCedente. Testamos a impressão, o envio via API, a leitura do código dentro de um aplicativo de banco, e tudo funcionou corretamente. Gostaria que analisassem uma possível modificação. Como está atualmente no ACBr function TACBrBancoBrasil.MontarCampoCodigoCedente ( const ACBrTitulo: TACBrTitulo ) : String; begin if(ACBrTitulo.ACBrBoleto.Banco.TipoCobranca = cobBancoDoBrasilAPI) then begin Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'/'+ IntToStr(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0)); end else begin Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ IntToStr(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0)) +'-'+ ACBrTitulo.ACBrBoleto.Cedente.ContaDigito; end; end; Alteração que fizemos (aparentemente era assim antes): function TACBrBancoBrasil.MontarCampoCodigoCedente ( const ACBrTitulo: TACBrTitulo ) : String; begin Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ IntToStr(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0)) +'-'+ ACBrTitulo.ACBrBoleto.Cedente.ContaDigito; end;

Tem algum link que explica como gerar essa chave? Ou o código-fonte desse programa pode ser passado pra gente sob solicitação? Queria embarcar essa função no gerenciamento dos clientes.

É só pro Fortes Report?

Qual o post que mostra como utilizar esse modelo de impressão? Não achei, só achei post de dúvidas criados pelo Jamil

Ele nao cria os logs na pasta

Onde eu consigo a lista pra saber que numero corresponde à cada campo? Gostaria de alterar o TipoParcelamento e o TipoTransacao.

Bom dia. Estava com problemas para consultar por lote usando OpenSSL. Atualizei o ACBr e mesmo assim não enviou. Após baixar o Schema disponibilizado pelo BigWings e substituir o arquivo o do ACBr deu certo. Provavelmente precise atualizar o Schema do repositório. ISSNET Cuiabá - MT.

Estou usando Delphi 10.2 Tokyo.

Bom dia Galera! Estou tentando montar um JSON para comunicacao com uma API, o formato que preciso montar é esse: { "id": "1", "type": "TPS", "SubObjeto": { "name": "Teste", "phones": [ "987654321","0123456789" ], "address": { "country": "BR", "state": "MT" } } } Só que ate agora o que consegui foi: var LJson, LJsonObject: TJSONObject; LArray: TJSONArray; LJsonObject := TJSONObject.Create; LJsonObject.AddPair(TJSONPair.Create('id', '1')); LJsonObject.AddPair(TJSONPair.Create('type', 'TPS')); // SubObjeto LArray := TJSONArray.Create; LJson := TJSONObject.Create; LJson.AddPair(TJSONPair.Create('name', 'Teste')); LJson.AddPair(TJSONPair.Create('phones', ?)); //Address ? LArray.Add(LJson); LJsonObject.AddPair(TJSONPair.Create('SubObjeto', LArray)); ShowMessage(LJsonObject.ToString); Alguém já montou algum JSON assim ? Desde já agradeço!

É porque vc esta olhando no arquivo errado (nfse), olhe nos arquivos que contem "-env-lot" no nome, marca no seu componente para salvar todos XMLs. O Numero do Lote tem que ser aumentado cada vez que voce envia. Mesmo que seja o mesmo RPS. ACBRNFSe1.NotasFiscais.NumeroLote := ACBRNFSe1.NotasFiscais.NumeroLote + 1;