Perguntas Mudança de tamanho de BOX na DANFE

Achei o fonte do meu danfe...abri ele...porem nao encontrei onde altero, ou melhor excluo o VLR DESC, V. UNIT LIQ, TOTAL LIQUIDO, ísso basta excluir de la o campo... posso comentar a linha ai ele fica desabilitada correto.... Se eu tirar essas tres colunas, sera que consigo abrir espaco para a descricao.... qual linha eu altero o tamanho da BOX descricao do produto... Estou perguntando tudo isso pois meu fonte esta diferente dos fontes que vi aqui no forum... esta com outro conteudo...

PESSOAL! CONSEGUI RETIRAR AS COLUNAS QUE EU QUERIA RETIRAR DA DANFE, AGORA GOSTARIA DE SABER COMO ABRIR A COLUNA DO CODIGO DO PRODUTO FOI A UNICA QUE AINDA NAO CONSEGUI ABRIR, POIS NAO ACHEI REFERENCIA A ELA NO FONTE...

COMO FOI DITO PELO LUIS ALBERTO, RETIRAR COLUNAS DA DANFE DA TRABALHO MESMO, VC MEXE NO FONTE INTEIRO, SENTI ISSO NA PELE ONTEM ...HEHEHEHHE... AGORA A PERGUNTA É COMO ABRIR A COLUNA DA DESCRICAO DO PRODUTO?

ninguem???

Dessa forma está no DANFE II, o DANFE III que é o meu usual esta ssim:

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Fun‡…o ³ DanfeIT ³ Autor ³ Roberto Souza ³ Data ³ 13/08/10 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descri‡…o ³ Definicao do Box de Itens. ³±±
±±³ ³ ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³ Uso ³ FAT/FIS ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Static Function DanfeIT(oDanfe, nLine, nBaseCol, nBaseTxt, nFolha, nFolhas, aColProd, aMensagem, nPosMsg, aTamCol)

Local nAux := 0
Local nAux2 := 0
Local nX := 0

oBrush := TBrush():New( , CLR_BLACK )
If nFolha == 1
nLine -= 2

nBaseTxt -= 30
oDanfe:FillRect({nLine+455,nBaseCol,nLine+574,nBaseCol+30},oBrush)

oDanfe:Say(nLine+568,nBaseTxt+7,"DADOS DO PRODUTO / SERVIÇO",oFont08N:oFont, ,CLR_WHITE , 270 )
nBaseTxt += 30
aColProd := {}
nAux := nBaseCol + 30
AADD(aColProd, {nAux, nAux + aTamCol[1]}) //"COD. PROD"
nAux += aTamCol[1]
AADD(aColProd, {nAux, nAux + aTamCol[2]}) // "DESCRIÇÃO DO PRODUTOS/SERVIÇOS"
nAux += aTamCol[2]
AADD(aColProd, {nAux, nAux + aTamCol[3]}) // "NCM/SH"
nAux += aTamCol[3]
AADD(aColProd, {nAux, nAux + aTamCol[4]}) // "CST"
nAux += aTamCol[4]
AADD(aColProd, {nAux, nAux + aTamCol[5]}) // "CFOP"
nAux += aTamCol[5]
AADD(aColProd, {nAux, nAux + aTamCol[6]}) // "UN"
nAux += aTamCol[6]
AADD(aColProd, {nAux, nAux + aTamCol[7]}) // "QUANT."
nAux += aTamCol[7]
AADD(aColProd, {nAux, nAux + aTamCol[8]}) // "V.UNITARIO"
nAux += aTamCol[8]
AADD(aColProd, {nAux, nAux + aTamCol[9]}) // "VLR TOTAL"
nAux += aTamCol[9]
// AADD(aColProd, {nAux, nAux + aTamCol[10]}) // "PER DESC"
// nAux += aTamCol[10]
// AADD(aColProd, {nAux, nAux + aTamCol[10]}) // "VLR DESC"
// nAux += aTamCol[10]
// AADD(aColProd, {nAux, nAux + aTamCol[11]}) // "VLR LIQ"
// nAux += aTamCol[11]
// AADD(aColProd, {nAux, nAux + aTamCol[12]}) // "TOT LIQ"
// nAux += aTamCol[12]
AADD(aColProd, {nAux, nAux + aTamCol[10]}) // "BC.ICMS"
nAux += aTamCol[10]
AADD(aColProd, {nAux, nAux + aTamCol[11]}) // "BC.ICMS ST"
nAux += aTamCol[11]
AADD(aColProd, {nAux, nAux + aTamCol[12]}) // "VLR ICMS"
nAux += aTamCol[12]
AADD(aColProd, {nAux, nAux + aTamCol[13]}) // "VLR ICMS ST"
nAux += aTamCol[13]
AADD(aColProd, {nAux, nAux + aTamCol[14]}) // "VALOR IPI"
nAux += aTamCol[14]
AADD(aColProd, {nAux, nAux + aTamCol[15]}) // "ICMS"
nAux += aTamCol[15]
AADD(aColProd, {nAux, nAux + aTamCol[16]}) // "IPI"

