× Linguagem de Programação ADVPL

Perguntas Atualizando produto em varias filiais

Mais
11 anos 2 meses atrás #16356 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.

Mais
11 anos 2 meses atrás #16359 por lalberto
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

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.

Mais
11 anos 2 meses atrás #16362 por Rei da TI
Então Luiz,

Vou precisar atualizar quando for alterada na tela.

São filiais

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 2 meses atrás #16365 por lalberto
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.

Mais
11 anos 2 meses atrás #16366 por Rei da TI
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.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 2 meses atrás #16368 por lalberto
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

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.

Tempo para a criação da página:0.130 segundos
Joomla templates by a4joomla