01. DADOS GERAIS
| Produto: | | Solucoes_totvs |
|---|
| Solucao | TOTVS Logística WMS |
|---|
|
|
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: | | Modulos_totvs_logistica |
|---|
| ModulosTOTVSLogistica | 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.
Exemplo de uso:
| Bloco de código |
|---|
| title | Exemplo Ponto de Entrada |
|---|
| linenumbers | true |
|---|
|
#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
