Quality Automação

Bom dia, A alteração que você fez não está funcionando. Ela retorna uma chave diferente da que o webservice está esperando. A prefeitura disponibiliza um validador que você pode usar para comparar o resultado: https://prefeituradevassouras.online/wsnfse/hash.php

Bom dia, Os arquivos seguem em anexo. CTA.Provider.pas ACBrNFSeXWebserviceBase.pas

Bom dia, Realizei os testes da implementação feita e encontrei alguns problemas: 1. Autenticação de usuário - HASH O manual instrui que o hash deve ser do tipo SHA256 porém o que foi implementado estava sendo feito diferente e por consequência não estava sendo aceito pelo webservice. Fiz a alteração necessária e já validei o correto funcionamento. CTA.Provider >> TACBrNFSeProviderCTA200.GerarMsgDadosEmitir: 2. Content-Length Outro erro encontrado foi a falta do Header "Content-Length" na chamada do webservice. Sem ele as chamadas continuariam a retornar erro pois este é obrigatório. Também fiz a alteração necessária e já validei o correto funcionamento. ACBrNFSeXWebserviceBase >> TACBrNFSeXWebserviceMulti2.DefinirMsgEnvio: 3. Xml da nota enviado como file Por último, foi observado ainda que o envio do xml está sendo feito como texto concatenado à requisição, porém o webservice espera um arquivo. O xml deveria ser salvo como um TFileStream e anexado ao envio e não enviado como texto corrido na requisição. Este último não cheguei a fazer a implementação.

Boa tarde. Consegui esse contato: Ademir - (24) 992697396

Boa noite, solicitei o contato, assim que tiver um retorno informo. Muito Obrigado.

Boa tarde, segue contato da pessoa responsável pela empresa "CTA - Centro de Tecnologia Avançada Ltda" junto com os manuais onde ele insiste em dizer que a informação "schemas dos xml" pode ser encontrada neles: Ademir - (24) 992697396 ManualUsuarioWS (3).pdfManualUsuarioRPS (1).pdf

Bom dia Italo. Estou na busca dessas informações tambem. Obrigado.

Boa noite, vi sim Italo. O desafio é descobrir qual o provedor, pela sua experiencia vendo os documentos, consegue extrair essa informação?

Solicito a integracao da NFse do municipio de Vassouras-RJ. Segue uma nova documeManualUsuarioWS.pdfntação entregue pela prefeitura. Qualquer duvida estou a disposição. ManualUsuarioRPS.pdf

Boa tarde. Segue em anexo. Fiz o download por esse link: https://www.vassouras.rj.gov.br/nfse wsdl_nfs-e_ v2.03.zipschema_xml_nfs-e_ v2.03.zip

Solicito a homologação da Prefeitura de Vassouras-RJ. Segundo informações deles o provedor é CTA. Segue documentação entregue.NFS-e_Manual_de_Integracao_versao_2.03_alteracoes.pdfManualUsuarioWS (1).pdf Obrigado.

Bom Dia! Nesse mesmo manual é apresentado o Segmento B para as duas situações. Ainda é destacado que a movimentação de PIX, deve ser gerada em arquivo separado das demais movimentações como, Crédito em Conta, TED, DOC, conforme mencionado acima.

Hoje não estão sendo geradas as informações referente a movimentação por PIX no PagFor. Identificado que alguns registros estão incompletos, como por exemplo o Segmento B para o Banco Itaú. Conforme o manual do banco, devem ser informado o Tipo da Chave Pix e a Chave Pix no Segmento B. Segue em anexo a documentação do Banco Itaú. SISPAG_CNAB_ITAU_COM_PIX.pdf Outro detalhe é que para esse tipo de movimentação, deve ser gerado um arquivo separado, conforme item 2.2 – Explicações gerais sobre o arquivo do manual.

Obrigado. Vamos ir acompanhando.

Vai ter um modulo especifico? Pois pelas documentações que andei lendo vai existir um padrão para gerar o QrCode e um URL para consulta da transação, mesmo assim será necessario passar pelo TEF?

Boa tarde. Está nos planos do projeto criar um componente para gerar o QrCode de pagamentos PIX? Dei uma olhada aqui e não encontrei.

Estava correndo aqui tambem. Vou testar por aqui.

Exelente a implementação, mas sempre tem um porem né... O colega informou um bug pois estava sempre imprimendo bandeira visa, mas acredito que é pelo fato de quando a venda não for integrada ele não preenche as informações de autorização, no meu caso eu já preencho e precisava que imprimisse. Podemos tratar de outra forma?

