Perguntas Amarração entre produtos

Opaa..

Seguinte, estou com um probleminha..
Tenho esse programa para validar o faturamento de um produto, ou seja, só posso vender produto MA se incluir em primeiro o o produto MO

Porém, precisa fazer um complemento de ICMS..

Preciso criar uma linha de validação, se o pedido for diferente de complemento de ICMS continua com o programa, travando a confirmação do pedido... se for pedido de complemento de ICMS, ele permite incluir apenas o produto MA.

Segue programa

Local _lRet := .t.
Local _cProduto :=""
Local _nQtdVen :=0

If SM0->M0_CODFIL=="06" //.and. Date()>=ctod("01/04/13")

If n=1 .and. Left(M->C6_PRODUTO,2)="MA"

MsgBox ("Produto "+Trim(M->C6_PRODUTO)+" deve ser informado após produto MO"+Trim(Subs(M->C6_PRODUTO,3,13)),"VL_C6_PRODUTO","INFO")
_lRet:=.f.

ElseIf n>1

_cProduto:=aCols[n-1,aScan(aHeader,{|x|Alltrim(x[2])=="C6_PRODUTO"})]
_nQtdVen :=aCols[n-1,aScan(aHeader,{|x|Alltrim(x[2])=="C6_QTDVEN"})]

If Left(_cProduto,2)="MO" .and. M->C6_PRODUTO="MA"+Subs(_cProduto,3,13)
aCols[n,aScan(aHeader,{|x|Alltrim(x[2])=="C6_QTDVEN"})]:=_nQtdVen

elseIf Left(M->C6_PRODUTO,2)="MO" .and. Left(_cProduto,2)="MO"

MsgBox ("Produto "+Trim(M->C6_PRODUTO)+" deve ser informado antes de produto MA"+Trim(Subs(M->C6_PRODUTO,3,13)),"VL_C6_PRODUTO","INFO")
_lRet:=.f.

elseIf Left(M->C6_PRODUTO,2)="MA" .and. _cProduto<>"MO"+Subs(M->C6_PRODUTO,3,13)

MsgBox ("Produto "+Trim(M->C6_PRODUTO)+" deve ser informado após produto MO"+Trim(Subs(M->C6_PRODUTO,3,13)),"VL_C6_PRODUTO","INFO")
_lRet:=.f.

endif

Endif

endif

return(_lRet)