AlissonMarcel

entra em contato via email.. [email protected] Sim.. entra em contato via email! [email protected]

Bom dia. Esse erro ocorre quando alguns dos totalizadores tem a mesma alíquota. mesmo ela sendo Zerada. No meu caso, tenho produtos com cst de substituição triburtaria. o Componente esta informando alíquota 0%(mesmo não informando nada) e ai causa o erro, pois tenho outro totalizador T0000 que tem a alíquota 0% tb(no caso empresas do perfil C). Alterei o código do componente para que não informe o 0% em casos nulo. Foi uma gambiarra, fiz nas pressas. Pode ser que solucione seu problema; procedure TBloco_C.WriteRegistroC490(RegC405: TRegistroC405); var intFor: integer; begin if Assigned( RegC405.RegistroC490 ) then begin for intFor := 0 to RegC405.RegistroC490.Count - 1 do begin with RegC405.RegistroC490.Items[intFor] do begin if ((CST_ICMS = '010') or (CST_ICMS = '030') or (CST_ICMS = '060') or (CST_ICMS = '500') or (CST_ICMS = '500')) then begin Add( LFill('C490') + LFill( CST_ICMS,3 ) + LFill( CFOP,4 ) + LFill( ALIQ_ICMS,0,2, True ) + LFill( VL_OPR,0,2 ) + LFill( VL_BC_ICMS,0,2 ) + LFill( VL_ICMS,0,2 ) + LFill( COD_OBS ) ) ; end else begin Add( LFill('C490') + LFill( CST_ICMS,3 ) + LFill( CFOP,4 ) + LFill( ALIQ_ICMS,6,2 ) + LFill( VL_OPR,0,2 ) + LFill( VL_BC_ICMS,0,2 ) + LFill( VL_ICMS,0,2 ) + LFill( COD_OBS ) ) ; end; end; RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1; end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroC490Count := FRegistroC490Count + RegC405.RegistroC490.Count; end; end;

Obrigado Vc me ajdou muito!!!

Essa mesma técnica vc utiliza para os eventos de Tabela?²

Exatamente esse campo. Como pego o Id no momento da geração? eu adiciono todos os eventos ao lote e depois assino. Estou apanhando somente nesse detalhe. pegar esse id antes do envio!

Desculpe. percebi a Extensão pós post!

