Cleonir

Obrigado...

Alguém...

Você tem razão. Obrigado.

Tive um problema na geração do arquivo de remessa do Banco Sicrédi. O meu cliente nunca exclui nem troca de pasta as remessas antigas. O primeiro ano tudo bem não deu problema mas no segundo ano começou a dar problema por que já encontrava o arquivo com o mesmo nome na pasta mas era do ano anterior. Acontece isso porque no nome do arquivo vai somente o código do beneficiário o código do mês e o dia, não vai o ano. Teria alguma forma de ir trocando de pasta os arquivos do mês anterior por exemplo, para não dar este conflito?

No CNAB 240 do Banco Cecredi, na posição 24 a 29 do Registro Trailer do Arquivo esta errado esta sempre considerando os registros P, Q e R, mas o Segmento R vai gerar somente se o CodigoMoraJuros for diferente de cjIsento. Fiz um ajuste para resolver isto, não sei se foi a melhor forma mas resolveu, criei uma variável no protected para ir incrementando se gerar o Segmento R. Em anexo Unit alterada. ACBrBancoCecred.pas

Fiz alguns ajustes no ACBrCTeDAEventoRLRetrato para imprimir o Evento de Prestação de Serviço em Desacordo. Em anexo unit alterada... ACBrCTeDAEventoRLRetrato.pas

Em anexo 2 PDF, 1 com o Stretch false que esta assim hoje, e o outro com o Stretch True que deveria ser para se ajustar ao tamanho do TRLImage. Com_Stretch_False.pdf Com_Stretch_True.pdf

Teria que setar true no Stretch do componente imgLogo no ACBrDANFCeFortesFr, para a logo se ajustar de acordo com o tamanho do TRLImage.

Na procedure AdicionarMensagensPadroes esta assim: if ValorDesconto <> 0 then begin if DataDesconto <> 0 then AStringList.Add(ACBrStr('Conceder desconto de ' + FormatCurr('R$ #,##0.00',ValorDesconto) + ' para pagamento até ' + FormatDateTime('dd/mm/yyyy',DataDesconto))) else AStringList.Add(ACBrStr('Conceder desconto de ' + FormatCurr('R$ #,##0.00',ValorDesconto) + ' por dia de antecipaçao')); end; Se tiver a data limite para desconto vai ficar como se fosse valor fixo, se não tiver vai ficar valor por dia de antecipação, esta correto isso? E se for cnab 240 não teria que fazer verificações no campo Código do desconto se é Valor fixo ou valor por dia de antecipação?

Duvida... No CNAB 400 o desconto é valor por dia de antecipação ou valor fixo. Não encontrei em nenhum manual explicando esse tipo de situação. Por exemplo no manual do banco do Bradesco tem os campos (Data Limite P/Concessão de Desconto e Valor do Desconto), não tem nenhum campo identificando se é valor fixo ou valor por dia de antecipação.

Estou precisando de uma ajuda com os boletos para o Banco Sicoob e Santander. Tenho alguns clientes que fazem Adiantamento do valor de boletos no banco. Ao fazer o Adiantamento do valor de boletos no banco do Sicoob, segundo o pessoal do banco no CNAB 240 no arquivo de retorno vai vir a ocorrência 05(Transferência de Carteira/Baixa) nas posições 17 a 17 do Segmento T do arquivo de retorno. E se caso vencer o titulo e o cliente não pagou o titulo viria no retorno a ocorrência 04(Transferência de Carteira/Entrada). Olhando ACBrBancoBancoob percebi que não esta tendo tratamento quanto a estas ocorrências que vem no arquivo de retorno. Eu não quis mexer por que no cnab 400 são outras ocorrências aí precisa ter muito cuidado, se alguém quiser me dar uma mão para implementar isso ficarei grato. Também precisaria isso no banco Santander. Vou ter que tirar um tempo para a analisar o manual do Banco Santander para ver como que funciona este caso de Antecipação de Recebíveis, mas se alguém conseguir me adiantar alguma coisa...

Blza. Obrigado.

Ops, eu tinha esquecido de colocar o tipo de papel para o A4. ACBrCTeDACTeRLRetrato.dfm ACBrCTeDACTeRLRetrato.pas

Fiz um ajuste no ACBrCTeDACTeRLRetrato para imprimir as informações dos tributos federais quando for CTeOS, A contabilidade de alguns clientes meus estão cobrando isso. Não sei se fiz da melhor forma. Favor conferirem e se possível subir para o SVN... Teria que ver também a possiblidade de imprimir os Documentos Referenciados se caso tiver. ACBrCTeDACTeRLRetrato.dfm ACBrCTeDACTeRLRetrato.pas

Também estou com essa rejeição. Transporte de pessoas, tomador é pessoa jurídica mas é não contribuinte. O contador do Emitente do CteOS diz que não pode ir o valor de INSS por que é não contribuinte; Será que nesse caso gerando A tag com valor zerado resolveria?

Boa tarde Juliomar. O problema é que não tenho o Lazarus para compilar e postar o .lfm ACBrCTeDAEventoRLRetrato.dfm ACBrCTeDAEventoRLRetrato.pas

Não esta salvando os Soap. Não certo como funciona. A rejeição que forcei acontece na validação nos Schemas, não sei se mesmo assim teria que salvar os Soap. Coloquei um valor menor que permitido no campo NroRegEstadual. Mas enfim não esta salvando os Soap.

