Ir para conteúdo
  • Cadastre-se

RenatoE

Membros
  • Total de ítens

    160
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que RenatoE postou

  1. 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
  2. RenatoE

    Cidade de SINOP - COPLAN

    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
  3. @Italo Giurizzato Junior SINOP também trocou de URL https://www.gp.srv.br/tributario/sinop/anfse_web_service fiz o teste trocando na url nome da cidade para cidade de sinop passou
  4. @MarcusSmith blz, muito obrigado! deixa eu aproveitar e te pergunta, so alterou o link ou voce trocou algum arquivo do schemas? o xsd? Obrigado por responder.
  5. @MarcusSmith qual Link que voce viu os links? pois eu estou com problemas com a CIDADE de SINOP, queria sabe se a SINOP também mudou?
  6. Blz, quando subir já pego esta alteração, Obrigado!
  7. @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; =========================================================================================
  8. @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
  9. @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
  10. @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>
  11. 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
  12. Boa tarde, uma demanda para uso de nota na cidade de Grajaú - MA pela empresa Fiss-lex. No arquivo .ini não temos esta cidade, mas vejo que a empresa Fiss-lex já tem implementações de outras cidades. Poderiam nos orientar sobre os procedimentos necessários para tal implementação?
  13. Boa tarde, @Italo Giurizzato Junior estou com mesmo problema do Eudes, qual cidade posso usar Grajau-MA??
  14. 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!
  15. 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
  16. @EMBarbosa a sim desculpa o engano, eu entendi que eu iria precisar alterar o nome da variavel, Muito Obrigado!
  17. @EMBarbosa, OK vou alterar, ja vou encaminhar a alteração.
  18. Boa tarde, Não seria está propriedade. Seria aqui conforme a imagem, a onde esta escrito Pré-visualização.
  19. @Juliana Tamizou o Titulo do cabeçalho o cliente queria por o nome da empresa e com o nome do banco.
  20. Boa tarde @Italo Jurisato Junior , @Juliana Tamizoueu fiz esta alteraçao no componente sabe me dizer se vai subir no SVN?
  21. 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.
  22. 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
  23. 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
×
×
  • 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.