Boa noite. Estou gerando o evento de tabela s1010. Criei um lote com todos os eventos da tabela de Rubricas DMGestor.QEventos.close; DMGestor.QEventos.SQL.CommaText:= 'Select * from RENDESC where eSocialStatus="I" and eSocialAceite=false'; DMGestor.QEventos.Open; DMFG.TCaged.Open; While not DMGestor.QEventos.Eof do begin with ACBreSocial1.Eventos.Tabelas.S1010.Add do begin evtTabRubrica.id := '1'; if (TpAmbToStr(ACBreSocial1.Configuracoes.WebServices.Ambiente)='1') then evtTabRubrica.IdeEvento.TpAmb := taProducao else evtTabRubrica.IdeEvento.TpAmb := taProducaoRestrita; evtTabRubrica.IdeEvento.ProcEmi := TpProcEmi(0); evtTabRubrica.IdeEvento.VerProc := '1.0'; if length(RetiraPontos(DMGeral.TEmpresasCGC.AsString))=11 then evtTabRubrica.IdeEmpregador.TpInsc := tiCPF else evtTabRubrica.IdeEmpregador.TpInsc := tiCNPJ; evtTabRubrica.IdeEmpregador.NrInsc := RetiraPontos(DMGeral.TEmpresasCGC.AsString); //Aqui set a o modo de lançamento Inclusão ou alteração if Tipo='I' then evtTabRubrica.ModoLancamento := TModoLancamento(0); if Tipo='A' then evtTabRubrica.ModoLancamento := TModoLancamento(1); if Tipo='E' then evtTabRubrica.ModoLancamento := TModoLancamento(2); evtTabRubrica.infoRubrica.IdeRubrica.CodRubr := DMGestor.QEventosCodigo.AsString; evtTabRubrica.infoRubrica.IdeRubrica.ideTabRubr := DMGestor.QEventosCodigo.AsString; evtTabRubrica.infoRubrica.IdeRubrica.IniValid := FormatDateTime('YYYY-MM',now); //evtTabRubrica.infoRubrica.IdeRubrica.FimValid := '2015-06'; evtTabRubrica.infoRubrica.DadosRubrica.dscRubr := DMGestor.QEventosDescricao.AsString; // If DMGestor.QEventosSinal_RD.AsString='R' then if ((DMGestor.QEventoseSocialNatRubr.isnull) or (DMGestor.QEventoseSocialNatRubr.asstring='')) then evtTabRubrica.infoRubrica.DadosRubrica.natRubr := 1000 else evtTabRubrica.infoRubrica.DadosRubrica.natRubr := DMGestor.QEventoseSocialNatRubr.AsInteger; evtTabRubrica.infoRubrica.DadosRubrica.tpRubr := iif(DMGestor.QEventosSinal_RD.AsString='R',tpTpRubr(0),tpTpRubr(1)); evtTabRubrica.infoRubrica.DadosRubrica.codIncCP := iif(DMGestor.QEventosINSS.AsBoolean,tpCodIncCP(1),tpCodIncCP(2)) ; evtTabRubrica.infoRubrica.DadosRubrica.codIncIRRF := iif(DMGestor.QEventosIR.AsBoolean,tpCodIncIRRF(1),tpCodIncIRRF(2)); evtTabRubrica.infoRubrica.DadosRubrica.codIncFGTS := tpCodIncFGTS(1); evtTabRubrica.infoRubrica.DadosRubrica.codIncSIND := tpCodIncSIND(1); evtTabRubrica.infoRubrica.DadosRubrica.observacao := ''; evtTabRubrica.infoRubrica.DadosRubrica.IdeProcessoCP.Clear; end; DMGestor.QEventos.Next; end; //Cria Evento Mestre TGestor.Insert; TGestorEVENTO.AsString:='S-1010'; TGestorOPERACAO.AsString:=TIPO; TGestorSTATUS.AsString:='P'; TGestorDATA_GERACAO.AsDateTime:=now; TGestorPROTOCOLO.AsString:=Enviar; TGestorAmbiente.AsString:= AmbientePh; TGestor.Post; end; até ai tudo ok.. Recebi o retorno do envio do lote. Consultei o protocolo e foi aceito. O problema é que quero marcar no meu banco cada uma das rubricas que foram aceitas, para caso não tenha sido todas. eu reeenvie somente elas corrigidas. Como fazer isso? qual campo usar? meu retorno é algo do tipo: <?xml version="1.0" encoding="UTF-8"?> -<eSocial xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.esocial.gov.br/schema/lote/eventos/envio/retornoProcessamento/v1_3_0"> -<retornoProcessamentoLoteEventos> -<ideEmpregador> <tpInsc>1</tpInsc> <nrInsc>40759227</nrInsc> </ideEmpregador> -<ideTransmissor> <tpInsc>1</tpInsc> <nrInsc>40759227000130</nrInsc> </ideTransmissor> -<status> <cdResposta>201</cdResposta> <descResposta>Lote processado com sucesso.</descResposta> </status> -<dadosRecepcaoLote> <dhRecepcao>2018-03-20T08:31:59.187</dhRecepcao> <versaoAplicativoRecepcao>0.1.0-A0283</versaoAplicativoRecepcao> <protocoloEnvio>1.2.201803.0000000000006233402</protocoloEnvio> </dadosRecepcaoLote> -<dadosProcessamentoLote> <versaoAplicativoProcessamentoLote>1.0.0.0</versaoAplicativoProcessamentoLote> </dadosProcessamentoLote> -<retornoEventos> -<evento Id="ID1407592270000002018032008313655847"> -<retornoEvento> -<eSocial xmlns="http://www.esocial.gov.br/schema/evt/retornoEvento/v1_2_0"> -<retornoEvento Id="ID1407592270000002018032008313655847"> -<ideEmpregador> <tpInsc>1</tpInsc> <nrInsc>40759227</nrInsc> </ideEmpregador> -<recepcao> <tpAmb>2</tpAmb> <dhRecepcao>2018-03-20T08:31:59.187</dhRecepcao> <versaoAppRecepcao>0.1.0-A0283</versaoAppRecepcao> <protocoloEnvioLote>1.2.201803.0000000000006233402</protocoloEnvioLote> </recepcao> -<processamento> <cdResposta>201</cdResposta> <descResposta>Sucesso.</descResposta> <versaoAppProcessamento>8.0.1-A2876</versaoAppProcessamento> <dhProcessamento>2018-03-20T08:32:01.253</dhProcessamento> </processamento> -<recibo> <nrRecibo>1.2.0000000000028996980</nrRecibo> <hash>mvjq0BrGfHx7XNnNJAS7VeE5dV547dqecXvIPsnG1Ac=</hash> </recibo> </retornoEvento> -<Signature xmlns="http://www.w3.org/2000/09/xmldsig#"> -<SignedInfo> <CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/> <SignatureMethod Algorithm="http://www.w3.org/2001/04/xmldsig-more#rsa-sha256"/> -<Reference URI=""> -<Transforms> <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/> <Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/> </Transforms> <DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256"/> <DigestValue>GTztTrNpP8cgcz14g8JE4hO2PdhKvgu07lwGYXGbBRs=</DigestValue> </Reference> </SignedInfo> <SignatureValue>x02JSLQ2mFjkIQ6qzr4uLeEV/joIwz71Kl+CVa6zGQDOEAuF/iOc3GhgJ2FWNxn9rcIXvoFimW6XmBs7z9jSixU0NpEdEqQFMTBn2zGLI/Y+1gWvpwj1jpa1ItCaF6rsA0b8k9ZDijhfy8G0zAG/BydTmLdrp7vyIAznA9tPBmXkp77Nu1bsI4aJQQlq5Mq3EWX01RtX2CLkrzCN1HTa/VQx2tkj2YbN9WUyE9gi08KVxYZbMYM9NUk9B2sJdC/VFMVZNSH2dN54Az0Db+lUchJHedjtcz6hqvofzx3Fm8Yrx7TXzJ/K++XHQnO/Z7g87pr42x8pdZW9H1rteruZxg==</SignatureValue> -<KeyInfo> -<X509Data> <X509Certificate>MIIHjzCCBXegAwIBAgICPa4wDQYJKoZIhvcNAQELBQAwgacxCzAJBgNVBAYTAkJSMRMwEQYDVQQKDApJQ1AtQnJhc2lsMQ8wDQYDVQQLDAZDU1BCLTExOzA5BgNVBAsMMlNlcnZpY28gRmVkZXJhbCBkZSBQcm9jZXNzYW1lbnRvIGRlIERhZG9zIC0gU0VSUFJPMTUwMwYDVQQDDCxBdXRvcmlkYWRlIENlcnRpZmljYWRvcmEgZG8gU0VSUFJPIEZpbmFsIFNTTDAeFw0xNzA0MjgxNTE5MzNaFw0xODA0MjgxNTE5MzNaMIG7MQswCQYDVQQGEwJCUjETMBEGA1UECgwKSUNQLUJyYXNpbDEXMBUGA1UECwwORXF1aXBhbWVudG8gQTExETAPBgNVBAsMCEFSU0VSUFJPMTUwMwYDVQQLDCxBdXRvcmlkYWRlIENlcnRpZmljYWRvcmEgZG8gU0VSUFJPIEZpbmFsIFNTTDE0MDIGA1UEAwwrd2Vic2VydmljZXMucHJvZHVjYW9yZXN0cml0YS5lc29jaWFsLmdvdi5icjCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAOx0ST3oZBhYD/UKzPCbv2czEBtDKVfamucBw61+5mkCxhkw3gUSVfEL5fpn5tjjX23aOsGdNJygJ0+1q36wcIlgj3qNTe9YCRirIs6AutKOJhaNLEMm+quMvUMRS/4lke/yNQ6wb6XsUo2HJwAbnQRs/SdUKcDXkxB6Cq9DUcfZ3c0FpN+Ao4OogXMg8iGLESEcFNR2yq7ijM56O8dAlLIQJ66EhUgiBgykk0GL6OpMlHmZhXNNK3eV6L4FsFgquzsutofkCRkUqV9h0q/gDCv+D9n5PSxmPGXjVBkQpBo5z2UoDvDAy7bf9Z6xip0+LfQJcwVJUIfqcHtugje4KKUCAwEAAaOCAq0wggKpMB8GA1UdIwQYMBaAFN0IWX5OFh0j0lSCvVxUh2TD+gM/MF4GA1UdIARXMFUwUwYGYEwBAgFZMEkwRwYIKwYBBQUHAgEWO2h0dHA6Ly9yZXBvc2l0b3Jpby5zZXJwcm8uZ292LmJyL2RvY3MvZHBjYWNzZXJwcm9hY2Zzc2wucGRmMIGLBgNVHR8EgYMwgYAwPaA7oDmGN2h0dHA6Ly9yZXBvc2l0b3Jpby5zZXJwcm8uZ292LmJyL2xjci9hY3NlcnByb2FjZnNzbC5jcmwwP6A9oDuGOWh0dHA6Ly9jZXJ0aWZpY2Fkb3MyLnNlcnByby5nb3YuYnIvbGNyL2Fjc2VycHJvYWNmc3NsLmNybDBXBggrBgEFBQcBAQRLMEkwRwYIKwYBBQUHMAKGO2h0dHA6Ly9yZXBvc2l0b3Jpby5zZXJwcm8uZ292LmJyL2NhZGVpYXMvYWNzZXJwcm9hY2Zzc2wucDdiMIIBDgYDVR0RBIIBBTCCAQGgNAYFYEwBAwigKwQpU0VSVklDTyBGRURFUkFMIERFIFBST0NFU1NBTUVOVE8gREUgREFET1OCK3dlYnNlcnZpY2VzLnByb2R1Y2FvcmVzdHJpdGEuZXNvY2lhbC5nb3YuYnKgOAYFYEwBAwSgLwQtMjQwOTE5Nzk4MDEyNDY3NDUzNDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwoCoGBWBMAQMCoCEEH0FOVE9OSU8gQUxWSU0gREUgT0xJVkVJUkEgRklMSE+gGQYFYEwBAwOgEAQOMzM2ODMxMTEwMDAxMDeBG2FudG9uaW8uYWx2aW1Ac2VycHJvLmdvdi5icjAOBgNVHQ8BAf8EBAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwEGCCsGAQUFBwMCMA0GCSqGSIb3DQEBCwUAA4ICAQDFusJjQmaG9R7OSnDfQH6Ia9rmINCOAigsHtrpErzdYPGgadTzE7R+lbOJ1N8MRDmmbHbO3RbS0c7W110gUTitYCbPDMdxq8vggt6gaP4Wt6rW8TD3z6DV+ZBjuIhYAst+Iikk6i1bU02hNZhBoQHVWCRdFWJ351kkFHWCpV2uGLgf4IsdQMy5CuLfgQu+OaIN6hrI6V1u/+F9BHqMAKs4a/RJ4/sDAewmdvqYoue8i3KWGp08pEv1CviKqtNJcRlRl6RMUEZdL8UHe/x5HfKhhvmWpJX0RQ4ClGkECW/7on0OVCfF6m3wzYr7m70iKS+PGd62U31IxEcMY8G33kM4eHVRfd+131DyQSPRfsD7FOdUh9/7yWIWHf0ZMJPirL9MFpaDFXNpqfXZXUulqsDO9/IwdM7pZtZca22DE7mnMhk0KZBq0NpcyEM9HjPX32EymxqyqPm58rLwAVzcZNzR1l9wAR5Iy5YH+kEeLpBbRauHP4EmO0xsZEtWuUUb9FjHQAXDwXoZyVj0EOLjtTgiArrjU5Ot3K6hymIobp5NpWetDvwI2AIZZ+jgXTo3xs03qsaqUIu0cbTWXW9sD4NjeVexkionxrWRd9sc3d7KFI3qsDPBUjZMitIHM/yt8vdhAfG3RQjokSaB4TY9zdhp96OabzVsbGGZrbS+84LlFA==</X509Certificate> </X509Data> </KeyInfo> </Signature> </eSocial> </retornoEvento> </evento> estou penando para evoluir nesse sentido.

