JGarcia

Boa tarde Consegui resolver // 422: Result := cobSafraBradesco; 422: Result := cobBancoSafra; Alterei essa instrução no ACBrBoleto. deu certo... Obrigado Juliana Valeu ImdSistemas pelo retorno.

bom dia. uso Fast "BoletoFR.fr3". No proprio ACbrBoletoDemo que vem como exemplo, não chama essa função, o boleto sai exatamente como eu mandei acima. eu preciso mudar mesmo que seja o fonte acbr por enquanto, mas nao consigo saber qual funcao esta chamando.

boa tarde Não da certo Tbem Juliana e a conta é 580712-2 nao pode ser da forma que vc citou. function TACBrBancoSafra.MontarCampoCodigoCedente( const ACBrTitulo: TACBrTitulo): string; begin with ACBrTitulo.ACBrBoleto.Cedente do begin Result := PadLeft(Agencia, 4, '0') + PadLeft(AgenciaDigito, 1, '0') + '/' + PadLeft(ACBrBoleto.Cedente.Conta, 8, '0') + PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0'); end; end; esta função é exatamente oq o banco quer. mas o acbr não le ela e mais esta pegando Cedente.Convenio para formar o codigo do beneciario e não Cedente.Conta. ja atualizei os fontes via SVN e nao consigo. e o banco quer para segunda feira no maximo.

? bom dia Juliana. BDados.ACBrBoleto1.Cedente.Agencia := '1450' BDados.ACBrBoleto1.Cedente.AgenciaDigito := '0' BDados.ACBrBoleto1.Cedente.Conta := '580712' BDados.ACBrBoleto1.Cedente.ContaDigito := '2' Mas a questao esta no formato do campo O Banco quer o campo Agencia/Codigo do beneficiario dessa forma: 14500/005807122 o Acbr imprime no boleto 01450/58071-2 segue anexo

Obs.. O arquivo remessa sai certinho Fontes atualizados

Agência Safra: 14500 - Cuiaba Conta Safra: 580712-2 O Banco quer o campo Agencia/Codigo do beneficiario 14500/005807122 o Acbr imprime no boleto 01450/58071-2 estou passando dessa forma para o componente; 422 : BDados.ACBrBoleto1.Banco.TipoCobranca := cobBancoSafra; {422} BDados.ACBrBoleto1.Cedente.Agencia := Trim(BDados.IBQuery1.FieldByName('Agencia').AsString); BDados.ACBrBoleto1.Cedente.AgenciaDigito := Trim(BDados.IBQuery1.FieldByName('AG_DV').AsString); BDados.ACBrBoleto1.Cedente.Conta := Trim(BDados.IBQuery1.FieldByName('Conta').AsString); BDados.ACBrBoleto1.Cedente.ContaDigito := Trim(BDados.IBQuery1.FieldByName('CC_DV').AsString); function TACBrBancoSafra.MontarCampoCodigoCedente( const ACBrTitulo: TACBrTitulo): string; begin with ACBrTitulo.ACBrBoleto.Cedente do begin Result := PadLeft(Agencia, 4, '0') + PadLeft(AgenciaDigito, 1, '0') + '/' + PadLeft(ACBrBoleto.Cedente.Conta, 8, '0') + PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0'); end; end; esta funcao acima esta correta. mas acredito que o acbr nao esta lendo ela. e nao sei onde ele esta buscando.

Bom dia Ramon. Obrigado por responder... mas não é isso não... mesmo que eu retire o eSucesso e o ShowMessage('01') e deixe apenas o precedimento EnviarEmail()... Ele não executa a exceção. Mesmo que falhe o envio..(O componente ACBR mostra a exceção) mas ela não é tratada pelo except. Abracos.... Jadir Garcia

Boa tarde... Talvez ja tenha a solução em algum lugar, mas não consegui encontrar. Mas seguinte... Geração, impressão, pdf..... dos boletos tudo 100%. (Show de bola); Apenas não consigo tratar a exceção caso o envio do boleto via email falhe. A exceção é exibida na tela... mas o Try... except não a reconhece. sCC:=TStringList.Create; sCC.Clear; // Usando para add outros e-mail como Com-Cópia try ACBrBoleto1.EnviarEmail(edtSmtpHost, edtSmtpPort, edtSmtpUser, edtSmtpPass, Trim(Edit7.Text), // email do remetente Trim(Edit1.Text), // e-mail do destinatário Trim(Edit6.Text), // Assunto Memo1.Lines, // Mensagem cbEmailSSL, // SSL True, // Enviar em PDF sCC, // sCC nil, // Anexos True, // Pede Confirmação de Recebimento True, // Aguarda o Envio Trim(BDados.TbEmpresaNOMEEMP.Text), // Nome do remetente True); // TLS eSucesso := true; ShowMessage('01'); except on e: Exception do begin eSucesso := false; ShowMessage(e.Message); ShowMessage('02'); end; end; sCC.Free; O ShowMessage('01') é retornado em qualquer situação, dando erro ou não. Se alguem ja passou por isso... e puder me dar uma luz.. eu ficarei grato. Abraços... Jadir Garcia.

Blz. Jeter e Anderson.. É isso mesmo, o controle é feito na hora q eu gero o boleto, basta eu alimentar a lista novamente no final do dia e gerar a remessa. Valeu mesmo pela ajuda.... Abraços...

Bom dia .. Boleto 100%.... Só uma divida em relação ao gerar remessa; Tipo assim: o cliente faz varios serviços durante o dia, ou seja, emite a nfse e o boleto e entrega ao cliente dele. até aí blz. Mas como eu faço para no final do dia gerar o arquivo remessa desses boletos? sendo que o componente zera a lista de boletos caso eu saia do sistema. Abraços Jadir Garcia.

Opa.. blz.. Juliomar.. vou fazer isso.. Obrigado.. Abraços.

Bom dia Italo.. Deu tudo certo aqui comigo. NFSe 100% (Show de bola); Boleto 100%.... Só uma divida em relação ao gerar remessa; Tipo assim: o cliente faz varios serviços durante o dia, ou seja, emite a nfse e o boleto e entrega ao cliente dele. até aí blz. Mas como eu faço para no final do dia gerar o arquivo remessa desses boletos? sendo que o componente zera a lista de boletos caso eu saia do sistema. Abraços Jadir Garcia.

Blz Italo, vou continuar tentando. Abraços.

Bom dia Italo. Eu sei q vc não tem culpa por eu não estar conseguindo. Mas derrepente alguem ja pasou por isso e pode me dar uma luz. Compilei o Demo_ACBrNFSe com delphi2007 e win7 estou usando Gerar e enviar lote RPS Pedi a liberação para o ambiente de homologacao do iss.net Cuiaba, MT. Ja recebi o email de confirmacao da liberacao ja acessei o ISS.NET online com a senha q me passaram, e estão la os 50 RPS liberados para homologacao. Tenho certificado A1 valido. Configurei tudo certinho no demo Ajustei o AlimentaComponente() para homologacao no IssNet. mas o retorno é sempre o mesmo: <MensagemRetorno> <Codigo>E157</Codigo> <Mensagem> Usuario nao esta autorizado a utilizar esse servico para esse contribuinte. </Mensagem> <Correcao>Solicite ao contribuinte autorizacao para utilizar o servico em seu nome.</Correcao> independente de eu configurar o demo para producao ou hologacao é sempre a mesma resposta. vou anexar o lote gerado. Eu sei q devo ta fazendo algo errado, mas não consigo saber onde é a minha falha. onde eu vejo no lote ou no rps para qual ambiente esta sendo enviado? Abraços.. Jadir Garcia. 33-env-lot.xml 33-rec.xml

Bom dia Italo... grato pela sua resposta. Pelo visto vc dorme bem pouco heim. vou providenciar o cadastro e logo mais posto o resultado. Abraços... Jadir Garcia.

Boa noite Italo. Qualquer tentativa que eu faça no webservice da prefeitura de cuiaba,mt, (ISS.NET) me retorna o seguinte: E157: “Usuário não esta autorizado a utilizar esse serviço para esse contribuinte”. e todos os dados estao corretos: CNPJ, mesmo do certificado, IE, Inscricao municipal, tudo. então oq eu preciso saber é se deve ser feito algum registro ou se deve pedir alguma autorização da prefeitura para cada prestador. Ou oq pode levar a essa rejeicao pela prefeitura. OBS. ja revirei a net a procura disso e não encontrei. Abraços. Jadir Garcia.

Bom dia Italo.... fica tranquilo, vasculhei os fontes do ACBr, ja progredi, eu tava pecando nas formas de envio mesmo. Ainda nao consegui enviar mas sei onde to errando vou continuar, caso eu não consiga, eu falo com vc de novo. Brigadão.... Abraço...

Sim Italo da a mesma msg... ele gera o RPS e depois da essa msg. E la no exemplo, qualquer cidade que eu escolher com provedor WebISS da essa mesma msg so muda o local do arquivo. e para cuiaba por exemplo (ISSNET) da: "a funcionabilidade [ Gerar NFSe ] não foi disponibilizada pelo provedor. e o ACBr esta atualizadissimo. Mas eu vou continuar na batalha.. se vc tiver algo q me ajude, blz, senao eu vou lutar até o fim. Acredito q eu esteja pecando em algum lugar, pq mesmo mandanda para Araraquara (GINFES), sua cidade, da: "a funcionabilidade [ Gerar NFSe ] não foi disponibilizada pelo provedor.

Boa tarde Italo... Por acaso o ACBrNFSe ja atende o município de Sinop-MT (5107909). (WebISS). ou tem alguma previsão.. ou alguma sugestão para me ajudar.?.. Abraços... Jadir Garcia. Olhando melhor nos posts, sei que ja atende. Mas diz que o schema nao foi encontrado. "Arquivo C:\SacWin\NFSe\Schemas\WebISS\ não encontrado" é exatamente onde estao os schemas.