Perguntas Cadastrar produto em varias filiais de uma vez

Sobre o erro:


THREAD ERROR (Reinaldo.Mauricio, MMTNBKDTI60CTA) 12/11/2013 10:54:19
type mismatch on .AND. on INTEGRASFC(MATA010.PRX) 23/10/2012 21:28:50 line : 5472

[TOTVS build: 7.00.120420A-20120726]
Called from A010TUDOOK(MATA010.PRX) 23/10/2012 21:28:50 line : 3247


Era base desatualizada.... vou continuar o teste.

Então galera, estou fazendo da maneira que o Kanaãm falou, fui acompanhando e esta tudo certo so no final da um erro em uma customização que temos aqui...alguem sabe por que? será que estou fechando as tabelas no local errado?

---

Erro no gatilho : b1_subcat Sec.001

Work area not in use

---

abaixo segue o fonte que fiz.

#include "protheus.ch"
#include "topconn.ch"

User Function A010TOK

Local lRet := .T.
Local cMsg := "Deseja incluir este produto nas demais Filiais?"
Local cCaption := "Copiando..."


if inclui
//mostra pergunta do parametro cMsg
If ApMsgNoYes(cMsg, cCaption)
//tabela com as informaçoes das filiais
DbSelectArea("SM0")
While SM0->(!Eof())
//Filial da tabela é diferente da filial logada?
if SM0->M0_CODFIL <> cfilant

RecLock("SB1",.T.)
AvReplace("M","SB1")
//altero a filial do produto
SB1->B1_FILIAL = SM0->M0_CODFIL
//libero registro
SB1->(MsUnlock())
endif
//proximo registro
SM0->(DbSkip())
End Do
//libero registro
SM0->(dbCloseArea())
endif
endif

RESOLVIDOOOO

Galera...

Deu certo da forma que o Kanaãm informou e que o Luiz corrigiu,desta forma funciona direitinho...Obrigado a todos pela força.

Opa ...claro podemos ver, não de natal, mais podemos ver sim.