SITUAÇÃO

No sistema existe 3 locais com chamada para impressão da DACTE, o mesmo tratamento deve ser aplicada em todas.  Deve se considerar que o cliente necessita efetuar as impressões com os layout 3.00a,(RTMSR35) 3.00 (RTMSR31) e 2.00 (RTMSR27).

As chamadas divergentes atuais são:

TMSA200

If lTMSCTe
If lRTMSR01
AAdd(aOpcMenu, { STR0107, 'TMSA200Imp' ,0 ,2}) //-- CTRC
EndIf
If lRTMSR31
AAdd(aOpcMenu, { STR0108, 'U_RTMSR31' ,0 ,2}) //-- DACTE
EndIf

TMSAE70

If FindFunction("TmsVerCTe")
@ aPosObj[3,1],aPosObj[3,4] - 020 BUTTON oBtn03 PROMPT STR0011 ACTION TmsVerCTe() OF oDlg PIXEL SIZE 035,011 //-- "Dacte"
Else
@ aPosObj[3,1],aPosObj[3,4] - 020 BUTTON oBtn03 PROMPT STR0011 ACTION If(ExistBlock("RTMSR27",,.T.),ExecBlock("RTMSR27",.F.,.F.),) OF oDlg PIXEL SIZE 035,011 //-- "Dacte"

EndIf

SPEDCTE 

aRotina := {{"Pesquisar","PesqBrw" ,0,1,0,.F.},;
{"Wiz.Config.","SpedNFeCfg" ,0,2,0 ,NIL},;
{"P&arâmetros",aRotina3 ,0,2,0 ,NIL},;
{"Status SEFAZ","SpedNFeStatus" ,0,2,0 ,NIL},;
{"DACTE",Iif(lRTMSR31,"U_RTMSR31",""),0,2,0 ,NIL},;
{"Monitor",aRotina2 ,0,2,0 ,NIL},;
{"Visualiza Doc.","SpedVisualDoc" ,0,2,0 ,NIL},;
{"Filtro","SpedFiltro" ,0,3,0 ,NIL},;
{"Exportar","SpedExport(1)" ,0,2,0 ,NIL},;
{"Legenda","SpedNFeLeg" ,0,2,0 ,NIL}}

RESULTADO ESPERADO