Descrição | Ponto de Entrada executado para inibir a tela de preenchimento do código de produto e almoxarifado. |
---|---|
Exemplos | #Include 'Protheus.ch' User Function MNTA2319() Local aRet := {} Local cRod := ParamIXB[1] //Código do Rodado em uso. Local cCodPro := '' //Código do Produto Local cCodAlm := '' //Código do almoxarifado //Busca o código do produto e almoxarifado da tabela de bens //caso não esteja preenchido, passa por padrão {'01', '01'} dbSelectArea("ST9") dbSetOrder(1) If dbSeek(xFilial("ST9") + cRod ) cCodPro := If(!Empty(ST9->T9_CODESTO), ST9->T9_CODESTO,'01') cCodAlm := If(!Empty(ST9->T9_LOCPAD), ST9->T9_LOCPAD,'01') EndIf aRet := {cCodPro,; //1ªposição: Código do Produto destino. cCodAlm} //2ªposição: Código do Almoxarifado destino. Return aRet |
Retorno | Array bidimensional, sendo a primeira posição o código do produto destino e a segunda o código do almoxarifado destino. |
Idioma | Português(Brasil) |
Versões | Todas |
Sistemas Operacionais Suportados | Todos |
Compatível com as Bases de Dados | Todas |
Parâmetros | ParamIXB[1] - Indica o Bem que está sendo usado na movimentação. |
Programa Fonte | MNTA231.prx |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas