Histórico da Página

#include 'protheus.ch'

User Function MNTA720A()

    Local aAreaSc3  := SC3->( GetArea() )
    Local aItemTr8  := PARAMIXB[1]
    Local aCabecSc7 := PARAMIXB[2]
    Local aLinhaSc7 := PARAMIXB[3]
	Local cContrSc3 := aItemTr8[ GDFieldPos('TR8_NUMCP') ] // Número do contrato informado pelo usuário
	Local cItemSc3  := aItemTr8[ GDFieldPos('TR8_ITEMCP') ] // Número do item informado pelo usuário

	dbSelectArea('SC3')
	dbSetOrder(1) // C3_FILIAL + C3_NUM + C3_ITEM
	If dbSeek( xFilial('SC3') + cContrSc3 + cItemSc3 )

        // Cópia de campos específicos
        aadd( aLinhaSc7, { 'C7_XCAMPOX',  SC3->C3_XCAMPOX , Nil } )
        aadd( aLinhaSc7, { 'C7_XCAMPOY',  SC3->C3_XCAMPOY , Nil } )
 
    EndIf

    RestArea( aAreaSc3 )

Return { aCabecSc7, aLinhaSc7 }