Árvore de páginas

Versões comparadas

Chave

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

...

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:

...

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