Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

RenatoE

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    160

  • Registro em

  • Última visita

  • Days Won

    1

 Tipo de Conteúdo 

Posts postados por RenatoE

    Distribuição DFe Matriz e Filial

    em ACBrNFe

    Postado

    boa tarde, alguém sabe me dizer Distribuição DFe com 1 único certificado para matriz e filial vai funcionar?

    Tem 1 cliente é matriz e filial, na matriz esta usando 1 certificado e esta vindo as XML correto, porem na filial esta utilizando o mesmo certificado não vem nenhum XML , cliente me mostrou o XML

    • Consulta esta sendo utilizada é DistribuicaoDFePorUltNSU

    Cidade de SINOP - COPLAN

    em ACBrNFSe

    Postado

    Boa tarde, Senhor(es, as) tenho 2 questionamento a fazer se puderem me ajudar

    • 1º conforme eu vi no fórum tinha algumas cidades do provedor COPLAN mudando de url, quando fui implementar a cidade sinop aqui, tinha dado um erro  Erro(s): Código  : X999 Mensagem: Erro de Conexão: Premature end of data in tag a line 1.

    alterei a url que antes era 


    [5107909]
    Nome=Sinop
    UF=MT
    Provedor=Coplan
    Versao=2.01
    ProRecepcionar=https://www.gp.srv.br/tributario_sinop/servlet/anfse_web_service

    Alterei para :

    [5107909]
    Nome=Sinop
    UF=MT
    Provedor=Coplan
    Versao=2.01
    ProRecepcionar=https://www.gp.srv.br/tributario/sinop/anfse_web_service

    Perfeito funcionou.
     

    • 2º quando estou emitindo em Ambiente de homologação com usuário e senha "Exemplo : usuário CNPJ e senha 123" funciona perfeita mente eu entro no site no ambiente de homologação tem todas as NFSe emitidas, agora quando vou enviar em Ambiente de produção com a mesma senha e mesmo usuário quando vai emitir da erro, só que porem no site eu consigo entrar normalmente.

    Erro:
      

    <?xml version="1.0" encoding="UTF-8"?>
-<EnviarLoteRpsSincronoResposta xmlns="http://www.abrasf.org.br/nfse.xsd">
	-<ListaMensagemRetorno>
		-<MensagemRetorno>
			<Codigo>E138</Codigo>
			<Mensagem>Usuario nao autorizado a realizar o servico.</Mensagem>
			<Correcao>Informe os dados de um usuario autorizado a executar o servico.</Correcao>
		</MensagemRetorno>
		-<MensagemRetorno>
			<Codigo>E347</Codigo>
			<Mensagem>CNPJ/CPF do Prestador do servico nao autorizado a emitir NFS-e</Mensagem>
			<Correcao>Solicite autorizacao para emitir NFS-e para o CNPJ/CPF informado.</Correcao>
		</MensagemRetorno>
		-<MensagemRetorno>
			<Codigo>E327</Codigo>
			<Mensagem>O regime de tributacao informado difere do registrado na Prefeitura.</Mensagem>
			<Correcao>Procure a Prefeitura para atualizar o regime de tributacao no cadastro do contribuinte.</Correcao>
		</MensagemRetorno>
	</ListaMensagemRetorno>
</EnviarLoteRpsSincronoResposta>


    Alguém sabe me informar o que pode ser feito?

    10-lista-nfse-sinc.xml

    Cidade de Grajaú Fisslex

    em DFe - Documentos Fiscais Eletrônicos

    Postado

    @Italo Giurizzato Junior Descobri o erro, ele acontecia quando ele ia ler o XML de retorno. Ele não encontrava a tag eu fiz a correção.
      

    Código  : X202
