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). exemplo das chamadas 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}}
|