DT PE CPOSDH1 - Permite gravar campos de usuário na tabela DH1 em processos com WMS de transferências entre armazéns

01. DADOS GERAIS

Produto:	TOTVS Logística WMS
Linha de Produto:	Linha Protheus
Segmento:	Logística
Módulo:	TOTVS WMS - Linha Protheus - WMS Protheus (SIGAWMS)
Função:	WMSA225 - Transferência WMS
País:	Todos Países
Ticket:
Requisito/Story/Issue (informe o requisito relacionado) :	DLOGWMSMSP-15419

02. DESCRIÇÃO

Permite gravar campos de usuário na tabela DH1 em processos com WMS de transferências entre armazéns.

Este ponto de entrada serve para gravar campos de usuário nas seguintes rotinas:
MATA240 – Lançamento de Movimentações Internas
MATA241 – Movimentos Internos Modelo 2
MATA260 – Transferência Simples
WMSV095 – Transferência WMS – Coletor de dados
WMSA225 – Transferência WMS
WMSA505 - Separação Ordem de Produção
WMSA508 - Requisição Automática OP

03. LOCALIZAÇÃO

Localizado nas funções de gravações de dados dos programas

04. PARÂMETROS

Nome	Tipo	Obrigatório
cRotina	Caractere	Sim
nX	numérico (REQUISICAO = 1 / DEVOLUCAO = 2)	Não

05. RETORNO

Nome	Tipo	Descrição
aCpoUser	array	campo/valor

06. VERSÕES

Protheus 12.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

#INCLUDE "TOTVS.CH"

User Function CPOSDH1()
Local cRotina := PARAMIXB[1]
Local cExec := PARAMIXB[2]
Local aCpos := {}

If cRotina = "WMSA225"
AADD( aCpos, {"DH1_CAMPO1", "VALOR DO CAMPO"} )
AADD( aCpos, {"DH1_CAMPO2", 150} )
EndIf

Return aCpos