Static Function AlteraPC(nRecno,nOpc)
Local aArea := GetArea()
Local aAreaSC7 := SC7->(GetArea())
dbSelectArea("SC7")
MsGoto(nRecno)
//Mata120(ExpN1,ExpA1,ExpA2,ExpN2,ExpA1)
/*
ExpN1 = 1-Pedido de compras ou 2-Autorizacao de entrega
ExpA1 = Array Cabecalho para Rotina Automatica
ExpA2 = Array Itens para Rotina Automatica
ExpN2 = Opcao do aRotina para Rotina Automatica
ExpA1 = Apresenta a Dialog da Rotina em Rotina Automatica (.T. ou .F.)
*/
Mata120(1,/*aCabec*/,/*aItens*/,nOpc,.T.) RestArea(aAreaSC7) RestArea(aArea)
Return .T.