Resolvido... foi só preencher todos as tags da difal que validou...
Se alguém ainda não implementou, aqui ficou assim
If cIndFinal = '1' .and. cIdDest = '2' .and. cIndIeDest = '9'
// Calcular Base de Calculo // 25/10/2017 - 17:17:35
// Inf->VT
// Calcular a porcentagem de imposto do emitente e do destinatario (estado)
If Year(NF->DATAEMIS)<2018
nPorImpEmit := 40
nPorImpDest := 60
ElseIf Year(NF->DATAEMIS)<2019
nPorImpEmit := 20
nPorImpDest := 80
Else
nPorImpEmit := 0
nPorImpDest := 100
EndIf
// Aliquota destino
If Cli->UFCob $ '\AC\CE\ES\GO\MT\MS\PA\PI\RR\SC'
nAliq_IcmsUfDest := 17
ElseIf Cli->UfCob = 'RO'
nAliq_IcmsUfDest := 17.5
Else
nAliq_IcmsUfDest := 18
EndIf
// Calcular Difal // 25/10/2017 - 17:18:04
// DIFAL = Base do ICMS * ((%AlÃquota do ICMS Intra – %AlÃquota do ICMS Inter) / 100)
nDifal := Round( Inf->Vt * (( nAliq_IcmsUfDest - 12 ) / 100 ),2 )
// Efetuar a Partilha
// nICMSUFRemet := Valor do DIFAL * (%Origem / 100)
nICMSUFRemet := Round( nDifal * ( nPorImpEmit / 100 ),2 )
// nICMSUFRemet := Valor do DIFAL * (%Destino / 100)
nICMSUFDest := Round( nDifal * ( nPorImpDest / 100 ), 2)
@ PROW()+1,00 SAY '[ICMSUFDest'+STRZERO(Y,3)+']'
@ PROW()+1,00 SAY 'vBCUFDest=' +ALLTRIM(STR( INF->VT))
@ PROW()+1,00 SAY 'pFCPUFDest=0'
@ PROW()+1,00 SAY 'pICMSInter=12.00'
@ PROW()+1,00 SAY 'pICMSInterPart=' +ALLTRIM(STR(nPorImpDest))
@ PROW()+1,00 SAY 'vFCPUFDest=0'
@ PROW()+1,00 SAY 'vICMSUFDest=' +ALLTRIM(STR(nICMSUFDest))
@ PROW()+1,00 SAY 'vICMSUFRemet=' +ALLTRIM(STR(nICMSUFRemet))
vICMSUFDest += nICMSUFDest
vICMSUFRemet+= nICMSUFRemet
EndIf
e no grupo Total acrescentar
@ PROW()+1,00 SAY 'vFCPUFDest=0.00'
@ PROW()+1,00 SAY 'vICMSUFDest=' +ALLTRIM(STR( vICMSUFDest ))
@ PROW()+1,00 SAY 'vICMSUFRemet=' +ALLTRIM(STR( vICMSUFRemet ))
Rubens