Estou tentando corrigir um fonte para abrir o arquivo de empresa, mas não encontrei nada sobre a função OpenSM0 para corrigir o fonte:

dbSelectArea( "SM0" ) dbGoTop() SM0->(dbSetOrder(1)) While !SM0->( EOF() ) // Só adiciona no aRecnoSM0 se a empresa for diferente If aScan( aRecnoSM0, { |x| x[2] == SM0->M0_CODIGO } ) == 0 ; .AND. aScan( aMarcadas, { |x| x[1] == SM0->M0_CODIGO } ) > 0 aAdd( aRecnoSM0, { Recno(), SM0->M0_CODIGO } ) EndIf SM0->( dbSkip() ) End

SM0->( dbCloseArea() )