Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Produto:

Solucoes_totvs
SolucaoTOTVS Logística WMS

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoLogística

Módulo:

SIGAWMS - Gestão de Armazenagem

Função:

WMSA505.prw

País:

Todos Países

Ticket:13658848
Requisito/Story/Issue (informe o requisito relacionado) :


DLOGWMSMSP-14131/FSWSES-3956


02. DESCRIÇÃO

  1. Permiti Permite a criação de um ponto de entrada na rotina WMSA505 (Separação da Ordem de Serviço), após clicar a na opção 'Solicitar' da grid inferior 'Produtos Requisição'
  2. É enviado como parâmetro a tabela temporária que contem os dados GRID 'Produtos Requisição'
  3. O programa padrão estará aguardando um valor lógico de retorno, para prosseguir ou não com o processo. 

...

Foi passado como parâmetro uma a tabela temporária (cAliasPRD) que contem todos os dados da grid 'Produtos Requisição'. Portanto, para resgatar todos os dados da tabela temporária, pode-se fazer como no exemplo abaixo:

...

    Local cAliasPRD :=  PARAMIXB[1]
    Local aArea     := GetArea()
    Local cMenssagem cMsg         := ""
    Local lRet     DbSelectArea(cAliasPRD)
    := .T.

    lRet := U_UWMS505V(cAliasPRD)->(DbGoTop())
    If lRet
        cMenssagem cMsg += "Produto:                  "+(cAliasPRD)->D4_COD+" "+ PULAR
            cMenssagem cMsg += "Lote:                     "+(cAliasPRD)->D4_LOTECTL+" "+ PULAR
            cMenssagem cMsg += "Armazem de Origem:        "+(cAliasPRD)->D4_LOCORI+" "+ PULAR
            cMenssagem cMsg += "Endereço de Origem:       "+(cAliasPRD)->D4_ENDORI+" "+ PULAR
            cMenssagem cMsg += "Quantidade a Solicitar:   "+cValToChar((cAliasPRD)->D4_QUANT)+" "+ PULAR
            MsgAlert(cMenssagemcMsg,"Seu Titulo")
    Else
        RecLock(cAliasPRD,.F.MsgAlert("Msg NOK","Seu Titulo")
    EndIf
            (cAliasPRD)->D4_COD := "INSUMO VERDE LIMA"
            (MsUnlock())            MsgAlert((cAliasPRD)->D4_COD)
        
Return .T.RestArea(aArea)
Return lRet

User Function UWMS505V()
    Local lRet := .F.

    //Alguma validação aqui

Return lRet