oDanfe:Box(nLine+454,nBaseCol+31,nLine+574,MAXBOXH+70)
nAux := nBaseCol + 30
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[1])
oDanfe:Say(nLine+462, nAux + 2,"COD. PROD", oFont08N:oFont)
nAux += aTamCol[1]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[2])
oDanfe:Say(nLine+462, nAux + 2,"DESCR PROD", oFont08N:oFont)
nAux += aTamCol[2]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[3])
oDanfe:Say(nLine+462, nAux + 2,"NCM/SH", oFont08N:oFont)
nAux += aTamCol[3]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[4])
oDanfe:Say(nLine+462, nAux + 2,"CST", oFont08N:oFont)
nAux += aTamCol[4]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[5])
oDanfe:Say(nLine+462, nAux + 2,"CFOP", oFont08N:oFont)
nAux += aTamCol[5]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[6])
oDanfe:Say(nLine+462, nAux + 2,"UN", oFont08N:oFont)
nAux += aTamCol[6]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[7])
oDanfe:Say(nLine+462, nAux + 2,"QUANT.", oFont08N:oFont)
nAux += aTamCol[7]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[8])
oDanfe:Say(nLine+462, nAux + 2,"V.UNITARIO", oFont08N:oFont)
nAux += aTamCol[8]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[9])
oDanfe:Say(nLine+462, nAux + 2,"VLR TOTAL", oFont08N:oFont)
nAux += aTamCol[9]
// oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[10])
// oDanfe:Say(nLine+462, nAux + 2,"DESC", oFont08N:oFont)
// nAux += aTamCol[10]
// oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[10])
// oDanfe:Say(nLine+462, nAux + 2,"VLR DESC", oFont08N:oFont)
// nAux += aTamCol[10]
// oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[11])
// oDanfe:Say(nLine+462, nAux + 2,"V.UNI LIQ", oFont08N:oFont)
// nAux += aTamCol[11]
// oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[12])
// oDanfe:Say(nLine+462, nAux + 2,"TOTAL LIQ", oFont08N:oFont)
// nAux += aTamCol[12]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[10])
oDanfe:Say(nLine+462, nAux + 2,"BC.ICMS", oFont08N:oFont)
nAux += aTamCol[10]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[11])
oDanfe:Say(nLine+462, nAux + 2,"BC.ICMS ST", oFont08N:oFont)
nAux += aTamCol[11]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[12])
oDanfe:Say(nLine+462, nAux + 2,"VLR ICMS", oFont08N:oFont)
nAux += aTamCol[12]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[13])
oDanfe:Say(nLine+462, nAux + 2,"VLR ICMS ST", oFont08N:oFont)
nAux += aTamCol[13]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[14])
oDanfe:Say(nLine+462, nAux + 2,"VALOR IPI", oFont08N:oFont)
nAux += aTamCol[14]
nAux2 := nAux
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[15])
oDanfe:Say(nLine+468, nAux + 2,"ICMS", oFont08N:oFont)
nAux += aTamCol[15]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[16])
oDanfe:Say(nLine+468, nAux + 2,"IPI", oFont08N:oFont)
oDanfe:Box(nLine+454, nAux2, nLine+461, nAux2 + aTamCol[15] + aTamCol[16])
oDanfe:Say(nLine+460, nAux2 + 2,"ALIQUOTA", oFont08N:oFont)

For Nx :=1 to Len(aColProd)
oDanfe:Box(nLine+469,aColProd[nX][1],nLine+575,aColProd[nX][2])
Next
Else

If nPosMsg > 0
nLine -= 265

