RenatoE

@BigWings Valeu pela ajuda, Muito Obrigado!

@BigWings @Daniel Simoes @Italo Giurizzato Junior Preenchido o componente ACBrNotaFiscal.NFe.infRespTec.CNPJ := 1234001010200; ACBrNotaFiscal.NFe.infRespTec.xContato := 'Pedro II'; ACBrNotaFiscal.NFe.infRespTec.idCSRT := 1; ACBrNotaFiscal.NFe.infRespTec.hashCSRT := '432478392dfhdjsfhds'; -------------------------------------- procedure TNFeW.GerarinfRespTec; begin if (idCSRT <> 0) and (CSRT <> '') then -> utilizar if (NFe.infRespTec.idCSRT <> 0) and (NFe.infRespTec.hashCSRT <> '') then begin Gerador.wCampo(tcInt, '#086', 'idCSRT ', 02, 02, 1, idCSRT, DSC_IDCSRT); -> NFe.infRespTec.idCSRT Gerador.wCampo(tcStr, '#087', 'hashCSRT', 28, 28, 1, CalcularHashCSRT(CSRT, FChaveNFe), DSC_HASHCSRT); -> NFe.infRespTec.hashCSRT end; end; end; Ao chegar no método TNFeW.GerarinfRespTec, o campo idCSRT permanece zerado, uma vez que o valor está sendo obtido de outra classe. Contudo, ao ajustar para utilizar NFe.infRespTec.idCSRT, o valor é preenchido corretamente, já que está sendo atribuído diretamente ao local correto.

@BigWings confirmar se a implementação correta dos campos IdCSRT e hashCSRT não seria dentro da classe TinfRespTec. Por exemplo: ACBrNotaFiscal.NFe.infRespTec.CNPJ := 1234001010200; ACBrNotaFiscal.NFe.infRespTec.xContato := 'Pedro II'; ACBrNotaFiscal.NFe.infRespTec.idCSRT := 1; ACBrNotaFiscal.NFe.infRespTec.hashCSRT := '432478392dfhdjsfhds'; Notei que o campo hashCSRT está sendo atribuído corretamente. Contudo, os campos IdCSRT e hashCSRT estão sendo utilizados em classes diferentes, o que pode gerar inconsistências. Acredito que o correto seria mantê-los na mesma classe (TinfRespTec) para garantir a integridade e coerência das informações.

Prezados, Estou realizando a implementação dos campos hashCSRT e IDCSRT referentes ao responsável técnico na NF-e e NFC-e. No entanto, observei que o código está buscando os valores de uma origem incorreta. Atualmente, os valores estão sendo obtidos do módulo pcnNFeW, quando o correto seria buscá-los no módulo pcnNFe. ACBr O correto seria:

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

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

@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

@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.

@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?

Boa tarde, @Italo Giurizzato Junior estou com mesmo problema do Eudes, qual cidade posso usar Grajau-MA??

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!

@Italo Giurizzato Junior Muito Obrigado!

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

@EMBarbosa a sim desculpa o engano, eu entendi que eu iria precisar alterar o nome da variavel, Muito Obrigado!

@EMBarbosa, OK vou alterar, ja vou encaminhar a alteração.

Boa tarde, Não seria está propriedade. Seria aqui conforme a imagem, a onde esta escrito Pré-visualização.

@Juliana Tamizou o Titulo do cabeçalho o cliente queria por o nome da empresa e com o nome do banco.

Boa tarde @Italo Jurisato Junior , @Juliana Tamizoueu fiz esta alteraçao no componente sabe me dizer se vai subir no SVN?

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.

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

@Italo Jurisato Junior

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

Boa tarde, estou com uma duvida aqui, como faz para aparecer TAG "penAlim" pois minha verba é de pensão alimentícia e não esta gerando, eu vi dentro do fonte que esta passando pensaoAlimInst valor NIL e por isso não entra para gerar a pensão. No fonte do ACBr para gerar if pRubricasComPensao[i].pensaoAlimInst() then GerarPensaoAlim(pRubricasComPensao[i].penAlim, 'penAlim'); no meu fonte eu passo o valor penAlim.Clear; with penAlim.Add do begin if Trim(vQryPensao.FieldByName('xcpf').AsString) <> '' then cpfBenef := TiraMascara(Trim(vQryPensao.FieldByName('xcpf').AsString)); if (not vQryPensao.FieldByName('xnascdep').IsNull) or (vQryPensao.FieldByName('xnascdep').AsDateTime > StrToDate('30/12/1899')) then dtNasctoBenef := vQryPensao.FieldByName('xnascdep').AsDateTime; if Trim(vQryPensao.FieldByName('xnomedep').AsString) <> '' then nmBenefic := Trim(vQryPensao.FieldByName('xnomedep').AsString); if vQryPensao.FieldByName('valor').AsFloat > 0 then vlrPensao := vQryPensao.FieldByName('valor').AsFloat; end; Alguém pode da uma dica para gerar.

Blz, @Patrick Alves Muito Obrigado! então nem vou precisar alterar meu fonte, estava com receio que estava errado. qualquer coisa se precisar estamos ai.

@Patrick Alves no caso se ele tiver assim o XML não ficaria assim e correto seria assim?