Perguntas Cadastrar produto em varias filiais de uma vez

AJUDA...

Galera, seguinte...

Preciso cadastrar um produto e que este produto seja cadastrado automaticamente em todas as demais filiais.

Pensei em fazer isso no ponto de entrada A010TOK que é o ponto de entrada da confirmação da inclusão.

Lembrando que não posso compartilhar a tabela.

Alguem tem uma ideia?

Você pode usar o Copy To para jogar seus dados em uma área de trabalho e com base nela realizar um append nas demais filiais.

Ou então você pode utilizar o AvReplace da seguinte forma:

Nessa caso, eu estou incluindo uma nova linha na tabela SZD e copiando tudo que está nas variáveis de memória para a tabela SZD, desde que os campos possuam os mesmos nomes e estrutura.
Partindo da premissa que você usuará o PE A010TOK, seus dados ainda estão na memória, então o AvReplace funcionaria bem, você pode simplesmente abaixo do avreplace colocar SZD->ZD_FILIAL = '02' e depois fazer um MsUnlock.

Adicionando isso dentro de um Loop você gravará em todas as filiais.
Importante verificar antes de tudo qual a filial que o usuário está logado a fim de evitar duplicidade de registros.

Abraço!

Blz,

Obrigado pela resposta.
vou tentar aqui depois volto pra dar o resultado.

Olá Reinaldo,

O que normalmente faço é cadastrar o primeiro. Depois via APSDU, exporto (para DBF), apendo (append) este DBF e altero a filial. Depois repito o primeiro passo, sendo que cada repetição, ganho mais linha no append, e as altero.

Resolve. Espero ter ajudado.

At.
Roger.
Visite: microsigadvpl.blogspot.com/

Deu o seguinte erro na hora que fui testar...alguém sabe o que é? na base de produção nao da esse erro e o ponto de entrada já existe também.

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

Roger

obrigado pela resposta, isso realmente da certo o problema é que isso vai ser direto, não apenas uma ou duas vezes entende.