// nBaseTxt -= 30
// oDanfe:Box(nLine+454,nBaseCol,MAXBOXV,nBaseCol+30)
oDanfe:FillRect({nLine+455,nBaseCol,397,nBaseCol+30},oBrush)
oDanfe:Say(360,nBaseTxt+7,"DADOS DO PRODUTO / SERVIÇO",oFont08N:oFont, , CLR_WHITE, 270 )
nBaseTxt += 30
aColProd := {}
nAux := nBaseCol + 30
AADD(aColProd, {nAux, nAux + aTamCol[1]}) //"COD. PROD"
nAux += aTamCol[1]
AADD(aColProd, {nAux, nAux + aTamCol[2]}) // "DESCRIÇÃO DO PRODUTOS/SERVIÇOS"
nAux += aTamCol[2]
AADD(aColProd, {nAux, nAux + aTamCol[3]}) // "NCM/SH"
nAux += aTamCol[3]
AADD(aColProd, {nAux, nAux + aTamCol[4]}) // "CST"
nAux += aTamCol[4]
AADD(aColProd, {nAux, nAux + aTamCol[5]}) // "CFOP"
nAux += aTamCol[5]
AADD(aColProd, {nAux, nAux + aTamCol[6]}) // "UN"
nAux += aTamCol[6]
AADD(aColProd, {nAux, nAux + aTamCol[7]}) // "QUANT."
nAux += aTamCol[7]
AADD(aColProd, {nAux, nAux + aTamCol[8]}) // "V.UNITARIO"
nAux += aTamCol[8]
AADD(aColProd, {nAux, nAux + aTamCol[9]}) // "VLR TOTAL"
nAux += aTamCol[9]
//AADD(aColProd, {nAux, nAux + aTamCol[10]}) // "PER DESC"
//nAux += aTamCol[10]
//AADD(aColProd, {nAux, nAux + aTamCol[10]}) // "VLR DESC"
//nAux += aTamCol[10]
//AADD(aColProd, {nAux, nAux + aTamCol[11]}) // "VLR LIQ"
//nAux += aTamCol[11]
//AADD(aColProd, {nAux, nAux + aTamCol[12]}) // "TOT LIQ"
//nAux += aTamCol[12]
AADD(aColProd, {nAux, nAux + aTamCol[10]}) // "BC.ICMS"
nAux += aTamCol[10]
AADD(aColProd, {nAux, nAux + aTamCol[11]}) // "BC.ICMS ST"
nAux += aTamCol[11]
AADD(aColProd, {nAux, nAux + aTamCol[12]}) // "VLR ICMS"
nAux += aTamCol[12]
AADD(aColProd, {nAux, nAux + aTamCol[13]}) // "VLR ICMS ST"
nAux += aTamCol[13]
AADD(aColProd, {nAux, nAux + aTamCol[14]}) // "VALOR IPI"
nAux += aTamCol[14]
AADD(aColProd, {nAux, nAux + aTamCol[15]}) // "ICMS"
nAux += aTamCol[15]
AADD(aColProd, {nAux, nAux + aTamCol[16]}) // "IPI"