Daniel Simoes Obrigado pela velocidade. Acabei implementando a autorização do cartão. Consegue adicionar pra gente? var i: Integer; Troco: Real; DescPagto, DescBandeira,CodigoAutorizacao: String; begin //Total := 0; FPosPrinter.Buffer.Add('<c>' + PadSpace('FORMA DE PAGAMENTO | VALOR PAGO R$', FPosPrinter.ColunasFonteCondensada, '|')); for i := 0 to FpNFe.pag.Count - 1 do begin with FpNFe.pag.Items[i] do begin DescPagto := ACBrStr(FormaPagamentoToDescricao(tPag)); if (tPag in [fpCartaoCredito, fpCartaoDebito]) then begin DescBandeira := BandeiraCartaoToDescStr(tBand); CodigoAutorizacao := 'Aut: '+cAut; end else begin DescBandeira := ''; CodigoAutorizacao := ''; end; FPosPrinter.Buffer.Add('<c>' + PadSpace( DescPagto + ' ' + DescBandeira + ' ' + CodigoAutorizacao + '|' + FormatFloatBr(vPag), FPosPrinter.ColunasFonteCondensada, '|')); end; end; Troco := IIf(FpNFe.pag.vTroco > 0,FpNFe.pag.vTroco,vTroco); if Troco > 0 then FPosPrinter.Buffer.Add('<c>' + PadSpace('Troco R$|' + FormatFloatBr(Troco), FPosPrinter.ColunasFonteCondensada, '|')); end;

Acompanhei os ultimos commit's e não identifique a alteração. Acreditam que vão colocar essa opção no ESCPOS ou é necessario mudar manual mesmo? Se for preciso posso enviar a classe com as alterações para ser feito o commit.

Bom dia Juliana. Estou passando por uma dificuldade na leitura de um retorno do Banco do Brasil. Tenho uma conta com Carteira 17 e convenio composto por 6 Números. Na leitura do retorno o componente capta o nosso numero pela seguinte função: NossoNumero := Copy(Linha,63,11) No meu caso ele retorna 18916368669 Pelo que entendo esse nosso numero tem o convenio + numero do titulo. Só que ao setar o valor do nosso numero ele faz a validação e me retorna um exceção falando que o tamanho do nosso numero é 5. Eu entendo que ele seria sim desse tamanho caso na captura não pegue o convenio, tanto que para liberar aqui deixei da seguinte forma no componente: NossoNumero := Copy(Linha,63,11).Replace(ACBrBoleto.Cedente.Convenio,''); Vou anexar o arquivo de retorno aqui para se for possível dar uma avaliada e ver se e necessário uma correção em uma das funções. Muito Obrigado. CBR64348332806201612149.ret

Bom dia. 1 – ESTRUTURA DO NÚMERO BANCÁRIO (NOSSO NÚMERO) E E E E E N N N N N D Onde: EEEEE = Código do Cliente no Banco (Nº. do Range) Código numérico a ser fornecido pelo Banco por ocasião do início dos testes. Este código tem amarração cadastral com a conta de cobrança, portanto deverão ser obtidos tantos códigos quantos forem às contas de cobrança a serem utilizadas para a Cobrança Diretiva ou após utilizar todos os números sequenciais do documento. NNNNN = Número sequencial do documento / título. Uso a critério do cliente e quando utilizar todos, deve solicitar um novo número Range. D = Dígito verificador de segurança. É calculado pelo Módulo 11, com pesos de 2 a 7 da direita para a esquerda. Pagina 13. Olhei no manual mais fui na logica. Se tem uma verificação se o nosso numero e maior que 6 então não tem logica limitar um nosso numero com 5 dígitos. Aguardo o retorno. cobbarra.pdf

Tambem estou passando pelo mesmo problema. No meu caso preciso de utilizar o nosso numero com 10 dígitos. Acredito que a validação esta errada, pois tem um lugar da classe que tem o seguinte codigo: if (ACBrTitulo.Carteira = 'CSB') or (ACBrTitulo.Carteira = '1') then begin if Length(ACBrTitulo.NossoNumero) < 6 then wNossoNumero:= PadLeft(trim(ACBrTitulo.ACBrBoleto.Cedente.Convenio),5,'0') + RightStr(ACBrTitulo.NossoNumero,5) else wNossoNumero:= RightStr(ACBrTitulo.NossoNumero,10); Modulo.CalculoPadrao; Modulo.MultiplicadorFinal := 7; Modulo.Documento := wNossoNumero; Modulo.Calcular; Result := RightStr(wNossoNumero,10) + AnsiString(IntToStr(Modulo.DigitoFinal)); end else Result :=ACBrTitulo.NossoNumero + '-' + CalcularDigitoVerificador(ACBrTitulo); Como não posso ter um nosso numero com 10 dígitos???? Para funcionar precise alterar a função CalcularTamMaximoNossoNumero function TACBrBancoHSBC.CalcularTamMaximoNossoNumero( const Carteira: String; NossoNumero : String = ''): Integer; begin Result := fpTamanhoMaximoNossoNum; if (trim(Carteira) = '') then raise Exception.Create(ACBrStr('Banco HSBC requer que a carteira seja '+ 'informada antes do Nosso Número.')); if (trim(Carteira) = 'CSB') or (trim(Carteira) = '1') then begin Result := 10; fpTamanhoMaximoNossoNum := 10; end; end; Se for possível fazer o commit dessa alteração.

Bom dia. Juliomar temos alguma novidade?

Segue. ACBrBancoBrasil.pas