madalozzo

Não entendi essa parte da logica: if (iInstrucao1 = 0) then if (DiasDeProtesto > 0) then case TipoDiasProtesto of diCorridos: iInstrucao1 := 1; diUteis: iInstrucao1 := 2; end else if (DiasDeNegativacao > 0) then iInstrucao1 := 7 // Negativar dias corridos else iInstrucao1 := 3; // sem protesto -> aqui indica que o resultado fica "3" que seria sem protesto {Pegando campo Intruções} //01, 02, 07 [05..55] case iInstrucao1 of 1 : aIdentificacaoOcorrencia := IntToStrZero(DaysBetween(Vencimento,DataProtesto), 2); 2 : aIdentificacaoOcorrencia := IntToStrZero(WorkingDaysBetween(Vencimento,DataProtesto), 2); 7 : aIdentificacaoOcorrencia := IntToStrZero(DaysBetween(Vencimento,DataNegativacao), 2); 3,99 : aIdentificacaoOcorrencia := '00'; -> aqui identifica a ocorrencia sem protesto else iInstrucao1 := 0; aIdentificacaoOcorrencia := '00'; end; if (StrToIntDef(aIdentificacaoOcorrencia,0) < 5) or (StrToIntDef(aIdentificacaoOcorrencia,0) > 55) then -> aqui não deixa passar menos que 5 que no caso esta vindo sem protesto = 3 raise Exception.Create(ACBrStr('O número de dias a protestar / negativar '+ 'deve ser mínimo 05 a máximo 55 dias'));

Tive um problema com essa atualização... alguns clientes não utilizam protesto, mas após a atualização esta vindo a mensagem: "O número de dias a protestar / negativar deve ser mínimo 05 a máximo 55 dias".

Bom dia Se possível incluir esses dois protocolos no componente de balança. Obrigado ! ACBrBALPreciaMolenI35 e ACBrBALIndi560_780.zip ACBrBAL.zip

Entrei em contato com o pessoal da Elotech e o que ele me passou é que podemos gerar o xml sem assinatura e enviar pelo SITS que é um sistema utilizado somente para assinatura e envio. Seria uma alternativa !!! Obrigado

Pelo que eu ouvi falar, somente BH usa a mesma forma de assinatura... ainda não consegui nda

Confirmada a mudança de FintellISS para EloTech em Ponta Grossa.

Estou tendo o mesmo problema na hora de transmitir NFSe

Resolvido... O meu problema era que meu cliente usava como email padrão hotmail gratis, dessa forma nao consegue enviar email fora do site e com isso o sistema não conseguia enviar email. colocaquei a propriedade ACBRMail1.From:= ACBRMail1.UserName que usa um email privado.

Bom dia. Mesmo preenchendo as duas propriedades continua não enviando email. Estou usando o mesmo metodo que já usava antes e estou no trunk 2. Mais um detalhe, que no progresso, mostra como se estivesse tudo ok.

Isso que retorna <?xml version="1.0" encoding="UTF-8" ?> - <env:Envelope xmlns:env="http://www.w3.org/2003/05/soap-envelope"> - <env:Header xmlns:env="http://www.w3.org/2003/05/soap-envelope"> - <nfeCabecMsg xmlns="http://www.portalfiscal.inf.br/nfe"> <cUF>41</cUF> <versaoDados>3.10</versaoDados> </nfeCabecMsg> </env:Header> - <env:Body xmlns:env="http://www.w3.org/2003/05/soap-envelope"> - <nfeStatusServicoNFResult xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico3"> - <retConsStatServ versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe"> <tpAmb>1</tpAmb> <verAplic>PR-v3_4_3</verAplic> <cStat>999</cStat> <xMotivo>Erro não catalogado</xMotivo> <cUF>41</cUF> <dhRecbto>2015-10-17T16:26:30-03:00</dhRecbto> <xObs>gov.pr.fazenda.nfe.modelo.exception.ParserXMLException: Não foi possível localizar o esquema: consStatServ_v3.10.xsd</xObs> </retConsStatServ> </nfeStatusServicoNFResult> </env:Body> </env:Envelope>

Está atualizado no trunk 2, o que da pra perceber que quando consulta status, as vezes retorna 107 que é ok como as vezes retorna 999 que é não catalogado.

Bom dia Estou com o mesmo problema, alguma novidade ??

Bom dia Juliomar... Obrigado pela atenção... mais consegui corrigir o problema usando roundABNT(Valor,-2) na minha classe de calculos. Att:

Boa noite... Estou usando o trunk2 e tambem estou com problemas no arredondamento.

Bom dia Eu fiz algumas alterações para mostrar os itens, estou colocando as alterações aqui para que possa ser analisada. Obrigado pnfsNFSeR.pas pcnLeitor.pas ACBrNFSeDANFSeRLRetrato.pas

