Árvore de páginas

Carregando...

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:

Modulos_totvs_logistica
ModulosTOTVSLogisticaTOTVS WMS - Linha Protheus - WMS Protheus (SIGAWMS)

Função:WMSA580 - Requisição automática OP 
País:Brasil
Ticket:19912745
Story:DLOGWMSMSP-1641216440

02. DESCRIÇÃO

...

Inclusão de novo ponto de entrada para que seja possível filtrar mais de uma ordem de produção para geração de serviços de requisição pro WMS e atualização de empenhos em endereço de produção.

Este ponto de entrada poderá ser acionado quando executado de forma automática a geração de requisição de ordens de produção.

Receberá como parâmetro parte do filtro com a OP que está sendo processada conforme parâmetros de execução.  Exemplo : Executando diretamente a função WMSA508GRA(.F. /*Exibe mensagem*/,"001"/*ordem de produção*/) . Neste exemplo o ponto de entrada receberá o filtro com o OP selecionada 001, que poderá ser alterado para retornar mais de uma OP para processamento.



Nome do ponto de entrada:

...

WMS508CW
Parâmetros:

  1. array com as posições dos atributos

    • volume
    • carga
    • pedido
    • armazém
    • endereço

...

Recebe uma string com parte da where clause com o filtro da Ordem de produção que será processada.
Retorno: Envia a string recebida alterada com o filtro necessário com uma ou mais ordem de produção.

03. DEMAIS INFORMAÇÕES

Exemplo de uso:

Bloco de código
languagec#
themeRDark
linenumberstrue
titleExemplo Ponto de Entrada
//Exemplo ponto de entrada: 

#INCLUDE "PROTHEUS.CH"

User Function WMSV081VWMS508CW()
Local  cWhere  Local cVolume := PARAMIXB[1]
    Local cCarga := PARAMIXB[2]
  cWhere  Local cPedido := PARAMIXB[3]
    Local cArmazem := PARAMIXB[4]
    Local cEndereco := PARAMIXB[5]
    Local lRet := .T.
    Local aArea := GetArea()
    Local cAliasDCU := GetNextAlias()

    BeginSql Alias cAliasDCU
        SELECT 1
        FROM %Table:DCU% DCU
        WHERE DCU.DCU_FILIAL = %xFilial:DCU%
        AND DCU.DCU_CODVOL = %Exp:cVolume%
        AND DCU.DCU_OPERAD <> %Exp:__cUserID%
        AND DCU.%NotDel%
    EndSql
    If (cAliasDCU)->(!Eof())
        lRet := .F.
        WMSVTAviso("U_WMSV81","Volume iniciado por outro operador")
    EndIf
    (cAliasDCU)->(dbCloseArea())

    RestArea(aArea)
Return lRet

04. ASSUNTOS RELACIONADOS

 "AND SD4.D4_OP IN ('Y0307001001   ','Y0307201001   ')" 

Return cWhere



04. ASSUNTOS RELACIONADOS



Templatedocumentos