Linha Microsiga Protheus

Árvore de páginas

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
RetornoArray 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