Qualificação cadastral é um arquivo que segue um layout apenas para consulta da situação do funcionário. não necessita assinatura. Acho que não faz parte do componente eSocial. posso estar enganado!

Mesma coisa! alguém sabe o que foi mudado para eu poder investigar?

o problema é na instalação no delphi 7! Alguma incompatibilidade...

Ao tentar instalar o AcbreSocial apresenta erros., C:\ACBrXE8\Fontes\ACBrDFe\ACBreSocial\PCNeSocial\pcesS2206.pas(310) Error: Object or class type required C:\ACBrXE8\Fontes\ACBrDFe\ACBreSocial\PCNeSocial\pcesS2206.pas(310) Error: Incompatible types C:\ACBrXE8\Fontes\ACBrDFe\ACBreSocial\PCNeSocial\pcesNaoPeriodicos.pas(55) Fatal: Could not compile used unit '..\..\..\..\Fontes\ACBrDFe\ACBreSocial\PCNeSocial\pcesS2206.pas' Compilation failure já Removi completamente op Acbr.. Deletei os Fontes e Atualizei.. e mesmo assim não vai! Alguma dica?

obrigado Edmar. Fazendo isso agora!!! hehehe

Opa Ítalo. Obrigado pela atenção. A questão era mais a nível de tabela.. Quem é Mestre quem é Detalhe.. Para ter uma ideia de como armazenar e operar no banco. O Componente está show, consigo gerar e enviar.. agora falta deixar operacional para o cliente@

