Histórico da Página
MTA650POK - Valida Itens do Pedido de Vendas
Linha de Produto: | Protheus | |||||||||||||||||||||||||||||||||||||||
Segmento: | Manufatura | |||||||||||||||||||||||||||||||||||||||
Módulo: | SIGAPCP - Planejamento e Controle da Produção | |||||||||||||||||||||||||||||||||||||||
Parâmetro(s): |
| |||||||||||||||||||||||||||||||||||||||
Idiomas: | Espanhol, Inglês | |||||||||||||||||||||||||||||||||||||||
País(es): | Todos | |||||||||||||||||||||||||||||||||||||||
Banco(s) de Dados: | Todos | |||||||||||||||||||||||||||||||||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de Entrada que valida os itens de pedido de vendas selecionados para geração de Ordem de Produção por Pedido de Vendas.
| ||||||||||||||||||||
Localização: | Function A650ProcOP() - Função responsável pela geração das Ordens de Produção a partir dos pedidos de venda selecionados. | ||||||||||||||||||||
Eventos: | Antes do processamento que gera a OP por venda para o registro posicionado. | ||||||||||||||||||||
Programa Fonte: | MATA650.PRX | ||||||||||||||||||||
Sintaxe: | MTA650POK - Valida Itens do Pedido de Vendas ( [ cAlias ], [ cMarca ] ) --> lRet | ||||||||||||||||||||
Retorno: | lRet
| ||||||||||||||||||||
Variáveis: |
| ||||||||||||||||||||
Observações: | A tabela SC6 - Itens do Pedido de Venda - já está filtrada conforme apresentado na MarkBrowse. É necessário efetuar um laço (loop) na tabela SC6, verificando, no campo C6_OK, se cada um dos registros está com o conteúdo igual à Marca. Dessa forma, é possível identificar quais foram os registros marcados e validá-los conforme a necessidade. |
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE 'TOTVS.CH'
#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'PARMTYPE.CH'
#INCLUDE "RWMAKE.CH"
User Function MTA650POK()
Local cAlias := PARAMIXB[1]
Local cMarca := PARAMIXB[2]
Local aArea := (cAlias)->(GetArea()) //Guarda a area corrente
MsgInfo('Este Ponto de Entrada será executado antes da geração das OPs e PVs !!!')
dbSelectArea(cAlias)
(cAlias)->(dbSetOrder(1))
If (cAlias)->(dbSeek(xFilial(cAlias)))
While !Eof() .And. SC6->C6_FILIAL == xFilial(cAlias)
If SC6->C6_OK = cMarca
MsgInfo('O Item '+SC6->C6_ITEM+' do pedido de Vendas ' +SC6->C6_NUM+ ' foi marcado para gerar Ordem de Produção!!!')
EndIf
(cAlias)->(dbSkip())
EndDo
EndIf
(cAlias)->(dbCloseArea())
RestArea(aArea) //Restaura a area guardada
Return( .T. ) |