Perguntas Inserir um campo no DANFE - URGENTE

Boa tarde pessoal,

Estou com um problema que não estou conseguindo caminhar e tenho prazo de entrega se alguém puder me dar a direção vai me ajudar. Eu preciso colocar o campo A4_BAIRRO (SA4- tabela transportadora)para sair na impressão do DANFE.

Ou seja, preciso colocar o bairro da transportadora no DANFE. Estou mexendo no fonte DANFEII.PRW porém sem sucesso...

se alguém souber

Estou usando o codigo abaixo para imprimir o redespacho do pedido, mas pode te clarea as ideia ae acho...

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
//³Adiciona mensagem referente à existência de redespacho³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
aAux2 := {}
cValue := ""
nLimit := 75
If !(empty(SC5->C5_REDESP))
dbSelectArea("SA4")
dbSetOrder(1)
If dbSeek(xFilial("SA4")+SC5->C5_REDESP) // Pega as informações de redespacho
xNomRe := SA4->A4_NOME
xEndRe := SA4->A4_END
xBAI := SA4->A4_MUN
xUF := SA4->A4_EST
xCNPJRe:= SA4->A4_CGC
xIE := SA4->A4_INSEST

cValue := "REDESPACHO: "+ AllTrim(xNomRe)+ " - " + AllTrim(xEndRe)+ " - "+ AllTrim(xBAI)+ " - "+AllTrim(xUF)
aAux2 := GAFLS( cValue, nLimit)
For nX := 1 To Len(aAux2)
AAdd(aMensagem, aAux2[nX])
Next nX

cValue := "CNPJ: "+AllTrim(xCNPJRe)+ " I.E: "+AllTrim(xIE)
aAux2 := GAFLS( cValue, nLimit)
For nX := 1 To Len(aAux2)
AAdd(aMensagem, aAux2[nX])
Next nX
EndIf
Endif

Boa tarde Marciano Valverde,

na verdade o fonte DANFEII é bem especifico...eu preciso corrigir encontrar uma maneira de corrigir neste fonte padrão ok.

valeu.

Boa tarde Pessoal, desculpa a demora mas acabei ficando ausente. Segue abaixo a solução para a customização do campo "bairro da transportadora" no DANFE. Abaixo procurei colocar o trecho do fonte onde tratei essa questão.
Notem que criei no array aTransp mais uma posição que é exatamente pra receber o bairro.(atransp[17])

Desde já agradeço a ajuda.


aTransp := {"","0","","","","","","","","","","","","","","",""}

If Type("oTransp:_ModFrete")<>"U"
aTransp[02] := IIF(Type("oTransp:_ModFrete:TEXT")<>"U",oTransp:_ModFrete:TEXT,"0")
EndIf
If Type("oTransp:_Transporta")<>"U"
aTransp[01] := IIf(Type("oTransp:_Transporta:_xNome:TEXT")<>"U",NoChar(oTransp:_Transporta:_xNome:TEXT,lConverte),"")
// aTransp[02] := IIF(Type("oTransp:_ModFrete:TEXT")<>"U",oTransp:_ModFrete:TEXT,"0")
aTransp[03] := IIf(Type("oTransp:_VeicTransp:_RNTC")=="U","",oTransp:_VeicTransp:_RNTC:TEXT)
aTransp[04] := IIf(Type("oTransp:_VeicTransp:_Placa:TEXT")<>"U",oTransp:_VeicTransp:_Placa:TEXT,"")
aTransp[05] := IIf(Type("oTransp:_VeicTransp:_UF:TEXT")<>"U",oTransp:_VeicTransp:_UF:TEXT,"")
If Type("oTransp:_Transporta:_CNPJ:TEXT")<>"U"
aTransp[06] := Transform(oTransp:_Transporta:_CNPJ:TEXT,"@r 99.999.999/9999-99")
ElseIf Type("oTransp:_Transporta:_CPF:TEXT")<>"U"
aTransp[06] := Transform(oTransp:_Transporta:_CPF:TEXT,"@r 999.999.999-99")
EndIf
aTransp[07] := IIf(Type("oTransp:_Transporta:_xEnder:TEXT")<>"U",NoChar(oTransp:_Transporta:_xEnder:TEXT,lConverte),"")
//aTransp[17] := IIf(Type("oTransp:_Transporta:_xBairr:TEXT")<>"U",oTransp:_Transporta:_xBairr:TEXT,"")
aTransp[08] := IIf(Type("oTransp:_Transporta:_xMun:TEXT")<>"U",oTransp:_Transporta:_xMun:TEXT,"")
aTransp[09] := IIf(Type("oTransp:_Transporta:_UF:TEXT")<>"U",oTransp:_Transporta:_UF:TEXT,"")
aTransp[10] := IIf(Type("oTransp:_Transporta:_IE:TEXT")<>"U",oTransp:_Transporta:_IE:TEXT,"")

//Inicio Teste
DbSelectArea("SA4")
DbSetOrder (1)
MsSeek(xFilial("SA4")+SF2->F2_TRANSP)
aTransp[17] := SA4->A4_BAIRRO