Bom dia. Estou iniciando na implementação e gostaria de saber qual o fluxo lógico que os colegas seguem, tenho muitas duvidas epuco tempo Sei que enviamos e consultamos o aceite. mas que campos, dados e etc vcs armazenam e controlo nesse fluxo? Se puderam me mostrar ideias e telas, ajudaria.

Estava com esse mesmo erro. n momento que seto as configs do componenete, coloquei o Sseguiten código: {Identificação} ACBreSocial1.IdEmpregador := retiraPontos(DMGeral.TEmpresasCGC.AsString); ACBreSocial1.IdTransmissor := retiraPontos(DMGeral.TEmpresasCGC.AsString); passando o CNPJ da empresa emitente

é sim!

Estou tendo o mesmo retorno!!! "Assinatura do evento inválida. Ações Sugeridas: Verificar se houve alteração do evento após a assinatura. Verificar a validade da assinatura."

Pré - Cadastro para os interessados em adquirir o componente. por favor, preencham o formulário abaixo! https://goo.gl/forms/o0Sg2N3jbyGdRDxe2

Funciona tranquilo.

Fontes de Baixa de xml da nfe sem dependência de dll. download: https://drive.google.com/open?id=1t77s7s7yryJWlNd--9XR1nAbwFRAv03a skype: alissonmarcel

