Cross Segmentos - Backoffice (Linha Protheus) – SIGAFAT – Ponto de entrada MA440GRLT

Tempo aproximado para leitura: 00:01:30 min

Dúvida
Qual é o exemplo de uso do Ponto de entrada MA440GRLT?

Ambiente
Cross Segmentos - Backoffice (Linha Protheus) – Faturamento (SIGAFAT) – Todas as versões

Solução
O ponto de entrada MA440GRLT serve para otimizar/modificar a escolha do lote/endereço/série do produto antes da gravação da liberação na tabela SC9 - Liberação de pedidos de venda, de acordo com a regra do usuário.

OBS: A verificação se o lote realmente existe nas tabelas deve ser realizada pelo Analista In Loco programador.

Exemplo de uso do ponto de entrada MA440GRLT:

#INCLUDE 'PROTHEUS.CH'

User Function MA440GRLT()
    Alert("Ponto de entrada MA440GRLT ativado!")
    
    Local aArea := SC6->(GetArea())
    Local cLote := "EA" //C6_LOTECTL, colocar o lote desejado.

    DBSELECTAREA('SC6')

    // Se for o produto L (Tem esse tratamento particular)
    If (SC6-C6_PRODUTO = 'L')
        SC6-C6_LOTECTL := cLote
    EndIf
    
    RestArea(aArea) 
Return()