Boa tarde Juliana... Consegue subir as alterações que passei... está funcionando corretamente a cobrança mais toda vez que atualizo o acbr preciso voltar os meus fontes. Se possível, agradeço. Att:

Participei do inicio mais infelizmente por falta de tempo fiquei sem poder colaborar, se necessária a minha ajuda... estou a disposição. Lembrando que ainda uso a mesma do começo e funciona muito bem pra mim. Att

Boa tarde Juliana... sabe me dizer se ja tem na impressão do boleto Santander o comprovante de entrega ? Obrigado

Bom dia... tive que fazer algumas alterações no retorno do Santander... Alguém esta usando o mesmo no layout 240 ???

Bom dia... Pelo que eu estava conversando com o pessoal do banco, posso ter cobrança registrada com forma de cadastramento sem registro como posso ter com registro, por esse motivo optei por criar um campo separado. Posso ter interpretado errado, mais consegui homologar tanto com registro quanto sem registro, estou analisando o retorno agora. Obrigado pela atenção.

Quando é sem registro posso manda a forma de cadastramento '1' conforme estava no codigo do componente... mais como eu tenho clientes com e sem registro, precisei criar essa opção para definir dentro do cadastro da carteira. ... case ACBrTitulo.FormaCadastramento of fcRegistrada : sFormaCadastramento:= '1'; {Forma de Cadastramento Registrada} fcSemRegistro : sFormaCadastramento:= '2'; {Forma de Cadastramento Sem Registro} end; ... -> Estava dessa forma {SEGMENTO P} Result := '033' + // 001 - 003 / Código do Banco na compensação '0001' + // 004 - 007 / Numero do lote remessa '3' + // 008 - 008 / Tipo de registro IntToStrZero(ISequencia ,5) + // 009 - 013 / Número seqüencial do registro no lote 'P' + // 014 - 014 / Cód. Segmento do registro detalhe Space(1) + // 015 - 015 / Reservado (uso Banco) sCodMovimento + // 016 - 017 / Código de movimento remessa Copy(sAgencia, 1, 4) + // 018 – 021 / Agência do Cedente Copy(sAgencia, 5, 1) + // 022 – 022 / Dígito da Agência do Cedente Copy(sCCorrente, 1, 9) + // 023 - 031 / da conta corrente Copy(sCCorrente, 10, 1) + // 032 – 032 / Dígito verificador da conta Copy(sCCorrente, 1, 9) + // 033 - 041 / Conta cobrança Copy(sCCorrente, 10, 1) + // 042 - 042 / Dígito da conta cobrança Space(2) + // 043 - 044 / Reservado (uso Banco) NossoNumero + sDigitoNossoNumero + // 045 – 057 / Identificação do título no Banco (Nosso Número sTipoCobranca + // 058 - 058 / Tipo de cobrança '1' + // 059 - 059 / Forma de Cadastramento = 1 Registrada / 2 Sem Registro sTipoDocto + // 060 - 060 / Tipo de documento Space(1) + // 061 - 061 / Reservado (uso Banco) Space(1) + // 062 - 062 / Reservado (uso Banco) PadL(Copy(SeuNumero, 1, 15), 15) + // 063 - 077 / Nº do documento FormatDateTime('ddmmyyyy',Vencimento) + // 078 - 085 / Data de vencimento do título IntToStrZero(round(ValorDocumento * 100), 15) + // 086 - 100 / Valor nominal do título PadR('0', 4, '0') + // 101 - 104 / Agência encarregada da cobrança '0' + // 105 - 105 / Dígito da Agência encarregada da cobrança Space(1) + // 106 - 106 / Reservado (uso Banco) sEspecie + // 107 – 108 / Espécie do título ifThen(Aceite = atSim, 'S', 'N') + // 109 - 109 / Identif. de título Aceito/Não Aceito FormatDateTime('ddmmyyyy',DataDocumento) + // 110 - 117 / Data da emissão do título STipoJuros + // 118 - 118 / Código do juros de mora sDataMoraJuros + // 119 - 126 / Data do juros de mora IntToStrZero(round(ValorMoraJuros * 100), 15) + // 127 - 141 / Valor da mora/dia ou Taxa mensal sTipoDesconto + // 142 - 142 / Código do desconto 1 sDataDesconto + // 143 - 150 / Data de desconto 1 IntToStrZero(round(ValorDesconto * 100), 15) + // 151 - 165 / Valor ou Percentual do desconto concedido IntToStrZero(round(ValorIOF * 100), 15) + // 166 - 180 / Valor do IOF a ser recolhido IntToStrZero(round(ValorAbatimento * 100), 15) + // 181 - 195 / Valor do abatimento padL(NossoNumero, 25) + // 196 - 220 / Identificação do título na empresa Instrucao1 + // 221 - 221 / Código para protesto sDiasProtesto + // 222 - 223 / Número de dias para protesto Instrucao2 + // 224 - 224 / Código para Baixa/Devolução '0' + // 225 - 225 / Reservado (uso Banco) '00' + // 226 - 227 / Número de dias para Baixa/Devolução '00' + // 228 - 229 / Código da moeda Space(11) ; // 230 – 240 / Reservado (uso Banco) {SEGMENTO P - FIM} <- -> Ficou assim {SEGMENTO P} Result := '033' + // 001 - 003 / Código do Banco na compensação '0001' + // 004 - 007 / Numero do lote remessa '3' + // 008 - 008 / Tipo de registro IntToStrZero(ISequencia ,5) + // 009 - 013 / Número seqüencial do registro no lote 'P' + // 014 - 014 / Cód. Segmento do registro detalhe Space(1) + // 015 - 015 / Reservado (uso Banco) sCodMovimento + // 016 - 017 / Código de movimento remessa Copy(sAgencia, 1, 4) + // 018 – 021 / Agência do Cedente Copy(sAgencia, 5, 1) + // 022 – 022 / Dígito da Agência do Cedente Copy(sCCorrente, 1, 9) + // 023 - 031 / da conta corrente Copy(sCCorrente, 10, 1) + // 032 – 032 / Dígito verificador da conta Copy(sCCorrente, 1, 9) + // 033 - 041 / Conta cobrança Copy(sCCorrente, 10, 1) + // 042 - 042 / Dígito da conta cobrança Space(2) + // 043 - 044 / Reservado (uso Banco) NossoNumero + sDigitoNossoNumero + // 045 – 057 / Identificação do título no Banco (Nosso Número sTipoCobranca + // 058 - 058 / Tipo de cobrança sFormaCadastramento + // 059 - 059 / Forma de Cadastramento = 1 Registrada / 2 Sem Registro sTipoDocto + // 060 - 060 / Tipo de documento Space(1) + // 061 - 061 / Reservado (uso Banco) Space(1) + // 062 - 062 / Reservado (uso Banco) PadL(Copy(SeuNumero, 1, 15), 15) + // 063 - 077 / Nº do documento FormatDateTime('ddmmyyyy',Vencimento) + // 078 - 085 / Data de vencimento do título IntToStrZero(round(ValorDocumento * 100), 15) + // 086 - 100 / Valor nominal do título PadR('0', 4, '0') + // 101 - 104 / Agência encarregada da cobrança '0' + // 105 - 105 / Dígito da Agência encarregada da cobrança Space(1) + // 106 - 106 / Reservado (uso Banco) sEspecie + // 107 – 108 / Espécie do título ifThen(Aceite = atSim, 'S', 'N') + // 109 - 109 / Identif. de título Aceito/Não Aceito FormatDateTime('ddmmyyyy',DataDocumento) + // 110 - 117 / Data da emissão do título STipoJuros + // 118 - 118 / Código do juros de mora sDataMoraJuros + // 119 - 126 / Data do juros de mora IntToStrZero(round(ValorMoraJuros * 100), 15) + // 127 - 141 / Valor da mora/dia ou Taxa mensal sTipoDesconto + // 142 - 142 / Código do desconto 1 sDataDesconto + // 143 - 150 / Data de desconto 1 IntToStrZero(round(ValorDesconto * 100), 15) + // 151 - 165 / Valor ou Percentual do desconto concedido IntToStrZero(round(ValorIOF * 100), 15) + // 166 - 180 / Valor do IOF a ser recolhido IntToStrZero(round(ValorAbatimento * 100), 15) + // 181 - 195 / Valor do abatimento padL(NossoNumero, 25) + // 196 - 220 / Identificação do título na empresa Instrucao1 + // 221 - 221 / Código para protesto sDiasProtesto + // 222 - 223 / Número de dias para protesto Instrucao2 + // 224 - 224 / Código para Baixa/Devolução '0' + // 225 - 225 / Reservado (uso Banco) '00' + // 226 - 227 / Número de dias para Baixa/Devolução '00' + // 228 - 229 / Código da moeda Space(11) ; // 230 – 240 / Reservado (uso Banco) {SEGMENTO P - FIM} <-

Fiz alterações para cobrança Santander... estou com ela em processo de homologação já... Sem Registro 100% funcionando. Aguardando homologação da cobrança com registro agora. Estou anexando os aquivos. Foi incluso o campo "Forma de Cadastramento". ACBrBoleto.pas ACBrBancoSantander.pas

Boa tarde Fiz a remessa do Santander mais ainda não testei, e se precisa de ajuste, anexo o corrigido. ACBrBancoSantander.pas

Depois de vários meses fora, estou de volta e se alguém tiver interesse em da continuidade no projeto, estou a disposição !!!

Boa Tarde Juliana... Remessa: OK. Retorno: Em Teste. Estou eu implementei o retorno agora e não testei ainda... logo que ajustado eu anexo novamente a unit para atualizar. Obrigado ACBrBancoMercantil.pas