Preço?

Mesma coisa comigo. Não há um monitor atualizado para baixar?

Resolvido.. por algum motivo o spedECF não esta considerando o Path, utilizando para salvar apenas o que eu passo em arquivo. Isso está certo ou há algo errado com meu componente?

Não estou conseguindo salvar o arquivo, simplesmente não salva, não há nenhuma mensagem de erro. Já testei salvar outros arquivos na mesma pasta de geração, logo não é permissão. Alimento os blocos normalmente, assim como faço com tds os outros componentes de SPED. o que me estranha é a ausência de erro! Caso alguém tenha uma luz, agradeço. Segue código abaixo para salvar: with ACBrSPEDECF1 do begin Path :=EditCaminhoSalvar.Text; Arquivo:= '\SPED_ECF_de_' + cbbComboMes.Text + '_a_' + cbbComboMes2.Text + '_de_' + cbbComboAno.Text + '.txt'; SaveFileTXT; lblLblProcesso.Caption := 'Arquivo Gerado com Sucesso!'; RetiraMensagem; end;

Pessoal, estou com problemas para salvar o arquivo! alguma questão diferente da ECD e do FCOnt? não dá erro algum... apenas não salva o arquivo.. Código para Salvar: with ACBrSPEDECF1 do begin Path := EditCaminhoSalvar.Text; Arquivo:= '\SPED_ECF_de_' + cbbComboMes.Text + '_a_' + cbbComboMes2.Text + '_de_' + cbbComboAno.Text + '.txt'; SaveFileTXT; lblLblProcesso.Caption := 'Arquivo Gerado com Sucesso!'; RetiraMensagem; Application.MessageBox( 'Arquivo Gerado com Sucesso.'+#13+#10+'Valide o arquivo no PVA correspondente!', 'Sucesso', MB_ICONINFORMATION or MB_OK); end;