oDanfe:Box(nLine+454,nBaseCol+31,398,MAXBOXH+70)
nAux := nBaseCol + 30
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[1])
oDanfe:Say(nLine+462, nAux + 2,"COD. PROD", oFont08N:oFont)
nAux += aTamCol[1]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[2])
oDanfe:Say(nLine+462, nAux + 2,"DESCR PROD", oFont08N:oFont)
nAux += aTamCol[2]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[3])
oDanfe:Say(nLine+462, nAux + 2,"NCM/SH", oFont08N:oFont)
nAux += aTamCol[3]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[4])
oDanfe:Say(nLine+462, nAux + 2,"CST", oFont08N:oFont)
nAux += aTamCol[4]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[5])
oDanfe:Say(nLine+462, nAux + 2,"CFOP", oFont08N:oFont)
nAux += aTamCol[5]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[6])
oDanfe:Say(nLine+462, nAux + 2,"UN", oFont08N:oFont)
nAux += aTamCol[6]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[7])
oDanfe:Say(nLine+462, nAux + 2,"QUANT.", oFont08N:oFont)
nAux += aTamCol[7]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[8])
oDanfe:Say(nLine+462, nAux + 2,"V.UNITARIO", oFont08N:oFont)
nAux += aTamCol[8]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[9])
oDanfe:Say(nLine+462, nAux + 2,"VLR TOTAL", oFont08N:oFont)
nAux += aTamCol[9]
// oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[10])
// oDanfe:Say(nLine+462, nAux + 2,"DESC", oFont08N:oFont)
// nAux += aTamCol[10]
// oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[10])
// oDanfe:Say(nLine+462, nAux + 2,"VLR DESC", oFont08N:oFont)
// nAux += aTamCol[10]
// oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[11])
// oDanfe:Say(nLine+462, nAux + 2,"V.UNI LIQ", oFont08N:oFont)
// nAux += aTamCol[11]
// oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[12])
// oDanfe:Say(nLine+462, nAux + 2,"TOTAL LIQ", oFont08N:oFont)
// nAux += aTamCol[12]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[10])
oDanfe:Say(nLine+462, nAux + 2,"BC.ICMS", oFont08N:oFont)
nAux += aTamCol[10]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[11])
oDanfe:Say(nLine+462, nAux + 2,"BC.ICMS ST", oFont08N:oFont)
nAux += aTamCol[11]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[12])
oDanfe:Say(nLine+462, nAux + 2,"VLR ICMS", oFont08N:oFont)
nAux += aTamCol[12]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[13])
oDanfe:Say(nLine+462, nAux + 2,"VLR ICMS ST", oFont08N:oFont)
nAux += aTamCol[13]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[14])
oDanfe:Say(nLine+462, nAux + 2,"VALOR IPI", oFont08N:oFont)
nAux += aTamCol[14]
nAux2 := nAux
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[15])
oDanfe:Say(nLine+468, nAux + 2,"ICMS", oFont08N:oFont)
nAux += aTamCol[15]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[16])
oDanfe:Say(nLine+468, nAux + 2,"IPI", oFont08N:oFont)
oDanfe:Box(nLine+454, nAux2, nLine+461, nAux2 + aTamCol[15] + aTamCol[16])
oDanfe:Say(nLine+460, nAux2 + 2,"ALIQUOTA", oFont08N:oFont)

For Nx :=1 to Len(aColProd)
oDanfe:Box(nLine+469,aColProd[nx][1],398,aColProd[nx][2])
Next
nLine -= 257

Else

nLine -= 265

// nBaseTxt -= 30
// oDanfe:Box(nLine+454,nBaseCol,MAXBOXV,nBaseCol+30)
oDanfe:FillRect({nLine+455,nBaseCol,MAXBOXV-1,nBaseCol+30},oBrush)
oDanfe:Say(nLine+768,nBaseTxt+7,"DADOS DO PRODUTO / SERVIÇO",oFont08N:oFont, , CLR_WHITE, 270 )
nBaseTxt += 30
aColProd := {}
nAux := nBaseCol + 30
AADD(aColProd, {nAux, nAux + aTamCol[1]}) //"COD. PROD"
nAux += aTamCol[1]
AADD(aColProd, {nAux, nAux + aTamCol[2]}) // "DESCRIÇÃO DO PRODUTOS/SERVIÇOS"
nAux += aTamCol[2]
AADD(aColProd, {nAux, nAux + aTamCol[3]}) // "NCM/SH"
nAux += aTamCol[3]
AADD(aColProd, {nAux, nAux + aTamCol[4]}) // "CST"
nAux += aTamCol[4]
AADD(aColProd, {nAux, nAux + aTamCol[5]}) // "CFOP"
nAux += aTamCol[5]
AADD(aColProd, {nAux, nAux + aTamCol[6]}) // "UN"
nAux += aTamCol[6]
AADD(aColProd, {nAux, nAux + aTamCol[7]}) // "QUANT."
nAux += aTamCol[7]
AADD(aColProd, {nAux, nAux + aTamCol[8]}) // "V.UNITARIO"
nAux += aTamCol[8]
AADD(aColProd, {nAux, nAux + aTamCol[9]}) // "VLR TOTAL"
nAux += aTamCol[9]
//AADD(aColProd, {nAux, nAux + aTamCol[10]}) // "PER DESC"
//nAux += aTamCol[10]
//AADD(aColProd, {nAux, nAux + aTamCol[10]}) // "VLR DESC"
//nAux += aTamCol[10]
//AADD(aColProd, {nAux, nAux + aTamCol[11]}) // "VLR LIQ"
//nAux += aTamCol[11]
//AADD(aColProd, {nAux, nAux + aTamCol[12]}) // "TOT LIQ"
//nAux += aTamCol[12]
AADD(aColProd, {nAux, nAux + aTamCol[10]}) // "BC.ICMS"
nAux += aTamCol[10]
AADD(aColProd, {nAux, nAux + aTamCol[11]}) // "BC.ICMS ST"
nAux += aTamCol[11]
AADD(aColProd, {nAux, nAux + aTamCol[12]}) // "VLR ICMS"
nAux += aTamCol[12]
AADD(aColProd, {nAux, nAux + aTamCol[13]}) // "VLR ICMS ST"
nAux += aTamCol[13]
AADD(aColProd, {nAux, nAux + aTamCol[14]}) // "VALOR IPI"
nAux += aTamCol[14]
AADD(aColProd, {nAux, nAux + aTamCol[15]}) // "ICMS"
nAux += aTamCol[15]
AADD(aColProd, {nAux, nAux + aTamCol[16]}) // "IPI"

