Cross Segmento - TOTVS Backoffice (Linha Protheus) - SIGAFAT - Ponto de Entrada MTA455VL

Tempo aproximado para leitura: 00:03:00 min

Dúvida
Exemplo de utilização do Ponto de Entrada MTA455VL - Valida a seleção de Lotes/Endereçamento.

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - SIGAFAT - A partir da release 12.

Solução

O ponto de entrada MTA455VL permite validar a seleção de Lotes/Endereçamento na Nova Liberação na opção Liberação de Estoque (SIGAFAT).

Exemplo

User Function MTA455VL(cAlias)

Local aArea := GetArea()
Local lRet

dbSelectArea(ParamIxb[1]) // Alias TRB do MarkBrowse

// Validacao - lRet := .T. (confirma a selecao)
// Validacao - lRet := .F. (nao confirma)

Alert("Entrou no Ponto de Entrada MTA455VL")

If SC9->C9_BLEST = "02" // Condicao
lRet := .T.
Alert("Selecao do Lote/Enderecamento confirmada")
Else
lRet := .F.
Alert("Selecao do Lote/Enderecamento nao confirmada")
EndIf

RestArea(aArea)

Return (lRet)

Saiba Mais

MTA455VL - Valida a seleção de Lotes/Endereçamento