Cleonir

Membros
  • Total de ítens

    132
  • Registro em

  • Última visita

Reputação

9 Neutro

Sobre Cleonir

  • Rank
    Membro

Profile Information

  • Sexo
    Masculino
  • Localização
    Santa Catarina

Últimos Visitantes

1.611 visualizações
  1. CNAB 400 desconto

    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?
  2. CNAB 400 desconto

    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.
  3. 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...
  4. Impressão tributos federais no CTeOS

    Ops, eu tinha esquecido de colocar o tipo de papel para o A4. ACBrCTeDACTeRLRetrato.dfm ACBrCTeDACTeRLRetrato.pas
  5. Impressão tributos federais no CTeOS

    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
  6. CTE - OS - Rejeição 760

    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?
  7. Impressão Evento CTeOS

    Boa tarde Juliomar. O problema é que não tenho o Lazarus para compilar e postar o .lfm ACBrCTeDAEventoRLRetrato.dfm ACBrCTeDAEventoRLRetrato.pas
  8. CTE-OS - Como obter os dados do retorno após aprovação?

    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.
  9. Impressão Evento CTeOS

    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;
  10. CTE-OS - Como obter os dados do retorno após aprovação?

    Bom dia Italo, Faca vazio também.
  11. CTE-OS - Como obter os dados do retorno após aprovação?

    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.
  12. CTE-OS - Como obter os dados do retorno após aprovação?

    Obrigado Italo. Era isso mesmo.
  13. CTE-OS - Como obter os dados do retorno após aprovação?

    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.