Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite realizar gravações na rotina de Reprocessamento (MNTA660)

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA660

Reprocessamento


Rotina(s) envolvida(s)

Nome Técnico

MNTA6603

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Reprocessamento (MNTA660) que permite realizar gravações no reprocessamento de abastecimentos importados

Programa Fonte:

MNTA660.prx
Localização:SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Reprocessamento

Função:

MNTA6603()

Retorno:

Nulo
Exemplo do Ponto de Entrada MNTA6603()
#Include 'Protheus.ch'

User Function MNTA6603()

	DbSelectArea("TQI")
	DbSetOrder(1)
	DbSeek(xFilial("TQI")+TQN->TQN_POSTO+TQN->TQN_LOJA+TQN->TQN_TANQUE+TQN->TQN_CODCOM)
	cNumDocSD3 := NextNumero("SD3", 2, "D3_DOC", .T.)
	cNumSeOrig := MntMovEst("RE0", TQN->TQN_TANQUE, TQI->TQI_PRODUT, TQN->TQN_QUANT,TQN->TQN_DTABAS, cNumDocSD3, Nil, Nil, .F., )

Return