achei o problema é a finalidade
o parametro Finalidade esta setado para finMF
case Finalidade of
finMF: Tipo := '0';
finMFD: Tipo := '1';
finTDM: Tipo := '2';
finRZ: Tipo := '3';
finRFD: Tipo := '4';
else
Tipo := '2';
end;
entao o tipo vai ser igual 0, mas preciso que seja 2 para que todos registros e11, e12, e13 sejam gerados.
// tipo do formato do arquivo se a emissão ocorreu por LMFC ou Arq.MFD
Resp := xBemaGeraRegistrosTipoE( PAnsiChar( ArqTmp + '.mfd'),
PAnsichar( NomeArquivo ),
PAnsiChar( DiaIni ),
PAnsiChar( DiaFim ),
PAnsichar( cRazao ),
PAnsichar( cEndereco ),
'',Tipo, '', '', '', '', '', '', '', '',
'', '', '', '', '' );
entendeu?