Olá boa tarde precisei fazer 2 mudanças para emitir a gnre na unit pgnreGNRE.pas coloquei Fc04_docOrigem := '0';
e na unit pgnreGNREW.pas
if GNRE.c06_valorPrincipal > 0 then
Gerador.wCampo(tcDe2, '', 'valorGNRE ', 01, 15, 1, GNRE.c06_valorPrincipal, '');
if GNRE.c10_valorTotal > 0 then
Gerador.wCampo(tcDe2, '', 'valorGNRE ', 01, 15, 1, GNRE.c10_valorTotal, '');
Pois como estava informando o valor no campo do valor principal no xml o valor da gnre ficava 0.
Mandei as units alteradas.
testado com as alterações deu certo a emissão.
Obrigado.
pgnreGNRE.pas
pgnreGNREW.pas