- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Atualizando produto em varias filiais
×
Linguagem de Programação ADVPL
Perguntas Atualizando produto em varias filiais
- Rei da TI
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 81
- Obrigados Recebidos: 0
11 anos 3 meses atrás #16356
por Rei da TI
Atualizando produto em varias filiais foi criado por Rei da TI
galera, sou novato em advpl, e estou com o seguinte problema, preciso atualizar um produto em uma filial, e se existir este mesmo produto em outra filial atualizar la tbm. queria saber se alguem tem alguma rotina pronta.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 3 meses atrás #16359
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Atualizando produto em varias filiais
Reinaldo boa tarde, essa atualização será feita assim que for alterada na tela, ou vc pretende fazer isso uma vez só ?
Na tela de cadastro de produtos temos o ponto de entrada MT010ALT senão me engano, lá podemos fazer um esquema para ele fazer essa alteração pra vc, agora preciso saber se são filiais ou empresas ?
Coloca uma foto sua e seja bem vindo ao MasterAdvpl
Na tela de cadastro de produtos temos o ponto de entrada MT010ALT senão me engano, lá podemos fazer um esquema para ele fazer essa alteração pra vc, agora preciso saber se são filiais ou empresas ?
Coloca uma foto sua e seja bem vindo ao MasterAdvpl
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- Rei da TI
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 81
- Obrigados Recebidos: 0
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 3 meses atrás #16365
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Atualizando produto em varias filiais
Blz Reinaldo, seguinte vc precisa ter o mesmo produto, todas as informações em filiais diferentes ou apenas alguns campos especificos ?, não seria o ideal vc compartilhar o cadastro de produto entre as filiais ?
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- Rei da TI
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 81
- Obrigados Recebidos: 0
11 anos 3 meses atrás #16366
por Rei da TI
Respondido por Rei da TI no tópico Atualizando produto em varias filiais
então vou precisar atualizar apenas alguns campos, não posso compartilhar a tabela pois o mesmo produto tem diferentes informações entre filiais.
o correto seria mexer no ponto de entrada mesmo, fazer uma rotina que ao clicar em alterar chama-se esta rotina verifica-se se o produto existe em outra filial, se existir atualizar os campos.
o correto seria mexer no ponto de entrada mesmo, fazer uma rotina que ao clicar em alterar chama-se esta rotina verifica-se se o produto existe em outra filial, se existir atualizar os campos.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 3 meses atrás #16368
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Atualizando produto em varias filiais
Segue um Exemplo do ponto de entrada, não testei ok
// 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
cDesPro := SB1->B1_DESC
cUndPro := SB1->B1_UM
SM0->(dbGoTop())
While SM0->(!Eof())
If SM0->M0_CODFIL <> xFilAnt
cFilAnt := SM0->M0_CODFIL
If SB1->(dbSetOrder(1), dbSeek(xFilial("SB1")+cCodPro))
If Reclock("SB1",.F.)
SB1->B1_DESC := cDesPro
SB1->B1_UM := cUndPro
SB1->(MsUnlock())
Endif
Endif
Endif
SM0->(dbSkip(1))
Enddo
cFilAnt := xFilAnt
SM0->(dbGoTo(nRegSM0))
Return Nil
// 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
cDesPro := SB1->B1_DESC
cUndPro := SB1->B1_UM
SM0->(dbGoTop())
While SM0->(!Eof())
If SM0->M0_CODFIL <> xFilAnt
cFilAnt := SM0->M0_CODFIL
If SB1->(dbSetOrder(1), dbSeek(xFilial("SB1")+cCodPro))
If Reclock("SB1",.F.)
SB1->B1_DESC := cDesPro
SB1->B1_UM := cUndPro
SB1->(MsUnlock())
Endif
Endif
Endif
SM0->(dbSkip(1))
Enddo
cFilAnt := xFilAnt
SM0->(dbGoTo(nRegSM0))
Return Nil
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Atualizando produto em varias filiais
Tempo para a criação da página:0.144 segundos