Histórico da Página

#Include 'Protheus.ch'

User Function MNT655D3CC()

    Local lRet := .T.
    
    //Parâmetros
	cTipo		:= PARAMIXB[1] // requisição ou devolução
	cVeic		:= PARAMIXB[2] // Código do Veículo/Bem
	cCCust	:= PARAMIXB[3] // Código de Centro de Custo
	cFilTQF	:= PARAMIXB[4] // Código da filial do Posto
	
	If IsInCallStack( "MNTA655" )
	    nRecno	:= PARAMIXB[5] // Último registro

	    	dbSelectArea("SD3")
	    dbGoTo(nRecno)
	    RecLock("SD3",.F.)
	    SD3->D3_EMISSAO := dDataBase
	    MsUnlock("SD3")
	EndIf

Return lRet