Quality Automação

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

Bom dia. Precisei fazer uma alteração na leitura do retorno também. Segue o commit para analise. commit.diff

Eu não disse que o Acbr não confiável. Sem problemas mas olhei no Trunk2 e o código permanece da mesma forma preciso de ajuda para ser feito o commit.

Não. O trunk2 já esta é confiável?

Boa Tarde. Passei por um problema na leitura do retorno do banco do brasil com carteira 17. 1º Foi preciso Alterar a sequencia da leitura da carteira. Coloquei antes do nosso numero, pois ao ler o nosso numero ele exigia a carteria. Antes: 1544 NossoNumero := Copy(Linha,64,17); 1555 Carteira := Copy(Linha,107,2); Depois: 1554 Carteira := Copy(Linha,107,2); 1555 NossoNumero := Copy(Linha,64,17); 2º No SetNossoNumero o projeto faz algumas validações do tamanho do nosso numero, ai que esta o problema no retorno o nosso numero vem de um tamanho diferente do calculado pelo projeto. O problema esta que no nosso numero que vem da remessa esta com o convenioCedente ai foi preciso retirar o convenio. 1555 NossoNumero := Copy(Linha,64,17).Replace(rConvenioCedente,''); Preciso que desse commit. ValorRecebido := StrToFloatDef(Copy(Linha,254,13),0)/100; ValorMoraJuros := StrToFloatDef(Copy(Linha,267,13),0)/100; ValorOutrosCreditos := StrToFloatDef(Copy(Linha,280,13),0)/100; - NossoNumero := Copy(Linha,64,17); Carteira := Copy(Linha,107,2); + NossoNumero := Copy(Linha,64,17).Replace(rConvenioCedente,''); + ValorDespesaCobranca := StrToFloatDef(Copy(Linha,182,07),0)/100; //--Anderson: Valor tarifa ValorOutrasDespesas := StrToFloatDef(Copy(Linha,189,13),0)/100; Anexei para facilitar. commit