JGarcia
-
Total de ítens
19 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por JGarcia
-
-
1 hora atrás, Juliana Tamizou disse:
Bom dia.
Esta função foi criada para ser utilizada sempre na impressão do código do cedente, vc debugou e realmente a mesma não foi chamada?
Qual gerador de relatórios vc está utilizando?
Att,
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.
-
26 minutos atrás, Juliana Tamizou disse:
Boa tarde.
Teste da seguinte forma:
Cedente.Agencia = 0145
Cedente.Conta = 58071
Att.
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.
-
1 hora atrás, Juliana Tamizou disse:Bom dia.
Sm você informar os valores contidos em eu bd fica um pouco dificil lhe auxiliar.
Att.
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/005807122o Acbr imprime no boleto
01450/58071-2segue anexo
-
12 minutos atrás, JGarcia disse:
Agência Safra: 14500 - Cuiaba
Conta Safra: 580712-2O Banco quer o campo Agencia/Codigo do beneficiario
14500/005807122o Acbr imprime no boleto
01450/58071-2estou 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.Obs.. O arquivo remessa sai certinho
Fontes atualizados
-
Agência Safra: 14500 - Cuiaba
Conta Safra: 580712-2O Banco quer o campo Agencia/Codigo do beneficiario
14500/005807122o Acbr imprime no boleto
01450/58071-2estou 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ópiatryACBrBoleto1.EnviarEmail(edtSmtpHost,edtSmtpPort,edtSmtpUser,edtSmtpPass,Trim(Edit7.Text), // email do remetenteTrim(Edit1.Text), // e-mail do destinatárioTrim(Edit6.Text), // AssuntoMemo1.Lines, // MensagemcbEmailSSL, // SSLTrue, // Enviar em PDFsCC, // sCCnil, // AnexosTrue, // Pede Confirmação de RecebimentoTrue, // Aguarda o EnvioTrim(BDados.TbEmpresaNOMEEMP.Text), // Nome do remetenteTrue); // TLSeSucesso := true;ShowMessage('01');excepton e: Exception dobegineSucesso := 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çosJadir Garcia.
-
-
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.
-
-
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 win7estou usando Gerar e enviar lote RPSPedi a liberação para o ambiente de homologacao do iss.net Cuiaba, MT.Ja recebi o email de confirmacao da liberacaoja 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 demoAjustei 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.
-
-
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.
-
-
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.
Problema Homologação Boleto Banco Safra
em ACBrBoleto
Postado
Boa tarde
Consegui resolver
// 422: Result := cobSafraBradesco;
422: Result := cobBancoSafra;
Alterei essa instrução no ACBrBoleto.
deu certo...
Obrigado Juliana
Valeu ImdSistemas pelo retorno.