Mensagem: Lista de NFSe não encontrada! (ListaNfse)

    unit ACBrNFSeXProviderABRASFv1;
    =========================================================================================
    Antes

    procedure TACBrNFSeProviderABRASFv1.TratarRetornoConsultaLoteRps(Response: TNFSeConsultaLoteRpsResponse);

        Response.Situacao := ObterConteudoTag(Document.Root.Childrens.FindAnyNs('SituacaoLoteRps'), tcStr);

          ANode := Document.Root.Childrens.FindAnyNs('ListaNfse');
          if not Assigned(ANode) then
          begin
            AErro := Response.Erros.New;
            AErro.Codigo := Cod202;
            AErro.Descricao := Desc202;
            Exit;
          end;

          ANodeArray := ANode.Childrens.FindAllAnyNs('CompNfse');
          if ANodeArray = nil then
            ANodeArray := ANode.Childrens.FindAllAnyNs('ComplNfse');

          if not Assigned(ANodeArray) then
          begin
            AErro := Response.Erros.New;
            AErro.Codigo := Cod203;
            AErro.Descricao := Desc203;
            Exit;
          end;

    =========================================================================================
    Resolvido assim:

         Response.Situacao := ObterConteudoTag(Document.Root.Childrens.FindAnyNs('SituacaoLoteRps'), tcStr);

          if Document.Root.Childrens.FindAnyNs('Consultarloterpsresposta') <> nil then
             ANode := Document.Root.Childrens.FindAnyNs('Consultarloterpsresposta')
          else
          begin
            AErro := Response.Erros.New;
            AErro.Codigo := Cod202;
            AErro.Descricao := Desc202;
            Exit;
          end;

          ANode := ANode.Childrens.FindAnyNs('ListaNfse');
          if not Assigned(ANode) then
          begin
            AErro := Response.Erros.New;
            AErro.Codigo := Cod202;
            AErro.Descricao := Desc202;
            Exit;
          end;

          ANodeArray := ANode.Childrens.FindAllAnyNs('CompNfse');
          if ANodeArray = nil then
            ANodeArray := ANode.Childrens.FindAllAnyNs('ComplNfse');

          if not Assigned(ANodeArray) then
          begin
            AErro := Response.Erros.New;
            AErro.Codigo := Cod203;
            AErro.Descricao := Desc203;
            Exit;
          end;


    =========================================================================================

    Cidade de Grajaú Fisslex

    em DFe - Documentos Fiscais Eletrônicos

    Postado

    @Italo Giurizzato Junior os outros erros foi resolvido, o que esta dando agora para mim é o
      

    Código  : X202
