Histórico da Página
Descrição | A250WMSO - Permite informar um endereço para o serviço WMS de endereçamento | ||||||
---|---|---|---|---|---|---|---|
Observações | Executado na função A250Atu( ), a qual é responsável por realizar as atualizações do apontamento de produção. Obs.: O acesso ao ponto de entrada depende da existência de informação no campo D3_SERVIC. | ||||||
Idioma | Português(Brasil) | ||||||
Versões | 10, 11 e superiores | ||||||
Sistemas Operacionais Suportados | Windows®/Linux® | ||||||
Compatível com as Bases de Dados | Todas | ||||||
Parâmetros |
| ||||||
Retorno | aRet | ||||||
Eventos de chamada do Ponto de Entrada | Gravação da ordem de produção | ||||||
Programa Fonte | MATA250.PRW |
Informações |
---|
Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização |
Exemplo:
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "PROTHEUS.CH"
User Function A250WMSO()
Local cProduto |
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | |||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Pagetitle | | A250WMSO - Informa o endeeço de origem no campo D3_SERVIC | A250WMSO - Informa o endeeço de origem no campo D3_SERVIC |
Versões: | Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
DECRIÇÃO : O ponto de entrada 'A250WMSO' permite informar o endereço e a estrutura de origem quando existir o serviço do WMS cadastrado no campo D3_SERVIC. Eventos
MATA250.PRX
A250WMSO - Informa o endeeço de origem no campo D3_SERVIC ( < cProduto> , < cOp> ) --> aRet
- aRet(vetor)
- Retorno esperado do RDMAKE:
Array[1] = Endereco
Array[2] = Estrutura
:= PARAMIXB[1] Local cOp
:= PARAMIXB[2] Local aRet := {} If Upper(Substr(cProduto,1,3)) =='MIC' //-- Customizações do Cliente
aRet := {'END01'+Space(TamSX3(DB_LOCALIZ)[1]-5),'09'+Space(TamSX3(DB_ESTFIS)[1]-2)}EndIfReturn
EndIf Return aRet