Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Produto:

ADVPL

Versões:

Todas

Ocorrência:

A FWMSPRINTER tem os formarto ITF14 ou DUN14 ?

Ambiente:

P12

Passo a passo:

O DUN14 tem as mesmas características do metodo INT25 já existente na FWMsPrinter.


Imprime codigo de barra no padrão Int25

@param nRow Posição relativa ao topo
@param nCol Posição relativa à esquerda
@param cCodeBar Texto a ser codificado
@param nWidth Largura da Barra
@param nHeight Altura da Barra
@param lSay Indica se deve colocar say com o conteúdo em baixo do código de barras
@param lCheck Indica se deve calcular o digito verificador

//--------------------------------------------------------------
Method Int25(nRow,nCol,cCodeBar,nWidth,nHeight,lSay,lCheck,oFont) Class FWMSPrinter

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Exemplo de customização

#Include "PROTHEUS.CH
#Include "RPTDEF.CH"
#INCLUDE "TBICONN.CH"


User Function Int25()

Local oFont := TFont():New('Courier new',,-16,.T.)

local cLineDig := ""

Local lAdjustToLegacy := .T.

Local lDisableSetup := .T.

Local cNUM:="0001" //É O NOME DO BOLETO NO MEU CASO O CODIGO DA NOTA

Local CodBarras := "23793047089000000042384022562100266430000100000" //CODIGO DE BARRAS A SE DECODIFICADO

Private oPrn


PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01"


oPrn := FWMSPrinter():New(cNUM,IMP_PDF,lAdjustToLegacy,,lDisableSetup,,,,,.F.)//instaciando a classe

oPrn:SetResolution(72)

oPrn:SetPortrait()

oPrn:SetPaperSize(DMPAPER_A4)

oPrn:StartPage()

oPrn:cPathPDF := "c:\Temp\"

oPrn:Int25(000800,300,CodBarras,0.73,40,.F.,.F., oFont)

oPrn:EndPage()

oPrn:Preview()

FreeObj(oPrn)

RESET ENVIRONMENT

Return

Observações:

FWMsPrinter