RenatoE

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

Bom dia, Queria tirar uma duvida em questão do mais vinculos na parte da TAG <indMV>, no componente e no Layout deixa apenas 1 IndMV para ser informado, porem no MOS tem um exemplo que é informado mais de 1x. Hoje como é feito no XML e a imagem do MOS ao lado A imagem do Layout ou certo seria assim? Qual seria o certo?

Boa Tarde @IMATECH eu tenho empresa aqui, que manda s2200 com funcionário com 2 ou mais vínculos e não da erro, "se a Matricula for diferente".

Boa tarde, Descobri o erro. Segue o XML com sucesso de um funcionário com 2 Vinculo. Qualquer duvida pode manda mensagem. 13850175500000xxxxxxxxxxxx90700002-S-1200-1.xml