Ir para conteúdo
  • Cadastre-se

gtvosouza

Membros
  • Total de ítens

    11
  • Registro em

  • Última visita

Reputação

6 Neutro

Sobre gtvosouza

  • Rank
    Novato

Profile Information

  • Sexo
    Masculino
  • Localização
    Curtiba
  1. o Problema ocorre quando vai assinar o XML.. FPDadosMsg := FNotasFiscais.AssinarXML(FPDadosMsg, FdocElemento, FinfElemento, FPConfiguracoesNFSe.Geral.ConfigAssinar.Cancelar, xSignatureNode, xDSIGNSLote, FxIdSignature);
  2. gtvosouza

    Erro ao cancelar NFSe HBIS

    Bom dia, Após atualizar os fontes começou a ocorrer o problema abaixo.. Alguém passou por isso? --------------------------- Maxomegaapplication --------------------------- Não foi possível carregar XML <?xml version="1.0" encoding="UTF-8"?><CancelarNfseEnvio xmlns="http://www.abrasf.org.br/nfse.xsd"><Pedido><InfPedidoCancelamento Id="pedidoCancelamento_9371270100013410397620201900000000008"><IdentificacaoNfse><Numero>201900000000008</Numero><Cnpj>93712701000134</Cnpj><InscricaoMunicipal>10397620</InscricaoMunicipal><CodigoMunicipio>4314902</CodigoMunicipio></IdentificacaoNfse><CodigoCancelamento>2</CodigoCancelamento></InfPedidoCancelamento><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/2000/09/xmldsig#rsa-sha1" /><Reference URI="#pedidoCancelamento_9371270100013410397620201900000000008"><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/2000/09/xmldsig#sha1" /><DigestValue></DigestValue></Reference></SignedInfo><SignatureValue></SignatureValue><KeyInfo></KeyInfo></Signature></Pedido>. --------------------------- OK ---------------------------
  3. gtvosouza

    Eventos SST v.2.5

    Boa tarde, Italo, fiz o que solicitou mas acredito que tenha faltado isso ainda... Precisa por a validação conforme imagem abaixo para o campo em negrito dscOC. Caso contrario, da erro de validação do XML. procedure TEvtExpRisco.GerarRespReg(pRespReg: TRespRegCollection); var i: integer; begin for i := 0 to pRespReg.Count - 1 do begin Gerador.wGrupo('respReg'); Gerador.wCampo(tcStr, '', 'cpfResp', 1, 11, 1, pRespReg.cpfResp); Gerador.wCampo(tcStr, '', 'nisResp', 1, 11, 1, pRespReg.nisResp); Gerador.wCampo(tcStr, '', 'nmResp', 1, 70, 1, pRespReg.nmResp); Gerador.wCampo(tcStr, '', 'ideOC', 1, 1, 1, eSIdeOCToStr(pRespReg.ideOC)); Gerador.wCampo(tcStr, '', 'dscOC', 1, 20, 1, pRespReg.dscOC); Gerador.wCampo(tcStr, '', 'nrOC', 1, 14, 1, pRespReg.nrOc); Gerador.wCampo(tcStr, '', 'ufOC', 2, 2, 0, eSufToStr(pRespReg.ufOC)); Gerador.wGrupo('/respReg'); end; if pRespReg.Count > 9 then Gerador.wAlerta('', 'respReg', 'Lista de Responsáveis pelo registro', ERR_MSG_MAIOR_MAXIMO + '9'); end;
  4. gtvosouza

    Eventos SST v.2.5

    Bom dia Pessoal, no 2240 as tag's em negrito estão duplicadas... podem ajustar pra nós? pcesS2240 procedure TEvtExpRisco.GerarRespReg(pRespReg: TRespRegCollection); var i: integer; begin for i := 0 to pRespReg.Count - 1 do begin Gerador.wGrupo('respReg'); Gerador.wCampo(tcStr, '', 'cpfResp', 1, 11, 1, pRespReg.cpfResp); Gerador.wCampo(tcStr, '', 'nisResp', 1, 11, 1, pRespReg.nisResp); Gerador.wCampo(tcStr, '', 'nmResp', 1, 70, 1, pRespReg.nmResp); Gerador.wCampo(tcStr, '', 'ideOC', 1, 1, 1, eSIdeOCToStr(pRespReg.ideOC)); Gerador.wCampo(tcStr, '', 'dscOC', 1, 20, 1, pRespReg.dscOC); Gerador.wCampo(tcStr, '', 'nrOC', 1, 14, 1, pRespReg.nrOc); Gerador.wCampo(tcStr, '', 'ufOC', 2, 2, 0, eSufToStr(pRespReg.ufOC)); if pRespReg.ideOC = idOutros then Gerador.wCampo(tcStr, '', 'dscOC', 1, 20, 1, pRespReg.dscOC); Gerador.wCampo(tcStr, '', 'nrOC', 1, 14, 1, pRespReg.nrOc); Gerador.wCampo(tcStr, '', 'ufOC', 2, 2, 0, eSufToStr(pRespReg.ufOC)); Gerador.wGrupo('/respReg'); end; if pRespReg.Count > 9 then Gerador.wAlerta('', 'respReg', 'Lista de Responsáveis pelo registro', ERR_MSG_MAIOR_MAXIMO + '9'); end;
  5. gtvosouza

    Eventos SST v.2.5

    Boa tarde, está faltando as informações referentes ao Empregador e o Vinculo no evento 2245 (pcesS2245). Precisa adicionar as linhas em negrito abaixo para funcionar.. certo? function TEvtTreiCap.GerarXML: boolean; begin try Self.VersaoDF := TACBreSocial(FACBreSocial).Configuracoes.Geral.VersaoDF; Self.Id := GerarChaveEsocial(now, Self.ideEmpregador.NrInsc, Self.Sequencial); GerarCabecalho('evtTreiCap'); Gerador.wGrupo('evtTreiCap Id="' + Self.Id + '"'); GerarIdeEvento2(Self.IdeEvento); GerarIdeEmpregador(self.IdeEmpregador); GerarIdeVinculo(self.IdeVinculo); GerarTreiCap(Self.treiCap); Gerador.wGrupo('/evtTreiCap'); GerarRodape; XML := Assinar(Gerador.ArquivoFormatoXML, 'evtTreiCap'); Validar(schevtTreiCap); except on e:exception do raise Exception.Create('ID: ' + Self.Id + sLineBreak + ' ' + e.Message); end; Result := (Gerador.ArquivoFormatoXML <> '') end;
  6. Pois é, eu vi o outro post.... estava terminando a implementação do 2240 mas o Arce acabou sendo mais rápido que eu. Mesmo assim obrigado.
  7. Boa tarde, Claro, fico feliz em ajudar.... Vou realizar as alterações para o evento 2240 e postar aqui os fontes... Só que como é a primeira vez que estou alterando o fonte do ACBR peço que me revisem e me sinalizem os problemas encontrados, para que não ocorra em uma próxima vez, pode ser?
  8. Boa noite, A partir do dia 18/03 estará disponível o ambiente de testes para a homologação dos eventos relacionados a SST. Hoje esses eventos nos fontes do ACBR estão defasados, existe uma previsão para atualiza-los? Obrigado.
  9. Existe alteração também no S-1060 - Tabela de Ambientes de Trabalho, será alterado em breve?
  10. Olá pessoal, to começando a desenvolver com ACBR, e to com um projeto que irei usar balança etiquetadora, queria saber se vocês podem me ajudar qual Balançano qual o custo beneficio e que também não seja um problema de desenvolver algo em cima dela seja legal pra estar oferecendo aos meus clientes, desde ja obrigado!
×
×
  • Criar Novo...