Boa tarde a todos, preciso criar uma regra para que tudo que estiver setado como "A" no cadastro do cliente obrigue dentro do call center o vendedor não alterar para nem uma condição de pagamento diferente de 1, fiz dessa forma abaixo e deu certo. Porem para condições que iniciam com "1" exemplo 11 até 19, ele deixa passar porque tem o numero 1 na frente. coo fariam? Help! Obrigao pela atenção

Include 'Protheus.ch'

User Function TMKDADOS(cCodPagto, cCodTransp, cCob, cEnt, cCidadeC, cCepC, cBairroC, cBairroE, cCidadeE, cCepE, cUfE, aParcelas)

Local aArea := GetArea() Local lRet := .T.

If SA1->A1_CARACTE == "A" .AND. cCodPagto <> "1" MsgInfo("Somente a Vista") lRet := .F. Endif

restArea(aArea)

Return lRet