Ir para conteúdo
  • Cadastre-se

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

Enthusiast

Enthusiast (6/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

22

Reputação

1

Community Answers

  1. 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.
  2. 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
  3. emarcolongo

    ACBrMail

    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
  4. 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
  5. 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
  6. emarcolongo

    S2205 - Ajuste

    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
  7. Bom dia. Eu modifiquei meu programa para leitura de outra forma. Vou testar da forma sugerida e em seguida informo. Grato
  8. emarcolongo

    S2200 - Ajustes

    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
  9. 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
  10. 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
  11. emarcolongo

    Carregar Arquivo INI

    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
  12. 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
  13. 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
  14. 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
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.