Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Logística WMS

Linha de Produto:

Linha Protheus

Segmento:

Logística

Módulo:

TOTVS WMS - Linha Protheus - WMS Protheus (SIGAWMS)

Função:WMSA505 - Separação da Ordem de Produção
País:Brasil
Ticket:22746486
Requisito/Story/Issue (informe o requisito relacionado) :DLOGWMSMSP-17208


02. DESCRIÇÃO

Inclusão de novo ponto de entrada no momento do estorno da requisição WMS. Efetuado a inclusão de um ponto de entrada WMSA5052 para que seja executado no momento do estorno da requisição WMS pelo programa WMSA505. Efetuado a alteração do ponto de entrada já existente WMSA5051 para enviar mais um parâmetro com o alias dos dados do primeiro grid da tela. 



03. DEMAIS INFORMAÇÕES

Exemplo de uso:


Exemplo Ponto de Entrada
#DEFINE PULAR Chr(10) // SALTO DE LINHA
 
 
User Function WMSA5052()
    Local cAliasSD4 :=  PARAMIXB[1]
    Local cMenssagem         := ""
    Local lRet         := .T.
    Local  aAreaSD4  := (cAliasSD4)->(GetArea())
  
    
    DbSelectArea(cAliasSD4)
 
    lRet := U_UWMS505Z((cAliasSD4)->D4_COD)
    If !lRet
            cMenssagem += "Produto:                    "+(cAliasSD4)->D4_COD+" "+ PULAR
            cMenssagem += "Descrição:                  "+(cAliasSD4)->D4_DESC+" "+ PULAR
            cMenssagem += "Lote:                   "+(cAliasSD4)->D4_LOTECTL+" "+ PULAR
            MsgAlert(cMenssagem,"Seu Titulo")
    EndIf
    RestArea(aAreaSD4)
Return lRet
 
User Function UWMS505Z(lProduto)
    //função para validação
    Local lRet := .F.
    If lProduto = 'WMSZN100A'
        lRet := .T.
    Else
       lRet := .F.
    EndIf
Return lRet




04. ASSUNTOS RELACIONADOS