Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • ACD150ME - Manipula ArmazémEndereço -- 30547

Ponto-de-Entrada: ACD150ME - Manipula Armazém/Endereço
Abrangências: TOTVS Application Server 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Ponto de entrada utilizado para manipular o armazém/endereço (quando usado código natural) ou código da etiqueta de endereço (quando usado código interno) lido na rotina de transferência entre endereços via terminal.
Programa Fonte 
ACDV150
Sintaxe

ACD150ME - Manipula Armazém/Endereço ( [ nTipo ], [ cEtiq ], [ cEnd ] ) --> aRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
nTipo Numérico Tipo do endereço: 1 - Origem / 2 - Destino
cEtiq Array of Record Armazém (natural) ou código da etiqueta (interno) lido.
cEnd Array of Record Endereço lido. Só é passado quando usado código natural.
Retorno
    aRet(vetor)
  • Vetor contendo a seguinte estrutura:
    Se código natural:{Armazém,Endereço}
    Se código interno: {Código da etiqueta de endereço (CB0)}
Exemplos 
#INCLUDE "APVT100.CH"User Function ACD150ME()Local nTipo := PARAMIXB[1]Local cEtiq := PARAMIXB[2]Local cArm  := PARAMIXB[2]Local cEnd  := PARAMIXB[3]// Validações do usuárioIf UsaCB0("02")	aRet := {cEtiq}Else	aRet := {cArm,cEnd}	EndIfReturn aRet