Perguntas Atualizando produto em varias filiais

Reinaldo infelizmente meu brother terá de ser campo a campo mesmo.

tem um esquema legal que vou te mandar, aonde não vai precisar se preocupar guenta ae rsrs

Testa esse esquema, do jeito que ta ele vai copiar todos os campos


// Ponto de Entrada executado na Alteração de Produtos

User Function MT010ALT()

// Atualiza Mesmo Produto em filiais diferentes

xFilAnt := cFilAnt
nRegSM0 := SM0->(Recno())
cCodPro := SB1->B1_COD

// Conteudo dos Campos que Serao Atualizados em Outras Filiais


// Pega o Conteudo de Todos os Campos do Cadastro de Produto e Joga no Vetor

aDados := {}
For nI := 1 To SB1->(FCount())
AAdd(aCampos,{SB1->(FieldName(nI)),SB1->(FieldGet(nI)})
Next

SM0->(dbGoTop())
While SM0->(!Eof())
If SM0->M0_CODFIL <> xFilAnt
cFilAnt := SM0->M0_CODFIL

If SB1->(dbSetOrder(1), dbSeek(xFilial("SB1")+cCodPro))
If SB1->(dbSetOrder(1), dbSeek(xFilial("SB1")+cCodPro))
If RecLock("SB1",.f.)
For nI := 1 To Len(aDados)
If aDados[nI,1] $ "B1_FILIAL"
Loop
Endif

nPos := SB1->(FieldPos(aDados[nI,1]))
If nPos > 0
SB1->(FieldPut(nPos,aDados[nI,2]))
Endif
Next
SB1->(MsUnlock())
Endif
Endif
Endif
Endif

SM0->(dbSkip(1))
Enddo
cFilAnt := xFilAnt
SM0->(dbGoTo(nRegSM0))
Return Nil