×
Linguagem de Programação ADVPL
Perguntas Código do Produto e Razão Social emitente na DANFE
11 anos 4 meses atrás #15656
por Rstrozi
Respondido por Rstrozi no tópico Código do Produto e Razão Social emitente na DANFE
Bom dia Denilson,
Se não me engano a variavel que "comanda" o tamanho do código é a nMaxCod .
Com relação ao tamanho das fontes, são estas variaveis responsáveis:
Procure o texto que quer diminuir de tamanho, verifique qual fonte ela está utilizando e altere para uma menor e veja se resolve seu caso.
Acredito que o trecho é este:
Faça uma cópia do que está rodando e boa sorte!
Se não me engano a variavel que "comanda" o tamanho do código é a nMaxCod .
Com relação ao tamanho das fontes, são estas variaveis responsáveis:
PRIVATE oFont07N := TFontEx():New(oDanfe,"Courier New",06,06,.T.,.T.,.F.)// 2
PRIVATE oFont07 := TFontEx():New(oDanfe,"Courier New",06,06,.F.,.T.,.F.)// 3
PRIVATE oFont08 := TFontEx():New(oDanfe,"Courier New",07,07,.F.,.T.,.F.)// 4
PRIVATE oFont08N := TFontEx():New(oDanfe,"Courier New",07,07,.T.,.T.,.F.)// 5
PRIVATE oFont09N := TFontEx():New(oDanfe,"Courier New",08,08,.T.,.T.,.F.)// 6
PRIVATE oFont09 := TFontEx():New(oDanfe,"Courier New",08,08,.F.,.T.,.F.)// 7
PRIVATE oFont10 := TFontEx():New(oDanfe,"Courier New",09,09,.F.,.T.,.F.)// 8
PRIVATE oFont10N := TFontEx():New(oDanfe,"Courier New",09,09,.T.,.T.,.F.)
PRIVATE oFont11 := TFontEx():New(oDanfe,"Courier New",10,10,.F.,.T.,.F.)// 9
PRIVATE oFont12 := TFontEx():New(oDanfe,"Courier New",11,11,.F.,.T.,.F.)// 10
PRIVATE oFont11N := TFontEx():New(oDanfe,"Courier New",10,10,.T.,.T.,.F.)// 11
PRIVATE oFont18N := TFontEx():New(oDanfe,"Courier New",17,17,.T.,.T.,.F.)// 12
PRIVATE oFONT12N := TFontEx():New(oDanfe,"Courier New",11,11,.T.,.T.,.F.)// 12Procure o texto que quer diminuir de tamanho, verifique qual fonte ela está utilizando e altere para uma menor e veja se resolve seu caso.
Acredito que o trecho é este:
oDanfe:Box(042,000,137,250)
oDanfe:Say(052,098, "Identificação do emitente",oFont10N:oFont) //Strozi - alterei fonte de 12 para 10
nLinCalc := 065
cStrAux := AllTrim(NoChar(oEmitente:_xNome:Text,lConverte))
nForTo := Len(cStrAux)/25
nForTo += Iif(nForTo>Round(nForTo,0),Round(nForTo,0)+1-nForTo,nForTo)
For nX := 1 To nForTo
oDanfe:Say(nLinCalc,098,SubStr(cStrAux,Iif(nX==1,1,((nX-1)*32)+1),32), oFont08N:oFont )
nLinCalc+=10
Next nX
cStrAux := AllTrim(NoChar(oEmitente:_EnderEmit:_xLgr:Text,lConverte))+", "+AllTrim(oEmitente:_EnderEmit:_Nro:Text)
nForTo := Len(cStrAux)/32
nForTo += Iif(nForTo>Round(nForTo,0),Round(nForTo,0)+1-nForTo,nForTo)
For nX := 1 To nForTo
oDanfe:Say(nLinCalc,098,SubStr(cStrAux,Iif(nX==1,1,((nX-1)*32)+1),32),oFont08N:oFont)
nLinCalc+=10
Next nXFaça uma cópia do que está rodando e boa sorte!
Tempo para a criação da página:0.103 segundos