TPF0 TppReportAutoStop DataPipelineDados PassSetting psTwoPassPrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.PaperNameCustomPrinterSetup.PrinterNameDefaultPrinterSetup.SaveDeviceSettingsPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeightTJPrinterSetup.mmPaperWidthPrinterSetup.PaperSizeTemplate.FileNameDC:\Users\pleffer\Desktop\Configs\RetratoSimplificado80mm_Editado.rtmUnits utMillimetersAllowPrintToArchive AllowPrintToFile ArchiveFileName ($MyDocuments)\ReportArchive.raf DeviceTypeScreenDefaultFileDeviceTypePDFEmailSettings.ReportFormatPDF LanguageIDDefaultOutlineSettings.CreateNode OutlineSettings.CreatePageNodes OutlineSettings.Enabled OutlineSettings.Visible PDFSettings.EmbedFontOptions %PDFSettings.EncryptSettings.AllowCopy )PDFSettings.EncryptSettings.AllowInteract 'PDFSettings.EncryptSettings.AllowModify &PDFSettings.EncryptSettings.AllowPrint #PDFSettings.EncryptSettings.EnabledPDFSettings.FontEncodingfeAnsi!PDFSettings.ImageCompressionLevelPreviewFormSettings.WindowState wsMaximizedRTFSettings.DefaultFont.CharsetDEFAULT_CHARSETRTFSettings.DefaultFont.Color clWindowTextRTFSettings.DefaultFont.HeightRTFSettings.DefaultFont.NameArialRTFSettings.DefaultFont.Style ShowCancelDialog TextFileName($MyDocuments)\Report.pdf TextFileType ftFixedLength TextSearchSettings.DefaultStringTextSearchSettings.EnabledXLSSettings.AppName ReportBuilderXLSSettings.Author ReportBuilderXLSSettings.SubjectReportXLSSettings.TitleReportVersion14.08 mmColumnWidthDataPipelineNameDados TppDetailBand ppDetailBand1Background1.Brush.StylebsClearBackground2.Brush.StylebsClear PrintHeight phDynamicmmBottomOffsetmmHeighthmmPrintPosition TppRegion ppRegion7UserName regionTotais KeepTogether Brush.StylebsClear Pen.StylepsClearShiftRelativeTo ppSubReport1Stretch Transparent mmHeightRmmLeftmmTopBandType LayerName ForegroundTppShapeppShape6UserNameShape6mmHeight mmLeftmmTopƉmmWidth1BandType LayerName ForegroundTppShapeppShape5UserNameShape5mmHeight!mmLeftmmTopimmWidth?EBandType LayerName ForegroundTppShapeppShape4UserNameShape4mmHeight!mmLeft2mmTopimmWidth;BandType LayerName ForegroundTppShapeppShape3UserNameShape3mmHeight!mmLeft8cmmTopimmWidth>BandType LayerName ForegroundTppShapeppShape2UserNameShape2mmHeight!mmLeft0mmTopimmWidth3BandType LayerName ForegroundTppShapeppShape1UserNameShape1mmHeight!mmLeftmmTopimmWidth1BandType LayerName ForegroundTppLabel ppLabel13UserNamelblValorTotNotaCaption Total Nota Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold Transparent mmHeight^ mmLeft6mmTopmmWidthz-BandType LayerName Foreground TppDBText ppDBText16UserNamedbtxtValorTotNota DataField ValorTotNota DataPipelineDados Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBoldParentDataPipeline Transparent DataPipelineNameDadosmmHeighti mmLeft6mmTopXmmWidth<BandType LayerName ForegroundTppLabel ppLabel14UserName lblDescontoCaptionDesconto Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold Transparent mmHeighti mmLeftZgmmTopmmWidthS+BandType LayerName Foreground TppDBText ppDBText13UserNamedbtxtValorTotal1 DataField ValorTotProd DataPipelineDados Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style ParentDataPipeline Transparent DataPipelineNameDadosmmHeight? mmLeft6mmTop_}mmWidth<BandType LayerName ForegroundTppLabelppLabel7UserNameLabel3AutoSizeCaption BaseCalcISSQN Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style Transparent VisiblemmHeightmmLeft+mmTopmmWidth BandType LayerName Foreground TppDBText ppDBText11UserNameDBTextDesconto DataFieldDesconto DataPipelineDados Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style Transparent DataPipelineNameDadosmmHeight? mmLeftZgmmTopXmmWidth6BandType LayerName ForegroundTppLabel ppLabel15UserNamelblValorTotProdCaption Tot. Produtos Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold Transparent mmHeighti mmLeft6mmTopommWidth/=BandType LayerName ForegroundTppLabel ppLabel16UserName lblValorFreteCaptionFrete Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold Transparent mmHeighti mmLeftmmTopmmWidthQBandType LayerName ForegroundTppLabel ppLabel18UserNameLabel10AutoSizeCaption ValorTotISSQN Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style Transparent VisiblemmHeightxmmLeft+mmTopmmWidth BandType LayerName Foreground TppDBText ppDBText14UserNameDBTextValorFrete DataField ValorFrete DataPipelineDados Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style Transparent DataPipelineNameDadosmmHeight? mmLeftmmTopXmmWidthq,BandType LayerName ForegroundTppLineppLine1UserNameLine1Weight?mmHeight4mmLeftmmTopmmLeftmmTopIemmWidthBandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppLabel ppLabel28UserNameLabel15CaptionEmissor Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold TextAlignment taCentered Transparent mmHeight mmLeft3mmTopZgmmWidth+BandType LayerName Foreground TppDBText ppDBText2UserNameDBEmitFantasia DataField EmitFantasia DataPipelineDados Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold Transparent DataPipelineNameDadosmmHeight mmLeft3mmToptmmWidthBandType LayerName Foreground TppDBText ppDBText6UserName DBEmitCNPJ DataFieldEmitCNPJ DataPipelineDados Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold Transparent DataPipelineNameDadosmmHeight mmLeft3mmTop1mmWidthtjBandType LayerName Foreground TppDBText ppDBText7UserNameDBEmitIE DataFieldEmitIE DataPipelineDados Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold Transparent DataPipelineNameDadosmmHeight mmLeft~mmTop1mmWidth(BandType LayerName ForegroundTppLabel ppLabel29UserNameLabel16Caption/ Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style Transparent mmHeight mmLeftvmmTop9mmWidthQBandType LayerName Foreground TppDBText ppDBText10UserName DBEmitEndCharWrap DataFieldEmitEnd DataPipelineDados Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold Transparent WordWrap DataPipelineNameDadosmmHeightmmLeft3mmTopmmWidthBandType LayerName ForegroundTppLineppLine3UserNameLine3Weight?mmHeightmmLeftmmTopRfmmWidth%BandType LayerName Foreground TppRegion ppRegion9UserName RegionTransp Brush.StylebsClearShiftRelativeTo ppRegion7Stretch Transparent mmHeightRmmLeftmmTopmmWidth6BandType LayerName ForegroundmmBottomOffsetmmOverFlowOffsetmmStopPosition mmMinHeightTppShape ppShape14UserNameShape14mmHeightmmLeftVmmTop~mmWidth/bBandType LayerName ForegroundTppShape ppShape13UserNameShape13mmHeightmmLeftmmTop~mmWidth_BandType LayerName ForegroundTppShape ppShape12UserNameShape12mmHeight!mmLeft mmToptmmWidthaIBandType LayerName ForegroundTppShape ppShape11UserNameShape11mmHeight!mmLeftmmToptmmWidthNBandType LayerName ForegroundTppShape ppShape10UserNameShape10mmHeight!mmLeftmmToptmmWidthBandType LayerName ForegroundTppShapeppShape9UserNameShape9mmHeightmmLeftmmTopmmWidthBandType LayerName ForegroundTppLabel ppLabel36UserNameLabel36CaptionTransportadora Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold Transparent mmHeight; mmLeft"mmTopmmWidthZBandType LayerName Foreground TppDBText ppDBText32UserNameDBText7 DataFieldTraNome DataPipelineDados Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style Transparent DataPipelineNameDadosmmHeight^ mmLeft"mmTopmmWidthSBandType LayerName Foreground TppDBText ppDBText33UserNameDBText8 DataField TraDescMod DataPipelineDados Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style Transparent DataPipelineNameDadosmmHeight^ mmLeftmmTopmmWidth.CBandType LayerName Foreground TppDBText ppDBText35UserNameDBText10 DataFieldTraEnd DataPipelineDados Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style Transparent DataPipelineNameDadosmmHeight^ mmLeft"mmTopmmWidthBandType LayerName Foreground TppDBText ppDBText36UserNameDBText11 DataFieldTraMun DataPipelineDados Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style Transparent DataPipelineNameDadosmmHeight^ mmLeftmmTopmmWidth.CBandType LayerName ForegroundTppLabel ppLabel37UserNameLabel37CaptionNome Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold Transparent mmHeighti mmLeft"mmTopmmWidthBandType LayerName ForegroundTppLabel ppLabel38UserNameLabel38CaptionFrete Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold Transparent mmHeighti mmLeftmmTopmmWidthQBandType LayerName ForegroundTppLabel ppLabel39UserNameLabel39CaptionPlaca Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold Transparent mmHeighti mmLeft6mmTopmmWidthBandType LayerName ForegroundTppLabel ppLabel40UserNameLabel40Caption Endereço Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold Transparent mmHeighti mmLeft"mmTopmmWidth~+BandType LayerName ForegroundTppLabel ppLabel41UserNameLabel41Caption Município Font.Charset ANSI_CHARSET Font.ColorclBlack Font.NameFontB88 Font.Size Font.Style fsBold Transparent mmHeighti mmLeftmmTopmmWidth|,BandType LayerName Foreground TraCodeModule raCodeModule1 ProgramStream % TraProgram ChildType ProgramNameGlobalOnCreate ProgramType ttProcedureSourceprocedure GlobalOnCreate; begin lblHomologacao.Visible := (Dados['FraseHomologacao'] <> ''); end;  TraProgram ChildTypeIsFunctionType ProgramName FormataCNPJ ProgramType ttFunctionSourcefunction FormataCNPJ(const aCNPJ: string): string; begin if aCNPJ <> '' then Result := FormatMaskText('99.999.999/9999-99;0;*', Trim(aCNPJ)) else Result := ''; end;  TraProgram ChildTypeIsFunctionType ProgramName FormataChave ProgramType ttFunctionSource function FormataChave(const aChave : string): String; var _count,i : integer; begin _count := 0; Result := ''; for i := 1 to Length(aChave) do begin Result := Result + Copy(aChave,i,1); _count := _count +1; if _count = 4 then begin Result := Result + ' '; _count := 0; end; end; end;  TraProgram ChildTypeIsFunctionType ProgramName FormataMoeda ProgramType ttFunctionSourcefunction FormataMoeda(const aValor : string): string; begin if Trim(aValor) <> '' then begin {aValor := AnsiReplaceStr(aValor, '.', '');} Result := FormatCurr('#0.00', StrToFloat(aValor)) end else Result := ''; end;  TraProgram ChildTypeIsFunctionType ProgramNamegetPorcentagem ProgramType ttFunctionSource function getPorcentagem(const aValor : string): string; var _total,_valor : extended; begin if (aValor <> '') then if (StrToFloat(aValor)>0) then begin if Dados['ValorTotNota'] <> '' then begin _total := StrToCurr(Dados['ValorTotNota']); _valor := StrToCurr(aValor); Result := FormatCurr('#,0.0',_total*_valor/100)+'%'; end; end else Result := '0%'; end;  TraProgram ChildTypeIsFunctionType ProgramName getURLSefaz ProgramType ttFunctionSource Vfunction getURLSefaz(const aUF : string): string; begin if Dados['tpAmb'] = '1' then begin // ambiente de producao if aUF = 'AC' then Result := 'http://sefaznet.ac.gov.br/nfce/consulta.xhtml' else if aUF = 'AM' then Result := 'http://sistemas.sefaz.am.gov.br/nfceweb/formConsulta.do' else if aUF = 'MA' then Result := 'http://www.nfce.sefaz.ma.gov.br/portal/consultarNFCe.jsp' else if aUF = 'MT' then Result := 'http://www.sefaz.mt.gov.br/nfce/consultanfce' else if aUF = 'RN' then Result := 'http://www.nfe.rn.gov.br' else if aUF = 'RS' then Result := 'https://www.sefaz.rs.gov.br/NFCE/NFCE-COM.aspx' else if aUF = 'AL' then Result := 'http://nfce.sefaz.al.gov.br/consultaNFCe.htm' else if (aUF = 'AP') or (aUF = 'DF') or (aUF = 'RR') or (aUF = 'SC') or (aUF = 'TO') then Result := 'https://www.sefaz.rs.gov.br/NFE/NFE-COM.aspx?' else if aUF = 'ES' then Result := 'http://app.sefaz.es.gov.br/ConsultaNFCe' else if (aUF = 'RJ') then Result := 'http://nfce.fazenda.rj.gov.br/consulta' else if (aUF = 'SP') then Result := 'https://www.nfce.fazenda.sp.gov.br/NFCeConsultaPublica/Paginas/ConsultaQRCode.aspx' else if aUF = 'SE' then Result := 'http://www.nfe.se.gov.br/portal/portalNoticias.jsp' else if aUF = 'PA' then Result := 'https://appnfc.sefa.pa.gov.br/portal/view/consultas/nfce/consultanfce.seam' else if aUF = 'PR' then Result := 'http://www.sped.fazenda.pr.gov.br/modules/conteudo/conteudo.php?conteudo=100' else if aUF = 'BA' then Result := 'http://nfe.sefaz.ba.gov.br/servicos/nfce/default.aspx' else if aUF = 'PB' then Result := 'https://www5.receita.pb.gov.br/atf/seg/SEGf_AcessarFuncao.jsp?cdFuncao=FIS_1410' else if aUF = 'RO' then Result := 'http://www.nfce.sefin.ro.gov.br'; end else begin // ambiente de homologacao if aUF = 'AC' then Result := 'http://sefaznet.ac.gov.br/nfce/consulta.xhtml' else if aUF = 'AM' then Result := 'http://sistemas.sefaz.am.gov.br/nfceweb/formConsulta.do' else if aUF = 'MA' then Result := 'http://www.hom.nfce.sefaz.ma.gov.br/portal/consultaNFe.do?method=preFilterCupom&' else if aUF = 'MT' then Result := 'http://www.sefaz.mt.gov.br/nfce/consultanfce' else if aUF = 'RN' then Result := 'http://www.nfe.rn.gov.br' else if aUF = 'RS' then Result := 'https://www.sefaz.rs.gov.br/NFCE/NFCE-COM.aspx' else if aUF = 'AL' then Result := 'http://nfce.sefaz.al.gov.br/consultaNFCe.htm' else if (aUF = 'AP') or (aUF = 'DF') or (aUF = 'RR') or (aUF = 'SC') or (aUF = 'TO') then Result := 'https://www.sefaz.rs.gov.br/NFE/NFE-RES.aspx?' else if (aUF = 'ES') then Result := 'http://homologacao.sefaz.es.gov.br/ConsultaNFCe/qrcode.aspx' else if (aUF = 'RJ') then Result := 'http://nfce.fazenda.rj.gov.br/consulta' else if (aUF = 'SP') then Result := 'https://www.homologacao.nfce.fazenda.sp.gov.br/NFCeConsultaPublica/Paginas/ConsultaQRCode.aspx' else if aUF = 'SE' then Result := 'http://www.hom.nfe.se.gov.br/portal/portalNoticias.jsp' else if aUF = 'PA' then Result := 'https://appnfc.sefa.pa.gov.br/portal-homologacao/view/consultas/nfce/consultanfce.seam' else if aUF = 'PR' then Result := 'http://www.sped.fazenda.pr.gov.br/modules/conteudo/conteudo.php?conteudo=100' else if aUF = 'BA' then Result := 'http://hnfe.sefaz.ba.gov.br/servicos/nfce/default.aspx' else if aUF = 'PB' then Result := 'https://www6.receita.pb.gov.br/atf/seg/SEGf_AcessarFuncao.jsp?cdFuncao=FIS_1410' else if aUF = 'RO' then Result := 'http://www.nfce.sefin.ro.gov.br/consultaAmbHomologacao.jsp'; end; end;  TraProgram ChildType ProgramNameEnableNomeEndereco ProgramType ttProcedureSourceprocedure EnableNomeEndereco(aEnable : boolean); begin // LabelEndereco.visible := aEnable; // LabelNome.visible := aEnable; // txtEndereco.visible := aEnable; dbTxtNome.visible := aEnable; end; TraEventHandler ProgramNamedbtxtChaveOnGetText ProgramType ttProcedureSourcecprocedure dbtxtChaveOnGetText(var Text: String); begin Text := FormataChave(Text); end; ComponentName dbtxtChave EventName OnGetTextEventID5TraEventHandler ProgramNametxtEnderecoOnGetText ProgramType ttProcedureSourceprocedure txtEnderecoOnGetText(var Text: String); begin Text := 'END: ' +Dados['DestEnd'] + ' - ' + Dados['DestMun'] + ' - ' + Dados['DestUF']; end; ComponentName txtEndereco EventName OnGetTextEventID5TraEventHandler ProgramNamedbtxtCNPJDestinatarioOnGetText ProgramType ttProcedureSourceYprocedure dbtxtCNPJDestinatarioOnGetText(var Text: String); begin if (Text = '') then begin lblDocumento.caption := ''; Text := 'Destinatário não informado'; end else if length(Dados['DestCNPJ']) = 14 then begin dbtxtCNPJDestinatario.DisplayFormat := '00.000.000\/0000\-00;0;'; lblDocumento.caption := 'CNPJ:'; end else if length(Dados['DestCNPJ']) = 11 then begin dbtxtCNPJDestinatario.DisplayFormat := '000.000.000\-000;0;'; lblDocumento.caption := 'CPF:'; end; end; ComponentNamedbtxtCNPJDestinatario EventName OnGetTextEventID5TraEventHandler ProgramNameTipoOperacaoOnGetText ProgramType ttProcedureSourceprocedure TipoOperacaoOnGetText(var Text: String); begin if Dados['nTpNF'] = '0' then Text := 'Tipo da Operação: ENTRADA' else if Dados['nTpNF'] = '1' then Text := 'Tipo da Operação: SAÍDA' else Text := ''; end; ComponentName TipoOperacao EventName OnGetTextEventID5TraEventHandler ProgramName nNFOnGetText ProgramType ttProcedureSourcekprocedure nNFOnGetText(var Text: String); begin Text := IntToStr(StrToIntDef(Dados['nNF'],0)); end; ComponentNamenNF EventName OnGetTextEventID5TraEventHandler ProgramNameDataEmissaoOnGetText ProgramType ttProcedureSourcewprocedure DataEmissaoOnGetText(var Text: String); begin Text := 'DATA EMISSÃO: ' + Dados['DtEmissao']; end; ComponentName DataEmissao EventName OnGetTextEventID5TraEventHandler ProgramNameDBEmitCNPJOnGetText ProgramType ttProcedureSourcepprocedure DBEmitCNPJOnGetText(var Text: String); begin Text := 'CNPJ: '+ FormataCNPJ(Text); end; ComponentName DBEmitCNPJ EventName OnGetTextEventID5TraEventHandler ProgramNameDBEmitIEOnGetText ProgramType ttProcedureSourceYprocedure DBEmitIEOnGetText(var Text: String); begin Text := 'IE: '+Text; end; ComponentNameDBEmitIE EventName OnGetTextEventID5TraEventHandler ProgramNameDBEmitEndOnGetText ProgramType ttProcedureSourceprocedure DBEmitEndOnGetText(var Text: String); begin Text := 'END: ' +Dados['EmitEnd'] + ' - ' + Dados['EmitMun'] + ' - ' + Dados['EmitUF']; end; ComponentName DBEmitEnd EventName OnGetTextEventID5TraEventHandler ProgramNameDBIEDestOnGetText ProgramType ttProcedureSourceprocedure DBIEDestOnGetText(var Text: String); begin if Dados['DestIE'] = '' then Text := Dados['DestIE'] else Text := '/ IE: ' + Dados['DestIE']; end; ComponentNameDBIEDest EventName OnGetTextEventID5TppDesignLayersppDesignLayers1TppDesignLayerppDesignLayer1UserName Foreground LayerTypeltBandedIndexTppParameterListppParameterList1