Jump to content

110.png

Curso Gratuito para todos Usuários
+ Super Treinamento Assinando o SAC Anual

botao_campanha_thulio.png

sem_ttulo-620.fw_-e1583866078274.png 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

RenatoE

Membros
  • Content Count

    144
  • Joined

  • Last visited

  • Days Won

    1

RenatoE last won the day on December 15 2017

RenatoE had the most liked content!

Community Reputation

43 Excellent

2 Followers

About RenatoE

  • Rank
    Membro

Contact Methods

  • Website URL
    http://www.edsonbill.com
  • Skype
    edsonha

Profile Information

  • Sexo
    Masculino
  • Localização
    Piquete, SP

Recent Profile Visitors

1,111 profile views
  1. @EMBarbosa a sim desculpa o engano, eu entendi que eu iria precisar alterar o nome da variavel, Muito Obrigado!
  2. @EMBarbosa, OK vou alterar, ja vou encaminhar a alteração.
  3. Boa tarde, Não seria está propriedade. Seria aqui conforme a imagem, a onde esta escrito Pré-visualização.
  4. @Juliana Tamizou o Titulo do cabeçalho o cliente queria por o nome da empresa e com o nome do banco.
  5. Boa tarde @Italo Jurisato Junior , @Juliana Tamizoueu fiz esta alteraçao no componente sabe me dizer se vai subir no SVN?
  6. 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.
  7. 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
  8. 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
  9. 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.
  10. 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.
  11. @Patrick Alves no caso se ele tiver assim o XML não ficaria assim e correto seria assim?
  12. 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?
  13. 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".
  14. 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
×
×
  • Create New...