Mensagem: Lista de NFSe não encontrada! (ListaNfse)
    			ACBrNFSe.Emitir(IntToStr(agrNFSe.NUMERORPS), xIntegrador.ModoEnvio, false);
            with ACBrNFSe.WebService.Emite do
            begin  //Verifica erros na emissão
                if Erros.Count > 0 then
                begin
                    for i := 0 to Erros.Count-1 do
                        sErros := sErros+Erros[i].Codigo+' - '+Erros[i].Descricao+': '+Erros[i].Correcao+
                                  IfThen(Erros.Count > i+1,' | ');
                    raise Exception.Create(sErros);
                end;
            end;

			........... Na consulta Lote RPS esta dando o erro ...........
            with ACBrNFSe.WebService.ConsultaLoteRps do
            begin //Verifica erros pelo retorno do lote RPS
                if Erros.Count > 0 then
                begin
                    for i := 0 to Erros.Count-1 do
                        sErros := sErros+Erros[i].Codigo+' - '+Erros[i].Descricao+': '+Erros[i].Correcao+
                                  IfThen(Erros.Count > i+1,#13);
                    raise Exception.Create(sErros);
                end;
            end;

     

    não estou conseguindo jogar o arquivo aqui, no forum, eu subi o 6 XML de SOAP no sendSpace
    https://www.sendspace.com/filegroup/2JCA0tpyyCqinwrbibN1U8hqezTZvhKV%2FxLdMZIqi7LCPZGItFUTVQ

    Cidade de Grajaú Fisslex

    em DFe - Documentos Fiscais Eletrônicos

    Postado · Editado por RenatoE

    @Italo Giurizzato Junior eu mudei a estratégia, peguei e fiz o update do código fonte, peguei o ACBr Exemplo da ACBrNFSeX, agora esta dando este erro no Exemplo:
    Coloquei o Log abaixo, 
    Erro(s):
    Código  : X999
    Mensagem: Erro de Conexão: Input is not proper UTF-8, indicate encoding !
    Bytes: 0xE9 0x72 0x69 0x65
     

    Citar

    Método Executado: Enviar Lote
     
    Parâmetros de Envio
    Numero do Lote: 1
     
    Parâmetros de Retorno
    Data de Envio : 18/05/2022
    Numero do Prot: MjAyMjA1MTdfXXXXXXXMDk0Ng==
    Numero da Nota: 
    Link          : 
    Código Verif. : 
    Sucesso       : True
     
     
    Método Executado: ConsultarSituacao
     
    Parâmetros de Envio
    Numero do Prot: MjAyMjA1MTdfXXXXXXXMDk0Ng==
    Numero do Lote: 1
     
    Parâmetros de Retorno
    Situação Lote : 
    Sucesso       : False
     
    Erro(s):
    Código  : X999
    Mensagem: Erro de Conexão: Input is not proper UTF-8, indicate encoding !
    Bytes: 0xE9 0x72 0x69 0x65

    Correção: 
    ---------
     
     
    Método Executado: ConsultarLote
     
    Parâmetros de Envio
    Numero do Prot: MjAyMjA1MTdfXXXXXXXMDk0Ng==
    Numero do Lote: 
     
    Parâmetros de Retorno
    Situação Lote : 3
    Sucesso       : True
     
    Erro(s):
    Código  : X999
    Mensagem: Erro de Conexão: Input is not proper UTF-8, indicate encoding !
    Bytes: 0xE9 0x72 0x69 0x65

    Correção: 
    ---------
     
    NFS-e Numero....: 1
    Cod. Verificacao: 
    Prestador.......: ABC EFG GRAJAU
    Tomador.........: INSCRICAO DE TESTE

     

    Cidade de Grajaú Fisslex

    em DFe - Documentos Fiscais Eletrônicos

    Postado

    @Italo Giurizzato Junior entao o que estou fazendo eu envio o comando "ACBrNFSeX.Emitir", gera o XML e da este erro.

      

    <?xml version="1.0" encoding="UTF-8"?>

-<EnviarLoteRpsEnvio xmlns="http://www.abrasf.org.br/ABRASF/arquivos/nfse.xsd">


-<LoteRps id="Lote_1338">

<NumeroLote>1338</NumeroLote>

<Cnpj>XXXXXX0000202</Cnpj>

<InscricaoMunicipal>XXXXX12XXX</InscricaoMunicipal>

<QuantidadeRps>1</QuantidadeRps>


-<ListaRps>


-<Rps>


-<InfRps id="Rps_133832">


-<IdentificacaoRps>

<Numero>1338</Numero>

<Serie>32</Serie>

<Tipo>1</Tipo>

</IdentificacaoRps>

<DataEmissao>2022-05-17T18:44:49</DataEmissao>

<NaturezaOperacao>3</NaturezaOperacao>

<OptanteSimplesNacional>2</OptanteSimplesNacional>

<IncentivadorCultural>2</IncentivadorCultural>

<Status>1</Status>


-<Servico>


-<Valores>

<ValorServicos>0.20</ValorServicos>

<ValorDeducoes>0.00</ValorDeducoes>

<ValorPis>0.00</ValorPis>

<ValorCofins>0.00</ValorCofins>

<ValorInss>0.00</ValorInss>

<ValorIr>0.00</ValorIr>

<ValorCsll>0.00</ValorCsll>

<IssRetido>2</IssRetido>

<ValorIss>0.00</ValorIss>

<ValorIssRetido>0.00</ValorIssRetido>

<OutrasRetencoes>0.00</OutrasRetencoes>

<BaseCalculo>0.00</BaseCalculo>

<ValorLiquidoNfse>0.20</ValorLiquidoNfse>

<DescontoIncondicionado>0.00</DescontoIncondicionado>

<DescontoCondicionado>0.00</DescontoCondicionado>

</Valores>

<ItemListaServico>11.04</ItemListaServico>

<Discriminacao>Servico: SERVIÇOS DE INTERNET ..Quant:1..Preco: R$ 0,20..Total item: R$ 0,20</Discriminacao>

<CodigoMunicipio>XXX4X00</CodigoMunicipio>

</Servico>


-<Prestador>

<Cnpj>XXXXXX0000202</Cnpj>

<InscricaoMunicipal>1102012517</InscricaoMunicipal>

</Prestador>


-<Tomador>


-<IdentificacaoTomador>


-<CpfCnpj>

<Cnpj>XXXXXX1XX00101</Cnpj>

</CpfCnpj>

</IdentificacaoTomador>

<RazaoSocial>XXXXXXX LTDA</RazaoSocial>


-<Endereco>

<Endereco>Rua XXXXX Maio</Endereco>

<Numero>46</Numero>

<Bairro>Centro</Bairro>

<CodigoMunicipio>XXXXX02</CodigoMunicipio>

<Uf>XX</Uf>

<Cep>XXXX02X0</Cep>

</Endereco>


-<Contato>

<Telefone>XXXXX200</Telefone>

</Contato>

</Tomador>

</InfRps>

</Rps>

</ListaRps>

</LoteRps>


-<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="#Lote_1338">


-<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>H0awkaP7FZNF8XGBPDWeOVELkqA=</DigestValue>

</Reference>

</SignedInfo>

<SignatureValue>SliF2qL1S8V+fPpC1jXP7ncv7J2S5CSAGQcl1KNfkF7Jvc5b2M6NBZuw7McjoIk8XSsLvKwufrR6cvTXcwetpqqTy329P6a+TMvXfC5DDGEi/StlKHjU9zqBZeDxaZxdpt2PeolrUVGmevOHO+GVq8s9Apxl18+IXyBsX5TXh24IHMGViPQPj8Sc6i5acmoQVkimOmBE2VREk1O44Jd5NxicuKjVIwyMw1Zm7/Q6OW02FiHEIaWSURag4WtbGa04KJ1CIK+981ICi++43NQcuxAmnSumZm/0MwysvtEX0m03ehpSouzc2y4GMp7HLxhAFqc2ZdRdi3SqqdGbCyRZPw==</SignatureValue>


-<KeyInfo>


-<X509Data>

<X509Certificate>MIIILzCCBhegAwIBAgIQAweMKd0GIM058UVjDZuoGDANBgkqhkiG9w0BAQsFADCBgDELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEkMCIGA1UEAxMbQUMgSW5zdGl0dXRvIEZlbmFjb24gUkZCIEczMB4XDTIyMDQyNTE3NTQxM1oXDTIzMDQyNTE3NTQxM1owgecxCzAJBgNVBAYTAkJSMRMwEQYDVQQKDApJQ1AtQnJhc2lsMQswCQYDVQQIDAJNQTEPMA0GA1UEBwwGR1JBSkFVMTYwNAYDVQQLDC1TZWNyZXRhcmlhIGRhIFJlY2VpdGEgRmVkZXJhbCBkbyBCcmFzaWwgLSBSRkIxFjAUBgNVBAsMDVJGQiBlLUNOUEogQTExFzAVBgNVBAsMDjgxODg1NjM0MDAwMTcwMRMwEQYDVQQLDApQUkVTRU5DSUFMMScwJQYDVQQDDB5HRU5FU0lTQUdSTyBTIEE6MTg2MDQ0NDAwMDAyMDIwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQDMKmjuYYOCY5RlOXVQ++ngH2bRK7PB9F5VBKYELl+hDjI07jaszYaF+GZp93RyaGldjaHvmXTF88pUe45+gNUE06u6cMWqW9DzQ7nj7LLHP6zABIK6xihPS2w9CUQ27LgSmY1a8QeIhnrD8yg4vn19qvuyXKCILL2ddevLvLyFmsuEEr2lhOp5Dj0xFCdUSlT6AKp3HmPrdIRK4f+8o/wLn0lfaIXB3RNXf3pWt3v53V9puMm14oKkqf9s0F7zqhQhkxsWxDsW2Budc5V2DLCfJXaDGBxKKfYnqCdcfPRtj7+870nMQw6iNlos3eF218m8nM1a5V0D9/knrepDWKQhAgMBAAGjggM6MIIDNjCBxAYDVR0RBIG8MIG5oEIGBWBMAQMEoDkENzE1MTAxOTY2NjgzNjc5Mzc5NTMwMDAwMDAwMDAwMDAwMDAwMDAzNTMyODc5MzAwMFNTUEFQUFKgIwYFYEwBAwKgGgQYSEVOUklRVUUgVklDVE9SRUxMSSBORVRPoBkGBWBMAQMDoBAEDjE4NjA0NDQwMDAwMjAyoBcGBWBMAQMHoA4EDDAwMDAwMDAwMDAwMIEaRmluYW5jZWlyb0BnZW5lc2lzYWdyby5jb20wCQYDVR0TBAIwADAfBgNVHSMEGDAWgBQmx5Q9eod+f0t4ioc94M+1zqmw2jCBhgYDVR0gBH8wfTB7BgZgTAECASIwcTBvBggrBgEFBQcCARZjaHR0cDovL2ljcC1icmFzaWwuYWNmZW5hY29uLmNvbS5ici9yZXBvc2l0b3Jpby9kcGMvQUMtSW5zdGl0dXRvLUZlbmFjb24tUkZCL0RQQ19BQ19JRmVuYWNvbl9SRkIucGRmMIHKBgNVHR8EgcIwgb8wXqBcoFqGWGh0dHA6Ly9pY3AtYnJhc2lsLmFjZmVuYWNvbi5jb20uYnIvcmVwb3NpdG9yaW8vbGNyL0FDSW5zdGl0dXRvRmVuYWNvblJGQkczL0xhdGVzdENSTC5jcmwwXaBboFmGV2h0dHA6Ly9pY3AtYnJhc2lsLm91dHJhbGNyLmNvbS5ici9yZXBvc2l0b3Jpby9sY3IvQUNJbnN0aXR1dG9GZW5hY29uUkZCRzMvTGF0ZXN0Q1JMLmNybDAOBgNVHQ8BAf8EBAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMIG7BggrBgEFBQcBAQSBrjCBqzBmBggrBgEFBQcwAoZaaHR0cDovL2ljcC1icmFzaWwuYWNmZW5hY29uLmNvbS5ici9yZXBvc2l0b3Jpby9jZXJ0aWZpY2Fkb3MvQUNfSW5zdGl0dXRvX0ZlbmFjb25fUkZCRzMucDdjMEEGCCsGAQUFBzABhjVodHRwOi8vb2NzcC1hYy1pbnN0aXR1dG8tZmVuYWNvbi1yZmIuY2VydGlzaWduLmNvbS5icjANBgkqhkiG9w0BAQsFAAOCAgEAljPA3NyhZ/eAuk0XdW+6k4kUQk9seZ9mI2M9Idx7IzkH+ejl5Vt2bve792kTb5Codpt7cU7cscZjMMFXT2lfi3qaMOKgzcO/PP0xS6xGUKvs96wD0L5CnzpvzYwn2L50tYrn1Ifs5FUcZdw5S/WiIconyjAeOZxQPsXRL4XVXLxwPhDThJHoVMJlaC8T22UiDgngiaUxbZAwql8pAQprBquPxvohiosBwdVqdknG+Ui7FL1EE1uTmqHski17XPmvuLNZymFGIiiaYe5bLwV9Rqru4XtPgyc+aR+Z8VZSGLdhJil2UR+spNHtBYmt36BopYPP9uLXuUQXmgA+m2paYJSj8HPm/Z9N8xaVrMLsx7yeyw6uKQRjElNJ6sxICyd6vjYsfnVAeRfqF7JjdD3P2hmppc4l/vKtlEiYTZT5Shdy874Ucd23xwz7/KBKR2ucQBW8nkrFoHjecYR7x2DjxZHAeXhWbmXxSdp3jGRFsOanDsQiQCP+2mgEU2RQE4LjHliV0KUvKdI7ELQGE+au23spSuT3DsTDdbklfgVfvs2tW+tZskW41F8o6JuHLl9FuevYb7fojToExCWzevXOetsqRgBwWNhX561x2mGb85km3Sq1o8Ht4/kZn56vrDoGMdyL1c1LoHvMEyRGi1QIxhxuL2HGSKD/mZ8LGI1W9m4=</X509Certificate>

</X509Data>

</KeyInfo>

</Signature>

</EnviarLoteRpsEnvio>

     

    Cidade de Grajaú Fisslex

    em DFe - Documentos Fiscais Eletrônicos

    Postado

    Boa tarde, Queria tirar uma duvida se alguém pode me ajudar. 

    Estou fazendo NFSe, usando o componente ACBrNFSeX, a cidade é Grajau e usa provedor FISSLex, no momento do envio ele me tras um retorno, nao estou conseguindo identificar.

      

    			with xIntegrador.ACBrNFSe.WebService.Emite do
            begin  //Verifica erros na emissão
                if Erros.Count > 0 then
                begin
                    for i := 0 to Erros.Count-1 do
                        sErros := sErros+Erros[i].Codigo+' - '+Erros[i].Descricao+': '+Erros[i].Correcao+
                                  IfThen(Erros.Count > i+1,' | ');
                    raise Exception.Create(sErros);
                end;
            end;

			.... NESTE MOMENTO ....
            with xIntegrador.ACBrNFSe.WebService.ConsultaLoteRps do
            begin //Verifica erros pelo retorno do lote RPS
                if Erros.Count > 0 then
                begin
                    for i := 0 to Erros.Count-1 do
                        sErros := sErros+Erros[i].Codigo+' - '+Erros[i].Descricao+': '+Erros[i].Correcao+
                                  IfThen(Erros.Count > i+1,#13);
                    raise Exception.Create(sErros);
                end;
            end;

    No momento do Consulta Lote RPS da o erro alguém sabe que pode ser?

    99 - LOTERPS: Conteudo Contem Erros em Sua Estrutura: Deve Ser Informada a Assinatura Digital do LoteRPS

    Evento S1299 campo novo indExcApur1250

    em ACBreSocial

    Postado

    Bom dia, adicionei um campo novo que nao tinha indExcApur1250 no evento S1299
      

    FindExcApur1250: TpSimNao;

if (Self.ideEvento.IndApuracao = iapuMensal) AND (Copy(Self.ideEvento.perApur,1,4)+Copy(Self.ideEvento.perApur,6,2) < '202105') then
     if (Self.InfoFech.indExcApur1250 = tpSim) then
        Gerador.wCampo(tcStr, '', 'indExcApur1250', 1, 1, 1, eSSimNaoToStr(self.InfoFech.indExcApur1250));


    Fonte da alteração esta aqui
    pcesS1299.pas

    Obrigado!

    • Obrigado 1

    Erro no evento S1280 Valor de tpIndSubstPatrOpPort

    em ACBreSocial

    Postado

    Boa tarde, fiz a atualização porem encontrei um erro

    ACBreSocial:

    no evento 1280:

    unit pcesS1280;
    procedure TEvtInfoComplPer.GerarInfoSubstPatr;
        Gerador.wCampo(tcStr, '', 'indSubstPatr',   1, 1, 1, eSIndSubstPatrOpPortStr(InfoSubstPatr.indSubstPatr));


    eSIndSubstPatrOpPortStr(InfoSubstPatr.indSubstPatr) ele recebe 3 valores      =   tpIndSubstPatrOpPort    = (spVazio, spIntegralmenteSubstituida, spParcialmenteSubstituida);

    no momento que você envia spIntegralmenteSubstituida, ele estava colocando valor 2 sendo que o valor correto é 1

    --------------------------------------------------------------------

    O erro se encontra
    na unit pcesConversaoeSocial;

    na função com erro

    function eSIndSubstPatrOpPortStr(const t: tpIndSubstPatrOpPort 😞 string;
    begin
      result := EnumeradoToStr2(t,TGenericosString1_2 );
    end;

    Tem que alterar para Correção

    function eSIndSubstPatrOpPortStr(const t: tpIndSubstPatrOpPort 😞 string;
    begin
      result := EnumeradoToStr2(t,TGenericosString0_2 );
    end;
     
    Alterando aqui o valor passa a ser 1 como o correto, o motivo porque ele tem 3 valores  (spVazio, spIntegralmenteSubstituida, spParcialmenteSubstituida)

    Quando tiver algum erro posso reportar no DISCORD?


    pcesConversaoeSocial.pas

     

    Titulo na Visualização

    em ACBrBoleto

    Postado

    Boa tarde @Juliana Tamizou, eu fiz umas alteração simples no fonte do boleto, o que seria o titulo quando da Preview, Report do Fast e Fortes.

    Fonte unit ACBrBoleto;

    Adicionei
      

    FTituloCabecalho : string;

procedure SetTituloCabecalho(const Value: string);

property TituloCabecalho : string          read FTituloCabecalho  write SetTituloCabecalho;

procedure TACBrBoletoFCClass.SetTituloCabecalho(const Value: string);
begin
  FTituloCabecalho := Value;
end;

    Fonte unit ACBrBoletoFCFR; 

    procedure TACBrBoletoFCFR.Imprimir;
begin
  inherited Imprimir; // Verifica se a lista de boletos está vazia
  with FdmBoleto do
	begin
      cdsBanco.EmptyDataSet;
      cdsCedente.EmptyDataSet;
      cdsTitulo.EmptyDataSet;

      if PreparaRelatorio then
      begin
        frxReport.PrintOptions.ShowDialog := (MostrarSetup) and (not FModoThread);
        frxReport.PrintOptions.Copies := NumCopias;
        frxReport.ReportOptions.Name := TituloCabecalho;    <-- Adicionado

    Fonte unit ACBrBoletoFCFortes; 

    procedure TACBrBoletoFCFortes.Imprimir;

var
  frACBrBoletoFortes : TACBRBoletoFCFortesFr;
  RLFiltro : TRLCustomSaveFilter;
  RLLayout: TRLReport;
begin
  inherited Imprimir;    // Executa verificações padroes

  frACBrBoletoFortes := TACBrBoletoFCFortesFr.Create(Self);
  try
     with frACBrBoletoFortes do
     begin
        case LayOut of
           lCarne       : RLLayout := BoletoCarne;
           lReciboTopo  : RLLayout := BoletoReciboTopo;
           lFaturaDetal : RLLayout := LayoutFaturaDetal;
        else
           RLLayout:= LayoutBoleto;
        end;

        if (NumCopias > 0) and (RLPrinter.Copies <> NumCopias) then
        begin
          RLPrinter.Copies := NumCopias;
        end;

        RLLayout.PrintDialog  := MostrarSetup;
        RLLayout.ShowProgress := MostrarProgresso;
        RLLayout.Title        := TituloRelatorio;

--> adicionado Inicio
        if TituloCabecalho <> '' then
        begin
          RLLayout.PreviewOptions.Defaults := pdIgnoreDefaults;
          RLLayout.PreviewOptions.Caption  := TituloCabecalho;
        end
        else
          RLLayout.PreviewOptions.Defaults := pdUseDefaults;
<-- Adicionado Fim

    ACBrBoleto.pasACBrBoletoFCFR.pasACBrBoletoFCFortesFr.dfmACBrBoletoFCFortesFr.pasACBrBoletoFCFR.dfm


    Qualquer duvida manda mensagem ou erro, eu corrijo.

    • Curtir 1
    • Obrigado 1

    Atualização de versão 2.5 -> 2.5 Revisada

    em ACBreSocial

    Postado · Editado por RenatoE

    Bom dia @Juliana Tamizou e @Italo Jurisato Junior conforme vi no Layout te mais uma alteração.

    A Tag tpTpInsc  não tinha tiCEI fui adicionei. O fonte segue Abaixo.


    tpTpInsc                = (tiCNPJ, tiCPF, tiCAEPF, tiCNO, tiCGC, tiCEI);

     

    Antes

    function eSTpInscricaoToStr(const t:tpTpInsc ) : string;
    begin
      result := EnumeradoToStr2(t, TGenericosString1_5 );
    end;

    Depois 

    function eSTpInscricaoToStr(const t:tpTpInsc ) : string;
    begin
      result := EnumeradoToStr2(t, TGenericosString1_6);
    end;

     

    pcesConversaoeSocial.pas

    Atualização de versão 2.5 -> 2.5 Revisada

    em ACBreSocial

    Postado

    3 horas atrás, RenatoE disse:

    Bom dia, Pessoal eu fiz uma alteração no fonte, porque no layout foi adicionado e no componente não tinha, eu fiz os testes aqui deu certo qualquer coisa se der erro me avisa.

    Evento S1200 

    A Tag tpAcConv não tinha tacAntecipacaoDif fui adicionei. O fonte segue Abaixo.

    tpTpAcConv              = (tacAcordoColTrab, tacLegislacaoFederalEstadualMunicipalDistrital, tacConvencaoColTrab,
                                            tacSetencNormativa, tacConversaoLicenSaudeAcidTrabalho, tacOutrasVerbas, tacAntecipacaoDif);

    Antes
    TGenericosStringA_F : array[0..5] of string = ('A','B','C','D','E','F');

    Depois 

    TGenericosStringA_G : array[0..6] of string = ('A','B','C','D','E','F','G');

     

    pcesConversaoeSocial.pas 99 kB · 0 downloads

     

    No layout 

    image_6d.thumb.png.d92d23768be604a10ad82af4ace19f84.png
     

     

    @Italo Jurisato Junior

    • Curtir 1

    Atualização de versão 2.5 -> 2.5 Revisada

    em ACBreSocial

    Postado · Editado por RenatoE

    Bom dia, Pessoal eu fiz uma alteração no fonte, porque no layout foi adicionado e no componente não tinha, eu fiz os testes aqui deu certo qualquer coisa se der erro me avisa.

    Evento S1200 

    A Tag tpAcConv não tinha tacAntecipacaoDif fui adicionei. O fonte segue Abaixo.

    tpTpAcConv              = (tacAcordoColTrab, tacLegislacaoFederalEstadualMunicipalDistrital, tacConvencaoColTrab,
                                            tacSetencNormativa, tacConversaoLicenSaudeAcidTrabalho, tacOutrasVerbas, tacAntecipacaoDif);

    Antes
    TGenericosStringA_F : array[0..5] of string = ('A','B','C','D','E','F');

    Depois 

    TGenericosStringA_G : array[0..6] of string = ('A','B','C','D','E','F','G');

     

    pcesConversaoeSocial.pas

     

    No layout 

    image_6d.thumb.png.d92d23768be604a10ad82af4ace19f84.png
     

    • Curtir 1
×
×
  • 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.

The popup will be closed in 10 segundos...