Centrodata Sistemas

Boa tarde. Sua solução claramente funciona. Porem, para que permitir que o código continue passando até pelo código que deve verificar se deve imprimir a NFS-e se claramente não foi possivel enviar a nota? Vale notar tambem que FProvider.Emite quando detecta erros na lista FWebService.Emite.Erros, aporta a execução com exit. exemplo: FProvider.Emite; if FWebService.Emite.Erros.Count > 0 then Exit; if Configuracoes.Geral.ConsultaLoteAposEnvio and (FWebService.Emite.ModoEnvio = meLoteAssincrono) then begin ... end; if DANFSE <> nil then begin SetStatus(stNFSeImprimir); for i := 0 to NotasFiscais.Count-1 do begin if NotasFiscais.Items[i].Confirmada and aImprimir then NotasFiscais.Items[i].Imprimir; end; SetStatus(stNFSeIdle); end;

Segue o log: ------------------------------ Versão OpenSSL OpenSSL 1.1.1g 21 Apr 2020 01.01.01.07F C:\Windows\SYSTEM32\libcrypto-1_1.dll C:\Windows\SYSTEM32\libssl-1_1.dll ------------------------------ Requisição Ambiente : 2 Cidade : Sao Joao Batista/SC Provedor : Betha Versão: 1.00 Data/Hora: 10/12/2024 09:51:30 Método Executado: Enviar Lote Assíncrono Parâmetros de Envio Numero do Lote: 3755 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False Erro(s): Código : X800 Mensagem: Erro de Validação: --> 1832 - Element 'Discriminacao': [facet 'maxLength'] The value has a length of '2205'; this exceeds the allowed maximum length of '2000'. Correção: --------- Método Executado: Consultar a Situacao Parâmetros de Envio Numero do Prot: Numero do Lote: 3755 Parâmetros de Retorno Situação Lote : Descrição Sit : Sucesso : False Erro(s): Código : X101 Mensagem: Número do Protocolo não informado. Correção: --------- Método Executado: Consultar o Lote de Rps Parâmetros de Envio Numero do Prot: Numero do Lote: Parâmetros de Retorno Situação Lote : ID Nota : Sucesso : False Erro(s): Código : X101 Mensagem: Número do Protocolo não informado. Correção: --------- NFS-e Numero....: Cod. Verificacao: Prestador.......: Tomador.........: ********************************

Bom dia, Das versões da logo que mandamos anteriormente, as que estão no formato .bmp apresentaram problema na imprimir, isso porque estão com fundo transparente e ao imprimir esse fundo fica preto. Em anexo novamente as logos com fundo branco no formato .bmp. 085.bmp 085-pb.bmp

Boa tarde. Estou utilizando a função: TACBrNFSeX.Emitir, durante a execução dessa função é chamada outra procedure: FProvider.Emite; e logo após é realizada a consulta do lote. Porem estou com problema que está acusando que não existe protocolo a ser consultado, analisando o problema pensebi o seguinte. Dentro do procedimento: TACBrNFSeXProvider.Emite; gerou erro de schema e sai do procedimento, porem ao retornar para TACBrNFSeX.Emitir não aborta a execução, e tenta realizar a consulta mesmo sem ter feito o envio, pois parou na validação do schema. Como proceder nessa situação?

Boa tarde O banco Ailos nos enviou uma nova logo para impressão de boletos, onde segundo eles houve uma pequena alteração na frase. Segue em anexo a versão original enviada pelo banco e também as variações que nós geramos. 085.bmp 085-pb.bmp

Boa tarde @Italo Giurizzato Junior. A implementação está OK, mas deve-se alterar o ultimo Filler do registro, de 53 para 54 posições, caso contratio a linha fecha em 239 posições.

Boa tarde @Italo Giurizzato Junior Estamos no processo de implementação, quando concluirmos, postarei aqui.

Bom dia @Victor H. Gonzales - Panda Esse é um novo registro, não existe no componente ACBr. É referente ao agregador eletronico. Pelo que eu busquei de informações, é quando seu vc é responsavel por pagar um boleto que não está em seu CPF/CNPJ. Exemplo: Matriz/Filial, quando na sua conta bancaria vc tem acesso via DDA de boletos de outro CPF/CNPJ.

Bom dia O banco Ailos nos enviou um comunicado que a partir de 01/07/2024 esse segmento será obrigatório em algumas condições, como informa na obs nessa imagem. Link do manual da Febraban: https://cmsarquivos.febraban.org.br/Arquivos/documentos/PDF/Layout padrao CNAB240 V 10 11 - 21_08_2023.pdf Mais alguem no aqui está com essa demanda? comunicado banco Ailos.pdf

