AlissonMarcel
Membros-
Total de ítens
77 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que AlissonMarcel postou
-
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;
- 1 reply
-
- erroc490
- errospedfiscal
- (e 2 mais)
-
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.
-
Versão Atual com erro no Envio de todos eventos
AlissonMarcel replied to EdmarFrazao's tópico in ACBreSocial
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.
-
Em anexo exemplo envio eSocial funcionando - certificado A1
AlissonMarcel replied to Rodrigo - Digibyte's tópico in ACBreSocial
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 -
Os fontes oficiais já estão transmitindo os arquivos?
AlissonMarcel replied to Rodrigo - Digibyte's tópico in ACBreSocial
é sim! -
Os fontes oficiais já estão transmitindo os arquivos?
AlissonMarcel replied to Rodrigo - Digibyte's tópico in ACBreSocial
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;
-
Alteração de registros importados dentro do ECF não permitido
AlissonMarcel replied to Rodrigo - Digibyte's tópico in ACBrSPEDECF
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;