Se ((R044CAL.TipCal = 13) ou (R044CAL.TipCal = 14) ou (R044CAL.TipCal = 12))

inicio 

Valevt = 0;

Fim;

Senao 

Cancel(1);