Na impressão do evento do CTeOS no FortesReport, não esta saindo os dados do tomador. É necessário fazer uma verificação no Modelo Se for CTeOS os dados do tomador é preciso pegar assim FCTe.toma.xNome por exemplo. Fiz um case para resolver isso ficando assim no BeforePrint da Banda do Tomador... case FCTe.Ide.modelo of 57://CTe begin if FCTe.Ide.Toma4.xNome = '' then begin case FCTe.Ide.Toma03.Toma of tmRemetente: begin rllRazaoTomador.Caption := FCTe.Rem.xNome; rllCNPJTomador.Caption := FormatarCNPJouCPF(FCTe.Rem.CNPJCPF); rllEnderecoTomador.Caption := FCTe.Rem.EnderReme.xLgr + ', ' + FCTe.Rem.EnderReme.nro; rllBairroTomador.Caption := FCTe.Rem.EnderReme.xBairro; rllCEPTomador.Caption := FormatarCEP(FCTe.Rem.EnderReme.CEP); rllMunTomador.Caption := FCTe.Rem.EnderReme.xMun + ' - ' + FCTe.Rem.EnderReme.UF; rllFoneTomador.Caption := FormatarFone(FCTe.Rem.fone); rllInscEstTomador.Caption := FCTe.Rem.IE; end; tmExpedidor: begin rllRazaoTomador.Caption := FCTe.Exped.xNome; rllCNPJTomador.Caption := FormatarCNPJouCPF(FCTe.Exped.CNPJCPF); rllEnderecoTomador.Caption := FCTe.Exped.EnderExped.xLgr + ', ' + FCTe.Exped.EnderExped.nro; rllBairroTomador.Caption := FCTe.Exped.EnderExped.xBairro; rllCEPTomador.Caption := FormatarCEP(FCTe.Exped.EnderExped.CEP); rllMunTomador.Caption := FCTe.Exped.EnderExped.xMun + ' - ' + FCTe.Exped.EnderExped.UF; rllFoneTomador.Caption := FormatarFone(FCTe.Exped.fone); rllInscEstTomador.Caption := FCTe.Exped.IE; end; tmRecebedor: begin rllRazaoTomador.Caption := FCTe.Receb.xNome; rllCNPJTomador.Caption := FormatarCNPJouCPF(FCTe.Receb.CNPJCPF); rllEnderecoTomador.Caption := FCTe.Receb.EnderReceb.xLgr + ', ' + FCTe.Receb.EnderReceb.nro; rllBairroTomador.Caption := FCTe.Receb.EnderReceb.xBairro; rllCEPTomador.Caption := FormatarCEP(FCTe.Receb.EnderReceb.CEP); rllMunTomador.Caption := FCTe.Receb.EnderReceb.xMun + ' - ' + FCTe.Receb.EnderReceb.UF; rllFoneTomador.Caption := FormatarFone(FCTe.Receb.fone); rllInscEstTomador.Caption := FCTe.Receb.IE; end; tmDestinatario: begin rllRazaoTomador.Caption := FCTe.Dest.xNome; rllCNPJTomador.Caption := FormatarCNPJouCPF(FCTe.Dest.CNPJCPF); rllEnderecoTomador.Caption := FCTe.Dest.EnderDest.xLgr + ', ' + FCTe.Dest.EnderDest.nro; rllBairroTomador.Caption := FCTe.Dest.EnderDest.xBairro; rllCEPTomador.Caption := FormatarCEP(FCTe.Dest.EnderDest.CEP); rllMunTomador.Caption := FCTe.Dest.EnderDest.xMun + ' - ' + FCTe.Dest.EnderDest.UF; rllFoneTomador.Caption := FormatarFone(FCTe.Dest.fone); rllInscEstTomador.Caption := FCTe.Dest.IE; end; end; end else begin rllRazaoTomador.Caption := FCTe.Ide.Toma4.xNome; rllCNPJTomador.Caption := FormatarCNPJouCPF(FCTe.Ide.Toma4.CNPJCPF); rllEnderecoTomador.Caption := FCTe.Ide.Toma4.EnderToma.xLgr + ', ' + FCTe.Ide.Toma4.EnderToma.nro; rllBairroTomador.Caption := FCTe.Ide.Toma4.EnderToma.xBairro; rllCEPTomador.Caption := FormatarCEP(FCTe.Ide.Toma4.EnderToma.CEP); rllMunTomador.Caption := FCTe.Ide.Toma4.EnderToma.xMun + ' - ' + FCTe.Ide.Toma4.EnderToma.UF; rllFoneTomador.Caption := FormatarFone(FCTe.Ide.Toma4.fone); rllInscEstTomador.Caption := FCTe.Ide.Toma4.IE; end; end; 67://CTeOS begin rllRazaoTomador.Caption := FCTe.toma.xNome; rllCNPJTomador.Caption := FormatarCNPJouCPF(FCTe.toma.CNPJCPF); rllEnderecoTomador.Caption := FCTe.toma.EnderToma.xLgr + ', ' + FCTe.toma.EnderToma.nro; rllBairroTomador.Caption := FCTe.toma.EnderToma.xBairro; rllCEPTomador.Caption := FormatarCEP(FCTe.toma.EnderToma.CEP); rllMunTomador.Caption := FCTe.toma.EnderToma.xMun + ' - ' + FCTe.toma.EnderToma.UF; rllFoneTomador.Caption := FormatarFone(FCTe.toma.fone); rllInscEstTomador.Caption := FCTe.toma.IE; end; end;

Bom dia Italo, Faca vazio também.

E se acontece alguma rejeição como que se pega o xml de de retorno? se acontece rejeição fica vazio ACBrCTe.WebServices.Enviar.RetWS.

Obrigado Italo. Era isso mesmo.

Eu também não consegui pegar o xml de retorno! no cte eu pego o xml de retorno do RetWS. CTe1.WebServices.Retorno.RetWS; mas no CTeOS vem vazio RetWS.

Sugestão... Na impressão dos documentos de transporte anterior no FortesReport, não seria possível criar uma outra banda, podendo assim mostrar também os dados do emitente do documento de transporte anterior, assim como foi feito no FastReport. tenho alguns clientes solicitando isso, para resolver isso tive que configurar o FastReport para eles, mas eu não queria mais utilizar o FastReport. Mas enfim é só uma sugestão de melhoria, se alguém puder me ajudar com isso. por que para fazer isso acredito que vai dar bastante trabalho por que vai mudar que mudar bastante os componentes de posição e é preciso ter muito cuidado com isso para não dar problemas nos diferentes tipos de cte, e estou meio sem tempo no momento.

Era isso mesmo. Valeu, obrigado...