oDanfe:Box(nLine+454,nBaseCol+31,nLine+675,MAXBOXH+70)

nAux := nBaseCol + 30
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[1])
oDanfe:Say(nLine+462, nAux + 2,"COD. PROD", oFont08N:oFont)
nAux += aTamCol[1]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[2])
oDanfe:Say(nLine+462, nAux + 2,"DESCR PROD", oFont08N:oFont)
nAux += aTamCol[2]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[3])
oDanfe:Say(nLine+462, nAux + 2,"NCM/SH", oFont08N:oFont)
nAux += aTamCol[3]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[4])
oDanfe:Say(nLine+462, nAux + 2,"CST", oFont08N:oFont)
nAux += aTamCol[4]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[5])
oDanfe:Say(nLine+462, nAux + 2,"CFOP", oFont08N:oFont)
nAux += aTamCol[5]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[6])
oDanfe:Say(nLine+462, nAux + 2,"UN", oFont08N:oFont)
nAux += aTamCol[6]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[7])
oDanfe:Say(nLine+462, nAux + 2,"QUANT.", oFont08N:oFont)
nAux += aTamCol[7]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[8])
oDanfe:Say(nLine+462, nAux + 2,"V.UNITARIO", oFont08N:oFont)
nAux += aTamCol[8]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[9])
oDanfe:Say(nLine+462, nAux + 2,"VLR TOTAL", oFont08N:oFont)
nAux += aTamCol[9]
//oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[10])
//oDanfe:Say(nLine+462, nAux + 2,"DESC", oFont08N:oFont)
//nAux += aTamCol[10]
//oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[10])
//oDanfe:Say(nLine+462, nAux + 2,"VLR DESC", oFont08N:oFont)
//nAux += aTamCol[10]
//oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[11])
//oDanfe:Say(nLine+462, nAux + 2,"V.UNI LIQ", oFont08N:oFont)
//nAux += aTamCol[11]
//oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[12])
//oDanfe:Say(nLine+462, nAux + 2,"TOTAL LIQ", oFont08N:oFont)
//nAux += aTamCol[12]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[10])
oDanfe:Say(nLine+462, nAux + 2,"BC.ICMS", oFont08N:oFont)
nAux += aTamCol[10]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[11])
oDanfe:Say(nLine+462, nAux + 2,"BC.ICMS ST", oFont08N:oFont)
nAux += aTamCol[11]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[12])
oDanfe:Say(nLine+462, nAux + 2,"VLR ICMS", oFont08N:oFont)
nAux += aTamCol[12]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[13])
oDanfe:Say(nLine+462, nAux + 2,"VLR ICMS ST", oFont08N:oFont)
nAux += aTamCol[13]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[14])
oDanfe:Say(nLine+462, nAux + 2,"VALOR IPI", oFont08N:oFont)
nAux += aTamCol[14]
nAux2 := nAux
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[15])
oDanfe:Say(nLine+468, nAux + 2,"ICMS", oFont08N:oFont)
nAux += aTamCol[15]
oDanfe:Box(nLine+454, nAux, nLine+469, nAux + aTamCol[16])
oDanfe:Say(nLine+468, nAux + 2,"IPI", oFont08N:oFont)
oDanfe:Box(nLine+454, nAux2, nLine+461, nAux2 + aTamCol[15] + aTamCol[16])
oDanfe:Say(nLine+460, nAux2 + 2,"ALIQUOTA", oFont08N:oFont)

For Nx :=1 to Len(aColProd)
oDanfe:Box(nLine+469,aColProd[nx][1],MAXBOXV,aColProd[nx][2])
Next
nLine -= 257

EndIf

EndIf


Return