Boa tarde. Confome o e-mail de orientação que nossos clientes receberam da seguradora sobre a troca da URL da AT&M de HTTP para HTTPS, segue o arquivo ini ja alterado. Realizado restes de averbação e a nova URL está funcionando. Aparentemente a URL sem o HTTPS ainda está em funcionando, mas até quando, não sabemos. ACBrANeServicos.ini

OK, obg pelo retorno.

Boa tarde. No componente PagFor, ao preencher o objeto SegmentoO, não foi encontrada a propriedade TipoMovimento na classe TSegmentoO, como nos demais segmentos. Então ao gerar o arquivo de remessa no registro detalhe do Segmento O o valor informado na posição 15 esta fixo com ‘0’. Foi realizada alterações para que este segmente também tenha esta propriedade, conforme manual em anexo. ACBrPagForClass.pas CNAB240.GravarTxtRemessa.pas PagFor.BancodoBrasil.GravarTxtRemessa.pas PagFor.HSBC.GravarTxtRemessa.pas PagFor.Itau.GravarTxtRemessa.pas

Bom dia Não sei informar se houve alguma alteração no Schema, só sei dizer que pelo que li no forum sobre o provedor da GeisWeb é que pode ocorrer de existir versões diferentes dele em cada cidade. Realizado teste com a revisão e está funcionando.

Boa tarde. Estava ocorrento erro no RetornoConsultaLoteRps que algumas tags não estavam sendo preenchidas, e detectamos que nesse retorno em expecifico o XML estava diferente do previsto pelo componente, com alguns pequenos ajustes foi possivel mantar o código atual funcionando para o caso se alguma versão do webservice do provedor estar da forma prevista atualmente no ACBr e tambem conseguir ler o XML que estou recebendo do provedor na prefeitura de Cajamar - SP. unit: GeisWeb.Provider.pas procedure TACBrNFSeProviderGeisWeb.TratarRetornoConsultaLoteRps como estava: AuxNode := ANode.Childrens.FindAnyNs('IdentificacaoNfse'); if AuxNode <> nil then NumRps := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('NumeroRps'), tcStr); ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(NumRps); como ficou: AuxNode := ANode.Childrens.FindAnyNs('IdentificacaoNfse'); if AuxNode <> nil then NumRps := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('NumeroRps'), tcStr); if( NumRps = '' )then begin AuxNode := ANode.Childrens.FindAnyNs('IdentificacaoRps'); if AuxNode <> nil then NumRps := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('NumeroRps'), tcStr); end; ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(NumRps); unit: GeisWeb.LerXml.pas function TNFSeR_GeisWeb.LerXmlNfse como estava: LerIdentificacaoNfse(ANode); DataEmissao := ObterConteudo(ANode.Childrens.FindAnyNs('DataEmissao'), tcDatVcto); como ficou: LerIdentificacaoNfse(ANode); LerIdentificacaoRps(ANode); DataEmissao := ObterConteudo(ANode.Childrens.FindAnyNs('DataEmissao'), tcDatVcto); procedure TNFSeR_GeisWeb.LerIdentificacaoNfse como estava: Numero := ObterConteudo(AuxNode.Childrens.FindAnyNs('Numero'), tcStr); CodigoVerificacao := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoVerificacao'), tcStr); como ficou: Numero := ObterConteudo(AuxNode.Childrens.FindAnyNs('Numero'), tcStr); if( Numero = '' )then Numero := ObterConteudo(AuxNode.Childrens.FindAnyNs('NumeroNfse'), tcStr); CodigoVerificacao := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoVerificacao'), tcStr); XML recebido na consulta: <ConsultaLoteRpsResposta> <Rps> <IdentificacaoRps> <NumeroRps>12</NumeroRps> </IdentificacaoRps> <IdentificacaoNfse> <NumeroNfse>254</NumeroNfse> <CodigoVerificacao>NDMCFPVJKR</CodigoVerificacao> </IdentificacaoNfse> <DataEmissao>21/03/2023</DataEmissao> ... </Rps> </ConsultaLoteRpsResposta> NFSeX GeisWeb.rar

Boa tarde. Alguns de meus clientes adicionam informações na observação do CT-e para que os motoristas lerem essas informações, e segundo alguns deles, o tamanho da fonte é "pequena demais" gostariam de uma fonte com tamanho maior.