emarcolongo
Membros-
Total de ítens
72 -
Registro em
-
Última visita
-
Days Won
1
emarcolongo last won the day on 15 Maio 2021
emarcolongo had the most liked content!
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
emarcolongo's Achievements
-
Rejeição 528 - Valor do ICMS difere do produto BC e Alíquota
emarcolongo replied to emarcolongo's tópico in ACBrNFe
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. -
emarcolongo started following Pesquisa CNPJ - Não foi possível obter os dados. , Rejeição 528 - Valor do ICMS difere do produto BC e Alíquota , ACBrMail e 7 outros
-
Rejeição 528 - Valor do ICMS difere do produto BC e Alíquota
um tópico no fórum postou emarcolongo ACBrNFe
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
-
Evento 2240 - A ESTRUTURA DO ARQUIVO XML ESTÁ EM DESCONFORMIDADE COM O ESQUEMA XSD.THE ELEMENT 'ESOCIAL' IN NAMESPACE 'HTTP://WWW.ESOCIAL.GOV.BR/SCHEMA/EVT/EVTEXPRISCO/V_S_01_00_00' HAS INCOMPLETE CONTENT. LIST OF POSSIBLE ELEMENTS EXPECTED: 'SIGNATURE' I
emarcolongo replied to emarcolongo's tópico in ACBreSocial
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 -
Evento 2240 - A ESTRUTURA DO ARQUIVO XML ESTÁ EM DESCONFORMIDADE COM O ESQUEMA XSD.THE ELEMENT 'ESOCIAL' IN NAMESPACE 'HTTP://WWW.ESOCIAL.GOV.BR/SCHEMA/EVT/EVTEXPRISCO/V_S_01_00_00' HAS INCOMPLETE CONTENT. LIST OF POSSIBLE ELEMENTS EXPECTED: 'SIGNATURE' I
um tópico no fórum postou emarcolongo ACBreSocial
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
-
Bom dia. Qdo faço a leitura do arquivo INI eu consigo pegar o nome do arquivo com o codigo abaixo: ACBreSocial1.Eventos.LoadFromINI('c:\teste.ini'); sAssinado := ACBreSocial1.Eventos.Gerados.Items[0].PathNome; Porém qdo eu faço a leitura pelo XML não tenho o evento gerado mesmo utilizando o Eventos.Gerar, então não existe o 'gerados.items[0]' ACBreSocial1.Eventos.LoadFromFile('c:\as\esocial.xml',true); Como eu poderia pegar o nome do xml que será gerado ? Grato
-
Pesquisa CNPJ - Não foi possível obter os dados.
emarcolongo replied to emarcolongo's tópico in ACBrTCP
Bom dia Renato Eu coloquei as DLLs mas assim mesmo não tive retorno. Para um melhor entendimento segue meu fonte: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, ACBrBase, ACBrSocket, ACBrConsultaCNPJ; type TForm1 = class(TForm) EditCNPJ: TMaskEdit; EditCaptcha: TEdit; Button1: TButton; ACBrConsultaCNPJ1: TACBrConsultaCNPJ; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses U_Principal; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if ACBrConsultaCNPJ1.Consulta(EditCNPJ.Text,EditCaptcha.Text,true) then showmessage(ACBrConsultaCNPJ1.RazaoSocial); end; end. Neste form (que estou usando somente para teste) eu não tenho o valor do captcha mas o usuario consegue pega-lo de outra forma. Se eu abrir o form do exemplo (que copiei neste projeto) e executar funciona, então acredito que seja alguma coisa que esta me passando. Alguma outra sugestão ? Grato -
Bom dia. Estou tendo sempre o retorno abaixo, porém executando pelo exemplo isto não acontece, comparei o componente nos dois projetos e estão iguais, verifiquei se teria alguma dll na pasta do exemplo mas não tem. Alguem tem alguma sugestão ? Grato