Gabriel Bonzanini

Boa tarde. Verifiquei que no método ACBrNFe.DistribuicaoDFe e para o tipo de evento de retorno teCCe (Carta de Correção eletrônica), a tag WebServices.DistribuicaoDFe.RetDistDFeInt.docZip.procEvento.DetEvento.xJust estará sempre vazia, visto que pra este tipo de evento a justificativa da correção fica em uma tag chamada xCorrecao. Adicionando a seguinte condição, pude obter o conteúdo desejado. if(FdocZip.Items[i].FprocEvento.FtpEvento = teCCe) Then FdocZip.Items[i].FprocEvento.detEvento.FxJust := oLeitorInfZip.rCampo(tcStr, 'xCorrecao') else FdocZip.Items[i].FprocEvento.detEvento.FxJust := oLeitorInfZip.rCampo(tcStr, 'xJust'); Em anexo, a unit com a alteração e um arquivo xml deste tipo de evento, onde a correção é 'Quantidade de volumes corretos 7'. Não sei se irão preferir criar a property xCorrecao na classe, mas acredito que não seja necessário, já que a xJust nunca seria utilizada neste caso. Abraço, aguardo retorno, Gabriel. pcnRetDistDFeInt.pas 1101104315099046200300013055001000117594164569486401-procEventoNFe.xml

Bom dia. Estamos homologando a emissão de boletos e remessa bancária do Banrisul no padrão CNAB 240 para um de nossos clientes. A crítica retornada pelo banco foi a seguinte: - posição 109, segmento P, informar 'A' ou 'N'; Verifiquei que o componente está enviando o conteúdo 'S' quando há o aceite, no procedimento TACBrBanrisul.GerarRegistroTransacao240, através do seguinte código: case Aceite of atSim: aAceite := 'S'; atNao: aAceite := 'N'; end; Em anexo a unit atualizada, com a troca de 'S' por 'A'. Obrigado, aguardo retorno. Gabriel. ACBrBancoBanrisul.pas

Obrigado Régys! Fico no aguardo

Juliomar, obrigado pelo retorno. Fiz o teste, mas a mensagem continua retornando apenas o primeiro caracter. Parece ser problema no tipo de dado da variável mesmo, e já vi o mesmo ocorrer em outro tópico (apesar de não ser a questão central): 'Requisição não enviada. 12157 - E' - Este 'E' é a letra inicial da mensagem correta. É o mesmo que ocorreu comigo, e a solução foi alterar o tipo de dado da variável Buffer. Apenas gostaria de ver se isso confere, e se pode ser alterado no projeto principal para que não tenha que lembrar de alterar toda vez que sincronizá-lo. Abraço, Gabriel.

Algum moderador poderia verificar isto? É uma correção pontual, acredito que vá ajudar.

Para quem quiser ver a mensagem de erro corretamente, e não apenas a primeira letra:

Bom dia. Verifiquei uma falha na função TACBrHTTPReqResp.GetWinInetError, da unit ACBrHTTPReqResp. Estou utilizando Delphi 2010 e Windows 7. A mensagem de erro retornada apresenta apenas o primeiro caracter, devido ao tipo PAnsiChar da variável Buffer. Alterando para PChar funciona corretamente. Poderiam verificar se isto terá algum impacto em outros ambientes, e se poderia ser alterado para as próximas versões? Muito obrigado, Gabriel. ACBrHTTPReqResp.pas

Boa tarde. Estou fazendo a homologação do arquivo de remessa do banco Sicredi, com 240 posições, e verifiquei algumas correções necessárias: Nas linhas 1460 e 1506, o sistema utiliza o multiplicador '3' ao invés de '2', como se houvesse um terceiro registro além de P e Q, ocasionando falha na geração do código sequencial. Na linha 1331, o componente está enviando o dígito verificador da agência, quando deveria enviar sempre um espaço em branco. Fiz o teste preenchendo a propriedade 'AgenciaDigito' com esse espaço em branco (tentando assim evitar a alteração no componente), mas nesse caso o código de barras não pôde ser gerado corretamente na impressão do boleto. Em anexo, a unit com as correções e o arquivo com as críticas mencionadas, dentre outras que devem ser ignoradas pois foram corrigidas em nosso próprio software. Aguardo um parecer de um dos administradores. Abraço, Gabriel. ACBrBancoSicredi.pas protocol_14000673221.pdf

Muito obrigado Juliomar. Parabéns pra toda a equipe de vocês, os componentes são fantásticos, facilitam o trabalho de muita gente. Como faço pra marcar o tópico como resolvido? (Se houver necessidade, claro) Abraço!

As linhas adicionadas são 287 (PDF) e 295 (HTML). Obrigado pela atenção. ACBrBoletoFCFR.pas ACBrBoletoFCFR.pas

Alguém saberia dizer qual seria o passo correto a seguir para ter esta alteração implementada? Obrigado.

Primeiramente, obrigado pela atenção Juliomar. Adicionando a linha mencionada, o componente se comporta conforme a necessidade. É a primeira vez que preciso alterar algum componente do ACBr, visto a qualidade do projeto, então não sei exatamente como proceder. Fico na dúvida se a solução é aceitável, pois é um reaproveitamento de uma property utilizada também para controlar a visibilidade do diálogo de impressão. De qualquer forma, não me importaria de implementar uma property específica para este fim, assim evitaria de ter que alterar o código fonte do componente toda vez que for atualizar o projeto. Abraço, Gabriel.

Alguém?

Boa tarde pessoal. Estou implementando uma rotina para envio de faturas comerciais em massa, por e-mail. Para tal, utilizo os componentes TACBrBoleto e TACBrBoletoFCFR. Ao executar o procedimento TACBrBoleto.EnviarEmail, o componente mostra a tela de setup da exportação do PDF, o que não é de meu interesse. Reparei que existe a propriedade 'MostrarSetup', mas a finalidade dela parece estar restrita apenas ao diálogo de impressão, e não ao de exportação. Debugando o programa, cheguei ao procedimento TACBrBoletoFCFR.Imprimir, no qual o TDataModule responsável pela impressão é criado em tempo de execução (DmBoleto). Isto impede qualquer alteração dos dados nele contidos fora do contexto do procedimento (no código do aplicativo): procedure TACBrBoletoFCFR.Imprimir; var DmBoleto: TdmACBrBoletoFCFR; begin inherited Imprimir; // Verifica se a lista de boletos está vazia DmBoleto := TdmACBrBoletoFCFR.Create(Self); ... Logo após, a propriedade 'MostrarSetup' é aplicada nas opções de impressão do report: frxReport.PrintOptions.ShowDialog := MostrarSetup; E, finalmente, o momento da exportação do arquivo: frxPDFExport.FileName := NomeArquivo; {Esta é a linha que está resolvendo o impasse, por enquanto} DmBoleto.frxPDFExport.ShowDialog := MostrarSetup; frxReport.Export(DmBoleto.frxPDFExport); Gostaria de saber dos colegas se há alguma outra forma de contornar isto. Caso não haja, como proceder para aplicar esta solução no projeto? É interessante criar outra propriedade específica para este fim? Desde já agradeço a atenção, Gabriel.