Histórico da Página
CUSTOMIZAÇÃO DE CAMPOS NA GERAÇÃO DA SOLICITAÇÃO DE ARMAZÉM
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||||||||
Segmento: | Manufatura | ||||||||||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||||||||||
Rotina: |
| ||||||||||||||||
Issue Relacionadas: | 11.80.20: MNG-61 | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
País(es): | Todos | ||||||||||||||||
Banco(s) de Dados: | Todos | ||||||||||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de Entrada que possibilita a alteração do campos na geração da SA na tabela SCP (Solicitações de Armazém) . |
Localização: | SIGAMNT: Atualizações/Controle de Pneus/O.S. Pneus/O.S. Lote |
Eventos: | Cadastro de O.S. em Lote (MNTA720) |
Programa Fonte: | MNTA720.PRX MNTA340.PRX NGUTIL02.PRX |
Função: | MNTSCPUSER() |
Retorno: | (Nulo) |
Exemplo:
Bloco de código | ||||
---|---|---|---|---|
| ||||
#Include 'Protheus.ch' |
User Function MNTSCPUSER() |
Local cCodProd := PARAMIXB[1] //Produto |
Local cNumSA := PARAMIXB[2] //Número da SA |
Local cItemSA := PARAMIXB[3] //Item da SA |
If MsgYesNo("Deseja alterar os campos Produto, Centro de Custo e Local da SA?") |
dbSelectArea("SCP") |
dbSetOrder(2)//CP_FILIAL+CP_PRODUTO+CP_NUM+CP_ITEM |
If dbSeek(xFilial("SCP") + cCodProd + cNumSA + cItemSA) |
RecLock("SCP", .F.) |
SCP->CP_PRODUTO := "Terceiro2" |
SCP->CP_CC := "CC1" |
SCP->CP_LOCAL := "03" |
MsUnlock("SCP")
EndIf
EndIf
SCP->(MsUnLock()) EndIf EndIf Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas