Linha Microsiga Protheus

Árvore de páginas

Alteração de campos da STG na Transferência de Bens (MNTA550)

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Manufatura.

Módulo:

SIGAMNT - Manutenção de Ativos.

Rotina:

Rotina

Nome Técnico

MNTA550

Transferência de Bens

Ponto de Entrada:

 

Chamados Relacionados

P127 MNG-148 / TICKET 136255

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Descrição

Ponto de entrada para alterar campos da STG na rotina de Transferência de Bens (MNTA990).

 

 

 

 

 

 

 

Ponto de Entrada

Descrição:

Ponto de entrada para utilização de campos na rotina de Programação de Ordens de Serviço (MNTA990).

Localização:

SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Abastecimento em Lote.

Eventos:

Programação de Ordens de Serviço (MNTA990).

Programa Fonte:

MNTA990.PRX

Função:

MNTA990CAD()

Retorno:

Nome

Tipo

Descrição

Obrigatório

 

Nil

 

 

 

Exemplo:

 

#Include 'Protheus.ch'

User Function MNTA5502()

Local cDescriNNR := ""
Local cQryNNR := ""
Local i := 0

cAliTRBSTG := PARAMIXB[1]

// Faz uma copia do STG
dbSelectArea(cAliTRBSTG)
dbGoTop()
RecLock(cAliTRBSTG,.F.)

For i := 1 TO FCOUNT()
If FieldName(i) == "TG_LOCAL"

pp := "STG->" + FieldName(i)
vl := "(cAliTRBSTG)->" + FieldName(i)

aAreaSTG := GetArea()

dbSelectArea("NNR")
dbSetOrder(1)

dbSeek(xFilial("NNR") + &pp.)

cQryAlias := GetNextAlias()

cQryNNR += " SELECT * FROM NNRT30 "
cQryNNR += " WHERE NNR_DESCRI = '" + NNR->NNR_DESCRI + "' "
cQryNNR += " AND NNR_FILIAL = '" + M->TQ2_FILDES + "' "
cQryNNR += " AND D_E_L_E_T_ <> '*' "

cQryNNR := ChangeQuery(cQryNNR)
dbUseArea( .T., "TOPCONN", TCGenQry(,,cQryNNR), cQryAlias, .F., .T.)
dbSelectArea(cQryAlias)
dbGoTop()

If !EOF() //dbSeek(M->TQ2_FILDES + &pp.)
&vl. := (cQryAlias)->NNR_CODIGO
Else
&vl. := &pp.
EndIf

(cQryAlias)->(dbCloseArea())

RestArea( aAreaSTG )
EndIf
Next i

MsUnLock(cAliTRBSTG)

Return