emarcolongo

Utilizei o que disse mesmo para não dar tanta volta. Muito obrigado,

acredito que se eu explicar o que preciso pode facilitar. eu carrego um xml externo no componente e tento manda-lo para a receita nesse caso vai retornar 204 porque a nota já esta lá mesmo qdo retornar esse 204 eu preciso saber qual o numero do protocolo que a receita registrou de que forma eu poderia ter esse retorno ? antes de alterar para a forma Sincrona em 01/09 eu conseguia pelo codigo abaixo: if (fprincipal.ACBrNFe1.NotasFiscais.Items[0].cStat = 204) then begin sMsg := IntToStr(fprincipal.ACBrNFe1.NotasFiscais.Items[0].cStat)+#13#10+sFile+#13#10+ fprincipal.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo+#13#10+ fprincipal.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt; end; Grato

mas ele esta em branco. minha rotina esta assim: fprincipal.ACBrNFe1.NotasFiscais.LoadFromFile(ASParams.Arquivo); fprincipal.ACBrNFe1.NotasFiscais.GerarNFe; try fprincipal.ACBrNFe1.Enviar(1,false,true); if (fprincipal.ACBrNFe1.NotasFiscais.Items[0].Confirmada = true) then begin fprincipal.ACBrNFe1.DANFE := fprincipal.ACBrDanfe1; fprincipal.ACBrDanfe1.Logo := ASParams.Logotipo; fprincipal.ACBrDanfe1.PathPDF := ASParams.DirPDF; fprincipal.ACBrNFe1.NotasFiscais.Items[0].ImprimirPDF; end else ufuncoes.gravar_log(IntToStr(fprincipal.ACBrNFe1.NotasFiscais.Items[0].cStat)+#13#10+sFile+#13#10+'Nota não Confirmada',ASParams.Usuario); except on E: Exception do begin if ((erro = false) and (fprincipal.ACBrNFe1.WebServices.Enviar.cStat <> 204)) then ufuncoes.gravar_log('999'+#13#10+e.Message+#13#10+IntToStr(fprincipal.ACBrNFe1.WebServices.Enviar.cStat),ASParams.Usuario); if ((erro = false) and (fprincipal.ACBrNFe1.WebServices.Enviar.cStat = 204)) then begin sMsg := IntToStr(fprincipal.ACBrNFe1.WebServices.Enviar.cStat)+#13#10+sFile+#13#10+ fprincipal.ACBrNFe1.WebServices.Enviar.xMotivo+#13#10+ fprincipal.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt; ufuncoes.gravar_log(sMsg,ASParams.Usuario); end; erro := true; end; end; anteriormente esse protocolo aparecia

Boa tarde, Juliomar Eu informei que retornou o que eu precisava, porém ainda preciso do nr. do protocolo e WebServices.Enviar.Protocolo esta retornando em branco, como posso conseguir ?

Obrigado, retornou o que eu precisava

Bom dia. Estou enviando uma nota fiscal porem a mesma ja esta na receita então tenho ciencia que ira retornar duplicidade, porém anteriormente eu conseguia validar o cstat mas hoje retorna 0. Preciso pegar de outra forma ? if (fprincipal.ACBrNFe1.NotasFiscais.Items[0].cStat = 204) then begin sMsg := IntToStr(fprincipal.ACBrNFe1.NotasFiscais.Items[0].cStat)+#13#10+sFile+#13#10+ fprincipal.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo+#13#10+ fprincipal.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt; end; Grato

Obrigado, vou fazer isso.

sim, tivemos problemas na gravação dos dados, mas o banco registrou o titulo pois a geração do cnab estava correta. no caso, não tem alguma propriedade que eu possa desativar e passar o nosso numero completo ao inves o componente calcular ?

Boa tarde. O boleto abaixo foi impresso como segunda via diretamente do site do banco. Se eu tento gerar esse boleto no exemplo do ACBRBoleto o campo nosso numero fica diferente, 0000001015680 e nao 0000000101568 como esta no boleto. Existe algum parametro em que eu possa passar o numero já direto, sem que o componente calcule o digito ? Grato

Bom dia, Estou começando a desenvolver a importação do arquivo ofx e pesquisando sobre sua estrutura achei a informação que a tag <fitid> deveria ser unica, desta forma estou validando em meu banco de dados essa informação. Porém notei que nos bancos Itau e Santander um mesmo movimento pode ter mais de um fitID No Itau tinha um arquivo que veio o seguinte movimento <STMTTRN> <TRNTYPE>DEBIT <DTPOSTED>20250515100000[-03:EST] <TRNAMT>-232000.00 <FITID>20250515009 <CHECKNUM>20250515009 <MEMO>SISPAG FORNECEDORES </STMTTRN> Ao baixar um novo arquivo do mesmo periodo esse lcto veio com outro FITID <STMTTRN> <TRNTYPE>DEBIT <DTPOSTED>20250515100000[-03:EST] <TRNAMT>-232000.00 <FITID>20250515008 <CHECKNUM>20250515008 <MEMO>SISPAG FORNECEDORES </STMTTRN> Como trabalhar com essas inconsistencias e garantir que ao processar o arquivo novamente não seja necessário conciliar tudo novamente, uma vez que esse valor já foi conciliado. Grato

Em alguns casos ao tentar enviar uma nota fiscal retorna o cStat = 204 Existe alguma forma de pegar o numero do protocolo que esta no site da receita com deste retorno ? Grato

percebi a situação O que ocorre é que mesmo alterando para o cobItau no combobox do banco esta mantendo o anterior. foi necessário gravar o ini e depois consegui isso ocorre na aplicação do exemplo. vou continuar meus testes, obrigado.

Boa tarde. Estou começando meu estudo no componente, por esse motivo estou utilizando um boleto de cliente para replica-lo no exemplo do componente. Ao preencher o campo carteira do banco Itau com o codigo 109 percebi que na impressão o mesmo aparece como 10 e desta forma o digito verificador do compo nosso número fica errado. Além disto tenho um outro boleto do Santander que na carteira esta a expressão DESCONTO Como devo proceder ? pois testei várias configurações e não obtive sucesso. Grato

Obrigado, Verifiquei com a contabilidade que orientou a fazer a nota com o valor correto de icms já que no estado (SC) acontece a validação.

Bom dia. Um cliente adquiriu uma mercadoria importada e é necessário fazer a nota de entrada. Recebemos uma nota do despachante com a finalidade de nota = 1 e o valor de icms abaixo Base de Calculo: 65.547,06 % ICMS: 17 Vlr.Icms: 11.143,04 Ao fazer o calculo (65547.06 * 0,17) = 11.143,00 o que vai provocar a rejeição 528 Porém essa nota do despachante esta autorizada pela receita mesmo com a diferença, como se trata de uma nota em que o cliente precisa fazer a entrada todos os valores devem estar iguais. Alguém tem alguma ideia de como conseguiram fazer uma nota desta forma ? ou o que preciso configurar para emitir de forma igual ? Grato

Boa tarde. Estou seguindo o exemplo do ACBrMail para envio do xml e danfe, porém o nome dos meus anexos estão sendo enviados como o nome do arquivo e não o que estou especificando. Compilei o exemplo e ocorre a mesma coisa Alguem conseguiu contornar ou faz de algum outro jeito ? ACBrMail1.AddAttachment(Dir + '35150905481336000137550010000111291000111298-nfe.pdf', 'DANFE', adAttachment); No codigo acima era para o anexo ter o nome de Danfe mas vem a chave (35150905481336000137550010000111291000111298-nfe.pdf). Grato

Boa tarde Fizemos uma alteração na leitura do arquivo ini Adicionamos a tag IndApurIR dentro do bloco ItensRemun do idePeriodo linha 1675 with itensRemun.New do begin codRubr := sFim; ideTabRubr := INIRec.ReadString(sSecao, 'ideTabRubr', ''); qtdRubr := StringToFloatDef(INIRec.ReadString(sSecao, 'qtdRubr', ''), 0); fatorRubr := StringToFloatDef(INIRec.ReadString(sSecao, 'fatorRubr', ''), 0); vrUnit := StringToFloatDef(INIRec.ReadString(sSecao, 'vrUnit', ''), 0); vrRubr := StringToFloatDef(INIRec.ReadString(sSecao, 'vrRubr', ''), 0); indApurIR := eSStrToTpindApurIR(ok, INIRec.ReadString(sSecao, 'indApurIR', '0')); //09/02/2023 end; pcesS1200.pas

Bom dia. Fizemos uma alteração na leitura do arquivo ini o exMedOcup.tpExameOcup deveria esta na seção exMedOcup sSecao := 'aso'; exMedOcup.aso.DtAso := StringToDateTime(INIRec.ReadString(sSecao, 'dtAso', '0')); //exMedOcup.tpExameOcup := eSStrToTpExameOcup(Ok, INIRec.ReadString(sSecao, 'tpAso', '0')); //02/05/2022 exMedOcup.aso.ResAso := eSStrToResAso(Ok, INIRec.ReadString(sSecao, 'resAso', '1')); sSecao := 'exMedOcup'; //02/05/2022 exMedOcup.tpExameOcup := eSStrToTpExameOcup(Ok, INIRec.ReadString(sSecao, 'tpExameOcup', '0')); //02/05/2022 pcesS2220.pas

Bom dia. Fizemos um ajuste no pcesS2205 na leitura do arquivo INI como segue abaixo: //sexoDep := INIRec.ReadString(sSecao, 'sexoDep', 'F'); //25/04/2022 sexoDep := INIRec.ReadString(sSecao, 'sexoDep', ''); //25/04/2022 linha 399 Desta forma não vai ocorrer mais erros. pcesS2205.pas

Bom dia. Eu modifiquei meu programa para leitura de outra forma. Vou testar da forma sugerida e em seguida informo. Grato

Fizemos ajustes na leitura do arquivo INI para ficha S2200 with trabalhador.Dependente.New do begin tpDep := eSStrToTpDep(Ok, sFim); nmDep := INIRec.ReadString(sSecao, 'nmDep', ''); dtNascto := StringToDateTime(INIRec.ReadString(sSecao, 'dtNascto', '0')); cpfDep := INIRec.ReadString(sSecao, 'cpfDep', ''); //sexoDep := INIRec.ReadString(sSecao, 'sexoDep', 'F'); //25/04/2022 -- valor padrao sexoDep := INIRec.ReadString(sSecao, 'sexoDep', ''); //25/04/2022 -- retirando valor padrao depIRRF := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'depIRRF', 'S')); depSF := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'depSF', 'S')); incTrab := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'incTrab', 'S')); end; No codigo abaixo fizemos a verificação da versão sSecao := 'sucessaoVinc'; {if INIRec.ReadString(sSecao, 'cnpjEmpregAnt', '') <> '' then //28/04/2022 begin vinculo.sucessaoVinc.tpInscAnt := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInscAnt', '1')); vinculo.sucessaoVinc.cnpjEmpregAnt := INIRec.ReadString(sSecao, 'cnpjEmpregAnt', ''); vinculo.sucessaoVinc.MatricAnt := INIRec.ReadString(sSecao, 'matricAnt', ''); vinculo.sucessaoVinc.dtTransf := StringToDateTime(INIRec.ReadString(sSecao, 'dtTransf', '0')); vinculo.sucessaoVinc.Observacao := INIRec.ReadString(sSecao, 'observacao', ''); end;} if ((INIRec.ReadString(sSecao, 'cnpjEmpregAnt', '') <> '') and (TACBreSocial(FACBreSocial).Configuracoes.Geral.VersaoDF <= ve02_05_00)) then //28/04/2022 begin vinculo.sucessaoVinc.tpInscAnt := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInscAnt', '1')); vinculo.sucessaoVinc.cnpjEmpregAnt := INIRec.ReadString(sSecao, 'cnpjEmpregAnt', ''); vinculo.sucessaoVinc.MatricAnt := INIRec.ReadString(sSecao, 'matricAnt', ''); vinculo.sucessaoVinc.dtTransf := StringToDateTime(INIRec.ReadString(sSecao, 'dtTransf', '0')); vinculo.sucessaoVinc.Observacao := INIRec.ReadString(sSecao, 'observacao', ''); end; if ((INIRec.ReadString(sSecao, 'tpInsc', '') <> '') and (TACBreSocial(FACBreSocial).Configuracoes.Geral.VersaoDF > ve02_05_00)) then //28/04/2022 begin vinculo.sucessaoVinc.tpInsc := eSStrToTpInscricao(Ok, INIRec.ReadString(sSecao, 'tpInsc', '1')); vinculo.sucessaoVinc.nrInsc := INIRec.ReadString(sSecao, 'nrInsc', ''); vinculo.sucessaoVinc.MatricAnt := INIRec.ReadString(sSecao, 'matricAnt', ''); vinculo.sucessaoVinc.dtTransf := StringToDateTime(INIRec.ReadString(sSecao, 'dtTransf', '0')); vinculo.sucessaoVinc.Observacao := INIRec.ReadString(sSecao, 'observacao', ''); end; Segue fonte para avaliação pcesS2200.pas

Olá Alex Os schemas que estou utilizando são os baixados pelo pacote e conferi o caminho, estão certinhos. Alguma outra sugestão ? Grato

Bom dia, Ao consultar um evento 2240 com o protocolo o eSocial retorna a seguinte mensagem: Não consegui identificar o que há de errado, pois o envio foi feito normalmente, se fosse algo na assinatura acredito que não devia nem enviar. Alguma sugestão ? Grato

Bom dia. Consegui avançar um pouco nesta questão e verifiquei que é necessário ter no arquivo INI um ID=", porém não entendi como coloca-lo. Alguem sabe ? Grato

Boa tarde. Estou tentando carregar um arquivo INI pelo programa de exemplo procedure TfrmACBreSocial.btnCarregarINIClick(Sender: TObject); var i: Integer; begin OpenDialog1.Title := 'Selecione o Evento (Arquivo INI)'; OpenDialog1.DefaultExt := '*.ini'; OpenDialog1.Filter := 'Arquivos INI (*.ini)|*.ini|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBreSocial1.Configuracoes.Arquivos.PathSalvar; if OpenDialog1.Execute then ACBreSocial1.Eventos.LoadFromINI(OpenDialog1.FileName); MemoResp.Clear; MemoResp.Lines.Clear; MemoResp.Lines.Add('INI de Eventos Carregado com Sucesso!'); MemoResp.Lines.Add(' '); for I := 0 to ACBreSocial1.Eventos.Gerados.Count -1 do begin MemoResp.Lines.Add('Tipo Evento.: ' + TipoEventoToStr(ACBreSocial1.Eventos.Gerados.Items[i].TipoEvento)); MemoResp.Lines.Add('Evento Salvo: ' + ACBreSocial1.Eventos.Gerados.Items[i].PathNome); end; pgRespostas.ActivePageIndex := 2; end; Após selecionar o arquivo INI (inclusive os da pasta INI do projeto de exemplo) a linha for I := 0 to ACBreSocial1.Eventos.Gerados.Count -1 do Sempre retorna ACBreSocial1.Eventos.Gerados.Count = 0 Anteriormente conseguia utilizar normalmente, houve alguma alteração ? O INI continuará a ser suportado ? Grato